image of READY prompt

Wang2200.org

Listing of file='31B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 312, program filename = '31B'
0005 PRINT "***TIC-TAC-TOE***"
0010 PRINT
0015 PRINT "MACHINE MOVES DESIGNATED BY '0', YOUR MOVES DESIGNATED BY"
0020 PRINT "'11', AVAILABLE SPACES DESIGNATED BY A DIGIT FROM 1-9."
0025 PRINT "THE MACHINE MOVES FIRST.  TO ENTER YOUR MOVE, TYPE THE "
0030 PRINT "DIGIT OF THE SPACE YOU WISH TO OCCUPY FOLLOWED BY A "
0031 PRINT "CARRIAGE RETURN."
0035 PRINT
0050 DIM T(9)
0055 FOR I=1 TO 9
0060     T(I)=I
0070 NEXT I
0075 B=9
0100 DEFFNC(X)=X-8*INT((X-1)/8)
0110 GOSUB 300
0120 GOSUB 400
0130 J=0
0140 J=J+1
0145 IF J=4 THEN 250
0150 B=FNC(P+1)
0170 GOSUB 300
0180 GOSUB 400
0190 IF P=FNC(B+4) THEN 140
0200 B=FNC(B+4)
0220 GOSUB 300
0230 GOTO 500
0250 B=FNC(P+5)
0260 GOSUB 300
0270 PRINT
0280 PRINT "GAME IS A DRAW"
0295 GOTO 600
0300 T(B)=0
0305 PRINT TAB(18);T(1);TAB(24);T(2);TAB(30);T(3)
0310 PRINT TAB(18);T(8);TAB(24);0;TAB(30);T(4)
0320 PRINT TAB(18);T(7);TAB(24);T(6);TAB(30);T(5)
0330 RETURN
0400 PRINT
0410 PRINT "YOUR MOVE";
0420 INPUT P
0430 T(P)=11
0435 PRINT
0440 RETURN
0500 PRINT
0510 PRINT "**COMPUTER WINS**"
0600 PRINT
0610 PRINT "TYPE '1' TO PLAY AGAIN, TYPE '0' TO END PROGRAM"
0620 INPUT N
0625 PRINT
0630 IF N=1 THEN 55
0999 END