Ohio Lottery

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"