Source Code
5 FAST
6 RAND
10 DIM A(6,8)
20 LET B=0
30 LET C=0
40 LET A$="\' \ '\ .\. \: \..\''\ :\.:\:.\:'\':"
50 FOR I=1 TO 12
60 FOR J=1 TO 4
70 LET X=INT (RND*6+1)
80 LET Y=INT (RND*8+1)
90 IF A(X,Y)<>0 THEN GOTO 70
100 LET A(X,Y)=I
110 NEXT J
120 NEXT I
130 PRINT AT 1,11;"% %G%U%E%S%S% % %B%A%C%K% "
140 PRINT AT 3,10;"1 2 3 4 5 6 7 8"
150 FOR I=1 TO 6
160 PRINT AT 2*I+3,8;I;
170 PRINT "\@@%?\@@%?\@@%?\@@%?\@@%?\@@%?\@@%?\@@%?\@@"
180 NEXT I
185 SLOW
190 LET Z=1
200 PRINT AT 17,6;"PLAYER ";Z;" GOES"
210 GOSUB 230
220 GOTO 200
230 PRINT AT 19,15;"1ST"
240 INPUT X
250 INPUT Y
260 LET F=A(X,Y)
270 PRINT AT 2*X+3,2*Y+8;A$(F)
280 PRINT AT 19,15;"2ND"
290 INPUT R
300 INPUT T
310 LET S=A(R,T)
320 PRINT AT 2*R+3,2*T+8;A$(S)
330 PAUSE 100
340 IF F=S THEN GOTO 440
350 IF Z=1 THEN GOTO 380
360 LET Z=1
370 GOTO 390
380 LET Z=2
390 LET Y$="%?"
400 PRINT AT 19,15;"NO "
410 PRINT AT 2*X+3,2*Y+8;Y$
420 PRINT AT 2*R+3,2*T+8;Y$
430 RETURN
440 PRINT AT 19,15;"OK "
450 LET Y$=" "
460 IF Z=1 THEN GOTO 500
470 LET C=C+1
480 PRINT AT 11,29;C
490 GOTO 520
500 LET B=B+1
510 PRINT AT 11,3;B
520 IF B+C<>24 THEN GOTO 410