JJJJ ( X ,0 ,b9 LԠ  Рààè   3.3     Ԡˠ ƠРӧ$%L"ѹ0  `>222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < 0 e()) $20I$ i EFGXL* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "5ȱ`ȱa{i  Y 1987";: 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"E * 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 - FEBRUAR 00: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. LANG0: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\GD50: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:IO0:IL6: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:L1L150: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:IB0B00: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:440r 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:INTER"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,%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 PRI           D$(4) :8:7:"COMPUTE!'S APPLE PROGRAMS"E6:10j"DECEMBER 1986 - FEBRUARY 1987"r13"(C) COPYRIGHT 1987 COMPUTE! PUBLICATIONSI12500:ZD$;"RUN ALERT"R  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, E 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:!!PI0DW0ī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 ELIT:1410: 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 DW$52)"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 TESToMENU"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"::580,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   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$)16:101010202IL0LS$"ITAL.":LSIL:1010<1020_FC0LS$"FR/CAN":LSFC:1010i1020SP0LS$"SPANISH":LSSP:10101020JA0LS$"JAPANESE":LSJA:10101020P1$:(PC);(CS);(LS):P0$PR$"3"CSCT020&*GE0LS$"GERMAN":LSGE:1010041020S>FR0LS$"FRENCH":LSFR:1010]H1020RSW0LS$"SWEDISH":LSSW:1010\1020fDA0LS$"DANISH":LSDA:1010p1020zNW0LS$"NORW.":LSNW:10101020DU0LS$"DUTCH":LSDU208PR$"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 1;:20)"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$)137TER 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)"1730,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 CHARACUAGE 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, TX0XTX1: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:TYYACE 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")U(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 SP?"; (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) 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)     "1"PR$"3"ĺ(DW):2180,&z(PC);"W";(1)2&P& RESET DOUBLE WIDTH MODEr&PR$"1"PR$"3"ĺ(15):2220&(PC);"W";(0)&TOGGLE 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$ 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  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":: 60":(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"#IB0ĺ(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):18)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))0760IBI1000PT0940#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(GR'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):MPMLMCMLML)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:"PLAYE & 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: "(";:::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):1: d:1 n70 x80\ 10)"*";::" ";::"APPLE ][ WARI";::" ";::"*"d 80l 70 :13)"COMPUTER'S SIDE":CP0:MC0 13)"MOVE # "MC:13)"SCORE: "CP :" <U(AY,AX)1J(AY,AX)RT(I)1:2170CU(Y,X)2J(Y,X)211100: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,10,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:7: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:XXY0ĭ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,IL34,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, 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,4 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,8,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,0l 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,I3532835839: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,826,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:CSA: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,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:CSдFT0LS1"B(F)2B(F)3ıEP$"P"SPB(F):S2S2SP:1500bP$"C"SCB(F):S1S1SC{B(F)0:DSTF:1220F: ** GET A CHARACTER **K(16384):K127153016368,0:B$(K128): ** DISPLAY PLAYER'S SCORE **A(F):F2B(T)0:DSİ1220*<F1A(T)4FTT1BPT12T1\ZB(T)B(T)1:DSİ1220hdF:T0Tn ** ANY CAPTURES **xB(T0)2B(T0)3ıP$"P"T061450P$"C"T071450 ** TOTAL CAPTURES **LS1:P$"C"LS7 T0:960# ** UPDATE DISPLAY **3132(T6)LT7TB375T:1250bT6TB5(T6)2{TB:2);:TB:B(T);TM1400:B(T)0ıP$"P"İ1560: P$"C"İ1610: ** MOVE COUNTERS **TI:S10:S20(F112:B(F)L ** ANOTHER GAME **3V"ANOTHER GAME (Y/N)? ";S`1530:B$"Y"B$"N"1120jjB$:B$"Y"Đ:100tt::~ ** QUIT GAME **TM1100:90:"QUIT GAME. ARE YOU SURE (Y/N)? "1530:B$"Y"B$"N"1180B$"Y"42090:P:90:"GAME OVER. AWARD COUNTERS."/F16SP$"C":SCA(F):TF:B(T)0:1220{P$"P":SPA(F6):TF6:B(T)0:1220F ** WHO WON **$90.PLCPĺ"A DRAW. ";:11108PLCPĺ"PLAYER WINS. ";:1110BCPPLĺ"COMPUTER WINS.";(pPT0:F112:A(F)B(F):PTPTA(F):F>zMPMLMCML1000LPT0940\CP241000e390} ** NO COUNTERS **TM1400:90:"NO COUNTERS!!! ";PT0ĺ"GAME OVER."TM11500:PT01060 ** AWARD COUNTERS **$(F6):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: $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(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":150aMICRO-WARE : F):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 :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":&           0 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,1271060: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,9 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 hN521: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:ER122056)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 5H2G(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(1902                 4,200,76,212,148,169,42,73B 170,76,240,159,89,132,168,76P 240,159 235,159,136,161 P 247,96,76,173,148,76,193,148U Z 76,206,148,234,234,232,177,66v d 201,170,208,3,76,6,178,201 n 191,208,3,76,1,178,76,252 x 177,145,64,32,201,177,144,1 96,104,104,32,205,159,41,127 201,42,208,16,185,132,168,48Q$ I3801638121:A:I,A:XXA:QX14283ĺ"ERROR IN DATA STATEMENTS.":D$(4):(4)"BSAVE WILDCARD,A$9480,L$6A"( 160,2,185,162,148,153,249,1772 136,16,247,160,2,185,165,148< 153,110,162,136,16,247,160,4 F 185,168,148,153,   Ҡ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|8!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ  4 0-4ȊILE 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 Fee   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   ɛ=ɍ 28,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,18828,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,1,152,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@ 11,88,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,1561,232,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,7XNXX1: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,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)11270LCON:"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)R1: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:20#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:%EY116\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:10T):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ĭY19Y1:%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(X,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,SH)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,N)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(P5(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*lC95: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)R SPIKES* 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*YZZI: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 CIRCULAL1110: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:Z SECOND 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: 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 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,0,04  0,60,48,48,48,48,60,052,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 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,1,230,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":"OF THE JANUARY '87 ISSUE OF COMPUTE!"X F:::" ";::" PRESS ANY KEY ":f PX13000z 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 PAGE 73 "( <120: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,0PXSC::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*nR1Y:X1,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:PX:: *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)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)Yz#    ӠĮԠ  Ԡ Ү̠#ήΠɮ  ؠ Įà ҮŠՠ ԠԠ Š ̮ԠԠҠ