JJJJ m X  m   '       ,0,b   LϠ ӠӧÍҠҠàèĠР ԠˠԠ˺…$%L" ` @D$(4)@ :6:7@@"COMPUTE!'S SECOND BOOK OF APPLE"K@2:10y@"(C) COPYRIGHT 1985 ALL RIGHTS RESERVED"@I12000:@ZD$;"RUN ALERT"?(APPLEMLXHOOK .SEARCHER LIGHTNING.SORTRLIGHTNING.TESTUNIVERSAL.INPUTRANDOM1RANDOM2PROOFREADER(FRACTAL2(FRACTAL3&APLIST%ALIST/VARIABLE.LISTER SOFTSEARCHERz)APPLEFONT4@*APPLEFONT2 .DRAWING.MASTER 'PLOTTER 'CHARSET$@)RAM.MOVER7 (FRACTAL1p,MISSILE.MATH jREFLECTION.LDR2*REFLECTION6+MINDBUSTERS /STARVING.ARTIST,BUILD.A.QUIZ)ADVENTURE@ 'WEBSTER.JUNF +HEAT.SEEKERO w+PARATROOPERZ 'BOWLINGa %CHESSj*DODGER.KEY{HROUTX,HOME.FINANCE"QUICK.BUT.DUMB+.SOFTBALL.STATS- [SCREEN.DUMP8*FAST.FILER:SECAPPPD' /STARTUP@$MENU :%AASET%ALERTeUPCASE5*NORMAL.SET >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(8R40196,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$(36),B$(36)TP4:PG0 4000 ::51,1:62454Y61:22:J0 "COMPUTE!'S ";::"SEC>222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0 !!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < 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.LDR,RUN MINDBUST,DRAWING MASTER,SCALING PLOTTER,RAM DISK MOVERT  FRACTAL 1,FRACTAL 2,FRACTAL 3  APPPLESOFT LISTER,VARIABLE LISTER,SOFTSEARCHER  RANDOM 1,RANDOM 2  LIGHTNING SORT,UNIVERSAL INPUT,PROOFREADER,APPLEMLX p::"LOADING......"::A$(T)::NANCIAL 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 ARTIST0  BUILD A QUIZ,APPLE SUPERFONTPGTPPG0:DE0$ cR$(32)10F d(R$)49(R$)57Ė6:17:90h fJDE34ĭ(R$)55Ė6:17:90t iD$(4) nPN(R$)48 sPNPNDE xTPN:6000 D$;"PR#0" D$;B$(PN)  T133:A$(T): T133:B$(T): S  HOME FI OND BOOK OF APPLE":0 "(C) COPYRIGHT 1985"x "PAGE ";PG1;" OF ";TP;" PRESS ";::"";::" FOR NEXT PAGE" X2182 (JJ1 -JDE34X18:70 2Y:X <J;" ";A$(JDE) FX ZR$:R$""90 _R$(32)PGPG1:DEPG9 a * FOR II'2 AND PLUSESB(64435)6ĺ(4);"BRUN UPCASE"N D$(4)bD$;"BRUN HOOK"hr3:4("Before attempting to RUN any programs"23793<"please refer to the instructions in"AF3M3! P"COMPUTE!sxEFG >0 e()) $20I$ i EFGXL <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "ȱ`ȱa{iKEY TO CONTINUE" 3::* X13000> (49152)128ĂK 49168,0Q d D$;"RUN MENU" ";::"SECOND BOOK OF APPLE":' UT _:3:"(Set computer to 40-column mode)"^ d::e n3 x"After running any program, type:" } 3:"&" 3:"RUN MENU": 3 "to return to the Table of Contents." 3:23 "PRESS ANY 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:RV(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  !"#$%&'()*" "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"(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 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"$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 25800,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))100"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,234%: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 &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 (%)"'CI 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 4WSWB(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) ((,./01234567J)(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 hWWZD$(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$( 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" @> 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 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 MM1 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 THE D1)"0"Q1=(R$(IN(J)),BBK,1)"0"Q0K3ĺ"0":5080j(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)1|:DE0ĺD$;"PR#0";1700L:DE15020eD$;"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);66K:" ";:5120:I:" "(R$(IN(J)),43,5)O@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"4160w(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$":":MM14070HTM$" VS "OT$" SCORE:"YS"-"TS:4080w"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?"p0 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(NA$(J),1,(NA$(J)))(" ",1,10(NA$(J)))R$(J)J 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)6& 10:"HINT: LAYERX,13 PLAYERX,14 PLAYERX,15 PLAYERXf4 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,10 PLAYERX)* 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")S (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 STATJ 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)01530ATA (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():A12851506 A(16384):A128Ĺ16368,0:5130TA$(A128):A$"P"5130ZdD$(4):I$(9)#iD$"PR#1"1nI$"80N";QsG02:L18:20):P039kxC(896G40L128P)~(C);::::D$"PR#0"d4d *FILL-IN-THE-BLANK ADVENTURE BY DALE KROKE*<iL1vnI1L: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:S0180 X$"E"LLE:E0180ND,0,0,0,0,0E6 GAZETTE,BRANNON C,HORIZONS,1/85,80,VIC TO 64r GAZETTE,RANDALL N,ROAD TO MOSCOW,12/84,80,GAME REVIEW COMPUTE!,WATSON D,APPLE SCREEN DUMP,10/84,169,TEXT SCREEN COMPUTE!,KEES M,SUPERBASIC 64,10/83,198,ADDS 35 COMMANDS TO BASIC E)" "A$(3)" "A$(4)" P. "A$(5)" "A$(6):IA(16384):A128ıdA(16384):A128520A$(A128):16368,0:A$"P"520 DATA TEMPLATE: MAGAZINE,AUTHOR,SUBJECT,DATE,PAGE,COMMENTS COMPUTE!,SCHULTZ N,MINDBUSTERS,4/85,44,GAM Q1:500 F0390/ DE0ĺD$;"PR#0"W Q0ĺ:G$;::"NO MATCHES FOUND": :G$;::"PRESS ANY KEY"::16368,0 A(16384):A128460 16368,0:70 A$(1),A$(2),A$(3),A$(4),A$(5),A$(6):A$(1)"END"F1 0A$(1)" "A$(2F0230 ,4309 6:F0::DE0ĺD$;"PR#1":I$;"80N"K @480:F1340] J500:F0320r TDE0ĺD$;"PR#0"{ ^450 h r:"TYPE "LABEL$(C):INP$:L(INP$) |:Q0:F0::DE0ĺD$;"PR#1":I$;"80N" 480:F1430 (A$(C),L)INP$420 "LABEL$(N1):I1$:L(I1$)D :"TYPE "LABEL$(N2):I2$:L2(I2$)o :Q0:F0::DE0ĺD$;"PR#1":I$;"80N" 480:F1430 K6270 (A$(N1),L)I1$(A$(N2),L2)I2$290 280 (A$(N1),L)I1$(A$(N2),L2)I2$290 Q1:500 "0 nK$(A128):16368,0:(K$)1(K$)8100_ xK(K$):K130,140,150,160,170,170,310,360l C1:370y C2:370 C3:370 C4:370 H$"OR":K5H$"AND" :G$"# "H$" # (1-4):":G$;:N1,N2 (N11N14)(N21N24)180 :"TYPE9;<=>"THE TARGET SUBJECT:":LABEL$(4)"DATE (IE., 1/14/85 OR 1/85):"u F:6:G$"CHOOSE ONE (1-8):"::G$" 1. MAGAZINE" PG$" 2. AUTHOR":G$" 3. SUBJECT":G$" 4. DATE" ZG$" 5. AND":G$" 6. OR":G$" 7. PRINT ALL":G$" 8. QUIT" dA(16384):A128100. D$(4):I$(9):A$(6):G$" "`:10:4:"PRINT TO SCREEN OR PRINTER (S/P)?"zA(16384):A12830(K$(A128):16368,0:K$"P"K$"S"302DE(K$"S"):LABEL$(1)"MAGAZINE TITLE:":LABEL$(2)"AUTHOR'S LAST NAME:"A <LABEL$(3) X$"W"LLW:W01808 X$"U"LLU:U0180S X$"D"LLD:D0180j (A$,3)"GET"185 (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 YOU?ABCD# |, m1, 0(0+ `( 08x0,/( m0( `ЍLȌ I(G oɠJJ))i),ȱȱȱx$i.8.i.ܠ EGHIJKLMm 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! ( .  ., THE WAY IS CLEAR TO THE NORTH AND EAST.FYX,-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,0LEAR TO THE SOUTH AND EAST.6EX,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,0-T YOU ARE IN THE SOUTH-WEST CORNERHERABLE RUNE ON THE EAST WALL. IT LOOKS LIKE IT WAS WRITTEN IN BLOOD.v6 TO THE SOUTH AND WEST THE WAY IS OPEN.;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 CTTOM.""DEATH,0,0,0,0,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,0H1 YOU ARE IN A CORNER WITH WALLS NORTH AND EAST. THERE IS AN INDECIP0,-1,4,5,0,0,0,0  YOU 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 PIRANA FISH AWAITS YOU AT THE BOAY IS CLEAR IN ALL FOUR DIRECTIONS.f YOU CAN BARELY SEE A WALL ENCLOSING THE PLAIN ALL AROUND.} 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,I$::"PRESS ANY KEY TO RETURN."6 Z$:Z$""225? 115 :S1$;S2$::"SO YOU WERE KILLED. TOO BAD. TRY AGAIN.": *DATA FOR MINI-ADVENTURE* *TO BE USED WITH LOOP IN LISTING ONE*% YOU ARE IN A FLAT PLAIN LOOKING NORTH. THE WRS TO TAKE!":120W X(T$):Z1(I$):(I$,Z,X)T$ĺ"YOU ALREADY HAVE THAT!":120^ Z| I$I$" ":I$I$T$:115 V0ė:"YOU CAN'T USE THAT HERE!":Z1400::115 LLV:175 Y0ė:"WHY BOTHER?":Z1350::115 LLY:175# :詇 ɴ Lt`' ,108, i, `! x( , m1, 0+(',10,m, ' 0(0&  LXɩ | 8ɰ6  x ,,L  (``! < 8' 1i' 0) ! i2  ! i  iж`) (  ( ĩ |' i" ( ! `# 8m##`i ʈ謊`,,,`       `     xL   x) `'()NPQRSTUVWXH I 1MLN3HO 1IT T  1L ɼ1LT j, ɭQ퍁mD+4T j  LiЯ LSM  _ 2L,P,W,R,T@A C @B HV[1k 1<`= ( u$HHT    BCCB@*T  S  ޏ  GGGGGG `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|ap`~~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`'88m8(LI`) 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,QLL 3*N# @DE j jCl h ; BCCB@*T 1ʈMʈiΊΉL1  `  <= ` BCCB@*T @A` V` ȩ)iȌ) eeȱȮ*0 в eL `Ѐ  " """* ***" "" ** ** ՀՀĐՀĔĪՀёёЪՀЪА* ( *UՀ*ULA1 `o0mmL08`LGLS E NNS >EE>E 8)>E֠ FȌFЪ` > FȌF`FC $D`iI`i `* ****"FGmEGF8MG8&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`΃``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) ii` iɌB P*ȩUxi)$ [B歙7,4 $4,7 `$T  <`=J@MkC G`<=ȱ q 0Ά`1 `iɌ錝Юીޠ܀ЀЏ 聐оОЎЏЫԋЋހՏԏЀЀԀԃтɂȀՂՂʄҀȀȀҀʄՂՂȀɂт133,9,162,8,160,01177,26,36,50,48,2,73,127P164,36,145,8,230,26,208,2o230,27,165,9,24,105,4,1339,202,208,226,165,69,166,70164,71,76,240,253 0,0,0,0,0,0,0,156:V190,255,227,227,156,156,136,255X` 0,0,0,0,190,255,227,227~j 216,133,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,,196,145/136,162,136,162,136,162,136,162J0,0,0,252,255,255,0,0m0,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 L2:"SELECT DIFFICULTY: (1) EASY, (2) HARD";A(KB)128750d49168,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,145OPER MISSED THE TARGET";AI11200::1:868:16:PX:" ";YSCSC10:SC0SC0mTRTR1:TR0ı22:24:SC;:35:TR;24:2:"GAME OVER- PRESS ANY KEY TO PLAY AGAIN";(KB)12871049168,0:24:1:868SC0:TR10.24:;:PX:P2$;W N24:2:"CONGRATULATIONS! MISSION ACCOMPLISHED";:I11200::1:868s XI1415:I:PX:" ";:~ bPY0: lAL:AH:SK$; vI1516:I:PX:" ";: 16:PX:S1$;:I1200::16:PX:" ";16:PX:S2$;:24:2:"SPLASH! PARATROY16İ620:310 410% PX6ı= PX7SCSC75:550J PX20ıc PX22SCSC50:550p PX35ı PX38SCSC25:550  &I1415:I:PX:TR$(I14);: 0AL:AH:SK$; :I1200::14:PX:" ";:PX:P1$; DI1200::PX:" ":SC;:35:TR; r49168,0I |110:I1DF::(KB)128Ĺ49168,0:400R 380f PYAL1:PXAH1 110:IPYPY1:I:PX:TR$(IPY);: I180: IPYPY1:I:PX:" ";: PXPXPD:PX41PXPX40 PYPYPG:PY14İ480:PY0310 P21:2:" WIND ";:12:" WEIGHT ";:22:" SCORE ";:32:"TROOPERS";P ,730 6AL(1)71:AH39:WD(110(1)):WG(75175(1)) @PDWD15:PGWG250 J22:4:" ";:13:" "; T23:" ";:34:" "; ^22:5:WD;::14:WG; h24Y[\]^_I768I85:A:XXA:I,A::X23417ĺ"ERROR IN DATA STATEMENTS.":U 6,0:7,141j (4)"PR# A$300"r : I1720:I:1:J1394:WA$; : I1617:I :6:" ";:20:" ";:35:" ";: I2123:1:I:J039:" ";::G ": 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 ԀՊݫݫݫ߻߫ݫՊՂd36096:770n830:970)x1160^:230,32:62450::6,0:7,141:(4);"PR# A$300"h1230z -MAIN LOOP-Q110:Z90A1R110:2(Z91)1:1:" ";:F130:F:1:"$":F130:F:RB10:360J110B11:390 Q10Ĵ:12:"BOWLING CHAMP!":I14:NA$(I)"":]16368,0:10:7:"HOW MANY BOWLERS (1-4): ";u(16384)1281180A(16384)128:A49A521160(A):AA48:16368,0:I1A:14I:6:"BOWLER #"I"'S NAME: "; A$:NA$(I)(A$,8)::I0A1:T(8,0&8 160,16,24,20,18,62,16,16,0FB 168,62,2,30,32,32,34,28,0eL 176,56,4,2,30,34,34,28,0V 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,28a 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,2,105,4,133. 9,202,208,226,165,69,166,70F 164,71,76,240,253Ll 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,04,70,132,71,166,70R 10,10,176,4,16,62,48,4P\ 16,1,232,232,10,134,27,24pf 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,24ROR 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:I768853:A:XXA:I,A::X7950ĺ"ERROR IN DATA STATEMENTS FOR ML AT 768.":H 216,133,69,13: -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ĺ"ERV: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:X110: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:ALLS, "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- hI1`bcdefghS210,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 MORE BI)0::! DRAW GAME SCREENM1:10:"1 2 3 4 5 6 7 8 9 10"b3:63,11279,11~I1A:2I1:3:"# "IJ12363:7(J1)3,I287(J1)3,I288:63,2I811279,2I811:+I1A2:20(A3)I:1:" #"I" "NA$(I)":";:NA$(I1)""Ė23:" #"I1" "NA$(I1)":"2 IR0,75279,75:0,155279,155I0A1:S(I)1::: INITIALIZE SCORE STATE4,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:I 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)28220iklmnopqrstuvwxyI: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):85,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,169,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,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,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,12727,64,1,115,127,64,1,79,127,64,1,79,127,64Y0,63,126,0,0,48,6,0,0,63,126,0,0,48,6,07,127,127,112,31,124,31,124,24,0,0,12,0,0,0,00,0,0,0,0,0,0,0,3,103,115,96,3,103,115,963,127,127,96,0,96,3,0,0,127,127,0,0,127,127,0 0,127,127,0,0,)d0,0,0,0,0,0,0,0,0,0,1,64,0,0,7,64_n0,0,127,64,0,15,127,112,0,63,126,48,0,63,127,112x1,127,127,112,1,127,127,124,7,127,103,124,7,127,96,487,127,120,0,7,127,126,0,7,127,127,64,0,0,0,00,0,0,0,0,0,0,0,0,60,30,0,0,60,30,0,1,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,170C89,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,89,16,17,56,233I$20,168,185,136,63,208,8,169,236,157,116,63,32,21,61$189,108,63,56,233,9,168,169,0,217,136,63,16,8,169$247,157,116,63,32,21,61,189,108,63,56,233,11,168,169$0,217,136,63,16,8,169,245,157,116,63,32,21,61,96'%169,0,157,84Ո🀘ƙƍƇՊݫݫݫ߻߫ݫՊՂ vȱvȮv*0 ΃v΅vдΆv eLv` ЪԪՊЪЪ̙̙̙̙ ՁՃՆ֪ՆՃՁ࿀ Ո@uuLfvuiȱȱtȱtȌu u UuI1eƝuL v,BPA`@`Lvv``@wvȱvȮv΃veveheƝҩ,BP ,BPAA@@ ȥȭtȭt`)?{u B%$iPPi(mt`        ȱ8'tŞ`h8`Lu u,BP ,BPAӡŠҍҠˠӠҠŠӠӠΠϠԬٍҠ٠Ϡ٠٠Lt PP U pttt͋tt8.tNti*tJ.tt t*tttt iȱ u UuHQ Lupp`C)@TP`QT% " $t s$t s Wr $t" s pi pݚssȰHi h積 $t1 s$tG s` dss `Š͠ӺՠŠΠĠύŠˠƠ 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 sppz|}~ppp pp}q`CBBC) T`pwqtqtq,Tt`t tp`t`tptpt t`!0;H 8*8`q p#Ȍ ppJmpppJmppNp p r8`PRB qT qU` qU qT` L@L,t uLp!.@@A:7D7 v B@CWp p pppp@A q p jp p q q u 2q ]qLq JJJJJJp p r p`p`ppwqp`p`ppwqp`8q}q pq`p pq` p` r p! p 8m p 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, :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" 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,32!,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,113!0,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,14196,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,241X19(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,86,21) 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$" "zI ";: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 810H(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:" )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:C 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)4220 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::" BE SUBTRACTION & DIVISION"+ xG03 18d :"SLOW " :"FAST " G0Ģ19:9 G1Ģ21:9 G2Ģ19:29 G3Ģ21:29 "*" 16368,0 (16384)1282 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,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,216384):X1X:Y1Y:16368,02 Q201Y0YY1G Q205Y7YY1\ Q203X7XX1q Q202X0XX1 Q197186 (23):" ARE YOU SURE YOU WANT TO QUIT? ";:A$:A$"Y"7000 (22):" " BO() 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 Q(*: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:: 104,64:16384,00(4)"RUN REFLECTION"a2(b 168,252,173,48,192,232,208,253Ll 136,208,240,206,15,96,208,233iv 96,255,0,0,255,255,0,00,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,80,3185,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,1014,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 3,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 5,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,201,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)0140 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+ "(22):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((1)HI0Ă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::6203CHIPSW1: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 "CHIPS 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/ 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 CHIP $: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)1281260#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 AR.")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 BOARD"1MQ18/QXYOF(Q)1PO(XYOF(Q))16RQITTU(TU2)11]^WC0BC07000phWCBC647000yr500|XY0XY7XY63XY70İ6800100I071:TA(I)0:::(2):(14)::"REFLECTION":(4):9)"(I-J-K-M) MOVES CURSO3):" 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:WCWCCHIPSI1379: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:BL4: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,140I2T2;: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:PP( 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:(4);"PR# A$300"V 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 AS12221212222121211112121222121111112212212"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$"1122211221212121211111212221,0,0,1,1,0,0,1,1,1,1,1U*UU*U*ժժŪժѪժ,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,1,1ı $'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,21,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:A7150 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,5,0BCIĒ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$"Y"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:R2T2K$"Y"T10:T20:T30:70"380D230,32:3086:230,64:3086U(4);"PR#0"jP12:P:I18I,I279I,I279I,191II,191II,II:230,32:P11:26:" "011:11:"DO YOU WANT TO:"::11)"1 - BEND YOUR MIND?"::11)"2 - B 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:216368,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 Tur 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 yo5,41# 41,3,5,230,133,9,162,8A 160,0,177,26,36,50,48,2b 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,255NE%\I768856:A:CKCKA:I,A:`fCK8413ĺ"ERROR IN SECOND SET OF DATA STATEMENTS.":fpz 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,40,133,8,1655,255,24,24,241  24,24,24,248,248,24,24,24N 24,24,24,248,248,0,0,0n  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,0R HROUT ML ROUTI,0,0,0,0,0,255,255. 255,255,0,0,0,0,0,0J 255,255,255,0,0,0,0,0f 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,0 0,0,0,2NA3D$C$X&b SHAPE DATAKlI3609636263: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,255 0RUISE YOUR MIND?"::11)"3 - BLOW YOUR MIND?">16302,0YA(16384):A12755016297,0:16304,0:16300,0:16299,0:16300,0:16303,0:I150:520&16368,0:AA176:A1A35200230,32:3086:A1D$A$DA2D$B$3:"";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: 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:R2 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"Enter ce"1P::" ";::"3";::" - Completion"`Z::" ";::"4";::" - QUIZ COMPLETE"|dX(16384):X1281380n16368,0xXX(12848)X1X4ĺ(7);:1380QT$(X48)X41460:D$;"WRITE ";FL$:QT$:D$;"CLOSE ";FL$(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 Choi10ĺ(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$)1 *** 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:" Y8: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/False, d *** 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,X4X,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,0R10 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:Y:";::"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 CHOICEv5: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):X128 +(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$;"DELETX1(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) \+11020X,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$"" %0)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:Y: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((CO10,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:1:ETION5:1$"Completion:".7:16X$?X$;J10:1g"Enter correct answer:"vVL12:HL1110009600QT$Y$X$"9600,QT$Y$500065500 *** CORRECT ANSWERCOCO1X1601755864:" ";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 COMPL16368,08X$(X128)&B9600HLY$"T"Y$"F"ĺ(7);:3620PVX$``X$Y$5000jj5500t *** PRESENT MULTIPLE CHOICE~5:1"Multiple Choice:"7:1X$X$;J0I10223I:4:(J65);".";  ";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 . "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 NUMBER 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 this2080*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:HL1 E ";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:(7);:":4:16":"Specified File Name is invalid."B":6:5:c":"PRESS ANY KEY TO CONTINUE"":X(16384):X12815080":16368,0":";260 ?hLp 1  *   9 V 10   ' ("( m'mɠi`08`` hɍ[ 8 , $1 * #2 -8$n2*#/n2 21,1$м nLp hɍS 8 , $1 *  '(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"!"" L`  ` V` V =-`-m/ ,8 8 m.m*  ` ,# *$  +*$$ ,## `'P0( m * , #  +,#& m * , #- +,#(O0' m , * LSLmAP      `2# [#$ # 婍` V -0= -- * ,    *   ,    +6"DISK ERROR":2703B@18:1:I180:" ";::I)):II1:(I)1412200A(1425632)250SAD$;"BLOAD";NA$;",A$8A00":260wAD$;"BSAVE";NA$;",A$8A00,L$300"A320ACE3:200A320:18:1:EN(222)A"EN6EN7ĺ"COULDN'T FIND "NA$:270A,EN13ĺNA$" ISN'T A CHARACTER SET":270B(@d(978)190ĺ"PRODOS NOT FOUND":.@n:@xD$(4)P@D$;"BLOAD HROUT"r@D$;"BLOAD NORMAL.SET,A$8D00"@6,0:7,141@D$;"PR# A$300"@D$;"BLOAD APPLEFONT2":CE4096@280@CE@NA$"":I14256@(I)141260ANA$NA$((#12N2i- *#2 /,1$ Lp8項&i` 1hɍLp 1hɍLp 2 [$ j`ҠŠƠҠԺH"LLL7LLfL 1h' (5'm  m 8 (m  m !  Lp 1' (2'm  m8 (mm!hɍj p #% $ &#,$* V =-%,&* $& m $#% m #ХLp 1 ?hɍh p  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 FAD 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 ? ";P1A(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-ENL L - <-  6GF(,PP(&-&&)?_' N i8.  N - <-  . '(` Π٠čʬ    <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  # <L , $  ,.  ,  ,.`)? )`ºغĠ* +,),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 3 #% $m &#,$* V =-%,&* $& &#% m %ФLp 1 ?hɍh p #m % $&#,$* V =-%,&* $& m $#% %Lp 1 ?hɍC p , *(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 "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. @T2PO1:$ 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 ? "A(PT,TT,TA1)f TATA2"p T*z TT2 PTG (4);"CLOSE";F$Q 1050` PLOT SUB X1279X10X20X2279ı Y1190Y10Y20Y2190ı X1,Y1X2,Y2:j Q$t(16384)1273700~Q$ END SESSION: A(0,0,0):A(1,0,0)- PT2A(0,0,0)16 TA0K T0A(PT,0,0)1i A(PT,0,TA):A(PT,0,TA1)u 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,TT,TA):(PT,0,1)D TT12N TA24X T2A(PT,0,0)1Sb A(PT,TT,TA),A(PT,TT,TA1)_l TATA2fv Tn TTv PT (4);"CLOSE";F$ 1050 FILE  :"NAME OF PICTURE FILE";F$ IN8 (4);"OPEN";F$:(4);"WRITE";F$ R$","  OU8/ (4);"OPEN";F$:(4);"READ";F$F A(0,0,0),A(1,0,0)[ PT2A(0,0,0)1d 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,0),A 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";F$RANSLATION:"% "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 TATA2)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 :"T 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,TA1X2A(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=+XT2PO10X1A(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) *OMPARE@&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 C;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(I--;?$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.-)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 --RIDE10DE:UL10UL:LL10LL:PTPT1:2010_DE100DEDE10:ULUL10:LLLL10:PTPT1:2020SP1.25:I14:SP2SP:SDESP:(S)SS(S1)S4S5S6I4 ZESP(LLSP):SFAZ(ULZE) T1T1X(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*DE10: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:T50I1N)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(I)? ";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,1)SP: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 CHAR 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:SY)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 XP( $r--666??L!$4*3--3d MOVE /.../PROGRAMS TO /RAM/PROGRAMS (MOVER)9nRxPF$"/RAM/PROGRAMS/"hP1$"STARTUP.RAM"RB118:/RAM BLOCKS AVAILABLEMP50: MAX PROGRAMSPN$(MP):D$(4):D$;"PR#3"330: TITLE400: OPEN DIRECTORY 650:CRE 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Ā ("-";PF$;P1$ "PRINT:PRINT"0D$;"CLOSE"6(10:1:"Building EXEC copy program ..."@FL$"TEMP.EXEC"TD$;"OPEN ";FL$iD$;"CLOSE ";FL$D$;"DELETE ";FL$D$;"OPEN ";FL$D$;"WRITE ";FL$I1NP"LOAD ";VL$;"PROGRAMS/";PN$(I)"SAVE ";PF$;PN$(I)  SU1ĺ,6))BCRB1150)$T$(L4$,2,15)8.K1511Q8(T$,K,1)" "1100WBkLPN$(NP)(T$,K)VPN$(NP)P1$SU1`10:1:79);(13)j10:1:"Copying ";PN$(NP);" ..."tK1500:~BUILD EXEC FILE10:1:79);(13), TITLE LINE#L3$: BLANK LINE9L4$: FILE ENTRYIL4$""970d1000: SAVE PGM NAMESm930}D$;"CLOSE"1160: BUILD EXEC FILE SAVE PGM NAMES(L4$,18,3)"BAS"1150NPNP1NPMP1150BCBC((L4$,23D$;"DELETE ";PF$;PN$(I)  )*210K4216,0:DIRECTORY NOT PRESENTb>3288: FIX STACKxHD$;"CREATE ";PF$R210\ MOVE PROGRAMSfNP0: NUMBER OF PROGRAMSpBC0:BLOCK COUNTzD$;"READ ";DR$L1$: DIRECTORY NAME L2$: CREATE /RAM/PROGRAMS/? 8:1:"Moving programs to ";PF$I 820e D$;"OPEN ";PF$;",TDIR"y D$;"READ ";PF$ L1$ L2$ L3$ L4$:L4$""770 T$(L4$,2,15) NPNP1:PN$(NP)T$ 730 D$;"CLOSE ";PF$ I1NPdiskette."J 12:1:"Press SPACE to continue. Press RETURN to stop."i C$:C$" "C$(13)530w I6122 &I:1:79);(13) 0 :C$(13)ij D400 N GET VOLUME LABEL XD$;"PREFIX /" bD$;"PREFIX" lVL$ vD$  ( 6:1:"Moving programs from ";DR$2 480N D$;"OPEN ";DR$;",TDIR"f 216,0: NORMAL ERRo 200 216,0: NORMAL ERR 3288: FIX STACK 8:1:"The directory '/PROGRAMS/' is not on the diskette ";VL$ 10:1:"Insert the proper 1000: @# J PROGRAM TITLED TUL$"":I180:UL$UL$"_":i ^TL$"DISK TO /RAM PROGRAM MOVER"z h:1:1:UL$ r3:(80(TL$))2:TL$ |4:1:UL$   OPEN /.../PROGRAMS DIRECTORY 590: GET VOLUME LABEL DR$VL$"PROGRAMS/"ATE /RAM DIRECTORY . 860: MOVE PROGRAMS4 b THE EXEC PROGRAM WILL MOVE THE PROGRAMSh n 12:1:"Running the EXEC copy program ... " I11000: D$;"EXEC ";FL$ " ,12:1:"Programs are being copied to:";PF$ 6I1NC2)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 YYL 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(D200,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,96,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,255,08,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,23789,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,253,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,1 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,1 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 Z 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 6): 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(NS,64,64%  64,64,64,64,64,0,192,0B* 0,192,192,64,192,0,0,0\4 0,0,192,192,0,0,0,0r> 0,0,0,0,0,0,0,0H 0,0,0,0,0,0,0,0R 0,0,0,0,0,0,0,0d 160,160,160,160,0,9,128,32A 237,253,230,14,96,64,64,64^ 64,64,64,64,64,64,64,0z 0,64,64,64,64,64,64,0 64,64,64,64,64,0,0,64 64,64,64,64,64,0,64,64 0,0,64,64,64,64,0,64  64,64,64,64,0,64,64,0 64,64,64,64,64,640,32,157,129,76,148,1287 160,0,177,0,230,0,208,2X 230,1,96,162,13,134,14,166u 10,16,2,162,0,224,6,48 2,162,6,202,48,14,172,3 128,136,48,247,169,160,32,157 129,76,129,129,96,141,160,160 160,160,160,186,0,141,160,160 ,37,129) 0 132,11,36,11,16,5,169,160M : 32,157,129,169,208,133,13,169p D 208,133,12,104,170,160,0,202 N 16,16,177,12,230,12,208,2 X 230,13,201,128,16,241,48,242 b 160,0,177,12,200,170,32,157 l 129,138,16,246,36,11,80,5v 169,16129,232,208,245,32,107,129>  76,148,128,201,128,16,26,41_  127,201,32,16,14,72,169,91  32,157,129,104,9,64,32,157  129,169,93,32,157,129,76,148  128,72,201,129,208,2,230,10  201,130,208,2,198,10,201,178 & 208,2,230,9,170,188,165,3,133,1/  76,22,128,166,14,236,4,128P  48,18,72,162,0,189,149,129s  240,6,32,157,129,232,208,245  32,107,129,104,201,34,208,8  165,9,73,128,133,9,169,34  166,9,208,27,201,58,208,19  162,0,189,141,129,240,6,32  157,08,8,224* J 1,240,4,169,160,208,4,160J T 1,9,176,32,157,129,152,72d ^ 160,4,6,6,38,7,38,8 h 136,208,247,104,168,202,208,213 r 169,160,32,157,129,32,107,129 | 169,0,133,9,32,96,129,201  0,208,16,169,141,32,157,129  165,2,133,0208,1,96,32,96,1294 133,4,32,96,129,133,5,169R  0,133,6,133,7,133,8,162r  16,24,248,165,6,101,6,133  6,165,7,101,7,133,7,165 " 8,101,8,133,8,216,6,4 , 38,5,144,2,230,6,202,208 6 224,162,5,160,0,165,8,41 @ 15,208,12,192,0,2dI3276833295(nA:CKCKA:I,A.x[CK47880ĺ"ERROR IN DATA STATEMENTS":s"LISTER ML LOADED"y 76,5,128,3,80,169,0,133 10,169,1,133,0,169,8,133 1,169,141,32,157,129,32,96 129,133,2,32,96,129,133,3 5,2,2):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,2LP  ` `` ` `eee&)  H&&hթ k ` L0H kh" I " : kLɀ) H[ h @ , 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, 251237, 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, 1387< , 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, 35, 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, 165 "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, 2#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":] LHɁ ɂ ɲ % $  Ѕ Ѕ h  ɀ0 Ȫ $ P L`  000 L` `@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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, 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, 235. 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$(({ B 2LD` ``iRif`8z` ᥠ ߢRzfzezeRfz `0 i 8  0R}zf}ff RSfg 2 BLDzĠ  ̐ L< #( g RPQ g RP Q LK Ƹ "I"ș P Q ֩  ̐ȱ $Hȱh   ` 𯐭睊 ސ `ĠԠŠԠĠ D$(4):CTRL-D-D$"BLOAD SEARCHER"C1014,0:1015,144^(^ SET & VECTOR ^ x2"'SEARCHER' ENABLED"z?, 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, 02, 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, 1504032, 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, 03, 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, 024, 69, 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, 142>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, 1, 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, 1227(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): dT$""$nI768798:A:I,A:*xE"INPUT ANYTHING":190\"ANYTHING==> ";A$b"ANY MORE? (Y OR N) ";YT$YT$"Y"120768B1(798)B2(106)256(105)B22,B1B23,0B24,2A$(T$,1) 13Ė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(F)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 K2+ 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$;": ";:L&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":& 9,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,16125,LB 126,HB 60  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 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 '  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: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):CC255(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":150`pthjigosggL