Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/OXO
G/OXO
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF |
Filename: | G/OXO |
Read OK: | ✔ |
File size: | 0BED bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF802B |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » headfirst » headfirst_5_25_discs_HeadFirst-PD-Disk-010_D-HD010.ssd » OXO
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/OXO
File contents
10REM Noughts and Crosses v1.1 20REM By James Treadwell 30REM HeadFirst PD 1992 40REM Updated March 1993 50REM Computer now unbeatable 60MODE5:PROCa:PROCb:PROCc 70COLOUR2:VDU23;8202;0;0;0;:FORI=6TO19:PRINTTAB(7,I);CHR$224:PRINTTAB(12,I);CHR$224:NEXT:A$=STRING$(4,CHR$225):FORd=10TO15STEP5:PRINTTAB(3,d);A$;CHR$226;A$;CHR$226;A$:NEXT:VDU5:FORZ=1TO3:FORY=1TO3:B=1024-(32*(2.5+(Z*5))) 80A=((Y*5)-0.5)*64 90MOVEA,B:PRINT;((3*Z)-3)+Y 100NEXT:NEXT:VDU4:COLOUR1:PRINTTAB(0,22);e$TAB(9);fTAB(11);g$TAB(18);h:i=0:j=3-k:k=3-k:FORl=1TO9:m(l)=0:NEXT:VDU23;8202,1;0;0;0;:REPEAT 110n=0:COLOUR2:IFj=1THENPRINTTAB(0,24);e$" to go " 120IFj=2THENPRINTTAB(0,24);g$" to go " 130IFj=2ANDo$="1"THENPRINTTAB(0,26)"Thinking..";STRING$(10," "):PROCp:GOTO180 140VDU23;8202,1;0;0;0; 150*FX178,255,0 160PRINTTAB(0,26)"Enter Square (1-9): ":COLOUR3:INPUTTAB(19,26)M$:IFVAL(M$)<1ORVAL(M$)>9THENVDU7:COLOUR2:GOTO150 170*FX178,0,0 180PROCq:IFn=1THENVDU7:GOTO110 190IFi>0THENPROCr:GOTO70 200UNTIL0 210DEFPROCq:VDU23;8202;0;0;0;:COLOUR3:M=VAL(M$):IFm(M)=1ORm(M)=2THENn=1:ENDPROC 220m(M)=j:T=228+((j-1)*4) 230IFM>0ANDM<4THENPRINTTAB((M*5)-1,7)CHR$(T+1);CHR$(T+2):PRINTTAB((M*5)-1,8)CHR$(T-1);CHR$(T) 240IFM>3ANDM<7THENPRINTTAB((M*5)-16,12)CHR$(T+1);CHR$(T+2):PRINTTAB((M*5)-16,13)CHR$(T-1);CHR$(T) 250IFM>6ANDM<10THENPRINTTAB((M*5)-31,17)CHR$(T+1);CHR$(T+2):PRINTTAB((M*5)-31,18)CHR$(T-1);CHR$(T) 260PROCs:j=3-j:ENDPROC 270DEFPROCs:COLOUR3 280FORJ=1TO72STEP3:IFm(t(J))ANDm(t(J+1))ANDm(t(J+2))THENi=j:J=72:NEXT:GOTO310 290NEXT 300I=0:REPEATI=I+1:UNTILm(I)=0ORI=9:IFI=9ANDm(9)>0THENPRINTTAB(0,28)"Game Drawn":i=3 310IFi=1THENPRINTTAB(0,28);e$" wins":f=f+1 320IFi=2THENPRINTTAB(0,28);g$" wins":h=h+1 330ENDPROC:END 340DEFPROCc:COLOUR2:PRINTTAB(0,24)"1 or 2 Players?"; 350o$=GET$:IFo$="1"THENPROCu 360IFo$="2"THENPROCv 370IFASC(o$)<49ORASC(o$)>50THENVDU7:GOTO350 380COLOUR2:PRINTTAB(0,24)"Who goes first (1/2)"; 390k$=GET$:IFk$="1"THENk=2 400IFk$="2"THENk=1 410IFASC(k$)<49ORASC(k$)>50THENVDU7:GOTO390 420ENDPROC 430DEFPROCu:g$="Comp" 440PRINTTAB(0,24)"Enter Name: ":COLOUR3:INPUTTAB(12,24)e$:IFLEN(e$)>6THENVDU7:COLOUR2:GOTO440 450COLOUR2:PRINTTAB(0,24)"Level (1 to 100)?";STRING$(5," "):PRINTTAB(0,26)"1-Genius 100-Stupid":COLOUR3 460INPUTTAB(17,24)w:PRINTTAB(17,24);STRING$(5," "):IFw<1ORw>100THENVDU7:GOTO460 470PRINTTAB(0,26);STRING$(20," "):ENDPROC 480DEFPROCv:PRINTTAB(0,24)"Enter Player 1 Name":COLOUR3 490INPUTTAB(0,26)e$:IFLEN(e$)>6THENPRINTTAB(0,26);STRING$(20," "):VDU7:GOTO490 500PRINTTAB(0,26);STRING$(20," "):COLOUR2:PRINTTAB(0,24)"Enter Player 2 Name":COLOUR3 510INPUTTAB(0,26)g$:IFLEN(g$)>6THENPRINTTAB(0,26);STRING$(20," "):VDU7:GOTO510 520PRINTTAB(0,26);STRING$(20," "):ENDPROC:END 530DEFPROCa:VDU23,224,24,24,24,24,24,24,24,24:VDU23,225,0,0,0,255,255,0,0,0:VDU23,226,24,24,24,255,255,24,24,24:VDU23,227,6,6,6,6,6,6,3,1:VDU23,228,96,96,96,96,96,96,192,128:VDU23,229,1,3,6,6,6,6,6,6:VDU23,230,128,192,96,96,96,96,96,96 540VDU23,231,3,3,6,6,6,6,6,6:VDU23,232,192,192,96,96,96,96,96,96:VDU23,233,6,6,6,6,6,6,3,3:VDU23,234,96,96,96,96,96,96,192,192:VDU19,2,6;0;:f=0:h=0:DIMm(9),t(72),x(36):FORK=1TO72:READt(K):NEXT:FORy=1TO36:READx(y):NEXT:ENDPROC 550DEFPROCb:VDU5:MOVE32,1000:PRINT"Noughts and Crosses":VDU4:ENDPROC 560DEFPROCr:COLOUR1:PRINTTAB(0,30)"SPACE to play again":OSCLI"FX 178,255,0":REPEATz=GET:UNTILz=32:CLS:OSCLI"FX 178,0,0":PROCb:ENDPROC 570DEFPROCp:IFRND(100)<wTHENGOTO630 580FORJ=1TO72STEP3:IFm(t(J))+m(t(J+1))=4ANDm(t(J+2))=0THENM$=STR$(t(J+2)):J=72:NEXT:ENDPROCELSENEXT 590FORJ=1TO72STEP3:IFm(t(J))+m(t(J+1))=2ANDm(t(J))=1ANDm(t(J+2))=0THENM$=STR$(t(J+2)):J=72:NEXT:ENDPROCELSENEXT 600FORQ=1TO36STEP3:IFm(x(Q))ANDm(x(Q+1))ANDm(x(Q+2))=0THENM$=STR$(x(Q+2)):Q=36:NEXT:ENDPROC 610NEXT:IFm(5)=0THENM$="5":ENDPROC 620IFm(5)=1THENIFm(7)=0THENM$="7":ENDPROCELSEIFm(5)=1ANDm(1)=0THENM$="1":ENDPROC 630FORI=2TO8STEP2:IFm(I)=0THENM$=STR$(I):I=8:NEXT:ENDPROCELSENEXT 640FORI=1TO9STEP2:IFm(I)=0THENM$=STR$(I):I=9:NEXT:ENDPROCELSENEXT 650ENDPROC 660DATA1,2,3,1,3,2,2,3,1,4,5,6,4,6,5,5,6,4,7,8,9,7,9,8,8,9,7,1,4,7,1,7,4,4,7,1,2,5,8,2,8,5,5,8,2,3,6,9,3,9,6,6,9,3,1,5,9,1,9,5,5,9,1,3,5,7,3,7,5,5,7,3 670DATA2,6,3,2,4,1,4,8,7,6,8,9,1,8,7,1,6,3,2,7,1,2,9,3,4,3,1,4,9,7,6,7,9,3,8,9
� Noughts and Crosses v1.1 � By James Treadwell � HeadFirst PD 1992 (� Updated March 1993 2� Computer now unbeatable <�5:�a:�b:�c F��2:�23;8202;0;0;0;:�I=6�19:�7,I);�224:�12,I);�224:�:A$=�4,�225):�d=10�15�5:�3,d);A$;�226;A$;�226;A$:�:�5:�Z=1�3:�Y=1�3:B=1024-(32*(2.5+(Z*5))) PA=((Y*5)-0.5)*64 Z�A,B:�;((3*Z)-3)+Y d^�:�:�4:�1:�0,22);e$�9);f�11);g$�18);h:i=0:j=3-k:k=3-k:�l=1�9:m(l)=0:�:�23;8202,1;0;0;0;:� n/n=0:�2:�j=1��0,24);e$" to go " x(�j=2��0,24);g$" to go " �5�j=2�o$="1"��0,26)"Thinking..";�10," "):�p:�tt@ ��23;8202,1;0;0;0; �*FX178,255,0 �M�0,26)"Enter Square (1-9): ":�3:�19,26)M$:�(M$)<1��(M$)>9��7:�2:�tV@ �*FX178,0,0 ��q:�n=1��7:�Dn@ ��i>0��r:�DF@ ��0 �7��q:�23;8202;0;0;0;:�3:M=�(M$):�m(M)=1�m(M)=2�n=1:� �m(M)=j:T=228+((j-1)*4) �>�M>0�M<4��(M*5)-1,7)�(T+1);�(T+2):�(M*5)-1,8)�(T-1);�(T) �B�M>3�M<7��(M*5)-16,12)�(T+1);�(T+2):�(M*5)-16,13)�(T-1);�(T) �C�M>6�M<10��(M*5)-31,17)�(T+1);�(T+2):�(M*5)-31,18)�(T-1);�(T) �s:j=3-j:� ��s:�3 ;�J=1�72�3:�m(t(J))�m(t(J+1))�m(t(J+2))�i=j:J=72:�:�TvA "� ,>I=0:�I=I+1:�m(I)=0�I=9:�I=9�m(9)>0��0,28)"Game Drawn":i=3 6 �i=1��0,28);e$" wins":f=f+1 @ �i=2��0,28);g$" wins":h=h+1 J�:� T$��c:�2:�0,24)"1 or 2 Players?"; ^o$=�:�o$="1"��u h�o$="2"��v r�(o$)<49��(o$)>50��7:�D^A |%�2:�0,24)"Who goes first (1/2)"; �k$=�:�k$="1"�k=2 ��k$="2"�k=1 ��(k$)<49��(k$)>50��7:�tFA �� ���u:g$="Comp" �D�0,24)"Enter Name: ":�3:�12,24)e$:�(e$)>6��7:�2:�txA �I�2:�0,24)"Level (1 to 100)?";�5," "):�0,26)"1-Genius 100-Stupid":�3 �2�17,24)w:�17,24);�5," "):�w<1�w>100��7:�dLA ��0,26);�20," "):� �'��v:�0,24)"Enter Player 1 Name":�3 �0�0,26)e$:�(e$)>6��0,26);�20," "):�7:�djA �7�0,26);�20," "):�2:�0,24)"Enter Player 2 Name":�3 �0�0,26)g$:�(g$)>6��0,26);�20," "):�7:�d~A �0,26);�20," "):�:� ���a:�23,224,24,24,24,24,24,24,24,24:�23,225,0,0,0,255,255,0,0,0:�23,226,24,24,24,255,255,24,24,24:�23,227,6,6,6,6,6,6,3,1:�23,228,96,96,96,96,96,96,192,128:�23,229,1,3,6,6,6,6,6,6:�23,230,128,192,96,96,96,96,96,96 ��23,231,3,3,6,6,6,6,6,6:�23,232,192,192,96,96,96,96,96,96:�23,233,6,6,6,6,6,6,3,3:�23,234,96,96,96,96,96,96,192,192:�19,2,6;0;:f=0:h=0:�m(9),t(72),x(36):�K=1�72:�t(K):�:�y=1�36:�x(y):�:� &/��b:�5:�32,1000:�"Noughts and Crosses":�4:� 0W��r:�1:�0,30)"SPACE to play again":�"FX 178,255,0":�z=�:�z=32:�:�"FX 178,0,0":�b:� :��p:�(100)<w��DvB DF�J=1�72�3:�m(t(J))+m(t(J+1))=4�m(t(J+2))=0�M$=�(t(J+2)):J=72:�:�� NP�J=1�72�3:�m(t(J))+m(t(J+1))=2�m(t(J))=1�m(t(J+2))=0�M$=�(t(J+2)):J=72:�:�� XC�Q=1�36�3:�m(x(Q))�m(x(Q+1))�m(x(Q+2))=0�M$=�(x(Q+2)):Q=36:�:� b�:�m(5)=0�M$="5":� l4�m(5)=1��m(7)=0�M$="7":��m(5)=1�m(1)=0�M$="1":� v&�I=2�8�2:�m(I)=0�M$=�(I):I=8:�:�� �&�I=1�9�2:�m(I)=0�M$=�(I):I=9:�:�� �� ���1,2,3,1,3,2,2,3,1,4,5,6,4,6,5,5,6,4,7,8,9,7,9,8,8,9,7,1,4,7,1,7,4,4,7,1,2,5,8,2,8,5,5,8,2,3,6,9,3,9,6,6,9,3,1,5,9,1,9,5,5,9,1,3,5,7,3,7,5,5,7,3 �L�2,6,3,2,4,1,4,8,7,6,8,9,1,8,7,1,6,3,2,7,1,2,9,3,4,3,1,4,9,7,6,7,9,3,8,9 �
00000000 0d 00 0a 1e f4 20 4e 6f 75 67 68 74 73 20 61 6e |..... Noughts an| 00000010 64 20 43 72 6f 73 73 65 73 20 76 31 2e 31 0d 00 |d Crosses v1.1..| 00000020 14 18 f4 20 42 79 20 4a 61 6d 65 73 20 54 72 65 |... By James Tre| 00000030 61 64 77 65 6c 6c 0d 00 1e 17 f4 20 48 65 61 64 |adwell..... Head| 00000040 46 69 72 73 74 20 50 44 20 31 39 39 32 0d 00 28 |First PD 1992..(| 00000050 19 f4 20 55 70 64 61 74 65 64 20 4d 61 72 63 68 |.. Updated March| 00000060 20 31 39 39 33 20 0d 00 32 1d f4 20 43 6f 6d 70 | 1993 ..2.. Comp| 00000070 75 74 65 72 20 6e 6f 77 20 75 6e 62 65 61 74 61 |uter now unbeata| 00000080 62 6c 65 0d 00 3c 0f eb 35 3a f2 61 3a f2 62 3a |ble..<..5:.a:.b:| 00000090 f2 63 0d 00 46 95 fb 32 3a ef 32 33 3b 38 32 30 |.c..F..2:.23;820| 000000a0 32 3b 30 3b 30 3b 30 3b 3a e3 49 3d 36 b8 31 39 |2;0;0;0;:.I=6.19| 000000b0 3a f1 8a 37 2c 49 29 3b bd 32 32 34 3a f1 8a 31 |:..7,I);.224:..1| 000000c0 32 2c 49 29 3b bd 32 32 34 3a ed 3a 41 24 3d c4 |2,I);.224:.:A$=.| 000000d0 34 2c bd 32 32 35 29 3a e3 64 3d 31 30 b8 31 35 |4,.225):.d=10.15| 000000e0 88 35 3a f1 8a 33 2c 64 29 3b 41 24 3b bd 32 32 |.5:..3,d);A$;.22| 000000f0 36 3b 41 24 3b bd 32 32 36 3b 41 24 3a ed 3a ef |6;A$;.226;A$:.:.| 00000100 35 3a e3 5a 3d 31 b8 33 3a e3 59 3d 31 b8 33 3a |5:.Z=1.3:.Y=1.3:| 00000110 42 3d 31 30 32 34 2d 28 33 32 2a 28 32 2e 35 2b |B=1024-(32*(2.5+| 00000120 28 5a 2a 35 29 29 29 0d 00 50 14 41 3d 28 28 59 |(Z*5)))..P.A=((Y| 00000130 2a 35 29 2d 30 2e 35 29 2a 36 34 0d 00 5a 16 ec |*5)-0.5)*64..Z..| 00000140 41 2c 42 3a f1 3b 28 28 33 2a 5a 29 2d 33 29 2b |A,B:.;((3*Z)-3)+| 00000150 59 0d 00 64 5e ed 3a ed 3a ef 34 3a fb 31 3a f1 |Y..d^.:.:.4:.1:.| 00000160 8a 30 2c 32 32 29 3b 65 24 8a 39 29 3b 66 8a 31 |.0,22);e$.9);f.1| 00000170 31 29 3b 67 24 8a 31 38 29 3b 68 3a 69 3d 30 3a |1);g$.18);h:i=0:| 00000180 6a 3d 33 2d 6b 3a 6b 3d 33 2d 6b 3a e3 6c 3d 31 |j=3-k:k=3-k:.l=1| 00000190 b8 39 3a 6d 28 6c 29 3d 30 3a ed 3a ef 32 33 3b |.9:m(l)=0:.:.23;| 000001a0 38 32 30 32 2c 31 3b 30 3b 30 3b 30 3b 3a f5 0d |8202,1;0;0;0;:..| 000001b0 00 6e 2f 6e 3d 30 3a fb 32 3a e7 6a 3d 31 8c f1 |.n/n=0:.2:.j=1..| 000001c0 8a 30 2c 32 34 29 3b 65 24 22 20 74 6f 20 67 6f |.0,24);e$" to go| 000001d0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 00 | "..| 000001e0 78 28 e7 6a 3d 32 8c f1 8a 30 2c 32 34 29 3b 67 |x(.j=2...0,24);g| 000001f0 24 22 20 74 6f 20 67 6f 20 20 20 20 20 20 20 20 |$" to go | 00000200 20 20 20 20 20 22 0d 00 82 35 e7 6a 3d 32 80 6f | "...5.j=2.o| 00000210 24 3d 22 31 22 8c f1 8a 30 2c 32 36 29 22 54 68 |$="1"...0,26)"Th| 00000220 69 6e 6b 69 6e 67 2e 2e 22 3b c4 31 30 2c 22 20 |inking..";.10," | 00000230 22 29 3a f2 70 3a e5 8d 74 74 40 0d 00 8c 15 ef |"):.p:..tt@.....| 00000240 32 33 3b 38 32 30 32 2c 31 3b 30 3b 30 3b 30 3b |23;8202,1;0;0;0;| 00000250 0d 00 96 10 2a 46 58 31 37 38 2c 32 35 35 2c 30 |....*FX178,255,0| 00000260 0d 00 a0 4d f1 8a 30 2c 32 36 29 22 45 6e 74 65 |...M..0,26)"Ente| 00000270 72 20 53 71 75 61 72 65 20 28 31 2d 39 29 3a 20 |r Square (1-9): | 00000280 20 22 3a fb 33 3a e8 8a 31 39 2c 32 36 29 4d 24 | ":.3:..19,26)M$| 00000290 3a e7 bb 28 4d 24 29 3c 31 84 bb 28 4d 24 29 3e |:..(M$)<1..(M$)>| 000002a0 39 8c ef 37 3a fb 32 3a e5 8d 74 56 40 0d 00 aa |9..7:.2:..tV@...| 000002b0 0e 2a 46 58 31 37 38 2c 30 2c 30 0d 00 b4 14 f2 |.*FX178,0,0.....| 000002c0 71 3a e7 6e 3d 31 8c ef 37 3a e5 8d 44 6e 40 0d |q:.n=1..7:..Dn@.| 000002d0 00 be 11 e7 69 3e 30 8c f2 72 3a e5 8d 44 46 40 |....i>0..r:..DF@| 000002e0 0d 00 c8 06 fd 30 0d 00 d2 37 dd f2 71 3a ef 32 |.....0...7..q:.2| 000002f0 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 3a fb 33 |3;8202;0;0;0;:.3| 00000300 3a 4d 3d bb 28 4d 24 29 3a e7 6d 28 4d 29 3d 31 |:M=.(M$):.m(M)=1| 00000310 84 6d 28 4d 29 3d 32 8c 6e 3d 31 3a e1 0d 00 dc |.m(M)=2.n=1:....| 00000320 1a 6d 28 4d 29 3d 6a 3a 54 3d 32 32 38 2b 28 28 |.m(M)=j:T=228+((| 00000330 6a 2d 31 29 2a 34 29 0d 00 e6 3e e7 4d 3e 30 80 |j-1)*4)...>.M>0.| 00000340 4d 3c 34 8c f1 8a 28 4d 2a 35 29 2d 31 2c 37 29 |M<4...(M*5)-1,7)| 00000350 bd 28 54 2b 31 29 3b bd 28 54 2b 32 29 3a f1 8a |.(T+1);.(T+2):..| 00000360 28 4d 2a 35 29 2d 31 2c 38 29 bd 28 54 2d 31 29 |(M*5)-1,8).(T-1)| 00000370 3b bd 28 54 29 0d 00 f0 42 e7 4d 3e 33 80 4d 3c |;.(T)...B.M>3.M<| 00000380 37 8c f1 8a 28 4d 2a 35 29 2d 31 36 2c 31 32 29 |7...(M*5)-16,12)| 00000390 bd 28 54 2b 31 29 3b bd 28 54 2b 32 29 3a f1 8a |.(T+1);.(T+2):..| 000003a0 28 4d 2a 35 29 2d 31 36 2c 31 33 29 bd 28 54 2d |(M*5)-16,13).(T-| 000003b0 31 29 3b bd 28 54 29 0d 00 fa 43 e7 4d 3e 36 80 |1);.(T)...C.M>6.| 000003c0 4d 3c 31 30 8c f1 8a 28 4d 2a 35 29 2d 33 31 2c |M<10...(M*5)-31,| 000003d0 31 37 29 bd 28 54 2b 31 29 3b bd 28 54 2b 32 29 |17).(T+1);.(T+2)| 000003e0 3a f1 8a 28 4d 2a 35 29 2d 33 31 2c 31 38 29 bd |:..(M*5)-31,18).| 000003f0 28 54 2d 31 29 3b bd 28 54 29 0d 01 04 0e f2 73 |(T-1);.(T).....s| 00000400 3a 6a 3d 33 2d 6a 3a e1 0d 01 0e 0a dd f2 73 3a |:j=3-j:.......s:| 00000410 fb 33 0d 01 18 3b e3 4a 3d 31 b8 37 32 88 33 3a |.3...;.J=1.72.3:| 00000420 e7 6d 28 74 28 4a 29 29 80 6d 28 74 28 4a 2b 31 |.m(t(J)).m(t(J+1| 00000430 29 29 80 6d 28 74 28 4a 2b 32 29 29 8c 69 3d 6a |)).m(t(J+2)).i=j| 00000440 3a 4a 3d 37 32 3a ed 3a e5 8d 54 76 41 0d 01 22 |:J=72:.:..TvA.."| 00000450 05 ed 0d 01 2c 3e 49 3d 30 3a f5 49 3d 49 2b 31 |....,>I=0:.I=I+1| 00000460 3a fd 6d 28 49 29 3d 30 84 49 3d 39 3a e7 49 3d |:.m(I)=0.I=9:.I=| 00000470 39 80 6d 28 39 29 3e 30 8c f1 8a 30 2c 32 38 29 |9.m(9)>0...0,28)| 00000480 22 47 61 6d 65 20 44 72 61 77 6e 22 3a 69 3d 33 |"Game Drawn":i=3| 00000490 0d 01 36 20 e7 69 3d 31 8c f1 8a 30 2c 32 38 29 |..6 .i=1...0,28)| 000004a0 3b 65 24 22 20 77 69 6e 73 22 3a 66 3d 66 2b 31 |;e$" wins":f=f+1| 000004b0 0d 01 40 20 e7 69 3d 32 8c f1 8a 30 2c 32 38 29 |..@ .i=2...0,28)| 000004c0 3b 67 24 22 20 77 69 6e 73 22 3a 68 3d 68 2b 31 |;g$" wins":h=h+1| 000004d0 0d 01 4a 07 e1 3a e0 0d 01 54 24 dd f2 63 3a fb |..J..:...T$..c:.| 000004e0 32 3a f1 8a 30 2c 32 34 29 22 31 20 6f 72 20 32 |2:..0,24)"1 or 2| 000004f0 20 50 6c 61 79 65 72 73 3f 22 3b 0d 01 5e 13 6f | Players?";..^.o| 00000500 24 3d be 3a e7 6f 24 3d 22 31 22 8c f2 75 0d 01 |$=.:.o$="1"..u..| 00000510 68 0e e7 6f 24 3d 22 32 22 8c f2 76 0d 01 72 1f |h..o$="2"..v..r.| 00000520 e7 97 28 6f 24 29 3c 34 39 84 97 28 6f 24 29 3e |..(o$)<49..(o$)>| 00000530 35 30 8c ef 37 3a e5 8d 44 5e 41 0d 01 7c 25 fb |50..7:..D^A..|%.| 00000540 32 3a f1 8a 30 2c 32 34 29 22 57 68 6f 20 67 6f |2:..0,24)"Who go| 00000550 65 73 20 66 69 72 73 74 20 28 31 2f 32 29 22 3b |es first (1/2)";| 00000560 0d 01 86 14 6b 24 3d be 3a e7 6b 24 3d 22 31 22 |....k$=.:.k$="1"| 00000570 8c 6b 3d 32 0d 01 90 0f e7 6b 24 3d 22 32 22 8c |.k=2.....k$="2".| 00000580 6b 3d 31 0d 01 9a 1f e7 97 28 6b 24 29 3c 34 39 |k=1......(k$)<49| 00000590 84 97 28 6b 24 29 3e 35 30 8c ef 37 3a e5 8d 74 |..(k$)>50..7:..t| 000005a0 46 41 0d 01 a4 05 e1 0d 01 ae 11 dd f2 75 3a 67 |FA...........u:g| 000005b0 24 3d 22 43 6f 6d 70 22 0d 01 b8 44 f1 8a 30 2c |$="Comp"...D..0,| 000005c0 32 34 29 22 45 6e 74 65 72 20 4e 61 6d 65 3a 20 |24)"Enter Name: | 000005d0 20 20 20 20 20 20 20 20 22 3a fb 33 3a e8 8a 31 | ":.3:..1| 000005e0 32 2c 32 34 29 65 24 3a e7 a9 28 65 24 29 3e 36 |2,24)e$:..(e$)>6| 000005f0 8c ef 37 3a fb 32 3a e5 8d 74 78 41 0d 01 c2 49 |..7:.2:..txA...I| 00000600 fb 32 3a f1 8a 30 2c 32 34 29 22 4c 65 76 65 6c |.2:..0,24)"Level| 00000610 20 28 31 20 74 6f 20 31 30 30 29 3f 22 3b c4 35 | (1 to 100)?";.5| 00000620 2c 22 20 22 29 3a f1 8a 30 2c 32 36 29 22 31 2d |," "):..0,26)"1-| 00000630 47 65 6e 69 75 73 20 31 30 30 2d 53 74 75 70 69 |Genius 100-Stupi| 00000640 64 22 3a fb 33 0d 01 cc 32 e8 8a 31 37 2c 32 34 |d":.3...2..17,24| 00000650 29 77 3a f1 8a 31 37 2c 32 34 29 3b c4 35 2c 22 |)w:..17,24);.5,"| 00000660 20 22 29 3a e7 77 3c 31 84 77 3e 31 30 30 8c ef | "):.w<1.w>100..| 00000670 37 3a e5 8d 64 4c 41 0d 01 d6 16 f1 8a 30 2c 32 |7:..dLA......0,2| 00000680 36 29 3b c4 32 30 2c 22 20 22 29 3a e1 0d 01 e0 |6);.20," "):....| 00000690 27 dd f2 76 3a f1 8a 30 2c 32 34 29 22 45 6e 74 |'..v:..0,24)"Ent| 000006a0 65 72 20 50 6c 61 79 65 72 20 31 20 4e 61 6d 65 |er Player 1 Name| 000006b0 22 3a fb 33 0d 01 ea 30 e8 8a 30 2c 32 36 29 65 |":.3...0..0,26)e| 000006c0 24 3a e7 a9 28 65 24 29 3e 36 8c f1 8a 30 2c 32 |$:..(e$)>6...0,2| 000006d0 36 29 3b c4 32 30 2c 22 20 22 29 3a ef 37 3a e5 |6);.20," "):.7:.| 000006e0 8d 64 6a 41 0d 01 f4 37 f1 8a 30 2c 32 36 29 3b |.djA...7..0,26);| 000006f0 c4 32 30 2c 22 20 22 29 3a fb 32 3a f1 8a 30 2c |.20," "):.2:..0,| 00000700 32 34 29 22 45 6e 74 65 72 20 50 6c 61 79 65 72 |24)"Enter Player| 00000710 20 32 20 4e 61 6d 65 22 3a fb 33 0d 01 fe 30 e8 | 2 Name":.3...0.| 00000720 8a 30 2c 32 36 29 67 24 3a e7 a9 28 67 24 29 3e |.0,26)g$:..(g$)>| 00000730 36 8c f1 8a 30 2c 32 36 29 3b c4 32 30 2c 22 20 |6...0,26);.20," | 00000740 22 29 3a ef 37 3a e5 8d 64 7e 41 0d 02 08 18 f1 |"):.7:..d~A.....| 00000750 8a 30 2c 32 36 29 3b c4 32 30 2c 22 20 22 29 3a |.0,26);.20," "):| 00000760 e1 3a e0 0d 02 12 d9 dd f2 61 3a ef 32 33 2c 32 |.:.......a:.23,2| 00000770 32 34 2c 32 34 2c 32 34 2c 32 34 2c 32 34 2c 32 |24,24,24,24,24,2| 00000780 34 2c 32 34 2c 32 34 2c 32 34 3a ef 32 33 2c 32 |4,24,24,24:.23,2| 00000790 32 35 2c 30 2c 30 2c 30 2c 32 35 35 2c 32 35 35 |25,0,0,0,255,255| 000007a0 2c 30 2c 30 2c 30 3a ef 32 33 2c 32 32 36 2c 32 |,0,0,0:.23,226,2| 000007b0 34 2c 32 34 2c 32 34 2c 32 35 35 2c 32 35 35 2c |4,24,24,255,255,| 000007c0 32 34 2c 32 34 2c 32 34 3a ef 32 33 2c 32 32 37 |24,24,24:.23,227| 000007d0 2c 36 2c 36 2c 36 2c 36 2c 36 2c 36 2c 33 2c 31 |,6,6,6,6,6,6,3,1| 000007e0 3a ef 32 33 2c 32 32 38 2c 39 36 2c 39 36 2c 39 |:.23,228,96,96,9| 000007f0 36 2c 39 36 2c 39 36 2c 39 36 2c 31 39 32 2c 31 |6,96,96,96,192,1| 00000800 32 38 3a ef 32 33 2c 32 32 39 2c 31 2c 33 2c 36 |28:.23,229,1,3,6| 00000810 2c 36 2c 36 2c 36 2c 36 2c 36 3a ef 32 33 2c 32 |,6,6,6,6,6:.23,2| 00000820 33 30 2c 31 32 38 2c 31 39 32 2c 39 36 2c 39 36 |30,128,192,96,96| 00000830 2c 39 36 2c 39 36 2c 39 36 2c 39 36 0d 02 1c be |,96,96,96,96....| 00000840 ef 32 33 2c 32 33 31 2c 33 2c 33 2c 36 2c 36 2c |.23,231,3,3,6,6,| 00000850 36 2c 36 2c 36 2c 36 3a ef 32 33 2c 32 33 32 2c |6,6,6,6:.23,232,| 00000860 31 39 32 2c 31 39 32 2c 39 36 2c 39 36 2c 39 36 |192,192,96,96,96| 00000870 2c 39 36 2c 39 36 2c 39 36 3a ef 32 33 2c 32 33 |,96,96,96:.23,23| 00000880 33 2c 36 2c 36 2c 36 2c 36 2c 36 2c 36 2c 33 2c |3,6,6,6,6,6,6,3,| 00000890 33 3a ef 32 33 2c 32 33 34 2c 39 36 2c 39 36 2c |3:.23,234,96,96,| 000008a0 39 36 2c 39 36 2c 39 36 2c 39 36 2c 31 39 32 2c |96,96,96,96,192,| 000008b0 31 39 32 3a ef 31 39 2c 32 2c 36 3b 30 3b 3a 66 |192:.19,2,6;0;:f| 000008c0 3d 30 3a 68 3d 30 3a de 6d 28 39 29 2c 74 28 37 |=0:h=0:.m(9),t(7| 000008d0 32 29 2c 78 28 33 36 29 3a e3 4b 3d 31 b8 37 32 |2),x(36):.K=1.72| 000008e0 3a f3 74 28 4b 29 3a ed 3a e3 79 3d 31 b8 33 36 |:.t(K):.:.y=1.36| 000008f0 3a f3 78 28 79 29 3a ed 3a e1 0d 02 26 2f dd f2 |:.x(y):.:...&/..| 00000900 62 3a ef 35 3a ec 33 32 2c 31 30 30 30 3a f1 22 |b:.5:.32,1000:."| 00000910 4e 6f 75 67 68 74 73 20 61 6e 64 20 43 72 6f 73 |Noughts and Cros| 00000920 73 65 73 22 3a ef 34 3a e1 0d 02 30 57 dd f2 72 |ses":.4:...0W..r| 00000930 3a fb 31 3a f1 8a 30 2c 33 30 29 22 53 50 41 43 |:.1:..0,30)"SPAC| 00000940 45 20 74 6f 20 70 6c 61 79 20 61 67 61 69 6e 22 |E to play again"| 00000950 3a ff 22 46 58 20 31 37 38 2c 32 35 35 2c 30 22 |:."FX 178,255,0"| 00000960 3a f5 7a 3d a5 3a fd 7a 3d 33 32 3a db 3a ff 22 |:.z=.:.z=32:.:."| 00000970 46 58 20 31 37 38 2c 30 2c 30 22 3a f2 62 3a e1 |FX 178,0,0":.b:.| 00000980 0d 02 3a 17 dd f2 70 3a e7 b3 28 31 30 30 29 3c |..:...p:..(100)<| 00000990 77 8c e5 8d 44 76 42 0d 02 44 46 e3 4a 3d 31 b8 |w...DvB..DF.J=1.| 000009a0 37 32 88 33 3a e7 6d 28 74 28 4a 29 29 2b 6d 28 |72.3:.m(t(J))+m(| 000009b0 74 28 4a 2b 31 29 29 3d 34 80 6d 28 74 28 4a 2b |t(J+1))=4.m(t(J+| 000009c0 32 29 29 3d 30 8c 4d 24 3d c3 28 74 28 4a 2b 32 |2))=0.M$=.(t(J+2| 000009d0 29 29 3a 4a 3d 37 32 3a ed 3a e1 8b ed 0d 02 4e |)):J=72:.:.....N| 000009e0 50 e3 4a 3d 31 b8 37 32 88 33 3a e7 6d 28 74 28 |P.J=1.72.3:.m(t(| 000009f0 4a 29 29 2b 6d 28 74 28 4a 2b 31 29 29 3d 32 80 |J))+m(t(J+1))=2.| 00000a00 6d 28 74 28 4a 29 29 3d 31 80 6d 28 74 28 4a 2b |m(t(J))=1.m(t(J+| 00000a10 32 29 29 3d 30 8c 4d 24 3d c3 28 74 28 4a 2b 32 |2))=0.M$=.(t(J+2| 00000a20 29 29 3a 4a 3d 37 32 3a ed 3a e1 8b ed 0d 02 58 |)):J=72:.:.....X| 00000a30 43 e3 51 3d 31 b8 33 36 88 33 3a e7 6d 28 78 28 |C.Q=1.36.3:.m(x(| 00000a40 51 29 29 80 6d 28 78 28 51 2b 31 29 29 80 6d 28 |Q)).m(x(Q+1)).m(| 00000a50 78 28 51 2b 32 29 29 3d 30 8c 4d 24 3d c3 28 78 |x(Q+2))=0.M$=.(x| 00000a60 28 51 2b 32 29 29 3a 51 3d 33 36 3a ed 3a e1 20 |(Q+2)):Q=36:.:. | 00000a70 0d 02 62 16 ed 3a e7 6d 28 35 29 3d 30 8c 4d 24 |..b..:.m(5)=0.M$| 00000a80 3d 22 35 22 3a e1 0d 02 6c 34 e7 6d 28 35 29 3d |="5":...l4.m(5)=| 00000a90 31 8c e7 6d 28 37 29 3d 30 8c 4d 24 3d 22 37 22 |1..m(7)=0.M$="7"| 00000aa0 3a e1 8b e7 6d 28 35 29 3d 31 80 6d 28 31 29 3d |:...m(5)=1.m(1)=| 00000ab0 30 8c 4d 24 3d 22 31 22 3a e1 0d 02 76 26 e3 49 |0.M$="1":...v&.I| 00000ac0 3d 32 b8 38 88 32 3a e7 6d 28 49 29 3d 30 8c 4d |=2.8.2:.m(I)=0.M| 00000ad0 24 3d c3 28 49 29 3a 49 3d 38 3a ed 3a e1 8b ed |$=.(I):I=8:.:...| 00000ae0 0d 02 80 26 e3 49 3d 31 b8 39 88 32 3a e7 6d 28 |...&.I=1.9.2:.m(| 00000af0 49 29 3d 30 8c 4d 24 3d c3 28 49 29 3a 49 3d 39 |I)=0.M$=.(I):I=9| 00000b00 3a ed 3a e1 8b ed 0d 02 8a 05 e1 0d 02 94 94 dc |:.:.............| 00000b10 31 2c 32 2c 33 2c 31 2c 33 2c 32 2c 32 2c 33 2c |1,2,3,1,3,2,2,3,| 00000b20 31 2c 34 2c 35 2c 36 2c 34 2c 36 2c 35 2c 35 2c |1,4,5,6,4,6,5,5,| 00000b30 36 2c 34 2c 37 2c 38 2c 39 2c 37 2c 39 2c 38 2c |6,4,7,8,9,7,9,8,| 00000b40 38 2c 39 2c 37 2c 31 2c 34 2c 37 2c 31 2c 37 2c |8,9,7,1,4,7,1,7,| 00000b50 34 2c 34 2c 37 2c 31 2c 32 2c 35 2c 38 2c 32 2c |4,4,7,1,2,5,8,2,| 00000b60 38 2c 35 2c 35 2c 38 2c 32 2c 33 2c 36 2c 39 2c |8,5,5,8,2,3,6,9,| 00000b70 33 2c 39 2c 36 2c 36 2c 39 2c 33 2c 31 2c 35 2c |3,9,6,6,9,3,1,5,| 00000b80 39 2c 31 2c 39 2c 35 2c 35 2c 39 2c 31 2c 33 2c |9,1,9,5,5,9,1,3,| 00000b90 35 2c 37 2c 33 2c 37 2c 35 2c 35 2c 37 2c 33 0d |5,7,3,7,5,5,7,3.| 00000ba0 02 9e 4c dc 32 2c 36 2c 33 2c 32 2c 34 2c 31 2c |..L.2,6,3,2,4,1,| 00000bb0 34 2c 38 2c 37 2c 36 2c 38 2c 39 2c 31 2c 38 2c |4,8,7,6,8,9,1,8,| 00000bc0 37 2c 31 2c 36 2c 33 2c 32 2c 37 2c 31 2c 32 2c |7,1,6,3,2,7,1,2,| 00000bd0 39 2c 33 2c 34 2c 33 2c 31 2c 34 2c 39 2c 37 2c |9,3,4,3,1,4,9,7,| 00000be0 36 2c 37 2c 39 2c 33 2c 38 2c 39 0d ff |6,7,9,3,8,9..| 00000bed