RANDOM LOTTO.C

00000000: 01 08 16 08 0A 00 8F 20  22 52 41 4E 44 4F 4D 20  |....... "RANDOM |
00000010: 4C 4F 54 54 4F 22 00 31  08 0B 00 8F 20 46 4F 52  |LOTTO".1.... FOR|
00000020: 20 54 48 45 20 43 4F 4D  4D 4F 44 4F 52 45 20 36  | THE COMMODORE 6|
00000030: 34 00 37 08 0C 00 8F 00  5B 08 0F 00 8F 20 54 49  |4.7.....[.... TI|
00000040: 54 4C 45 2C 20 49 4E 54  52 4F 20 41 4E 44 20 4D  |TLE, INTRO AND M|
00000050: 45 4E 55 20 53 45 47 4D  45 4E 54 00 61 08 10 00  |ENU SEGMENT.a...|
00000060: 8F 00 79 08 14 00 99 20  C7 28 31 34 37 29 20 3A  |..y.... .(147) :|
00000070: 20 99 20 C7 28 31 35 38  29 00 91 08 19 00 97 20  | . .(158)...... |
00000080: 35 33 32 38 30 2C 37 3A  97 20 35 33 32 38 31 2C  |53280,7:. 53281,|
00000090: 36 00 A1 08 1E 00 81 20  4E B2 31 20 A4 20 33 30  |6...... N.1 . 30|
000000A0: 30 00 B9 08 28 00 99 20  22 20 52 41 4E 44 4F 4D  |0...(.. " RANDOM|
000000B0: 20 4C 4F 54 54 4F 20 22  3B 00 C1 08 2D 00 82 20  | LOTTO ";...-.. |
000000C0: 4E 00 CE 08 32 00 99 20  C7 28 31 34 37 29 00 DC  |N...2.. .(147)..|
000000D0: 08 41 00 81 20 53 B2 31  20 A4 20 33 00 F5 08 50  |.A.. S.1 . 3...P|
000000E0: 00 99 20 A3 31 33 29 22  52 41 4E 44 4F 4D 20 4C  |.. .13)"RANDOM L|
000000F0: 4F 54 54 4F 22 00 1E 09  5A 00 99 20 A3 31 33 29  |OTTO"...Z.. .13)|
00000100: 22 2A 2A 2A 2A 2A 2A 20  2A 2A 2A 2A 2A 22 3A 81  |"****** *****":.|
00000110: 20 52 B2 31 20 A4 20 35  30 30 3A 82 20 52 00 26  | R.1 . 500:. R.&|
00000120: 09 5F 00 82 20 53 00 41  09 64 00 99 3A 99 20 A3  |._.. S.A.d..:. .|
00000130: 31 33 29 22 52 41 4E 44  4F 4D 20 4C 4F 54 54 4F  |13)"RANDOM LOTTO|
00000140: 22 00 5A 09 6E 00 99 20  A3 31 33 29 22 2A 2A 2A  |".Z.n.. .13)"***|
00000150: 2A 2A 2A 20 2A 2A 2A 2A  2A 22 00 70 09 78 00 81  |*** *****".p.x..|
00000160: 20 51 B2 31 20 A4 20 39  30 30 20 3A 20 82 20 51  | Q.1 . 900 : . Q|
00000170: 00 81 09 7D 00 99 3A 99  20 A3 31 38 29 22 42 59  |...}..:. .18)"BY|
00000180: 22 00 9E 09 82 00 99 3A  99 20 A3 31 32 29 22 52  |"......:. .12)"R|
00000190: 4F 59 20 41 2E 20 44 45  52 52 49 43 4B 22 00 BD  |OY A. DERRICK"..|
000001A0: 09 8C 00 99 3A 99 20 A3  31 31 29 22 54 4F 52 4F  |....:. .11)"TORO|
000001B0: 4E 54 4F 2C 20 4F 4E 54  41 52 49 4F 22 00 D2 09  |NTO, ONTARIO"...|
000001C0: 91 00 99 3A 99 20 A3 31  36 29 22 28 31 39 38 33  |...:. .16)"(1983|
000001D0: 29 22 00 E9 09 96 00 81  20 54 B2 31 20 A4 20 32  |)"...... T.1 . 2|
000001E0: 37 35 30 20 3A 20 82 20  54 00 13 0A A1 00 99 20  |750 : . T...... |
000001F0: C7 28 31 34 34 29 3A 97  20 35 33 32 38 30 2C 36  |.(144):. 53280,6|
00000200: 3A 99 20 C7 28 31 34 37  29 3A 97 20 35 33 32 38  |:. .(147):. 5328|
00000210: 31 2C 36 00 3C 0A AA 00  99 20 A3 35 29 22 54 48  |1,6.<.... .5)"TH|
00000220: 49 53 20 50 52 4F 47 52  41 4D 20 47 45 4E 45 52  |IS PROGRAM GENER|
00000230: 41 54 45 53 20 52 41 4E  44 4F 4D 22 00 62 0A AF  |ATES RANDOM".b..|
00000240: 00 99 20 A3 35 29 22 4E  55 4D 42 45 52 53 20 46  |.. .5)"NUMBERS F|
00000250: 4F 52 20 54 48 45 20 4C  4F 54 54 4F 20 36 2F 34  |OR THE LOTTO 6/4|
00000260: 39 22 00 87 0A B4 00 99  20 A3 35 29 22 41 4E 44  |9"...... .5)"AND|
00000270: 20 4C 4F 54 54 41 52 49  4F 20 4C 4F 54 54 45 52  | LOTTARIO LOTTER|
00000280: 49 45 53 2E 22 3A 99 00  AF 0A B9 00 99 20 A3 35  |IES.":....... .5|
00000290: 29 22 49 4E 20 42 4F 54  48 20 43 41 53 45 53 20  |)"IN BOTH CASES |
000002A0: 53 45 56 45 52 41 4C 20  53 45 52 49 45 53 22 00  |SEVERAL SERIES".|
000002B0: D3 0A BE 00 99 20 A3 35  29 22 4F 46 20 53 49 58  |..... .5)"OF SIX|
000002C0: 20 4E 55 4D 42 45 52 53  20 45 41 43 48 20 41 52  | NUMBERS EACH AR|
000002D0: 45 20 22 00 F7 0A C3 00  99 20 A3 35 29 22 47 45  |E "...... .5)"GE|
000002E0: 4E 45 52 41 54 45 44 20  49 4E 20 53 55 43 43 45  |NERATED IN SUCCE|
000002F0: 53 53 49 4F 4E 2E 22 00  1D 0B C8 00 99 20 A3 35  |SSION."...... .5|
00000300: 29 22 44 55 50 4C 49 43  41 54 45 20 4E 55 4D 42  |)"DUPLICATE NUMB|
00000310: 45 52 53 20 57 49 54 48  49 4E 20 41 22 00 43 0B  |ERS WITHIN A".C.|
00000320: CD 00 99 20 A3 35 29 22  53 45 52 49 45 53 20 41  |... .5)"SERIES A|
00000330: 52 45 20 52 45 4A 45 43  54 45 44 20 41 53 20 54  |RE REJECTED AS T|
00000340: 48 45 22 00 6C 0B D2 00  99 20 A3 35 29 22 52 55  |HE".l.... .5)"RU|
00000350: 4C 45 53 20 4F 46 20 54  48 45 20 4C 4F 54 54 45  |LES OF THE LOTTE|
00000360: 52 49 45 53 20 44 4F 20  4E 4F 54 22 00 86 0B D7  |RIES DO NOT"....|
00000370: 00 99 20 A3 35 29 22 41  4C 4C 4F 57 20 54 48 45  |.. .5)"ALLOW THE|
00000380: 4D 2E 22 20 3A 99 00 AF  0B DA 00 99 20 A3 35 29  |M." :....... .5)|
00000390: 22 46 4F 52 20 4C 4F 54  54 4F 20 36 2F 34 39 2C  |"FOR LOTTO 6/49,|
000003A0: 20 53 49 58 20 53 45 52  49 45 53 20 4F 46 22 00  | SIX SERIES OF".|
000003B0: DB 0B DC 00 99 20 A3 35  29 22 4E 55 4D 42 45 52  |..... .5)"NUMBER|
000003C0: 53 20 41 52 45 20 47 45  4E 45 52 41 54 45 44 20  |S ARE GENERATED |
000003D0: 50 45 52 20 53 43 52 45  45 4E 22 00 08 0C E1 00  |PER SCREEN".....|
000003E0: 99 20 A3 35 29 22 41 53  20 54 48 49 53 20 49 53  |. .5)"AS THIS IS|
000003F0: 20 54 48 45 20 4E 55 4D  42 45 52 20 4F 46 20 27  | THE NUMBER OF '|
00000400: 42 4F 41 52 44 53 27 22  00 32 0C E6 00 99 20 A3  |BOARDS'".2.... .|
00000410: 35 29 22 4F 4E 20 54 48  45 20 4C 4F 54 54 45 52  |5)"ON THE LOTTER|
00000420: 59 20 53 45 4C 45 43 54  49 4F 4E 20 53 4C 49 50  |Y SELECTION SLIP|
00000430: 2E 22 00 5D 0C EB 00 99  20 A3 35 29 22 53 49 4E  |.".].... .5)"SIN|
00000440: 43 45 20 53 45 56 45 4E  20 42 4F 41 52 44 53 20  |CE SEVEN BOARDS |
00000450: 41 52 45 20 50 52 4F 56  49 44 45 44 22 00 82 0C  |ARE PROVIDED"...|
00000460: F0 00 99 20 A3 35 29 22  46 4F 52 20 4C 4F 54 54  |... .5)"FOR LOTT|
00000470: 41 52 49 4F 2C 20 54 48  45 20 50 52 4F 47 52 41  |ARIO, THE PROGRA|
00000480: 4D 22 00 AE 0C F7 00 99  20 A3 35 29 22 44 49 53  |M"...... .5)"DIS|
00000490: 50 4C 41 59 53 20 53 45  56 45 4E 20 53 45 52 49  |PLAYS SEVEN SERI|
000004A0: 45 53 20 50 45 52 20 53  43 52 45 45 4E 22 00 C9  |ES PER SCREEN"..|
000004B0: 0C FA 00 99 20 A3 35 29  22 49 4E 20 54 48 49 53  |.... .5)"IN THIS|
000004C0: 20 4D 4F 44 45 2E 22 3A  99 00 D4 0C FF 00 99 20  | MODE.":....... |
000004D0: C7 28 35 29 00 F8 0C 04  01 99 20 22 50 52 45 53  |.(5)...... "PRES|
000004E0: 53 20 53 50 41 43 45 20  42 41 52 20 54 4F 20 43  |S SPACE BAR TO C|
000004F0: 4F 4E 54 49 4E 55 45 22  00 01 0D 0E 01 A1 20 47  |ONTINUE"...... G|
00000500: 24 00 15 0D 13 01 8B 20  47 24 B2 22 20 22 A7 20  |$...... G$." ". |
00000510: 89 20 32 39 35 00 28 0D  18 01 8B 20 47 24 B2 22  |. 295.(.... G$."|
00000520: 22 A7 20 89 20 32 37 30  00 3E 0D 22 01 8B 20 47  |". . 270.>.".. G|
00000530: 24 B2 B3 B1 22 20 22 A7  20 89 20 32 37 30 00 68  |$..." ". . 270.h|
00000540: 0D 27 01 99 20 C7 28 31  34 37 29 3A 99 20 C7 28  |.'.. .(147):. .(|
00000550: 31 34 34 29 3A 97 20 35  33 32 38 30 2C 36 3A 97  |144):. 53280,6:.|
00000560: 20 35 33 32 38 31 2C 36  00 72 0D 2C 01 99 3A 99  | 53281,6.r.,..:.|
00000570: 3A 99 00 83 0D 31 01 99  20 A3 31 38 29 22 4D 45  |:....1.. .18)"ME|
00000580: 4E 55 22 00 9C 0D 32 01  99 20 A3 31 38 29 22 2D  |NU"...2.. .18)"-|
00000590: 2D 2D 2D 22 3A 99 3A 99  3A 99 3A 99 00 C8 0D 36  |---":.:.:.:....6|
000005A0: 01 99 20 A3 35 29 22 46  4F 52 20 4C 4F 54 54 4F  |.. .5)"FOR LOTTO|
000005B0: 20 36 2F 34 39 20 4E 55  4D 42 45 52 53 20 50 52  | 6/49 NUMBERS PR|
000005C0: 45 53 53 20 12 46 31 22  00 F6 0D 40 01 99 3A 99  |ESS .F1"...@..:.|
000005D0: 3A 99 20 A3 35 29 22 46  4F 52 20 4C 4F 54 54 41  |:. .5)"FOR LOTTA|
000005E0: 52 49 4F 20 4E 55 4D 42  45 52 53 20 50 52 45 53  |RIO NUMBERS PRES|
000005F0: 53 20 12 46 33 22 00 17  0E 4A 01 99 3A 99 3A 99  |S .F3"...J..:.:.|
00000600: 20 A3 35 29 22 54 4F 20  45 58 49 54 20 50 52 45  | .5)"TO EXIT PRE|
00000610: 53 53 20 12 46 37 22 00  34 0E 54 01 A1 20 4D 4D  |SS .F7".4.T.. MM|
00000620: 24 3A 20 8B 20 4D 4D 24  B2 22 85 22 20 A7 20 89  |$: . MM$."." . .|
00000630: 20 34 30 30 00 4B 0E 5E  01 8B 20 4D 4D 24 B2 22  | 400.K.^.. MM$."|
00000640: 86 22 20 A7 20 89 20 34  30 30 30 00 62 0E 68 01  |." . . 4000.b.h.|
00000650: 8B 20 4D 4D 24 B2 22 88  22 20 A7 20 89 20 39 30  |. MM$."." . . 90|
00000660: 30 30 00 84 0E 72 01 8B  20 4D 4D 24 B3 B1 22 85  |00...r.. MM$..".|
00000670: 22 20 AF 20 4D 4D 24 B3  B1 22 86 22 20 A7 20 89  |" . MM$.."." . .|
00000680: 20 33 34 30 00 9B 0E 7C  01 8B 20 4D 4D 24 B3 B1  | 340...|.. MM$..|
00000690: 22 8C 22 20 A7 20 89 20  33 34 30 00 A1 0E 81 01  |"." . . 340.....|
000006A0: 8F 00 BA 0E 90 01 8F 20  4C 4F 54 54 4F 20 36 2F  |....... LOTTO 6/|
000006B0: 34 39 20 53 45 47 4D 45  4E 54 00 C0 0E 95 01 8F  |49 SEGMENT......|
000006C0: 00 EA 0E 9A 01 99 20 C7  28 31 34 37 29 3A 97 20  |...... .(147):. |
000006D0: 35 33 32 38 30 2C 36 3A  97 20 35 33 32 38 31 2C  |53280,6:. 53281,|
000006E0: 31 32 3A 99 20 C7 28 33  31 29 00 F9 0E A4 01 81  |12:. .(31)......|
000006F0: 20 56 B2 31 20 A4 20 31  31 00 1A 0F AE 01 99 20  | V.1 . 11...... |
00000700: A3 31 30 29 22 2A 2A 2A  20 4C 4F 54 54 4F 20 36  |.10)"*** LOTTO 6|
00000710: 2F 34 39 20 2A 2A 2A 22  3A 99 00 30 0F B8 01 81  |/49 ***":..0....|
00000720: 20 56 56 B2 31 20 A4 20  32 30 30 3A 82 20 56 56  | VV.1 . 200:. VV|
00000730: 00 38 0F C2 01 82 20 56  00 4C 0F CC 01 81 20 55  |.8.... V.L.... U|
00000740: B2 31 20 A4 20 33 30 30  3A 82 20 55 00 59 0F FE  |.1 . 300:. U.Y..|
00000750: 01 99 20 C7 28 31 34 37  29 00 7B 0F 08 02 97 20  |.. .(147).{.... |
00000760: 35 33 32 38 30 2C 36 3A  97 20 35 33 32 38 31 2C  |53280,6:. 53281,|
00000770: 31 32 3A 99 20 C7 28 31  34 34 29 00 8B 0F BC 02  |12:. .(144).....|
00000780: 81 20 4B 20 B2 20 31 20  A4 20 36 00 9E 0F 20 03  |. K . 1 . 6... .|
00000790: 41 B2 B5 28 34 39 AC BB  28 30 29 29 AA 31 00 B1  |A..(49..(0)).1..|
000007A0: 0F 84 03 42 B2 B5 28 34  39 AC BB 28 30 29 29 AA  |...B..(49..(0)).|
000007B0: 31 00 C4 0F E8 03 43 B2  B5 28 34 39 AC BB 28 30  |1.....C..(49..(0|
000007C0: 29 29 AA 31 00 D7 0F 4C  04 44 B2 B5 28 34 39 AC  |)).1...L.D..(49.|
000007D0: BB 28 30 29 29 AA 31 00  EA 0F B0 04 45 B2 B5 28  |.(0)).1.....E..(|
000007E0: 34 39 AC BB 28 30 29 29  AA 31 00 FD 0F 14 05 46  |49..(0)).1.....F|
000007F0: B2 B5 28 34 39 AC BB 28  30 29 29 AA 31 00 0F 10  |..(49..(0)).1...|
00000800: 78 05 8B 20 42 B2 41 20  A7 20 89 20 39 30 30 00  |x.. B.A . . 900.|
00000810: 22 10 DC 05 8B 20 43 B2  41 20 A7 20 89 20 31 30  |".... C.A . . 10|
00000820: 30 30 00 35 10 40 06 8B  20 43 B2 42 20 A7 20 89  |00.5.@.. C.B . .|
00000830: 20 31 30 30 30 00 48 10  A4 06 8B 20 44 B2 41 20  | 1000.H.... D.A |
00000840: A7 20 89 20 31 31 30 30  00 5B 10 08 07 8B 20 44  |. . 1100.[.... D|
00000850: B2 42 20 A7 20 89 20 31  31 30 30 00 6E 10 6C 07  |.B . . 1100.n.l.|
00000860: 8B 20 44 B2 43 20 A7 20  89 20 31 31 30 30 00 81  |. D.C . . 1100..|
00000870: 10 D0 07 8B 20 45 B2 41  20 A7 20 89 20 31 32 30  |.... E.A . . 120|
00000880: 30 00 94 10 34 08 8B 20  45 B2 42 20 A7 20 89 20  |0...4.. E.B . . |
00000890: 31 32 30 30 00 A7 10 98  08 8B 20 45 B2 43 20 A7  |1200...... E.C .|
000008A0: 20 89 20 31 32 30 30 00  BA 10 FC 08 8B 20 45 B2  | . 1200...... E.|
000008B0: 44 20 A7 20 89 20 31 32  30 30 00 CD 10 60 09 8B  |D . . 1200...`..|
000008C0: 20 46 B2 41 20 A7 20 89  20 31 33 30 30 00 E0 10  | F.A . . 1300...|
000008D0: C4 09 8B 20 46 B2 42 20  A7 20 89 20 31 33 30 30  |... F.B . . 1300|
000008E0: 00 F3 10 28 0A 8B 20 46  B2 43 20 A7 20 89 20 31  |...(.. F.C . . 1|
000008F0: 33 30 30 00 06 11 8C 0A  8B 20 46 B2 44 20 A7 20  |300...... F.D . |
00000900: 89 20 31 33 30 30 00 19  11 F0 0A 8B 20 46 B2 45  |. 1300...... F.E|
00000910: 20 A7 20 89 20 31 33 30  30 00 33 11 54 0B 99 20  | . . 1300.3.T.. |
00000920: A3 37 29 3B 41 3B A3 31  37 29 3B 42 3B A3 32 37  |.7);A;.17);B;.27|
00000930: 29 3B 43 00 4F 11 86 0B  99 20 A3 37 29 3B 44 3B  |);C.O.... .7);D;|
00000940: A3 31 37 29 3B 45 3B A3  32 37 29 3B 46 3A 99 00  |.17);E;.27);F:..|
00000950: 63 11 B8 0B 81 20 4C B2  31 20 A4 20 32 35 30 3A  |c.... L.1 . 250:|
00000960: 82 20 4C 00 6B 11 1C 0C  82 20 4B 00 77 11 4E 0C  |. L.k.... K.w.N.|
00000970: 99 20 C7 28 32 38 29 00  B0 11 67 0C 99 20 A3 31  |. .(28)...g.. .1|
00000980: 29 3B 22 12 43 4F 4E 54  49 4E 55 45 3A 46 31 22  |);".CONTINUE:F1"|
00000990: 3B A3 31 38 29 3B 22 12  4D 45 4E 55 3A 46 35 22  |;.18);".MENU:F5"|
000009A0: 3B A3 33 31 29 3B 22 12  45 58 49 54 3A 46 37 22  |;.31);".EXIT:F7"|
000009B0: 00 CC 11 48 0D A1 20 41  24 3A 8B 20 41 24 20 B2  |...H.. A$:. A$ .|
000009C0: 20 22 22 20 A7 20 89 20  33 34 30 30 00 E1 11 10  | "" . . 3400....|
000009D0: 0E 8B 20 41 24 B2 22 85  22 20 A7 20 89 20 35 31  |.. A$."." . . 51|
000009E0: 30 00 F6 11 42 0E 8B 20  41 24 B2 22 87 22 20 A7  |0...B.. A$."." .|
000009F0: 20 89 20 32 39 35 00 0C  12 74 0E 8B 20 41 24 B2  | . 295...t.. A$.|
00000A00: 22 88 22 20 A7 20 89 20  38 30 30 30 00 2D 12 D8  |"." . . 8000.-..|
00000A10: 0E 8B 20 41 24 B3 B1 22  87 22 20 AF 20 41 24 B3  |.. A$.."." . A$.|
00000A20: B1 22 8C 22 20 A7 20 89  20 33 34 30 30 00 44 12  |."." . . 3400.D.|
00000A30: 3C 0F 8B 20 41 24 B3 B1  22 86 22 20 A7 20 89 20  |<.. A$.."." . . |
00000A40: 33 34 30 30 00 4A 12 6E  0F 8F 00 61 12 A0 0F 8F  |3400.J.n...a....|
00000A50: 20 4C 4F 54 54 41 52 49  4F 20 53 45 47 4D 45 4E  | LOTTARIO SEGMEN|
00000A60: 54 00 67 12 A5 0F 8F 00  91 12 AA 0F 99 20 C7 28  |T.g.......... .(|
00000A70: 31 34 37 29 3A 97 20 35  33 32 38 30 2C 32 3A 97  |147):. 53280,2:.|
00000A80: 20 35 33 32 38 31 2C 31  32 3A 99 20 C7 28 32 38  | 53281,12:. .(28|
00000A90: 29 00 A1 12 B4 0F 81 20  58 58 B2 31 20 A4 20 31  |)...... XX.1 . 1|
00000AA0: 31 00 C0 12 BE 0F 99 20  A3 31 31 29 22 2A 2A 2A  |1...... .11)"***|
00000AB0: 20 4C 4F 54 54 41 52 49  4F 20 2A 2A 2A 22 3A 99  | LOTTARIO ***":.|
00000AC0: 00 D6 12 C8 0F 81 20 50  50 B2 31 20 A4 20 32 30  |...... PP.1 . 20|
00000AD0: 30 3A 82 20 50 50 00 DF  12 D2 0F 82 20 58 58 00  |0:. PP...... XX.|
00000AE0: F3 12 DC 0F 81 20 57 B2  31 20 A4 20 33 30 30 3A  |..... W.1 . 300:|
00000AF0: 82 20 57 00 09 13 04 10  99 20 C7 28 31 34 37 29  |. W...... .(147)|
00000B00: 3A 99 20 C7 28 31 34 34  29 00 22 13 36 10 97 20  |:. .(144).".6.. |
00000B10: 35 33 32 38 30 2C 32 3A  97 20 35 33 32 38 31 2C  |53280,2:. 53281,|
00000B20: 31 32 00 33 13 68 10 81  20 4B 4B 20 B2 20 31 20  |12.3.h.. KK . 1 |
00000B30: A4 20 36 00 47 13 CC 10  41 41 B2 B5 28 33 39 AC  |. 6.G...AA..(39.|
00000B40: BB 28 30 29 29 AA 31 00  5B 13 30 11 42 42 B2 B5  |.(0)).1.[.0.BB..|
00000B50: 28 33 39 AC BB 28 30 29  29 AA 31 00 6F 13 94 11  |(39..(0)).1.o...|
00000B60: 43 43 B2 B5 28 33 39 AC  BB 28 30 29 29 AA 31 00  |CC..(39..(0)).1.|
00000B70: 83 13 F8 11 44 44 B2 B5  28 33 39 AC BB 28 30 29  |....DD..(39..(0)|
00000B80: 29 AA 31 00 97 13 5C 12  45 45 B2 B5 28 33 39 AC  |).1...\.EE..(39.|
00000B90: BB 28 30 29 29 AA 31 00  AB 13 C0 12 46 46 B2 B5  |.(0)).1.....FF..|
00000BA0: 28 33 39 AC BB 28 30 29  29 AA 31 00 C0 13 CA 12  |(39..(0)).1.....|
00000BB0: 8B 20 42 42 B2 41 41 20  A7 20 89 20 34 34 30 30  |. BB.AA . . 4400|
00000BC0: 00 D5 13 D4 12 8B 20 43  43 B2 41 41 20 A7 20 89  |...... CC.AA . .|
00000BD0: 20 34 35 30 30 00 EA 13  DE 12 8B 20 43 43 B2 42  | 4500...... CC.B|
00000BE0: 42 20 A7 20 89 20 34 35  30 30 00 FF 13 E8 12 8B  |B . . 4500......|
00000BF0: 20 44 44 B2 41 41 20 A7  20 89 20 34 36 30 30 00  | DD.AA . . 4600.|
00000C00: 14 14 F2 12 8B 20 44 44  B2 42 42 20 A7 20 89 20  |..... DD.BB . . |
00000C10: 34 36 30 30 00 29 14 18  15 8B 20 44 44 B2 43 43  |4600.).... DD.CC|
00000C20: 20 A7 20 89 20 34 36 30  30 00 3E 14 7C 15 8B 20  | . . 4600.>.|.. |
00000C30: 45 45 B2 41 41 20 A7 20  89 20 34 37 30 30 00 53  |EE.AA . . 4700.S|
00000C40: 14 AE 15 8B 20 45 45 B2  42 42 20 A7 20 89 20 34  |.... EE.BB . . 4|
00000C50: 37 30 30 00 68 14 44 16  8B 20 45 45 B2 43 43 20  |700.h.D.. EE.CC |
00000C60: A7 20 89 20 34 37 30 30  00 7D 14 A8 16 8B 20 45  |. . 4700.}.... E|
00000C70: 45 B2 44 44 20 A7 20 89  20 34 37 30 30 00 92 14  |E.DD . . 4700...|
00000C80: 0C 17 8B 20 46 46 B2 41  41 20 A7 20 89 20 34 38  |... FF.AA . . 48|
00000C90: 30 30 00 A7 14 70 17 8B  20 46 46 B2 42 42 20 A7  |00...p.. FF.BB .|
00000CA0: 20 89 20 34 38 30 30 00  BC 14 D4 17 8B 20 46 46  | . 4800...... FF|
00000CB0: B2 43 43 20 A7 20 89 20  34 38 30 30 00 D1 14 38  |.CC . . 4800...8|
00000CC0: 18 8B 20 46 46 B2 44 44  20 A7 20 89 20 34 38 30  |.. FF.DD . . 480|
00000CD0: 30 00 E6 14 9C 18 8B 20  46 46 B2 45 45 20 A7 20  |0...... FF.EE . |
00000CE0: 89 20 34 38 30 30 00 03  15 00 19 99 20 A3 37 29  |. 4800...... .7)|
00000CF0: 3B 41 41 3B A3 31 37 29  3B 42 42 3B A3 32 37 29  |;AA;.17);BB;.27)|
00000D00: 3B 43 43 00 22 15 32 19  99 20 A3 37 29 3B 44 44  |;CC.".2.. .7);DD|
00000D10: 3B A3 31 37 29 3B 45 45  3B A3 32 37 29 3B 46 46  |;.17);EE;.27);FF|
00000D20: 3A 99 00 36 15 64 19 81  20 4C B2 31 20 A4 20 32  |:..6.d.. L.1 . 2|
00000D30: 35 30 3A 82 20 4C 00 3F  15 96 19 82 20 4B 4B 00  |50:. L.?.... KK.|
00000D40: 4B 15 A0 19 8D 20 31 30  30 30 30 00 57 15 C8 19  |K.... 10000.W...|
00000D50: 99 20 C7 28 32 38 29 00  90 15 13 1A 99 20 A3 31  |. .(28)...... .1|
00000D60: 29 3B 22 12 43 4F 4E 54  49 4E 55 45 3A 46 33 22  |);".CONTINUE:F3"|
00000D70: 3B A3 31 38 29 3B 22 12  4D 45 4E 55 3A 46 35 22  |;.18);".MENU:F5"|
00000D80: 3B A3 33 31 29 3B 22 12  45 58 49 54 3A 46 37 22  |;.31);".EXIT:F7"|
00000D90: 00 AC 15 F4 1A A1 20 42  24 3A 8B 20 42 24 20 B2  |...... B$:. B$ .|
00000DA0: 20 22 22 20 A7 20 89 20  36 39 30 30 00 C1 15 BC  | "" . . 6900....|
00000DB0: 1B 8B 20 42 24 B2 22 87  22 20 A7 20 89 20 32 39  |.. B$."." . . 29|
00000DC0: 35 00 D7 15 20 1C 8B 20  42 24 B2 22 88 22 20 A7  |5... .. B$."." .|
00000DD0: 20 89 20 38 30 30 30 00  ED 15 84 1C 8B 20 42 24  | . 8000...... B$|
00000DE0: B2 22 86 22 20 A7 20 89  20 34 31 30 30 00 0E 16  |."." . . 4100...|
00000DF0: E8 1C 8B 20 42 24 B3 B1  22 88 22 20 AF 20 42 24  |... B$.."." . B$|
00000E00: B3 B1 22 8C 22 20 A7 20  89 20 36 39 30 30 00 25  |.."." . . 6900.%|
00000E10: 16 4C 1D 8B 20 42 24 B3  B1 22 85 22 20 A7 20 89  |.L.. B$.."." . .|
00000E20: 20 36 39 30 30 00 4F 16  40 1F 99 20 C7 28 31 34  | 6900.O.@.. .(14|
00000E30: 37 29 3A 99 20 C7 28 31  35 38 29 3A 97 20 35 33  |7):. .(158):. 53|
00000E40: 32 38 30 2C 37 3A 97 20  35 33 32 38 31 2C 36 00  |280,7:. 53281,6.|
00000E50: 7A 16 A4 1F 99 22 11 11  11 11 11 11 11 11 11 11  |z...."..........|
00000E60: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 47 4F  |..............GO|
00000E70: 4F 44 20 4C 55 43 4B 21  21 22 00 91 16 08 20 81  |OD LUCK!!".... .|
00000E80: 20 52 52 B2 31 20 A4 20  31 30 30 30 3A 82 20 52  | RR.1 . 1000:. R|
00000E90: 52 00 BE 16 28 23 99 20  C7 28 31 34 37 29 3A 99  |R...(#. .(147):.|
00000EA0: 20 C7 28 31 35 34 29 3A  97 20 35 33 32 38 30 2C  | .(154):. 53280,|
00000EB0: 31 34 3A 97 20 35 33 32  38 31 2C 36 3A 80 00 D2  |14:. 53281,6:...|
00000EC0: 16 10 27 41 41 B2 B5 28  33 39 AC BB 28 30 29 29  |..'AA..(39..(0))|
00000ED0: AA 31 00 E6 16 74 27 42  42 B2 B5 28 33 39 AC BB  |.1...t'BB..(39..|
00000EE0: 28 30 29 29 AA 31 00 FA  16 D8 27 43 43 B2 B5 28  |(0)).1....'CC..(|
00000EF0: 33 39 AC BB 28 30 29 29  AA 31 00 0E 17 3C 28 44  |39..(0)).1...<(D|
00000F00: 44 B2 B5 28 33 39 AC BB  28 30 29 29 AA 31 00 22  |D..(39..(0)).1."|
00000F10: 17 A0 28 45 45 B2 B5 28  33 39 AC BB 28 30 29 29  |..(EE..(39..(0))|
00000F20: AA 31 00 36 17 04 29 46  46 B2 B5 28 33 39 AC BB  |.1.6..)FF..(39..|
00000F30: 28 30 29 29 AA 31 00 4C  17 68 29 8B 20 42 42 B2  |(0)).1.L.h). BB.|
00000F40: 41 41 20 A7 20 89 20 31  30 31 30 30 00 62 17 CC  |AA . . 10100.b..|
00000F50: 29 8B 20 43 43 B2 41 41  20 A7 20 89 20 31 30 32  |). CC.AA . . 102|
00000F60: 30 30 00 78 17 30 2A 8B  20 43 43 B2 42 42 20 A7  |00.x.0*. CC.BB .|
00000F70: 20 89 20 31 30 32 30 30  00 8E 17 94 2A 8B 20 44  | . 10200....*. D|
00000F80: 44 B2 41 41 20 A7 20 89  20 31 30 33 30 30 00 A4  |D.AA . . 10300..|
00000F90: 17 F8 2A 8B 20 44 44 B2  42 42 20 A7 20 89 20 31  |..*. DD.BB . . 1|
00000FA0: 30 33 30 30 00 BA 17 5C  2B 8B 20 44 44 B2 43 43  |0300...\+. DD.CC|
00000FB0: 20 A7 20 89 20 31 30 33  30 30 00 D0 17 C0 2B 8B  | . . 10300....+.|
00000FC0: 20 45 45 B2 41 41 20 A7  20 89 20 31 30 34 30 30  | EE.AA . . 10400|
00000FD0: 00 E6 17 24 2C 8B 20 45  45 B2 42 42 20 A7 20 89  |...$,. EE.BB . .|
00000FE0: 20 31 30 34 30 30 00 FC  17 88 2C 8B 20 45 45 B2  | 10400....,. EE.|
00000FF0: 43 43 20 A7 20 89 20 31  30 34 30 30 00 12 18 EC  |CC . . 10400....|
00001000: 2C 8B 20 45 45 B2 44 44  20 A7 20 89 20 31 30 34  |,. EE.DD . . 104|
00001010: 30 30 00 28 18 50 2D 8B  20 46 46 B2 41 41 20 A7  |00.(.P-. FF.AA .|
00001020: 20 89 20 31 30 35 30 30  00 3E 18 B4 2D 8B 20 46  | . 10500.>..-. F|
00001030: 46 B2 42 42 20 A7 20 89  20 31 30 35 30 30 00 54  |F.BB . . 10500.T|
00001040: 18 18 2E 8B 20 46 46 B2  43 43 20 A7 20 89 20 31  |.... FF.CC . . 1|
00001050: 30 35 30 30 00 6A 18 7C  2E 8B 20 46 46 B2 44 44  |0500.j.|.. FF.DD|
00001060: 20 A7 20 89 20 31 30 35  30 30 00 80 18 E0 2E 8B  | . . 10500......|
00001070: 20 46 46 B2 45 45 20 A7  20 89 20 31 30 35 30 30  | FF.EE . . 10500|
00001080: 00 9D 18 C8 32 99 20 A3  37 29 3B 41 41 3B A3 31  |....2. .7);AA;.1|
00001090: 37 29 3B 42 42 3B A3 32  37 29 3B 43 43 00 BA 18  |7);BB;.27);CC...|
000010A0: FA 32 99 20 A3 37 29 3B  44 44 3B A3 31 37 29 3B  |.2. .7);DD;.17);|
000010B0: 45 45 3B A3 32 37 29 3B  46 46 00 C0 18 2C 33 8E  |EE;.27);FF...,3.|
000010C0: 00 00 00                                          |...             |

....... "RANDOM LOTTO".1.... FOR THE COM
MODORE 64.7.....[.... TITLE, INTRO AND M
ENU SEGMENT.A.....Y.... G(147) : . G(158
)...... 53280,7:. 53281,6...... N.1 . 30
0...(.. " RANDOM LOTTO ";.A.-.. N.N.2.. 
G(147)...A.. S.1 . 3...P.. .13)"RANDOM L
OTTO"...Z.. .13)"****** *****":. R.1 . 5
00:. R.&._.. S.A.D..:. .13)"RANDOM LOTTO
".Z.N.. .13)"****** *****".P.X.. Q.1 . 9
00 : . Q...}..:. .18)"BY"......:. .12)"R
OY A. DERRICK"......:. .11)"TORONTO, ONT
ARIO".R....:. .16)"(1983)"...... T.1 . 2
750 : . T...... G(144):. 53280,6:. G(147
):. 53281,6.<.... .5)"THIS PROGRAM GENER
ATES RANDOM".B.... .5)"NUMBERS FOR THE L
OTTO 6/49"...... .5)"AND LOTTARIO LOTTER
IES.":....... .5)"IN BOTH CASES SEVERAL 
SERIES".S.... .5)"OF SIX NUMBERS EACH AR
E "...C.. .5)"GENERATED IN SUCCESSION.".
..H.. .5)"DUPLICATE NUMBERS WITHIN A".C.
M.. .5)"SERIES ARE REJECTED AS THE".L.R.
. .5)"RULES OF THE LOTTERIES DO NOT"...W
.. .5)"ALLOW THEM." :....Z.. .5)"FOR LOT
TO 6/49, SIX SERIES OF"...... .5)"NUMBER
S ARE GENERATED PER SCREEN"...... .5)"AS
 THIS IS THE NUMBER OF 'BOARDS'".2.... .
5)"ON THE LOTTERY SELECTION SLIP.".]....
 .5)"SINCE SEVEN BOARDS ARE PROVIDED"...
... .5)"FOR LOTTARIO, THE PROGRAM"......
 .5)"DISPLAYS SEVEN SERIES PER SCREEN".I
.... .5)"IN THIS MODE.":..T.... G(5)....
.. "PRESS SPACE BAR TO CONTINUE"...... G
$...... G$." ". . 295.(.... G$."". . 270
.>.".. G$..." ". . 270.H.'.. G(147):. G(
144):. 53280,6:. 53281,6.R.,..:.:....1..
 .18)"MENU"...2.. .18)"----":.:.:.:..H.6
.. .5)"FOR LOTTO 6/49 NUMBERS PRESS .F1"
...@..:.:. .5)"FOR LOTTARIO NUMBERS PRES
S .F3"...J..:.:. .5)"TO EXIT PRESS .F7".
4.T.. MM$: . MM$."." . . 400.K.^.. MM$."
." . . 4000.B.H.. MM$."." . . 9000...R..
 MM$.."." . MM$.."." . . 340...|.. MM$..
"." . . 340............ LOTTO 6/49 SEGME
NT............ G(147):. 53280,6:. 53281,
12:. G(31)...... V.1 . 11...... .10)"***
 LOTTO 6/49 ***":..0.... VV.1 . 200:. VV
.8.B.. V.L.L.. U.1 . 300:. U.Y.... G(147
).{.... 53280,6:. 53281,12:. G(144).....
. K . 1 . 6... .A..(49..(0)).1.....B..(4
9..(0)).1.D...C..(49..(0)).1.W.L.D..(49.
.(0)).1.....E..(49..(0)).1.....F..(49..(
0)).1...X.. B.A . . 900.".... C.A . . 10
00.5.@.. C.B . . 1000.H.... D.A . . 1100
.[.... D.B . . 1100.N.L.. D.C . . 1100..
.P.. E.A . . 1200...4.. E.B . . 1200....
.. E.C . . 1200...... E.D . . 1200.M.`..
 F.A . . 1300...D.. F.B . . 1300...(.. F
.C . . 1300...... F.D . . 1300...... F.E
 . . 1300.3.T.. .7);A;.17);B;.27);C.O...
