JJJJ ( X ,0 ,b9 LԠ  Рààè       Ԡˠ ƠРӧ$%L"й0  `$:(17):40196,189:40197,158A(768)216ĺ(4);"IN#0"Y(4);"BLOAD HROUT"q(4);"BLOAD AASET"6,0:7,138:(4);"PR#A$300"A$(36),B$(36)TP1:PG0 4000 ::51,1:62454Y21:21:J0 " COMPUT,LASER.STRIKEI5.APMATHGRAPHICSW ,QUICKCAT.BAS_QUICKCAT.TEXTdXPROOFREADERBOOT,PRTMASTR.JUL)CHAIN.JAN() (WARI.FEB0#MLX> COMPUTE' $MENU%AASET ALERTUPCASE5*NORMAL.SETHROUT >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(8RE!'S APPLE PROGRAMS ":h " ";::"DEC '86 - FEB '87"::5:"(C) 1987 COMPUTE PUBLICATIONS"v X2162 (JJ1 -JDE15X16:70 2Y:X <J;" ";A$(JDE) FX ZR$:R$""90 cR$(32)10 d(R$)49(R$)57Ė1:17:90 ȱ`ȱa{i1987";: Q::> R" ISSUES OF COMPUTE! MAGAZINE.":D Uq _:5:"(SET COMPUTER TO 40-COLUMN MODE)"~ 8:18: "PRESS ANY KEY TO CONTINUE" 3:: X13000 (49152)128Ă 49168,0 D$;"RUN MENU" * 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"AM4 P"THE ";::"DECEMBER 1986 - FEBRUARY >222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0 !!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < >< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " !"#$%&ER"D 18:10:"SELECT YOUR PRINTER:";:PR$:PR$"1"PR$"6"160M PR$ 20:1::"BE SURE YOUR PRINTER IS ON AND SELECTED!": 23:20)"PRESS ANY KEY:";:K$:K$""190 PRINTER SETUPS  (PR$)240,280,320,360,400,44%dP0$(4)"PR#0":P1$(4)"PR#1"D:5:12)"PRINTER MASTER"9:5)"1. APPLE IMAGEWRITER OR COMPATIBLE":5)"2. BMC DOT-MATRIX" 5)"3. C. ITOH 8510 OR PROWRITER":5)"4. EPSON FX OR COMPATIBLE":5)"5. OKIDATA PARALLEL":5)"6. CUSTOM PRINT D$(4) :8:7:"COMPUTE!'S APPLE PROGRAMS"E6:10j"DECEMBER 1986 - FEBRUARY 1987"r13"(C) COPYRIGHT 1987 COMPUTE! PUBLICATIONSI12500:ZD$;"RUN ALERT"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,16xEFG >0 e()) $20I$ i EFGXL <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"0r PRINTER CONTROL VARIABLES--APPLE IMAGEWRITER--FOREIGN LANGUAGES ARE AVAILABLE BUT NOT IMPLEMENTED HERE A100:A200:BG00:BR00:CS00:DA00:DQ00:DS34:DU00:DW14:EL69:EM33:EN00:EO00:FC00:FI81:FR00:G100:G200L GD00:GE00:IO00:IB  PRINT SIZE MENU#@:1:12:"PRINT STYLES"T$:5)"1. PICA".5)"2. ELITE":5)"3. FINE":5)"4. PICA D.W.":5)"5. ELITE D.W.":5)"6. FINE D.W."814:15:"ENTER YOUR SELECTION:";S$:(S$)1(S$)61080 BP1$:(S$)1680101010202IL0LS$"ITAL.":LSIL:1010<1020_FC0LS$"FR/CAN":LSFC:1010i1020SP0LS$"SPANISH":LSSP:10101020JA0LS$"JAPANESE":LSJA:10101020P1$:(PC);(CS);(LS):P0$PR$"3"CSCT0&*GE0LS$"GERMAN":LSGE:1010041020S>FR0LS$"FRENCH":LSFR:1010]H1020RSW0LS$"SWEDISH":LSSW:1010\1020fDA0LS$"DANISH":LSDA:1010p1020zNW0LS$"NORW.":LSNW:10101020DU0LS$"DUTCH":LSDU:8PR$"3"ĺP1$:(PC);(68);(15):P0$:CTCS:CS90w(S$)750,770,790,810,830,850,870,890,910,930,950,970,990A20LS$"ASCII(S)":LSA2:10101020A10LS$"ASCII(U)":LSA1:1010 1020BR0LS$"BRITISH":LSBR:1010 10220)"8. NORWEGIAN";2)"3. BRITISH";:20)"9. DUTCH"b2)"4. GERMAN";:20)"10.ITALIAN"2)"5. FRENCH";:20)"11.FR/CAN."2)"6. SWEDISH";:20)"12.SPANISH":20)"13.JAPANESE"14:15:"ENTER YOUR SELECTION:";S$:(S$)1(S$)13720R SET (C.ITOH)"Nv14:15:"ENTER YOUR SELECTION:";S$:(S$)1(S$)5630~P1$:(S$)1740,1770,1830,1880,1890:P0$: SELECT LANGUAGE SETLS0::12)"LANGUAGE SETS"::2)"1. ASCII(S)";:20)"7. DANISH"2)"2. ASCII(U)";:30,1240,1180,580:515*D35,24::0IFN CHARACTER SETSLSX:12)"CHARACTER SETS"::5)"1. IBM CHARACTER SET":5)"2. BLOCK GRAPHICS SET"b5)"3. NORMAL CHARACTER SET":5)"4. DOWNLOADABLE CHARACTER SET"l5)"5. GREEK CHARACTEGE SETS":5)"3. PRINT STYLES"5)"4. SPECIAL FEATURES":5)"5. RESET PRINTER TO DEFAULTS":5)"6. PRINT TEST":5)"7. SELECT PRINT QUALITY"5)"8. EXIT"&14:15:"ENTER YOUR SELECTION:";S$:(S$)1(S$)85500(S$)590,650,1040,1110,17:GE00:IO00:IB00:IL00:L100:L200:NL00:NO00:NW00:PC00:PI00:RE00:SL00:SP00:SW002140:RESET PRINTER TO POWER-UP DEFAULTS DISPLAY MENUS17301260 1:12)"MAIN MENU"::5)"1. CHARACTER SETS":5)"2. LANGUA:IB50:IL73:L154:L256:NL49:NO48:NW71:PC27:PI30:RE24:SL47:SP75:SW69Y470--CUSTOM PRINTER: SEE DOCUMENTATIONA100:A200:BG00:BR00:CS00:DA00:DQ00:DS00:DU00:DW00:EL00:EM00:EN00:EO00:FC00:FI00:FR00:G100:G200\GD000:L248:NL00:NO0:NW00:PC27:PI80:RE64:SL52:SP7:SW5E470y--OKIDATA MICROLINE (STANDARD PARALLEL MODELS)A165:A264:BG49:BR66:CS33:DA70:DQ48:DS0:DU72:DW31:EL28:EM84:EN72:EO73:FC74:FI29:FR68:G180:G282PGD1:GE67:IO0IL6:L165:L266:NL00:NO36:NW9:PC27:PI78:RE00:SL00:SP7:SW5N ^470e h--EPSON FX SERIES rA100:A253:BG00:BR3:CS82:DA4:DQ53:DS72:DU00:DW49:EL77:EM69:EN71:EO70:FC00:FI15:FR1:G175:G276:JA8<|GD00:GE2:IO53:IB00:IL6:L1550:L248:NL00:NO00:NW00:PC27:PI18:RE64:SL52:SP00:SW00J 6470o @--C.ITOH 8510A AND OTHER C.ITOH JA12:A200:BG35:BR3:CS15:DA8:DQ34:DS34:DU10:DW14:EL69:EM33:EN00:EO34:FC14:FI81:FR1:G178:G280:GA38E TGD1:GE4:IO00:IB00:00:IL00:L165:L266:NL00:NO36:NW00:PC27:PI78:RE99:SL00:SP00:SW00U 470h --BMC MODELS "A100:A200:BG00:BR00:CS00:DA00:DQ53:DS72:DU00:DW49:EL00:EM69:EN71:EO70:FC00:FI15:FR00:G175:G276A ,GD1:GE00:IO00:IB00:IL00:L1,1620,1560,1500,1440,1380:P0$&L,QCV SPECIAL FEATURESI[`:12)"GRAPHICS OPTIONS"::5)"1. EMPHASIZED PRINT":5)"2. ENHANCED PRINT"j5)"3. GRAPHIC DENSITY (SINGLE/DOUBLE)":5)"4. LINES PER INCH (6/8) ":5)"5. RETURN TO MAIN MENU"Ct14:15:"ENTER YOUR SELECTION:";S$:(S$)1(S$)51140Q~S$"5"ırPQ$"NLQ"(S$"1"S$"2")ıP1$:(S$)2010,2030,2070,2100:P0$:1260:1110 PRINT QUALITY/:12)"PRINT QUALITY"::5)"1. DATA QUALITY"::5)"G U(4,5),L(4,5),J(4,5),BX(4,5),BY(4,5),RT(30),TR(30),TX(30),TY(30)xI13:J14:J(I,J)4::J(I,0)3:J(I,5)3:J14:J(0,J)3:J(4,J)3:A,B:J(A,B)2:0,0,0,5,4,0,4,5::8:14:"CHAIN REACTION" #12:9:"NUMBER OF PLAYERS (1/2)?""PR$"3"ĺ(DW):2180,&z(PC);"W";(1)2&P& RESET DOUBLE WIDTH MODEr&PR$"1"PR$"3"ĺ(15):2220&(PC);"W";(0)&GGLE LINE SPACING@%>L20LI$"6"ĺ(PC);(L2):LI$"8":2130b%HLI$"8"ĺ(PC);(L1):LI$"6"h%R%\PS$"PICA":GD$"1":CS$"NORM.":LS$"ASCII(S)":PQ$"DATA":EN$"N":EM$"N":LI$"6":: SET DEFAULTS %f SET DOUBLE WIDTH MODE&pPR$"1 ENHANCED PRINT ONJ$EM$"Y"EN$"Y"ĺ(PC);(EO):DS0ĺ(PC);(DS)$EN$"N":EM$"N":: EMPHASIZED/ENHANCED PRINT OFF$  GRAPHIC DENSITY TOGGLE$G20GD$"1"ĺ(PC);(G2):GD$"2":2090$ GD$"2"ĺ(PC);(G1):GD$"1"$*%4 TO SET SLANT MODE:#SL0PS$"FINE"PS$"FINE DW"2000`#PR$"5"ĺ(PC);(CS);(SL):1990q#(PC);(SL)#PQ$"SLANT"##EM0EM$"N"ĺ(PC);(EM):EM$"Y":: EMPHASIZED PRINT ON #2040$EN0EN$"N"ĺ(PC);(EN):EN$"Y":: ":(PC);(NO)#"DCS$"NORM.")"NJ"S DOWNLOADABLE CHARACTER SETP"X"bGA0ĺ(PC);(GA):CS$"GREEK": GREEK SET (C.ITOH)"l"vDQ0ĺ(PC);(DQ):PQ$"DATA": DATA QUALITY""NL0ĺ(PC);(NL):PQ$"NLQ": SET NL QUALITY"#0ĺ(PC);(CS);(IB):CS$"IBM"'!J! BLOCK GRAPHICS CHARACTER SETZ!BG0ī1810!PR$"5"ĺ(PC);(CS);(BG):1800!(PC);(BG)!CS$"B.GRAPHICS"!! NORMAL CHARACTER SET !&NO0ī1870"0PR$"5"ĺ(PC);(CS);(NO):1860 TEL0ī1660: ^PR$"5"ĺ(EL):1650: OKI ELITEQ h2190:(PC);(EL)a rPS$"ELITE"g |v  SET PICA PI0ī1720 PR$"5"ĺ(PI):1710: OKI PICA 2190:(PC);(PI) PS$"PICA"  P1$:(PC);(RE):P0$:2140:!!IBPI0DW0ī1540@PR$"5"ĺ(PI);(DW):1530: PICA DWW2150:(PC);(PI)iPS$"PICA DW"o~ SET FINEFI0PQ$"SLANT"ī1600"PR$"5"ĺ(FI):1590: OKI FINE,2190:(PC);(FI)6PS$"FINE"@ J SET ELITE1410: FINE DW:OKIHx2150:(PC);(FI): SET DW AND FINE PRINTZPS$"FINE DW"`s SET ELITE DWEL0DW0ī1480PR$"5"ĺ(EL);(DW):1470: ELITE DW2150:(27);(EL)PS$"ELITE DW" SET PICA DW52)"PR.SIZE: ";PS$;:22)"GRAPHIC DENS.: ";GD$P22)"EMPHASIZED:";EM$(2)"PR.QUALITY: ";PQ$;:22)"ENHANCED:"EN$;235,16:<F CONTROL ROUTINESPZ SET FINE DWdFI0DW0PQ$"SLANT"ī1420nPR$"5"ĺ(FI);(DW):P1$:"This is ";LS$;", ";PS$;", ";PQ$;" QUALITY.{}|!0#$%^&[]\@--ENHANCED=";EN$;"-EMPHASIZED=";EM$;".":P0$:u OPTION SCREEN UPDATE35,24::17::40):19:2)"CHAR. SET:";CS$;:22)"LANG. SET: ";LS$ 22)"LINES/INCH:";LI$2. SLANT MODE"::5)"3. NEAR LETTER QUALITY"m14:15:"ENTER YOUR SELECTION:";S$:(S$)1(S$)31200PR$"5"1230P1$:(27);(33);(42):(27);(48):PQ$"DATA":P0$P1$:(S$)1910,1960,1930:P0$: PRINT TESTo; (K$:K$"1"K$"2"406 -NP(K$):NP2310\ 216:10:"COMPUTER FIRST (Y/N)?";x 7K$:K$"Y"K$"N"55 <TU(K$"Y") 6:21:14:"CHAIN REACTION";:1000 rTUTU1 |NP1TU0İ1970:420 540 L(Y,X)TU23900 U(Y,X)')*+,-. A(12),B(12),SC(12),I(12)Q::"LOADING ML. PLEASE WAIT...":1670:1810w(190256)76ĺ(4)"PR#A768":50(54,0:55,3:100226,0:7,138:230,64<:100F10:"*********************":P10)"*";::19);::"*": Z23:39):(HD)(15:" ";:FGFG1:.HLP1U(AY,AX)1J(AY,AX)RT(I)5:2170FRLP0RT(I)3:2170X\RT(I)2:2170pfLP0RT(I)2:2170|pRT(I)1z:ZT0:AB6I1XT:RT(I)ABZTZT1:TR(ZT)I:ZT02210ABAB1:2180DH(ZT(1))1:HDTR(DH):YTY(HD):XTX)RT(I)6:21702 LP0U(Y,X)0RT(I)4:2170JLP0RT(I)1:2170^J(Y,X)22110 LP0U(Y,X)1RT(I)1:2170*LP0U(Y,X)0RT(I)4:21704LP1U(Y,X)1RT(I)1:2170>U(AY,AX)1J(AY,AX)RT(I)1:2170CU(Y,X)2J(Y,X)2150100:PXX22:1100:;XT0:Y04:X05:L(Y,X)22000YXTXT1:TY(XT)Y:TX(XT)XbX,Y~15:23:"THINKING...";I1XT:RT(I)0:TR(I)0:YTY(I):XTX(I):870FG1LPU(Y,X)02220U(Y,X)1J(Y,X)2075LP1U(AY,AX)1J(AY,AX0,QXX28,Q::TU41<K1320,1330,1340,1350,1360,1360B(^2PXX16:QYY13:1100:<PXX10:QYY13:1100:PXX20:1100:FPXX16:QYY10:1100:PXX10:QYY17:1100:PXX20:1100:PPXX16:QYY6:1100:QYY19:1100:PXX10:QYY13:17:P3,Q:P4,Q.QTU41:P2,Q1P4,Q1JVN25:P,QNP6,QN:a`P2,Q6P4,Q6:I23:X138X30I:X2X133:Y130YI:Y2Y126X1,Y1X2,Y1X2,Y2X1,Y2X1,Y1::XX38X30:YY30Y:4:KU(Y,X)1:K6K5QYY6YY26:XX10ĭL(Y1,X)2AYY1:960<zX0ĭL(Y,X1)2AXX1:960]X5ĭL(Y,X1)2AXX1:960~Y4ĭL(Y1,X)2AYY1:960LP1:7:I01:Y05:YY30YI30,YY258,YY:Y,II01:X06:XX38X30I:XX,0XX,150:X,ILTX0XTX1:800* TX5XTX1:800E XTX:TY0YTY1:800[ TY4YTY1:800t FS(0)1FS(1)1E1 YTY: L(Y,X)TU1FS(TU)FS(TU)U(Y,X):FS(TU1)FS(TU1)U(Y,X) *L(Y,X)TU1:U(Y,X)U(Y,X)1:S(16336):1300:fLP0:Y4DY1 :K$"J"ĭX0DX16 DK$"K"ĭX5DX1I IDX0DY0545w N4:1200:XXDX:YYDY:TU41:1200:545 R0:YY30Y:XX38X30 I1U(Y,X):S(16336):J15:J,I U(Y,X)U(Y,X)J(Y,X):1300 U(Y,X)0L(Y,X)0 TXX:TYY E BAR TO PLAY AGAIN.";? 49168,0:K(49152)128:K32490E x XHX(TU1):YHY(TU1):TU41:1200:(49168),0 !DX0:DY0:K(49152)128:K0545 $K$(K):49168,0:K$" "Ē4:1200:HX(TU1)X:HY(TU1)Y: &K$"I"ĭY0DY1 0K$"M"ĭYU(Y,X)1:FS(TU)FS(TU)1:L(Y,X)0L(Y,X)TU1: 1300Q U(Y,X)J(Y,X)450Z 370} E0:FG0:A04:B05:YA:XB U(Y,X)J(Y,X)E0FG1:710 B,A:E1470 FG1450 370 16:23:"GAME OVER";:I11000: 6:"PRESS SPAC1: d:1 n70 x80\ 10)"*";::" ";::"APPLE ][ WARI";::" ";::"*"d 80l 70 :13)"COMPUTER'S SIDE":CP0:MC0 13)"MOVE # "MC:13)"SCORE: "CP :" <zMPMLMCML1000LPT0940\CP241000e390} ** NO COUNTERS **TM1400:90:"NO COUNTERS!!! ";PT0ĺ"GAME OVER."TM11500:PT01060 ** AWARD COUNTERS **$6):PBSC(F6)F*IA0IB0800A IIA:(PBPA)IIBJ860f P0:F712:PPA(F):Ft*P08504F15>A(F)0A(F)6FIF:860HFRI((1)6)1:A(I)0850\(I64):SC0:TM1800:TMfDS1:1310:TM1900:(0:I(G)0vG7P$"P"*A(G)0680<SC0:SP0:IGKDS0:1310y254,S1:255,S2:856:SC(G)(254):I(G)T0GP$"C" ** PICK BEST MOVE **F16PASC(F)740IAF:PASC(F)PBSC(F6)A(I(F6))0760IBI(F000PT0940#PL241000? ** COMPUTER'S MOVE **j&P$"C":PA0:PB0:IA0:IB0:P0:MCMC1y08:20:MC:F16:PPA(F):FD90:"COMPUTER'S TURN. MOVES COUNTERS A-F. ";NP0940X ** CHECK ALL MOVES **bG112 lSC(G)S TURN. MOVE COUNTERS (G-L)? ";. P0940G 1530:I(B$)64:B$X B$"Q"1160z B$"G"B$"L"ĭA(I)0490 90:"ILLEGAL MOVE!!!" TM1900:TM:420 DS1:1310:TM1900: PT0:F112:A(F)B(F):PTPTA(F):MPMLMCML1)P T23:"WHO GOES FIRST: ";::"C";::"OMPUTER OR ";::"P";::"LAYER? ";n ^1530:B$"C"B$"P"20 hB$:TM1200: rB$"C"550 | ** PLAYER'S MOVE ** P$"P":P0:SP0:MPMP1 20:20:MP F712:PPA(F):F! 90:"PLAYER' FIRST TURN ***R :23::"L";::"IMITED OR ";::"U";::"NLIMITED GAME? ";q 1530:B$"L"B$"U"280 "B$:TM1200::ML0 ,B$"U"Ģ4:16:"UNLIMITED":340 690:1:"MOVE LIMIT";:ML @ML(ML):ML0310 J15:4:"LIMITED: "(ML:::2 " %^^^^";:I15:"&^^^^";::"@"T J12:I17:" $";::: " >>G>>>>H>>>>I>>>>J>>>>K>>>>L>>>" :13)"PLAYER'S SIDE":PL0:MP0 13)"MOVE # "MP:13)"SCORE: "PL T112:A(T)4:B(T)4:1220:  *** GAME TYPE &SP0ı"HPL1PLSP/,21:20:H:1650A6H:PLPLSP:f@ ** DISPLAY COMPUTER'S SCORE **rJSC0ıTHCP1CPSC^9:20:H:1650hH:CPCPSC:rI110:A(16336)::| DATA STATEMENT SET #1 - HROUT I768862:A:CSCSA:I,A:=CS9320ĺ"ERROR IN DATA STATEMENT SET #1":Cn216,120,133,69,134,70,132,71,166,7,1010,176,4,16,62,48,4,16,1,232,23210,134,27,24,101,6,133,26,144,2,23027,165,40,133,8,165,41,41,3,5,230 133,9,162,8,160,0,177,262+ 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)ĺ(=?@ABCDEFGA$: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":&  V 34,34,20,8,20,34,34,06 ` 34,34,20,8,8,8,8,0P j 62,32,16,8,4,2,62,0h t 62,6,6,6,6,6,62,0 ~ 0,2,4,8,16,32,0,0 62,48,48,48,48,48,62,0 0,0,0,127,127,0,0,0 0,0,0,0,0,0,0,127,34,0$ 28,34,34,34,34,34,28,0> 30,34,34,30,2,2,2,0[ 28,34,34,34,42,18,44,0x 30,34,34,30,10,18,34,0$ 28,34,2,28,32,34,28,0. 62,8,8,8,8,8,8,08 34,34,34,34,34,34,28,0B 34,34,34,34,34,20,8,0 L 34,34,34,42,42,54,34,0 62,2,2,30,2,2,62,0. 62,2,2,30,2,2,2,0H 60,2,2,2,50,34,60,0e 34,34,34,62,34,34,34,0} 28,8,8,8,8,8,28,0 32,32,32,32,32,34,28,0 34,18,10,6,10,18,34,0 2,2,2,2,2,2,62,0 34,54,42,42,34,34,34,0 34,34,38,42,50,34 0,0,8,0,8,8,4,0+> 16,8,4,2,4,8,16,0CH 0,0,62,0,62,0,0,0\R 4,8,16,32,16,8,4,0u\ 28,34,16,8,8,0,8,0f 8,8,8,15,15,8,8,8p 8,20,34,34,62,34,34,0z 30,34,34,30,34,34,30,0 28,34,2,2,2,34,28,0 30,34,34,34,34,34,30,08,28,0# 28,34,32,24,4,2,62,0@ 62,32,16,24,32,34,28,0] 16,24,20,18,62,16,16,0y 62,2,30,32,32,34,28,0 56,4,2,30,34,34,28,0  62,32,16,8,4,4,4,0 28,34,34,28,34,34,28,0  28,34,34,60,32,16,14,0* 0,0,8,0,8,0,0,04l 8,8,8,0,0,0,0,0,v 8,4,2,2,2,4,8,0G 8,16,32,32,32,16,8,0a 8,42,28,8,28,42,8,0x 0,8,8,62,8,8,0,0 0,0,0,0,8,8,4,0 0,0,0,62,0,0,0,0 0,0,0,0,0,0,8,0 0,32,16,8,4,2,0,0 28,34,50,42,38,34,28,0 8,12,8,8,8,3532835839:A:CSCSA:I,A::CS9833ĺ"ERROR IN DATA STATEMENT SET #2":Tj& 0,0,0,0,0,0,0,00 8,8,8,8,8,0,8,0: 20,20,20,0,0,0,0,0D 20,20,62,20,62,20,20,0N 8,8,8,8,8,8,8,8X 8,8,8,120,120,8,8,8b 8,8,8,127,127,8,8,8,36,50,4832,73,127,164,36,145,8,230,26,208,2\230,27,165,9,24,105,4,133,9,202,208226,165,69,166,70,164,71,88,76,240,253 NEXT LINE IS BITWISE OR 165,254,5,255,133,254,96 DATA STATEMENT SET #2 - CHARACTER SET DATANCS0:I7);: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 K13Ė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)ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ  4 0-4ȊȱE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  +  @!` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERROR L> m CANNOT RESTORE FILee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ` i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGET   ɛ=ɍ  $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $ (&Hɠ)?(h` !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅlL| $ v SLOT= DRIVE G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   )  L H8H   G  ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($H(h)JL G ! |RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ L m ERR$ " ` ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i ii i ()?` HBhi T ii / X v DISK SELECT (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H $ʝ!h"0 H $(*0 255)=: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":150aMICRO-WARE : :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(CҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|H2G(1,9,9),C(1,9,9),NH(1,5),XH(1,5),YH(1,5),DX(1,5),DY(1,5),TA(1,5)q<:I06:CH(I)::GX(0)18:GX(1)158F 3,4,5,2,1,6,3 PB$" ":I137:B$B$" ":ZI25:S$(I):d EXPLORER,FIGHTER,BOMBER,MOTHERSHIPn1330:1460 p(1902561:CP(PP)0Ģ4:1:"INVALID CHOICE"BCOPC:720:1040:1050:TI11500::m1:1:I15:B$::$I1555:J1I:S(49200)::J110::.NG(P,X,Y):3:18N0ĺ"MISS!":1040:CO6:G(P,X,Y)1:BN1ĺ"ALREADY HIT":COPC:1040:#IYYN1:G(P,X,I)0ER1::ER1PC0:1020jY1Y:YY1Y1N1:G(P,X,Y)N:CP(PP)0İ720r:XN19PC0:1020IXXN1:G(P,I,Y)0ER1:ER1PC0:1020X1X:XX1X1N1:G(P,X,Y)N:CP(PP)0İ720:%ER16\COPC:720:760:XX1:YY1:CO1:720:760:800LfG(P,X,Y)01020tpK$(10((1)2)11):CP(PP)1910z3:1:"HORIZONTAL [RIGHT] OR VERTICAL [DOWN]?":720K$:K$(10)K$(21)900ER0:CON:K$(21)970YN19PC0:1020:X2HX8:I05:X2,HYIX25,HYI:, [XPX(PP):YPY(PP):X1X:Y1Y:CO1:720:760 K(49152):T(1):K127Ĺ49168,0*K160PX(PP)X:PY(PP)Y:4K149ĭX19X1X11>K136ĭX10X1X11HK139ĭY10Y1Y11RK138ĭY19Y1Y1%CH(CO):HXX8GX(P):HYY859]I05:HX,HYIHX5,HYI::PCC(P,X,Y):C(P,X,Y)COCO6Ē4:I052:HX,HYIHX5,HYI:X0TC(P,X1,Y):T0T6ĒCH(T):X2HX8:I05:X2,HYIX25,HYI:&X9TC(P,X1,Y):T0T6ĒCH(T)Y)0İ630lRvTA(P,SH)0DX(P,SH)DX(P,SH):DY(P,SH)DY(P,SH):TA(P,SH)1XvX((1)10):Y((1)10)(XY)2((XY)2)650G(P,X,Y)16501240:TXLS(P)TYLS(P)650CO0:X09:Y09:C(P,X,Y)0720:Y,X:H)1:TYSHYPYNER1?R3DY(P,SH)1:TYSHYNYPER1]&XXDX(P,SH):YYDY(P,SH)|01210:ER0ĭG(P,X,Y)1ı:XXDX(P,SH):YYDY(P,SH):490DXXDX(P,SH):YYDY(P,SH)NER0:1210:ER1İ630:580XG(P,X,Y)1İ630:580 bG(P,X,NSHN:H1 :H0650F XXH(P,SH):YYH(P,SH):NH(P,SH)1580[ I03:PR(I)0:x R((1)4):PR(R)1490 DX(P,SH)0:DY(P,SH)0:ER0:PR(R)1:1240 R0DX(P,SH)1:TXSHXPXNER1 R1DX(P,SH)1:TXSHXNXPER1R2DY(P,S1060:720:1050# rTH(P)14290B |:11:15::"GAME OVER":` 13:20(P$(P))2:P$(P) 14:9:"HAS FREED THE GALAXY!" 17:12:"PLAY AGAIN [Y/N]"; K$:K$"Y"K$"N"420 K$"Y"Ĭ K$"N"ė: H0:N25:NH(P,N)0NH(P,N)1050::700::P1:D1:1050:I01:PX(I)0:PY(I)0:K "P(P1):PPP` ,1:1::P$(P): 6"POSITION AND FIRE LASER.":7:6 @P0Ğ:"GRID 1";::14)"GRID 2" JP1ĺ"GRID 1"14);::"GRID 2": TCP(P)0İ790:360 ^450:CO1:720 h521:L10(S$(N))1 L)S$(N)12L)S$(N):S D0:PP01:P(PP1):LS(P)5f N521:ER1y 1::P$(PP): "DEPLOY YOUR "S$(N)" "; I1N:(CH(2));: CP(PP)0İ790:270 X((1)(10N)):Y((1)(10N)) 870:ER12209 HJKLMNOPQRSTU)76ĺ(4);"PR#A768":1161 r54,0:55,3:1002I t6,0:7,141:230,64O vq x11:14::"LASER STRIKE"::| I01 "PLAYER "(I1);:P$(I) P$(I)""CP(I)1:P$(I)"COMPUTER" ::7:6:"GRID 1"14)"GRID 2" P01:700::20 NLCON:"DIRECT HIT!";VI115:S(49200):J1I::_`NH(P,N)NH(P,N)1:TH(P)TH(P)1jG(P,X,Y)1:HY(24N)81:HX(NH(P,N)919P)8:CH(CO)tI05:HX,HYIHX5,HYI:~NNH(P,N)XH(P,N)X:YH(P,N)Y:1200I25:NH(P,I)0LS(P)I::I110:S(49200)>4:20(S$(N))2:S$(N):15^"DESTROYED!":J150:::oI1500::X0X9ER1Y0X9ER1X1XX1X11:X19ĭG(P,X1,Y)11250XPX1X:X1XX1X11:X10ĭG(P,X1,Y)11270VXYZ[\]INITIALIZE :31 SET NUMERIC CONSTANTSP PI3.14159:P2PI2:P3PI2c X140:Y96:O1}  SHAPE TABLE NUMBERS S11:S22:S33 T120 "T380,400,420,440,460,480,500,520,540,560,580,600,620,640,660,680,700,720,740,760 , WAIT A S d::n4:10:3x" "R10:"APPLE MATH GRAPHICS"q10:" "{::" A GRAPHICS PROGRAM."L14000: SET UP SHAPE TABLESA3276832788:D:A,D:232,0:233,128   0,0,0,0,0,0,0,04  0,60,48,48,48,48,60,0,128,b 128,230,230,230,230,230,190,128Rl 128,230,230,230,230,230,152,128xv 128,230,230,230,230,254,230,128 128,230,230,230,188,230,230,128 128,230,230,230,188,152,152,128 128,254,176,152,140,134,254,128  0,30,6,6,6,6,30,0 128,190,230,230,230,230,230,128H& 128,188,230,230,230,230,188,128n0 128,190,230,230,190,134,134,128: 128,188,230,230,230,182,236,128D 128,190,230,230,190,230,230,128N 128,188,230,140,176,230,190,128X 128,254,152,152,152,152,15230,134,246,230,190,128> 128,230,230,230,254,230,230,128d 128,152,152,152,152,152,152,128 128,224,224,224,224,230,188,128 128,230,230,182,158,230,230,128 128,134,134,134,134,134,254,128 128,230,254,230,230,230,230,128",128,128,1284 128,252,230,230,254,230,230,128Z 128,190,230,230,190,230,254,128 128,188,230,134,134,230,190,128 128,190,230,230,230,230,190,128 128,254,134,134,190,134,254,128 128,254,134,134,190,134,134,128 128,188,2,188,230,188,230,230,188,128DJ 128,188,230,230,252,176,152,128jT 128,128,128,128,128,128,128,128^ 0,0,0,0,0,0,0,0h 0,0,0,0,0,0,0,0r 0,0,0,0,0,0,0,0| 0,0,0,0,0,0,0,0 128,188,230,176,152,128,152,128 128,128,128,128,12852,152,152,188,128: 128,188,230,176,140,230,254,128` 128,188,230,176,224,230,188,128 128,176,184,180,254,176,176,128" 128,254,134,190,224,230,188,128, 128,188,134,190,230,230,188,1286 128,254,224,176,152,140,140,128@ 12888,76,240,253,I3609636111:A:I,A:KI3620836591:A:I,A::a 0,0,0,0,0,0,0,0| 0,24,24,24,24,0,24,0 128,128,128,128,128,128,152,128 128,128,176,152,140,134,128,128 128,188,230,246,238,230,188,128 128,152,156,1232,232,10,134/d 27,24,101,6,133,26,144,2Pn 230,27,165,40,133,8,165,41mx 41,3,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,105 4,133,9,202,208,226,165,69 166,70,164,71,XNXX1:TXXNXP1:Y1YA Y1Y11:Y19ĭG(P,X,Y1)11290RYPY1Y:Y1YxY1Y11:Y10ĭG(P,X,Y1)11310(YNYY1:TYYNYP1:2I768855:A:I,A:<F 216,120,133,69,134,70,132,71P 166,7,10,10,176,4,16,62Z 48,4,16,1,ECOND 6L11500 @4 J RESET AND CONTINUE: T@ ^I h280b r *A BALL OF STRING* |OX52:OY59:R95:L1150:Z(O)P2:NXR(Z)X:NYR(Z)Y:OX,OYNX,NY:OXNX:OYNY::  *LINED CIRCLE*; ZP2(O):R95:CXR(Z)X:CYR(Z)Y:L^`abc190,176,9,141,172,32,141A 98,32,76,44,32,32,116,32,76,208,3m 173,7,190,141,186,33,173,8,190,141,187 33,169,0,141,7,190,173,172,32,141,8 190,173,172,32,141,6,33,141,12,33,141 83,33,141,200,33,141,72,33,141,203,33 141,166,33,162,0F::"LOADING ML..."?PI81928192511:A:I,A:XXA:lZX71906ĺ"ERROR IN DATA STATEMENTS.":_(4)"BSAVE QUICK.CATALOG,A$2000,L$200"d173,0,191,201,76,240,15,32,221,251,173n247,32,141,120,32,32,116,32,76,113,32 x169,1,32,245,0:R230:Y140:Y2152:JPI3PIPI32:PXXR1(J):PYY1R2(J):CXR1(J)X:CYR2(J)Y2:PX,PYCX,CY:: SHAPE TABLE DATA  3,0,8,0,13,0,19,0 38,52,47,61,0,35  45,54,63,4,0,45,0SC::J0P2PIP264:PXPXSC:JC:S1PX,R(J)Y::U *ROLLER COASTER II*SC2.8:10:PX10:R70:C10.18:J0P2PIP264:JC:S3PX,R(J)Y:PXPXSC::J0P2PIP264:PXPXSC:JC32:S3PX,R(J)Y:: *DOUBLE OVAL CONE*nR112X1,Y1X2,Y2::( *BOUNCING LINE*OFPI3:J0P2PI64:R195:R235:R3110:X1R3(J)X:Y1R2(J)Y:X2R2(JOF)X:Y2R1(J)Y:X1,Y1X2,Y2:: *ROLLER COASTER*;15:SC2.6:PX15:R70:C10.18:J0P2PIP264:JC:S1PX,R(J)Y:PXPX: *DOUBLE OVAL*J0P2PI64:R195:R235:R3110:X1R3(J)X:Y1R2(J)Y:X2R2(JPI)X:Y2R1(JPI)Y:X1,Y1X2,Y2:: *MOEBIUS RING*OFPI3:J0P2PI64:R195:R235:R3110:X1R3(J)X:Y1R2(J)Y:X2R2(J)X:Y2R1(JOF)Y:25:R1105:R260:SC40.74:J0P2P2119:JSC:S2R1(J)X,R2(J)Y::5:R150:R214:SC20.37:J0P2P250:JSC:S2R1(J)X,R2(J)Y::v *LINE SPINNER*25:R190:R245:S20.37(20.37((1).5)):J0P2P2192:JS:S3R1(J)X,R2(J)Y:(O).5:K:K:S2RX,RY:::4: *SNAIL SHELLS*DC2:J116:RX280(O):RY192(O):K2805(O).75:KC:K:S3RX,RY:::N *PLUS OVAL*XC10.18:25:R1110:R250:J0P2P264:JC:S1R1(J)X,R2(J)Y::b *SQUARE SPINNER*l95:L22((O).5):TH0P2P2128:RC(LTH):NXR(TH)X:NYR(TH)Y:X,YNX,NY::l *SUNFLOWERS*J114:RX280(O):RY192(O):K1505(O)1.5:K:K:S1RX,RY:::& *LOGO SQUARES*0J114:RX280(O):RY192(O):K150(O)5SPIKES* R120:R245:R3115:R485:L0P2PI3:L10P2PI6:X1R3(L1)X:Y1R4(L)Y:X2R1(L)X:Y2R2(L1)Y:X1,Y1X2,Y2:::  *FLOWING CONE* R95:L3:J0P2PI100:PXR(JL)X:PYR(J)Y:X,YPX,PY::  *MULTIPLE LOBES*YCZI:RRRI:NXR(Z)X:NYR(Z)Y:X,YNX,NY:(ZP2(ZP2))C:S1NX,NY::g  *CIRCULAR SPIKES* R120:R245:R3115:R485:L0P2PI3:L10P2PI6:X1R3(L1)X:Y1R4(L1)Y:X2R1(L)X:Y2R2(L)Y:X1,Y1X2,Y2:::  *EXPLODED CIRCULAR 1110:ZP2(O):NXR(Z)X:NYR(Z)Y:CX,CYNX,NY::Q  *SQUARE CIRCLE* R95:R2R21:J0R5:PX(R2JJ):PY(R2PXPX):PXX,PYYXPX,PYYXPX,YPYPXX,YPYPXX,PYY::  *CLOVERLEAF*O Z2:R0:ZI.5:RI.5:C10.18:3:L1150:ZZ,189,0,33,157,0,255D 232,224,255,208,245,173,207,32,141,120,32o 32,116,32,76,208,3,32,251,218,173,155 32,141,169,32,173,120,32,141,140,32,173 121,32,141,141,32,162,1,189,155,32,32 237,253,232,236,169,32,144,244,32,251,218% 96,13,:"IN THE FEBRUARY '87 ISSUE OF COMPUTE!"\ F:::" ";::" PRESS ANY KEY ":j PX13000~ Z(49152)128Ă d49168,0 n xD$;"RUN MENU" D$(4):D 3:"THIS PROGRAM WRITES A BINARY FILE TO"r:"DISK. WE SUGGEST THAT YOU SAVE THIS":"PROGRAM TO ANOTHER DISK BEFORE RUNNING."(:"FOR INFORMATION ON HOW TO USE THIS"2:"PROGRAM, PLEASE REFER TO THE ARTICLE", <,1977160,206,207,212,160,201,206,160,212,200,193h212,160,196,210,201,214,197,175,208,193,212&200,174,160,211,232,239,236,236,175,195,2070205,208,213,212,197,193d41,85,190,24,173,38,2,201,255,208,19R162,0,189,204,33,32,237,253,232,224,38~208,245,32,221,251,32,251,218,76,208,356,76,208,3,195,193,212,193,204,207,199160,169,7,141,89,33,76,79,33,208,210207,196,207,211,160,214,207,204,213,2050,2,232,224,3,208,245,160,0,185,224P2,42,42,144,21,42,24,106,106,106,157{0,2,232,200,192,15,240,15,201,141,208231,24,144,8,106,106,24,144,235,24,14454,169,255,141,38,2,169,0,141,15,19032,3,190,169,0,141,15,190,141,84,190&167,208,105,232,224,3,208,244,162,0,189N h0,2,232,221,0,2,208,247,42,42,42| r24,106,106,106,201,195,208,236,232,160,0 |189,0,2,153,224,2,232,200,224,15,240 4,201,141,208,240,169,3,141,89,33,173 24,192,10,176,117,162,0,189,188,33,157&,174,195,193,212,193G ,204,207,199,160,210,213,206,211,160,207,206x 6204,217,160,215,201,212,200,160,208,210,207 @196,207,211,174,160,209,32,234,0,0,0 J0,183,255,216,173,108,190,141,16,33,173 T109,190,141,17,33,162,1,189,170,170,201( ^211,217,211,212,197,205,160,197,210T 210,207,210,160,174,195,207,196,81,32,209 213,201,195,203,174,195,193,212,193,204,207 199,160,201,211,160,206,207,215,160,201,206 211,212,193,204,204,197,196,174,160,174,32 "37,209,213,201,195,203