Source Code
10 REM PSYCHIC
20 REM SYNC JAN/FEB 84 PP 19-20
30 REM GAME
40 DIM R$(9,3)
50 FOR A=1 TO 9
60 FOR B=1 TO 3
70 LET R$(A,B)=CHR$ (34+A*3+B)
80 NEXT B
90 NEXT A
100 LET R$(9,3)=" "
110 FOR I=1 TO 30
120 LET A=INT (RND*9)+1
130 LET B=INT (RND*3)+1
140 LET T$=R$(A,B)
150 LET R$(A,B)=R$(5,2)
160 LET R$(5,2)=T$
170 NEXT I
180 FOR I=1 TO 3
190 PRINT TAB 4;"ROW 1";TAB 13;"ROW 2";TAB 22;"ROW 3",,
200 FOR A=1 TO 9
210 PRINT TAB 6;
220 FOR B=1 TO 3
230 PRINT R$(A,B);" ";
240 NEXT B
250 PRINT
260 NEXT A
270 PRINT "ENTER THE ROW CONTAINING YOUR LETTER."
280 INPUT C
290 IF C<1 OR C>3 THEN GOTO 280
300 IF I=3 THEN GOTO 470
310 FOR A=1 TO 9
320 LET T$=R$(A,2)
330 LET R$(A,2)=R$(A,C)
340 LET R$(A,C)=T$
350 NEXT A
360 LET T$=""
370 FOR A=1 TO 3
380 FOR B=1 TO 9
390 LET T$=T$+R$(B,A)
400 NEXT B
410 NEXT A
420 FOR A=1 TO 9
430 FOR B=1 TO 3
440 LET R$(A,B)=T$(A*3+B-3)
450 NEXT B
460 NEXT A
470 CLS
480 NEXT I
490 PRINT ,,"I MYSTICALLY PERCEIVE YOUR","LETTER TO BE ";R$(5,C);"."
500 PRINT "WOULD YOU LIKE TO TEST MY MAGIC ABILITIES AGAIN?(Y/N)"
510 INPUT T$
520 CLS
530 IF (T$+" ")(1)="Y" THEN GOTO 180
600 STOP
700 SAVE "1014%4"
710 RUN
