' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L65 & "L}"BB5L&]655555553L36 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>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,&"_*]6` L/  !"#$%&'()*+,-./0123456789:;<=>?80^݌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^6L6 i:5`  \* ?*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`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#򮠨󍱲ةةة堹ҮӠ퍨堵ͩ䠨󍵱ӤؤЩؤ۬ݍ󬠣󬍠۬󬍠ݍ宬Ġ婮䬍ҮӠ򬠣󬠠򬠍魍󍴹宍笠Ơ䬠ҠΠ򮍍נԠӍҮӠ堨䬠Ҡ䬠宠󮍍宠ɠ᠍򮍍嬠欠嬍ҮӠ󩬠䮍堲堳宠ɧԍ󠳹䍴卨󩮠報宍ﬠ堲󠲱䍲笠堲嬠殠ɧ䮠ɠɠ堨婠䮠󠵸䠨դ宠嬠䮠󠳴դ箠箍󠱷讍󠱵⭍宠仍ƤҤвде䠍ŤŠҤ堹堨危󠱲Ƥбвгде󺍍Ƥбв䮠箍䬠䠠Ӥؤä򩬠卨 󮍍䬠卵䮍宍ä䍲宠󮠨ɠɍ󠹸ڠɠ󠨱堨⬠ج٩ɠ卵ﬠ͠堹宠堍箠卨嬠婮ɍ宠ﬠ堳Ҥ䮠󠷳䠷宍嬠宠ààҤƤҤҤ獍ҮӬ堶쮍΍㠷䠷ٻ嬠󠶹䩠ήˠ場宍󠴳笠써堨ɠ場宠堲䬠堲䮍廠̍宍場宠󠳸䠳ᮍҤ̠ͤᬠ묠Ԡ䬠䠢ħ堳ά䮍栤ẍ쭍󮍍蠨䬠䮠欠嬠󍬍뮠䮍䬠󮍍報䬍ŠĠԍĠԠԍ٠ԠԍԠŠƠŠԍԍҠՠҠŠנӍΠӠξ婠͠Ӎ뭍報󠱭Š̠ҍΠŠԍΠԍ宍讠䬠堤ɧ宠ɠ󮍍䬠쮍򩮠󮍍Үӧ써堨򠰠嬠嬠嬠堨ͬѬ󮍍堨箬󠱳䬠䮠䬠䮠孍報宠嬠蠤ǠŠ͍捤堍根䮍嬠䬠卍婠宠箬宍箍󠲸魍ᩮ󠲹󠲴󠲵󠲶箠󠲷孍󠲹쭍󠲳魍箬򍳮󠲲󠲳ɠɮ堲٠ٮ󠲰堲ɍ嬠宠󠱹堨쮠ﮠ󠱵宠󠱷捍󠱱󍱰󠱳報󠱴宍󍸵󠹴󠱰䭍宠嬠嬍󮍍堶䮠󠷰󠷷堲殍󠲶堳쭍󠳵嬠󠱸卲報נŠ͠Ӎ󠸰䠱䬠젠宍Ԥ򍠠쮍Ӡɠ􍠠 占Ҡ٠򠍠򮍠ѤЩ󮍍Ҡ󍠠Р󍠠󮍍Ф占宍͠򍠠󮍍٠捠Ф򍠠ɠ򍠠Τ宍դЩ䮍Π󍠠􍠠宍̨Щ捠占ɤ􍠠ɠӠ󮍍äЩ䍠宍٠̠捠ȨЩĤĬ䍠Ӡﭠ宍讍ɠ占򮍍ˠ򍠠箍Ԥ庠򠍠̤宍٠򍠠àҤҤŠ󍍍堠͠򍠠堨箬Ӎ堲孍卲󺍍ò䮍쮠򠱰򍵰䬠쬠䮠쬠ǠŠō嬠ΠήӮ報讠堍󮍍堍쬠堍᭍󩬠ΠӍ汵Ԡ􍠠􍠠򠷲ɠР䍠쮍Ҡ占宍Ԡ֨Щ썠󮍠Ԡ謠荠場Ф򠠠ШЩ捠㮍٠ɠ􍠠Р捠䮍٠堲嬠٠婬٠㮠ƠƠîƠ󠲵٠ٮà쭍堲ج٬Ƭàؠ٠ӍӮƠԬԍƬ宍Šﮠ堍Ԡ䬠󮍍䬠堍ԠŠ堍򮍍ԬŬӬȬӬج٬Ơî嬠ؠٮ䬠堨؍٩嬠䮍Ԡ䮠䮍ԬӬȬӬجȠٮ嬠讠𮍍󮍍宠͠΍ĭ卍󍰰䬠宠俠쭍󠱩䭍󠰰嬠Ҡᬠ󠱱嬠宠ᠨҠƩ滍䠭殍宍嬠ؠٮ堲ؠؠ㭍٠٠庍ٍ蠠蠠؍䬠堠庠嬠嬠嬠婮᭍亠嬠筍讍𩮠ẍӨرñزòرز嬠ñòﮠ箠嬠ج٠ج٠䮠󮍍堍宍孍􍠠󍠠捠㍠􍠠󺍍占􍠠䮍􍠠宍쭍嬠󮍍䬠堨󩮍宠ᬍ宍宠宠䮠󮍍********* GET HI-RES SCREEN AND SET DISPLAY SWITCHESe x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILED ******* 8/08/86 *******;* HELLO *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9704 n *            32,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253,240,253ive.":"("(222);")"::1190x(1360)193(1360)211Ģ19:1:" ":2:1:" "EQ110:EY(16336)(164,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATAC 160,11,169,3,1ASE HANDLER )L54,240:55,253:1002:YV ********** INSTALL INPUT-ANYTHING ROUTINEh`X768839vjA:X,A:|t~ ********** INPUT-ANYTHING ROUTINE DATA 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165A 18KEYSTROKEFLAG$""_23:" for next page or for menu";:49168,0:49152,128}(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I023:ML:768I,ML:I:768: B ********** DETACH UPPER/LOWER C1101)6ė:768^(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600  ********** WAIT FOR o quit? (Y/N)";:49168,0049168,0:49152,128b(49152)249(49152)217Ĺ49168,0::1100:h ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(LID MENU CHOICE0H49168,0::1100:D$;RC$(SL)TR ********** CATALOG SELECTED u\:49168,0::D$;"CATALOG":f24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want t700 8006 ********** PRINT POINTER SUBROUTINES 61N:SX:X$(SLOS);:v ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL):> ********** EXECUTE A VA:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z101(ME1):8:ME1". Catalog Disk"<61ME:8:ME". Quit"p21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868]1" D1030(N ********** SET UP MENUNXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):!6Ȗ6:"Thanks again for your order !"-12:V6:"ALL PROGRAMS ON THIS DISK ARE"&6:"COPYRIGHT (C) 1989 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL):Z 1030:FLAG$"ESC"ī600Q  ********** CYCLE THRU NIBMENU TEXT SCREENSY A1b :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :3#1)"#"350 T320# ^D$;"CLOSE"` h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for purchasing the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z A$ = DISK NAME? NA$"NIBBLE "A$:22:20((NA$)2):NA$:1j NP: NP = NUMBER OF PROGRAMS ON DISK I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1, 11202 P$(20): P$ = PROGRAM NAME a S$(300): S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$:ނށ퀀چआچچہɌ뚀㘀᐀뚀뚀솀ֵƱ¡ֵꫀֵ움؍뀀䀀 À뀀׀뀀طЊԪԪЊՀՀЪЪnoCosooop(U *U*W @ @(U Em}mmm%n]nnՀՂՂՀЀԂՊՊԂЀ UU(U  U@**P*P:P` @**U T U* u* (@U T*(@*U@jU@P@*U+5*(T*P U*U+ (VjT*P 䮍ñò嬠䮠PT@!`p0`p0@!TP (2@g@g2( @P dNNdP @  B B kl6lflllmP*@*T*@*jQbjk7mnr"s|ss0ttt=uUumuuuuuuuuuv vv7zxx{w{wvv3pquzz{zzzzzzzz{{|pjjjk0k`kk @*LL@* U0  0U(*` 0808` *(     ajZi e 0 ؋ `N****)O)E8&O&NO8e`  p``PP@0  "$&(0PP` ׌  + @` &e/e `)e/e*e0eL,e/eLe+e) `!e/e 8 )/e F ؋x ؋`e/eHJJJJ h) ` JjȹJj i `^j_ji #e ``jhȱ `eiɂ`e$e 98$e ؋` D% D`FjȹFje$ei `$e8b"bU%eJ*I%e`$e8"bb`~ed!ee A!e ؋!e!e`HJJJJh8"e0"ef,gbdf`%eJ`emee 7Le 7L A`8ee`ea`H!ei |e h jȹ je!e `"bebiemei `eff ai$`a` Hf2f}g jȹje2fydfɰ _e df _e2ffyfffy,gf f iL$f iL$ Lሩ8dfdf`8ff,g,g`ee ee`@eeeȈfeff!ei2fe ,芙fJeJeJ fif ,8]f,g ]egi `e#e"eȈ0f`ff z2f `)0g0`hv"ey#e^gg z׹g ϩ`E`8P8P8 em#e ̈ em#e`88 em"e ̈"em e`8`eeȈ0feL`000 JLL}hyh}hThi0ThgyThgHssghhL冩+h+hy^g^gygg^g & ^g8+h+hL^gg8+h+hg h0L冄^gg ai$`a` Hyh 4jȹ4jhȱm&e&em'e'em(e(e fee h)` ӆ`h +hh}hThg`"e ӆ`h +hTh}h@hg"e"e0ɭe` ӆ(h (g`f^gfg2fg`'g0`(g`h4 glp~p|ժժժ ?~ GC@F- U5xsg`c00@` 80|. U5x{w cY#8X03X0FC30%*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*R@* @?p~px|Ԫժժժժ pcFU* @?`ysc'C&0.cFc&(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*R@* @?p~px|ժժժժժ pcFU* @?p~p|ժժժppp}{c0 cFc&(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~Ap||xժժժՂ N?p1 U4p0 cFc& U*U*U*@@ @%P*U*U*U*U*U }<_/" p@Pgp{?"dydw!<MժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~px|xժժժՂ n_?E U @?`p~9`C  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժRT* @?p~px|ЪժժժՊ dOE U @?`p~?pxԊԪ `|yg~ DEFLATION DOLLARS: ";N$+.6 250:690:1410.@ " LOAN SCHEDULE ACCOUNT "," LOAN CHART "," FUTURE FUND ACCOUNT "," SCHEDULED DEPOSIT ACCOUNT "," MONEY MARKET ACCOUNT "," PRESENT VALUE OF A FUTURE AMOUNT "," QUIT "S/J "Reason for Loan:",1,19,20,2,"Am#- 200:36,((WT34)2):MU$(6):- NAM:700:"FUTURE AMOUNT: ";N$::"ANNUAL INFLATION RATE: ";I$;"%"::"NUMBER OF INFLATION YEARS: ";NP$-" N(.5AM((1CI)NP)100)100., :DC$(2):TPAMN:700::"PRESENT VALUE OF AMOUNT: ";N$:NTP:700::"TI:700::DC$(10);N$), 250:690:1410Q, ::1:36,3:MU$(6)::S31:TP$"A"], YS34, V(Y):36,1:MN$(Y);:958:350, N$EX$N$VT$2820, Y31İ1160, Y32İ1200, Y33İ1220, Y34İ1270, CK1CK0:198:2750- :1290:1290)+n 200:36,((WT22)2):MU$(5):+x NAM:700:"AMOUNT OF DEPOSIT: ";N$::DC$(6);I$;"%"::"INTEREST COMPOUNDED: ";:1340:::DC$(7);NP+ N(.5AM(1CI)(PYNP)100)100+ :DC$(2):TINAM:700::DC$(11);N$, NAM:700::DC$(8);N$:N:700::DC$(10);N$'* 250:690:1410G* ::1:36,8:MU$(5)::S26S* YS30w* V(Y):36,1:MN$(Y);:958:350* N$EX$N$VT$2660*( Y26İ1160*2 Y27İ1180*< Y28İ1200*F Y29İ1220*P Y30İ1270*Z CK1CK0:198:2580+d 90%) 200:36,((WT27)2):MU$(4):Q) DC$(5);:1340::NAM:700::DC$(9);N$s) :DC$(6);I$;"%"::DC$(7);NP) N(.5AM(1CI)(((1CI)(PYNP)1)CI)100)100) :DC$(2):TP(PYNP)AM:TINTP:700::DC$(11);N$* NTP:700::DC$(8);N$:NTI0::DC$(10);N$#(B 250:690:1410C(L ::1:36,6:MU$(4)::S21O(V YS25s(` V(Y):36,1:MN$(Y);:958:350(j N$EX$N$VT$2480(t Y21İ1180(~ Y22İ1160( Y23İ1200( Y24İ1220( Y25İ1270( CK1CK0:198:2400) :12):MU$(3):L' NAM:700:"FUTURE VALUE OF ACCOUNT: ";N$::DC$(5);:1340:n' :DC$(6);I$;"%"::DC$(7);NP'$ N(.5AMCI((1CI)(((1CI)(PYNP))1))100)100'. :DC$(2):TP(PYNP)N:TIAMTP:700::DC$(9);N$(8 NTP:700::DC$(8);N$:NTI:70z#? ؠҠ Ԡ   ҠӺ ĠҠӠҠҠCàҠKΠҠ9   ҮӠ'  ̠ Һ  ήà/  ήӠ ӠӮӠӮ  ҠӺ   ϠЮΠ ՠ   ΠӺ   ŠҠˠ  Ԡ٠  Ԡ̠Р  Ĭ    !!!!`тТԨѠТѢѢԈ66666<066666ԨѢԨтŊԨĨĈĀĈĈĈЀŊĈĨĈĈԨԈЂԈѢ@P* U UEzEzEzEzEzEzEzpU*p@   8 pU*p8<<60 >>6006666~~00>>068 >ff<>>0 6   @*U@  @@  @U*@ @@ @*T  @@  @@ T ( @@  @@ (@*@@@ ( (@U *T *(@P@P(*T (T* P   PT*(P*(U  @ @ (UP* UP*(@(@P* UxyGywyyyz@* (T*T*(@P*(U(UP* UP*P* U wwwxIxyxx@* UP( ( P U@*U@*  PP  @*U*U @8888pppp````@@@@+v[vvvvwKw@* U U@*(U@*@*U(P*U U *P T **T @\*UV*UժժV*U\*U|*Uf/} 3~O3XДՄՔՒԪժȪժժҔԒЪԪՂժժԪЪՊՄժժȪʪ Ҫ ժՊЃՊЃp`*Uj@+Uj@/Uz`|UO0f06``@@y+_*uW*U@U*U`ՂՂ`@U*UW*U_*u@y+`L3`l6@ @ sW>>Uj.U*+U*@ժՌժՌ@+U*.U*>UjsW>@g @Yl ~f/} |*U,U*8U* xU*L_zf|3f03 ` x`?u3p+Up*UX*U:|?|?X*U:p*U*p+U?u3Ly?fL `f@pA0~jg`W*=`U*50U*uxتتx0U*u`U*5`W*=0~jgsL@M00``|UO@/Uz@+Uj`*Ujp pxp @`p`@@`@@0|?0L_zxU*8U* ,U*~պպ~0h`j thp`P @Th P`@ @(+P @qqqr?rgrr>8|8ցɁƁցց඀Apqpppq1qaq@ PV /@- -@^- Z$@Z=Z<4H05z4x0,4, 1,16,8, -1, 1,0,0, -4, -1, -2, -1 |  #,21,15, 2,8,3,5,3, -1, -1, 1,4,19, -4, -4, -1, -1, -1, -4, -4, -4, -1, -1, -1* $, 37,13, 2,4,3,6,9, 2,4,3,5,11, -2, 3,4,3,5,3,5,3, 1,3, 21, -5, -4, -5, -5, -4, 2,4,11,5,3, -11, 2,5,9,6,2b4 %, 42,10, 2A$"F"ĺD$"PR#1":(12):D$"PR#0":700NA$"L"ĺD$"PR#1"::D$"PR#0":700^A$"R"120h::~ CHARACTER SET " ", 10,8, 1,0,0, -1, -1, -1, -1, -1, -1, -1   !, 16,6, 1,14,3, 2,4,1,6,9,2, 3,3,2,15, -3, -2, -1' "", 14,8, 1,2,T1)) BTT1:L#150dI:P1$"":P2$"":P3$"":P4$""::D$"PR#0":3:958:MM$::6:1:958:"F)ORM FEED, L)INEFEED, R)ERUN, Q)UIT >";:A$:A$:I1100::10, 9, & 6 SPACESA$"F"A$"L"A$"R"A$"Q"Ė1:6:958:700'::12:"PRINTING..."+DD$"PR#1":P5$;CNP1$;:P2$;:FT$;:SXI1(MM$)zbC$(MM$,I,1):C(C$)32:C58690lT0:L1A%(C,0):C$(L)""vA%(C,T1)0C$(L)C$(A%(C,T1)):670B1A%(C,T1):TT2C$(L)C$(L)S$(A%(C,T))X$(A%(CA$:A$"Y"Ģ6:958:MM$"":2608 MESSAGE PRINTERKS$(1)" "570v:12:"DEFINING CHARACTER SET..."::N122:M1N:S$(N)S$(N)" ":X$(N)X$(N)"@"::N058:Y$,MN2ĺ(34);" ";:560&Y$;" ";0L0M:A%(N,L)::0 ANSWER GETTERY12:26:SL$:SIZE$"":SL$"L"SIZE$P4$:SL$:PT$"E"P2$""{SL$"L"P1$"":12:26:"S"U$" ":15:26:A$:"N":A$"Y"Ģ15:26:"Y":U$"@@"FT$"":18:26:A$:"N":A$"E"Ģ18:26:"E":FT$P3$ 20:26:A$::=-+;<,>.?/ ";:'^ MESSAGE GETTER2h6:15PrA$:A$(13)MM$""440|A$(8)(MM$)2MM$(MM$,(MM$)1):1008:868:370A$(8)(MM$)1MM$"":15:868:370(A$)32370(MM$)225ĺ(7);:370MM$MM$A$:A$;:37";::"S";::"/L) >":" SMALL/LARGE)" @15:"UNDERLINE? (Y/";::"N";::") >":"---------":18:"NORMAL/EMPHASIZED (";::"N";::"/E) >" J20::15:"OK?";::" (Y/";::"N";::") >"T24:1::" CHARACTERS: A-Z 1-0 !"(34)"$()*ENT);U$::  MAIN PROGRAM&  3:" PRESS CAPS LOCK KEY DOWN.": DELETE THIS LINE IF YOU DON'T HAVE AN APPLE //E "MM$"":4:1 ,"YOUR MESSAGE MAY BE 225 CHARACTERS LONG.", 66:1:"YOUR MESSAGE: ":12:"TYPE SIZE: (PRINT SUBROUTINE0 INDENT24:SL$"L"INDENT6^ J1A%(C,0):SIZE$;INDENT);U$;C$(J);LF$e Jw U$" "220 SL$"L"ĺ:::: Z14:LF$:: I(MM$)ı SL$"L"250 Z13:SIZE$;INDENT);U$;LF$:: Z13:SIZE$;IND"< >";:1008:1008:PT$:PT$:PT$"E"PT$"P"110 xPT$"E"LF$"":P1$EE$"W"(1):P2$EE$(65)(6):P3$EE$"E":P4$(14):P5$EE$"@" PT$"P"LF$"":P1$(9)"80N":P2$EE$"B"(6):P3$EE$"!":P4$(14):P5$EE$(34)(15) 260 BANNER.BOSS ":"COPYRIGHT 1985-89, MINDCRAFT PUBL.CORP."::34,2 ZC$(26),S$(22),X$(22),A%(58,123):EE$(27):D$(4):U$" " d:8)"WHAT PRINTER DO YOU HAVE?"::14)"PSON":14)"

