image of READY prompt

Wang2200.org

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)