0 REMA$="METATACTOE":OPEN15,9,15,"S0:"+A$:SAVEA$,9:VERIFYA$,9:CLOSE15 1 REMA$="METATACTOE.125":SAVEA$,8:VERIFYA$,8 40 REM DIMS N STUFF 44 DIM P$(20),XO$(1,9),GW$(1,9):P=0 100 GOTO60000 1000 REM COPYRIGHT 2002, 2003 NOESIS0 & J&F PUBLISHING ALL RIGHTS RESERVED 1002 POKE53281,0:POKE53280,0 1004 FORI=1TO9:U(I)=0:NEXTI 1010 PRINT"[147][206]OESIS [195]REATION":PRINT 1020 PRINT"[154]AND":PRINT 1030 PRINT"[202] & [198] [208]UBLISHING":PRINT:PRINT 1040 PRINT"[208]RESENT":PRINT:PRINT 1050 PRINT" [205]ETA [212]AC [212]OE!":PRINT 1060 FOR L=0 TO 128:POKE646,L 1070 PRINT" [205]ETA [212]AC [212]OE!" 1080 NEXT L 1090 PRINT"[147][145] [205]ETA [212]AC [212]OE!":PRINT 1092 FORL=0TO6:PRINT:NEXTL 1097 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 1098 PRINT"[155][199]AME [195]ONCEPT: [194]RIAN [204]. [195]ROSTHWAITE" 1100 PRINT"[155][199]AME [208]ROGRAMMING: [194]RIAN [204]. [195]ROSTHWAITE" 1110 PRINT"[155][199]AME [196]ESIGN: [194]RIAN [204]. [195]ROSTHWAITE" 1112 PRINT"[146][152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 1120 PRINT"" 1200 FORI=0 TO 1000:NEXTI 1400 PRINT"[147]"CHR$(142); 2000 REM 2010 PRINT" 2020 [153]" ORTAN=TAN=TAN^(null)ORTAN=TAN=TAN^(null)ORTAN=TAN=TAN^ 2022 PRINT" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221] 2030 [153]" -TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN< (null)TANRIGHT$(null)TANRIGHT$(null)TANRIGHT$(null)TANRIGHT$ 2032 PRINT" [221] [221]7[221] [221][221][221] [221]8[221] [221][221][221] [221]9[221] [221] [221]7[221][221]8[221][221]9[221][221]F[221] 2040 [153]" -TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN< MID$TAN(null)MID$TAN(null)MID$TAN(null)MID$TAN(null) 2042 PRINT" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221] [213][192][201][213][192][201][213][192][201][213][192][201] 2050 [153]" /TAN>TAN>TANEXP(null)/TAN>TAN>TANEXP(null)/TAN>TAN>TANEXP (null)4(null)(null)5(null)(null)6(null)(null)E(null) 2055 PRINT" [192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192] [202][192][203][202][192][203][202][192][203][202][192][203] 2060 [153]" ORTAN=TAN=TAN^(null)ORTAN=TAN=TAN^(null)ORTAN=TAN=TAN^ (null)TANRIGHT$(null)TANRIGHT$(null)TANRIGHT$(null)TANRIGHT$ 2062 PRINT" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221] [221]1[221][221]2[221][221]3[221][221] [221] 2064 [153]" -TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN< MID$TAN(null)MID$TAN(null)MID$TAN(null)(null) (null) 2066 PRINT" [221] [221]4[221] [221][221][221] [221]5[221] [221][221][221] [221]6[221] [221] [213][192][192][192][192][201][213][192][201][221]D[221] 2068 [153]" -TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN<(null)-TAN(null)TAN(null)TAN< (null) 0 (null)(null)B(null)(null) (null) 2070 PRINT" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221] [202][192][192][192][192][203][202][192][203][202][192][203] 2072 [153]" /TAN>TAN>TANEXP(null)/TAN>TAN>TANEXP(null)/TAN>TAN>TANEXP 2076 PRINT" [192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192] 2080 [153]" ORTAN=TAN=TAN^(null)ORTAN=TAN=TAN^(null)ORTAN=TAN=TAN^ PRINT(null)TANTANTANTANTANTANTANTANTANTANTANTANRIGHT$" 2082 [153]" (null) (null) (null) (null)(null)(null) (null) (null) (null)(null)(null) (null) (null) (null) PRINT(null) (null) 2084 PRINT" [171][192][219][192][219][192][179][221][171][192][219][192][219][192][179][221][171][192][219][192][219][192][179] [153][221] [221] 2086 [153]" (null) (null)1(null) (null)(null)(null) (null)2(null) (null)(null)(null) (null)3(null) (null) PRINT(null) (null) 2088 PRINT" [171][192][219][192][219][192][179][221][171][192][219][192][219][192][179][221][171][192][219][192][219][192][179] [153][221] [221] 2090 [153]" (null) (null) (null) (null)(null)(null) (null) (null) (null)(null)(null) (null) (null) (null) PRINTMID$TANTANTANTANTANTANTANTANTANTANTANTAN(null) 2092 PRINT" [173][192][177][192][177][192][189][221][173][192][177][192][177][192][189][221][173][192][177][192][177][192][189] 2999 [142] 3000 [143] CLEAR GRID DEFS 3010 G$(3,1)[178]"ORTAN=TAN=TAN^" 3012 G$(2,1)[178]"7TAN8TAN9TANF" 3020 G$(3,2)[178]"(null) (null) (null) (null)" 3022 G$(2,2)[178]"(null) (null) (null) (null)" 3030 G$(3,3)[178]"-TAN(null)TAN(null)TAN<" 3032 G$(2,3)[178]"4TAN5TAN6TANE" 3040 G$(3,4)[178]"(null) (null) (null) (null)" 3042 G$(2,4)[178]"(null) (null) (null) (null)" 3050 G$(3,5)[178]"-TAN(null)TAN(null)TAN<" 3052 G$(2,5)[178]"1TAN2TAN3TAND" 3060 G$(3,6)[178]"(null) (null) (null) (null)" 3062 G$(2,6)[178]"(null) (null) (null) (null)" 3070 G$(3,7)[178]"/TAN>TAN>TANEXP" 3072 G$(2,7)[178]"0TANATANBTANC" 3090 P$(0)[178]"" 3092 CL$(0)[178]" " 3094 CL$(1)[178]" " 3110 GY$(1)[178]"" 3120 GX$(1)[178]"" 3130 GY$(2)[178]"" 3140 GX$(2)[178]"" 3150 GY$(3)[178]"" 3160 GX$(3)[178]"" 3200 [143] OUTPUT CRSR MOVEMENT TEXT 3210 OW$(1)[178]"" 3220 OW$(2)[178]"" 3230 OW$(3)[178]OW$(2) 3240 GA$(0)[178]"CLR(" 3241 GA$(1)[178]"1, " 3242 GA$(2)[178]"2, " 3243 GA$(3)[178]"3, " 3244 GA$(4)[178]"4," 3245 GA$(5)[178]" 5, " 3246 GA$(6)[178]"6, " 3247 GA$(7)[178]"7, " 3248 GA$(8)[178]"8," 3249 GA$(9)[178]"9CLR)" 3300 [143] PLAY MOVEMENT :REM 01234567 3310 PX$[178]"":PY$[178]"" :[143] 0 3320 P$(0)[178]"" :[143] 1 7 8 9 F 0 3321 P$(1)[178]"" :[143] 2 1 3322 P$(2)[178]"" :[143] 3 4 5 6 E 2 3323 P$(3)[178]"":[143] 4 3 3324 P$(4)[178]"" :[143] 5 1 2 3 D 4 3325 P$(5)[178]"" :[143] 6 5 3326 P$(6)[178]"" :[143] 7 0 A B C 6 3327 P$(7)[178]"" :[143] 7 3328 P$(8)[178]"" :[143] 8 3329 P$(9)[178]"" :[143] 9 3330 P$(10)[178]"" :[143] A 3331 P$(11)[178]"" :[143] B 3332 P$(12)[178]"":[143] C 3333 P$(13)[178]"" :[143] D 3334 P$(14)[178]"" :[143] E 3335 P$(15)[178]"" :[143] F 3400 [143] HOME EACH SUBGRID 3410 PH$(1)[178]"" 3420 PH$(2)[178]"" 3430 PH$(3)[178]"" 3440 PH$(4)[178]"" 3450 PH$(5)[178]"" 3460 PH$(6)[178]"" 3470 PH$(7)[178]"" 3480 PH$(8)[178]"" 3490 PH$(9)[178]"" 3500 [143] CM CRSR MVMNT 4 ACQUIRE - USE W/PH 3510 CM$(1)[178]"SYS TAN(null)CMDCMDCMD 1(null)CMDCMDCMD ONCMDCMD" 3520 CM$(2)[178]"SYS(null)TAN(null)CMDCMDCMD(null)2(null)CMDCMDCMD ONCMDCMD" 3530 CM$(3)[178]"SYS(null)TAN CMDCMDCMD(null)3 CMDCMDCMD ONCMDCMD" 3540 CM$(4)[178]"SYS TAN(null)CMDCMDCMD 4(null)CMDCMDCMD TAN(null)ONCMDCMD" 3550 CM$(5)[178]"SYS(null)TAN(null)CMDCMDCMD(null)5(null)CMDCMDCMD(null)TAN(null)ONCMDCMD" 3560 CM$(6)[178]"SYS(null)TAN CMDCMDCMD(null)6 CMDCMDCMD(null)TAN ONCMDCMD" 3570 CM$(7)[178]"SYS CMDCMDCMD 7(null)CMDCMDCMD TAN(null)ONCMDCMD" 3580 CM$(8)[178]"SYS CMDCMDCMD(null)8(null)CMDCMDCMD(null)TAN(null)ONCMDCMD" 3590 CM$(9)[178]"SYS CMDCMDCMD(null)9 CMDCMDCMD(null)TAN ONCMDCMD" 3604 PL$(0)[178]"OPENX" 3608 PL$(1)[178]"CLRO" 3610 [143] GOSUB20000 3710 G$(0,1)[178]"ORTAN=TAN=TAN^" 3720 G$(0,2)[178]"(null)OPEN(null)(null) (null)OPEN(null)(null)" 3730 G$(0,3)[178]"-TANOPEN(null)TANOPEN(null)TAN<" 3740 G$(0,4)[178]"(null) (null)OPEN(null)(null) (null)" 3750 G$(0,5)[178]"-TANOPEN(null)TANOPEN(null)TAN<" 3760 G$(0,6)[178]"(null)OPEN(null)(null) (null)OPEN(null)(null)" 3770 G$(0,7)[178]"/TAN>TAN>TANEXP" 3810 G$(1,1)[178]"ORTAN=TAN=TAN^" 3820 G$(1,2)[178]"(null)CLR(null)TANTANTANRIGHT$(null)" 3830 G$(1,3)[178]"-CLR(null)(null)TAN(null)CLR(null)<" 3840 G$(1,4)[178]"(null)CLR(null)(null) (null)CLR(null)(null)" 3850 G$(1,5)[178]"-CLR(null)(null)TAN(null)CLR(null)<" 3860 G$(1,6)[178]"(null)CLRMID$TANTANTAN(null)(null)" 3870 G$(1,7)[178]"/TAN>TAN>TANEXP" 3900 PU$[178]"" 3999 [142] 4000 [143] GRID SELECTED ROUTINE 4010 [153]"DEF"GY$(R);:[129]L[178]1[164]7:[153]GX$(C);G$(2,L):[130]L 4020 [141]6000 4030 H1[178]0:H2[178]0:H3[178]0:H4[178]0:H5[178]0: H6[178]0:H7[178]0:H8[178]0:H9[178]0 4900 [142] 4999 [128] 5000 [143] GRID PLAY ROUTINE 5010 [153]PH$(GN); 5014 [153]P$(N);:[153]"(null)":[137]5900 5018 [153]""P$(L);:[129]LY[178]0[164]R:[153]PY$:[129]LX[178]0[164]C:[153]PX$;:[130]LX,LY:[153]"(null)" 5020 [143]GOSUB6000:REM GOTO PRINT SELECTION 5900 [142] 5999 [128] 6000 [143] MENU AREA ************* 6010 [153]""OW$(1)[202]("CLROOPENX",(P[172]2)[170]1,2)" PICK GRID# 6020 PRINTOW$(2);:FORA=0TO9:C$="":IFU(A)=1THENC$="" 6030 PRINTC$GA$(A);:IFA<>0ANDA=INT(A/4)*4THENPRINT:PRINTOW$(2); 6032 IFA<>0ANDA=INT(A/8)*8THENPRINT" [159]OR "; 6040 NEXTA:PRINT" "; 6999 RETURN:REM ************* 7000 REM SELECT GRID INPUT ROUTINE 7004 GOSUB20000 7006 IFGS=1022THENXX=1:YY=1:GOSUB30000 7010 K$="":GETK$:IFK$<"1"ORK$>"9"THEN7010 7013 IF(2^VAL(K$)ANDGS)=2^VAL(K$)THEN7010 7020 IFK$="1"THEN C=1:R=1:GS=GS+2^1 7030 IFK$="2"THEN C=2:R=1:GS=GS+2^2 7040 IFK$="3"THEN C=3:R=1:GS=GS+2^3 7050 IFK$="4"THEN C=1:R=2:GS=GS+2^4 7060 IFK$="5"THEN C=2:R=2:GS=GS+2^5 7070 IFK$="6"THEN C=3:R=2:GS=GS+2^6 7080 IFK$="7"THEN C=1:R=3:GS=GS+2^7 7090 IFK$="8"THEN C=2:R=3:GS=GS+2^8 7100 IFK$="9"THEN C=3:R=3:GS=GS+2^9 7102 IFC<1THEN7010 7108 GN=(C+ABS((R>1)*3)+ABS((R>2)*3)) 7110 IFK$<>""ANDU(VAL(K$))=0THENU(VAL(K$))=1:K$="":GOSUB4000 7111 P=P+1:IFP>1THENP=0 7120 RETURN 8000 REM PLAY INPUT ROUTINE 8002 P=P+1:IFP>1THENP=0 8004 PRINTPU$" " 8006 PRINTPU$"[158]PLAYER"MID$("[159][156]",P+1,1)" "MID$("XO",P+1,1) 8010 K$="":GETK$:IFK$="."THENK$="B" 8011 IFK$=CHR$(13)THENK$="D" 8012 IFK$="-"THENK$="E" 8013 IFK$="+"THENK$="F" 8014 IFK$<"0"ORK$>"F"THEN8010 8015 IFK$>"@"THEN8104 8016 FORK=58TO64:IFK$=CHR$(K)THEN8010 8017 NEXTK 8018 IF(2^VAL(K$)ANDP1)=2^VAL(K$)THEN8010 8019 IFK$="0"THENN=0 :P1=P1+2^N 8020 IFK$="1"THENN=1 :P1=P1+2^N 8030 IFK$="2"THENN=2 :P1=P1+2^N 8040 IFK$="3"THENN=3 :P1=P1+2^N 8050 IFK$="4"THENN=4 :P1=P1+2^N 8060 IFK$="5"THENN=5 :P1=P1+2^N 8070 IFK$="6"THENN=6 :P1=P1+2^N 8080 IFK$="7"THENN=7 :P1=P1+2^N 8090 IFK$="8"THENN=8 :P1=P1+2^N 8100 IFK$="9"THENN=9 :P1=P1+2^N 8104 IF((2^(ASC(K$)-65))ANDP2)=(2^(ASC(K$)-65))THEN8010 8106 IFK$="A"THENN=10:P2=P2+2^0 8110 IFK$="B"THENN=11:P2=P2+2^1 8120 IFK$="C"THENN=12:P2=P2+2^2 8122 IFK$="D"THENN=13:P2=P2+2^3 8124 IFK$="E"THENN=14:P2=P2+2^4 8126 IFK$="F"THENN=15:P2=P2+2^5 8132 IFC<1THEN8010 8140 REM IFK$<>""ANDU(VAL(K$))=0THENU(VAL(K$))=1:GOSUB5000 8141 IFK$<>""THENGOSUB5000 8150 REM GO CHECK BOX 8160 GOSUB9000 8190 RETURN 9000 REM CHECK FOR SQUARE AT GN 9010 REM CHECK INPUT POINTS FOR SUMS THAT EQUAL INPUT CORNERS 9020 IFH7=0AND((432ANDP1)=432) THENPRINTPH$(GN)CM$(7)PL$(P) 9024 IFH7=0AND((432ANDP1)=432) THENH7=1:XO$(P,7)="1": :REM 7854 9030 IFH8=0AND((864ANDP1)=864) THENPRINTPH$(GN)CM$(8)PL$(P) 9034 IFH8=0AND((864ANDP1)=864) THENH8=1:XO$(P,8)="1": :REM 8965 9040 IFH9=0AND((576ANDP1)+(048ANDP2)=624)THENPRINTPH$(GN)CM$(9)PL$(P) 9044 IFH9=0AND((576ANDP1)+(048ANDP2)=624)THENH9=1:XO$(P,9)="1": REM 9FE6 9050 IFH4=0AND((054ANDP1)=054) THENPRINTPH$(GN)CM$(4)PL$(P) 9054 IFH4=0AND((054ANDP1)=054) THENH4=1:XO$(P,4)="1": :REM 4521 9060 IFH5=0AND((108ANDP1)=108) THENPRINTPH$(GN)CM$(5)PL$(P) 9064 IFH5=0AND((108ANDP1)=108) THENH5=1:XO$(P,5)="1": :REM 5632 9070 IFH6=0AND((072ANDP1)+(024ANDP2)=096)THENPRINTPH$(GN)CM$(6)PL$(P) 9074 IFH6=0AND((072ANDP1)+(024ANDP2)=096)THENH6=1:XO$(P,6)="1": :REM 6ED3 9080 IFH1=0AND((007ANDP1)+(001ANDP2)=008)THENPRINTPH$(GN)CM$(1)PL$(P) 9084 IFH1=0AND((007ANDP1)+(001ANDP2)=008)THENH1=1:XO$(P,1)="1": :REM 12A0 9090 IFH2=0AND((012ANDP1)+(003ANDP2)=015)THENPRINTPH$(GN)CM$(2)PL$(P) 9094 IFH2=0AND((012ANDP1)+(003ANDP2)=015)THENH2=1:XO$(P,2)="1": :REM 23BA 9100 IFH3=0AND((008ANDP1)+(014ANDP2)=022)THENPRINTPH$(GN)CM$(3)PL$(P) 9104 IFH3=0AND((008ANDP1)+(014ANDP2)=022)THENH3=1:XO$(P,3)="1": :REM 3DCB 9998 RETURN 9999 D=PEEK(186):N$="B.METATACTOE":OPEN1,D,15,"S0:"+N$:CLOSE1:SAVEN$,D:END 10000 REM CHECK FOR TIC TAC TOE 10010 IFXO$(0,7)+XO$(0,8)+XO$(0,9)="111"THEN XW=XW+1 10020 IFXO$(0,4)+XO$(0,5)+XO$(0,6)="111"THEN XW=XW+1 10030 IFXO$(0,1)+XO$(0,2)+XO$(0,3)="111"THEN XW=XW+1 10050 IFXO$(0,7)+XO$(0,4)+XO$(0,1)="111"THEN XW=XW+1 10060 IFXO$(0,8)+XO$(0,5)+XO$(0,2)="111"THEN XW=XW+1 10070 IFXO$(0,9)+XO$(0,6)+XO$(0,3)="111"THEN XW=XW+1 10080 IFXO$(0,7)+XO$(0,5)+XO$(0,3)="111"THEN XW=XW+1 10090 IFXO$(0,1)+XO$(0,5)+XO$(0,9)="111"THEN XW=XW+1 10110 IFXO$(1,7)+XO$(1,8)+XO$(1,9)="111"THEN OW=OW+1 10120 IFXO$(1,4)+XO$(1,5)+XO$(1,6)="111"THEN OW=OW+1 10130 IFXO$(1,1)+XO$(1,2)+XO$(1,3)="111"THEN OW=OW+1 10150 IFXO$(1,7)+XO$(1,4)+XO$(1,1)="111"THEN OW=OW+1 10160 IFXO$(1,8)+XO$(1,5)+XO$(1,2)="111"THEN OW=OW+1 10170 IFXO$(1,9)+XO$(1,6)+XO$(1,3)="111"THEN OW=OW+1 10180 IFXO$(1,7)+XO$(1,5)+XO$(1,3)="111"THEN OW=OW+1 10190 IFXO$(1,1)+XO$(1,5)+XO$(1,9)="111"THEN OW=OW+1 10200 IFXW>OW THENZ=0:PRINTPU$"[159]X WINS ROUND":GW$(0,GN)="1" 10210 IFOW>XW THENZ=1:PRINTPU$"[156]O WINS ROUND":GW$(1,GN)="1" 10230 IFXW=OW THENZ=3:PRINTPU$"[158] CAT " 10232 IFXW=OW THENGS=GS-(2^GN):U(GN)=0 10280 PRINTPU$" PLEASE " 10282 PRINTPU$"PRESS SPACE" 10285 PRINTPU$"TO CONTINUE." 10290 K$="":GETK$:IFK$=""THEN10290 10300 PRINT"[150]"GY$(R);:FORL=1TO7:PRINTGX$(C);G$(Z,L):NEXTL 10310 IFZ=3THENPRINT"[150]"GY$(R);:PRINTGX$(C);""MID$(STR$(GN),2,1) 10320 GOSUB6000:REM RESET MENU 10330 REMPRINTPU$"[158] " 10400 GOSUB30000 " 19999 [142] 20000 [143] CLEAR WIN COUNTERS 20010 [129]I[178]0[164]1:[129]K[178]1[164]9 20020 XO$(I,K)[178]"0":[143] X:I=0 O:I=1 20030 [130]K,I 20040 XA[178]XA[170]XW:YA[178]YA[170]YW:XW[178]0:OW[178]0 29999 [142] 30000 [143] CHECK FOR FIN TIC TAC TOE 30010 [139]GW$(0,7)[170]GW$(0,8)[170]GW$(0,9)[178]"111"[167] XX[178]XX[170]1 30020 [139]GW$(0,4)[170]GW$(0,5)[170]GW$(0,6)[178]"111"[167] XX[178]XX[170]1 30030 [139]GW$(0,1)[170]GW$(0,2)[170]GW$(0,3)[178]"111"[167] XX[178]XX[170]1 30050 [139]GW$(0,7)[170]GW$(0,4)[170]GW$(0,1)[178]"111"[167] XX[178]XX[170]1 30060 [139]GW$(0,8)[170]GW$(0,5)[170]GW$(0,2)[178]"111"[167] XX[178]XX[170]1 30070 [139]GW$(0,9)[170]GW$(0,6)[170]GW$(0,3)[178]"111"[167] XX[178]XX[170]1 30080 [139]GW$(0,7)[170]GW$(0,5)[170]GW$(0,3)[178]"111"[167] XX[178]XX[170]1 30090 [139]GW$(0,1)[170]GW$(0,5)[170]GW$(0,9)[178]"111"[167] XX[178]XX[170]1 30110 [139]GW$(1,7)[170]GW$(1,8)[170]GW$(1,9)[178]"111"[167] OO[178]OO[170]1 30120 [139]GW$(1,4)[170]GW$(1,5)[170]GW$(1,6)[178]"111"[167] OO[178]OO[170]1 30130 [139]GW$(1,1)[170]GW$(1,2)[170]GW$(1,3)[178]"111"[167] OO[178]OO[170]1 30150 [139]GW$(1,7)[170]GW$(1,4)[170]GW$(1,1)[178]"111"[167] OO[178]OO[170]1 30160 [139]GW$(1,8)[170]GW$(1,5)[170]GW$(1,2)[178]"111"[167] OO[178]OO[170]1 30170 [139]GW$(1,9)[170]GW$(1,6)[170]GW$(1,3)[178]"111"[167] OO[178]OO[170]1 30180 [139]GW$(1,7)[170]GW$(1,5)[170]GW$(1,3)[178]"111"[167] OO[178]OO[170]1 30190 [139]GW$(1,1)[170]GW$(1,5)[170]GW$(1,9)[178]"111"[167] OO[178]OO[170]1 30200 [139]XX[177]OO[167][153]PU$"OPENX WINS GAME!":[137]30300 30210 [139]OO[177]XX[167][153]PU$"CLRO WINS GAME!":[137]30300 30230 [139]XX[179][177]0[175]OO[179][177]0[175]XX[178]OO[167][153]PU$"SYS CAT! ":[137]30300 30240 [142] 30300 K$[178]"":[161]K$:[139]K$[178]""[167]30300 30306 [153]PU$" PLAY AGAIN?" 30310 K$[178]"":[161]K$:[139]K$[178]""[167]30310 30320 [139]K$[178]"Y"[176]K$[178]"(null)"[167][138] 30340 [129]L[178]0[164]26:[153]:[130]:[153]"BYE!":T[178]TI[170]180 30341 [139]T[177]TI[167]30341 30342 [137]40000 39999 [142] 40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130] 40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030 40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A 40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130] 40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060 40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070 40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128] 40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23 40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I 40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128] 60000 [143] MAINLOOP RESET 60010 [141]1000:[143] OPEN SCREEN & SETUP 60020 [141]3000:[143] CLR GRID & DEFS 60030 [141]6000:[143] MENU AREA 60050 [143] MAINLOOP 60060 [143] GOSUB5000 60070 [143] GOSUB6000:REM SELECT GRID MESSAGE 60080 [139] LN[178]0 [167][141]7000:LN[178]1:[143] SELECT GRID INPUT ROUTINE 60090 [139] LN[178]1 [167][141]8000:LN[178]1:[143] PLAY GRID INPUT ROUTINE 60100 [139]LN[178]1[175]P1[178]1023[175]P2[178]63[167]LN[178]0:P1[178]0:P2[178]0:[141]10000 60110 [143] ^^ CLR TO SELC NEW GRID ^^ 60500 [151]646,1 60899 [137]60050:[143] END MAINLOOP 60900 [128]