Picks lottery numbers for the weekly and monthly Ohio Lottery, circa 1986.
Content
Image Gallery
Source Code
10 REM O H I O L O T T E R Y PROGRAM WRITTEN BYALGIS E. GEDRIS355 ROYAL OAK BLVD.RICHMOND HEIGHTS, OH44143-1709PHONE- (216) 481-8205REVISION 1.0 1.1 BY PEH Software
20 BORDER 1: PAPER 2: INK 7
30 CLS : POKE 23658,8
40 POKE 23609,45
50 PRINT INK 6'" ALGIS E. GEDRIS PRESENTS "
60 PRINT '" L O T T E R Y N U M B E R S "
70 PRINT 'TAB 10;" M E N U "
80 PRINT ''TAB 7;"OHIO LOTTERY ... O"
90 PRINT 'TAB 7;"DAILY LOTTERY .. D"
100 PRINT ''" ENTER Z FOR COPY SCREEN... Z"
110 PRINT 'TAB 7;"L FOR LINE PRINT ... L"
120 PRINT 'TAB 7;"N RETURN TO MENU ... N"
130 PRINT '"MAY/1986"
140 INPUT H$
150 IF H$="O" THEN GO TO 350
160 IF H$="D" THEN GO TO 180
170 GO TO 20
180 CLS
190 INPUT "NUMBER OF DIGITS = ";N
200 DIM A(N)
210 FOR I=1 TO N
220 LET I=I
230 LET A(I)=INT (RND*50)
240 IF A(I)>9 THEN GO TO 230
250 PRINT A(I);" ";
260 NEXT I
270 INPUT ">ENTER< FOR MORE NUMBERS ";K$
280 IF K$="" THEN PRINT ': GO TO 210
290 IF K$="Z" THEN COPY : PRINT ': GO TO 210
300 IF K$="L" THEN GO TO 320
310 RUN
320 IF N=4 THEN LPRINT A(1);" ";A(2);" ";A(PI);" ";A(4): PRINT ': GO TO 210
330 IF N=3 THEN LPRINT A(1);" ";A(2);" ";A(PI): PRINT ': GO TO 210
340 STOP
350 CLS
360 BORDER 2: PAPER 6: INK 0
370 CLS
380 DIM A(6)
390 FOR I=1 TO 6
400 LET I=I
410 LET A(I)=INT (RND*50)
420 IF A(I)>44 THEN GO TO 410
430 IF A(I)<1 THEN GO TO 410
440 IF I=1 THEN GO TO 700
450 IF I=2 THEN GO TO 500
460 IF I=3 THEN GO TO 520
470 IF I=4 THEN GO TO 550
480 IF I=5 THEN GO TO 590
490 IF I=6 THEN GO TO 640
500 IF A(2)=A(1) THEN GO TO 410
510 GO TO 700
520 IF A(PI)=A(1) THEN GO TO 410
530 IF A(PI)=A(2) THEN GO TO 410
540 GO TO 700
550 IF A(4)=A(1) THEN GO TO 410
560 IF A(4)=A(2) THEN GO TO 410
570 IF A(4)=A(PI) THEN GO TO 410
580 GO TO 700
590 IF A(5)=A(1) THEN GO TO 410
600 IF A(5)=A(2) THEN GO TO 410
610 IF A(5)=A(PI) THEN GO TO 410
620 IF A(5)=A(4) THEN GO TO 410
630 GO TO 700
640 IF A(6)=A(1) THEN GO TO 410
650 IF A(6)=A(2) THEN GO TO 410
660 IF A(6)=A(PI) THEN GO TO 410
670 IF A(6)=A(4) THEN GO TO 410
680 IF A(6)=A(5) THEN GO TO 410
690 GO TO 700
700 IF A(I)<10 THEN PRINT " ";A(I);" ";: GO TO 720
710 PRINT A(I);" ";
720 NEXT I
730 INPUT ">ENTER< FOR MORE NUMBERS ";K$
740 IF K$="" THEN PRINT ': GO TO 390
750 IF K$="Z" THEN COPY : GO TO 350
760 IF K$="L" THEN LPRINT A(1);" ";A(2);" ";A(PI);" ";A(4);" ";A(5);" ";A(6): PRINT ': GO TO 380
770 RUN
780 SAVE "OH LOTTERY" LINE 1
790 BEEP 1,10: VERIFY "OH LOTTERY"