Listing of file='TICCIE' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 372, program filename = 'TICCIE' 0010 DIM P(9),N$(2) : H=0 : REM R.S. AND A.B. 0020 FOR Z=1TO 9 : P(Z)=INT(100*RND(P(Z)+1)+10) : NEXT Z 0030 PRINT HEX(03);"THIS IS COMPUTER TIC TAC TOE " 0040 PRINT : PRINT : PRINT : N$(1)="PLAYER 1" : N$(2)="PLAYER 2" 0050 INPUT "YOUR NAMES",N$(1),N$(2) 0060 PRINT HEX(03) 0070 SELECT P0 0080 PRINT TAB(19);"XX";TAB(40);"XX" 0090 PRINT "1";TAB(19);"XX";TAB(22);"2";TAB(40);"XX";" 3" 0100 PRINT TAB(19);"XX";TAB(40);"XX" 0110 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 0120 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 0130 PRINT TAB(19);"XX";TAB(40);"XX" 0140 PRINT "4";TAB(19);"XX";TAB(22);"5";TAB(40);"XX";" 6" 0150 PRINT TAB(19);"XX";TAB(40);"XX" 0160 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 0170 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 0180 PRINT TAB(19);"XX";TAB(40);"XX" 0190 PRINT "7";TAB(19);"XX";TAB(22);"8";TAB(40);"XX";" 9" 0200 PRINT TAB(19);"XX";TAB(40);"XX" 0210 PRINT N$((SGN(T/2-INT(T/2)))+1);", WHAT IS YOUR MOVE? (NUMBER)" 0220 INPUT Z : IF P(Z)<>1 THEN 230 : PRINT "ALREADY TAKEN"; : T=T-1 : GOTO 610 0230 P(Z)=SGN(T/2-INT(T/2))+1 0240 ON Z GOTO 250,270,290,310,330,350,370,390,410 0250 PRINT HEX(010A) 0260 GOTO 460 0270 PRINT HEX(010A090909090909090909090909090909090909090909) 0280 GOTO 460 0290 PRINT HEX(010A09090909090909090909090909090909090909090909090909090909090 9090909090909090909090909) 0300 GOTO 460 0310 PRINT HEX(010A0A0A0A0A0A) 0320 GOTO 460 0330 PRINT HEX(010A0A0A0A0A0A09090909090909090909090909090909090909090909) 0340 GOTO 460 0350 PRINT HEX(010A0A0A0A0A0A0909090909090909090909090909090909090909090909090 90909090909090909090909090909090909) 0360 GOTO 460 0370 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A) 0380 GOTO 460 0390 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A090909090909090909090909090909090909090 909) 0400 GOTO 460 0410 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A090909090909090909090909090909090909090 909090909090909090909090909090909090909090909) 0420 GOTO 460 0430 PRINT HEX(010A0A0A0A0A0A0A0A0A0A09090909090909090909090909090909090909090 90909090909090909090909090909090909090909090909) 0440 GOTO 460 0450 PRINT HEX(010A0A0A0A0A0A0A0A0A0A09090909090909090909090909090909090909090 9090909090909090909090909090909090909090909) 0460 PRINT HEX(090909090909); : IF T/2=INT(T/2)THEN 480 0470 PRINT "O O" : GOTO 610 0480 PRINT "X X" 0490 H=H+1 0500 IF P(1)+P(2)+P(3)=P(1)*3THEN 600 0510 IF P(4)+P(5)+P(6)=P(4)*3THEN 600 0520 IF P(7)+P(8)+P(9)=P(7)*3THEN 600 0530 IF P(1)+P(4)+P(7)=P(1)*3THEN 600 0540 IF P(2)+P(5)+P(8)=P(2)*3THEN 600 0550 IF P(3)+P(6)+P(9)=P(3)*3THEN 600 0560 IF P(1)+P(5)+P(9)=P(1)*3THEN 600 0570 IF P(3)+P(5)+P(7)=P(3)*3THEN 600 0580 GOTO 610 0590 IF H=9 THEN 630 0600 PRINT HEX(0309090909090909090909090909090909090909090909090A0A0A0A0A);N$( (SGN(T/2-INT(T/2)))+1);", YOU WON" : END 0610 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A) : PRINT TAB(63);" " 0620 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A); : T=T+1 : IF T=9 THEN 630 : GOTO 210 0630 PRINT HEX(030909090909090909090909090909090A0A0A0A0A0A0A0A0A0A);"IT WAS A TIE BETWEEN ";N$(1);" AND ";N$(2)