' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # dՠ֠z# u*`EMONSTRATE THE USES OF THE SCREEN COMMAND :12:"ON THE NEXT SCREEN YOU WILL SEE A MECC"::"LOGO ON HI-RES PAGE 1.":SPACE 230,32:"H1":D$"BRUNLOGO":SPACE "T1"::12:"ON THE NEXT SCREEN YOU WILL SEE A MECC"::"LOGO ON HI-RES PAGE 2.":S PROGRAM:EXAMPLE #26 AUTHOR:SHANE MCCARRONQ COPYRIGHT:MECC, 1983p( LAST UPDATE:83/11/06 SPM2 ENVIRONMENT: 48K APPLE II WITH EBASIC<8192 MAIN PROGRAM10000:11000230,32:62450:230,64:62450)  THIS IS TO D   SIC, PROVIDES","EXAMPLES OF MANY OF THE FEATURES OF","EBASIC." nÃ"EXAMPLE #2","EXAMPLE #2","THIS SHORT PROGRAM SHOWS HOW TO USE","THE SCREEN COMMAND IN EBASIC.","",""C HIT AT LINE #"ZN".":Y}::ZP(ZL):(ZP);:ZLZL1:ZP127:" ERROR AT LINE #"ZN"."}:"PLEASE REPORT THIS ERROR TO MECC.":SPACE: STANDARD YES-NO INPUTZH(36)1:ZV(37)1:ZV:ZH:868:"";Z$:Z$(Z$,1)Z$"Y"Z$"N"":SPACE:31000NP}8:"DATA DISK BAD - DRIVE OR FORMAT ERROR.":SPACE:31000Z}9:"THIS DATA DISKETTE IS FULL.":SPACE:31000d}"DOS ERROR NUMBER "ZE"AT LINE "ZN".":32150i}n} PROCESS BASIC ERRORx}ZL53856ZE}ZE255ĺ:"ERROR CTRL-ERROR PROCESSING3 }ZE(222):ZN(218)(219)256D}ZE1532110N}ZUĦf(} USERS ENTRY POINTp2}:12x7}ZE<}2,3,7:"PLEASE CHECK YOUR DISKETTE PARAMETERS.":SPACE:31000F}4:"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM YOUR DISKETTE.ZFZF1:ZF231000.NuZP160ZP14130020TXu1:868:1::ZV:ZH:16368,0:ry STANDARD ENDING ROUTINEz"y:,y12:"WOULD YOU LIKE TO TRY AGAIN? ";:YESNO:Z$"Y"Ĭ6y:12:"GETTING THE MENU PROGRAM..."@yD$"RUNHELLO"} STANDARD 6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgC {{ J*BBC AC~}~}~JU8JUBBgBlgC {{ J*BBC AC~}~}~JUz#?????     ΠŠ ԠӠϠԯ Ϡ àŠŠϠ ٠ {8ɀF N9O5Ťș>8:I@8xLș Еƹ`{` `` ݊800 0 &LLuv``J eߥ` LS a ݌LɁ hHf ݊LJ$*Ll'H ݊ {h Ȑɐ L LLH"H ݊(逐%@ HHL݊k  HHL݊`LFL ݊L<Ԣv Lئijƿ LjԦʠ$hh eL$p {"LSpP?H0<@ȅIȌ``L"`Ii`07`5!i:010``# ̂^ȝ`# ^ʰ`8 4 WL:hLf!HLhLHLhRHpP , Pp L`*00,3`@ 0 Ld-#.E;0 0 bE0 0 ܩ 9-+80  80 y (Iim i0Li0ME OK O!N 0 OM0 OL O`* O`H ^h`h8`# Ll`녩w #p,X텩-ۭL$ p=<+0/-('-*y.N#*$ + п- Ю Lꅎ#^ LUʎ`< 0 > `JKIiJ JwN- JdNN J+K J (2 LQ j SLق { #$ 5 ݌& ݊ {݁L ڠ2 XȱȱQP $ \ȱȱ` L) ,  , L ݊ ڥPQPQ`枱`)L\8  w0 w0 \ \ۤ@ `ʊJJ )0JJ = Wۦ` ӥHHvHuHH PQLLϊ0LI g RPQ{| ֤ʆ}~` g RLA٩ ӥHHvHuHH g R AL = # 3O,;< {$0 4 Lk`Lڥ$ i)$ )Lʊ$ ݊Ls W ) { l =Ln` B       ˬΧӬF THE USE"::"OF THE SCREEN COMMAND." +::"RUN THE PROGRAM THEN STUDY THE"::"LISTING TO LEARN HOW TO USE THE"::"SCREEN COMMAND IN YOUR OWN PROGRAMS.":SPACE + 0u STANDARD SPACE BAR ROUTINE 5uZH(36)1:ZV(37)1:ZF0. :u24:1:868:7PACE$ 230,64:"H2":D$"BRUNLOGO"5 $SPACE:"T1"@ .31000U ' INITIALIZATIONa 'D$(4)} $'SPACE30000:YESNO36000 .'S(S)S(Z$)2 t' * INTRODUCTORY SCREENS& +:4:"THIS IS A SHORT GRAPHICS PROGRAM.":::"IT PROVIDES AN EXAMPLE Ooeܔٱ0ۏ$1@hnW &tlnrvNjUaE>Gjmكدzpi֟H֐#A :dFZ߁_vƂn (C) COPYRIGHT MECC. 1983.oeܔٱ0ۏSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDWHILENDWHILREPEAUNTIWHEELSENDWHESELECCASENDSELECSCREEFLISSWADFMTUUTGTPTD<<G C(C) COPYRIGHT MECC. 1984.AHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPO SɂP ݌L = ݌L S, ݌L# S ݌L4 ͌Lɲɭ,:   "ȱLpȱuȱv ٠`ȱͧLENDFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRBcB6f`CBwJUNGYByBAEOA]GsBBCFB;FJ*NGY~D|~B>CO>]GsB`B0`Ca]a}}JUNGcp`gCg`p]GsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB^GOFx~J~xHBBX}- CFJ*NGYx03ss3sBI?]GOH@NHxBByB{CFJUNGY@|@@B @@@@]GsBBqCFJ*NGcgssBs]Gs00{C3ACFJUNGYAG ?8x9]GsvC6ACFJ*NGWA|ApB|@aB `@O`@OO@`]GsF@`Dp`@HB@@_BY_CFJ*NGY><~|CA?> B<>]GOG|L|HBFACFJUNGVA|D|ApBp`~~xxC~]GOD@CAAGA <B~BBBYCFJUNGYq?EBy]GQCFJ*NGVAA|A@A|AEB<||[GO~x`FBAQB oBlOCFJUNGVA~gGFfE'Bf'gg[GP?D@B`ABpAB8ABAABBLBlOCFJ*NGY31x|xqsExpBspx]GOaHBAQBBOB`OCFJUNGWAyA`ByCBApEsA@]GQ|0TAA ~~BB3CFJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGd?OOBO]GOCUBWBB@B`@CFJUNGc|xsgg``Bg]GOCC@B`ABpAB8ABAABBGlo`O捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)     0:I1N:CT16DLİ30000:::CT1;:MN$(I)" -":CTCT1x:J1DL:DS$(I,J)""DS$(I,J)" "ĺ" "DS$(I,J):CTCT1:J::I:30000:::12000:a::"EBASIC -":" THIS MACHINE LANGUAGE PROGRAM":" CONTAINS NEW COMMANDS AND FUNCTIONS":" WHICH20)3N1SP$"S"3*6END OPTIONS6:11:8:"INSERT ANOTHER DISKETTE."c630000:CL$6CS(P(P(999))1)16:SLOT #6CS1CS7CS66CS::DESCRIPTIONS ::Z$DN$:S(20))DN$:Z$D2$:S(20))Z$:34,4:5:15060#:CTEMS.2PD(BADR)HO:F3N7PD: TWO COLUMNSQ2IL1:ELN2PD:EL9EL9:IL22LE$"-1"(EL):(CA)LE$LE$(1):HODRLE$LE$(4):DEFINE LEGAL INPUT CHARACTERS2BAHOLE$LE$(16)2F5N142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-DN$&/12:" DIRECT INQUIRIES TO:"/:12:"MECC DISTRIBUTION":12:"3490 LEXINGTON AVENUE NORTH":12:"ST. PAUL, MINNESOTA 55112":12:"(612) 481-3527"D/:30000:2DECIDE UPON SCREEN FORMAT2C2((N1)2):F2C2(N1)2:ODD # OF MENU IT:FL1V'955,T:FL1?`'FL1ĺD$"BSAVEDRIVE OPTIONS,A953,L6"Ej'\.SUPPORT BOOK INFO.IP$"":IN1IP$"INSTRUCTIONAL ".4:17(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC.".9:" TITLE: ";CN$(A)"...":D$"RUN"MN$(A);'HANDLE DRIVE INITIALIZATIONW'D$"BLOADDRIVE OPTIONS"$'T(P(P(999))1)16:T(953)10050.'(953)(956)Ĺ953,T:956,T:FL18'953,T:FL1B'T(P(P(999))14):T(955)10080L'(955)(958)Ĺ955,T:958,TN)* CAA$(1)ĺD$"RUNTEACHER OPTIONS"9 A((A$))l IN:BAAN1(HOA$(16))ĉ::D$"CATALOG": DRAN1PR(HOA$(4))ĺD$"RUN"X2$ AN2PDİ14000 AN1PDİ15000 AN4000 RUN THE PROGRAM:12:"GETTING "RT":N1PR". DRIVE SUPPORT"T HVV2PD:9(N9PD):N1PD". GENERAL INFORMATION"| RVV3PD:9(N8PD):N2PD". END" \ RESPOND TO USER'S CHOICE VVVV7PD:VV20VV20 IN11:VV:6F35:"WHICH NUMBER? ";:ZB1:ZTEL:37000:A$(Z":" VV7F5:HH9F38@ I1N:VV:HH(I10):I". "MN$(I)c VVVV1:F3IC2VV7F5:HH21{ I:VVVV2F2F3F6 *VV:6F35:"OTHER OPTIONS:" 4BAHOĢVV2:9(N9):N1". EXIT TO BASIC" >DRHOĢVV2PR:9(N9PR):X2$"DRIVE SUPPO,L1):: t13000( y(1023)DN1200: ~DISPLAY LOGOZ J1LD:(16384)128JLDx J:16368,0:1023,DN:: 17000 BE A HELLO PROGRAM 2000:3000:1210 DISPLAY MENU  Z$DN$:S(20))Z$ 5F5:6F35:"PROGRAM"SP$ 230,64:D$"BRUNLOGO":16297,0:16299,0:16304,0:16302,0O DRİ10000j .USER BINARIES GO HERE~ BD$"BRUNEBASIC" LREAD IN DESCRIPTIONS AND FORMAT SCREEN VDN$,D2$,N `MN$(N),CN$(N),DS$(N,DL) jL1N:MN$(L),CN$(L):L11DL:DS$(L:P(S)(S)(S1)256G :DL4:CA0:DR0:BA1:IN0:HO0:LD300:DI0 DL=DESCRIPTION LINES,CA=TEACHER OPTION,DR=DISKETTE SUPPORT,PR=PRINTER SUPPORT,IN=INSTRUCTIONAL,HO=HIDDEN OPTIONS,LD=LOGO DELAY,DI=DISCLAIMER D$(4) DN:(1023)DN1100@3(65435)6ĺ(4)"PR#0":(4)"IN#0":16372,0S PROGRAM:STANDARD HELLO 5.0rPROGRAMMER:SHANE MCCARRONCOPYRIGHT:MECC, 1983(LAST UPDATE:84/02/10 RPB2TEXT VERSION<INITIALIZATION(4)"MAXFILES1" S(S)S(Z$)2        " PROGRAM:EXAMPLE #16 AUTHOR:SHANE MCCARRONQ COPYRIGHT:MECC, 1983l( LAST UPDATE:83/10/032 ENVIRONMENT:48K APPLE W/ EBASICMAIN PROGRAM81921000011000Z$"CHECK BOOK HANDLER"::S(20))Z$U 7:"YOU MAY:    """ P141300202Xu1:868:1::ZV:ZH:16368,0:<y::_STANDARD RANGED NUMERIC INPUTZH(36)1:ZV(37)1:ZF0:Z10ZFZH:ZV:868:"";Z$:ZN(Z$)(ZCZ$"")(ZNZBZNZT)24:Z$"ENTER A NUMBER BETWEEN "(ZB)" ANDB"ST. PAUL, MINNESOTA 55112":32,0:30000:M0uSTANDARD SPACE BAR ROUTINEl5uZH(36)1:ZV(37)1:ZF0:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000 NuZP160ZIN THE"|B:"DEVELOPMENT OF SOFTWARE. HOWEVER, IF"::"YOU PLAN TO MARKET THE SOFTWARE, YOU"::"MUST SECURE PROGRAM DISTRIBUTION RIGHTS"::"FROM MECC."B32,2:::"DIRECTOR OF MARKETING AND DISTRIBUTION":"MECC":"3490 LEXINGTON AVENUE NORTH"- EXTEND APPLESOFT BASIC.":" IT DOES NOT APPEAR ON THE MENU":" SCREEN, BUT CAN BE ACCESSED BY":" TYPING 'BRUN EBASIC' FROM BASIC.":30000::hBPRODUCT NOTICErB:4::"NOTE: YOU MAY USE THESE PROGRAMS IN"::"INSTRUCTIONAL SETTINGS OR ! & 4:"DATE? ";DA$:DA$(DA$,8)Q 0 :"AMOUNT? ";:ZB0:ZT10000:NUMERIC:AMZN : 2:958:10:"YOU DEPOSITED "("$$$$$.##",ZN)" ON "DA$".":"IS THIS CORRECT? ";:YESNO D Z$"Y"CTCT1:DA$(CT)DA$:AM(CT)AM:CN(CT)0:WH$(CT)"BANK":BABAAM N  OPEN:ZFı7 :Z$"CHECK BOOK HANDLER":S(20))Z$h 5:"YOU MAY:"::L15:" "L". "EM$(L):: :"WHICH NUMBER? ";:ZB1:ZT5:NUMERIC ZN5ZN0:WRITE: :Z$EM$(ZN):S(20))Z$:ZN3100,3200,3300,3400 3010  MAKE DEPOSITSOU LIKE TO CALL YOUR NEW ACCOUNT? ";:LEGALF VERFY:2:958:12| ZF:1:Z$"THAT FILE ALREADY EXISTS.":S(20))Z$ 0:D$"OPEN"Z$:D$"WRITE"Z$:0","0:D$"CLOSE":Z$"NEW ACCOUNT CREATED":S(20))Z$  SPACE: EDIT AN ACCOUNT "::" 1. CREATE A NEW ACCOUNT"::" 2. EDIT AN ACCOUNT"::" 3. RETURN TO MENU": :"WHICH NUMBER? ";:ZB1:ZT3:NUMERIC ZN2000,3000,4000 $1020  CREATE A NEW ACCOUNT Z$"CREATE A NEW ACCOUNT"::S(20))Z$. 12:"WHAT WOULD Y:"PRESS ";::"SPACE BAR";::" TO CONTINUE";q Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000 NuZP160ZP14130020 Xu1:868:1::ZV:ZH:16368,0: y STANDARD ENDING ROUTINE "y: ,y12:"WOULD YOU LIKE TO TRY A MAKE WITHDRAWALS7 4:"DATE? ";DA$:DA$(DA$,8)w :"CHECK NUMBER? ";:ZB1:ZT10000:ZC1:NUMERIC:ZC1:CNZN :"WHERE TO? ";WH$:WH$(WH$,12) :"AMOUNT? ";:ZB0:ZT10000:NUMERIC:AMZN8 2:958:4:"YOU WROTE CHECK NUMBER "CN:"FORTEMENT1M CT:0:12:Z$"NO ENTRIES":S(20))Z$R :LC0:TC0:TCCT:LC0Ģ3:958:"CHECK WRITTEN AT DEPOSIT WITHDRAWAL":\ TCTC1:LCLC1:Z$(CN(TC)):(">#### ",Z$);("<########### ",WH$(TC));f CN(TC)(" $$$$$.##",AM(TC) $"AM" ON "DA$" TO":WH$".":"IS THIS CORRECT? ";:YESNO Z$"Y"CTCT1:WH$(CT)WH$:AM(CT)AM:CN(CT)CN:DA$(CT)DA$:BABAAM  CHECK YOUR BALANCE 12:"YOUR CURRENT BALANCE IS "("-$$$$$$$$$$$.##",BA)".":SPACE H PRINT YOUR STA "(ZT)".":S(20))Z$;:Z11(ĐZF1.ΐ4ؐS␭Z1Ģ24:1:868:ZV:ZH:Y쐱hPòDATA AREAZà 123,"EXTENSIONS TO APPLESOFT BASIC","VERSION 1.2",2?dÃ"EXAMPLE #1","EXAMPLE #1","THIS CHECK BOOK HANDLING PROGRAM,","WRITTEN IN STRUCTURED BAS4N(ZF)#>NZV:ZH:868:"";Z$IHNZF1:ZL1(Z$):ZN((Z$,ZL,1))RNZN65ZN90ZF0:Z11:ZL(Z$):24:Z$"PLEASE ENTER A LEGAL FILE NAME.":S(20))Z$;\NZL:fNZ1Ģ24:868:ZV:pNR CHECK FOR FILE Z$RZE0:ZU1:ZEĺD$"VERIF"FEATURES OF EBASIC." +::"RUN THE PROGRAM, THEN STUDY THE LISTING"::"AND THE SUPPORT MANUAL FOR THIS"::"DISKETTE, TO LEARN HOW TO USE EBASIC"::"IN YOUR OWN PROGRAMS."+SPACE: N GET LEGAL FILE NAME*NZH(36)1:ZV(37)1:ZF0:Z10 OUR STATEMENT":EM$(5)"RETURN TO MENU"8'SPACE30000:LEGAL20000:VERFY21000:OPEN22000:WRITE23000:YESNO36000:NUMERIC37000t'* INTRODUCTION SCREEN+:4:"THIS IS A CHECK BOOK HANDLING PROGRAM.":::"IT PROVIDES EXAMPLES OF MANY OF THE"::)p ("$$$$$.##",AM(TC)):5z LC17İSPACE:LC0= :J SPACE:T END_31030t' INITIALIZATION'32000'D$(4)$'S(S)S((Z$)2)&.'EM$(1)"MAKE A DEPOSIT":EM$(2)"WRITE A CHECK":EM$(3)"CHECK YOUR BALANCE":EM$(4)"SEE YIC, PROVIDES","EXAMPLES OF MANY OF THE FEATURES OF","EBASIC." nÃ"EXAMPLE #2","EXAMPLE #2","THIS SHORT PROGRAM SHOWS HOW TO USE","THE SCREEN COMMAND IN EBASIC.","",""PLE #1","EXAMPLE #1","THIS CHECK BOOK HANDLING PROGRAM,","WRITTEN IN STRUCTURED BAZ1Ģ24:1:868:ZV:ZH: 쐱 D& STANDARD RANGED NUMERIC INPUTJZH(36)1:ZV(37)1:ZF0:Z10TZFvZH:ZV:868:"";Z$:ZN(Z$)(ZCZ$"")(ZNZBZNZT)24:Z$"ENTER A NUMBER BETWEEN "(ZB)" AND "(ZT)".":S(20))Z$;:Z11ĐZF1ΐؐGAIN? ";:YESNO:Z$"Y"ĬB 6y:12:"GETTING THE MENU PROGRAM..."T @yD$"RUNHELLO"q STANDARD YES-NO INPUT ZH(36)1:ZV(37)1 :ZV:ZH:868:"";Z$:Z$(Z$,1) Z$"Y"Z$"N" Ȍ BA$:CT","BAHYL1CT:CN(L)","AM(L)","WH$(L)","DA$(L)::D$"CLOSE"NA$NZo0u STANDARD SPACE BAR ROUTINE5uZH(36)1:ZV(37)1:ZF0:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ĺS(20))Z$:ER1:SPACEV1:ZE0:ER0:D$"OPEN"NA$:D$"READ"NA$:ZN,BA:CT0:CTZNCTCT1:CN(CT),AM(CT),WH$(CT),DA$(CT)::D$"CLOSE""V,VY WRITE OUT THE FILEYCT0ıY2:958:12:"ONE MOMENT PLEASE..." YD$"OPEN"NA$:D$"WRITE"NY"Z$ RZU0RZF0:ZE&&R6:ZF020R0:ZF1?:R32040EDRKNRaU OPEN AN ACCOUNTUER0:2:958:12:"WHAT ACCOUNT WOULD YOU LIKE TO":"EDIT? ";:LEGAL:NA$Z$VVERFY:ZFV0:2:958:12:Z$"THAT ACCOUNT IS NOT ON THIS DISKETTE":