JJJJ ( X ,0 ,b9 LԠ   Ԡˠ    3.3    ɠР àè àԠӧà$%L"˹0  `rC27A(0):520:580:510:PP(PM)(MP)(PN)(PN)Z |C9TPP:430:PTP:PNPNg C1PM C24B$S$:U$S$:V1::768,B$:PM C3ij 180 I116:TPT(I)TPT(I):I17 :I17TP80  V:P:768,P$::1000 W PWC160WP& PP(PN):1803 PM180L "PW2OO1:UW2P{ ,WW(PW1):PP1:B$"":P1B$(L$,P1) 6B$B$P$R$" ":180 @C4280 JC8PP(PM) TC21PP(PN) ^C13İ520:460:PM hC26İ460:V:1:768,B$9 :190 V:O:768,(B$,O,U)C L$"":R$"":PN5ON5ĺ(7);f P$(B$,P,1):P1L$(B$,P1)~ P80R$(B$,80P) OP:U1:V:P:C$:C(C$):C127280 C32320 WNP$"" B$(L$(C128UF)P$R$,80):PWWW(WN):UUWP :d(24):49167,0:1010:D$(4):E$(27):OS(190256)^nOS76O1(43603):O2(43604)xS$" ":I14:S$S$S$:T(16):M6:N74:LS1:UF0:DM80:(64435)6(49183)128DM40510:1:V23(DM40) B$S$:U$S$:PM:W0     EEDCALC,RUN LEDGERW b RUN APWRITER,BRUN TURBODISK,RUN MAG.INDEX,RUN POWER.SKETCH l RUN FINANCE,RUN SOLARPIX,RUN CHESS dR.SKETCH l RUN FINANCE,RUN SOLARPIX,RUN CHESS v RUN PROOF,RUN MLXdFUN MLXdROOFREADER,APPLEMLX p::"LH  SPEEDSCRIPT,FILE CONVERTER,SPEEDCALC,PERSONAL LEDGER,THE APWRITER  TURBODISK,MAGAZINE INDEXER,POWER SKETCH,HOME FINANCIAL CALCULATOR  SOLARPIX,CHESS p::"LOADING......"::A$(T):: X BRUN SPEEDSCRIPT3.0,RUN CONVERT3.3,BRUN SP aPGTPPG0:DE0$ cR$(32)10F d(R$)49(R$)57Ė6:17:90h fJDE12ĭ(R$)50Ė6:17:90t iD$(4) nPN(R$)48 sPNPNDE xTPN:6000 54,240:55,253:1002 D$;B$(PN)  T111:A$(T): T111:B$(T): THE COMPLETE APPLE ":0 "(C) COPYRIGHT 1987"x "PAGE ";PG1;" OF ";TP;" PRESS ";::"";::" FOR NEXT PAGE" X2182 (JJ1 -JDE12X18:70 2Y:X <J;" ";A$(JDE) FX ZR$:R$""90 _R$(32)PGPG1:DEPG940196,189:40197,1588(768)216ĺ(4);"IN#0"P(4);"BLOAD HROUT"h(4);"BLOAD AASET"6,0:7,138:54,0:55,3:1002A$(36),B$(36)TP2:PG0 4000 ::11,1:62454Y61:22:J0 "COMPUTE!'S ";::"    d:::9:1,n"APPLE DOS 3.3 SHELL"7x09:3Rz"COPYRIGHT (C) 1987"]08:5z"COMPUTE! PUBLICATIONS"X11000:7:15:"PLEASE WAIT A MOMENT..."(4);"RUN BOOT"d4(Ȯ)%$Jʩ ()%$m$$$m$%ʎ2% (`((` ?=&,%%% +%"-%  ' L| LJ28%$m8%8%%<%`,Y%0a X%W%# > % LCRL ");% ;%;%L/ ,Y%0lp`$$$$$` ( L ;%"(k")$)%*%)%i)%*%i*%آ )%i)%*%i*%;%;%"(k") `*%i0(ȭ)%)JJJJi0(ȭ)%)i0(`"(k") (ȑ(ȑ(Ȯ$$$)%Jiʩ ()% ")?(Ƚ")? ,ɠ<%<%w<ʽ<%;%Еʊ H H`<),%`j" L j" % Y L| a " ,""ko X " LuX%IX%`, )``Hh`  ` 률` o ($%) `2$()%` (` L #< > 8 L2L@ <v<%ߙ  ;%ߙL <%L ;%<%;% ݕ eL  3020832080LM" XaY% I9786%i$iOl$$ki"X%$ a #F > % H | hݬ L7 ʊ H{HHH`  ! # 1234567890+-.  N2@ 7          92,145,157,141,84,192/200,208,239,32,146,3L208,234,230,158,230,160g230,162,206,184,3,2082,104,104,96,169,4 133,158,141,184,3,16964,133,160,169,68,133162,160,0,132,157,132(159,132,161,96223t32,237,253,104,200,2025~208,229,96,0,0,0F0,0,0,0,0,0W0,0,0,0,0,0q32,160,3,177,157,145159,141,85,192,177,157141,84,192,145,161,200208,239,32,146,3,208234,32,160,3,177,159145,157,177,161,141,85132,108,221,32&0,230,170,160,0,177@94,73,128,32,237,253Z$200,202,208,245,96,0k.0,0,0,0,0,0832,177,0,240,39,32B123,221,32,108,221,32L0,230,170,160,0,177V94,8,9,128,32,237`253,40,16,12,72,169j136,32,237,253,169,90A$"6"UF1UF:590>A$"7"İ1000:E$;(118);:980]A$"8"İ1000:(12);:980f730OS76Ĺ43603,O1:43604,O2:D$;"PR#0":V::D$;"PR#1":(9);"255N";:I768I183:A:I,A::32,177,0,240,23,32 123,221,16800*4I16āJ15I1:T(J1)T(J):6>T(I)MPGHA$"2"910ORI1`\T(1)MP890tfII1:I17860}p910zI16āII15:T(I)T(I1):T(16)0A$"3"MPNİ520:MMP:510A$"4"MPMİ520:NMP:510A$"5"LS3LS:5AGE"HP:"0. QUIT"&V:768,B$4510:MPPYV:MP:A$:A$(8)MPMP(MP1)uA$(21)MPMP(MP80)A$(1)MPMA$(9)TPMP:430:MPTPA$"0"Č889: A$"1"840I1 T(I)MP840*T(I)MPT(I)0II1:IP:"2. TAB CLEAR"+ lHP:"3. LEFT MARGIN"F vHP:"4. RIGHT MARGIN"r HP:LS1ĺ"5. SET DOUBLE SPACING":660 "5. SET SINGLE SPACING" HP:UFĺ"6. END UNDERLINE":680 "6. START UNDERLINE" HP:"7. SET TOP OF PAGE"HP:"8. NEXT P804,(B$,W) :LS2ĺ# 980F B$S$:U$S$:W0:24::DM40ĺV M$"^":530a M$" " 35,25:24:DM40M40ĖM40:550 M &M$;:DM40N40ĖN40:570 0N :M$;:35,24: D864 NHPDM29::6 XHP:"1. TAB SET" bH X " L| "`$ > 0%1%$$5)&8 ,%,%ȱ,%,% ' iв3Ц0%1%8 L| 3 ȑ `# > ,Y%0a X%0"I"" ` `j" j"N='H )%h `µ rL|  L y` yY yo yp2 y$ y y y yLkl yp RL R$L> ŵ$ > ` o $() ŵ?)%qE%G%K%I%LA%0%JA%G%F%H%0%I%L%J% G%E%G%I%H%B%H%J%A%G%0%I%LE%G%K%I%F%H%L%J% G%A%G%I%H%B%H%J%E%G%K%I%L # > rL|  L  o p 2$ $$  7 LvL6 7 7 7 Lp*%,%`*%x*%`E%8A%m0%K%F%8B%m1%L%B%1%LA%0%JA%G%B%H%0%I%1%J% G%E%G%I%H%F%H%J%A%G%0%I%LE%G%K%I%B%H%1%J% G%A%G%I%H%F%H%J%J%  ' `I%J%  3 ȑL?%0`+%`I%8G%M%J%8H%N%*%,% 7 L,@LCB)% Af[b8@m)%3WmM%AB8i@)% 7)% 7 3 J 6 )%ɰ!mN% 4a X%?%@%A%B% H0%E%1%F% RA%E%B%F% # > DC%D%L| $Y > LY$1 > % ݍLYʊ HXHHH`hhC%D%`  7 I%3[J%ɰTG%H%8 E+% ,%,%Ȣ,%,% %@% I% 8 X+%#8%8,%0-%)  'JLI N,%8%Ϯ8%*8%,% S%LU% L V% % V% R0%1% X " L| HV%hLhL,Y%0a X%?%@%A%B%L L| ,Y%0 ;%H(9%:% ` *%)% ⥪E !` XV%,Y%0a X%0L$ > % S DP(LV%<V%$ > r %!L$ > % 80LLV%$~ > V% mP S%0%U%1% $8%LM" B)8ȱ<%ȱ<%HH hhS%`9%:% LM"R%U%`8` ABТ;% A[8@m;%3;% J 6 Уɰ;%`)%*%  G r륢HHHHHH)%*% h;%hhhhhhE " `$$` O% P% Q% (LM"jO%jLM"P%vQ%݂)% HHL"!h)% )%ʊ HH` AACEILSSSTSABTOXNOGIQAUVSNSPTGNNRNME"@9 dR%T% :? dS%U% ), R%S%LM"T%U%LM"ȥ9%:%``$$ ( `2#2%$$}$% `$$ `# > r N8A0IC;% 98@042.m;%3&;%  J 6 ɰ $LL| $ ;%<% <%$L$ " L| $$$$,% `,%`,Y%0a X%W%#y > v 6 3/%+$W% a L[$ <%<%$ L| 7% % ?&" 7%0:$&ڙ ˩ L} 6%`$i$ ( %x8 5+% ,%,%ȱ ,%<+%")?'L '< ` *-%JJJJ6%. 6%,%6% .Ȯ6%0 ,% ?.5 Lȱ5*Ȫʽ. 90ʝ1 (J"4%-3%$(5%8%84%L.8%$5%4%5% -3%(4%5% ,% Lv N,%8%L * -3%$8%(.%L $8%m$$3'$m$(L $m8%-3%(`(8$8%k")"($8%(0%1a X%W%Ω# > v{ 6 mi") ;% ;%;%W%A;%"$$) "ȥiil8 L 8  ;% +%L| 0%1%$$$i.%$8%0%1%?3%i8$k")"(8 Lg+%pl8%8,%02-%) ,Z1 6(16202)ZZ10 @I15:198:IS JK2:ZZ(B$):Z2(Z2)L15a T910:900x ^(16368)128350 h: r::"PLEASE WAIT ..." |I2457625275:J:I,J:KKJ:I I2527625339:I,255:I I1544916200:J:I,J:KKJ:I40 A$"2"240$ 540:16202,0N 15486:(16256)229(16256)150310 J(16252)16264:R(J101628.5):CJ1628510R 198:K(J):I0:820:IK J(16253)16264:R(J101628.5):CJ1628510R 820 "(16256)99(16256)28220):I:430 n(16200)96İ370T xB$"2"Ĺ16288,6:16289,5:16358,250:16359,251d E$"1"150 R07:C07:1628510RC,0:C:R :R07:C07 I(1628510RC) 820 C:R:R0:C0 A$"1"B$"1"230 E$"2"İ540 2  15448:18)"CHESS"8:15)"JOHN KRAUSE"I(A(12),C(69)f2I1625616263:I,192:I<I1626416383:I,7:IFI1628516362:J:I,J:IPI012:A(I):IZB(0)17118:B(1)18142:B(2)19166:B(3)20190:B(4)21214 dI069:C(I          ǠԠȠ͠ϠҠŠҠϠРԠƠנŠҠϠ͠ԠƠǮԠԠϺάˠҠҿźϠǮԠàFBGBHBIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBX*ERROR*ԺŠՠŠٯΩà٠Π׺ŠՠŠٯΩȺϺΠӠźĺԺԬҬҠԠٿԺƠ̠ӺӠihH "L!h 46%L9hhhhhhhhhE HH"H"H`>%6%#`((((PPPP""!NTF,@@AAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEB(),%LM"H Q-M+I.EP%(A B@LM" L{!HL"! L{! ILM"s! L{!Iڡ J x+5-0*+/&^!)LM"hH "L!L{!LShH"ݛ" "hH"ݛ" r륢HHHHHHHL"!XLm$(`()+%)-%ȱ,%8` 3+%2,%,%oȥp+% -%oȭ,%oȢo,%L 6%6%86%m,%,%6%,%oȽo,%oȥp+% -%oȭ6%oȢo6%om,%pɤom,%opip`ȑ$ > $$L|>%;%+%=%-%<%,%LM"H9%:%+%;%-%=%,%<%hA0 @0e3 J 6 Ќɰ8 +%L*,%HH hh9%:% ;%+%=%-%<%,%`ʆȅjfeʊei&6%` o )($$8o$p !` 4 T `) ȱLTȱevyziwp8wwzo8opp$$"8)%ȱ )%8ȱȥl`#" > % YLL| 9%:% L,%%3 +%  "-%L2)-% ' `6%ʽEx;%80*%80*%i )%;%-LE.;%)%8;%)%.E0)%6%`)%.E.)%0)%Ƚ27,64,6,0,1,64,7,127,127,64,0,0,0,0S0,0,0,0,0,63,120,0,0,51,24,0,30,60,121,112127,115,31,124,127,127,127,124,127,112,31,124,31,124,127,11231,127,127,112,6,0,1,64,7,127,127,64,7,124,127,64"7,127,127,64,6,0,1,64,7,127,127,64,0,0,0,04,0,127,127,0,0,127,127,0,0,96,3,0X3,127,127,96,15,127,127,120,15,127,127,120,0,0,0,00,0,0,0,0,0,0,0,0,48,24,0,0,48,24,096,48,24,12,97,124,126,12,25,124,126,48,25,124,126,4831,127,127,112,6,0,1,64,7,127,127,64,7,124,127,64#7,127,1,127,64,1,115,127,64,1,79,127,64,1,79,127,64Y0,63,126,0,0,48,6,0,0,63,126,0,0,48,6,07,127,127,112,31,124,31,124,24,0,0,12,0,0,0,00,0,0,0,0,0,0,0,3,103,115,96,3,103,115,963,127,127,96,0,96,3,0,0,127,127,0,0,127,127,0 0,127,127,0,,0)d0,0,0,0,0,0,0,0,0,0,1,64,0,0,7,64_n0,0,127,64,0,15,127,112,0,63,126,48,0,63,127,112x1,127,127,112,1,127,127,124,7,127,103,124,7,127,96,487,127,120,0,7,127,126,0,7,127,127,64,0,0,0,00,0,0,0,0,0,0,0,0,60,30,0,0,60,30,0,1,12442,85,42,84,42,85,42,84,42,85,42,84X242,85,42,84,42,85,42,84,42,85,42,84,42,85,42,84~<0,0,0,0,0,0,0,0,0,0,0,0,0,3,96,0F0,15,120,0,0,15,120,0,0,3,96,0,0,15,120,0P0,3,96,0,0,3,96,0,0,15,120,0,0,63,126,0Z0,63,126,0,0,0,0,0,0,0,0,0,0,0,0213,170,213,170,213,170,213,170,213,170,213,170,213,170,213,170 213,170,213,170,213,170,213,170,213,170,213,170,213,170,213,1700,0,0,0,42,85,42,84,42,85,42,84,42,85,42,8442,85,42,84,42,85,42,84,42,85,42,84,42,85,42,84#(42,85,42,84,,84,44,44,44,44*4,4,65,64,67,66,65,64L67,66,188,252,60,124,188,252k60,124,188,96,96,97,97,97|97,98,98,980,0,0,0,213,170,213,170,213,170,213,170,213,170,213,170213,170,213,170,213,170,213,170,213,170,213,170,213,170,213,170C69,3,133,25,164,483t240,41,136,240,38,16,19,164Q~9,177,6,230,9,73,255,164r25,49,253,145,253,198,25,16238,96,164,9,177,6,230,9164,25,17,253,145,253,198,2516,240,96,164,9,177,6,2309,164,25,145,253,198,25,16242,96,84,185,179,96*$133,7,169,0,133,9,164,251M.185,162,96,133,254,165,252,10n810,24,121,154,96,133,253,32B75,96,165,253,24,105,128,133L253,165,254,56,233,32,133,254V76,75,96,32,90,96,165,254`24,105,4,133,254,201,96,48j242,96,19,4,12,4,28L72,40,72,8,104,1,64,64,65,0,43,40,56,40,43,103,17,19,17,10342,106,102,42,42,73,21,29,21,21,59,9,25,9,57,35,37,37,5,35165,251,69,252,41,1,133,4832,19,96,166,8,208,1,96232,134,48,165,48,41,15,168 185,170,96,133,60,0,0,0,7,7,0,0,0,0,0,0,0,0,7F7,255,255,255,255,255,255,255,255,7m7,252,254,253,251,250,253,254,252160,208,206,194,210,209,203,144,142,130,146,145,13919,21,19,21,115,68,42,46,42,74,21,20,12,20,21 85,85,119,87,85,100,68,68,68,68,2I384I\B$"1"I0890,fI6II2568pII128Xz251,R:252,C:8,I:24576:iK7:M3:L30J0K:I04:B(I)MJ,C(L):LL1:I:J:4,2,3,5,6,3,2,4,7,7,1,1,1,1,1,1,1,1,77,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,77,0,0,0,0,IK:850J060:J:550*F790;K0K6550SF1:R1R:C1C:198j(16368)141770s 550R2R:C2C:RR1:CC1:I0 K(1628510RC):820*RR2:CC2:IK4R0I255I251>R7I1I5H1628510RC,IRI60DI211R0RR1:6705NI196C7CC1:670LXI128I141F670TbJ0dlA(J)I650xvJJ1:J13620550IJ:I6I262I820:540251,R:252,CJ1628510RC:K(J)I1417408,7:24576J030:J ITSELF?";' A$:(A$)0(A$)2490V 16202,0:B$"2":A$"2"Ĺ16202,16:B$"1": ::"YOU HAVE THE (1) WHITE OR (2) BLACK PIECES?"; B$:(B$)0(B$)2520  F0 &I(16368) 0I215R7RR1:670:I193C0CC1:67 K134648ı: 16200,0::"CHECK DATA STATEMENTS":^ ::"ENTER SKILL LEVEL (1-5)";{ A$:(A$)0(A$)5440 16201,(A$) ::"(1) NEW GAME OR (2) SET UP POSITION?"; E$:(E$)0(E$)2470 ::"COMPUTER VS. (1) YOU OR (2)" dV(8)nV$"TPIYMNDW"+xC$"VSHR"BC1$"M+M-M*M/MRMC"LQ$""VD513_S15iS215sS323}S4315450"INVESTMENTS AND LOANS""(I/L) ";A$A$"I"270A$"L"21702305450 "INVESTMENT                       9,108?&63,24,125,116,63,168,185,136,63,208,13,189,116,63,24u&125,92,63,157,116,63,76,6,63,254,84,63,189,84,63& 221,100,63,48,206,96,169,0,157,84,63,168,185,97,60&157,116,63,32,21,61,254,84,63,188,84,63,192,8,48& 237,9684,63,168,185,89,60,157,116,63,32,21,61^%254,84,63,188,84,63,192,8,48,237,96,169,4,157,100%63,169,0,157,84,63,240,22,169,8,157,100,63,169,4%157,84,63,208,10,169,8,157,100,63,169,0,157,84,63&168,185,105,60,157,116,63,157,92,63,32,21,61,18,89,16,17,56,233I$20,168,185,136,63,208,8,169,236,157,116,63,32,21,61$189,108,63,56,233,9,168,169,0,217,136,63,16,8,169$247,157,116,63,32,21,61,189,108,63,56,233,11,168,169$0,217,136,63,16,8,169,245,157,116,63,32,21,61,96'%169,0,157,,189,108,63,24,105,9,168,185,136,63,16,8,169,9h#v157,116,63,32,21,61,189,108,63,24,105,11,168,185,136#63,16,8,169,11,157,116,63,32,21,61,96,189,108,63#56,233,10,168,185,136,63,208,36,169,246,157,116,63,32$21,61,189,108,63,201,81,48,21,201,144,60,173,124,63,24O"D109,125,63,141,125,63,88,96,173,74,63,208,89,189,108"N63,24,105,10,168,185,136,63,208,36,169,10,157,116,63"X32,21,61,189,108,63,201,31,48,21,201,39,16,17,24"b105,20,168,185,136,63,208,8,169,20,157,116,63,32,21.#l6101,29!208,6,32,192,62,76,222,61,201,3,208,6,32,218,62n!76,222,61,201,4,208,6,32,230,62,76,222,61,201,5!&208,6,32,242,62,76,222,61,32,47,63,76,222,61,189!0108,63,201,98,48,150,224,0,240,16,169,16,56,237,74":63,141,74,63,202,142,126,63,760,232,142,126,63,169,20,157,108,63,169,16,56,237j 74,63,141,74,63,254,108,63,188,108,63,185,136,63,201 7,240,86,172,74,63,240,4,201,0,16,77,192,0,208 4,201,1,48,69,201,0,16,9,188,108,63,169,0,56!249,136,63,201,1,208,6,32,5,62,76,222,61,2,63,208,6,201,1,16I192,48,8,201,0,48,186,201,7,240,182,157,76,63,2016,240,4,201,250,208,12,169,46,157,128,63,104,104,104104,76,229,61,188,108,63,185,136,63,172,75,63,153,13663,188,108,63,169,0,153,136,63,236,73,63,208,3,760 144,63,141,124,63,173,116,63,141,125,63,96,221,128f63,48,250,240,248,152,157,128,63,189,75,63,24,105,6168,185,113,60,56,253,128,63,221,127,63,48,59,224,1 240,221,221,127,63,240,50,96,189,108,63,24,125,116,63141,75,63,168,185,136,63,172,743,104,168@^189,76,63,153,136,63,24,105,6,168,174,73,63,169,0|h157,129,63,174,126,63,185,113,60,56,253,129,63,168,169r192,157,129,63,152,224,0,208,34,221,128,63,48,28,208|11,173,35,192,205,127,63,144,18,141,127,63,140,128,63-173,108,621,12,248,237,235,244,8,19,10,11,1,247,246,245,255b69,11,247,245,9,10,1,246,255,46,9,5,3,3,1@0,1,3,3,5,9,46,120,169,192,141,128,63,162,0J142,127,63,202,142,126,63,76,97,61,189,108,63,24,125 T116,63,72,168,185,136,63,188,108,63,153,136,6340,200$ 4180. 200$8 5450AB "REGULAR LOAN PAYMENTS"GL QV "*";[` 4790ej "*";ot 5010y~ "*"; 4840 "*"; 4880 E42490 4920 4970 E22550  V(2)(V(7)V(6)V(3)(1(1V(3)V(6))(V(6)Y))1"3) FINAL LOAN PAYMENT";"4) SINGLE PAYMENT LOAN"`"5) LOAN AMORTIZATION SCHEDULE"z"6) CALCULATOR MODE""7) RETURN TO MAIN MENU""CHOICE ";A$A(A$) A12290 A72290 A2360,2780,2960,3120,3230,2 FLOW - YEAR # ";IA$& A(A$)?*NVNVA((V(3)1)I)F4I^>NV(NV100.5)100dHR"NET PRESENT VALUE:$";NV\TENVf5270p710z5450"LOANS:""1) REGULAR LOAN PAYMENTS""2) REMAINING LOAN LIABILITY"V(6))(V(6)Y)1)1)100.5)100'vI"REGULAR WITHDRAWALS:$";V(8)R710\5450w"NET PRESENT VALUE:$"}"INITIAL INVESTMENT"C1395048404880"CASH FLOW (+/-)"NVV(2)I1V(4) "CASHRV(8)1820"V(3)V(3)TE,1750=V(3)V(3)TEG&1750g0V(3)(V(3)10000.5)10000q:5150DE41890NV(4)(V(6)V(8)(V(6)V(8)V(3)V(2)))(V(6)(1V(3)V(6)))X5180bE8710!lV(8)(V(2)V(3)V(6)(1((1V(3)4970E21720WV(2)(V(8)V(6)V(3)(1(1V(3)V(6))(V(6)Y))100.5)100a5120pE31860}V(3).99I0R(V(2)V(3)V(6)(1((1V(3)V(6))(V(6)Y)1)1)100.5)100TE(V(3)I)2IV(3)(RV(8)).00518403))(V(4)I)I/V(1)(V(1)100.5)10095090ETEV(1)O5270X710b5450}"WITHDRAWAL OF FUNDS"",47506"*REGULAR WITHDRAWAL $"@C7J3950T"*";^4840h"*";r4880|E416804920)100 23<"REGULAR DEPOSITS REQUIRED:$";V(7)<F710FP5450jZ"FUTURE VALUE WITH CASH FLOWS"pdzn4840x4880"CASH FLOW (+/-)"V(1)0I1V(4)"CASH FLOW - YEAR #";IA$A(A$) V(1)V(1)A(1V(0V(3)V(3)TE1170-V(3)V(3)TE71170WV(3)(V(3)10000.5)10000a5150pE41310 V(4)(V(3)V(1)(V(6)V(7))1)(V(6)(1V(3)V(6)))5180E7710(V(7)(V(1)(V(3)V(6))((1V(3)V(6))(V(6)Y)1)100.511140I`V(1)(V(7)V(6)((1V(3)V(6))(V(6)Y)1)V(3)100.5)100Sj5090btE31280o~V(3).99wI0T(V(7)(((1V(3)V(6))(V(6)Y)1)(V(3)V(6)))100.5)100TE(V(3)I)2IV(3)(TV(1)).0051260TV(1)124710,V(4)((V(1)V(2))V(3)100.5)10065180?710I5450s"FUTURE VALUE WITH REGULAR DEPOSITS"y4710"*REGULAR DEPOSIT $"C63950"*";4840$"*";.48808E41100B4920L4970VE"; 4840 "*"; *4880- 4E48407 >4920E HE1870k RV(1)(V(2)(V(3)Y)100.5)100u \5090 fE2900 pV(2)(V(1)(V(3)Y)100.5)100 z5120 E3930 V(3)((V(1)V(2))Y10000.5)10000 5150E43)((V(6)(V(1)V(2))(1(V(6)Y))V(6))10000.5)10000C 5150Q E4710} V(4)(V(1)V(2))(V(6)(1V(3)V(6))) 5180 5330 270 5450 "FUTURE VALUE WITH INTEREST COMPOUNDED CONTINUOUSLY"  4710 4750 "* 4750 "*"; 4840( "*";2 &4880? 0E4580I :4920S D4970a NE1620 XV(1)(V(2)(1V(3)V(6))(V(6)Y)100.5)100 b5090 lE2650 vV(2)(V(1)((1V(3)V(6))(V(6)Y))100.5)100 5120 E36809 V(E" h"7) CALCULATOR MODE": r"8) RETURN TO MAIN MENU"@ |P "CHOICE ";X A$d A(A$)q A1400~ A8400 A470,730,970,1360,1550,1940,450,200 4180 200 5450 "FUTURE VALUE WITH PERIODIC INTEREST"  4710S:" "7 ,"1) FUTURE VALUE WITH PERIODIC INTEREST"t 6"2) FUTURE VALUE WITH INTEREST COMPOUNDED CONTINUOUSLY" @"3) FUTURE VALUE WITH REGULAR DEPOSITS" J"4) FUTURE VALUE WITH CASH FLOWS" T"5) WITHDRAWAL OF FUNDS" ^"6) NET PRESENT VALU6 (3950(&("TERM OF LOAN:"0(4880:(4920@(F(a("FUTURE VALUE:$";V(1)g(m(( "REQUIRED INVESTMENT:$";V(2)(((("ANNUAL INT RATE (%) REQUIRED:";V(3)100(2(<V(5)V(4)(V(4)))FV(5)((12V(5)10.5C2 '3950')'"FOR # OF YEARS"1'C3;'$3950A'.X'8"FOR # OF MONTHS"`'BC4j'L3950'VYV(C1)V(C)12'`'j"# OF PERIODS (COMPOUNDING, DEPOSITS, WITHDRAWALS, PAYMENTS) YEARLY"'tC5'~3950''"PAYMENTS $"(C &4690& MMT&*4690%&4TM/&>46907&HM0E&R"MEM=";MK&\b&f"*FUTURE VALUE $"j&pC0t&z3950z&&"*PRESENT VALUE $"&C1&3950&&"PRINCIPAL $"&C1&3950&PV(C)&&"ANNUAL INT RATE (%)"'%0%:I18(%D(V$,I,1);" ";V(I)/%NI5%X;%bU%l"IN WHAT VARIABLE ";]%vA$h%I18%A$(V$,I,1)4510%V(I)M%I%%C$;" ";C1$;" MEM=";M%%%M51%%MMT%4690%MMT%4690% MMT $4210$I18-$A$(V$,I,1)42907$V(I)B$TV(I)I$IT$J16u$A$(C1$,(J1)21,2)4330$J4580,4600,4620,4640,4660,4680$J$K14$A$(C$,K,1)4370$K4410,4460,4530,4560$K$M504210$&M50MEM=";M;" USE AS VARIABLE HERE (Y/N)".#A$?#A$"N"4000J#V(C)MP#b#A$"X"4130j#ECp##"V(C)(A$)#,C34160#6V(C)V(C)100#@#J CALCULATOR MODE#T5450#^M50#h4530#rA$#|(A$)574250$T(A$);J1;":$";(P1100.5)100'" F139307"J1L13930A"5330K"(5450T"2C50]"<P10f"FI10n"PN1v"ZJ1"d2760"nCC1"xC33990"V(3)100,"4000"V(C),"A$"""A$"A$""4040""A$"MR"4100&#"0!~J1F13770!5330%!5450.!C50C!JV(6)N13770M!5390T!Jd!J1F13890r!F03820x!!"FINAL PAYMENT :$";((PPI)100.5)100!!"TOTAL INT PAID IN YR ";J1;":$";(I1100.5)100""TOTAL PRINC PAID IN YR "3570 PPP F1& J1F13600D N5;S1);(P100.5)100;h S2);(PP100.5)100;Q$;S3);w PPIV(7) F03640 $P0 .JV(6) 8J1F13670 BI;S4);(P100.5)100; L VI1I1I `P1P1PP jC5C51!tC5D5377).99)J\ "ENTER THE RANGE OF YEARS YOU'D LIKE TO EXAMINE (FIRST, LAST)"Uf F1,L1fp L1NY3460pz L1NY} J11L1 J1F13490 5390 J1V(6)N1 I(PV(3)V(6)100.5)100 N5N51 PPV(7)I J1NY3570 N5NP 5450( "LOAN AMORTIZATION SCHEDULE". 8 4790B 5010L 4840V 5050r "# OF PAYMENTS YEARLY"| 3950* "ENTER THE PERIOD OF THE YEAR IN WHICH THE LOAN BEGAN"4 N> NENH NP(V(4)12V(5))(12V(6))R NY(((N1)NP)V(6 "LAST PAYMENT:$";LP!& 2760+0 5450F: "SINGLE PAYMENT LOAN"LD VN 4790`X 4840jb 5050tl 4970v V(1)(V(2)(1V(3)V(6))(YV(6))100.5)100  "TOTAL OWED:$";V(1) 2760 C50 N50 F0 P10 I10r 1| "LIABILITY AFTER ";A;" PAYMENTS:$";LI; 2760E 5450^ "LAST LOAN PAYMENT"d n 4790x 5010 4840 5050 4970 J1V(6)Y I(PV(3)V(6)100.5)100 PPIV(7) J LP(P100.5)100V(7) YMENT:$";V(7) 5330! 2170+ 5450K "REMAINING LOAN LIABILITY"Q [ 4790e 5010o 4840y 4970" "LAST PAYMENT # WAS:", A$6 A(A$)@ J1AJ I(PV(3)V(6)100.5)100T PPIV(7)^ Jh LI(P100.5)1000Z V(3)V(3)TEd 2580<n V(3)(V(3)10000.5)10000Fx 5150U E42720 V(4)(1V(3)V(2)(V(6)V(7)))(V(6)(V(3)V(6)1)) 5180 E72760 V(7)(V(3)V(2)(V(6)(1(V(3)V(6)1)(V(6)Y)))100.5)100  "REQ PA00.5)100 / "AMT OF PRINCIPAL:$";V(2)9 2760H E32690U V(3).99] I0 P(V(7)V(6)V(3)(1((1V(3)V(6))(V(6)Y)))100.5)100 TE(V(3)I)2( IV(3)2 (PV(2)).0052670< PV(2)2650F V(3)V(3)TEP 258 --"' 6" 1 USE EXISTING LEDGER"H @" 2 SET UP NEW LEDGER"P JA$` TA$"1"380p ^A$"2"540y h330 r290 |EXISTING LEDGER  Z$"PLACE YOUR DATA DISK IN DRIVE 1":3420 Z$"AND":3420 Z$"PRESS TO CONTINACE ESC$(27)1 MR400: MAX NO OF RECORDSI NC25:NO. OF CODESb CODE$(1,NC),RD$(MR) LD8:LC5:L18:L28:LP15:LS15:LM10:DEFAULT REPORT FORMATTING WIDTHS Z$"YOUR PERSONAL LEDGER":3420 10 ""PRESS TO" ,"----- (1dCLRLN868:CLEAR TO END OF LINE SUBROUTINE`nCS958:CLEAR TO END OF SCREEN SUBROUTINExB0$"":B1$" ":B20$" "D$(4):CTRL-DQU$(34):QUOTER$(13):RETURNBS$(8):BACK SPACE FS$(21):FORWARD SP                            ϾEVoB yXV+V`[詷 ͩLզ̵˵𷩷 WGXH U@`UWյ 距8 ^  LӜ VLm9V ߼,Ǜi۽`OLœ~LIpH`grhs z鼍̾B`UaVrWsXUiUViVL߼W8ѾWXLiҾXɵʵL˵ξD̵"&   #&   &   L  `FASTLOADINGDOS1Šˍ2ԍŠFATALERRORԠˠΠŠ LG ȩ   HLp ` X JG! ; ɱ L\ ɲL! L `! JJJJi ɛ !LG     RN> TO CONTINUE"*A$"""*A$3*A$""53609*C*5450p*"LOAN AMORTIZATION SCHEDULE FOR YR ";J1*""PRIN $";V(2);" RATE ";V(3)100;"%";" PAYM $";V(7)*,*6"# BEG BAL PRINC INT END BAL"*@*J*T)10))PV(4)(V(4))))ZV(5)1252409)dV(4)V(4)1D)nV(5)0J)xv)"# OF YEARS AND MONTHS:";V(4);",";V(5)|)))TE05310)"THIS IS A LOSING INVESTMENT."))"THIS IS A PROFITABLE INVESTMENT."))*"HIT RD$(J)B0$JJ1:2110HIJRD$(I)RD$(J):RD$(J)B0$RI1I1:I2I\I102180fRD$(I1)RD$(I2)2180pT$RD$(I1):RD$1""DATE:",DT$,"CHECK NUMBER:",CK$VI01:"CODE ";I1,CODE$(I,CD(I)):Io"SOURCE/PAYEE:",PY$"DESCRIPTION:",DC$"AMOUNT:",AMT$D$"PR#0"1250:FIND/EDIT MENUSORT TRANSACTIONSNR0600I1:RN1 RD$(IELETE":3420&Z$"OR":3420K0Z$"PRESS TO ABORT DELETION":3420i:A$:A$R$A$ESC$1850{DA$ESC$1250NRD$(RN)B0$XNRNR1bNR0600lRNRN1:RNTRRN1vRD$(RN)B0$19001250PRINT RECORD RN:D$"PR#A$"C"İ4070'4150:STORE RECORDA1250:FIND/EDIT MENUn3450:Z$"PRESS TO CHANGE "Z$:3420Z$"OR":3420Z$"PRESS TO ACCEPT":3420A$:A$R$A$"C"1790DELETE RECORD 3450:Z$"PRESS TO D"DATE":1760JA$"C"İ3540:TZ$"CHECK NUMBER":1760L^A$"C"İ3660WhI01srZ$"CODE "(I1):1760|A$"C"İ3730IZ$"SOURCE/PAYEE":1760A$"C"İ3930Z$"DESCRIPTION":1760A$"C"İ4000Z$"AMOUNT":1760A$ESC$6001400J3450:"JUMP HOW MANY RECORDS (+/-)? ";A$iJ((A$)):ST1:J0ST1}J(J):J1350I1JRNRNSTRNTRRN1RN1RNTRRD$(RN)B0$1530"I,1250:FIND/EDIT MENU6CHANGE @Z$ -->"&Z"HANGE UMP"Hd"

RINT ELETE"ln"ENTER MENU"txA$A$"J"1490A$BS$ST1:J1:1520A$FS$ST1:J1:1520A$"C"1590A$"D"1810A$"P"1930A$"E"1070):Z$"FIND/DISPLAY TRANSACTION":3420A 3620:DISPLAY DATE^3720:DISPLAY CHECK NO.I01:3920::DISPLAY CODES (3990:DISPLAY SOURCE/PAYEE24060:DISPLAY DESCRIPTION<4140:DISPLAY AMOUNTF3450P"<-- SOURCE/PAYEE*4000:ENTER DESCRIPTIONB4070:ENTER AMOUNTL3450tZ$"PRESS TO ACCEPT":3420~3480ACCEPT ENTRYNRNR1:TRTR1:RNTR:4150FIND/CHANGE TRANSACTIONNR0600:MENU4190:RETRIEVE RECORD RN.ENTER TRANSACTION%8TRMR1120+B`LZ$"THERE IS NO ROOM FOR ANY MORE RECORDS":3420wV:3530:600:MENU}`jZ$"ENTER TRANSACTION":3420t3540:ENTER DATE~3660:ENTER CHECK NO.I01:3730::ENTER CODES 3930:ENTER980A$FS$JJ1:9806A$ESC$600:MAIN MENUGA$"C"1010P920^J0JNClJNCJ0u900EDIT CODE I,J3450:Z$"ENTER NEW DESCRIPTION":342010:2:CLRLN(("A")J),"";CODE$(I,J)$860:NEXT CODE:3420 >8'H"CODE","DESCRIPTION"/RJ0G\3450:CLEAR BOTTOMof"PRESS <-- OR --> FOR OTHER CODES"p" TO CHANGE"z" FOR MENU"10:2:CLRLN(("A")J),CODE$(I,J)10:A$A$BS$JJ1:22203450:SET SCREEN6EDIT TRANSACTION CODES^:Z$"EDIT TRANSACTION CODES":3420d Z$"WHICH TYPE CODE":3420Z$"PRESS 1 OR 2":3420 A$:A$"1"A$"2"600:MAIN MENU*I(A$)14:Z$"EDIT TYPE "A$" TRANSACTION CODE" TRANSACTION"2 " 3","FIND/CHANGE TRANSACTION"Q " 4","SORT TRANSACTIONS"k " 5","PRINT REPORT"q  "","SAVE CHANGES/EXIT" A$:(A$"1"A$"5")A$ESC$710 A$ESC$3200:SAVE TO DISK AND EXIT(A$)750,1070,1250,2030,N MENU NEW LEDGER &N 0Z$"PUT FORMATTED DATA DISK IN DRIVE 1":3420a :Z$"AND":3420 DZ$"PRESS ":3420:A$ NNR0:NT0 XMAIN MENU b l"PRESS","TO" v"-----","--" " 1","EDIT TRANSACTION CODES" " 2","ENTERUE":3420! 3450:CLEAR BOTTOM+ A$:E D$"OPEN LEDGER.DATA"_ D$"READ LEDGER.DATA" I01:J0NC:CODE$(I,J):: NR:TRNR NR510 I1NR:RD$(I): D$"CLOSE LEDGER.DATA" RN1:SET CURRENT RECORD NUMBER 600:MAI40 *3450;*$8:1:CLRLN:"DATE:",DT$::DISPLAY DATE A*.]*8A$:A$"0"A$"9"3640s*BDT$DT$A$:A$;:*LENTER CHECK NUMBER*VVTAB9*`WIDTH5*j3450*t"CHECK NUMBER: ";A$:3450*~CK$(B20$A$,5)+9:1:CLRLN:"CHECK NO:",) A$:A$R$A$ESC$35008) A$ESC$ġ:600:MENU>) s) 22:Z$"PRESS ANY KEY TO CONTINUE":3420:A$::) ENTER DATE YY/MM/DD) VTAB 8) WIDTH 6) 3450:"DATE: ";) DT$B0$)J12:3640:3640:DT$DT$"/":"/";:*3640:36R 216,0:3200:ERROR TRAP -- BACK TO CHOICE@(\ CENTER DISPLAY`(f TB20((Z$)2):TB1TB1n(p TB)Z$:}(z VT18:HT1( HT:VT:CS:HT:VT:( Z$"PRESS TO CONTINUE":3420( Z$"OR":3420) Z$"PRESS TO RETURN TO MENU":3420.DATA")' I01:J0NC:CODE$(I,J)::1' NR?' NR3360H' I11T' I1NRs' RD$(I1)B0$I1I11:3330' QU$;RD$(I1):I1I11' ' D$"CLOSE LEDGER.DATA"'* 216,0:RESET ONERR'4 :Z$"PRESS TO EXIT":3420'> 3480'H ,(:"TOTAL: $";A1$;".";A2$B&l D$"PR#0":RESET OUTPUT TO MONITORQ&v 600:MENUh& SAVE ENTRIES/EXITn& & Z$"PRESS TO SAVE CHANGES":3420& 3480& :Z$"SAVING CHANGES":3420& 3410& D$"OPEN LEDGER.DATA"' D$"WRITE LEDGERD(0))B20$,L1);B1$;;% L2ĺ(CODE$(1,CD(1))B20$,L2);B1$;X% LPĺ(PY$B20$,LP);B1$;u%& LSĺ(DC$B20$,LS);B1$;%0 LMĺ(B20$AMT$,LM);B1$;%: %D AA(AMT$)%N RN:RNRT%X A1(A):A1$(A1):A2$((100(AA1).1)):(A2$)1A2$"0"A2$&b RECORDS#$ 4190:RETRIEVE RECORD5$ D1$B0$3020L$ (RD$,4)D1$3150c$ (RD$,4)D2$3150t$ C(0)03040$ CD(0)C(0)3150$ C(1)03060$ CD(1)C(1)3150$ LDĺ(DT$B20$,LD);B1$;$ LCĺ(B20$CK$,LC);B1$;% L1ĺ(CODE$(0,CHECK",LC);B1$;0#T L1ĺ("CODE 1"B20$,L1);B1$;R#^ L2ĺ("CODE 2"B20$,L2);B1$;z#h LPĺ("SOURCE/PAYEE"B20$,LP);B1$;#r LSĺ("DESCRIPTION"B20$,LS);B1$;#| LMĺ(B20$"AMOUNT",LM);B1$;# :# RTRN:RN1TR$ RD$(RN)B0$3150:SKIP BLANKI)J " I" :D$"PR#1"#" A0C" "PERSONAL LEDGER REPORT":" D1$B0$ĺ(D1$,3,2);"/";(D1$,2);" TO ";(D2$,3,2);"/";(D2$,2):"" I01", C(I)0ĺ"CODE ";I1;": ";CODE$(I,C(I)):"6 I"@ LDĺ("DATE"B20$,LD);B1$;#J LCĺ(B20$"C$2800#!x 3450:Z$"<--,-->":3420K! Z$"PRESS TO ACCEPT":3420S! J0|! 8:1:CLRLN:(("A")J),CODE$(I,J)! A$:A$BS$A$FS$A$R$2720! A$R$2790! A$BS$JJ1:2760! JJ1! J0JNC! JNCJ0! 2710" C(:A$:A$;:T$T$A$::! 2 I01T < VT8:HT1:3460:Z$"CHOOSE CODE "(I1):3420 F 3450:Z$"PRESS TO ACCEPT ALL CODES":3420 P Z$"OR":3420 Z Z$"PRESS TO CHOOSE PARTICULAR CODE":3420 d A$:A$R$A$"C"2660!n C(I)1:A$R TO CHOOSE PARTICULAR DATES":3420C A$:A$R$A$"C"2540[ D1$B0$:A$R$2610| 3450:"FROM:",:2590:D1$T$ "TO:",:2590:D2$T$ 2610 T$B0$:"MONTH (MM): ";:2600::,"YEAR (YY): ";:2600::T$(T$,2)(T$,2): ( II1220  13:CS:"DESCRIPTION",LSC "";A$:A$B0$LS(A$):2440\ 14:CS:"AMOUNT",LM "";A$:A$B0$LM(A$):2460 3470 :Z$"SELECTION":3420 3450 Z$"PRESS TO ACCEPT ALL DATES":3420 Z$"OR":3420& Z$"PRESS):2340%8 9:CS:"CHECK NUMBER",LCHB "";A$:A$B0$LC(A$):2360aL 10:CS:"CODE 1",L1V "";A$:A$B0$L1(A$):2380` 11:CS:"CODE 2",L2j "";A$:A$B0$L2(A$):2400t 12:CS:"SOURCE/PAYEE",LP~ "";A$:A$B0$LP(A$):24A$:A$R$A$"C"2270)A$R$2490<CHANGE FORMATo:Z$"PRESS RETURN TO ACCEPT EACH FIELD":3420 Z$"OR":3420 Z$"ENTER NEW FIELD WIDTH":3420 Z$"WIDTH = 0 ==> OMIT FIELD":3420$ 8:CS:"DATE",LD. "";A$:A$B0$LD(A$(I1)RD$(I2):RD$(I2)T$/zI2I1:I1I11:21409JJ1@IJTRNRY600:MENUeREPORT:Z$"PRINT REPORT":34203450:Z$"PRESS TO ACCEPT DEFAULT FORMAT":3420Z$"OR":3420Z$"PRESS TO CHANGE FORMAT":3420!,0a DMc `D`` XRFHJL `զ ]"iGIKM x I߅ Ѡ Q`  Q` L ' $%L$,0 )`)`< )? L L  'Ȅ툹Ƀm i N( (m  @  ? LYZ`((((PPPPЭFOUGPV8IG`  ` )`,,E X& L( ) L QRTU SSRU``ee ΙΜ`m  @  ? O P ɂ<(ɀ )?        ˠԠĠԠĠ(RD$,7,5):CHECK NO.O0II01:CD(II)((RD$,12II,1))("A")::CODES 1 & 2r0PY$(RD$,14,20):PAYEE/SOURCE0DC$(RD$,34,20):DESCRIPTION0AMT$(RD$,54,9):AMOUNT0MOUNT/6STORE RECORD RNt/@RD$(DT$,7,2)(DT$,1,2)(DT$,4,2)CK$(CD(0)("A"))(CD(1)("A"))PY$DC$AMT$/JRD$(RN)RD$/T/^RETRIEVE RECORD RN/hRD$RD$(RN):RECORD DATA/rDT$(RD$,3,2)"/"(RD$,5,2)"/"(RD$,1,2):DATE0|CK$RLN:"DESCRIPTION:",DC$:+.ENTER AMOUNT7.VTAB14D.WIDTH 9d.3450:"AMOUNT: ";A$:3450.A(A$):A1(A):A2(100(AA1).1).A2$(A2):(A2$)1A2$"0"A2$."AMT$(B20$(A1)"."A2$,9)/,14:1:CLRLN:"AMOUNT:",AMT$::DISPLAY A20 -x3450,-"SOURCE/PAYEE: ";A$:3450B-PY$(A$B20$,20)-12:1:CLRLN:"SOURCE/PAYEE:",PY$::DISPLAY SOURCE/PAYEE-ENTER DESCRIPTION-VTAB13-WIDTH 20-3450-"DESCRIPTION: ";A$:3450-DC$(A$B20$,20).13:1:CL3420 ,A$%,A$BS$JJ1:3870=,A$FS$JJ1:3870M, A$R$3900W,3820e,J0JNCs,(JNCJ0},23810,<ACCEPT CODE,FCD(I)J,P10I:1:CLRLN:"CODE ";I1;":",CODE$(I,CD(I)):,ZENTER SOURCE/PAYEE,dVTAB12-nWIDTH CK$::DISPLAY CHECK NO.)+ENTER CODESD+I=WHICH CODE (0 OR 1)W+VTAB 10 OR 11d+WIDTH 1n+3450+Z$"CHOOSE CODE "(I1):3420+22:Z$"PRESS <--,--> OR TO ACCEPT":3420+J0,20:CLRLN:Z$(("A")J)" "CODE$(I,J):L LȱɽLL HhB Lȱ< /L,X Wrs2_e ` `aŵ  L6UVmUUmVV hhL'  h   LL a DMc0&  qL XL iL1<`WLRTBSNHF@PXMIG}csSI@)ȩL L L L LL L L L L LȘH h`  Lȱ<` ! L18 0 RS…֩!   R R R1*8  v S…֩   R 0 R` R`m R` L ʊ HH"H!H`8eB MrFG0@L<,TɠTLȱɠT8ei u 8.TS…֩   8UV*(   L`D,0 )L* L* )L* L ,0  ` `KB:PHH8 hh` ܠL La DMcL  0 Ϡ ɱ ɸ 8鰍L ` v mP 8鰐* &.... L 8L0`8JK   Q`mm8UVeI  Q` nmUUmVVJK 1L ȱȊ L'j rs2_e ` `aŵ L6UVmUUmVV  | LE,0+VG    VV` L,0+VG )ߑ VV`)L X Ӝ n  ɍL FrGsU8FlVGm0_ e ` ŵLS ŵ  `Q` q hh` QRtflmcpqӜɺ8 0 hLhh L< /)ߝuX` _ ))? @HR  hLn FGj' ) : 5 LI : LI : iLILK  L `8  L'$W  X X ɛ7ɍ9ɈL} L}) W  L} L}  ` v L8UV nUmUVmV`RIR`߅` )` 0 8L L <VLl L] <GL 8ee8LL a DMc x ? ՅɠVUVL$Lee8UV8 18UUVV`a DMc0LL ɠL]  `  <ȑ  L{ L UmVmIhhL#mmmm 18UV 18UUVV`  8`  Lc x  )H h)W  LS  LP  L`8OP OP`FGL FGL a DMc0Liɮɡɿ<VLl VLl ɠɮɡɿ>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ""*:<""࿀࿀ՀՀՀՀUUUU(****(    216,0 ! "D$;"CLOSE ";B$D 'D$;"BSAVE ";A$;",A8192,L";L1J ( (B);  ( D$;"CLOSE ";B$. R "ENTER TEXT FILE NAME":":";B$ "ENTER SPEEDSCRIPT FILE NAME TO CREATE :";A$ D$;"OPEN ";B$ D$;"READ ";B$ L0 270 C$:A(C$(0))128:A141A60 8192L,A:LL1:250 IPT FILE NAME":":";A$D n"ENTER TEXT FILE NAME TO CREATE":":";B$b xD$;"BLOAD ";A$;",A$2000" }L(43616)(43617)2568192 D$;"OPEN ";B$ D$;"DELETE ";B$ D$;"OPEN ";B$ D$;"WRITE ";B$ I8192L1 B(I) B60B141 L 8191 D$(4)1D$;"MAXFILES1"H("DO YOU WANT TO:"2" (1) MAKE A SPEEDSCRIPT FILE INTO A TEXT FILE"<" (2) MAKE A TEXT FILE INTO A SPEEDSCRIPT FILE"FA$:A(A$)PA1A270ZA100,200 d"ENTER SPEEDSCR  ӠĺԠŠȺŠٯݿ`̠ҠŠӬ׬ЩŠՠſٯΩŠ̠ŠӬ׬ЬΠϠҠԠźźϠĺӠϠϠԠΠҮԠϺάҿԠҿǮԠԠԬХiL S!0@ / R R RL` /C8SJ8 RL)E8S8LJUIc $L)B RL) 8HUIV $Q`DIDE`Ԡ٠îΠˮҠP V6eiUV8  `  Q`a DMc0#  qXL 8bee8UV 18UUVV& mz#     ԠԠԠŠ ̮ԠԠǮؠ% Ҡ-ҮԳ ԳخΠ  ؠҮȠϠ ՠ Ҡà!Ӡ#Š' ˠT$(((TEY)10)10)EI01:15:31:T$" ":230,96(230):]590:K$"Z"ĉ:630iFL970K$"+"MMLMM2TTM:860::T$(2):31)"MOON"31)"PHASE":50024:2:"(EARTH-MOON DISTANCE MAGNIFIED BY 30)"; 11:3:\JLH:ATP(J)R(J):fA((A(A))256):J9890XpX(J)C(A):Y(J)S(A):910yzZ1EC(A):X(J)E(EC(A))ZY(J)(EE1)S(A)ZX(J)2((110X(J)E(J))2)Y(J)(99Y(J)F(J)):J19:PU6J8,X(J)PU6J9,Y(J)::CONG YEAR (1-2000)";K$3 SY(K$):SY1SY2000630J:::T$(1)::K1X 3:JLHi*31)N$(J):>500:14:31:"YEAR"CA$"2000<4000.5FFFM":1780HE.25:TSYEY:FL1RPU,1:PU1,0:PU2,106:PU3,98WILH:PU6I6,1:PU6I7,0J19:J" "N$(J):, 15:"INNER PLANET?";@ K$:K$"Z"360U L(K$):L1680r N$(L):"OUTER PLANET?"; K$:K$"Z"360 H(K$):HLH9HL3710 N$(H): JLH:F(J)D(J)80D(H) E(J)F(J)SA::MP(L)50:MLM9"STARTI1)"-=SLOWER" 30)X$:: &I015:PUI6,0::CO3:J :23:31:X$V D3:1:n NK(49152):K128ı S49168,0:K$(K128):K$"S"FL1 XK$"G"FL0 bK$"-"MM2 l v:550:T$(1):570 "PLEASE SELECT PLANETS (MAX4)" :(M):C(N)(M): h5503 :5:15:"SOLARPIX"R 15:J14:9:J" "T$(J):e :9)"Q QUIT" 470:K630,1010,1280,1460 K$"Q"420 550 :: 24:K$:K(K$): 19:31:"G=GO" 31)"S=STOP" 31)"+=FASTER" 3T$(4)"FACTS"' J010:F$(J),U$(J)A L0:H10:J4L1:H9X KLH:Z(K,J)::o J19:D(J)Z(J,5) P(J)Z(J,6): J010:N$(J) J4J10280 K1Z(J,10):M$(J,K): :J19:R:R(J)R360: "N0255:MNPP256 ,S(N)I65,129:A:PUI64,A:Y .I011:AD3310356I:SH(I)(AD256):SL(I)AD256SH(I):h 2EY1984.82 <PP8(1):P$(0)"AC":P$(1)"DE":SA1.15 PSP$(32):X$SP$"Z=EXIT" dT$(1)"SUN & PLANETS" nT$(2)"SUN,EARTH & MOON" xT$(3)"COMETS" %:10:15:"PLEASE WAIT"024576:31744V (4);"BLOAD SOLARPIX.BIN,A$8100"6,240:7,131:230,32:(190256)76ĺ(4);"PR#A$85C8":40#54,200:55,133:1002(S(255),C(255),M$(9,17),SH(11),SL(11)*PU32768:CO34336 ,I010:PU      & & &(jQ܈ۥQ`܈Q`ۈ)?Xۈ),ۈpi(i(m؈`        ވijnވJnވJnވވ****)`@*TI``064460 iɟɉ`L톩߅?쩉_`؈ȱوȱڈȱȱ`و"'8Iib is i·܈ȱ݈iڈۈ 0 m܈ۈ݈`܈ JJfJfJf(fQQ` $20I$ i EFGXLL4?i`` D ƈ `߅ ȱii$ȱȱii?ЧɉLT`߅ - Ii?ɉ`L? - I>""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >xEFG >0 e()) 198,255,351,285,249,180,204,227,173dE,CARME,PASIPHAE,SINOPE^ SATURN,ATLAS,X,X,JANUS,EPIMETHEUS,MIMAS,ENCELADUS,TETHYS,TELESTO CALYPSO,DIONE,X,RHEA,TITAN,HYPERION,IAPETUS,PHOEBE URANUS,MIRANDA,ARIEL,UMBRIEL,TITANIA,OBERON NEPTUNE,TRITON,NEREID,X,PLUTO,CHARON,MOON# RSx 75,139,193,295,10026 1840,3698,5797,7612D MOONS,-^ 0,0,1,2,16,17,5,3,1 SUN,MERCURY,VENUS,EARTH,MARS,PHOBOS,DEIMOS JUPITER,METIS,ADRASTREA,AMALTHEA,THEBE,IO,EUROPA,GANYMEDE,CALLISTO LEDA,HIMALIA,LYSITHEA,ELARA,ANANKYEAR,EARTHYEARS. 0.241,0.615,1,1.88,11.86E( 29.46,84,164,248[2 ORBIT SPEED,MPHz< 107000,78000,66000,54000F 29000,22000,15000,12000,10000P AXIS TILT,DEGREESZ 0,179,23.5,25,3.1d 26.7,97.9,28.8,0n DRIVETIME(55MPH),YEA 25,58.9,243,1,1.03,0.404= 0.444,0.67,0.77,6.39,27.3Z TEMPERATURE,FAHRENHEITz 10000,620,900,72,-10,-240 -300,-340,-370,-400,-10 DISTANCE FROM SUN,MILL.MILES 36,67.2,92.9,142,483 887,1783,2795,3670 LENGTH OF 4200,88000,71000,32000.j 31000,1500,2160Ct MASS,(EARTH=1)^~ 332830,0.055,0.815,1x 0.107,318,95.2,14.5 17.2,0.01,0.012 DENSITY,(WATER=1) 1.4,5.4,5.2,5.5,3.9,1.3 0.7,1.2,1.7,1.4,3.4 ROTATION PERIOD,EARTHDAYS10:K4L1:H9!6:1:JLH8N$(J)19)Z(J,K):L570:470:1460C$A$" N 3FFD:68 68 60 N 3FFDG":I1(C$):511I,((C$,I,1))128::144:8 0,18,37,23,65,37,65,51B 23,51,23L DIAMETER,MILESV 864000,3100,7700,7926` J0H$hF$(J)19)Z(K,J)28)U$(J)5r:K101680^|"DIST.FROM EARTH"19)"243000 MILES"wF$(9)19)"6 MONTHS":K4K101770J1Z(K,10):C((J1)7)L14JC7:L:C131M$(K,J)::1770::F$(K);::19)U$(K)L0:HJ):5:J010.20:(J65)" "F$(J):C470:K$"Z"360YK$"S"K0:1590pK$"M"K10:1590K0K101590"K(K$)65:K0K101530,17206::N$(K);:JH4:K0K10ĺ:1630TH10:" PLANET #"K" FROM SUN"^:(76XF):Y(100YG)9J(2APP):PU8,X:PU9,Y:COjE0.1āI12:3:28:P$(J):230,96(230):K(49152):K("Z")128Ĺ49168,0::1280TTM:1390::T$(4)" MENU"::5:1570:5:1"S SUN":"M MOON"J19:J" "N$(T$(3)::570*F"ECCENTRICITY="E:3:28APEĺ"ACCELERATING"`UA$"2000<4000.5FFFM":1780ZM0.01:T0:F65SA:G65FLdPU,1:PU6,1:PU1,0:PU7,0iPU2,76:PU3,98nA(T(T))PP:Z1E(A)xXE(E(A))Z:Y(EE1)(A)ZXӺ(T365.25):230,96(230):5590:K$"Z"ĉ:360BFL1240[K$"+"M.006MM2kTTM:1130550:::T$(3)::570"ECCENTRICITY(0-0.96)";K$E(K$):K$"Z"360(E0E.96(K$)012802FL1:(K$,1)"R"FL1 <:::):BTH:BB(B)'tC(12(BA).57)=~C0CC12:1150OAAPP:BBPPiX2((104(A)D)2)|Y(93(A)E)W(X4(B)F)Z(Y2(B)G)PU26,X:PU27,Y:PU8,WPU9,Z:PU70,SL(C):PU71,SH(C):COI01:13:31:1:"EARTH"$31)"DAY"8)A$"2000<4000.5FFFM":1780V.E80:DESA:FD13:GE13u8M0.3365.25:T0:H13.3685BPU,1:PU6,1:PU7,0:PU24,1:PU25,0:PU66,1LPU1,0:PU2,104:PU3,92VPU67,0:PU68,218:PU69,43`FL1jAT(T(4):(4);"CATALOGD1")A$:600M:22:"SAVE PICTURE NAMED:";A$j:22:"SAVE PAGE:";:B$zB$"-"600B$"1"B$"2"740736B$"1"B2000B$"2"B4000(4):(4);"BSAVE ";A$;",A$";B;",L$1FFF"600:2A> CATALOG")12:5:" LOAD SCREEN"G14:5:" SAVE SCREEN"e16:5:" COPY SCREEN"|18:5:" EXIT":20:1:"ENTER SELECTION";:A$:(4)A$"A"730A$"C"735A$"B"745A$"E"600A$"D"760720SCREENS"q2v23:5:"ENTER SELECTION:";:A$LA$"D"QW1:M1:100\A$"F"200lA$"A"300A$"B"BR1:200A$"P"QW3:M2:100A$"C"700A$"E"800A$"S"950(7);:630 DOS COMMANDS :10:5:" DRAW MODE"Kd8:10:" FILL MODE"if10:10:"

PAINT MODE"h12:10:" BRICK LAYER"j14:10:" AIR BRUSH"l16:10:" PAGE ERASE"n18:10:" D.O.S. COMMANDS"o20:10:" SWITCH S:TTD1BHD2BH2.A1,TA2,TESA1(BW2)A2BWUS,TS,TBH_S:T16297,0:16000PG,0:16302,0:16304,0T11000:T600X HELP SCREENZX140:Y95]::3:9:"POWER SKETCH MENU":`1:28:"HI-RGHT(1-10):";BH$'BW(BW$):BH(BH$)FBW20BW1BH10BH1410`PAXA1X:A2PA:428oA1PA:A2XPBYD1Y:D2PB:430D1PB:D2YA:12:10:"PLEASE WAIT..."TD1D2BH2A1,TA2,TSA1A2BWS,TS,TBH8V188<U(0)2:V(1)3?=(16287)127ē(0)X,(1)YQ>1U,V:1U,Vw@(KB)195Ĺ(KF),0:150:SCA:300B(KB)155Ĺ(KF),0:600CX:YE310 BRICK FILLBR0150::10:"BRICK WIDTH(1-20):";BW$12:1:"BRICK HIE0TPBY3SXPA3*2S,T4S:T=206CRTYPB3aSXPA3l2S,TvS:T 206, SPRAY BRUSH-16297,0:16000PG,0:16302,0:16304,01SC6Y1717X151;U(0)2:V(1)3:V18PBY231 TPBY1% X,TPA,T1 T:206@ TYPB1N X,TPA,TZ T:206m PBYPAX240| TPBY3 SPAX3 2S,T S:T 206 PAX250 TYPB3 SPAX3 2S,T S:T 206PBY26188Y188 213:218$ 1PA,PB0 1X,PB< 1PA,YG 1X,YM d (16287)127221 (KB)155ĹKF,0:BR0:600 213:211 BR1400 FM1:150:FM0:16297,0:16000PG,0:16302,0:16304,0 A8234 A 213 A(A$) " FILL MODEQ 16297,0:16000PG,0:16302,0:16304,0p X(0):Y(1):Y188Y188 1X,Y:1X,Y (KB)155ĹKF,0:BR0:600 1X,Y:1X,Y (B1)127āU1500:U:210 204 PAX:PBY X(0):Y(1):Yt(KB)211S3ĹKF,0:S0, xMX,Y:MX,Y5 }105Y :16:1:"0=BLACK ","4=BLACK "{ 17:1:"1=GREEN ","5=ORANGE" 18:1:"2=VIOLET","6=BLUE " 19:1:"3=WHITE ","7=WHITE " FM1Ģ20:8:"8=INVERSE" 10:"WHICH COLOR:";:A$ i(0)220XXQW( j(0)80XXQW= k(1)220YYQWQ l(1)80YYQWe mS3āI150:I n(B1)127ĒDA:MX,Y:120 o(B2)127Ē0:MX,Y:120 p(KB)195ĹKF,0:150:DAA:100 q(KB)155ĹKF,0:600 s(KB)211S0ĹKF,0:S3  900 ::) INITALIZATIONvQW1:KB16384:KF16368:DA3:PG300:B116287:B216286:X140:Y95:SC3T7687921A:T,A:T(230,32:232,0:233,3:1:0<600d DRAW MODEe16297,0:16000PG,0:16302,0:16304,0         LE" U6 _:3:"(Set computer to 40-column mode)"@ d::G n3o x"After running any program, type:"u } 3:"FP" 3:"RUN MENU": 3 "to return to the Table of Contents." 3:23 "PRESS ANY KEY TO CONTINUE" 3::H * FOR II'2 AND PLUSESB(64435)6ĺ(4);"BRUN UPCASE"N D$(4)T^3:4("Before attempting to RUN any programs"23793<"please refer to the instructions in"AF3M3 P"COMPUTE!'S THE COMPLETE APP>222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < "COMPUTE!'S THE COMPLETE APPLE"I2:10w"(C) COPYRIGHT 1987 ALL RIGHTS RESERVED"#6:13%:("INITIALIZING......PLEASE WAIT"-2X11000:ZD$;"RUN ALERT"35 R!!!!!!":T11500:T:6002PG300PG299:960EPG299PG300t16297,0:16000PG,0:16302,0:16304,0PG300Ĺ230,32PG299Ĺ230,64T11000:T6003,0,8,0,13,0,22,0,139,74,150,9,0,139,41,245,43,245,43,181,1,0,0,0,25 INTO DRIVE 1;";:IP$H(4):(4);"BLOAD ";F1$;",A$6000"16:1:"INSERT DESTINATION DISK INTO DRIVE 1":17:1:"";:IP$(4):(4);"BSAVE ";F1$;",A$6000,L$1FFF" 600 150:A:0,0:62454:600::12:" ERRO2:"LOAD SCREEN NAMED:";A$::22:"LOAD TO PAGE:";:B$JB$"-"600aB$"1"B$"2"750j746}B$"1"B2000B$"2"B4000(4):(4);"BLOAD ";A$;",A$";B600:10:"NAME OF PICTURE TO COPY:";F1$!12:1:"INSERT DISKTA -:' 62270:2090::DT$F1$:SıY @2270:"NAME:";:MLMN:1650:AR$IN$:IN$""ı J"PAGE:";:ML3:1570:PGIN:IN$""320 T2270:1820:S320 ^2270:1910:S320 h2270:"COMMENT:";:MLMC:1650:IN$""IN$"NONE" rCM$IN$ |T0$(PX POINTERS"- D$"OPEN "Z$",L"FL:D$"CLOSE"3 :C MAIN MENUI :] NF0IN1:290 JK0:2270:I0N1:15:I1") "I$(I): :15:"COMMAND:";:1570 IN1INN11250 "JKIN:IN310,530,850,990,1080,1510,1530:250 +: , ADD DAI0NA:A$(I)::I0NK:TK$(I):I I0NS:TS$(I)::I011:M$(I):b I773799:A:I,A:l :10 "IS THIS A COLD START? ";:ML3:1740:ID250 D$"OPEN INDEX POINTERS"::D$"READ INDEX POINTERS":RL,NF I1NF:L%(I)::D$"CLOSE INDE):N213:N3N241:N6N37:N5N66:UL$(95)O FL100:ED2:PP0:Z$"INDEX1.DAT"v MNN3N21:MCFLN5:ML1:LF$(10) I$(N1),SS$(N0),C$(NC),A$(NA),TK$(NK),TS$(NS),M$(11),L%(1500),GB%(9) I0N1:I$(I): I0N0:SS$(I)::I0NC:C$(I):" +# 50  POSITION COMMAND>D$"READ"Z$",R"FP",B"BY:D:U( TITLE PAGE[):a2<7:12:"THE INDEX PROGRAM"Z11:12:"ONE MOMENT PLEASE"c:d INITIALIZATIONe:nN1,N0,NC,NA,NK,NS* xCR$(13):DL$(8):D$(4):I$(9          XxEFG >0 e()) $20I$ i EFGXL* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "   5ȱ`ȱa{i2 X13000! (49152)128Ă. 49168,04 G D$;"RUN MENU"O MENU"h D$;"RUN MENU"MENU"DWRITE INDEX POINTERS":RL;CR$;NF;CR$;:I1NFKL%(I)CR$;::D$"CLOSE":Q:d INPUT NUMBERj:u"IN$"",UL$;:868:DL$;616384,128:A$((16384)128):16368,0@ZL(IN$):A$DL$ZL1ĺA$;:IN$(IN$,ZL1):1580EA$DL$ZL1I1NF:2160:(AR$,(T1$))T1$1230AS20DT$F1$1230K1200Q:l CHANGE PRINTER MODESr:PP0ĺ:"WHAT SLOT FOR PRINTER:";:1560:SNIN:IN7IN1ıPP1PP:: QUIT:-D$"OPEN INDEX POINTERS ":D$"200 c:d :ISSUEe:Dn2280:"ISSUE ";:2090:DT$F1$:SıRxPPİ23802280:2000:I1NF:2160:DT$IN$12301200: :TITLE:2280:"TITLE:";:MLMN:1650:T1$IN$:IN$""ı2090:S2S:PPİ23802280:2000)2380>2280:2000:I1NFCA768,C1(C1256)256:769,C1256F2160:770,T2(T2256)256:771,T2256:773:(772)01230K768,P1(P1256)256:769,P1256P2160:770,T1(T1256)256:771,T1256:773:(772)0(S20DT$F1$)1230Z1(P1256)256:769,P1256m2280:2000:I1NF:2160:770,T1(T1256)256:771,T1256:773:(772)01230 S20DT$F1$12301200: :BY COMPUTER AND CLASS:(2280:1910:S1ı22280:1820:S1İ2380<:2090:S2S:PP56)256:771,T2256:773:(772)01230?S20DT$F1$1230SPPİ2350:1220]2200r2040:S1INF1:2020:S1ĺ:"SEARCH TERMINATED":2320: :BY CLASS:2280:1820:S1ı:2090:S2S:PPİ2380768,P1ɭIN6IN0ı#jIN1INN011080\tJSIN1:IN1160,1260,1320,1390,1440:D$"PR#0":1080b}:u~ :BY COMPUTER{:2280:1910:S1ı:2090:S2S:PPİ2380768,C1(C1256)256:769,C1256'2280:2000:I1NF:2160:770,T2(T22:S1INF1:1050%PPİ2350:1040/220092040j:2020:D$"PR#0":S1Ė12:"LIST TERMINATED"v$:2320|-:. SEARCH FILES/:82270BI0N01:12:I1") BY "SS$(I):L12:N01") "SS$(N0)V:12:"COMMAND:";:1570 `"NO FILE DELETED"::2320:9:"CONDUCTING DELETE:";IKNF1950gJK1NF:L%(J1)L%(J):sNFNF1"COMPLETE":JKEDĺ:2320: LIST FILES:2270:PP01010D$"PR#"SN:TK$(4)LF$CR$2000:I1NF:2160 DELETE DATAI: R2270:K0L\"NAME:";:MLMN:1650:T4$IN$:IN$""ıyf2000:I1NF:FPL%(I):JI:BYN2:2:AR$p(AR$,(T4$))T4$920z:21602200:2020::"DELETE THIS FILE? ";:1740:2000IDKI:I1E6:2020:I1E6ĺ:$(T2)&T2(T1$):S1IN$""7500 2270o"NAME:"T4$:"DATE:"T5$" / PAGE: "T6$:"COMMENT:"T7$:T3T1y 2210*:"IS THIS CORRECT? ";:1740:ID05904P1(T0$):C1(T1$):AR$T4$:DT$T5$:PG(T6$):CM$T7$>KFM:930:390:G: H1570:IN0INPGT6$(IN)72270:"COMMENT:"CM$f:"COMMENT:";:MLMC:1650:IN$""IN$CM$rT7$IN$T8T1:2270:1820:T80T0$(P1):IN$""T0$(T1)T1(T0$):S1IN$""720T8T2:2270:1910:T80:T1$(C1)IN$""T100-X:"MAKE ANY CHANGES? ";:1740:ID630:bFMNFıPlLFM1:2270:540hv2270::"NAME:"AR$:"NAME:";:MLMN:1650:IN$""IN$AR$T4$IN$2270:"DATE:"DT$::2090:T5$IN$:IN$""T5$DT$2270::"PAGE:"PG::"PAGE:";:ML3:2270:L1:"NAME:";:MLMN:1650:T4$IN$:IN$""ık6:"SCANNING FOR FILE:":2000:ILNF:FMI:FPL%(I)}&BYN2:2:AR$0(AR$,(T4$))T4$I1E4::2020:I1E4Ģ6:19:"NOT FOUND"::2320D6:19:"FOUND"NIFM:2000:2160:2020::22000:D$"WRITE"Z$",R"FP:T0$CR$T1$CR$;KD$"WRITE"Z$",R"FP",B"N2:AR$CR$;D$"WRITE"Z$",R"FP",B"N3:DT$CR$;:D$"WRITE"Z$",R"FP",B"N6:T6$CR$;D$"WRITE"Z$",R"FP",B"N5:CM$CR$;2020:NFNF1:RLRL1:JKEDı320: EDIT :21):T1$(C1):T6$(PG) 2000K I1::"SEARCHING FOR INSERTION POINT"\ L%(I)0450r FPL%(I):BYN2:2 A$:AR$A$II1:410 2020:"CONDUCTING INSERT:"; JNF1I1:L%(J1)L%(J)::"COMPLETE" 2020:L%(I)RL2%FPL%(I):2,173,1,3,45,3,3,240,5,169,1,141,4,3,96 dN,169,1,141,4,3,96 dND","EDIT A RECORD","DELETE A RECORD"H* "LIST FILES","SEARCH SYSTEMS"* "COMPUTER","CLASS","COMPUTER AND CLASS","ISSUE","TITLE"* "JAN","FEB","MAR","APR","MAY"* "JUN","JUL","AUG","SEP","OCT","NOV","DEC")+ 169,0,141,4,3,173,0,3,45,2,3,208,8"COMMODORE64","COMMODORE 128","AMIGA","TI-99/4A","APPLE","ATARI"i) "IBM PC/PCJR","ATARI ST","GENERAL") "GAME","UTILITY","APPLICATION","SUBROUTINE","DATASORT") "MACHINE LANGUAGE","REVIEW","LANGUAGE","GENERAL INTEREST"$* "INDEXER","ADD A RECOR:D$"PR#0"(B :(L D$"PR#"SN:"SEARCH BY "TS$(JS)LF$CR$J(V D$"PR#0":P(_ :[(` DATAa(a :r(j 6,5,8,8,5,4(t "ADD","EDIT","DELETE","LIST","SEARCH","PRINTER MODE","QUIT"(~ "COMPUTER","CLASS","COMPUTER AND CLASS","ISSUE","TITLE","RETURN"@) :15(TS$(JS))2)"SEARCH BY "TS$(JS)C'1:PPĞ:"PRINTER";:O':::U' :h' PRESS RETURNn' :' S10:13:"PRESS RETURN:";:1650:(IN$,1)"Q"S11' '# :'$ OUTPUT TO PRINTER'% :'. D$"PR#"SN:AR$; (8 50)DT$" / PAGE:"PG:3T1@&"CLASS:";:JNA01:M2J:T1M0T1T1M:A$(J)",";T&:DL$" ":T1T3m&"COMPUTERS:";:T3T2&JNC01:M2J:T2M0T2T2M:C$(J);",";&:DL$" ":T2T3::&:& CLEAR SCREEN&:&:20(TK$(JK))2)TK$(JK):2290('$: %e:%f GET DISK DATA#%g:8%pFPL%(I):BY0:2S%rI1$,I2$:BYN2:2:AR$k%sT1(I1$):T2(I2$)%zBYN3:2:DT$:BYN6:PG$%{PG(PG$)%BYN5:2:CM$:%:% PRINT DATA%:&"NAME:"AR$:"DATE:"DT$" / PAGE:"PG:"COMMENT:"CM$:T$ A$CR$PP0S11$#$:B$  INPUT DATE, STORE IN F1$H$!:~$*S1:"DATE (MON"(95)"YR):";:ML6:1650:IN$""ı$4IN011:(IN$,3)M$(IN)IN1E3$>:IN152130$H(IN$,4,1)" "2140$R"NOT CORRECT FORMAT"::2090%\S0:F1$IN#:# OPEN FILE#:5#D$"OPEN "Z$",L"FL:;#:O# CLOSE FILE(S)U#:f#D$"CLOSE":l#:# WAIT FOR KEY PRESSING#:#S10:(16384)128ı#A$((16384)128):16368,0$A$" "Ĺ1024,32:16384,128:16368,0:1024,160:T9T92I":O"14:12:"WHICH OF ABOVE:";:868:MLNC1:1570:IN$""ıe"I09:GB%(I)1:"C10:I1(IN$):IN((IN$,I,1))"(IN1)NCIN0Ģ14:12:" ILLEGAL ENTRY":1910"GB%(IN)01982"C1(2(IN1))C1:GB%(IN1)0#:S0:GB%(IN1)01892E!X(IN1)NAIN0Ģ14:12:" ILLEGAL ENTRY":1820f!bP1(2(IN1))P1:GB%(IN1)0r!d:S0:x!k:!l INPUT COMPUTER!m:!vS1:3:I0NC:12:I1") "C$(I)::T801950!T9T8:INC01:998:T92I01940 ":12:I1;::5 S1:3:I0NA:12:I1") "A$(I)::T801860_ &T9T8:INA01:998:T92I01850y 0:12:I1;:T9T92I :: D14:12:"WHICH OF ABOVE:";:868:MLNA1:1570:IN$""ı II09:GB%(I)1: NP10:I1(IN$):IN((IN$,I,1))!S16384,128:A$((16384)128):16368,0]ZL(IN$):A$DL$ZL1ĺA$;:IN$(IN$,ZL1):1750A$DL$ZL1IN$"":A$;:1750A$CR$ZLĺ" ":ID((IN$,1)"Y"):A$"A"A$"Y"ZL31760A$;:IN$IN$A$:1750: INPUT APPLICATION ĺA$;:IN$(IN$,ZL1):1660>A$DL$ZL1IN$"":A$;:1660VA$CR$ĺ" ":ML1:fZLML1660(A$" "A$"9")(A$";"A$(91))A$","ZLML1670A$;:IN$IN$A$:1660: INPUT YES/NO:IN$""UL$;:868:DL$;'IN$"":A$;:15804JA$CR$ĺ" ":IN(IN$):ML1:RTA$"0"A$"9"ZLML1590l^A$;:IN$IN$A$:1580rg:h INPUT LETTERS AND SO ONi:rIN$""|UL$;:868:DL$;16384,128:A$((16384)128):16368,0ZL(IN$):A$DL$ZL1