THE
PAST
MASTER
CLUB
3D TIC TAC TOE.HTM
10 '' 3DTTT.BAS COPYRIGHTED NICK VAN VLIET 1993 TRANSLATED OCT/99
20 Q=1:F=Q-Q:R=Q+Q:P=R+Q:S=P+Q:D=S+Q:T=D+Q:U=T+Q:V=U+Q:W=V+Q:X=15:Y=20
30 COLOR X,F,P:CLS:COLOR 11,S,P:N=189:M=E^P:Z$="1315101816"
40 LOCATE Q,Q:PRINT"CODEBREAKER ";:COLOR F,S:PRINT" NICK VAN VLIET ";
50 COLOR X,D:PRINT " ";:PRINT DATE$;" ";:PRINT TIME$;:PRINT" ";:
COLOR X,F
60 PRINT " 3D TIC TAC TOE ":COLOR X,F
70 '' SCREEN 0,0,0
80 GOSUB 7000
90 FOR Z=1 TO 27
100 GOSUB 8000
110 'LOCATE 3+C*6+A*4,20+B*10-C*6:PRINT Z
120 NEXT Z
130 Y$="'O'":Y=0
140 LOCATE 23,42:PRINT"YOUR TURN ";Y$;" "
150 LOCATE 23,56:INPUT Z:IF Z=1 OR Z=2 OR Z=5 THEN GOTO 160 ELSE GOTO 140
160 GOSUB 6000
170 LOCATE 18,42:PRINT" "
180 IF INKEY$=""THEN GOTO 190
190 LOCATE 20,42:PRINT" "
200 FOR I=1 TO 9 STEP 2
210 IF Y$="'O'" THEN Y$="'X'" ELSE Y$="'O'"
220 Y=VAL(MID$(Z$,I,2))
230 LOCATE 23,42:PRINT"YOUR TURN ";Y$;" "
240 IF Y$="'O'" THEN LOCATE 23,56:INPUT Z:IF Z<1 OR Z>27 THEN GOTO 240
250 IF Y$="'X'" THEN Z=Y:LOCATE 20,42:PRINT "I PLACED MY 'X' AT ";Z;" "
260 GOSUB 6000
270 IF Y<>Z THEN 300
280 NEXT I
290 GOTO 320
300 Y$="'X'":Z=Y
310 GOSUB 6000
320 LOCATE 23,42:PRINT"COMPUTER WON !!!! ";
330 INPUT A$
340 CHAIN"GAME
6000 'PRINT MOVE
6010 GOSUB 8000
6020 LOCATE 3+C*6+A*4,20+B*10-C*6:PRINT Y$
6030 RETURN
7000 PRINT" 1---------4---------7 "
7010 PRINT" /| /| /| "
7020 PRINT" / | / | / | "
7030 PRINT" / | / | / | "
7040 PRINT" / 10----/---13----/---16"
7050 PRINT" / /| / /| / /| "
7060 PRINT" 2---------5---------8 / | "
7070 PRINT" /| / | /| / | /| / | "
7080 PRINT" / | / 19/-|-/---22/-+-/---25"
7090 PRINT" / |/ / / |/ / / |/ / "
7100 PRINT" / 11----/--'X'----/---17 / "
7110 PRINT" / /| / / /| / / /| / "
7120 PRINT" 3---------6---------9 / | / "
7130 PRINT" | / |/ | / |/ | / |/ "
7140 PRINT" | / 20--|-/---23--|-/---26"
7150 PRINT" |/ / |/ / |/ / I STARTED MY 'X' AT 14"
7160 PRINT" 12--------15--------18 / "
7170 PRINT" | / | / | / PLEASE START YOUR 'O' AT 1, 2 OR 5. "
7180 PRINT" | / | / | / "
7190 PRINT" |/ |/ |/ "
7200 PRINT" 21--------24--------27 "
7210 RETURN
8000 A=INT((Z-.5)/9)
8010 D=Z-9*A
8020 B=INT((D-.5)/P)
8030 C=D-P*B-1
8060 RETURN
9000 '' SYSTEM
9010 '' CLS
9020 '' SAVE"3DTTT.BAS"
9030 '' COLOR 15,1,1
END
RETURN TO TOP
RETURN TO PMC MENU
HOME PAGE
You are visitor no.