Radio Shack TRS-80 PC-3 Owner's Manual page 274

PROGRAM LIST
1e:
V
A
V
:
USING: WAIT 20
13: PRINT "MEMORY CHE
CK": CLEAR : RANDOM
2e:DIM G$(6)*1,N$(le)*1
,V$(3)*3,X$(3)*6,Z$(
3)*3,Y$(3)*6
30:FOR I=l TO 9:N$(I)=
STR$ I: NEXT I:N$(le
)="13"
5e:FOR I=l TO 6
6e:J= RND 26:J=J+64
7e:G$(I)= CHR$ (J):
NEXT I
ae:FOR I=l TO 3
ge:Y$(I)=" "
1ee:FOR J=l TO 3:K= RND
9
110:Y$(I)=Y$(I)+N$(K):
NEXT J
12e:L= RND 9:J=(I-1)*2+1
13e:A$(I)=G$(J)+G$(J+1)+
N$(U
140:H$=Y$(I):A$(I+3)=
RIGHT$ (H$,3): NEXT
15e:GOSUB 5130
160:FOR I=l TO 3
1713: INPUT " ANS. =
";X$
(I):X$(I)= LEFT$
(X$
(I),6)
1ae:Z$(I)= LEFT$ (X$(I),
3)
1ge:Y$(I)= RIGHT$ (X$(I)
,3): NEXT I
2ee:GOSUB 5213: GOSUB 5130
: GOSUB 5213
21e:N=e
22e:FOR I=l TO 3
2313: IF A$(I)=Z$(I) LET N
=N+1
2413: IF A$(I+3)=Y$(I) LET
N=N+1
25e:NEXT I
26e:N=N+1
27e:WAIT 1513: ON N GOTO
31313,318,3213,3313,348,
3513,368
3ee:BEEP 1: PRINT" IDI
OT": GO TO 3713
31e:BEEP 1: PRINT" BAD
": GO TO 3713
32e:BEEP 2: PRINT" AVE
RAGE": GOTO 3713
33e:BEEP 2: PRINT 9 OK
9: GOTO 3713
34e:BEEP 3: PRINT 9 GO
ODI": GOTO 3713
35e:BEEP 4: PRINT "* INT
ELLIGENT *": GOTO 37
13
279
36e:BEEP 5: PRINT "**GEN
IUS**"
37e:W$="": BEEP
1:
INPUT
"* REPLAY (Y/N)
? ";
W$
38e:IF W$=9N 9 THEN 61313
3ge:IF W$="Y" THEN 50
395:GOTO 3713
4ee:GOTO 3713
5ee:WAIT 31313: BEEP 2:
PRINT A$(1)jA$(4)j"
";A$(2);A$(5); "
";A${3);A$(6)
51e:RETURN
52e:WAIT ae: BEEP 1:
PRINT USING "&&&&&&V
;X$(l); USING ;v
; USING "&&&&&&";X$(
2); USING;v ";
USING "&&&&&&V;X$(3)
525:USING
530:RETURN
60e:END
a91