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