. .7);D;.17);E;.27);F:..C.... L.1 . 250:
. L.K.... K.W.N.. G(28)...G.. .1);".CONT
INUE:F1";.18);".MENU:F5";.31);".EXIT:F7"
.L.H.. A$:. A$ . "" . . 3400...... A$.".
" . . 510...B.. A$."." . . 295...T.. A$.
"." . . 8000.-.X.. A$.."." . A$.."." . .
 3400.D.<.. A$.."." . . 3400.J.N...A. ..
 LOTTARIO SEGMENT.G.......... G(147):. 5
3280,2:. 53281,12:. G(28)...... XX.1 . 1
1...... .11)"*** LOTTARIO ***":..V.H.. P
P.1 . 200:. PP...R.. XX...... W.1 . 300:
. W...... G(147):. G(144).".6.. 53280,2:
. 53281,12.3.H.. KK . 1 . 6.G.L.AA..(39.
.(0)).1.[.0.BB..(39..(0)).1.O...CC..(39.
.(0)).1.....DD..(39..(0)).1...\.EE..(39.
.(0)).1.....FF..(39..(0)).1...J.. BB.AA 
. . 4400.U.T.. CC.AA . . 4500...... CC.B
B . . 4500...... DD.AA . . 4600...... DD
.BB . . 4600.).... DD.CC . . 4600.>.|.. 
EE.AA . . 4700.S.... EE.BB . . 4700.H.D.
. EE.CC . . 4700.}.... EE.DD . . 4700...
... FF.AA . . 4800...P.. FF.BB . . 4800.
..T.. FF.CC . . 4800.Q.8.. FF.DD . . 480
0...... FF.EE . . 4800...... .7);AA;.17)
;BB;.27);CC.".2.. .7);DD;.17);EE;.27);FF
:..6.D.. L.1 . 250:. L.?.... KK.K. .. 10
000.W.H.. G(28)...... .1);".CONTINUE:F3"
;.18);".MENU:F5";.31);".EXIT:F7"...... B
$:. B$ . "" . . 6900.A.... B$."." . . 29
5.W. .. B$."." . . 8000...... B$."." . .
 4100...... B$.."." . B$.."." . . 6900.%
.L.. B$.."." . . 6900.O.@.. G(147):. G(1
58):. 53280,7:. 53281,6.Z...."..........
..............GOOD LUCK!!".... . RR.1 . 
1000:. RR...(#. G(147):. G(154):. 53280,
14:. 53281,6:..R..'AA..(39..(0)).1...T'B
B..(39..(0)).1...X'CC..(39..(0)).1...<(D
D..(39..(0)).1.". (EE..(39..(0)).1.6..)F
F..(39..(0)).1.L.H). BB.AA . . 10100.B.L
). CC.AA . . 10200.X.0*. CC.BB . . 10200
....*. DD.AA . . 10300....*. DD.BB . . 1
0300...\+. DD.CC . . 10300.P..+. EE.AA .
 . 10400...$,. EE.BB . . 10400....,. EE.
CC . . 10400....,. EE.DD . . 10400.(.P-.
 FF.AA . . 10500.>..-. FF.BB . . 10500.T
.... FF.CC . . 10500.J.|.. FF.DD . . 105
00...... FF.EE . . 10500...H2. .7);AA;.1
7);BB;.27);CC....2. .7);DD;.17);EE;.27);
FF...,3....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL