Guess It

Date: April 1983
Type: Program
Platform(s): TS 1000

Content

Appears On

Cassette to accompany the April 1983 issue of Synchro-Sette.

Related Products

Related Articles

Related Content

Image Gallery

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

People

No people associated with this content.

Scroll to Top