VTech Type-right Manual page 55

LEVEL 3
100 REM MARK SIX GENERATOR PROGRAM
105 PRINT TAB( 3) : PRINT "MARK SIX
120 DIM T(36)
135 REM SET UP ONE DIMENSION ARRAY
140 FOR I = 1 TO 36
150 T(I) = 0
160 NEXT I
170 REM RANDOM NUMBER GENERATOR
175 FOR J = 1 TO 5
180 FOR K = 1 TO 6
190 A = INT ( RND (1) * 36 + 1)
195 REM TEST FOR REPETITION
200 IF T(A) = 1 THEN 190
210 T(A) = 1
230 NEXT K
240 REM PRINTOUT ONE SET
242 FOR U = 1 TO 36
244 IF T(U) = 1 THEN PRINT " "U;
245 T(U) = 0
246 NEXT U
248 PRINT
250 NEXT J
255 PRINT : PRINT
260 INPUT "ANOTHER SET
265 PRINT : PRINT
270 IF LEFT$ (N$,1) =
"Y"
THEN RUN
NUMBER": PRINT
FLAG
OF NUMBERS ";N$
54