JJJJ m X  m   '       ,0,b   LϠ ӠӧÍҠҠàèĠĠ ԠˠԠ˺…$%L" ` &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 258340,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":120J X(T$):Z1(I$):(I$,Z,X)T$ĺ"YOU ALREADY HAVE THAT!":120Q Zo I$I$" ":I$I$T$:115 V0ė:"YOU CAN'T USE THAT HERE!":Z1400::115 LLV:175 Y0ė:"WHY BOTHER?":Z1350::115 LLY:175 :I$::"PRE"LLW:W0180+ X$"U"LLU:U0180F X$"D"LLD:D0180] (A$,3)"GET"185t (A$,3)"USE"200 (A$,4)"DROP"210 X$"I"220 :110 :"YOU CAN'T GO THAT WAY!":Z1400::115 T$"X"ĺ"THAT IS NOT YOURS TO TAKE! 'd *FILL-IN-THE-BLANK ADVENTURE*/iL1inI1L:S1$,S2$,T$,N,S,E,W,U,D,V,Y:I:T$"DEATH"235s:S1$;S2$::"WHAT DO YOU DO NOW?"xA$:X$(A$,1)}X$"N"LLN:N0180X$"S"LLS:S0180X$"E"LLE:E0180 X$"W):A12851504 A(16384):A128Ĺ16368,0:5130RA$(A128):A$"P"5130XD1)"0"Q1;(R$(IN(J)),BBK,1)"0"Q0K3ĺ"0":5080h(R$(IN(J)),BBK,1)"0"Q0ĺ" ";:5080(R$(IN(J)),BBK,1);:K3ĺ""K:TT((R$(IN(J)),BB,E)):5120J::"TOTAL ";F$(I);" ";T:DE0ĺD$;"PR#0" A(16384 ";:I:" "(TT$,33,5)/|:DE0ĺD$;"PR#0"91700J:DE15020cD$;"PR#1":I$;"80N":T0::F$(I)" SORT:":"# PLAYER "F$(I):J1PL:(R$(IN(J)),4,7)"PLAYERX"5090 (R$(IN(J)),1,10)" ";:Q0:K03:(R$(IN(J)),BBK,K,1);46K:" ";:5120:I:" "(R$(IN(J)),43,5)M@J::"TOTALS ";JI18:Q0:K14:(TT$,(I1)4K,1)"0"Q1T(TT$,(I1)4K,1)"0"Q0K4ĺ"0";:4210^(TT$,(I1)4K,1)"0"Q0ĺ" ";:4210h(TT$,(I1)4K,1);rK:" L:(R$(IN(J)),4,7)"PLAYERX"4160u(R$(IN(J)),1,10)" ";:I18:Q0:K03:(R$(IN(J)),11(I1)4K,1)"0"Q1(R$(IN(J)),11(I1)4K,1)"0"Q0K3ĺ"0";:4150"(R$(IN(J)),11(I1)4K,1)"0"Q0ĺ" ";:4150,(R$(IN(J)),11(I1)4STICS FOR "T$":":MM14070FTM$" VS "OT$" SCORE:"YS"-"TS:4080u"RECORD FOR THE YEAR: WINS:"W" LOSSES:"L:"ROSTER IS SORTED BY BATTING AVERAGE":"# PLAYER AB RUNS HITS RBI 2B 3B HR BB AVG""J1PHAVE YOU PREVIOUSLY SAVED THE":"DATA FILE TO DISK?"n0 D$;"CLOSE ";FF$::"TRY AGAIN."::"HIT ANY KEY":A${: C1810D 3010 PRINT ROUTINE:DE14030D$;"PR#1":I$;"80N"MM1T$"THE YEAR":4050T$"THIS GAME""STATI+|D$(4):I$(9)"+D$"PR#1"0+I$"80N";S+G702:L718:20):P7039q+C7(896G740L7128P7)+(C7);::::+D$"PR#0"+RN> TO CONTINUE"*A$"""*A$3*A$"P"5500D*A$""5360J*T*5450*"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 ,21,12,248,237,235,244,8,19,10,11,1,247,246,245,255l69,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,125T116,63,72,168,185,136,63,188,108,637,127,127,64,6,0,1,64,7,127,127,64,0,0,0,0]0,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,0127,127,0,0,127,127,0,0,127,127,0,0,96,3,0b3,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-61,124,127,64,1,115,127,64,1,79,127,64,1,79,127,64c0,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,,0,0,0,0,0,03d0,0,0,0,0,0,0,0,0,0,1,64,0,0,7,64in0,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,85,42,84,42,85,42,84,42,85,42,84,42,85,42,84b242,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,0 Z0,63,126,0,0,0,0,0,0,0dD$(4):I$(9)#iD$"PR#1"1nI$"80N";QsG02:L18:20):P039kxC(896G40L128P)~(C);::::D$"PR#0"dO(NA$(J),1,(NA$(J)))(" ",1,10(NA$(J)))R$(J)H J:3080 D$;"WRITE ";FF$:W;(13);L:J1PL:(R$(J),11,32):J D$;"CLOSE ";FF$:216,0:C2Ā  :5:"ERROR # ";(222);" OCCURRED AT LINE ";(219)256(218)4& 10:"HINT: LAYERX,13 PLAYERX,14 PLAYERX,15 PLAYERXd4 16 PLAYERX,17 PLAYERX,18 PLAYERX,19 PLAYERX,20 PLAYERX INPUT/OUTPUT ROUTINE  "ENTER DATA FILE NAME:":FF$:3100 D$;"OPEN ";FF$:C23070 D$;"READ ";FF$:SW,SL:J1PL:R$(J); R$(J))1980DE(P$"S")"(j TIMES AT BAT,RUNS,HITS,RBIS,DOUBLES,TRIPLES,HOME RUNS,WALKS  LIST PLAYERS BY NUMBER & NAME 44 JIM,22 PETE,03 JOHN,08 KEN,55 MIKE  06 BARRY,07 BILL,08 BOB,09 MARTY,22 LOUIE'* 11 PLAYERX,12 P1210I35000#&BB23-012105:I4?D5000INBB15SX1210[bI2el5000kvsA$A$""1920(A$"Y")(A$"N")1920"TO SCREEN OR PRINTER (S/P)?"P$P$""1980(P$"P")(P$"S"ATS (Y/N)?"T1920&^A$"N"16600h1960:r4010@|FX"WORKING..."^d"DO YOU WANT SORTED PRINTOUTS OF HIT, RBI, AND RUN LEADERS (Y/N)?"1920A$"N"1760196017701670BB19E4AV$(B(9))((AV$,1,1)" "1510;AV$(AV$,2,6)U(AV$,1,1)"."1530eAV$"0"AV$R$(J)R$(J)(AV$,1,5) SORT BY AVERAGESBB43"E5,12106MM11630@2030 J"DO YOU WANT A PRINTOUT OF THE GAME'S STJ 2< BUILD R$)FB(1)01380:PB(3)01380DZ1410OdB(9)0_nAV$"0.000"ix1420B(9)(B(3)B(1)1000.5)1000.0001I18B$(B(I))B$(C$,1,D5(B$))(B$,D6,(B$))R$(J)R$(J)B$IB(9)01530 DATA (Y/N)?"~1920(A$"Y"1180.6C2@3010Q SHELL SORT]J1PLiIN(J)JCC(J)((R$(J),BB,E))JJPL111I1JCC(IN(I))CC(IN(I1))1310TEIN(I) IN(I)IN(I1)IN(I1)TEI( I18J1PL.ST(I)ST(I)RT(J,I)5JDB(I)ST(I)KIXR$(J)""b$1350p.TT$R$(J)z82030B"DO YOU WANT A PRINTOUT OF THE YEAR'S STATS (Y/N)?"L1920VA$"N"1140`1670j1560 t"DO YOU WANT TO SAVE THEWW >LSLL H1670$ RJ1PL/ \I18W fA$"N"(NA$(J),4,7)"PLAYERX"920y pB(I)((R$(J),11(I1)4,4)) zB(I)RT(J,I)B(I) RT(J,I)B(I) 930 B(I)RT(J,I) ST(I)0 I R$(J)(R$(J),1,10) 1350 J MM1I R$(J)"" 1350( TT$R$(J)2 1560m "DO YOU WANT TO INPUT STATS FROM ANOTHER GAME (Y/N)?"w 1920 A$"Y"230 2030 "WOULD YOU LIKE TO MERGE IN DATA FOR THE YEAR (Y/N)?" 1920 A$"N"840 C1 *3010 4WS(B(I)))D5450# B(I)999540. KI89 B(K)0@ KH I8O IY &1350d 0I18} :RT(J,I)RT(J,I)B(I) DTT(J,I)TT(J,I)B(I) NI XJ b1670 lMM0 vI18 J1PL ST(I)ST(I)TT(J,I) J B(I)ST(I) (YSTS) rLL(TSYS)& |J1PLH (NA$(J),4,7)"PLAYERX"420 R$(J)R$(J)"000000000000000000000000000000000.000" 600 2030 (NA$(J),4,(NA$(J)));"'S STATISTICS FOR THIS GAME:" I18 B(I)0 F$(I) B(I) ($(J)(NA$(J),1,(NA$(J)))(" ",1,10(NA$(J)))D I18R TT(J,I)0^ ST(I)0e Il "Jv ,2030 6"GAME STATISTICS" @"WHO DID YOU PLAY" JOT$ T"ENTER YOUR SCORE AND THEIR SCORE (SEPARATED BY A COMMA)" ^YS,TS hWWYZD$(4):I$(9)dD54'nD611xPL20vB(9),CC(20),IN(21),ST(8),RT(20,8),TT(20,8),F$(8),NA$(20),R$(21)TM$"TEAM NAME"C$"0000"I18F$(I)IJ1PLNA$(J)NA$(J)(NA$(J),1,10)JJ1PL9 R       I1379:PT(I)6(I9):!@I6429:PT(I)6(I9):[I16121:PT(1)I19a{I5459:PT(I)I48:I64289:PT(I)(I9)1:I62581:PT(I)I57:I69339:PT(I)(I9)1:X1:WI3:WCBCGCWC:1)2):ZZ1HYQW:H2Y1!XYY1-E070<BO(E)A(E)BK500VQ18kY1OF(Q)06630PO(Y1OF(Q))2PO(Y1OF(Q))1:6630PO(Y1OF(Q))0QXY76860XY636890XY706920I913:PT(I)15I:TA(E)0BO(E)TA(E):A1A11$E4(BO(XY)TU1?)Q18l*XYOF(Q)1PO(XYOF(Q))PO(XYOF(Q))1s.Q2NWQW:REC1:Y1XY<TU3TU:6010:REC0:TU3TU:QWNWHIFQWHYHYQW:H2Y1:6550ZHY06550dQWHY.85QWHY1.15ZZ((03HI0ĂXY:6203OQWHI.85QWHI1.15ZZ((1)2):ZZ1HIQW:H1XYU8g;LE2REC1ı=(HI32000LE1)(HY32000LE2)FL0:CHIPS0BXYH1LLE2XYH2V500jY(XY9):XXYY9tA1AL:E070 A(E)BO(E):I $pHY32000:OF(PL2)1XzHI32000:XY070:PO(XY)0BO(XY)0ĂXY:6203b4000yCHIPS0ĂXY:6203TTWCBC:QW(TT8)CHIPSPT(XY)(65TT)8LE2CHIPSA1QW10000LE2REC0İ6400:XY:6203QWHIHIQW:H1XY::62,32(b 168,252,173,48,192,232,208,253Ll 136,208,240,206,15,96,208,233iv 96,255,0,0,255,255,0,0 100,248,32,43,97,32,1879 98,206,14,96,208,239,96,174Y& 0,3,160,0,200,208,253,202{0 208,250,96,162,10,160,0,200: 208,253,202,208,250,96,162,15D 173,48,192,169,4,32,168,252N 202,208,245,96,169,16,141,15X 96,160,1,162,1,169,803,185,17,96,24,105,2,1688 173,10,96,32,0,248,96,173W 97,192,48,1,96,173,13,96x 201,0,208,22,169,33,141,10 96,141,11,96,169,1,141,13 96,173,4,96,141,2,3,32 198,98,96,169,0,141,16,96 169,15,141,14,96,173,14,96 32, 14,96,169,0,141,13,96,1737| 1,3,24,105,10,141,1,3X 201,35,208,3,76,147,98,173x 13,96,201,1,208,48,173,11 96,201,2,144,15,206,11,96 206,11,96,206,11,96,206,11 96,76,110,98,169,2,141,13 96,169,0,32,100,248,172,2 1,50(" 144,17,201,100,144,18,201,150J, 144,19,201,200,144,20,169,4f6 76,7,98,169,0,76,7,98@ 169,1,76,7,98,169,2,76J 7,98,169,3,76,7,98,141T 5,96,173,8,96,240,6,206^ 8,96,76,55,98,169,33,141h 8,96,32,84,98,169,9,141r,25,248' 173,6,96,168,24,105,6,133E 44,173,9,96,24,105,2,32f 25,248,173,6,96,168,24,105 6,133,44,173,9,96,24,105 3,32,25,248,173,6,96,168 24,105,5,133,44,200,173,9 96,24,105,4,32,25,248,96 162,0,32,30,251,152,202,21,61,189,108I&63,24,125,116,63,168,185,136,63,208,13,189,116,63,24&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,96169,0,157,84,63,168,185,89,60,157,116,63,32,21,61h%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,3 @ J"ATTD"X$! T(4)"PR#3. ^"READY"7 768Q  173,169,192,41,8 p  240,21,173,168,192,9,128 201,225,144,6,201,251,176,2,105,0 32,240,253,76,0,3,173,0,192 16,223,141,16,192,41,127 141,168,192,76,0,3 V CHANGE THE LAST DATA IN 415 FROM 0 TO 224 TO USE THIS PROGRAM ON THE APPLE II+nd"INITIALIZING...."~n(4)"PR#2"x"+++";I768I43:A:I,A:(4)"PR#3"PHONE NUMBER TO DIAL";X$,(4)"IN#2"6(4)"PR#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 VALU# 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                  100)QU)5:10G" Percent Correct ";(" "(X),3);"%"T8:15:u"PRESS ANY KEY TO CONTINUE"{$X(16384):X1286180.16368,08260% SUBROUTINE TO PLAY SONGS&%0%QX$:QX$"$SONG"9520:%X866891::D$;"CLOSE ";FL$+X15:(7);:73:1:h"*** Q U I Z C O M P L E T E ***";nx5:6" Total Questions ";(" "(QU),3)5:8" Questions Correct ";(" "(CO),3)QU0QU1X((CO64,2:865,X:866:"X12500:,3300G| *** INCORRECT ANSWERR24:1]39);j24:1:t9600"*** ANSWER = ";(Y$,26);X90705864,3:865,X:866:X12500:3300p *** GAME OVERz1:1PLETION5:1$"Completion:".7:16X$?X$;J10:1g"Enter correct answer:"vVL12:HL1110009600QT$Y$X$"9600,QT$Y$500065500 *** CORRECT ANSWERCOCO1X16017558:" ";X$X$;%JJ1+6 24:1d"Enter correct answer (A,B,C,D or E):";X(16384):X1283870(16368,02X$(X128)<9600AY$"A"Y$"E"ĺ(7);:3870FX$PX$Y$5000Z5500 *** PRESENT COM.16368,08X$(X128)&B9600HLY$"T"Y$"F"ĺ(7);:3620PVX$``X$Y$5000jj5500t *** PRESENT MULTIPLE CHOICE~5:1"Multiple Choice:"7:1X$X$;J0I10223I:4:(J65);"."; ER ";QUR X3500,3700,4000: *** PRESENT TRUE FALSED 5:1Z "True or False:"d 7:1l X$u X$; 11:4 "Enter ";::"T";: " for TRUE."13:4"Enter ";::"F";:" for FALSE."$X(16384):X1283620 1,1,0,0,1,1,0,0,1,1,1,1,1U*UU*U*ժժŪժѪժ21,45,45,45,45,45,45,45,45@!t' 45,19,63,63,63,63,63,63,63,63 g!~' 63,17,13,45,45,45,45,45,45,45,45!' 19,31,63,63,63,63,63,63,63!' 10,45,45,45,45,45,45,45,19!' 31,63,63,63,63,63,10,45,45,45,45,45,19!' 31,63,63,63!* 0,-1"* 1,1,1,A1ı $'XX1:X,A! .'100103 8' 2,0,6,0,9,0A B' 46,60,0^ G' 7,63,63,19,45,45,45,45 L' 45,19,63,63,63,63,63,17,27,45,45,45,45,45,45,45,19 V' 63,63,63,63,63,63,63 `' 19,45,45,45,45,45,45,45,45,45,19,63,63,63!j' 63,63,63,63,63,63,,0,2,-2,2,1,1,2,-2,2,0D# 2,-2,2,1,1,2,-2,2,0,5,-2,8,2,2,8,-2,5,0|# -8,-12,-2,-2,-2,-2,-12,-8,0,16,-8,5,2,2,5,-8,16,0# 172,01,03,174,01,03,169,04,32,168,252,173,48,192,232,208,253,136,208,239,206,0,03,208,231,96 'X795:(796)2ı 'A:"7150 5 (#I18%2#A1<#OF(I)A8F#IDP#X071SZ#A:PT(X)AYd#sn#I770795:M:I,M:Ix#I8719:BO(I)5:## -10,-9,-8,-1,1,8,9,10 # 16,-8,5,2,2,5,-8,16,0,-8,-12,-2,-2,-2,-2,-12,-8,0# 5,-2,8,2,2,8,-2,5BCIĒBL:2266,140I28768,2:769,80I2:770?In:(21):TIĺ10)"THE GAME IS A TIE":712012)M$" IS THE WINNER"" WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";16368,0(16384)1287130A$:A$"N"ĉ::A$"YBL4:M$"WHITE":WH1:7020KbBCWCGCBC:WI2:WH3:M$"BLACK":BL6:7020igTI1:GCWC:WH1:BL6:WI0ulI1GCvWCIĒ3:215,140I2BCIĒ4:2266,140I2768,2:769,80I2:770ICO:I1GCWCIĒWH:215,140I2XxEFG >0 e()) $20I$ i EFGXL ,TA):A(PT,TT,TA1)f TATA2&p T.z TT6 PTK (4);"CLOSE";F$U 1050d PLOT SUB X1279X10X20X2279ı Y1190Y10Y20Y2190ı X1,Y1X2,Y2:j Q$t(16384)1273700~Q$ END SESSION:"," A(0,0,0):A(1,0,0)1 PT2A(0,0,0)1: TA0O T0A(PT,0,0)1m A(PT,0,TA):A(PT,0,TA1)y TATA2 T PT* PTA(0,0,0)2A(1,0,0)A(0,0,0)14 A(PT,0,0):A(PT,0,1)> TT12H TA2R T2A(PT,0,0)1\ A(PT,TTL L - <-  6GF(,PP(&-&&)?_' N i8.  N - <-  . '(` Π٠č7);:":4:16":"Specified File Name is invalid."B":6:5:c":"PRESS ANY KEY TO CONTINUE"":X(16384):X12815080":16368,0":";260ETE ";FL$!6D$!6+!6X18:(7);:5!64:1^!7"Specified File not found on Disk."j! 76:5:!7"PRESS ANY KEY TO CONTINUE"!7X(16384):X12814110!(716368,0!27!<7260!: *** INVALID FILENAME!:216,0!:":X18:( +(X$)1ī11040 +HL:VL0 +(X$)1);J +(X$)1X$"":11020_ +X$(X$,(X$)1)j +11020 $,(X$)80X$(X$,80) ),(X$)0X$" " .,HL:VL 8,X$;" "; B, 6 *** FILE OPEN ERROR 6216,0 6:D$;"CLOSE ";FL$ !6D$;"DEL%X1(X$)%Y((X$,X,1))6%Y96Y123YY32E%Y$Y$(Y)K%Q%g* *** GET A REPLYq+X$""} +HL:VL+X$;::" ";: +X(16384):X12811040*+16368,04+XX128>+X1311300H+X811200R+X$X$(X) \+11020Y:X,Y:D%X,Y:X0ı5N%864,Y:865,X:866:9540X% "$SONG",172,97,3,174,97,3,232,208,253,169,4,32,168,252,173,48,192,136,208,239,206,96,3,208,231,96b% 134,4,151,4,151,4,151,4,166,3,177,8,166,4,151,4,134,8,-1,0% *** UPPER-CASE%Y$"" * <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "  169, 172, 032, 237, 253, 165, 255, 032, 034, 1359o 127, 169, 169, 032, 237, 253, 076, 072, 249, 177, 1561 235, 133, 142, 200, 177, 235, 133, 002, 200, 177, 1634 235, 133, 003, 096, 032, 072, 249, 169, 162, 032, 1183& 237, 253, 166, 17>Z 126, 024, 165, 235, 105, 002, 144, 002, 230, 236, 1269{d 133, 235, 096, 169, 168, 032, 237, 253, 165, 253, 1741n 032, 034, 127, 165, 251, 240, 024, 169, 172, 032, 1246x 237, 253, 165, 254, 032, 034, 127, 165, 252, 240, 17592 010,35, 096, 1417J2 169, 164, 032, 237, 253, 032, 127, 126, 160, 000, 1300< 032, 173, 126, 152, 056, 101, 235, 133, 235, 169, 1412F 000, 101, 236, 133, 236, 076, 191, 126, 169, 165, 1433P 032, 237, 253, 032, 127, 126, 160, 000, 032, 228, 122 132, 253, 134, 254, 1513V  133, 255, 076, 236, 125, 165, 236, 076, 167, 125, 1594 032, 127, 126, 165, 235, 164, 236, 032, 249, 234, 1600 032, 046, 237, 169, 141, 032, 237, 253, 024, 169, 1340 ( 005, 101, 235, 144, 002, 230, 236, 133, 2, 044, 126, 208, 011, 202, 208, 1048b 005, 032, 074, 126, 208, 003, 032, 102, 126, 164, 872 253, 166, 254, 165, 255, 200, 196, 250, 144, 016, 1899 160, 000, 232, 228, 251, 144, 009, 162, 000, 024, 1210 105, 001, 197, 252, 176, 009,51, 132, 250, 160, 004, 177, 235, 170, 200, 1711m 200, 177, 235, 149, 249, 202, 208, 247, 134, 255, 2056 134, 254, 134, 253, 152, 056, 101, 235, 133, 235, 1687 169, 000, 101, 236, 133, 236, 032, 019, 127, 166, 1219$ 004, 208, 005, 032<  235, 165, 238, 101, 236, 133, 236, 197, 110, 240, 1891y  003, 144, 007, 096, 165, 235, 197, 109, 176, 249, 1381  160, 003, 177, 235, 133, 238, 136, 177, 235, 133, 1627  237, 032, 251, 126, 228, 004, 208, 212, 132, 252, 16820 132, 2, 237, 1177H ` 169, 141, 032, 237, 253, 208, 159, 169, 000, 133, 1501 j 004, 032, 141, 125, 230, 004, 032, 141, 125, 230, 1064 t 004, 169, 141, 032, 237, 253, 165, 107, 133, 235, 1476 ~ 165, 108, 208, 011, 165, 237, 024, 101, 235, 133, 138765, 032, 237, 253, 1580T 8 032, 072, 249, 032, 228, 126, 208, 198, 169, 164, 1478 B 032, 237, 253, 032, 173, 126, 032, 188, 126, 208, 1407 L 185, 032, 072, 249, 164, 236, 165, 235, 024, 105, 1467 V 002, 144, 001, 200, 032, 249, 234, 032, 046 @ ] LHɁ ɂ ɲ % $  Ѕ Ѕ h  ɀ0 Ȫ $ P L`  000 L` `@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP  ` `` ` `eee&)  H&&hթ k ` L0H kh" I " : kLɀ) H[ h 5ȱ`ȱa{i2   D$(4)#D$;"BLOAD ALIST"0:3:10S("APPLESOFT LISTER INSTALLED."^23:12}<"CALL 32768 TO ACTIVATE."F '  169,190,133,51,32,106,253,142F  30,3,164,0,204,30,3,240e " 12,185,0,2,41,127,153,0 , 2,200,76,12,3,96,0,0 04?, 009, 176, 072, 138, 072, 152, 240, 003, 032, 237, 1131|6 253, 104, 240, 003, 032, 237, 253, 104, 076, 237, 1539@ 253, 000, 000, 000, 000, 000, 000, 000, 000, 000, 253J 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 0032, 237, 1218K 253, 165, 241, 076, 168, 252, 160, 000, 162, 000, 1477 201, 100, 144, 012, 160, 176, 162, 176, 200, 056, 1387 233, 100, 201, 100, 176, 248, 201, 010, 144, 010, 1423" 162, 176, 232, 056, 233, 010, 201, 010, 176, 248, 15, 032, 155, 235, 032, 1311W 046, 237, 169, 141, 076, 237, 253, 162, 000, 160, 1481 001, 177, 235, 016, 001, 232, 009, 128, 133, 001, 933 136, 177, 235, 016, 001, 232, 009, 128, 133, 000, 1067 096, 165, 000, 032, 237, 253, 165, 001, 42, 240, 018, 160, 000, 177, 002, 1395c 009, 128, 032, 237, 253, 165, 241, 032, 168, 252, 1517 200, 202, 208, 240, 169, 162, 032, 237, 253, 169, 1872 141, 076, 237, 253, 177, 235, 133, 158, 200, 177, 1787 235, 133, 159, 162, 144, 0242,S2):K2NSDD12RD(I):200- DDRD(I)> D11DD12D XXMLDX(D):YYLDY(D):X,Y:SN(NC)SN(NC)1:CNC11:SN(C)7240 SN(C)0:SN(C1)SN(C1)1: SN(0)0180 A$:A$""250 100  0,0,1,0,1,7,0,10,0,0,0,2,1,D6): d:6 n"ENTER NUMBER OF CYCLES ( 1 - 4 )"c x" OR ENTER A ZERO TO QUIT: ";NCo NC0Ā} NC4100 :3 X235:Y142:TL162:X,Y C0NC:SN(C)0: D0:LTL:NS0:C1NC:ISN(C):LLLN(I):JSN(C1):NSNSSD(J):K(N PROGRAM 3N THIS PROGRAM PLOTS A FRACTAL "SNOWFLAKE SWEEP"T(m2DX(11),DY(11):M76<N06:SD(N),RD(N):LN(N)13::LN(2)(LN(1))FA0:D611:DX(D)(A):DY(D)(A)PAA0.52359879: ZD05:DX(D)DX(D6):DY(D)DY(   3:: X13000+ (49152)128Ă8 49168,0> Q D$;"RUN MENU"h D$;"RUN MENU"MENU"DK OF APPLE": U@ _:3:"(Set computer to 40-column mode)"J d::Q n3y x"After running any program, type:" } 3:"FP" 3:"RUN MENU": 3 "to return to the Table of Contents." 3:23 "PRESS ANY KEY TO CONTINUE"R * 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 ";::"SECOND BOO  169,0 x72,189,255,1,201,160: 240,8,104,10,125,255 R 1,105,0,72,202,208k 238,104,170,41,15,9 48,201,58,144,2,233 57,141,1,4,138,74 74,74,74,41,15,9 48,201,58,144,2,233 57,141,0,4,104,170 169,141,96 ' C0:I76876868:A:CCA:I,A:^C7258ĺ"ERROR IN PROOFREADER DATA STATEMENTS":(190256)76Ĺ56,0:57,3:1002:50((4);"IN#A$300"234,0::34,1:2:"PROOFREADER INSTALLED"<d216,32,27,253,201,141 n208,60,138,72,5,200,173,34,96/0 233,7,141,34,96,173,35,96P: 233,0,141,35,96,16,237,173pD 34,96,105,7,170,189,36,96N 17,26,145,26,96N37,173,0,96,208,30  76,74,96,96,173,33,96,10O  10,41,28,9,64,133,27,173l  33,96,74,74,74,74,41,3  5,27,133,27,173,33,96,41  192,72,106,133,26,104,74,74  74,5,26,133,26,173,31,96  141,34,96,173,32,96,141,35& 96,56,160,25,208,6,238,33,961  76,210,96,224,4,208,20,173P  31,96,56,233,1,141,31,96p  173,32,96,233,0,141,32,96  76,210,96,206,33,96,32,248  96,238,14,96,160,14,162,13  185,0,96,201,2,208,12,169  0,153,0,96,254,0,96,202  136,208,2,189,0,96,217,0/ @ 96,208,6,238,30,96,238,30M J 96,173,30,96,16,5,169,7m T 141,30,96,201,8,208,5,169 ^ 0,141,30,96,232,200,224,14 h 208,189,170,208,20,173,31,96 r 24,105,1,141,31,96,173,32 | 96,105,0,141,32,96,76,210  96,224,2,153,0. 96,136,192,255,208,248,141,32 P 96,162,77,142,31,96,160,128p  140,33,96,32,248,96,169,0  141,30,96,162,0,160,1,185  15,96,208,20,238,30,96,189 " 0,96,217,0,96,208,26,206 , 30,96,206,30,96,76,125,96 6 206,30,96 Z TO EXIT THE PROGRAM. d& 1 16383N N2461224912:I:N,I:m N2459124605:N,0::180 N2459324605:N,((1)2): :3:24619 A$:A$" "170 A$"Q"190 : 1,2,4,8,16,32,64,169 0,141,16,96,160,14 PROGRAM 2 Z( THIS PROGRAM PLOTS RANDOM FRACTAL "DRAGON SWEEPS."2 THE "STANDARD" DRAGON IS ALWAYS PLOTTED FIRST.<F WHEN A PLOT IS COMPLETE, PRESS THE SPACE BARP TO PLOT ANOTHER DRAGON, OR PRESS THE "Q" KEY >222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < ";A$b"ANY MORE? (Y OR N) ";YT$YT$"Y"120768B1(798)B2(106)256(105)B22,B1B23,0B24,2A$(T$,1)  L X,Y:SN(NC)SN(NC)19 CNC11:SN(C)2300Y "SN(C)0:SN(C1)SN(C1)1:j ,SN(0)0180} 6A$:A$""310 @100 (NC2)2NCNC2NC141008 L128:C2NC2:LL2:Q X77:Y128::3:X,Yg C0NC:SN(C)0: D0:C1NC:SN(C1)SN(C)DD1:200 DD1 D1D7 D8D0 D0XXL:270 D2YYL:270 D4XXL:270 YY PROGRAM 1K THIS PROGRAM PLOTS A FRACTAL "DRAGON SWEEP"y( FOR AN EVEN NUMBER OF CYCLES (14 MAX).2ZSN(14)d:n"ENTER AN EVEN NO. OF CYCLES (2 TO 14)"x" OR ENTER A ZERO TO QUIT: ";NCNC0Ā TAL2Gq RUN FRACTAL3,BRUN ALIST,RUN VARIABLE LISTER,RUN SOFTSEARCHERv LOAD RANDOM1,LOAD RANDOM2,BRUN LIGHTNING SORT,RUN FUNCTION SETUP{ RUN UNIVERSAL INPUT,RUN PROOFREADER,RUN APPLEMLX RUN ADSd,RUN FUNCTION SETUPJ{ RUN UNIVERSAL INPUT,RUN PROOFREADER,RUN APPLEMLXdTPROOFREADER,RUN APPLEMLXddMPUTE,RUN BOOKSdT ARTIST,RUN BUILD A QUIZ,RUN APPLEFONT,RUN DRAWING MASTERl RUN PLOTTER,BRUN CHARSET,RUN RAM MOVER,RUN FRACTAL1,RUN FRAC,RUN MINDBUSTERS\i RUN STARVING ARTIST,RUN BUILD A QUIZ,RUN APPLEFONT,RUN DRAWING MASTERl RUN PLOTTER,RUN FRACTAL1,RUN FRACTAL2q RUN FRACTAL3,RUN APLIST,RUN VARIABLE LISTER,RUN SOFTSEARCHERv LOAD RANDOM1,LOAD RANDOM2,RUN LIGHTNING.TESTER:A$(T)::I X RUN HOME FINANCE,RUN QUICK.BUT.DUMB,RUN SOFTBALL STATS ] RUN SCREEN DUMP,RUN FAST FILER,RUN ADVENTURE,BRUN WEBSTER b BRUN HEAT SEEKER,RUN PARATROOPER,RUN BOWLING,BRUN DODGER.KEY,RUN CHESSg RUN MISSILE MATH,RUN REFLECTION.LDRPPLE SUPERFONT,DRAWING MASTER,SCALING PLOTTERQ  FRACTAL 1,FRACTAL 2,FRACTAL 3  APPPLESOFT LISTER,VARIABLE LISTER,SOFTSEARCHER  RANDOM 1,RANDOM 2  LIGHTNING SORT,FUNCTION KEYS,UNIVERSAL INPUT,PROOFREADER,APPLEMLX p::"LOADING......":_  HOME FINANCIAL CALCULATOR,QUICK.BUT.DUMB,SOFTBALL STATS,SCREEN DUMP,FAST FILER,ADVENTURE  WEBSTER DINES OUT,HEAT SEEKER, PARATROOPER  BOWLING CHAMP,SPACE DODGER,CHESS,MISSILE MATH,REFLECTION,MINDBUSTERS,STARVING ARTIST-  BUILD A QUIZ,A aPGTPPG0:DE0% cR$(32)10G d(R$)49(R$)57Ė6:17:90i fJDE35ĭ(R$)55Ė6:17:90u iD$(4) nPN(R$)48 sPNPNDE xTPN:6000 54,240:55,253:1002 D$;B$(PN)  T133:A$(T): T133:B$(T): SECOND BOOK OF APPLE":1 "(C) COPYRIGHT 1985"y "PAGE ";PG1;" OF ";TP;" PRESS ";::"";::" FOR NEXT PAGE" X2182 (JJ1 -JDE34X18:70 2Y:X <J;" ";A$(JDE) FX ZR$:R$""90 _R$(32)PGPG1:DEPG9L40196,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)TP4:PG0 4000 ::51,1:62454Y61:22:J0 "COMPUTE!'S ";::"     Ɇ [Bɍ`L 8 [ g` ɶɰ !(`( hh`(8`hhLSŽƭL$D$;"DELETE ";FL$,D$;"OPEN ";FL$AD$;"WRITE ";FL$MI1NPq"LOAD ";VL$;"PROGRAMS/";PN$(I)"SAVE ";PF$;PN$(I) SU1ĺ"-";PF$;P1$"PRINT:PRINT"D$;"CLOSE"(A$,K)VPN$(NP)P1$SU11`10:1:79);(13)Wj10:1:"Copying ";PN$(NP);" ..."ftK1500:l~BUILD EXEC FILE10:1:79);(13)10:1:"Building EXEC copy program ..."FL$"TEMP.EXEC"D$;"OPEN ";FL$D$;"CLOSE ";F930D$;"CLOSE"21160: BUILD EXEC FILE8M SAVE PGM NAMESj(L4$,18,3)"BAS"1150vNPNP1NPMP1150BCBC((L4$,23,6))BCRB1150$T$(L4$,2,15).K15118(T$,K,1)" "1100BLPN$(NP)(TD$;"CREATE ";PF$R210.\ MOVE PROGRAMSLfNP0: NUMBER OF PROGRAMSbpBC0:BLOCK COUNTvzD$;"READ ";DR$L1$: DIRECTORY NAMEL2$: TITLE LINEL3$: BLANK LINEL4$: FILE ENTRYL4$""9701000: SAVE PGM NAMESD$;"READ ";PF$L1$$L2$-L3$BL4$:L4$""770UT$(L4$,2,15)lNPNP1:PN$(NP)T$u730D$;"CLOSE ";PF$ I1NPD$;"DELETE ";PF$;PN$(I) *2104216,0:DIRECTORY NOT PRESENT>3288: FIX STACKH30 I6122& &I:1:79);(13), 0< :C$(13)ijE D400\ N GET VOLUME LABELo XD$;"PREFIX /" bD$;"PREFIX" lVL$ vD$   CREATE /RAM/PROGRAMS/ 8:1:"Moving programs to ";PF$ 820 D$;"OPEN ";PF$;",TDIR" 200 216,0: NORMAL ERR7 3288: FIX STACK{ 8:1:"The directory '/PROGRAMS/' is not on the diskette ";VL$ 10:1:"Insert the proper diskette." 12:1:"Press SPACE to continue. Press RETURN to stop." C$:C$" "C$(13)5R" h:1:1:UL$. r3:(80(TL$))2:TL$= |4:1:UL$C f  OPEN /.../PROGRAMS DIRECTORY 590: GET VOLUME LABEL DR$VL$"PROGRAMS/" 6:1:"Moving programs from ";DR$ 480 D$;"OPEN ";DR$;",TDIR" 216,0: NORMAL ERR 8 12:1:"Running the EXEC copy program ... "H I11000:\ D$;"EXEC ";FL$b " ,12:1:"Programs are being copied to:";PF$ 6I11000: @ J PROGRAM TITLE TUL$"":I180:UL$UL$"_": ^TL$"DISK TO /RAM PROGRAM MOVE"# RB118:/RAM BLOCKS AVAILABLE< MP50: MAX PROGRAMSI PN$(MP)b :D$(4):D$;"PR#3"s 330: TITLE 400: OPEN DIRECTORY 650:CREATE /RAM DIRECTORY 860: MOVE PROGRAMS THE EXEC PROGRAM WILL MOVE THE PROGRAMS ( APC0:(64435)6(64448)0APC16APC025?100K:6:7o"THIS PROGRAM IS DESIGNED FOR"z#10:9("THE APPLE //C ONLY"2d MOVE /.../PROGRAMS TO /RAM/PROGRAMS (MOVER)nxPF$"/RAM/PROGRAMS/" P1$"STARTUP.RAM     D$(4) :6:7@"COMPUTE!'S SECOND BOOK OF APPLE"K2:10y"(C) COPYRIGHT 1985 ALL RIGHTS RESERVED"#6:13%:("INITIALIZING......PLEASE WAIT"-2X11000:ZD$;"RUN ALERT""z#" ΠРΠӠ̠ԠҠ Ԡؠ ŠҠҠ ҠͱͲ ǮԠ!ǮҠ !Ҡ "Ԡ ͠Ҡ ̱ ̲ ̳ Ԡ ΠӠǠԠ ĠڠԠԲ ǠҠ ԠҠҠ ǠӠ Ү٠ ŠȠήҠ ŠŠ%ˮԮ ̠ӠΠРԠҠ Š ҠϠՠ Ԡ Ԡ Š ̮Ԡ ԠGGGGGG |x`n]pn]pn]""@AqG@x~qqG?~@`60 c8C;ne @m:7@Mn` :3`nE77:g@an5@A:`n0``9;08 ` (( @xAp!~@p?`@@`0@?` C@C~p|a||@`~x*?=(u?}U~/u@*U*U@ TP  (cx~@p@~?xx8p`~>p`~~A|@ȥȱ J0 ] Di &L`ee` J`,`źӺȠ̺ӠΠϠ''   V()?8  `)j,iPPi(m`        jjiPm(*i`ʌ`΅ &ȱȥȥȱJ0 ] Dȱȱȱ  m`1/I1 1 `\I`]1I `ee`` j,0J mnk k  JJJ8Immmn`'88m8LLI`) T8" m"")@(m"  п" m" L  " m"")@(m"  К`ȱ) i)'4(0('4')ܭ'i)`'d  x `! x `k  9mn`( JJJi  k8mn`) é ߩ$۩ש 8Ѝ I     (88 Z1ɩL|,T,QL1i' 0) ! i2  ! i  iж`) (  ( ĩ |' i" ( ! `# 8m##`i ʈ謊`,,,`       `     xL   x) `'(詇 ɴ Lt`' ,108, i, `! x( , m1, 0+(',10,m, ' 0(0&  LXɩ | 8ɰ6  x ,,L  (``! < 8' # |, m1, 0(0+ `( 08x0,/( m0( `ЍLȌ I(G oɠJJ))i),ȱȱȱx$i.8.i.ܠ  m OL  ;,ɍ ,.0,Ɉ ' #' ɕ ' #' ɠ .0L  ) o)\ o 2 2 |L2,p,P} 0(8 , + o) i Ј`+ +,.0= o)68110    ,W,R,P,@ ` P ' i,S xp  x{  x  x x   Z,.0 `L %&,/ ; XL   ,. 9 rL! ( .      $ o0mmL08`LGLS E NNS >EE>E 8)>E֠ FȌFЪ` > FȌF`FC $D`iI`i `* *mDFGmEGF8MG8&M&0G8&M&0 HI#,,DI,EIHII C`Lr D3 04komq,o0  L  lonq,o0  L  `q o08%%$$L%m%$m$`q,%.mΈ`INE# C 8[>C 8>C ;`M$ o<`=N& oip>`?`2ΐ#2 ΰ  ɀIi  m m `GG`C-,Ɉk`ɕk`ɠS`΃i`EFG i(()) $ i EFGL W@ W`$ [  $ [B / $ [!  ` ` Yi Y` Y VV V`i i $$<`=1J0I S`H i1h`H`ޏ 3 miT&>`?` L^ހM 왁 L^L9 eiхB  `i) i` iɌB P*ȩUxi)$ [B歙7,4 $4,7 `$T  <`=J@MkC G`<=ȱ q 0Ά`1 `iɌ  3*N# @DE j jCl h ; BCCB@*T 1ʈMʈiΊΉL1  `  <= ` BCCB@*T @A` V H I 1MLN3HO 1IT T  1L ɼ1LT j, ɭQ퍁mD+4T j  LiЯ LSMx _ 2L,P,W,R,T@A C @B HV[1k 1<`= ( u$HHT    BCCB@*T  S  ޏ       235, 144, 002, 230, 236, 133, 1281`  235, 165, 236, 197, 108, 144, 009, 240, 001, 096, 1431  165, 235, 197, 107, 176, 249, 032, 251, 126, 228, 1766 $ 004, 208, 223, 032, 019, 127, 160, 002, 166, 004, 945 . 240, 029, 202, 240, 013, 169, 1 "ERROR IN DATA "/ "MISSING A LINE":l  032, 127, 125, 169, 000, 133, 004, 032, 017, 125, 764  230, 004, 032, 017, 125, 230, 004, 169, 141, 032, 984  237, 253, 165, 106, 133, 236, 165, 105, 208, 009, 1617#  169, 007, 024, 101,#d:"CREATING VAR.LIST":310006nX32000:TC0:ExZ0:A09WP:X,P:ZZPnXX1:X32601200}A:TCTCZA:AZ120"ERROR IN DATA ""CHECK LINE # ";X31010:: TC85238ĺ"OK":(4);"BSAVE VAR.LIST,A$7D00,L601":            ,9,162,8,160,0,177,26,36,50,48,2,73,127K164,36,145,8,230,26,208,2j230,27,165,9,24,105,4,1339,202,208,226,165,69,166,70164,71,76,240,253SL 0,0,0,0,0,0,0,156;V190,255,227,227,156,156,136,255Y` 0,0,0,0,190,255,227,227yj133,69,134,70,132,71,166,7t10,10,176,4,16,62,48,4~16,1,232,232,10,134,27,24101,6,133,26,144,2,230,27165,40,133,8,165,41,41,35,230,133145,196,1450136,162,136,162,136,162,136,162K0,0,0,252,255,255,0,0n0,134,143,255,255,255,252,224$192,224,240,255,255,191,0,0.190,255,227,227,162,162,162,1568156,136,255,156,156,148,148,148B 0,0,190,255,227,227,162,156 24:2:"SELECT DIFFICULTY: (1) EASY, (2) HARD";B(KB)128750e49168,0:(KB)49DF150:790~(KB)50DF30:790 75024:1:868: 145,196,145,196,145,196,145,196 162,136,162,136,162,136,162,136 196,145,196,145,196,TROOPER MISSED THE TARGET";BI11200::1:868:16:PX:" ";ZSCSC10:SC0SC0nTRTR1:TR0ı22:24:SC;:35:TR;24:2:"GAME OVER- PRESS ANY KEY TO PLAY AGAIN";(KB)12871049168,0:24:1:868SC0:TR10/" ";:PX:P2$;X N24:2:"CONGRATULATIONS! MISSION ACCOMPLISHED";:I11200::1:868t XI1415:I:PX:" ";: bPY0: lAL:AH:SK$; vI1516:I:PX:" ";: 16:PX:S1$;:I1200::16:PX:" ";16:PX:S2$;:24:2:"SPLASH! PARAPY16İ620:310 410& PX6ı> PX7SCSC75:550K PX20ıd PX22SCSC50:550q PX35ı PX38SCSC25:550  &I1415:I:PX:TR$(I14);: 0AL:AH:SK$; :I1200::14:PX:" ";:PX:P1$; DI1200::PX:24:SC;:35:TR; r49168,0J |110:I1DF::(KB)128Ĺ49168,0:400S 380g PYAL1:PXAH1 110:IPYPY1:I:PX:TR$(IPY);: I180: IPYPY1:I:PX:" ";: PXPXPD:PX41PXPX40 PYPYPG:PY14İ480:PY0310 ̝:21:2:" WIND ";:12:" WEIGHT ";:22:" SCORE ";:32:"TROOPERS";Q ,730 6AL(1)71:AH39:WD(110(1)):WG(75175(1)) @PDWD15:PGWG250 J22:4:" ";:13:" "; T23:" ";:34:" "; ^22:5:WD;::14:WG; hI768I84:A:XXA:I,A::X23201ĺ"ERROR IN DATA STATEMENTS.":U 6,0:7,141k 54,0:55,3:1002s : I1720:I:1:J1394:WA$; : I1617:I :6:" ";:20:" ";:35:" ";: I2123:1:I:J039:" ";::H " d150nAL:AH:SK$;4xAHAH1:AH0AH38FAL:AH:PL$;LSK$" ":WA$"#$%&":PL$"'()":TR$(0)"*":TR$(1)"+"P1$",":P2$"-":S1$".":S2$"/"KB49152X0:I14125624I103:A:XXA:I,A:I141256I7:I,0:E      NA$(I1)""Ė23:" #"I1" "NA$(I1)":". IN0,75279,75:0,155279,155I0A1:S(I)1::: INITIALIZE SCORE STATEI0:: DRAW GAME SCREENI1:10:"1 2 3 4 5 6 7 8 9 10"^3:63,11279,11zI1A:2I1:3:"# "IJ12363:7(J1)3,I287(J1)3,I288:63,2I811279,2I811:'I1A2:20(A3)I:1:" #"I" "NA$(I)":";:12:"BOWLING CHAMP!":I14:NA$(I)"":Y16368,0:10:7:"HOW MANY BOWLERS (1-4): ";q(16384)1281180A(16384)128:A49A521160(A):AA48:16368,0:I1A:14I:6:"BOWLER #"I"'S NAME: ";A$:NA$(I)(A$,8)::I0A1:T(I)0"8 160,16,24,20,18,62,16,16,0BB 168,62,2,30,32,32,34,28,0aL 176,56,4,2,30,34,34,28,0~V 184,62,32,16,8,4,4,4,0` 192,28,34,34,28,34,34,28,0j 200,28,34,34,60,32,16,14,0t 448,34,34,20,8,20,34,34,0~ TITLE SCREEN'::7: 24,20,20,62,20,62,20,20,0: 32,8,28,8,28,28,62,62,28] 80,28,62,127,127,127,62,28,0 120,63,31,79,103,115,121,124,126 128,28,34,50,42,38,34,28,0 136,8,12,8,8,8,8,28,0$ 144,28,34,32,24,4,2,62,0. 152,62,32,16,24,32,34,28,05,4,133* 9,202,208,226,165,69,166,70B 164,71,76,240,253Hh LOAD REDEFINED CHARACTERSX0:AD36096:L116:B:IADBADB7:A:XXA:I,A::XXB::X6223ĺ"ERROR IN CHARACTER DATA STATEMENTS.": 0,0,0,0,0,0,0,0,070,132,71,166,7,R 10,10,176,4,16,62,48,4L\ 16,1,232,232,10,134,27,24lf 101,6,133,26,144,2,230,27p 165,40,133,8,165,41,41,3z 5,230,133,9,162,8,160,0 177,26,36,50,48,2,73,127 164,36,145,8,230,26,208,2 230,27,165,9,24,1ERROR IN DATA STATEMENTS FOR PIN POSITIONS.":4 E -PIN DATA-d  12,40,13,39,14,38,14,40 * 15,37,15,39,16,38,16,40 4 17,39,18,40>X0:I768852:A:XXA:I,A::X7734ĺ"ERROR IN DATA STATEMENTS FOR ML AT 768.":H 133,69,134,";: -SCORING ROUTINES-+J110ı9PSS2:CS5:YTTJ:J10S3:cS4:zTTJ2:J10S4TTJ:J110S5:S1:TTJ:J10S2:S1:.A(10),B(10):I110:A(I),B(I):XXA(I)B(I)::X540ĺ"X1V:X2Hm &X1X1D:X2X21:(X2,(X11)2)16X2,(X11)21)128)36ĖX21:X1:" ";:JJ1:16336,0:550s 0 :H:V:" *";:HH1:H40530 DJ1J1J N2Z93:73QB1:GJ48 XJ110630 bPSG88:630 lG47 v(G)H:V:" 16368,0" VCED:H:V:"*";E (16384)127T5V:VE::510S R110:` H:" "; V:DD:T5C:CE:ET5:460 VT5:H135:H:V:" *";:R110:: J0 (H,2(V1))16H,2(V1)1)128)36570 16336,0:JJ1:D112:110:A(I):B(I):"$":+ rPS1:J10:400? | -SECOND BALL-H PS0g 450:TT(Z9):SS(Z9):TTJ S(Z9)660,690,710,730,750 T(Z9)T:S(Z9)S 21(A3)2(Z91)(A2):37(Z92(Z92))22:T(Z9):  -ROLL BALL- H1:C19:E11:D1: BALLS, "NA$(Z91);".";5 I12000::24:5:30);X "S(Z9)S1:B11:360:J10340a ,330 624:5:"TAKE ONE MORE BALL, "NA$(Z91);"."; @I12000::24:5:29); JS(Z9)1:B12:360:210 TS(Z9)1:B12:390:210 ^ -FIRST BALL- hIĴS210,270,270,210,310[ (Z91)21:1:" ":::24:10:16368,0:"PLAY AGAIN (Y/N)?";r (16384)128220 K(16384)128:K78K89Ĺ16368,0:220 K89120 16368,0:::  -10TH FRAME : EXTRA BALLS- 24:5:"TAKE TWO MOREd36096:770n830:970)x1160^:230,32:62450::6,0:7,141:54,0:55,3:1002h1230z -MAIN LOOP-Q110:Z90A1R110:2(Z91)1:1:" ";:F130:F:1:"$":F130:F:RB10:360J110B11:390 Q10     ,213,170M213,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-(42242,96,84,84,44,44,44,4444,4,65,64,67,66,65,64V67,66,188,252,60,124,188,252u60,124,188,96,96,97,97,9797,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,170242,96,169,3,133,25,164,48=t240,41,136,240,38,16,19,164[~9,177,6,230,9,73,255,164|25,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,160,96,133,6,185,179,964$133,7,169,0,133,9,164,251W.185,162,96,133,254,165,252,10x810,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,48j68,68,68,29,4,12,4,28V72,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,168185,177,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7P7,255,255,255,255,255,255,255,255,7w7,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,2185,85,119,87,85,100,68,RI6I384I%\B$"1"I08906fI6II256BpII128bz251,R:252,C:8,I:24576:sK7: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,7'030:JIK:850)J060:J:5504F790EK0K6550]F1:R1R:C1C:198t(16368)141770} 550R2R:C2C:RR1:CC1:I0 K(1628510RC):820*RR2:CC2:IK4R0I255I251>R7I1I5H1628510RC,ICC1:670%DI211R0RR1:670?NI196C7CC1:670VXI128I141F670^bJ0nlA(J)I650vJJ1:J13620550IJ:I6I262I820:540251,R:252,CJ1628510RC:K(J)I1417408,7:24576J 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(16384):16368,0 0I215R7RR1:670 :I193C0 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) ,Z1 6(16202)ZZ10 @I15:198:IS JK2:ZZ(B$):Z2(Z2)L15a T910:900x ^(16384)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            :L2+ F07:V(F1)(BF)::560:V(9)C^ F1N:AV(F):580:A$" ";:::(49152)128Ăp 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺA$:I15:A$("EDLSQ",I,1)Ă:160E I270,220,180,200:34,0:z "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:580:A$;": ";&dN9:::"APPLE MLX":34,2:610Xn1:20:"START ADDRESS";:530:A0ĺ(7):110`xSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA:"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT":&   z D$(4):CTRL-D-D$"BLOAD SEARCHER"C1014,0:1015,144^(^ SET & VECTOR ^ x2"'SEARCHER' ENABLED"z:ՈՈ🀘ƙƍƇՊݫݫݫ߻߫ݫՊՂ nvȱvȮv*0 ΃v΅vдΆv eLv` ЪԪՊЪЪ̙̙̙̙ ՁՃՆ֪ՆՃՁ࿀ PA@uuLfvuiȱȱtȱtȌu u UuI1eƝuL v,BPA`@`Lvv``@wvȱvȮv΃veveLuheƝҩ,BP ,BPAA@@ ȥȭtȭt`)?{u B%$iPPi(mt`        ȱ8'tŞ`h8`Luu,BP ,BӡŠҍҠˠӠҠŠӠӠΠϠԬٍҠ٠Ϡ٠٠Lt`!L  pttt͋tt8.tNti*tJ.tt t*tttt iȱ u UuHQ pppp`C)@TP`QT% " $t s$t s Wr $t" s pi pݚssȰHi h積 $t1 s$tG s` dss `Š͠ӺՠŠΠĠύŠˠƠt u 2qptptFt`t t qLt p8pm p ppL@p X s)_NL$pl pjror ` ,0p,0p` ,0`QT X$% "s s$s s$s s Wr $s s p ppp pp}q`CBBC) T`pwqtqtq,Tt`t tp`t`tptpt t`!0;HGV8*8`q p#Ȍ ppJmpppJmppNp p r8`PRB qT qU` qU qT` L@L,pLp!L@@ 7D v B@CWp p pppp@A q p jp p q q u 2q ]qLq/, rɕɈ!p pwqp`p Ȍpwqp`pwqp`p`ppwqp`8q}q pq`p pq` p` r p! p 8m     32,25& 248,174,3,96,189,17,96,168F 200,169,39,32,0,248,174,3i 96,189,17,96,168,200,200,200 169,39,32,0,248,96,173,6 96,168,24,105,5,133,44,173 9,96,200,32,25,248,173,6 96,168,24,105,6,133,44,173 9,96,24,105,1,32!2 126,97,32,187,98,206,14,96B< 208,239,96,174,3,96,189,17cF 96,24,105,2,168,169,36,133P 45,169,34,32,40,248,174,3Z 96,189,17,96,168,200,24,105d 3,133,44,169,37,32,25,248n 174,3,96,189,17,96,168,24x 105,4,133,44,169,38,! 248,201,0,208,28,169,15,32A 100,248,172,2,3,185,17,96a 24,105,2,168,173,11,96,32 0,248,173,11,96,141,10,96  96,173,32,3,205,2,3,240 6,169,15,141,14,96,96,169 0,141,16,96,169,15,141,14( 96,173,14,96,32,100,248,3241,6,96% 173,1,3,141,9,96,32,126D 97,173,8,96,141,7,96,173b 1,3,141,12,96,173,13,96 201,1,208,68,169,0,32,100 248,172,2,3,185,17,96,24 105,2,168,173,10,96,32,0 248,172,2,3,185,17,96,24 105,2,168,173,11,96,32,113240,34,169,0,B 32,100,248,173,4,96,141,3KL 96,32,43,97,169,6,32,100jV 248,173,5,96,141,3,96,32` 43,97,173,5,96,141,4,96j 169,0,32,100,248,173,7,96t 141,6,96,173,12,96,141,9~ 96,32,126,97,173,14,96,32 100,248,173,8,96,16,96,32,216,97,322 111,98,32,175,98,173,16,96S 208,239,32,212,98,96,169,1r 141,16,96,141,4,96,169,2 141,5,96,169,33,141,7,96 141,8,96,169,5,141,12,96$ 141,1,3,169,0,141,13,96. 169,9,141,14,96,96,173,4 8 96,205,5,96,I1X19(X2.5)(39I:(A$,1,I);/I5>CK0cI2457625329:A:CKCKA:I,A:CK73926ĺ"ERROR IN DATA": 76,22,96,255,160,160,232,169 201,197,160,160,176,165,162,160 128,6,10,14,18,22,32,46 96,32,821) A$"BONUS: "(BO):880:SCSCBO>*I15000::300e4::5:" SCORE: "SC>::18:"GAME":::18:"OVER"H20:5:"PRESS ANY KEY TO PLAY AGAIN"R16368,0\(16384)128860fA$:30pX(A$):A$A$" "z ";:A$"KEEP TRYING":880[:A$"I KNOW YOU CAN DO IT":880:A$"THE ANSWER WAS:":880::A$(ANS):880I11000:S0820350BO(BNSH.5)BO25BO50:790BO10BO25:790 810CH(I);:( &I15:CH(I)ANSĹ800,I1. 09 :24576E DSHSH1\ NX(769):X35680j XX25B5y bX15B10 lX5B25 v BNBNB SCSCB:23:A$(B)" POINTS":880 BN50LL1:750 350 SS161:21:" 4)1 RP1ANSA:A$"?"3 RP2ANSB:B$"?"J RP2ANSC:C$"?"j 23:G2ĺA$"+"B$"="C$:490| A$"X"B$"="C$ ANS90DL10:520 ANS20DL5:520 DL((ANS10)1) DT((1)5)1 21 I15:CH(I)ANS(IDT)DL:I44:BE CAREFUL NOT TO WASTE SHOTS"G T::" ENTERING LEVEL ";LW ^I15000:t h::23:25:"SHIPS: ";S r25:"SCORE: ";SC |A((1)41)4(L1) B((1)4L1) G2CAB:420 CAB A$(A):B$(B):C$(C) RP((1)8220 A$:A$(13)270, A$" "210? GG1:G4G0H 130Y L1:SC0:S3t G0G2Ĺ768,140:300 "768,80 ,::7:" POSITION GUN OVER CORRECT ANSWER" 6BN0:BO0:B0:SH0 @::" AND SHOOT UFO" J::" " SUBTRACTION & DIVISION"+ xG03 18d :"SLOW " :"FAST " G0Ģ19:9 G1Ģ21:9 G2Ģ19:29 G3Ģ21:29 "*" 16368,0 (16384)12j :10:14:"LOADING DATA"(930.L(4:A$"MISSILE MATH":880R2v<6:" USE PADDLE 0"}F8P:" PRESS SPACE TO SELECT"Z:" PRESS RETURN TO START"d15:" ADDITION & MULTIPLICATION"# n        THE NORTH AND EAST.-YX,-4,0,-5,0,0,0,0,0^ THE ROPE BREAKS AS YOU NEAR THE TOP., YOU HIT YOUR HEAD ON THE STONE PAVEMENT AND DIE.cDEATH,0,0,0,0,0,0,0,0LAST.EX,0,-2,-5,0,3,0,0,0J YOU ARE IN THE SOUTH-EAST CORNER. THERE IS NOTHING TO SEE., A CLOSER LOOK AT THE WALLS SHOWS A SIGN THAT SAYS ' DON'T GO NORTH '.OX,-4,0,0,-5,0,0,0,0T YOU ARE IN THE SOUTH-WEST CORNER., THE WAY IS CLEAR TOT WALL. IT LOOKS LIKE IT WAS WRITTEN IN BLOOD.]6 TO THE SOUTH AND WEST THE WAY IS OPEN.v;X,0,-2,0,-4,0,0,0,0@ YOU ARE IN A CORNER WITH WALLS TO THE NORTH AND WEST. THERE IS A ROPE LADDER HANGING THERE., THE WAY IS CLEAR TO THE SOUTH AND E0,0,0,0,0' TO THE WEST IS A FEATURELESS WALL. THE WAY IS CLEAR IN ALL OTHER DIRECTIONS., ON THE GROUND IS A JEWELED SWORD.,SWORD,2,4,-4,0,0,0,0,0/1 YOU ARE IN A CORNER WITH WALLS NORTH AND EAST. THERE IS AN INDECIPHERABLE RUNE ON THE EASYOU ARE STANDING BY A WALL TO THE SOUTH. THE WAY IS CLEAR IN ALL OTHER DIRECTIONS., THERE IS NOTHING ELSE TO SEE. X,-2,0,5,6,0,0,0,0  YOU STEP ON A TRAPDOOR AND FALL THROUGH., A POOL OF PIRANHA FISH AWAITS YOU AT THE BOTTOM. "DEATH,0,0,0,DIRECTIONS.L YOU CAN BARELY SEE A WALL ENCLOSING THE PLAIN ALL AROUND.c X,1,2,3,4,0,0,0,0  TO THE NORTH IS A WALL. TO THE OTHER DIRECTIONS THE WAY IS CLEAR., ON THE GROUND IS A SACK OF GOLD COINS.  GOLD COINS,0,-1,4,5,0,0,0,0s  (C255)=:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":150F):DD1& D0C$" "D2D0:FF17 :D0FF1= [ J(C$):JJ487(J64):} A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254C255(C127):CC255K13Ė7:A$;" ";:D K32K47K58K64K71A$L$(K)R$:PP1V K4A$L$R$x K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V((7);:290, @F18:BF1,V(F)::::150K J(A$)33A$O$:PO:(7);w TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 Ġ   ̐ L< #( g RPQ g RP Q LK Ƹ "I"ș P Q ֩  ̐ȱ $Hȱh   ` 𯐭睊 ސ `ĠԠŠԠĠ  2 104,64:16384,00(4)"RUN REFLECTION"a,SCHIPSW1:I07:T075TA(TI9)05080V6:2T2649(T4)2,I202o768,2:769,110:7704(TU1)3:2T2649OF(T4)2,I202BO(TI9)TU1768,3:769,125:770Q18XYOF(Q)0PO(XYOF(Q))1QT 0 T:I: :/CHIPS0:I18:L1:V0RVVOF(I):XYV70XYV04040gBO(XYV)54040BO(XYV)4TUXX1:LL1:4005XX1BO(XYV)TU1İ4100XX0:IW1:V0VVOF(I):TA(XYV)TU1WW1:WL4110 "CHIP 6:1X,Y; Q215Ē7:OF0:WCWC1:BO(T9I)3:3110h Q194Ē4:OF1:BCBC1:BO(T9I)2:3110! 768,1:769,160:770:3120& 1:2X11OF(T4)2,Y+ 768,3:769,125:770, Q1603120- E18. T9IOF(E)0PO(T9IOF(E))1/P HERE."7 "TYPE (B) FOR PLACING A BLACK CHIP HERE."d " HIT THE SPACEBAR TO MOVE THE CURSOR."v I07:T07 XT2638:YI202 16368,0 Q(16384) Q160Q194Q2153080 6:1X,Y:ZZ2:Z16Z1 Z:5:1X,Y 3030A$:A$"W"PL2:1300) A$"B"12801:7DI0159W6:36,I244,Ih2:0,I33,I|5:245,I279,II4I18 I2636,0I2636,15936,I20244,I20 IR (22):"TYPE (W) FOR PLACING A WHITE CHIA$:A$"T"ıA$"O"1160GCOM1:(19):13)"WHAT LEVEL (1-2)"U16368,0m(16384)1281210A$:LE(A$):LE1LE31230(21):9)"COMPUTER PLAYS (B)LACK"9)"COMPUTER PLAYS (W)HITE"16368,0(16384)1281260D"#89)"(D)IFFERENT GAME BOARD"1B16368,0IL(16384)1281090dVA$:A$"D"DE1:1140v`A$"N"1090jBO(30)2:BO(40)2:BO(31)3:BO(39)3t(16):14)"(O)NE PLAYER"~14)"(T)WO PLAYERS"16368,0(16384)1281170 SOR.")8)"PRESS SPACE TO MAKE MOVE."H:11)"TYPE (E) TO QUIT."l(10):11)"(W)HITE MOVE FIRST"11)"(B)LACK MOVE FIRST"16368,0(16384)1281030A$:A$"W"TU2:1070$A$"B"1030.(13):10)"(N)ORMAL GAME BOARPS1MQ18/QXYOF(Q)1PO(XYOF(Q))16RQITTU(TU2)11]^WC0BC07000phWCBC647000yr500|XY0XY7XY63XY70İ6800100I071:TA(I)0:::(2):(14)::"REFLECTION":(4):9)"(I-J-K-M) MOVES CUR(23):" FALSE MOVE, FORFEITURE OF TURN."D '768,50:769,10:770T (I1500:Ib )FL0340{ +768,3:769,125:770 ,6:2X2649OF(X4)2,Y202 6768,2:769,110:770:340 @TU1BCBCCHIPS1:WCWCCHIPS:333JBCBCCHIPS:WCWCCHI140 TU1OF1:240! OF0= Z:6:1X2639,Y202P 1:4(TU1)3^ FL0280w 768,2:769,110:770 2X2649OF(X4)2,Y202 768,3:769,125:770 XYY9X:PO(XY)0290 4000 CHIPS0İ5000:BO(XY)TU1:320+ "O(X19Y1)2OF1:190 OF0= Z:6:1X12639,Y1202 BO(X19Y1)0ę1:4(BO(X19Y1)2)3:2X12649OF(X14)2,Y1202 ZZ3:Z16Z1 XX1YY1Ĺ768,1:769,160:770 Z:5:1X2639,Y202 Q160140 BO(X9Y)0(16384):X1X:Y1Y:16368,02 Q201Y0YY1G Q205Y7YY1\ Q203X7XX1q Q202X0XX1 Q197186 (23):" ARE YOU SURE YOU WANT TO QUIT? ";:A$:A$"Y"7000 (22):" " B:) dFL1:TU1M$"BLACK'S TURN":120? nM$"WHITE'S TURN"p x21:15)M$:(23):10);BC;30);WC;" " }(22):" BLACK'S CHIPS WHITE'S CHIPS" PL1ALBC1:130 ALWC1 COM1TUPLİ6000:250 X4:Y4:Z1:16368,0 Q6*:BO(80),TA(71),A(71),PO(80),PT(71)S TU1:0:232,28:233,3:::FL1:PL1Y c9000m1000w2000(100002DE1İ3000:100<4:1:2154,82:2128,62F7:2127,82:2153,62PBC2:WC2:Y25:X25 ZA:PO(Y9X)A:       5`"LINE #"3)"POSITION"3)"LOCATION"3)"VARIABLEKjI140:"-";::Woꥫ60090_tA$y~LOC(125)(126)256NL(123)(124)256NLLNI1:LNNLNL10((LN)))I10((I)))LOC11((LOC)))A$II160020 40,133,8,165,41, 41,3,5,230,133,9,162,8J 160,0,177,26,36,50,48,2k 73,127,164,36,145,8,230,26 208,2,230,27,165,9,24,105 4,133,9,202,208,226,165,69 166,70,164,71,88,76,240,253 255,255,255,255,255,255,255,255UT ML ROUTINE.\I768856:A:CKCKA:I,A:ifCK8413ĺ"ERROR IN SECOND SET OF DATA STATEMENTS.":opz 216,120,133,69,134,70,132,71 166,7,10,10,176,4,16,62 48,4,16,1,232,232,10,134 27,24,101,6,133,26,144,2 230,27,165, 0,0,0,255,255,24,24,24:  24,24,24,248,248,24,24,24W 24,24,24,248,248,0,0,0w  24,24,24,255,255,24,24,24* 204,153,51,102,204,153,51,1024 51,153,204,102,51,153,204,102> 8,12,14,127,127,14,12,8H 255,0,0,0,0,0,0,0 R HRO255 0,0,0,0,0,0,255,2557 255,255,0,0,0,0,0,0S 255,255,255,0,0,0,0,0o 0,0,0,0,0,255,255,255 24,24,24,31,31,24,24,24 24,24,24,31,31,0,0,0 0,0,0,248,248,24,24,24 0,0,0,31,31,24,24,24 24,24,24,255,255,0,0,0A2D$B$NA3D$C$X/b SHAPE DATATlI3609636263:A:CSCSA:I,A:vCS11534ĺ"ERROR IN FIRST SET OF DATA STATEMENTS.": 128,128,128,128,128,128,128,128 0,0,0,0,255,255,255,255 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,11)"2 - BRUISE YOUR MIND?"::11)"3 - BLOW YOUR MIND?"G16302,0bA(16384):A12755016297,0:16304,0:16300,0:16299,0:16300,0:16303,0:I150:520&16368,0:AA176:A1A35200230,32:3086:A1D$A$ DK$"Y"T10:T20:T30:70"380D230,32:3086:230,64:3086^54,240:55,253:1002sP12:P:I18I,I279I,I279I,191II,191II,II:230,32:P11:26:" "911:11:"DO YOU WANT TO:"::11)"1 - BEND YOUR MIND?"::P(X)P(X)210 ^S hI2123:I:14:H$::24:14:(H$,1,14);:I15:(7);: r22:20:"PUZZLE SOLVED!":20:"PLAY AGAIN?" |26:"Y/N";:K$ K$"N"ĉ:: T$(T1)"."(T2):R$(R1)"."(R2) R$"0.0"(T$)(R$)R1T1:R2T2T2;:170 10AC:38:" "5 ACAC1:AC1AC1O 10AC:38:"3";:210f ACAC1:AC8AC8y 9AC:38:" " "260 ,P(AC)P(AC)1:P(AC)1P(AC)1 6330 @P(AC)P(AC)1:P(AC)56P(AC)56 J10AC:24:(D$,P(AC),12) TX18:PAS FAST":14)"AS YOU CAN!!!!";G KE(16384):J0:16368,0:JKE200| T3T31:T312T30:T2T21:T260T200:T1T11 J0J5J0 J240,320,300,170,270 1:22:"RECORD "R1":";:R210ĺ"0"; R2:1:24:"TIME "T1":";:T210ĺ"0"; 6,0:7,141:54,0:55,3:1002V N18:PP(N)((3)55)1:2:1N:(D$,PP(N),12): N18:P(N)((2)55)1:10N:24:(D$,P(N),12): 11:38:"3" AC1:21:14)"USE THE I, J, K AND M":14)"KEYS TO MATCH THE PATTERN":14)"IN THE RED BOX 2212221212222121211112121222121111112212212"T F::5:" ";:I435:(95);::m P:14)"MINDBUSTERS" Z" ";:I435:(95);:::11:15)"PLEASE WAIT...":440 d:5:1,395,395,751,751,3 n6:154,76250,76250,147154,147154,76 x  360969R10:R20:H$" "B620(A$"'%!&%4&&!'$!&%4&&!'!&%4&!$!$!%%&!$$$'!&%&!'&!'#%$%$&!&%4$&##'%$%!&$&"2B$"/0(.+(+(*.)0+-(-..*+-.0++0+(/*)++0/*+0(+).++0/.(*+(+(/)/00+)+/()+*(+", <C$"1122211221212121211111212     125,LB 126,HB 60 S 2068,2096,21241ENGLISH,SPANISH,FRENCHMINGLES,ESPANOL,FRANCESl(ANGLAIS,ESPAGNOL,FRANCAIS2ML(1),ML(2),ML(3)<FI13PA$(I)ZI3)A$(I):dn"WHICH ONE?";WsLOCML(W)xHB(LOC256)LBLOCHB256 Y:X,Y:D%X,Y:X0ı5N%864,Y:865,X:866:9540X% "$SONG",172,97,3,174,97,3,232,208,253,169,4,32,168,252,173,48,192,136,208,239,206,96,3,208,231,96b% 177,4,192,4,202,4,202,4,202,4,206,4,202,8,192,4,202,4,192,4,182,4,-1,0R2R10 X87R2R21:32005: X90R2R21:3200MD X65C2C21:3200_N X83C2C21t C20C2393010 R20R2473010 R1R2:C1C2 C1,R1 3010% SUBROUTINE TO PLAY SONGS&%0%QX$:QX$"$SONG"9520:%X866891: CC15:BC15CC02CC:C120:R124:C1,R1S *** GET NEW BRUSH POSITIONo X(16384):X1283010 XX128:16368,0 X27ĉ::1000 X323100 CCCC1:CC15CC0 CC C1,R1 3010 X96X123XX32& C2C1:23:"";X$$ (X$)1ĺ(7);:1200Z Y0:X1(X$):(X$,X,1)"0"(X$,X,1)"9"Y1:p Y1ĺ(7);:1200} BC(X$) BC99İ9500:: BC0BC15ĺ(7);:1200  *** DRAW BACKGROUND : 16302,0 BC X0470,39X: - Medium Blue") B" 7 - Light Blue"> L" 8 - Brown"T V" 9 - Orange"m `" 10 - Dark Grey" j" 11 - Pink" t" 12 - Light Green" ~" 13 - Yellow" " 14 - Aqua" " 15 - White" " 99 - ";::"QUIT": 3:16368,0 ^-  *** START A NEW SCREENe :::"Enter the BACKGROUND color you desire:"::z " 0 - Black" " 1 - Magenta" " 2 - Dark Blue" " 3 - Purple" $" 4 - Dark Green" ." 5 - Light Grey" 8" 6 brush across the canvas:"A :" ";::"W";::" = Move UP"f "" ";::"Z";::" = Move DOWN" ," ";::"A";::" = Move LEFT" 6" ";::"S";::" = Move RIGHT" @5:23::"PRESS ANY KEY TO START PAINTING" JX(16384):X128330 Tyour keyboard into an"- "artist's brush."f :"Press the ";::"SPACE";::" bar to change the" "color of your paint." :"Press the ";::"ESC";::" key to restart with a" "fresh canvas." :"Use the following keys to move your  d STARVING ARTIST / 17 SEP(n:Fx13:8:"S T A R V I N G"a15:11:"A R T I S T"10:23::"PRESS ANY KEY TO START":9500X(16384):X12815016368,0 :"This game turns your screen into a canvas and      " "TI$" ":TI$X$'X (TI$)403150Db (TI$)40TI$(TI$,40)Jl [v X1301605t 864,4:865,X:866: *** READ A QUESTION X$ X(X$) X1X36000  1:1: TI$;* 4 QUQU1> 3:1H "QUESTION NUMBis quiz exists on the disk:"* 11:1P "(1 to 10 Characters in length)"_ VL13:HL1j 11000 (X$)1(X$)10ĺ(7);:3030& FL$"QUIZ."X$:150000 :D$;"OPEN ";FL$: 216,0:D$;"READ ",FL$? 14000D TI$I 216,0N X$ 1100010:12"Enter correct answer:"=QU$X$LVL12:HL1W11000n:D$;"WRITE ";FL$w QT$ QU$ X$$ D$. 1300 *** TAKE AN EXISTING QUIZ QU0 CO0  9:1 "Enter the NAME under which th282080*16368,0%4X$(X128)/>9600OHY$"A"Y$"E"ĺ(7);:2080YR1:1p\:D$;"WRITE ";FL$~fQT$:QU$pX04z(34);QH$(X);(34):Y$:D$1300 *** BUILD COMPLETION5:1"Completion:"VL7:HL15:1"Multiple Choice:"*VL7:HL1511000@QU$X$HJ0WI10223cI:4:u(J65);".";{VLI:HL711000QH$(J)X$JJ1 24:1"Enter correct answer (A,B,C,D or E):"; X(16384):X1r ";::"F";::" for FALSE."9X(16384):X1281700G16368,0SXX128_X$(X)i9600Y$"T"Y$"F"ĺ(7);:1700:D$;"WRITE ";FL$QT$(34);QU$;(34)Y$D$1300l *** BUILD MULTIPLE CHOICEv$ 2603:1&QUQU1A"QUESTION NUMBER ";QUWX1600,1900,2200t@ *** BUILD T/F QUESTION~J5:1T"True or False:"^VL7:HL1h11000rQU$X$|13:4"Enter ";::"T";::" for TRUE."15:4"Enteoice"1P::" ";::"3";::" - Completion"`Z::" ";::"4";::" - QUIZ COMPLETE"|dX(16384):X1281380n16368,0xXX(12848)X1X4ĺ(7);:1380QT$(X48)X41460:D$;"WRITE ";FL$:QT$:D$;"CLOSE ";FL1(X$)40ĺ(7);:1120'9600:X$Y$>:D$;"WRITE ";FL$R(34);X$;(34)ZD$| *** DETERMINE QUESTION TYPE(4:12"ENTER QUESTION TYPE:"<::" ";::"1";::" - True/False"F::" ";::"2";::" - Multiple Ch)10ĺ(7);:1020, LFL$"QUIZ."X$:15000B V:D$;"OPEN ";FL$O `216,0:Y j9:1 t"Enter the TITLE of the quiz which will appear at the top of the screen:" ~11:1 "(1 to 40 Characters in length)" VL13:HL1 11000(X$) *** ALL DONE  9500% @  *** BUILD A NEW QUIZI QU0O Y 9:1 "Enter the NAME under which this quiz will be saved on the disk:" 11:1 $"(1 to 10 Characters in length)" .VL13:HL1 811000 B(X$)1(X$ ";::"1";::" - Build a new quiz"Z r:" ";::"2";::" - Take an existing quiz" |:" ";::"3";::" - Exit from this program" X(16384):X128390 16368,0 XX(12848):X1430 X1000,3000,500 (7); 390 , Completion and Multiple"F 6"Choice questions in any combination."z @:::"OPTION 2 of Build A Quiz allows you to" J"test yourself with a quiz that already" T"exists as a disk data file." ^:::"ENTER THE OPTION YOU DESIRE:"% h:" 4Y8:Y8,Y13X2:Y16,Y17X21 X1300:L X(16384):X127190Z 16368,0b : :"OPTION 1 of Build A Quiz allows you to" "construct your own quiz and save it as" ""a disk data file. The quiz can contain" ,"True/Falsed *** BUILD A QUIZ,nD$(4):QH$(4)6x::A9:22b"B U I L D A Q U I Z"l9500z11:24:"PRESS ANY KEY TO START";((1)10)6X((1)36)Y((1)23)Y,Y3X:X,X4Y:Y,Y8X4" X2,X                 z{ B 2LD` ``iRif`8z`R ᥠ ߢRzfzezeRfz `0 i 8  0R}zf}ff RSfg 2 BLD  70 6"DISK ERROR":2706 @18:1:I180:" ";::)((I)):II1:(I)1412203 (1425632)250V D$;"BLOAD";NA$;",A$8A00":260z D$;"BSAVE";NA$;",A$8A00,L$300" 320 CE3:200 320:18:1:EN(222) "EN6EN7ĺ"COULDN'T FIND "NA$:270 ,EN13ĺNA$" ISN'T A CHARACTER SET":27)d(978)157ĺ"DOS 3.3 NOT FOUND":/n;xD$(4)QD$;"BLOAD HROUT"sD$;"BLOAD NORMAL.SET,A$8D00"6,0:7,14154,0:55,3:1002D$;"BLOAD APPLEFONT2":CE4096280CENA$"":I14256(I)141260 NA$NA$  <Lʬ    <LG '(` L(')'Ni8.N   = =0L'0  6  &0L0  .  &0   '(` )LL"LLQ&%0Q&&`EFG`EFG`JJJL@JL@JJ)O$ `"3DUfw*;L]n        *U"w] L 0')'G8n  #  , $  ,.  ,  ,.`)? )`ºغĠ* +,),JJJm+` , # * $  -0= -*$,#`߿ @` $  `ԠŠԠԠĠŠŠؠɠίͯҠҠҠ [ $2 ,/  ,  ?2)$)`Ji [ 2 C      m m    L     ` [?2!#i8"$  2$#?2 #2!# $ ##  n  Lphɍ  nLp`Hh`' (5'm  m 8 (m  m !  V`     i i 8 8        m   m    * V =,- * m *, m ,LpH 1"LcLzLLLL hɍ8// V Lphɍ8.. 9 V Lphɍ800,S,R Lp ?hɍ0- , # * $ *$,#Lphɍ X 3p #% $m &#,$* V =-%,&* $& &#% m %ФLp 1 ?hɍh p #m % $&#,$* V =-%,&* $& m $#% %Lp 1 ?hɍC p , 5'm  m 8 (m  m !  Lp 1' (2'm  m8 (mm!hɍj p #% $ &#,$* V =-%,&* $& m $#% m #ХLp 1 ?hɍh #12N2i- *#2 /,1$ Lp8項&i` 1hɍLp 1hɍLp 2 [$ j`ҠŠƠҠԺH"LLL7LLfL 1h' ( ?hLp 1  *   9 V 10   ' ("( m'mɠi`08`` hɍ[ 8 , $1 * #2 -8$n2*#/n2 21,1$м nLp hɍS 8 , $1 *L '(LZ(LZ ('LZ'LZ'LZ '(LZ(LZ('!LuLLL7`H 1h' (G"i-*, m'67m( LpH"LLtLLULd 1 #  +*#` m , * #- +*#`/  8  ` X 3 ,R    n'( }I0H }h,ɠ!8i!" LɈ"!" Lɕ"8i"!""  +`  ` V` V =-`-m/ ,8 8 m.m*  ` ,# *$  +*$$ ,## `'P0( m * , #  +,#& m * , #- +,#(O0' m , *LSLmAP      `2# [#$ # 婍` V -0= -- * ,    *   ,         0),A(PT,0,1)D TT12!N TA26X T2A(PT,0,0)1Ub A(PT,TT,TA),A(PT,TT,TA1)al TATA2hv Tp TTx PT (4);"CLOSE";F$ 1050 FILE  :"NAME OF PICTURE FILE? ";F$ IN8 (4);"OPEN";F$:(4);"WRITE";F$ R$";F$  OU81 (4);"OPEN";F$:(4);"READ";F$H A(0,0,0),A(1,0,0)] PT2A(0,0,0)1f TA2 A(PT,0,0),A(PT,0,1) T1A(PT,0,0)1 A(PT,0,TA),A(PT,0,TA1) TATA2 T& PT0 PTA(0,0,0)2A(1,0,0)A(0,0,0)1 : A(PT,0,2 T" PT , P2A(1,0,0)36 PTPPP2PA1D@ POA(PT,0,0)PJ TT12YT TA2g^ T2PO1h A(PT,TT,TA)A(PT,TT,TA)TXr A(PT,TT,TA1)A(PT,TT,TA1)TY| TATA2 T TT PT 1050 READ :"NAME OF PICTURE FILE? "TRANSLATION:"% "RIGHT=+X LEFT=-X< "DOWN=+Y UP=-Y":R "X TRANS. ? ";TXh "Y TRANS. ? ";TY P1A(0,0,0):PAP12 PT2P11 POA(PT,0,0) TA2 T2PO1 A(PT,0,TA)A(PT,0,TA)TX A(PT,0,TA1)A(PT,0,TA1)TY TATA1)TY TATA2 T % U A(PT,0,0)A(PT1,0,0):A(PT,0,1)A(PT1,0,1)a( TT12j2 TA2< T2A(PT,0,0)1F A(PT,TT,TA)A(PT1,TT,TA)TXP A(PT,TT,TA1)A(PT1,TT,TA1)TYZ TATA2d Tn TTx   TRANS :+X LEFT=-X! "DOWN=+Y UP=-Y":4 "X TRANS.";TXG "Y TRANS.";TYe "IS PART 3D?(Y/N)":3700v Q$"Y"2590 A(PT,0,0)A(PT1,0,0):A(PT,0,1)A(PT1,0,1) TA2 T2A(PT,0,0)1 A(PT,0,TA)A(PT1,0,TA)TX A(PT,0,TA1)A(PT1,0,TA*X2A(PT,2,TA):Y2A(PT,2,TA1)*421606>TATA2>HFAFRPTP\2340gf VIEW 2ND COMPAREsp3500: VIEW GO MENU$ 37008 Q$(77)2340L V ` 1050j t COPY PART~ :"PART";PT1;"/TRANSLATION:"  "RIGHT=T2PO10X1A(PT,TT,TA):Y1A(PT,TT,TA1)jTPO1A(PT,0,1)1X2A(PT,TT,2):Y2A(PT,TT,3):2160{TPO12050X2A(PT,TT,TA2):Y2A(PT,TT,TA3)2160TATA2TTT TA2FA1PO X1A(PT,1,TA):Y1A(PT,1,TA1) COMPARE@&TPO1A(PT,0,1)1X2A(PT,0,2):Y2A(PT,0,3):2160Q0TPO11890u:X2A(PT,0,TA2):Y2A(PT,0,TA3)D2160NTATA2XTbPTl 3D READvP2A(1,0,0)P202340PTPAPPA1PAA(PT,0,0)TT12TA2 :"X,Y ? ";A(PT,TT,TA),A(PT,TT,TA1):TATA2:7 JTA2? TTTG ^PTQ h1050Z r:3c :3q  2D READ P1A(0,0,0):PAP12 P101900 PT2P11 POA(PT,0,0) TA2 T2PO1 X1A(PT,0,TA):Y1A(PT,0,TA1) VIEW 1ST"COPY LAST PART ? (Y/N)":3700/ Q$"N"15109 2430C 1630W "# OF POINTS?"q "ON EACH FACE ? ";PO A(PT,0,0)PO "CLOSED ? (Y/N) ":3700 Q$"Y"A(PT,0,1)1:1570 A(PT,0,1)2 "TA2 ,TT12 6"FACE ";TT. @T2PO1A(PT,0,1)2 PA(PT,0,0)PO& ZTA2` dT2PO1:"X,Y ? ";A(PT,0,TA),A(PT,0,TA1):TATA2:h nPTv x 3D MODE "# OF 3D PARTS ? ";P2 P20A(1,0,0)0:1040 Q$"":A(1,0,0)P2 PTPAP2PA1 :"PART";PT1 (PTPA)1510 1 PAP12:Q$"":A(0,0,0)P1. P101410= PT2P11Q :"PART ";PT1` PT21320 "COPY LAST PART? (Y/N) ":3700 Q$"N"1320 2430 1390 ("# OF POINTS ? ";PO 2"CLOSED ? (Y/N)":3700 <Q$"Y"A(PT,0,1)1:1360 FEND SESSION" t3700R ~GP(Q$"D")2(Q$"R")3(Q$"S")4(Q$"V")5(Q$"T")s GP1190,3000,3250,1670,2700 Q$"E"3740 1050  DEFINE   2D MODE "MAXIMUMS:":"20 PARTS":"12 PTS PER PART/FACE": "# OF 2D PARTS ? ";PA(20,2,26)Q$""& MENU,L$13)"DRAWING MASTER":::i.12)"D-DEFINE OBJECT":812)"R-READ OBJECT":B12)"S-SAVE OBJECT":L12)"V-VIEW OBJECT":V12)"T-TRANSLATE OBJECT":`12)"M-MAIN MENU": j12)"E-           ((1)2665)) A$A$B$" J0 AA$(I)A$7 IX "HIT ANY KEY TO START SORT"k A$:A$""190 "SORTING..."(7) 37888,N,AA$(1) "DONE"(7) "HIT ANY KEY TO PRINT SORTED STRINGS" A$:A$""240 I1N:I,AA$(I):. 38400::8:"APPLE LIGHTNING SORT DEMO"P10:"LOADING LIGHTNING.SORT"p(4)"BLOAD LIGHTNING.SORT"{(368642N1000<AA$(N)F:"CREATING "N" RANDOM STRINGS"PI1NZ2:IdN1((1)101)nA$""xJ1N1 B$(!!0DE10DE:UL10UL:LL10LL:PTPT1:2010_DE100DEDE10:ULUL10:LLLL10:PTPT1:2020SP1.25:I14:SP2SP:SDESP:(S)SS(S1)S4S5S6I4 ZESP(LLSP):SFAZ(ULZE) ZT1T1X(I):T2T2X(I)X(I)=T3T3Y(I):T4T4Y(I)Y(I)QT5T5X(I)Y(I)Ww$B(T5T1T3N)(T2T1T1N).AT3NBT1N8X(N1)XL:X(N2)XUBY(N1)ABXL:Y(N2)ABXULNN2V SEARCH FOR BEST SCALEPT0*DE1I):1} PLOT LINEAR REGRESSION LINE FOR Y ON XNX(N1),Y(N1)X(N),Y(N)X(23)t"X-SCALE = 10^"PX;3);"Y-SCALE = 10^"PY DETN END POINTS OF LINEAR REGRESSION LINE AND ADD TO X,Y ARRAYST10:T20:T30:T40:T50I1N1))32X,YP(I)3:XX7::V?Y(YMBY2):I1S11:L(X$(I)):XXP(I)3.5(L1)DJ1L:((X$(I),J,1))32X,Y:XX7I:NCH0635XI1N2bX(I)2,Y(I)X(I)2,Y(I)lX(I),Y(I)2X(I),Y(I)2v:640{I1N2:CHX(I),Y(R ? ";CH :::;  DRAW AND LABEL AXES; PLOT POINTSA H 1O 5\ XXYMBYu BX,0BX,XXAXBX,XX I1S21:BX,YP(I)BX5,YP(I): 3 &I1S11:XP(I),XX5XP(I),XX: 0I1S21:L(Y$(I)):X225JL11:((Y$(I),J,YSP:YSSF1 TI17:PL(ISYYS.5):PLAY360> ^YP(I)PLD hq rI1N:Y(I)((Y(I)(10PY)ZY)YS.5): |I1S21:YP(I)YMBYYP(I):Y$(I)(ZYSYI):(Y$(I))4Y$(I)(Y$(I),4)  I1N:Y(I)YMBYY(I): ::"WHAT NUMBER FOR CHAP(I)PLBX:X$(I)(ZXSXI):(X$(I))4X$(I)(X(I),4)= K SCALE X{ I1N:X(I)BX((X(I)(10PX)ZX)XS.5): , FIND SCALE FACTOR AND POSITIONS TO LABEL Y-AXIS 6ULYU:LLYL:DEDY:AZAY @2000:S2S JYUUL:YLLL:DYDE:PYPT:ZYZE:S(I)YUYUY(I) 0 DX(XUXL):DY(YUYL)E :"CALCULATING"z FIND SCALE FACTOR AND POSITONS TO LABEL X-AXIS ULXU:LLXL:DEDX:AZAX 2000:S1S XUUL:XLLL:DXDE:PXPT:ZXZE:SXSP:XSSF I17:PL(ISXXS.5):PLAX2507 X ";Q$:Q$"Y"50A /I1N:X(I)100(I)(I):Y(I)10(I)::70Y 2I1N:X(I),Y(I):x < FIND XMAX,XMIN,YMAX,YMIN FXUX(1):XLX(1):YUY(1):YLY(1) PI2N ZX(I)XLXLX(I) dX(I)XUXUX(I) i:1000:I2N nY(I)YLYLY(I) xY $ SCALER ROUTINE FOR APPLEPLOT0D$(4)_X(100),Y(100),XP(10),YP(10),X$(10),Y$(10)(233)64(16384)63ĺD$;"BLOAD CHARSET":232,0:233,64AX240:BX31:AY145:BY12:YM159# INPUT DATA("# OF POINTS ? ";N -"RND POINTS ?!! ! ! ! ! !!!! D$(4): CTRL-D6D$"BLOADFUNCTION KEYS 1.2"YOUTVEC94096132564: $9D04s(OUTVEC,0:OUTVEC1,32:"FUNCTION KEYS ENABLED." " 66.- $r--666??L!$4*3------;?$6)-2>? $J2666@-56XX 4)66> I166?0666@XXXX666--666D!d566XXXX666X@5&X $)66? $4-?'26)6? $-?'2f )? X ---66XXXX066v- $$6v&d$66v  $$6v  &&H0v  66--.-5--;)66? $l 666oX0)?6--XXXX0-->r- I666X8' --6? X - -2? $ ---6)?  -)6?XX -IXX0--??)7XXXX0)6?? $J2 66X8?$ 6-?'$$-)? $4-66?'$$--;?$6@$?-8FTbjw %-6GN`oz  661n$166n$$$ 0 6668X` 5o M57?  VM0 6 6 6r-26` 66X8M5 --RI"" " "