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

PROGRAM LIST
10: "A": CLEAR : WAIT 50
: RANDOM : DIM B$(4)
20:PAUSE vDOU3LE ROTATI
ON v
30:3$(0)=vA3CDEFGHIJv
40: 3$(
1
)="
v
50:A=0
60:FOR 1=1 TO 10
70:R= RND 10
80:S=2r\(R-1)
85:3=S AND A
90:IF 3<>0 GOTO 70
100:A=A OR S
110:3$(1)=3$(1)+ MID$ (3
$(0),R,1): NEXT I
20: 3$(2)=3$( 1)
30:N=0
50:3EEP 1
70:D$=vv: PRINT 3$(2):D
$= INKEY$
80:C= VAL D$
90:IF C=0 GOTO 170
10:3$(3)= LEFT$ (3$(2),
C)
220:3$(4)= RIGHT$ (3$(2)
,10-0
240:IF C=l GO TO 260
250:3$(3)= RIGHT$ (3$(3)
,1)+ LEFT$ (3$(3),C-
1)
260:IF C=9 GOTO 280
270:3$(4)= RIGHT$ (3$(4)
,9-C)+ LEFT$ (3$(4),
280:B$(2)=B$(3)+3$(4)
290:N=N+1
300:IF B$(2)<>3$(0) GOTO
150
310:BEEP 5: PAUSE vGAME
END
v
320:WAIT 200: PRINT
USING VttttttttV;vYOUR S
COREv;N
330:END
400: v 3 v : WAIT 50: GOTO 1
20
471
290