ROWRITER/IMAGEWRITER"5 n13:14:958:%# ****************************E* BANNER.BOSS *g* BY DAVID SIGETICH *(* COPYRIGHT (C) 1985-89 *2* BY MINDCRAFT PUBL. CORP. *<* CONCORD, MA 01742 *F****************************W P:::"                 )-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048,6, -5, -4, -3, -2, -1 9, 64,14, 1,15,2, 1,14,5, 1,13,8, 2,12,3,2,6, 2,12,2,5,5, 3,3,2,6,2,8,3, 3,3,4,4,1,11,1, 3,3,6,2,1,9,3, 2,5,7,8,4, 2,7,6,6,4, 2,8,7,2,4, 1,10,9, 1,13,5, 1,15,2 ":", 8,4, 2,8,3,5,3, -1, -1, -1 ;, 22,4, 2,3,3,5,3, 3,1,,12, 2,3,2,16,3, 2,3,4,14,3, 2,3,6,12,3, 2,5,6,10,3, 2,7,6,8,3, 2,9,6,6,3, 2,11,6,4,3, 2,13,6,2,3, 1,15,9, 1,17,7, 1,19,5, 1,21,3 8, 55,15, 2,7,3,7,3, 2,6,5,5,5, 2,5,7,3,7, 4,4,3,2,4,1,3,3,3, 4,4,2,4,3,1,2,5,2, 3,3,2,6,4,7,2, 3,3,1,9,1,9,1, -7, -7, -,3,2,8,2,6,3, 3,3,1,9,2,6,3, -7, -6, 3,3,4,5,3,6,3, 2,4,10,7,3, 2,5,8,8,3, 2,7,5,9,3 6, 64,14, 1,10,2, 1,8,6, 1,8,9, 2,5,5,2,7, 2,4,4,6,6, 2,3,5,7,7, 3,3,3,9,1,2,6, 3,3,1,11,1,4,4, 3,3,3,8,2,6,2, 2,3,5,5,2, 2,4,6,2,3, 1,6,8, 1,8,5, 1,10,2 7, 52,4,6,7,6, 2,5,4,9,4, 2,6,2,11,2, 2,7,2,11,2 4, 43,13, 1,12,3, 1,12,4, 1,12,5, 1,12,6, 2,12,3,1,3, 2,12,3,2,3, 2,12,3,3,3, 2,12,3,4,3, 2,12,3,5,3, 1,3,21, -10, -10, -1T 5, 67,13, 2,7,1,5,11, 2,6,2,5,11, 2,5,3,5,11, 3,4,3,6,2,6,3, 3,3,3,7,2,6,3, 3,3,3,4,3,10,1, 3,3,3,5,3,9,1, 3,3,3,6,3,7,2, 3,3,3,7,3,6,2, 2,3,3,8,9, 2,3,3,9,7, 2,3,3,10,5+ 3, 86,13, 2,7,1,11,1, 2,6,2,11,2, 2,5,3,11,3, 2,4,3,13,3, 3,3,3,7,1,7,3, 3,3,2,7,3,7,2, 3,3,1,7,5,7,1, 3,3,1,6,7,6,1, 4,3,2,4,3,3,3,4,2, 4,3,3,2,3,5,3,2,3, 2, -4, -4, -4, -4, -4, -4, -2, -2, -1 1, 39,13, 2,3,3,11,1, 2,3,3,11,2, 2,3,3,11,3, 2,3,3,12,3, 2,3,3,13,3, 1,3,20, 1,3,21, -7, 1,3,3, -9, -9, -9, -9\ 2, 79,13, 2,3,4,12,1, 2,3,5,11,2, 2,3,6,10,3, 3,3,3,1,3,10,3, 3,3,3,2,3,10,3, 3,3,3,3,3,10,2, 31,1,3, 1,1,5, 1,2,4R -, 13,11, 1,12,3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1r ., 6,4, 1,3,3, -1, -1, -1 /, 30,10, 1,3,3, 1,5,3, 1,7,3, 1,9,3, 1,11,3, 1,13,3, 1,15,3, 1,17,3, 1,19,3, 1,21,3$ 0, 22,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -457,19, 1,12,3, 3,6,1,5,3,5,1, 3,6,2,4,3,4,2, 3,6,3,3,3,3,3, 3,7,3,2,3,2,3, 3,8,3,1,3,1,3, 1,9,9, 1,10,7, 1,4,19, -9, -9, -8, -7, -6, -5, -4, -3, -2, -1z +, 17,13, 1,12, 3, -1, -1, -1, -1, 1,7,13, -6, -6, -1, -1, -1, -1, -1 ",", 14,4, 1,3,3, 2,1,,9,1, 4,4,2,2,2,3,2,8,1, 4,4,2,1,2,5,2,7,1, 3,5,4,6,2,5,2rH 2,6,2,9,6, 2,5,3,11,3, 1,5,4, 2,4,2,2,2, 2,4,2,3,1R ', 7,3, 1,20,4, 1,16,8, -1\ (,12,6, 1,3,21, -1, -1, 2,3,3,15,3, -4, -4f ), 12,6, 2,3,3,15,3, -1, -1, 1,3,21, -4, -4p *, ,3,3,13,3, 2,5,3,11,3, 2,7,3,9,3, 1,9,3, 1,11,3, 1,13,3, 1,15,3, 2,5,3,9,3, 2,5,3,11,3, 2,5,3,13,39> &,116,19, 1,6,2, 1,4,6, 3,4,2,2,3,6,2, 3,3,2,4,2,4,6, 4,3,2,5,2,1,4,2,3, 3,3,2,5,5,6,2, 3,3,2,6,1,10,1, 3,3,2,5,3,9,2, 4,3,2,4,2,1,1,9,2, 4,3,2,3,2,3,1";(NA$,(NA$)1);" PAGE #";P;" **"6 xUL$"N"İ1270R D$;"OPEN ";NA$;",L960"m D$;"READ ";NA$;",R";Py F021 768,A$:A$(F)A$ F D$;"CLOSE ";NA$ DISPLAY SCREENS UL$"N"İ1280: ACTIVATE UPPER F021(4) I(75):F071:I(F):9 (U(23):F023:U(F):L 2H$(25),B$(25)p <1270: ACTIVATE INPUT ANYTHING F(1101)6UL$"N": NO UPPER/LOWER CASE DISPLAY.. SET FLAG PA$(25) Z430 d READ DOCUMENTATION FILES # n:10:"** READING !**************************A* READ SAMPLER ARTICLES *a* BY FLH ** COPYRIGHT (C) 1987 ** BY MICROSPARC, INC. ** CONCORD, MA 01742 *************************** XL(54):XH(55) D$     Ӫ͠Ӡԍ̠ōҠӠҠӠӠUL$"N"İ1280F2:"DISPLAY Article Mode":"====================""You can display each page of the":"article and use the 'N' and 'L' keys":"to display the N)ext page or L)ast":"page in sequence."G&PT$"Y"ĺ:"You can use the'P' key to P)R If you have a printer, the control":" card/cable should be in:"::" * SLOT #1 of an Apple IIe or ][+":" * Printer Port of an Apple //c or IIGS"18:968:"Do you have a printer? (Y/N):";:PT$:PT$:PT$"Y"PT$"y"PT$"N"PT$"n"500(4);"NOMONIOC"OSE$(1)"BANNER.BOSS":SE$(2)"FIN.CALC":SE$(3)"TITAN.CRONUS"bUL$"N"İ1280:5:"Welcome to the Nibble Sampler!"::"This program displays and prints the":"articles which describe the programs":"and how they work."::""L"K$"l"K$"P"K$"S"K$"E"K$"p"K$"s"K$"e"290SrK$(13)ĺK$f|K$(13)ĺK$;yUL$"N"İ1290K$"N"K$"n"āFF3801:32,FF:33,40FF::FF:PP1:220 SETUP XL = PEEK (54):XH = PEEK (54)JPT$"P"PT$"y"PRĢ23:958:36,0::"[FINAL]";::" ";::"S";::")TART OVER..";::"L";::")AST...";::"E";::")ND:";::K$ TP1(K$"L"K$"l")290 ^PRK$"L"K$"E"K$"P"K$"N"K$"l"K$"e"K$"p"K$"n"290@hPRK$")RINT... ";::"E";::")ND:";::K$p 6PT$"Y"PT$"y"PRĝ:"L";::")AST... ";::"E";::")ND:";::K$ @(PT$"P"PT$"y")PRĢ23:958:36,0::"[FINAL]";::" ";::"S";::")TART OVER..";::"P";::")RINT...";::"E";::")ND:";::K$ (A$(F))40ĺA$(F);:F21ĺ7 (A$(F))40ĺA$(F)= G 1290 PRāF021:B$(F)A$(F)::PP1:120:PP1: READ NEXT PAGE "PRĢ24:958::36,0::" ";::"N";::")EXT... ";% ,(PT$"Y"PT$"y")PRĝ:"L";::")AST... ";::"P";::󠭍뮍宍󠭍뮍宍źҠӬ뺍ҮӍ̍Ҭ뺍ήÍ΍Ӭ뺍ήӍӍӮӍӮ堧Ч堍堍򬠍堍󮠍砍퍍堍䠍Š䮍ԺӠˠ󮍍묍蠍󺍍Ӡ򩍪ҠӠ멍堯덪ҠˍΠӍҠӍ̠ҍĠҠӍΠӍΠήӍҠӍΠҮӍ̠ҍΠήÍĠҠӍΠĠҠӍ     al Calculator":" 3. Titan Cronus"k!x17:"Enter selection: (1-3) ";:SE$:SE$:SE(SE$):SE1SE31400~!UL$"N"İ1290!D$;"RUN ";SE$(SE)! END OF PROGRAMX136,133,184,132,185,32,183,0,96,0> F *** UPPER CASE ROUTINE P160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253: END MENU Z:10 dUL$"N"İ1280#!n"Run which program? "::" 1. Banner Boss":" 2. FinanciYTHING ROUTINE DATA`32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165(184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,2162169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165! <135,164,ATE INPUT ANYTHING _Q0:X768839:X,I(Q):QQ1:::INPUT ANYTHING ACTIVATE UPPER CASE Q0:I023:768I,U(I):I:768:: DEEACTIVATE UPPER CASE  54,240:55,253:1002:54,189:55,158:: DEACTIVATE UPPER CASE ********** INPUT-AN)ĺJ$(1);Q$;J$(2):BP0:J$(1)"":J$(2)""~SW$"ON"(J$(1)""J$(2)"")(BP2FL1)ĺJ$(1):J$(2):BP0:J$(1)"":J$(2)""H$(Q)""HF0HF1::TURN OFF PRINT BLANKSFF1:(9);"40N";PRINT054,XL:55,XH: ACTIVJ$(BP)H$(Q):HF0)tFL0:H$(Q)""FL1L~B$"3"(F191F276)SW$"ON"mB$"3"(F194F291)SW$""Q$" ":SW$""(J$(1)""J$(2)"")(BP2FL1)(J$(1),1)"-"J$(1)(J$(1),(J$(1))1):Q$""(SW$""(J$(1)""J$(2)"")(BP2FL11(9);"85N";JPRINT "SCREEN #";P;"======================="VQ021s$B$"1"(F208)SW$"ON".B$"1"(F216)SW$""BB$"2"(F49F322)SW$"ON"LB$"2"(F64F466)SW$""`H$(Q)""HF11210jH$(Q)""BPBP1::570zH0:F01270'P1Rb:10:"** READING ";(NA$,(NA$)1);" PAGE #";P;" **"~D$;"OPEN ";NA$;",L960"D$;"READ ";NA$;",R";PQ021768,A$:H$(Q)A$D$;"CLOSE"1010PSW$"": D$AQ$"R"AQ$"Q"AQ$"m"AQ$"r"AQ$"q"830DHUL$"N"İ1290]RAQ$"M"AQ$"m"510w\AQ$"R"AQ$"r"1370f:"THE 'READ ARTICLES' PROGRAM IS ENDED.":pPT$"Y"PT$"y"ĺ:"YOU DO NOT HAVE A PRINTER. SELECT THE":"D)ISPLAY OPTION.":F11500::750. (K$"S"K$"s")P1:740W*UL$"N"İ1280: ACTIVATE UPPER CASE4:10:"Now you can select:"::" M)ore articles (to display/print)":" R)un a program":" Q)uit."1>16:"M)ore ...R)un program...Q)uit:";:AQ$:AQ$:AQ$"M";"42N";:F021:B$(F):A$(F)B$(F)::(9);"40N";:0::750PR(K$"P"K$"p")(PT$"Y"PT$"y")Ģ10:"** PRINTING **":1:(9);"42N";:F021:A$(F)::(9);"40N";:0::750(K$"P"K$"p")PT$"Y"PT$"y"ė:10:"YOU DO NOT HAVE A PRINTER"::",R0" RD$;"CLOSE";DP$"P"DP$"p"İ880:810CP1[100: READ 1ST RECn200: DISPLAY(K$"N"K$"n")PRPP1:740(K$"L"K$"l")P1PP1:740; PR(K$"P"K$"p")(PT$"Y"PT$"y")Ģ10:"** PRINTING **":1:(9)FORMATTED FOR 80":"COLUMNS.":FF13000::820ZvUL$"N"İ1290: DEACTIVATE UPPER CASEsX$"1"NA$"BANNER"X$"2"NA$"FINCALC"X$"3"NA$"TITAN"X$"4"NA$"CALCEX"NA$NA$" R"D$;"OPEN ";NA$;",L960"D$;"READ ";NA$; BOSS":" 2= FINANCIAL CALCULATOR":" 3= TITAN CRONUS":" 4= CALCULATOR EXAMPLE (PRINT ONLY)"l18:"ENTER SELECTION ";:X$:X$:B$X$:X(X$):X1X4620/qB$"4"DP$"P"DP$"p"ĺ"THE CALCULATOR SAMPLE CAN ONLY BE":"PRINTED SINCE IT IS DP$"D":PT$"Y"Ģ19:958::"D)ISPLAY...P)RINT article (D/P):";:K$:K$:DP$K$:DP$"D"DP$"d"DP$"P"DP$"p"570DDS$"Display.":DP$"P"DP$"p"DS$"Print."NPT$"Y"ė:8X:"Please select the article to ";DS$:fb:" 1= BANNERINT the":"individual pages of the article while":"you display them.":0PT$"Y"ĺ:"PRINT Article Mode":"==================":"You can also print the entire article":"on your printer (non-stop) by selecting":"the P)RINT option which follows.":z:䬠宍謠٠Πˠﬠ謠嬠Π宠٠宍̠獨써堨Ӡ嬠嬠宠嬠䬠ŠР孍󩮠卯򠯯Ӡˍ讍嬠حî譍ǠҠӍҮӠà쩮۠ݠɠ客讍ڬ堢宍墠ɍҠӍ׮荍ᱸ                     ᠱ宍迍卤堤宍󮠠Šō̍ҍҮ䍍Ჲ                           ,13,10) Q, 52,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -4, 3,3,3,2,1,12,3, 3,3,3,1,2,12,3, 2,3,6,12,3, 2,3,5,13,3, 2,3,4,14,3, -4, 1,2,22, -12, 2,2,1,1,19#*  R, 49,13, 1,3,21, -1, -1, 2,12,3,6,3, -4, -4, 2,11,4,6,3, 2,9,6,6,3, 2,7,8,6,3, 3,5,6,1,3,6,3,9,13, 1,3,21, -1, -1, 1,17,6, 1,15,6, 1,13,6, 1,11,6, 1,9,6, 1,7,6, 1,5,6, -1, -1, -1( O, 22,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -4, -4, -4, -4, -4, -4, -4, -2, -2, -1) P, 23,13, 1,3,21, -1, -1, 2,12,3,6,3, -4, -4, -4, -4, -4, -4, 1,12,12, -11, 1,3,11,3, 2,4,3,13,3, 2,3,3,15,3, 2,3,2,17,2, 2,3,1,19,1{' L, 15,11, 1,3,21, -1, -1, 1,3,3, -4, -4, -4, -4, -4, -4, -4 ' M, 35,19, 1,3,21, -1, -1, 1,19,4, 1,17,4, 1,15,4, 1,13,4, 1,11,4, 1,10,3, 1,9,2, -9, -8, -7, -6, -5, -4, -1, -1, -1U( N, 2-1, -1, -1, -1& J, 44,14, 2,8,2,11,3, 2,6,3,12,3, 2,5,4,12,3, 2,4,4,13,3, 2,3,3,15,3, 2,3,2,16,3, -6, 1,3,21, -8, 1,4,20, 1,21,3, -11, -11, -117' K, 61,15, 1,3,21, -1, -1, 1,12,3, 1,11,5, 2,10,3,1,3, 2,9,3,3,3, 2,8,3,5,3, 2,7,3,7,3, 2,6,3,9,3, 2,5, 46,14, 1,4,19, 1,3,21, -2, 2,3,3,15,3, -4, -4, -4, -4, 3,3,3,2,5,8,3, 3,3,3,3,3,9,3, -10, 2,3,9,7,5, 2,4,8,7,4, 2,5,6,8,3 % H, 17,13, 1,3,21, -1, -1, 1,12,3, -4, -4, -4, -4, -4, -4, -1, -1, -1& I, 17,11, 2,3,3,15,3, -1, -1, -1, 1,3,21, -5, -5, 2,5,2,13,2, -8, 2,6,2,11,2, 2,6,3,9,3, 2,7,3,7,3, 2,8,3,5,3, 1,9,9, 1,10,7, 1,12,3$ E, 24,12, 1,3,21, -1, -1, 3,3,3,6,3,6,3, -4, -4, -4, -4, 2,3,3,15,3, -9, -9, -9$ F, 20,12, 1,3,21, -1, -1, 2,12,3,6,3, -4, -4, -4, -4, 1,21,3, -9, -9, -9|% G4, -4, -4, 3,3,3,6,4,5,3, 3,3,4,4,6,4,3, 2,4,9,2,8, 2,5,7,4,6, 2,7,4,6,4 #t C, 34,14, 1,4,19, 1,3,21, -2,2,3,3,15,3, -4, -4, -4, -4, -4, -4, -4, 2,3,5,11,5, 2,4,4,11,4, 2,5,3,11,3S$~ D, 56,16, 1,3,21, -1, -1, 2,3,3,15,3, -4, 2,4,2,15,2, 2,4,3,13,3,"V 4,4,1,7,2,2,4,2,2, 4,4,2,7,1,3,2,2,2, 3,5,1,7,2,6,1, 3,5,2,7,3,3,2, 2,6,2,6,7, 2,6,3,6,6, 2,7,3,7,3"` A, 30,12, 1,3,16, 1,3,17, 1,3,18, 2,12,3,4,3, 2,12,3,5,3, 2,12,3,6,3, -6, -5, -4, -3, -2, -1J#j B, 45,13, 1,3,21, -1, -1, 3,3,3,7,2,6,3, -4, -1,8,1, 3,11,1,3,2,6,2, 2,16,3,3,2, 2,16,4,1,3, 1,17,6, 1,19,3, 1,20,1 !L @,123,19, 1,12,4, 1,10,8, 1,9,10, 2,8,4,4,4, 2,7,3,8,3, 2,7,2,10,3, 3,6,2,8,2,2,2, 4,6,1,7,2,1,2,2,2, 4,5,2,6,3,2,2,2,2, 4,5,1,7,2,3,2,2,2, 4,4,2,6,4,2,2,3,1, 4,4,1,7,1,2,5,2,2h                                     H(Y)1:868:660;XX2:V(Y):36,(H(Y)X)1:868:660XN$(96)N$((N$)32)yXL(Y)1N$CR$Č198:380TP(Y)1590N$(46)580&Z1(TN$):ZXī5700(TN$,Z,1)(46)Z(TN$)1::198:380::600DN$(48)VT$YSYY2:|N$CX$N$DL$ĭX1TN$(TN$,1,X2)(TN$,X,(TN$)X1):36,H(Y)1:868:TN$;:XX2:36,H(Y)X1:660N$EX$X1XL(Y)1::1410N$EX$YY1:N$CU$X(TN$)Ĺ36,H(Y)X1:660N$BS$510X1X2X0:36,(Y)1:TN$""rX1L(Y)1o|(95)BS$;:16368,0:16384,128:A(16384):16368,0:A155XL(Y)1::1410N$(A128):N$(31)N$DL$510N$CR$XL(Y)1::" ";:N$VT$ĭY7Y8CT$"1"YY3:N$VT$Y11RT$"S"Y7:N$#," PAYMENTS ";:1350:" ";N$;6X1WT:"-";:::G@LL5:J"PM# MO YEAR PAYMENT INTEREST PRINCIPAL BALANCE":670::LL3: 5/7/7/9 SPACEST^Y7N(CIRB).10:700:N$;"):":H(Y)(25(N$)) hV(Y):36,H:4 EX$;(69): ENTER PRINTER CONTROL CODES HERE: P D$:3020:WTWD: LP$LP$" LOAN":36,((WT(LP$))2):LP$: N(AM$):700:N$(BL$N$,10):DC$(4);N$; I$(I$,5):I$(BL$"INTEREST "I$,16):I$;"%"; "NPM:700:N$(BL$N$,10)WT: 20 SPACES 1400= PR0(49152)160Ĺ49168,0:N$C Q :PR0ı 12:36,((WT35)2):"MAKE SURE YOUR PRINTER IS TURNED ON":690 ::12:36,((WT32)2)1:" PRINTING REPORT -- PLEASE WAIT "::WT72:D$:D$;"PR#";PR:(9);"80N":::DC$(6)"INTEREST RATE: ":DC$(7)"NUMBER OF INVESTMENT YEARS: ": 5/6 SPACES DC$(8)"AMOUNT INVESTED: ":DC$(9)"AMOUNT TO DEPOSIT / PERIOD: ":DC$(10)"INTEREST AMOUNT EARNED: ":DC$(11)"FUTURE VALUE OF ACCOUNT: " BL$" ":WT72:WD:EY1999:MI50:CR$(13):EX$(27):VT$(11):BS$(8):DL$(127):CX$(24):CU$(21) D$(4):DC$(1)"*** GRAND TOTALS ***":DC$(2)"******** RESULTS ********": 8/8 *'SL DC$(3)" Y E A R S ":DC$(4)"LOAN AMOUNT: ":DC$(5)"DEPOSITS WILL BE: "1024,123:A(1024):1024,35:B(1024):49236,0:(64435)6A123B353040::(4)"PR#3"::2970 ZMN$(35),V(35),H(35),L(35),TP(35),DC$(11) dX17:MU$(X): nX134:MN$(X):V(X):H(X):L(X):TP(X):T xX$(0)" ":X$(1)"-->":MY50:BY1985o-# **********1/22/87***********E* FIN.CALC *g* BY RICHARD REED *(* COPYRIGHT (C) 1987-89 *2* BY MINDCRAFT PUBL. CORP. *<* CONCORD, MA 01742 *F****************************d P:49237,0:                    ,4,14,3, 2,3,5,13,3, 2,3,6,12,3, 3,3,3,1,3,11,3, 3,3,3,2,3,10,3, 3,3,3,3,3,9,3, 3,3,3,4,3,8,3, 3,3,3,5,3,7,3, 3,3,3,6,3,6,3, 3,3,3,7,3,5,3, 3,3,3,8,3,4,3, 3,3,3,9,3,3,3, 3,3,3,10,3,2,3, 3,3,3,11,3,1,3-d 2,3,3,12,6, 2,3,3,13,5, 2,3,3,14,45, -4, -3, -2, -1,F X, 37,13, 2,3,2,17,2, 2,3,4,13,4, 2,3,6,9,6, 2,5,6,5,6, 2,7,6,1,6, 1,9,9, 1,11,5, -6, -5, -4, -3, -2, -1,P Y, 31,15, 1,22,2, 1,20,4, 1,18,6, 1,16,6, 1,14,6, 1,12,5, 1,3,12, 1,3,10, -7, -6, -5, -4, -3, -2, -1-Z Z, 107,17, 2,3-2, 1,3,3, -4, -4, -4, -4, -4, -4, -4, -2, -2, -1+2 V, 31,15, 1,21,3, 1,17,7, 1,15,9, 1,12,9, 1,9,9, 1,6,9, 1,4,8, 1,3,6, -7, -6, -5, -4, -3, -2, -1,< W, 35,19, 1,3,21, -1, -1, 1,4,4, 1,6,4, 1,8,4, 1,10,4, 1,12,4, 1,14,3, 1,16,2, -9, -8, -7, -6, - 2,3,6,3,12, 2,3,4,5,12, 2,3,2,8,10* S, 35,13, 2,3,3,7,10, 2,3,3,6,12, -2, 3,3,3,6,3,6,3, -4, -4, -4, -4, -4, -4, 2,3,12,6,3, -11, 2,4,10,7,2 * T, 17,13, 1,21,3, -1, -1, -1, -1, 1,3,21, -6, -6, -1, -1, -1, -1, -11+( U, 20,14, 1,4,20, 1,3,21, Y9MN$TN$:(MN$)1(MN$)12Č198:1540`!rY10YR$TN$:YR(YR$):YRBYYREYČ198:1540p!|Y11İ1270!CK1CK0:198:1540!Y8RT$"S"Y10!Y6Y7!Y5CT$"2"Y6!!200:P$"0":L3"CT$"1"PM(.5RB(CI(1(1ȭY2İ1160:RB(AM$)# ,Y3İ1200G 6Y4İ1180:TP$"D"Č198:1540} @Y5İ1290:CT$TN$:CT$"1"CT$"2"Č198:1540 JY6İ1220 TY7PM$TN$:PM(PM$):PM(N100)100PMRBČ198:1540 ^Y8RT$TN$:RT$"S"RT$"D"Č198:1540+!h:YT0:YI0:YP0:TT0:TI0:TP0:S12YS11Y5Ģ9:36,1:"CALCULATE LOAN BY:":10:36,4:"1. NUMBER OF PAYMENTS TO MAKE":11:36,4:"2. SPECIFIC AMOUNT / PERIOD"V(Y):36,1:MN$(Y);:958:350N$EX$N$VT$1710Y1LP$TN$ "SLZ48:NOS:1490:1460Z(Z21Z10)(Z8Z11)10(Z13):Z1460:SLSLZ(Z10):SLSL7(SL7)7(SL1):NOS:1490:Z101460:16368,0:32N:36,8:X$(SLOS);::12:"ARE YOU SURE YOU WANT TO QUIT? ";YN$:YN$"Y"YN$(121)1410:&12:"ENTER MENU # OR USE ARROW KEYS"::36,12:"THEN PRESS :";cSLDF(DF0):1460:DFSLSL1510,1970,2200,2380,2560,2730,1500NSL:OSSL:1490:Z0:24:36,33:16368,0:86824:36,33:SL;:16384,128:Z(16384)128:Z49Z55100:700:x:D$"PR#3"::10:30:"FINANCIAL CALCULATOR"::32:"BY RICHARD REED"::17:"COPYRIGHT (C) 1987-89 BY MINDCRAFT PUBL. CORP.":690CK0::1:36,16::" FINANCIAL CALCULATOR "::2970X17:32X:36,12:X"."MU$(X):F22:36,TP$"M"PY12 TP$"Q"PY42(TP$"A"PY1F2CI(I100)PY:_<TP$"D"ĺ"DAILY";:zFTP$"M"ĺ"MONTHLY";:PTP$"Q"ĺ"QUARTERLY";:ZTP$"A"ĺ"ANNUALLY";:dCI(((I$)Y)100)PY nN(.5AM(CI(1(1CI)(((NPX)PY))))100)$):I1IMICK1XNP$TN$:NP(NP$):NNP(NP):N0N.25N.50N.75CK1{TP$"A"Y11ĭNPMYNP0CK1Y16ĭNP(NP)0NP0CK1TP$"A"NP(NP)0CK1PR$TN$:PR(PR$):PR7CK1 TP$"D"PY365V(MN$)12PY12İ8505`PY12MN$((MN$)1)GjPY1YRYR1qtPY4MN$((MN$)3):(MN$)12İ850w~AM$TN$:AM(AM$):AM1AM999999.99CK1: 6 9'STP$TN$:TP$"D"TP$"M"TP$"Q"TP$"A"CK1I$TN$:I(I(.5RBCI100)1005RB(.5(RB(PMII))100)100MP$((P$)1):LL1q$CT$"1"(P$)NPPMPMRB:RB0.CT$"2"FL1PMPMRB:RB08YTYTPM:YIYIII:YPYP(PMII)BTTTTPM:TITIII:TPTP(PMII):LL60PR0āXL68:::L3:330MENTS INTEREST PRINCIPAL BALANCE":: 14,7,7,9 SPACESbP$(P$BL$,11):P$;NTT:700:N$(BL$N$,14):N$;NTI:700:N$(BL$N$,15):N$;NTP:700:N$(BL$N$,16):N$;NRB:700:N$(BL$N$,16):N$670:IIzNYT:700:N$(BL$N$,14):N$;DNYI:700:N$(BL$N$,15):N$;gNYP:700:N$(BL$N$,16):N$;NRB:700:N$(BL$N$,16):N$670::LL4:YT0:YI0:YP0:PR0680::67036,((WT(DC$(1)))2):DC$(1):I"PM# PAY NPM:700:N$(BL$N$,12):N$;C*NII:700:N$(BL$N$,15):N$;k4N(PMII):700:N$(BL$N$,16):N$;>NRB:700:N$(BL$N$,16):N$HRPY4MP$MN$:MN$((MN$)12):YRYR1\PY12MP$MN$:MN$"0":YRYR1f670p"YEAR TOTALS";!N$" $":(N)1N$N$"0":N0N$" $0.00":750RSGN0:N((N)100.5)100uN$N$(N):N(N)0N$N$"."(N$,(N$)2,1)"."N$N$"0":740N$(N$,2):SGN$"-"N$P$(P$BL$,5):P$; MN$(MN$BL$,4):MN$;YR; X1WT:"-";:::p24:27:"Press Return to Continue _";BS$;:49168,0:16384,128:" ";:16368,0::198::24:29:"Press Return for Menu _";BS$;:49168,0:16384,128:" ";:16368,0:N999999.99N$"**********":: 6 9'S, 10 *'S2N$(57)Č198:3805NN$(31)N$(94)Č198:380ZXX1(TN$)1TN$"":TN$N$:650bX1(TN$)XTN$N$(TN$,(TN$)X):650l(TN$)XTN$(TN$,X1)N$:650v(TN$)XTN$(TN$,X1)N$(TN$,(TN$)X):650TN$TN$N$N$;`p|~pp*U*U*U*U*U*{ @?p~px|x U*U*U*U*U*RT* @?p~px|ЪժժժՊ toFU @?`p~p|ժժ `~} CCk<F9 gfCg'U*(U*A %P*U*U*U*U*U QE"!" @P(@ "%"@MժժժU*U*RP* @?p~px|ԪժժժՊ pgFU @?`p~p|ժժ @?~|sp#XqF1 ;FpC ;'P*  U  %@*U*U*U*U*U Qy""" @P(@ "rDg!8MժժժժժժdpO|`ժժժժժժ*U*RP* @?p~px|Ԫժժժժ pgFU* @?`p~p|ժժժ @?~ /C@F+* TC %@*U*U*U*U*U QA"$"p E@_(@ "  Mժժժժժժtժժժժժժf~p*U*U*U*U*U*@?p~Ap||x U*U*U*p~p|ժժժ ?~ GC@F- U5xsg`c00@` 80|. U5x{w cY#8X03X0FC30%*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*R@* @?p~px|Ԫժժժժ pcFU* @?`ysc'C&0.cFc&(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*R@* @?p~px|ժժժժժ pcFU* @?p~p|ժժժժժժdpO|`ժժժժժժ`p?|~?px*U*U*U*U*U*\`p|~pp*U*U*U*U*U*{ @?p~px|x U*U*U*U*U*RT* @?p~px|ЪժժժՊ toFU @?`p~p|ժժ `~} CCk<F9 gfCg'U*(U*A %P*U*U*U*U*U QE"!" @P(@ "%"@MժժժU*U*RP* @?p~px|ԪժժժՊ pgFU @?`p~p|ժժ @?~|sp#XqF1 ;FpC ;'P*  U  %@*U*U*U*U*U Qy""" @P(@ "rDg!8MժժժժժժdpO|`ժժժժժժ*U*RP* @?p~px|Ԫժժժժ pgFU* @?`p~p|ժժժ @?~ /C@F+* TC %@*U*U*U*U*U QA"$"p E@_(@ "  Mժժժժժժtժժժժժժf~p*U*U*U*U*U*@?p~Ap||x U*U*U*K0:198:2220':1290>' 200:36,((WT21)2):MU$(3):' NAM:700:"FUTURE VALUE OF ACCOUNT: ";N$::DC$(5);:1340:' :DC$(6);I$;"%"::DC$(7);NP'$ N(.5AMCI((1CI)(((1CI)(PYNP))1))100)100(. :DC$(2):TP(PYNP)N:TIAMTP:7Lĝ:FL1(&1380:(BL$N$,9);:::22<&250:690:1410\&::1:36,8:MU$(3)::S16h&YS20&V(Y):36,1:MN$(Y);:958:350&N$EX$N$VT$2300&Y16İ1160&Y17İ1180&Y18İ1200&Y19İ1220&Y20İ1270'CK1C:C8:WT40C4E%4FL1:C(SIC)SI:36,4:Y0CSI:FLĞ:FL0:2120U%>FLĝ:FL1u%H(BL$((I$)Y)"%",9);:%RSY1:R(20SY)SY%\L0:X0RSY:LL1:WT40ĺ%f(DC$(3),L,1);:(BL$(NPX),3);%pFL1:Y0CSI:FLĞ:FL0:2180&zF$$V(Y):36,1:MN$(Y);:958:350<$N$EX$N$VT$2060L$Y12İ1160\$Y13İ1200l$Y14İ1220|$Y15İ1270$CK1CK0:198:1990$ :1290$200:NAM:700:MU$(2);" ";DC$(4);N$$ 36,((WT14)2):"I N T E R E S T"%*SI.5:1030#NRT$"S"1890,#X770:1100:180C#bRB0Y1000:1910U#lRBPM0FL1[#v#RT$"D"ĭ(PY12MN$"1")(PY4MP$"3")İ850#RT$"S"PR0Ģ6:958#940:250#690#:1410#::2:36,12:MU$(2)::S12:TP$"M"$YS15CI)(NP)))100)100,"260:RT$"S"İ330e"RT$"S"PR0ĺ:::36,((WT11)2):"CALCULATING":w"WT40Ĺ34,10"WT72Ĺ34,7"CT$"2"1850"Y1NP"1030"RT$"S"Ă:1920"770:1100:180"&"01920":FL0#DY11000768:350& JA$"P"ĹCT,0:32768:350/ T300U ^I201:(SCI)(HSI)Ă:400o h(SCI)(HSI)400 r::12:A$"CONGRATULATIONS!!!":450:A$"YOU GOT THE HIGH SCORE!":I02:HSI,(SCI): |450 ::10)"NEW ";:480Y21:1:"PREA$" -> RIGHT ":450:2/4/26 SPACESp 9)"PRESS '";::"Q";::"' TO EXIT GAME" :" HOLD GAME, SWITCH CONTROLS" "23:A$" TO RESTART":450 ,16:26:A$ 6A$"Q"ĉ:: @A$"K"ĹCT,1:32 SHIP AFTER EVERY LEVEL":450j :"PRESS '";::"K";::"' FOR KEYBOARD, '";::"P";::"' FOR PADDLES" A$" 'A' FIRE