Ohio Lottery

Developer(s): Algis Gedris
Date: 1986
Type: Program
Platform(s): TS 2068

Picks lottery numbers for the weekly and monthly Ohio Lottery, circa 1986.

Content

Appears On

Library tape of the Indiana Sinclair Timex User’s Group.

Related Products

Related Articles

Related 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"
Scroll to Top