JJJJ ( X ,0 ,b9 LԠ   Ԡˠ       ɠР àè àԠӧà$%L"ɹ0  `: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:(SPEED.UPHROUTXBOOT(SOLARPIX ;INDEX1.DATd"SS.SYSTEM .PRODOS.CONVERT`STARTUP$MENUp%AASETHOOK.%ALERT]UPCASE5*NORMAL.SET(LEDGER.DATA]SS.CONVERT^A,SOLARPIX.BINbSOLARPIXg %,POWER.SKETCHt )MAG.INDEX~+#THECOMAPP' (APWRITER )SPEEDCALCb %CHESS'FINANCE0")DISK.MENUC&LEDGERH >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R190 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   X " Lu%I%`, )``Hh`  ` 률` o ($%) `2f%(%` (` L # > 8  L2L@ <v%ߙ  %ߙL %L %%% ݕ ,L:  3020832080L" Xa% I9786%i`%iOl_%a%k"%b% a # > % H | hݬ L7 ʊ H{HHH`  ! # 1234567890+-.  N21 7C>,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,963t32,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,85192,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,22A$"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,326800*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:590E"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:I1"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 PAG04,(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" bHP:C27A(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Č8PWC160WP& 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 r%ά%w<ʽ%%Еʊ H H`<)%`" L " % Y L| a " ,##kl `_%L/ 0 0 0 Li%%`%x%`%8%m%%%8%m%%%͡%L%͠%J%%%%%%%% %͵%%%%Ͷ%%%%%%%L%%%%%%%% %ͱ%η%ι%%Ͷ%%%%%%%ѹ%%  n  ȑL%0`%`%8%%%8%%%% 0 L%@LCB% Af[b8@m%3Wm%AB8i@% 0% 0 3 J 6 )%ɰ!m% 4 0 Lo%% A%%%% K%%%% $b > =%%L| $ > LR$ > % ݆LRʊ HQHHH`hh%%`  7 x%3[%ɰT%%8  E% %%Ȣ̜%% % %%  b `%#%8%0譝%)  'JLB N%%Ϯ%*%̜% %L% L % % % %% X " L| H%hLhL+,%0a %%%%%LL| ,%0a %%%%H(%%  ` %% ⥪E ."` X%,%0a %0L$ > % S DP!L%5%% > r !L$ > % 80LL%$ > % mP %%%% f%%ʩ 8  XB)8ȱ%ȱ̬%HH hh%`%%  L"%%`8` ABТ% A[8@m%3% J 6 Уɰ%`%%  G r륢HHHHHH%% h%hhhhhhE 筅e%` % % % (L"j%jL"%v%݂莙% HHL]!h% %ʊ HH` AACEILSSSTSABTOXNOGIQAUVSNSPTGNNRNME"@9 d%% :? d%% ), %%L"%%L"ȥ%%`L"  e%e% ( `2#%d%d%}f%% `d%d% `# > r N8A0IC% 98@042.m%3&%  J 6 ɰ e%LL| e% %ͬ% %d%Ld% " L| d%e%d%e% " `d% `%`,%0a %%# > v 6 3/%+d%% a L[f% ͬ%%d% L| % % ?&" %0:$&ڙ ˩ L} %`e%ie% ( `x8  5% %%ȱ ̜%<%#)?'L '< ` *%JJJJ%. %̜%学% .Ȯ%0 ̜% ?.5 Lȱ5*Ȫʽ. 90ʝ1% J"%-%c%(%%8%L.%c%%%% -%(%% ̜% Lv N%%L * -%c%%(̞%L e%%mc%c%3'f%mc%(L c%m%-%(`(8c%%")"(c%%(ୠ%%%6$ > v{ 6 mi#) % %%%A%#_%`%) #ȥiil8  L 8  % %L| %%c%d%e%i%f%%%̡%?%i8e%")"(8  Lg%pl%8%02譝%) (f%Jʩ (%f%mc%c%f%mc%%ʎ% (`((` ?=&%%% %#%  b >L| LJ2%f%m%%%莬%`,%0a %% $ > % LCRL #)% %%L/ ,%0a %Dž`%b%d%e%` ( L %"(")e%%%%i%%i%آ %i%%i%%%"(") `%i0(ȭ%)JJJJi0(ȭ%)i0(`"(") (ȑ(ȑ(Ȯd%c%f%%Jiʩ (% #)?(Ƚ#)?(Ȯ%L%͠%J%%%%%%%% %͵%%%%Ͳ%θ%κ%%%%%L%%%%%%%% %ͱ%η%ι%%Ͳ%θ%κ%%%%%LD$ > rL| L@ + + + +2f% +_%`% + + +ȱ +iilѩ +kl + L$ > rL| L@ ` Y   2 f%    Lokl  L %JL> `%' > ` o $() %1 >  `  b e L  !"#$%&'()*+,-.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 240  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):ԠϺάˠҠҿźϠҠǮԠàӠźĺԺԬҬҠԠٿԺƠ̠ӺӠǠԠȠ͠ϠҠŠҠϠРԠƠנŠҠϠ͠ԠƠǮԠPPP<"<"-"NTF,@@AAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBX*ERROR*ԺŠՠŠٯΩà٠Π׺ŠՠŠٯΩȺϺΠ## T"hH## r륢HHHHHHHL]!XLihH T"L3"h 4%LthhhhhhhhhE HH #H #H`%%#` & eL((((Pm% i `ȑ${ > d%e%L|%()%L"H Q-M+I.EP%(A B@L" HL!HL]! L! IL"! L!Iڡ J x+5-0*+/&^!)L"hH T"L!L!LShH%%`ʆȅjfeʊei&m`%(`()%)%ȱ%8` n%2%%ȥ % %ȭ%Ȣ̜%L -!%%8%m%%%%Ƚ̜%ȥ % %ȭ%Ȣ%m% ɸȥl`# > % YLL| %%  %%%%%%L"H%%%%%%%%hA0 @0e3 J 6 Ќɰ8  %L%*̜%HH hh%%  %%%%%.E.%0%Ƚ%` o )($a%8b% \` 4 T `) ȱLȱei 88 _%`%"8%ȱ %8ȱ## ` `" "N='LR%%3 %  #%Lm)% b >`%ʽEx%80%80%i %%-LE.񈌫%%8%%.E0%%`Ι̦% 'eiɻL `$T T  X " L| #`%9 > %%_%`%5)&8  %%ȱ̜%% b iв3Ц%%8  L| n  ȑ >`# > ,%0a %0#I q`%%` `HH ʁL8HH whhhh Lhh``L X Q)Ȍ/ U q Xȱ4L %)莦%ȱ  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)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,124,1,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,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,424,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,170C,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,885,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,1694,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,6,10,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,29,384I\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,0,IK:850J060:J:550*F790;K0K6550SF1:R1R:C1C:198j(16368)141770s 550R2R:C2C:RR1:CC1:I0 K(1628510RC):820*RR2:CC2:IK4R0I255I251>R7I1I5H1628510RC,IRI6IDI211R0RR1:6705NI196C7CC1:670LXI128I141F670TbJ0dlA(J)I650xvJJ1:J13620550IJ:I6I262I820:540251,R:252,CJ1628510RC:K(J)I1417408,7:24576J030:J TSELF?";' 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:670 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) I ,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:I27,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,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,127 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 "INVESTMENTS: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,96,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,189,9,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,8489,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,844,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.#l61,1,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,76,1232,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,2013,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,60,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,74,6104,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,63,21,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,63,,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," "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 VALUE"/123456789:;<=>?@ALOW - 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"(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) "CASH FRV(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)V4970E21720WV(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)).0051840)(V(4)I)I/V(1)(V(1)100.5)10095090ETEV(1)O5270X710b5450}"WITHDRAWAL OF FUNDS"",47506"*REGULAR WITHDRAWAL $"@C7J3950T"*";^4840h"*";r4880|E416804920100 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(3)V(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.5)11140I`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)12400,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 5150E471((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(3) 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"  4710 "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,2340,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))1004690& 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 (%)"'C%: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$&M50%0M=";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$) 1;":$";(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&#"ME!~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 ";J570 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!tC5D53770.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 N5NP35450( "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 I10 r 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) ENT:$";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)100Z 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 PAYM.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 25802 '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 $"(C6 (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.5)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 SPACE$"U"E$"u"PAGE0:4104E$"L"E$"l"5100H:D$;"-";FILE$NrTYPE$"BAS"ė:D$;"LOAD";FILE$TYPE$"BIN"ĺD$;"BLOAD";FILE$420 ISK THEN PRESS ";ANS$):108 RUN/LOADfFILE$(A$(CR),2,16):TYPE$(A$(CR),18,3)p5:3"(R)UN,(L)OAD, OR (U)NDO":28:3E$E$"R"E$"L"E$"l"E$"r"E$"U"E$"u"50305:3:" " 4010  DOWN& CR19CR3: CR19CRCR1@ "I h UPY rCR4CR20l |CR4CRCR1r  C$"Q"C$"q"ė: C$"P"C$"p"ġ:410 C$(13)ı: LOAD/RUN SUBROTINE  C$ MUST BE C OR c SO CONTINUE:"INSERT NEW D  ACCEPT INPUT C$s C$(10)C$(11)C$(13)C$"Q"C$"C"C$"q"C$"c"C$"P"C$"p"4010 C$(10)C$(11)4500  MOVE CHOICE CR:5::(A$(CR),2,16) (C$)94100,4200 :CR:5:(A$(CR),2,16): CR:4AXN)16PAGE02 (MAXN)16LIMMAXN:PAGE0: A4O I(N1)(NLIM)_ A$(A)L$(I)k AA1:q  PRINT ARRAY I419 5:I (A$(I),2,16) I2123:I:A$(I): CR4::CR:5:(A$(CR),2,16): CR:4  PAGE0, 2000: LOAD PAGE INTO ARRAYD 3000: PRINT ARRAY] 4000: ACCEPT INPUTr 5000: RUN/LOAD  INITIALIZE ARRAY I419:A$(I)"":5:I:16):  LOAD PAGE INTO ARRAY NPAGE16:PAGEPAGE1 (MAXN)16LIM16:(MBDEFVL$ D$1 2:VL$: DISPLAY VOLUME NAMEE , GET DIRECTORY` 6D$;"OPEN";VL$;",TDIR"s @D$;"READ";VL$ EZ$:Z$:Z$ JL$(L) OCH$(L$(L),18,3) TL$(L)""360 YCH$"BAS"CH$"BIN"330 ^LL1:330 hD$;"CLOSE" rMAXL1 A$(24):L$(52)! D$(4)) L1A$(20)"":A$(21)"PRESS TO ACCEPT CHOICE":A$(22)"'Q'-QUIT":A$(23)"'P'-PAGINATE 'C'-GET NEXT CATALOG"dn:" D I S K M E N U ": GET VOLUME LABELD$;"PREFIX/"D$;"PREFIX" > 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*T10))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 "&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"<-- OURCE/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:ENTER S0A$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:98203450: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":RANSACTION"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,22MENU 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","ENTER T":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:MAIN -"' 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 CONTINUEA$"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 DELETE":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#1""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 LEDGER.D0))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 :ECORDS#$ 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,CD(CK",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 BLANK RJ " 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$"CHE2800#!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(I)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$C> 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): ( II12:  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$):2420A$: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$):1)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":3420B0$II1:20604I1RD$(1)RD$(I):RD$(I)B0$N NR1TR1:600:MENUi*J2:NEXT RECORD PLACEu4I2NR>RD$(J)B0$JJ1:2110HIJRD$(I)RD$(J):RD$(J)B0$RI1I1:I2I\I102180fRD$(I1)RD$(I2)2180pT$RD$(I1):RD$(I"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$(I)ATA")' 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 ,(R 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(4);"BLOAD SS.CONVERT"$ 0D$(4)G("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 SPEEDSCRIPT , g RPQ g RPQ .< )ii` < ii 2 "860117 100AABANK CREDIT CARD 100.98 "860117 101AAMARKET FOOD 56.65 D$,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):AMOUNT0UNT/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$(RN:"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 AMO -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:CLRL420 ,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 20$::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):3 *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:",CK) 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:3640 FILE NAME":":";A$C n"ENTER TEXT FILE NAME TO CREATE":":";B$a xD$;"BLOAD ";A$;",A$2000" }L(48859)(48860)2568192 768,8192,L1,1 D$;"CREATE ";B$;",TTXT" D$;"BSAVE ";B$;",A$2000,E";L1;",TTXT" "ENTER TEXT FILE NAME":_f65,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" T: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:PUI & & &(jQ܈ۥQ`܈Q`ۈ)?Xۈ),ۈpi(i(m؈`        ވijnވJnވJnވވ****)`@*TI``064460 ɟɉ`L톩߅?쩉_`؈ȱوȱڈȱȱ`و"'8Iib is i·܈ȱ݈iڈۈ 0 m܈ۈ݈`܈ JJfJfJf(fQQ` I$ i EFGXLL4?i`` D ƈ `߅ ȱii$ȱȱii?ЧɉLT`߅ - Ii?ɉ`L? - Ii""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >xEFG >0 e()) $20>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""acde࿀࿀ՀՀՀՀUUUU(****($(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)0: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` 0H$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:H1: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"^:J6XF):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$(J)$(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(7(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 <:::TBTH: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:Ӻ"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):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:31:\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)::CO 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,0:19: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"STARTING"-=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)" :J(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" 31)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,EARTHDAYS 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 YETPBY3SXPA3*2S,T4S:T=206CRTYPB3aSXPA3l2S,TvS:T 206, SPRAY BRUSH-16297,0:16000PG,0:16302,0:16304,01SC6Y1717X151;U(0)2:V(1)3:V188Y231 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 206PBY2608Y188 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 PB 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):Y18(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$ suvwxyz{|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 t 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 8,255,351,285,249,180,204,227,173dCARME,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# 19x 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,ANANKE,AR,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),YEARSV188<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 HIEGHT(1-10):";BH$'BW(BW$):BH(BH$)FBW20BW1BH10BH1410`PAXA1X:A2PA:428oA1PA:A2XPBYD1Y:D2PB:430D1PB:D2YA:12:10:"PLEASE WAIT..."TD1D2BH2A1,TA2,TSA1A2BWS,TS,TBH 0NA: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 INDEX }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):" 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): !!!!!":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,255 NTO 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:" ERROR!"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 DISK I(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:22: 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"760720REENS"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:" PAGE:";(PG301)/b6:10:" 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 SCS: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-RESPOINTERS"- 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 DATA -:' 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$(P1)0 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)380>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$)1230Z120P1256)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:PPİ2)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(N6IN0ı#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(T2256S1INF1: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 `INO 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:ELETE 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: H D70: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$""T1$-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:152270: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 :2: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):200I1NF: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$"WRITE 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$ZL1I,"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,1OMMODORE64","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 RECORD"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"@) "C: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::T1@&"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$:T3$ 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:T92I":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:B%(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;:T9: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))!SG384,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$;'16N$"":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ĺ73,1,3,45,3,3,240,5,169,1,141,4,3,96 d D$(4) ::!9:1;"APPLE PRODOS SHELL"E8:3b#"COPYRIGHT (C) 198 7"l(7:52"COMPUTE! PUBLICATIONS"7<8:16F"PLEASE WAIT A MOMENT..."PX11000:ZD$;"RUN BOOT">222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < ";::" 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:(4);"PR#A$300"A$(13),B$(13)TP2:PG0:DE0 4000 ::11,1:62454Y61:22:J0 "COMPUTE!'S ";::`pthjigosggL <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "ȱ`ȱa{iONTINUE" 3::" X130006 (49152)128ĂC 49168,0I \ D$;"RUN MENU"" U6 _:3:"(Set computer to 40-column mode)"@ d::G n3] s(4);"BRUN HOOK" x"After running any program, type:" } 3:"&" 3:"RUN MENU": 3 "to return to the Table of Contents." 3:23 "PRESS ANY KEY TO C * 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 APPLExEFG >0 e()) $20I$ i EFGXLEY)10)10):I01:15:31:T$" ":230,96(230):R590:K$"Z"ĉ:630^FL970uK$"+"MMLMM2TTM:860::T$(2):31)"MOON"31)"PHASE":50024:2:"(EARTH-MOON DISTANCE MAGNIFIED BY 30)";11:31:"EARTH":ATP(J)R(J)/fA((A(A))256):J9890MpX(J)C(A):Y(J)S(A):910nzZ1EC(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)::COT$(((T"STARTING YEAR (1-2000)";K$= SY(K$):SY1SY2000630T:::T$(1)::K1b 3:JLHs*31)N$(J):>500:14:31:"YEAR"C7936HE.25:TSYEY:FL1RPU,1:PU1,0:PU2,106:PU3,98WILH:PU6I6,1:PU6I7,0:\JLH :J19:J" "N$(J):6 15:"INNER PLANET?";J K$:K$"Z"360_ L(K$):L1680| 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 31)"-=SLOWER"$ 30)X$:D &I015:PUI6,0::CO3:T :23:31:X$` D3:1:x 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)" ,S(N)(M):C(N)(M):$ h550= :5:15:"SOLARPIX"\ 15:J14:9:J" "T$(J):o :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"ETS" T$(4)"FACTS"1 J010:F$(J),U$(J)K L0:H10:J4L1:H9b KLH:Z(K,J)::y 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:MNPP25610:PUI65,129:A:PUI64,A:c .I011:AD3310356I:SH(I)(AD256):SL(I)AD256SH(I):r 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)"COM:10:15:"PLEASE WAIT"024576:31744V (4);"BLOAD SOLARPIX.BIN,A$8100"`17906,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$ ,I0 D$(4) :6:7>"COMPUTE!'S THE COMPLETE APPLE"I2:10w"(C) COPYRIGHT 1987 ALL RIGHTS RESERVED"}(27:13<"INITIALIZING...PLEASE WAIT"FI12000:PZD$;"RUN ALERT"$31)"DAY")79366.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):BTH:BB(B)tC(12(BA).57)~C0CC12:1150/AAPP:BBPPIX2((104(A)D)2)\Y(93(A)E)pW(X4(B)F)Z(Y2(B)G)PU26,X:PU27,Y:PU8,WPU9,Z:PU70,SL(C):PU71,SH(C):COI01:13:31:(T365.25):230,96(230):2 1 ASDF O,CHARON,MOON9 198,255,351,285,249,180,204,227,173dLYSITHEA,ELARA,ANANKE,CARME,PASIPHAE,SINOPEt 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,PLUTDRIVETIME(55MPH),YEARS2x 75,139,193,295,1002L 1840,3698,5797,7612Z MOONS,-t 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,670% LENGTH OF YEAR,EARTHYEARSD 0.241,0.615,1,1.88,11.86[( 29.46,84,164,248q2 ORBIT SPEED,MPH< 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 N PERIOD,EARTHDAYS3 25,58.9,243,1,1.03,0.404S 0.444,0.67,0.77,6.39,27.3p TEMPERATURE,FAHRENHEIT 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,3,3100,7700,7926.` 4200,88000,71000,32000Dj 31000,1500,2160Yt MASS,(EARTH=1)t~ 332830,0.055,0.815,1 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 ROTATIO570:470:14604I7936I34:A:I,A::169,64,141,14,31,169,32,141,17,31,160,0,185,0,64,153,0,32,200,208,247238,14,31,238,17,31,173,17,31,201,64,208,234,968 0,18,37,23,65,37,65,51B 23,51,23L DIAMETER,MILESV 864000|"DIST.FROM EARTH"19)"243000 MILES"BF$(9)19)"6 MONTHS"W:K4K101770uJ1Z(K,10):C((J1)7)L14JC7:L:C131M$(K,J)::1770::F$(K);::19)U$(K)L0:H10:K4L1:H96:1:JLHN$(J)19)Z(J,K)::K$"Z"360$K$"S"K0:1590;K$"M"K10:1590NK0K101590l"K(K$)65:K0K101530v,17206::N$(K);:JH4:K0K10ĺ:1630TH10:" PLANET #"K" FROM SUN"^:J0HhF$(J)19)Z(K,J)28)U$(J)r:K101680)CO5E0.1āI12:3:28:P$(J):230,96(230):cK(49152):K("Z")128Ĺ49168,0::1280sTTM:1390::T$(4)" MENU"::5:1570:5:1"S SUN":"M MOON"J19:J" "N$(J):5:J01020:(J65)" "F$(J):470E:3:28!PEĺ"ACCELERATING"+U7936JZM0.01:T0:F65SA:G65FLldPU,1:PU6,1:PU1,0:PU7,0iPU2,76:PU3,98nA(T(T))PP:Z1E(A)xXE(E(A))Z:Y(EE1)(A)ZX(76XF):Y(100YG)J(2APP):PU8,X:PU9,Y:590:K$"Z"ĉ:360"FL1240;K$"+"M.006MM2KTTM:1130f550:::T$(3)::570"ECCENTRICITY(0-0.96)";K$E(K$):K$"Z"360(E0E.96(K$)012802FL1:(K$,1)"R"FL1<:::T$(3)::570 F"ECCENTRICITY=" L 2%L X& L( ) L QRTU SSRU``ee ΙΜ`m  @  ? O P))? @HR  hLn FGj' L'j R#L9s2_e ` `aŵ L6UVmUUmVV  | LE,0+VG    VV` L,0+VG )ߑ VV`)L X  L} L}  ` v L "LSGsU8FlVGm0_ e ` ŵLS ŵ  `Q` q hh`L#QRtflmcpqӜɺ8 0 hLhh L< /)ߝuX` _ LL a DMc x ? ) : 5 LI : LI : iLILK  L `8  L'$W  X X ɛ7ɍ9ɈL} L}) WL UmVmIhhL#mm8UV nUmUVmV`RIR`߅` )` 0 8L L <VLl L] <GL 8ee8P OP`FGL ɠVUVL$Lee8UV8 18UUVV`a DMc0LL ɠL]  `  <ȑ  L{ 8mM  Q`mm 18UV 18UUVV`  8`  Lc x  )H h)W  LS  LP  L`8Oɿ<FL ɠL& L FGL a DMc0Liɮɡɿ<VLl VLl ɠɮɡɿ9SW0:SD3SP$MI$(101)DM$(SD)"."Z9ꈭSD3SP$MI$(115):SW1}9DD3DP$MI$(102)DM$(DD)"."9DD3DP$MI$(116):SW19(SD1DD1)(SD2DD2)SW199EE(OG1):EE1PR$SP$9ȌEE2PR$DP$:ҌEECM2:PR$$PR$"; "&8$AN$;MI$(46);FR$;".";R8.A$:CX7HM49:400:HEİ31000:33070j88AV(A$):AV279008BAV13ĢV1:HL,0:(11);:8L330708ЄGD,16:JM:OS3(S0$,1)"/"S0$(S0$,2,10)8OS1ı8 (S0$,1)"/"S0$"/"S0$9(S0$)1I$(80);,7}CM2Ģ(37):MI$(46);FR$;".";A7}A$:CM432300[7}AV(A$):AV1332300o7}CM2AV27900z7}322107~BO1:V3:C8V117~:7:HM0:26000:BO07,~GD,18:JM:SV1:HL,SH:7耹KB,0:V22:C8V23 8:V:HL,0:AN$"":(PR$)ANԠҿǮԠԠԬӠĺԠŠȺŠٯݿ`̠GD,22:GD1,HM:JM:322106}GD,23:JM:CM3322606}PR$:V9:C8CM2FR$MM$V86}C8V16:CM2FR$MM$V177}V:CM1ĺM٠îΠˮҠҠŠӬ׬ЩŠՠſٯΩŠ̠ŠӬ׬ЬΠϠҠԠźźϠĺӠϠϠԠΠҮԠϺάҿVV& miL S!0@ / R R RL` /C8SJ8 RL)E8S8LJUIc $L)B RL) 8HUIV $Q`DIDE`ԠL XL P V6eiUV8  `  Q`a DMc0#  qXL 8bee8UV 18UU Lȱ<` !L LȱɽLL HhB Lȱ< /L,X W R#Lvs2_e ` `aŵ  L6UVmUUmVV hhL'  h   LL a DMc0&  q L ʊ HH"H!H`8eiL1<`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 ` v mP B MrFG0@L<,TɠTLȱɠT8ei u 8.TS…֩   8UV":";B$= "ENTER SPEEDSCRIPT FILE NAME TO CREATE :";A$b (4);"BLOAD ";B$;",A$2000,TTXT" L(48859)(48860)2568192 768,8192,L1,0 (I)141ĹI,60 'D$;"BSAVE ";A$;",A8192,E";L1 ( 253,208,6,165> 250,197,252,240,237,177,250,201,13,208,6j 169,60,145,250,208,4,9,128,145,250,24 165,250,105,1,133,250,165,251,105,0,133 251,208,213 32,248,230,224,1,208,46,160,0,165,251Z 197,253,208,6,165,250,197,252,240,31,177 250,201,60,208,6,169,13,145,250,208,4 41,127,145,250,24,165,250,105,1,133,250 165,251,105,0,133,251,208,213,96,224,0 208,251,160,0,165,251,197, I768I145:A:I,A:D(4);"BSAVE SS.CONVERT,A$300,L$92"Jtd 32,183,0,201,44,208,3,32,190,222,32n 103,221,32,82,231,165,80,133,250,165,81x 133,251,32,190,222,32,103,221,32,82,231 165,80,133,252,165,81,133,253,32,190,222+