Lotto

  2 REM "Lotto by Paul Hill,Feb. 1985 Johnson City,NY (SINCUS)
  8 REM ++set array of 44++
 10 DIM m(4,11)
 15 LET n=PI/PI
 20 FOR a=1 TO 4
 30 FOR b=1 TO 11
 40 LET m(a,b)=n
 50 LET n=n+1
 60 NEXT b
 70 NEXT a
100 REM ++place numbers++
104 FOR t=1 TO 2
105 LET r=2
120 FOR a=1 TO 4
125 LET c=0
130 FOR b=1 TO 11
140 PRINT AT r,c;m(a,b)
143 LET c=c+3
148 IF c>31 THEN  LET c=0
150 NEXT b
160 LET r=r+2
170 NEXT a
200 REM ++move cursor "↑"++
202 DIM s$(6,2)
205 FOR s=1 TO 6
220 PRINT AT 19,0;"Use Arrow KEYS to move cursor-↑"
225 PRINT """ENTER"" KEY to select number"
280 LET r=3: LET c=0: LET a$="↑"
281 PRINT AT r,c;a$: PAUSE 0: PRINT AT r,c;" "
282 LET c=c+3*((INKEY$="8" AND c<30)-( INKEY$="5" AND c>0))
284 LET r=r+2*((INKEY$="6" AND r<9)-(INKEY$="7" AND r>3))
289 IF INKEY$=CHR$ 13 THEN  GO TO 300
292 GO TO 221
300 REM ++save number in s$++
320 PRINT AT r,c;a$
340 LET s$(s, TO 2)=STR$ m((r-1)/2,(c/30*10+1))
342 IF s>=2 THEN  GO SUB 400
345 PRINT AT 15,0; INVERSE 1;"Your pick of Lotto numbers"
350 PRINT AT 16,s*3;s$(s, TO 2);" ";
352 PRINT AT r-1,c; BRIGHT 1; INVERSE 1;s$(s, TO 2)
355 PRINT AT r,c;" "
356 LET r=3: LET c=0
360 NEXT s
365 CLS
370 NEXT t
390 STOP
400 REM ++chek for repete++
410 FOR w=1  TO s-1
420 IF s$(s, TO 2)=s$ w, TO 2) THEN  GO TO 450
430 NEXT w
440 RETURN
450 REM ++ reset for repete ++
460 PRINT AT r,c;" "
470 PRINT  FLASH 1;AT 15,13;"REPEAT"
490 GO TO 205