Content
Image Gallery
Source Code
5 REM RESET 1984 Rights Reserved Program by Michael J. Kudelka
10 REM PROGRAM "lottery"
20 PRINT AT 0,0;"The computer selects lotterynumbers 1-44 at random for you."
30 PRINT AT 3,0;"Each game consists of 6 numbers.One set of 10 games A-J islisted on the screen with anoption to copy on the printer."
40 PRINT AT 8,0;" "
50 FLASH 1: PRINT AT 8,13;"OPTIONS": FLASH 0
60 PRINT AT 10,0;"At the bottom of the screenafter the 10 games are listedyou will be given two options."
70 PRINT AT 14,0;"Option 1. Copy? (y)es or (n)o.": PRINT AT 15,0;"_________"
80 PRINT AT 17,0;"Option 2. Stop? (y)es or (n)o.": PRINT AT 18,0;"_________"
90 PRINT AT 20,0;"████ ████"
91 PRINT AT 21,0;" "
95 FLASH 1: PRINT AT 20,5;"PRESS ANY KEY TO START": FLASH 0
100 IF INKEY$="" THEN GO TO 100
105 CLS
115 LET L=0
120 PRINT AT 0,2;"LOTTERY NUMBERS FOR TEN GAMES"
125 DIM G$(10,1)
130 LET G$(1)="A"
135 LET G$(2)="B"
140 LET G$(3)="C"
145 LET G$(4)="D"
150 LET G$(5)="E"
155 LET G$(6)="F"
160 LET G$(7)="G"
165 LET G$(8)="H"
170 LET G$(9)="I"
175 LET G$(10)="J"
180 FOR K=1 TO 10
185 LET L=L+2
190 GO SUB 1000
195 LET A=X
200 GO SUB 1000
205 IF X=A THEN GO TO 200
210 LET B=X
215 IF X<A THEN LET B=A
220 IF X<A THEN LET A=X
225 GO SUB 1000
230 IF X=A OR X=B THEN GO TO 225
235 LET C=X
240 IF X<A THEN LET C=B
245 IF X<A THEN LET B=A
250 IF X<A THEN LET A=X
255 IF X>A AND X<B THEN LET C=B
260 IF X>A AND X<B THEN LET B=X
265 GO SUB 1000
270 IF X=A OR X=B OR X=C THEN GO TO 265
275 LET D=X
280 IF X<A THEN LET D=C
285 IF X<A THEN LET C=B
290 IF X<A THEN LET B=A
295 IF X<A THEN LET A=X
300 IF X>A AND X<B THEN LET D=C
305 IF X>A AND X<B THEN LET C=B
310 IF X>A AND X<B THEN LET B=X
315 IF X>B AND X<C THEN LET D=C
320 IF X>B AND X<C THEN LET C=X
325 GO SUB 1000
330 IF X=A OR X=B OR X=C OR X=D THEN GO TO 325
335 LET E=X
340 IF X<A THEN LET E=D
345 IF X<A THEN LET D=C
350 IF X<A THEN LET C=B
355 IF X<A THEN LET B=A
360 IF X<A THEN LET A=X
365 IF X>A AND X<B THEN LET E=D
370 IF X>A AND X<B THEN LET D=C
375 IF X>A AND X<B THEN LET C=B
380 IF X>A AND X<B THEN LET B=X
385 IF X>B AND X<C THEN LET E=D
390 IF X>B AND X<C THEN LET D=C
395 IF X>B AND X<C THEN LET C=X
400 IF X>C AND X<D THEN LET E=D
405 IF X>C AND X<D THEN LET D=X
410 GO SUB 1000
415 IF X=A OR X=B OR X=C OR X=D OR X=E THEN GO TO 410
420 LET F=X
425 IF X<A THEN LET F=E
430 IF X<A THEN LET E=D
435 IF X<A THEN LET D=C
440 IF X<A THEN LET C=B
445 IF X<A THEN LET B=A
450 IF X<A THEN LET A=X
455 IF X>A AND X<B THEN LET F=E
460 IF X>A AND X<B THEN LET E=D
465 IF X>A AND X<B THEN LET D=C
470 IF X>A AND X<B THEN LET C=B
475 IF X>A AND X<B THEN LET B=X
480 IF X>B AND X<C THEN LET F=E
485 IF X>B AND X<C THEN LET E=D
490 IF X>B AND X<C THEN LET D=C
495 IF X>B AND X<C THEN LET C=X
500 IF X>C AND X<D THEN LET F=E
505 IF X>C AND X<D THEN LET E=D
510 IF X>C AND X<D THEN LET D=X
515 IF X>D AND X<E THEN LET F=E
520 IF X>D AND X<E THEN LET E=X
525 PRINT AT L,0;"Game ";G$(K)
530 IF A<=9 THEN PRINT AT L,11;A
535 IF A>=10 THEN PRINT AT L,10;A
540 IF B<=9 THEN PRINT AT L,15;B
545 IF B>=10 THEN PRINT AT L,14;B
550 IF C<=9 THEN PRINT AT L,19;C
555 IF C>=10 THEN PRINT AT L,18;C
560 IF D<=9 THEN PRINT AT L,23;D
565 IF D>=10 THEN PRINT AT L,22;D
570 IF E<=9 THEN PRINT AT L,27;E
575 IF E>=10 THEN PRINT AT L,26;E
580 IF F<=9 THEN PRINT AT L,31;F
585 IF F>=10 THEN PRINT AT L,30;F
590 NEXT K
595 IF L=20 THEN GO TO 610
600 GO TO 125
610 FLASH 1: PRINT AT 21,0;"COPY?": FLASH 0: PRINT AT 21,6;"Press (y) or (n) and ENTER"
615 INPUT P$
620 IF p$="y" THEN GO TO 630
625 IF P$="n" THEN GO TO 655
630 PRINT AT 21,0;" "
635 COPY
640 LPRINT "--------------------------------"
650 LPRINT
655 FLASH 1: PRINT AT 21,0;"STOP?": FLASH 0: PRINT AT 21,6;"Press (y) or (n) and ENTER"
660 INPUT S$
665 IF S$="y" THEN GO TO 675
670 IF S$="n" THEN GO TO 105
675 PRINT AT 21,0;"█████████████ █████████████": FLASH 1: PRINT AT 21,14;"STOP": FLASH 0
680 PAUSE 200
690 FLASH 1: PRINT AT 21,0;"QUIT?": FLASH 0: PRINT AT 21,5;" Press (y) or (n) and ENTER"
700 INPUT T$
705 IF T$="y" THEN GO TO 1020
710 IF T$="n" THEN CLS : GO TO 20
1000 LET x=INT (RND*44)+1
1005 RETURN
1010 SAVE "lottery" LINE 1
1015 GO TO 20
1020 CLS
1025 PRINT AT 2,0;"You have now destroyed this";AT 4,0;"program. If you wish to";AT 6,0;"continue, you must reload."
1030 PAUSE 1000
1035 NEW Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.