BINGO
FILE INFORMATION
FILENAME(S): BINGO
FILE TYPE(S): PRG
FILE SIZE: 8.4K
FIRST SEEN: 2025-11-02 16:42:36
APPEARS ON: 1 disk(s)
FILE HASH
d9abe7242fe9ccd573c6de52eb19f6b22698c6313f85cdbe3c8d92a81c3a5f14
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RAID OVER MOSCOW | BINGO | PRG | Treasure Chest - ralf | 3 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 96 00 97 35 33 32 38 31 2C 31 3A 97 |.......53281,1:.|
00000010: 35 33 32 38 30 2C 31 00 50 08 A0 00 53 53 B2 35 |53280,1.P...SS.5|
00000020: 34 32 37 32 3A 56 B2 35 33 32 34 38 3A 44 30 B2 |4272:V.53248:D0.|
00000030: 35 36 33 32 33 3A 44 31 B2 35 36 33 32 30 3A 44 |56323:D1.56320:D|
00000040: 32 B2 35 36 33 32 31 3A 97 20 56 AA 32 31 2C 30 |2.56321:. V.21,0|
00000050: 00 69 08 AA 00 99 20 C7 28 31 34 37 29 2C C7 28 |.i.... .(147),.(|
00000060: 31 37 29 2C C7 28 31 37 29 00 91 08 B4 00 99 A6 |17),.(17).......|
00000070: 31 34 29 3B C7 28 31 38 29 3B C7 28 33 31 29 3B |14);.(18);.(31);|
00000080: 22 4D 4F 44 45 53 20 4F 46 20 50 4C 41 59 22 3A |"MODES OF PLAY":|
00000090: 99 00 B3 08 BE 00 99 A6 31 34 29 3B C7 28 32 38 |........14);.(28|
000000A0: 29 3B 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |);"*************|
000000B0: 22 3A 99 00 E8 08 C8 00 99 A6 34 29 3B C7 28 31 |":........4);.(1|
000000C0: 34 34 29 3B 22 11 11 31 2D 20 41 55 54 4F 20 42 |44);"..1- AUTO B|
000000D0: 41 4C 4C 20 46 45 45 44 20 20 20 2D 20 41 55 54 |ALL FEED - AUT|
000000E0: 4F 20 43 4F 56 45 52 22 00 15 09 D2 00 99 A6 34 |O COVER".......4|
000000F0: 29 3B 22 11 32 2D 20 4D 41 4E 55 41 4C 20 42 41 |);".2- MANUAL BA|
00000100: 4C 4C 20 46 45 45 44 20 2D 20 41 55 54 4F 20 43 |LL FEED - AUTO C|
00000110: 4F 56 45 52 22 00 44 09 DC 00 99 A6 34 29 3B 22 |OVER".D.....4);"|
00000120: 11 33 2D 20 4D 41 4E 55 41 4C 20 42 41 4C 4C 20 |.3- MANUAL BALL |
00000130: 46 45 45 44 20 2D 20 4D 41 4E 55 41 4C 20 43 4F |FEED - MANUAL CO|
00000140: 56 45 52 22 00 73 09 E6 00 99 A6 34 29 3B 22 11 |VER".s.....4);".|
00000150: 34 2D 20 41 55 54 4F 20 42 41 4C 4C 20 46 45 45 |4- AUTO BALL FEE|
00000160: 44 20 20 20 2D 20 4D 41 4E 55 41 4C 20 43 4F 56 |D - MANUAL COV|
00000170: 45 52 22 00 99 09 F0 00 99 3A 99 22 11 11 11 12 |ER"......:."....|
00000180: 1D 1D 1D 1D 45 4E 54 45 52 20 4D 4F 44 45 20 53 |....ENTER MODE S|
00000190: 45 4C 45 43 54 45 44 3A 22 00 AF 09 FA 00 A1 20 |ELECTED:"...... |
000001A0: 41 24 3A 8B 20 41 24 B2 22 22 A7 20 32 35 30 00 |A$:. A$."". 250.|
000001B0: D2 09 04 01 41 55 B2 C5 28 41 24 29 AB 31 3A 8B |....AU..(A$).1:.|
000001C0: 20 41 55 B3 30 20 B0 20 41 55 B1 33 20 A7 20 31 | AU.0 . AU.3 . 1|
000001D0: 37 30 00 FD 09 0E 01 4D 31 24 B2 22 11 2D 43 48 |70.....M1$.".-CH|
000001E0: 49 4D 45 20 52 49 4E 47 53 20 46 4F 52 20 4E 55 |IME RINGS FOR NU|
000001F0: 4D 42 45 52 20 4F 4E 20 43 41 52 44 22 00 2A 0A |MBER ON CARD".*.|
00000200: 18 01 4D 32 24 B2 22 11 2D 47 4F 4E 47 20 52 49 |..M2$.".-GONG RI|
00000210: 4E 47 53 20 46 4F 52 20 4E 55 4D 42 45 52 20 4F |NGS FOR NUMBER O|
00000220: 4E 20 4E 4F 20 43 41 52 44 22 00 50 0A 22 01 4D |N NO CARD".P.".M|
00000230: 33 24 B2 22 11 2D 48 49 54 20 41 4E 59 20 4B 45 |3$.".-HIT ANY KE|
00000240: 59 20 46 4F 52 20 42 41 4C 4C 20 46 45 45 44 22 |Y FOR BALL FEED"|
00000250: 00 80 0A 2C 01 4D 34 24 B2 22 11 2D 55 53 45 20 |...,.M4$.".-USE |
00000260: 4A 4F 59 53 54 49 43 4B 20 28 50 4F 52 54 20 32 |JOYSTICK (PORT 2|
00000270: 29 2D 46 49 52 45 20 54 4F 20 43 4F 56 45 52 22 |)-FIRE TO COVER"|
00000280: 00 98 0A 36 01 99 C7 28 31 34 37 29 2C C7 28 31 |...6...(147),.(1|
00000290: 37 29 2C C7 28 31 37 29 00 B0 0A 40 01 99 20 A6 |7),.(17)...@.. .|
000002A0: 32 29 3B 4D 31 24 3A 99 20 A6 32 29 3B 4D 32 24 |2);M1$:. .2);M2$|
000002B0: 00 CE 0A 4A 01 8B 20 41 55 B2 31 20 B0 20 41 55 |...J.. AU.1 . AU|
000002C0: B2 32 20 A7 20 99 20 A6 32 29 3B 4D 33 24 00 EC |.2 . . .2);M3$..|
000002D0: 0A 54 01 8B 20 41 55 B2 32 20 B0 20 41 55 B2 33 |.T.. AU.2 . AU.3|
000002E0: 20 A7 20 99 20 A6 32 29 3B 4D 34 24 00 15 0B 5E | . . .2);M4$...^|
000002F0: 01 99 3A 99 20 A6 31 30 29 3B 22 11 11 11 11 12 |..:. .10);".....|
00000300: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 |HIT ANY KEY TO S|
00000310: 54 41 52 54 22 00 2A 0B 68 01 A1 20 41 24 3A 8B |TART".*.h.. A$:.|
00000320: 20 41 24 B2 22 22 A7 33 36 30 00 36 0B 72 01 99 | A$."".360.6.r..|
00000330: C7 28 31 34 37 29 00 6D 0B 7C 01 8F 2A 2A 2A 20 |.(147).m.|..*** |
00000340: 52 45 41 44 20 54 48 45 20 4D 4C 20 43 4F 44 45 |READ THE ML CODE|
00000350: 20 54 4F 20 53 45 54 20 41 20 42 4C 4F 43 4B 20 | TO SET A BLOCK |
00000360: 4F 46 20 4D 45 4D 4F 52 59 20 2A 2A 2A 00 8F 0B |OF MEMORY ***...|
00000370: 86 01 81 20 49 B2 30 A4 31 31 3A 87 20 58 25 3A |... I.0.11:. X%:|
00000380: 97 20 32 38 36 37 32 AA 49 2C 58 25 3A 82 49 00 |. 28672.I,X%:.I.|
00000390: BA 0B 90 01 8F 2A 2A 2A 20 53 45 54 20 54 48 45 |.....*** SET THE|
000003A0: 20 43 4F 4C 4F 52 20 4D 45 4D 4F 52 59 20 54 4F | COLOR MEMORY TO|
000003B0: 20 42 4C 41 43 4B 20 2A 2A 2A 00 CF 0B 9A 01 81 | BLACK ***......|
000003C0: 20 49 B2 30 A4 33 3A 48 42 B2 32 31 36 AA 49 00 | I.0.3:HB.216.I.|
000003D0: FB 0B A4 01 97 20 32 35 31 2C 30 3A 97 32 35 32 |..... 251,0:.252|
000003E0: 2C 48 42 3A 97 32 35 33 2C 30 3A 97 32 35 34 2C |,HB:.253,0:.254,|
000003F0: 30 3A 9E 20 32 38 36 37 32 3A 82 00 40 0C AE 01 |0:. 28672:..@...|
00000400: 86 20 53 44 28 34 2C 36 32 29 2C 43 4F 28 35 29 |. SD(4,62),CO(5)|
00000410: 2C 58 28 35 29 2C 59 28 35 29 2C 46 4C 28 32 31 |,X(5),Y(5),FL(21|
00000420: 29 2C 46 48 28 32 31 29 2C 44 55 28 32 31 29 2C |),FH(21),DU(21),|
00000430: 43 28 33 2C 34 2C 34 29 2C 4E 28 34 2C 31 34 29 |C(3,4,4),N(4,14)|
00000440: 00 75 0C B8 01 43 4F 28 30 29 B2 30 3A 43 4F 28 |.u...CO(0).0:CO(|
00000450: 31 29 B2 31 34 3A 43 4F 28 32 29 B2 34 3A 43 4F |1).14:CO(2).4:CO|
00000460: 28 33 29 B2 32 3A 43 4F 28 34 29 B2 37 3A 43 4F |(3).2:CO(4).7:CO|
00000470: 28 35 29 B2 30 00 A6 0C C2 01 4C 28 30 29 B2 31 |(5).0.....L(0).1|
00000480: 33 30 3A 4C 28 31 29 B2 31 33 37 3A 4C 28 32 29 |30:L(1).137:L(2)|
00000490: B2 31 34 32 3A 4C 28 33 29 B2 31 33 35 3A 4C 28 |.142:L(3).135:L(|
000004A0: 34 29 B2 31 34 33 00 D2 0C CC 01 53 28 30 29 B2 |4).143.....S(0).|
000004B0: 31 31 30 34 3A 53 28 31 29 B2 31 31 32 37 3A 53 |1104:S(1).1127:S|
000004C0: 28 32 29 B2 31 36 32 34 3A 53 28 33 29 B2 31 36 |(2).1624:S(3).16|
000004D0: 34 37 00 0A 0D D6 01 46 28 30 29 B2 31 32 37 31 |47.....F(0).1271|
000004E0: AA 53 53 3A 46 28 31 29 B2 31 32 39 34 AA 53 53 |.SS:F(1).1294.SS|
000004F0: 3A 46 28 32 29 B2 31 37 39 31 AA 53 53 3A 46 28 |:F(2).1791.SS:F(|
00000500: 33 29 B2 31 38 31 34 AA 53 53 00 2A 0D E0 01 8D |3).1814.SS.*....|
00000510: 20 36 34 30 3A 8F 2A 2A 2A 20 4D 41 4B 45 20 54 | 640:.*** MAKE T|
00000520: 48 45 20 42 4F 58 20 2A 2A 2A 00 51 0D EA 01 8D |HE BOX ***.Q....|
00000530: 20 31 34 37 30 3A 8F 2A 2A 2A 20 4D 41 4B 45 20 | 1470:.*** MAKE |
00000540: 42 49 4E 47 4F 20 53 50 52 49 54 45 53 20 2A 2A |BINGO SPRITES **|
00000550: 2A 00 77 0D F4 01 8F 2A 2A 2A 20 42 4C 41 4E 4B |*.w....*** BLANK|
00000560: 20 4F 55 54 20 54 48 45 20 46 52 45 45 2D 42 4F | OUT THE FREE-BO|
00000570: 58 45 53 20 2A 2A 2A 00 97 0D FE 01 81 49 B2 30 |XES ***......I.0|
00000580: A4 33 3A 97 20 46 28 49 29 2C 31 3A 97 46 28 49 |.3:. F(I),1:.F(I|
00000590: 29 AA 31 2C 31 3A 82 00 CA 0D 08 02 8D 38 34 30 |).1,1:.......840|
000005A0: 3A 8F 2A 2A 2A 20 43 48 4F 4F 53 45 20 54 48 45 |:.*** CHOOSE THE|
000005B0: 20 4E 55 4D 42 45 52 53 20 46 4F 52 20 54 48 45 | NUMBERS FOR THE|
000005C0: 20 43 41 52 44 53 20 2A 2A 2A 00 F9 0D 12 02 8F | CARDS ***......|
000005D0: 2A 2A 2A 20 50 55 54 20 52 45 44 20 43 4F 56 45 |*** PUT RED COVE|
000005E0: 52 2D 54 4F 4B 45 4E 20 4F 4E 20 46 52 45 45 2D |R-TOKEN ON FREE-|
000005F0: 42 4F 58 45 53 20 2A 2A 2A 00 35 0E 1C 02 81 20 |BOXES ***.5.... |
00000600: 49 B2 30 A4 33 3A 97 46 28 49 29 AB 53 53 2C 31 |I.0.3:.F(I).SS,1|
00000610: 36 30 3A 97 46 28 49 29 AA 31 AB 53 53 2C 31 36 |60:.F(I).1.SS,16|
00000620: 30 3A 97 46 28 49 29 2C 38 3A 97 46 28 49 29 AA |0:.F(I),8:.F(I).|
00000630: 31 2C 38 3A 82 00 7C 0E 26 02 81 43 44 B2 30 A4 |1,8:..|.&..CD.0.|
00000640: 33 3A 43 28 43 44 2C 32 2C 32 29 B2 30 3A 82 3A |3:C(CD,2,2).0:.:|
00000650: 8F 20 53 45 54 20 43 45 4E 54 45 52 20 42 4F 58 |. SET CENTER BOX|
00000660: 20 54 4F 20 49 4C 4C 45 47 41 4C 20 56 41 4C 55 | TO ILLEGAL VALU|
00000670: 45 20 28 46 52 45 45 20 42 4F 58 29 00 9C 0E 30 |E (FREE BOX)...0|
00000680: 02 8F 2A 2A 2A 20 44 52 41 57 20 54 48 45 20 50 |..*** DRAW THE P|
00000690: 41 53 53 20 4C 49 4E 45 20 2A 2A 2A 00 BB 0E 3A |ASS LINE ***...:|
000006A0: 02 81 4C 49 B2 30 A4 36 3A 97 28 31 35 32 30 AA |..LI.0.6:.(1520.|
000006B0: 4C 49 29 2C 36 34 3A 82 20 4C 49 00 D6 0E 44 02 |LI),64:. LI...D.|
000006C0: 8F 2A 2A 2A 20 53 54 41 52 54 20 4F 46 20 50 4C |.*** START OF PL|
000006D0: 41 59 20 2A 2A 2A 00 FD 0E 4E 02 8D 31 31 30 30 |AY ***...N..1100|
000006E0: 3A 8F 2A 2A 2A 20 47 45 54 20 54 48 45 20 4E 45 |:.*** GET THE NE|
000006F0: 58 54 20 4E 55 4D 42 45 52 20 2A 2A 2A 00 2D 0F |XT NUMBER ***.-.|
00000700: 58 02 8D 20 31 31 37 30 3A 8F 2A 2A 2A 20 43 48 |X.. 1170:.*** CH|
00000710: 45 43 4B 20 54 48 45 20 43 41 52 44 53 20 46 4F |ECK THE CARDS FO|
00000720: 52 20 41 20 4D 41 54 43 48 20 2A 2A 2A 00 67 0F |R A MATCH ***.g.|
00000730: 62 02 8B 20 41 55 B2 30 20 B0 20 41 55 B2 33 20 |b.. AU.0 . AU.3 |
00000740: A7 20 35 39 30 3A 8F 2A 2A 2A 20 43 48 45 43 4B |. 590:.*** CHECK|
00000750: 20 46 4F 52 20 41 55 54 4F 20 42 41 4C 4C 2D 46 | FOR AUTO BALL-F|
00000760: 45 45 44 20 2A 2A 2A 00 9A 0F 6C 02 A1 20 41 24 |EED ***...l.. A$|
00000770: 3A 8B 20 41 24 B2 22 22 A7 20 36 32 30 20 3A 8F |:. A$."". 620 :.|
00000780: 2A 2A 2A 20 57 41 49 54 20 46 4F 52 20 4E 45 58 |*** WAIT FOR NEX|
00000790: 54 20 42 41 4C 4C 20 2A 2A 2A 00 A3 0F 76 02 89 |T BALL ***...v..|
000007A0: 35 39 30 00 BB 0F 80 02 8F 20 2A 2A 2A 20 42 4F |590...... *** BO|
000007B0: 58 20 4D 41 4B 45 52 20 2A 2A 2A 00 D5 0F 8A 02 |X MAKER ***.....|
000007C0: 54 30 24 B2 22 20 42 20 20 49 20 20 4E 20 20 47 |T0$." B I N G|
000007D0: A0 20 4F 20 22 00 00 10 94 02 41 31 B2 31 37 36 |. O ".....A1.176|
000007E0: 3A 41 32 B2 39 36 3A 41 33 B2 31 37 38 3A 41 34 |:A2.96:A3.178:A4|
000007F0: B2 31 37 34 3A 8D 37 31 30 3A 54 31 24 B2 41 24 |.174:.710:T1$.A$|
00000800: 00 28 10 9E 02 41 31 B2 39 38 3A 41 32 B2 33 32 |.(...A1.98:A2.32|
00000810: 3A 41 33 B2 39 38 3A 41 34 B2 39 38 3A 8D 37 31 |:A3.98:A4.98:.71|
00000820: 30 3A 54 32 24 B2 41 24 00 53 10 A8 02 41 31 B2 |0:T2$.A$.S...A1.|
00000830: 31 37 31 3A 41 32 B2 39 36 3A 41 33 B2 31 32 33 |171:A2.96:A3.123|
00000840: 3A 41 34 B2 31 37 39 3A 8D 37 31 30 3A 54 33 24 |:A4.179:.710:T3$|
00000850: B2 41 24 00 7E 10 B2 02 41 31 B2 31 37 33 3A 41 |.A$.~...A1.173:A|
00000860: 32 B2 39 36 3A 41 33 B2 31 37 37 3A 41 34 B2 31 |2.96:A3.177:A4.1|
00000870: 38 39 3A 8D 37 31 30 3A 54 34 24 B2 41 24 00 87 |89:.710:T4$.A$..|
00000880: 10 BC 02 89 37 35 30 00 A0 10 C6 02 41 24 B2 C7 |....750.....A$..|
00000890: 28 41 32 29 AA C7 28 41 33 29 AA C7 28 41 32 29 |(A2)..(A3)..(A2)|
000008A0: 00 CB 10 D0 02 41 24 B2 C7 28 41 31 29 AA C7 28 |.....A$..(A1)..(|
000008B0: 41 32 29 AA 41 24 AA 41 24 AA 41 24 AA 41 24 AA |A2).A$.A$.A$.A$.|
000008C0: C7 28 41 32 29 AA C7 28 41 34 29 00 E2 10 DA 02 |.(A2)..(A4).....|
000008D0: 41 24 B2 41 24 AA 22 20 20 20 20 20 20 20 22 AA |A$.A$." ".|
000008E0: 41 24 00 E8 10 E4 02 8E 00 18 11 EE 02 99 20 C7 |A$............ .|
000008F0: 28 31 38 29 C7 28 33 31 29 54 30 24 C7 28 31 34 |(18).(31)T0$.(14|
00000900: 36 29 A6 38 29 C7 28 31 38 29 C7 28 33 31 29 54 |6).8).(18).(31)T|
00000910: 30 24 C7 28 31 34 36 29 00 29 11 F8 02 99 20 C7 |0$.(146).).... .|
00000920: 28 31 34 34 29 3B 54 31 24 00 41 11 02 03 81 20 |(144);T1$.A.... |
00000930: 49 B2 31 A4 34 3A 99 54 32 24 3A 99 54 33 24 3A |I.1.4:.T2$:.T3$:|
00000940: 82 00 51 11 0C 03 99 54 32 24 3A 99 54 34 24 3A |..Q....T2$:.T4$:|
00000950: 99 00 81 11 16 03 99 20 C7 28 31 38 29 C7 28 33 |....... .(18).(3|
00000960: 31 29 54 30 24 C7 28 31 34 36 29 A6 38 29 C7 28 |1)T0$.(146).8).(|
00000970: 31 38 29 C7 28 33 31 29 54 30 24 C7 28 31 34 36 |18).(31)T0$.(146|
00000980: 29 00 92 11 20 03 99 20 C7 28 31 34 34 29 3B 54 |)... .. .(144);T|
00000990: 31 24 00 AA 11 2A 03 81 20 49 B2 31 A4 34 3A 99 |1$...*.. I.1.4:.|
000009A0: 54 32 24 3A 99 54 33 24 3A 82 00 B9 11 34 03 99 |T2$:.T3$:....4..|
000009B0: 54 32 24 3A 99 54 34 24 3B 00 BF 11 3E 03 8E 00 |T2$:.T4$;...>...|
000009C0: E4 11 48 03 8F 2A 2A 2A 20 43 48 4F 4F 53 45 20 |..H..*** CHOOSE |
000009D0: 54 48 45 20 43 41 52 44 20 4E 55 4D 42 45 52 53 |THE CARD NUMBERS|
000009E0: 20 2A 2A 2A 00 14 12 52 03 8F 2A 2A 2A 20 46 49 | ***...R..*** FI|
000009F0: 52 53 54 20 5A 45 52 4F 20 54 48 45 20 43 41 4C |RST ZERO THE CAL|
00000A00: 4C 45 44 20 4E 55 4D 42 45 52 20 41 52 52 41 59 |LED NUMBER ARRAY|
00000A10: 20 2A 2A 2A 00 39 12 5C 03 81 20 43 4C B2 30 A4 | ***.9.\.. CL.0.|
00000A20: 34 3A 81 4E 4E B2 30 A4 31 34 3A 4E 28 43 4C 2C |4:.NN.0.14:N(CL,|
00000A30: 4E 4E 29 B2 30 3A 82 3A 82 00 57 12 66 03 43 44 |NN).0:.:..W.f.CD|
00000A40: B2 30 20 20 3A 8F 2A 2A 2A 20 43 41 52 44 20 4C |.0 :.*** CARD L|
00000A50: 4F 4F 50 20 2A 2A 2A 00 77 12 70 03 43 4C B2 30 |OOP ***.w.p.CL.0|
00000A60: 20 20 3A 8F 2A 2A 2A 20 43 4F 4C 55 4D 4E 20 4C | :.*** COLUMN L|
00000A70: 4F 4F 50 20 2A 2A 2A 00 B7 12 7A 03 81 20 49 B2 |OOP ***...z.. I.|
00000A80: 30 A4 34 3A 43 28 43 44 2C 43 4C 2C 49 29 B2 30 |0.4:C(CD,CL,I).0|
00000A90: 3A 82 3A 8F 2A 2A 2A 20 5A 45 52 4F 20 43 4F 4C |:.:.*** ZERO COL|
00000AA0: 20 4F 46 20 4E 55 4D 42 45 52 53 20 4F 4E 20 43 | OF NUMBERS ON C|
00000AB0: 41 52 44 20 2A 2A 2A 00 D4 12 84 03 52 4E B2 30 |ARD ***.....RN.0|
00000AC0: 20 20 3A 8F 2A 2A 2A 20 52 4F 57 20 4C 4F 4F 50 | :.*** ROW LOOP|
00000AD0: 20 2A 2A 2A 00 ED 12 8E 03 5A B2 B5 28 BB 28 30 | ***.....Z..(.(0|
00000AE0: 29 AC 31 35 29 AA 31 AA 31 35 AC 43 4C 00 15 13 |).15).1.15.CL...|
00000AF0: 98 03 8F 2A 2A 2A 20 54 45 53 54 20 46 4F 52 20 |...*** TEST FOR |
00000B00: 54 48 45 20 4E 55 4D 42 45 52 20 49 4E 20 55 53 |THE NUMBER IN US|
00000B10: 45 20 2A 2A 2A 00 1D 13 A2 03 4A B2 30 00 55 13 |E ***.....J.0.U.|
00000B20: AC 03 8B 20 43 28 43 44 2C 43 4C 2C 4A 29 B2 5A |... C(CD,CL,J).Z|
00000B30: 20 A7 20 39 31 30 20 3A 8F 2A 2A 2A 20 4E 55 4D | . 910 :.*** NUM|
00000B40: 42 45 52 20 48 41 53 20 42 45 45 4E 20 55 53 45 |BER HAS BEEN USE|
00000B50: 44 20 2A 2A 2A 00 6E 13 B6 03 8B 20 4A B3 52 4E |D ***.n.... J.RN|
00000B60: 20 A7 20 4A B2 4A AA 31 3A 89 20 39 34 30 00 80 | . J.J.1:. 940..|
00000B70: 13 C0 03 43 28 43 44 2C 43 4C 2C 52 4E 29 B2 5A |...C(CD,CL,RN).Z|
00000B80: 00 A5 13 CA 03 8F 2A 2A 2A 20 50 52 49 4E 54 20 |......*** PRINT |
00000B90: 4E 55 4D 42 45 52 20 49 4E 20 54 48 45 20 42 4F |NUMBER IN THE BO|
00000BA0: 58 20 2A 2A 2A 00 B1 13 D4 03 4E 24 B2 C4 28 5A |X ***.....N$..(Z|
00000BB0: 29 00 BE 13 DE 03 4C 4E B2 C3 28 4E 24 29 00 CC |).....LN..(N$)..|
00000BC0: 13 E8 03 81 51 B2 31 A4 4C 4E AB 31 00 ED 13 F2 |....Q.1.LN.1....|
00000BD0: 03 53 4E B2 53 28 43 44 29 AA 43 4C AC 33 AA 52 |.SN.S(CD).CL.3.R|
00000BE0: 4E AC 38 30 AA 51 AA 28 33 AB 4C 4E 29 00 03 14 |N.80.Q.(3.LN)...|
00000BF0: FC 03 50 4E B2 C6 28 CA 28 4E 24 2C 51 AA 31 2C |..PN..(.(N$,Q.1,|
00000C00: 31 29 29 00 0F 14 06 04 97 20 53 4E 2C 50 4E 00 |1))...... SN,PN.|
00000C10: 16 14 10 04 82 51 00 31 14 1A 04 8B 20 52 4E B3 |.....Q.1.... RN.|
00000C20: 34 20 A7 20 52 4E B2 52 4E AA 31 3A 89 20 39 31 |4 . RN.RN.1:. 91|
00000C30: 30 00 4C 14 24 04 8B 20 43 4C B3 34 20 A7 20 43 |0.L.$.. CL.4 . C|
00000C40: 4C B2 43 4C AA 31 3A 89 20 38 39 30 00 67 14 2E |L.CL.1:. 890.g..|
00000C50: 04 8B 20 43 44 B3 33 20 A7 20 43 44 B2 43 44 AA |.. CD.3 . CD.CD.|
00000C60: 31 3A 89 20 38 38 30 00 6D 14 38 04 8E 00 97 14 |1:. 880.m.8.....|
00000C70: 42 04 8F 20 2A 2A 2A 20 53 45 4C 45 43 54 20 54 |B.. *** SELECT T|
00000C80: 48 45 20 4E 45 58 54 20 42 41 4C 4C 20 4E 55 4D |HE NEXT BALL NUM|
00000C90: 42 45 52 20 2A 2A 2A 00 C4 14 4C 04 8D 20 31 37 |BER ***...L.. 17|
00000CA0: 33 30 20 3A 8F 2A 2A 2A 20 46 49 52 53 54 20 43 |30 :.*** FIRST C|
00000CB0: 48 4F 4F 53 45 20 54 48 45 20 4C 45 54 54 45 52 |HOOSE THE LETTER|
00000CC0: 20 2A 2A 2A 00 E1 14 56 04 8F 2A 2A 2A 20 4E 45 | ***...V..*** NE|
00000CD0: 58 54 20 54 48 45 20 4E 55 4D 42 45 52 20 2A 2A |XT THE NUMBER **|
00000CE0: 2A 00 01 15 60 04 4E 55 B2 B5 28 BB 28 30 29 AC |*...`.NU..(.(0).|
00000CF0: 31 35 29 3A 4E 4D B2 4E 55 AA 31 AA 4E 43 AC 31 |15):NM.NU.1.NC.1|
00000D00: 35 00 28 15 6A 04 8F 2A 2A 2A 20 48 41 53 20 49 |5.(.j..*** HAS I|
00000D10: 54 20 41 4C 52 45 41 44 59 20 42 45 45 4E 20 55 |T ALREADY BEEN U|
00000D20: 53 45 44 3F 20 2A 2A 2A 00 59 15 74 04 8B 20 4E |SED? ***.Y.t.. N|
00000D30: 28 4E 43 2C 4E 55 29 B2 31 20 A7 20 31 31 31 30 |(NC,NU).1 . 1110|
00000D40: 3A 8F 2A 2A 2A 20 59 45 53 2D 47 45 54 20 41 4E |:.*** YES-GET AN|
00000D50: 4F 54 48 45 52 20 2A 2A 2A 00 68 15 7E 04 4E 28 |OTHER ***.h.~.N(|
00000D60: 4E 43 2C 4E 55 29 B2 31 00 6E 15 88 04 8E 00 9C |NC,NU).1.n......|
00000D70: 15 92 04 8F 2A 2A 2A 20 50 52 49 4E 54 20 54 48 |....*** PRINT TH|
00000D80: 45 20 4E 55 4D 42 45 52 20 4F 4E 20 54 48 45 20 |E NUMBER ON THE |
00000D90: 42 49 47 20 42 41 4C 4C 20 2A 2A 2A 00 B8 15 9C |BIG BALL ***....|
00000DA0: 04 4E 31 B2 B5 28 4E 4D AD 31 30 29 3A 4E 32 B2 |.N1..(NM.10):N2.|
00000DB0: 4E 4D AB 4E 31 AC 31 30 00 CB 15 A6 04 8B 20 4E |NM.N1.10...... N|
00000DC0: 31 B2 30 A7 20 4E 31 B2 AB 31 36 00 F6 15 B0 04 |1.0. N1..16.....|
00000DD0: 97 20 31 32 38 32 2C 4C 28 4E 43 29 3A 97 31 32 |. 1282,L(NC):.12|
00000DE0: 38 33 2C 4E 31 AA 31 37 36 3A 97 31 32 38 34 2C |83,N1.176:.1284,|
00000DF0: 4E 32 AA 31 37 36 00 07 16 BA 04 97 56 AA 34 34 |N2.176......V.44|
00000E00: 2C 43 4F 28 4E 43 29 00 32 16 C4 04 8F 2A 2A 2A |,CO(NC).2....***|
00000E10: 20 43 48 45 43 4B 20 46 4F 52 20 4E 55 4D 42 45 | CHECK FOR NUMBE|
00000E20: 52 20 4F 4E 20 54 48 45 20 43 41 52 44 53 20 2A |R ON THE CARDS *|
00000E30: 2A 2A 00 3B 16 CE 04 4E 4E B2 30 00 44 16 D8 04 |**.;...NN.0.D...|
00000E40: 42 4F B2 30 00 65 16 E2 04 43 44 B2 30 20 20 20 |BO.0.e...CD.0 |
00000E50: 20 3A 8F 20 2A 2A 2A 20 43 41 52 44 20 4C 4F 4F | :. *** CARD LOO|
00000E60: 50 20 2A 2A 2A 00 85 16 EC 04 43 52 B2 30 20 20 |P ***.....CR.0 |
00000E70: 20 20 3A 8F 20 2A 2A 2A 20 52 4F 57 20 4C 4F 4F | :. *** ROW LOO|
00000E80: 50 20 2A 2A 2A 00 A2 16 F6 04 8B 20 43 28 43 44 |P ***...... C(CD|
00000E90: 2C 4E 43 2C 43 52 29 B3 B1 4E 4D 20 A7 20 31 33 |,NC,CR)..NM . 13|
00000EA0: 39 30 00 B5 16 00 05 8B 20 41 55 B1 31 20 A7 20 |90...... AU.1 . |
00000EB0: 20 32 32 37 30 00 D6 16 0A 05 4E 4E B2 31 20 3A | 2270.....NN.1 :|
00000EC0: 8F 2A 2A 2A 20 46 4F 55 4E 44 20 41 20 4D 41 54 |.*** FOUND A MAT|
00000ED0: 43 48 20 2A 2A 2A 00 09 17 14 05 8F 2A 2A 2A 20 |CH ***......*** |
00000EE0: 50 55 54 20 54 48 45 20 52 45 44 20 43 4F 56 45 |PUT THE RED COVE|
00000EF0: 52 2D 54 4F 4B 45 4E 20 4F 4E 20 54 48 45 20 4E |R-TOKEN ON THE N|
00000F00: 55 4D 42 45 52 20 2A 2A 2A 00 23 17 1E 05 50 31 |UMBER ***.#...P1|
00000F10: B2 53 28 43 44 29 AA 43 52 AC 38 30 AA 4E 43 AC |.S(CD).CR.80.NC.|
00000F20: 33 AA 31 00 31 17 28 05 97 20 50 31 AA 53 53 2C |3.1.1.(.. P1.SS,|
00000F30: 38 00 41 17 32 05 97 20 50 31 AA 31 AA 53 53 2C |8.A.2.. P1.1.SS,|
00000F40: 38 00 53 17 3C 05 97 20 50 31 AA 31 2C 4E 32 AA |8.S.<.. P1.1,N2.|
00000F50: 31 37 36 00 63 17 46 05 97 20 50 31 2C 4E 31 AA |176.c.F.. P1,N1.|
00000F60: 31 37 36 00 87 17 50 05 8D 20 31 38 39 30 20 3A |176...P.. 1890 :|
00000F70: 8F 2A 2A 2A 20 52 49 4E 47 20 54 48 45 20 43 48 |.*** RING THE CH|
00000F80: 49 4D 45 20 2A 2A 2A 00 AE 17 5A 05 8D 20 32 30 |IME ***...Z.. 20|
00000F90: 30 30 3A 8F 2A 2A 2A 20 43 48 45 43 4B 20 46 4F |00:.*** CHECK FO|
00000FA0: 52 20 41 20 57 49 4E 4E 45 52 20 2A 2A 2A 00 B9 |R A WINNER ***..|
00000FB0: 17 64 05 89 20 31 34 30 30 00 D4 17 6E 05 8B 20 |.d.. 1400...n.. |
00000FC0: 43 52 B3 34 20 A7 20 43 52 B2 43 52 AA 31 3A 89 |CR.4 . CR.CR.1:.|
00000FD0: 31 32 37 30 00 EF 17 78 05 8B 20 43 44 B3 33 20 |1270...x.. CD.3 |
00000FE0: A7 20 43 44 B2 43 44 AA 31 3A 89 31 32 36 30 00 |. CD.CD.1:.1260.|
00000FF0: 23 18 82 05 8B 20 4E 4E B2 30 A7 20 8D 20 31 39 |#.... NN.0. . 19|
00001000: 35 30 3A 8F 2A 2A 2A 20 4E 4F 20 4D 41 54 43 48 |50:.*** NO MATCH|
00001010: 2D 53 4F 55 4E 44 20 54 48 45 20 47 4F 4E 47 20 |-SOUND THE GONG |
00001020: 2A 2A 2A 00 31 18 8C 05 59 28 4E 43 29 B2 32 33 |***.1...Y(NC).23|
00001030: 30 00 53 18 96 05 97 20 56 AA 31 AA 4E 43 AC 32 |0.S.... V.1.NC.2|
00001040: 2C 59 28 4E 43 29 3A 8F 20 53 45 54 20 49 4E 49 |,Y(NC):. SET INI|
00001050: 54 20 59 00 84 18 A0 05 8B 20 42 4F B2 30 20 A7 |T Y...... BO.0 .|
00001060: 20 8E 3A 8F 2A 2A 2A 20 4E 4F 20 57 49 4E 4E 45 | .:.*** NO WINNE|
00001070: 52 2D 20 47 45 54 20 4E 45 58 54 20 42 41 4C 4C |R- GET NEXT BALL|
00001080: 20 2A 2A 2A 00 BE 18 AA 05 A1 20 41 24 3A 8B 20 | ***...... A$:. |
00001090: 41 24 B2 22 22 A7 20 31 34 35 30 3A 8F 2A 2A 2A |A$."". 1450:.***|
000010A0: 20 57 49 4E 4E 45 52 2D 57 41 49 54 20 46 4F 52 | WINNER-WAIT FOR|
000010B0: 20 41 20 52 45 53 54 41 52 54 20 2A 2A 2A 00 D4 | A RESTART ***..|
000010C0: 18 B4 05 97 20 56 AA 32 31 2C 30 3A 8C 3A 9C 3A |.... V.21,0:.:.:|
000010D0: 89 31 35 30 00 F8 18 BE 05 8F 2A 2A 2A 20 4D 41 |.150......*** MA|
000010E0: 4B 45 20 54 48 45 20 42 49 4E 47 4F 20 53 50 52 |KE THE BINGO SPR|
000010F0: 49 54 45 53 20 2A 2A 2A 00 1D 19 C8 05 8F 2A 2A |ITES ***......**|
00001100: 2A 20 5A 45 52 4F 20 54 48 45 20 53 50 52 49 54 |* ZERO THE SPRIT|
00001110: 45 53 20 4D 45 4D 4F 52 59 20 2A 2A 2A 00 28 19 |ES MEMORY ***.(.|
00001120: D2 05 81 49 B2 30 A4 33 00 5A 19 DC 05 97 20 32 |...I.0.3.Z.... 2|
00001130: 35 31 2C 49 AC 36 34 3A 97 32 35 32 2C 35 37 3A |51,I.64:.252,57:|
00001140: 97 32 35 33 2C 36 33 3A 97 32 35 34 2C 30 30 3A |.253,63:.254,00:|
00001150: 9E 20 32 38 36 37 32 3A 82 49 00 88 19 E6 05 97 |. 28672:.I......|
00001160: 20 32 35 31 2C 30 30 3A 97 32 35 32 2C 35 38 3A | 251,00:.252,58:|
00001170: 97 32 35 33 2C 36 33 3A 97 20 32 35 34 2C 30 30 |.253,63:. 254,00|
00001180: 3A 9E 20 32 38 36 37 32 00 AA 19 F0 05 8F 2A 2A |:. 28672......**|
00001190: 2A 20 53 45 54 20 55 50 20 54 4F 20 5A 45 52 4F |* SET UP TO ZERO|
000011A0: 20 53 4F 55 4E 44 20 2A 2A 2A 00 D1 19 FA 05 97 | SOUND ***......|
000011B0: 20 32 35 31 2C 30 30 3A 97 32 35 32 2C 32 31 32 | 251,00:.252,212|
000011C0: 3A 97 32 35 33 2C 32 34 3A 97 20 32 35 34 2C 30 |:.253,24:. 254,0|
000011D0: 30 00 FA 19 04 06 8F 2A 2A 2A 20 52 45 41 44 20 |0......*** READ |
000011E0: 49 4E 20 54 48 45 20 42 49 47 20 42 41 4C 4C 20 |IN THE BIG BALL |
000011F0: 53 50 52 49 54 45 20 2A 2A 2A 00 13 1A 0E 06 81 |SPRITE ***......|
00001200: 49 B2 30 A4 34 3A 81 4A B2 32 32 A4 34 36 3A 87 |I.0.4:.J.22.46:.|
00001210: 20 53 44 00 2F 1A 18 06 97 20 28 31 34 35 39 32 | SD./.... (14592|
00001220: AA 49 AC 36 34 AA 4A 29 2C 53 44 3A 82 3A 82 00 |.I.64.J),SD:.:..|
00001230: 50 1A 22 06 81 20 49 B2 30 A4 36 33 3A 87 20 53 |P.".. I.0.63:. S|
00001240: 44 3A 97 20 31 34 39 31 32 AA 49 2C 53 44 3A 82 |D:. 14912.I,SD:.|
00001250: 00 73 1A 2C 06 97 20 56 AA 32 31 2C 36 33 3A 8F |.s.,.. V.21,63:.|
00001260: 20 45 4E 41 42 4C 45 20 54 48 45 20 53 50 52 49 | ENABLE THE SPRI|
00001270: 54 45 53 00 7E 1A 36 06 81 49 B2 30 A4 35 00 91 |TES.~.6..I.0.5..|
00001280: 1A 40 06 97 20 32 30 34 30 AA 49 2C 32 32 38 AA |.@.. 2040.I,228.|
00001290: 49 00 B1 1A 4A 06 8F 2A 2A 2A 20 53 45 54 20 55 |I...J..*** SET U|
000012A0: 50 20 54 48 45 20 53 50 52 49 54 45 53 20 2A 2A |P THE SPRITES **|
000012B0: 2A 00 E2 1A 54 06 97 20 56 AA 33 39 AA 49 2C 43 |*...T.. V.39.I,C|
000012C0: 4F 28 49 29 3A 8F 2A 2A 2A 20 53 45 54 20 54 48 |O(I):.*** SET TH|
000012D0: 45 20 53 50 52 49 54 45 20 43 4F 4C 4F 52 20 2A |E SPRITE COLOR *|
000012E0: 2A 2A 00 F4 1A 5E 06 58 28 49 29 B2 31 34 35 AA |**...^.X(I).145.|
000012F0: 49 AC 31 32 00 01 1B 68 06 59 28 49 29 B2 32 33 |I.12...h.Y(I).23|
00001300: 30 00 35 1B 72 06 58 28 35 29 B2 31 35 36 3A 59 |0.5.r.X(5).156:Y|
00001310: 28 35 29 B2 38 33 3A 8F 2A 2A 2A 20 4C 41 52 47 |(5).83:.*** LARG|
00001320: 45 20 53 50 52 49 54 45 20 4C 4F 43 41 54 49 4F |E SPRITE LOCATIO|
00001330: 4E 20 2A 2A 2A 00 66 1B 7C 06 97 20 56 AA 49 AC |N ***.f.|.. V.I.|
00001340: 32 2C 58 28 49 29 3A 8F 2A 2A 2A 20 53 45 54 20 |2,X(I):.*** SET |
00001350: 49 4E 49 54 49 41 4C 20 58 2D 50 4F 53 49 54 49 |INITIAL X-POSITI|
00001360: 4F 4E 20 2A 2A 2A 00 90 1B 86 06 97 20 56 AA 31 |ON ***...... V.1|
00001370: AA 49 AC 32 2C 59 28 49 29 3A 8F 2A 2A 2A 20 53 |.I.2,Y(I):.*** S|
00001380: 45 54 20 49 4E 49 54 49 41 4C 20 59 20 2A 2A 2A |ET INITIAL Y ***|
00001390: 00 97 1B 90 06 82 49 00 AF 1B 9A 06 97 20 56 AA |......I...... V.|
000013A0: 32 33 2C 33 32 3A 97 20 56 AA 32 39 2C 33 32 00 |23,32:. V.29,32.|
000013B0: D3 1B A4 06 8F 2A 2A 2A 20 52 45 41 44 20 49 4E |.....*** READ IN|
000013C0: 20 54 48 45 20 42 49 4E 47 4F 20 53 4F 4E 47 20 | THE BINGO SONG |
000013D0: 2A 2A 2A 00 F4 1B AE 06 81 49 B2 30 A4 32 31 3A |***......I.0.21:|
000013E0: 87 46 4C 28 49 29 2C 46 48 28 49 29 2C 44 55 28 |.FL(I),FH(I),DU(|
000013F0: 49 29 3A 82 00 FA 1B B8 06 8E 00 2B 1C C2 06 4E |I):........+...N|
00001400: 43 B2 B5 28 BB 28 31 29 AC 35 29 3A 8F 2A 2A 2A |C..(.(1).5):.***|
00001410: 20 53 45 4C 45 43 54 20 54 48 45 20 42 41 4C 4C | SELECT THE BALL|
00001420: 20 4C 45 54 54 45 52 20 2A 2A 2A 00 6B 1C CC 06 | LETTER ***.k...|
00001430: 59 4D B2 B5 28 BB 28 30 29 AC 31 33 29 3A 8B 20 |YM..(.(0).13):. |
00001440: 59 4D B3 35 20 A7 20 59 4D B2 35 3A 8F 2A 2A 2A |YM.5 . YM.5:.***|
00001450: 20 47 45 54 20 54 48 45 20 4D 41 58 49 4D 55 4D | GET THE MAXIMUM|
00001460: 20 48 45 49 47 48 54 20 2A 2A 2A 00 73 1C D6 06 | HEIGHT ***.s...|
00001470: 4A B2 30 00 88 1C E0 06 59 B2 4A AE 32 AB 32 AC |J.0.....Y.J.2.2.|
00001480: 59 4D AC 4A AA 32 33 30 00 AE 1C EA 06 97 20 28 |YM.J.230...... (|
00001490: 56 AA 4E 43 AC 32 29 2C 58 28 4E 43 29 3A 97 28 |V.NC.2),X(NC):.(|
000014A0: 56 AA 31 AA 4E 43 AC 32 29 2C B5 28 59 29 00 E0 |V.1.NC.2),.(Y)..|
000014B0: 1C F4 06 8B 20 59 B3 B2 31 33 32 A7 20 8E 3A 8F |.... Y..132. .:.|
000014C0: 2A 2A 2A 20 42 41 4C 4C 20 57 45 4E 54 20 4F 56 |*** BALL WENT OV|
000014D0: 45 52 20 50 41 53 53 20 4C 49 4E 45 20 2A 2A 2A |ER PASS LINE ***|
000014E0: 00 FB 1C FE 06 8B 20 4A B3 32 AC 59 4D 20 A7 20 |...... J.2.YM . |
000014F0: 4A B2 4A AA 31 3A 89 31 37 36 30 00 27 1D 08 07 |J.J.1:.1760.'...|
00001500: 8D 31 38 33 30 3A 8F 2A 2A 2A 20 4D 41 4B 45 20 |.1830:.*** MAKE |
00001510: 54 48 45 20 42 41 4C 4C 20 50 4C 4F 50 20 53 4F |THE BALL PLOP SO|
00001520: 55 4E 44 20 2A 2A 2A 00 48 1D 12 07 89 31 37 33 |UND ***.H....173|
00001530: 30 3A 8F 2A 2A 2A 20 47 45 54 20 4E 45 58 54 20 |0:.*** GET NEXT |
00001540: 42 41 4C 4C 20 2A 2A 2A 00 6C 1D 1C 07 8F 2A 2A |BALL ***.l....**|
00001550: 2A 20 53 4F 55 4E 44 20 4F 46 20 54 48 45 20 42 |* SOUND OF THE B|
00001560: 41 4C 4C 20 50 4C 4F 50 20 2A 2A 2A 00 78 1D 26 |ALL PLOP ***.x.&|
00001570: 07 9E 20 32 38 36 37 32 00 95 1D 30 07 97 53 53 |.. 28672...0..SS|
00001580: 2C 32 35 35 3A 97 53 53 AA 31 2C 39 33 3A 97 53 |,255:.SS.1,93:.S|
00001590: 53 AA 35 2C 32 00 C1 1D 3A 07 97 53 53 AA 32 32 |S.5,2...:..SS.22|
000015A0: 2C 31 30 34 3A 97 53 53 AA 32 33 2C 31 3A 97 53 |,104:.SS.23,1:.S|
000015B0: 53 AA 32 34 2C 37 39 3A 97 53 53 AA 34 2C 31 32 |S.24,79:.SS.4,12|
000015C0: 39 00 CE 1D 44 07 97 53 53 AA 32 34 2C 30 00 D4 |9...D..SS.24,0..|
000015D0: 1D 4E 07 8E 00 ED 1D 58 07 8F 2A 2A 2A 20 43 48 |.N.....X..*** CH|
000015E0: 49 4D 45 20 53 4F 55 4E 44 20 2A 2A 2A 00 F9 1D |IME SOUND ***...|
000015F0: 62 07 9E 20 32 38 36 37 32 00 26 1E 6C 07 97 20 |b.. 28672.&.l.. |
00001600: 53 53 AA 31 2C 32 35 35 3A 97 20 53 53 AA 35 2C |SS.1,255:. SS.5,|
00001610: 39 3A 97 53 53 AA 31 35 2C 32 32 35 3A 97 53 53 |9:.SS.15,225:.SS|
00001620: AA 32 34 2C 31 35 00 33 1E 76 07 97 53 53 AA 34 |.24,15.3.v..SS.4|
00001630: 2C 32 31 00 4C 1E 80 07 81 54 54 B2 31 A4 33 30 |,21.L....TT.1.30|
00001640: 30 3A 82 3A 97 53 53 AA 34 2C 32 30 00 52 1E 8A |0:.:.SS.4,20.R..|
00001650: 07 8E 00 6F 1E 94 07 8F 2A 2A 2A 20 53 4F 55 52 |...o....*** SOUR|
00001660: 20 42 4F 4E 47 20 53 4F 55 4E 44 20 2A 2A 2A 00 | BONG SOUND ***.|
00001670: 7B 1E 9E 07 9E 20 32 38 36 37 32 00 A7 1E A8 07 |{.... 28672.....|
00001680: 97 20 53 53 AA 31 2C 35 35 3A 97 20 53 53 AA 35 |. SS.1,55:. SS.5|
00001690: 2C 39 3A 97 53 53 AA 31 35 2C 32 35 3A 97 20 53 |,9:.SS.15,25:. S|
000016A0: 53 AA 32 34 2C 31 35 00 B4 1E B2 07 97 53 53 AA |S.24,15......SS.|
000016B0: 34 2C 32 31 00 D7 1E BC 07 81 54 54 B2 31 A4 33 |4,21......TT.1.3|
000016C0: 30 30 3A 82 3A 97 53 53 AA 34 2C 32 30 3A 97 20 |00:.:.SS.4,20:. |
000016D0: 53 53 AA 32 34 2C 30 00 DD 1E C6 07 8E 00 07 1F |SS.24,0.........|
000016E0: D0 07 8F 2A 2A 2A 20 52 4F 55 54 49 4E 45 20 54 |...*** ROUTINE T|
000016F0: 4F 20 4C 4F 4F 4B 20 46 4F 52 20 41 20 57 49 4E |O LOOK FOR A WIN|
00001700: 4E 45 52 20 2A 2A 2A 00 20 1F DA 07 41 31 B2 33 |NER ***. ...A1.3|
00001710: 3A 41 32 B2 38 30 3A 41 33 B2 30 3A 41 34 B2 30 |:A2.80:A3.0:A4.0|
00001720: 00 45 1F E4 07 57 49 B2 4E 43 3A 8D 20 32 31 32 |.E...WI.NC:. 212|
00001730: 30 3A 8F 2A 2A 2A 20 43 48 45 43 4B 20 52 4F 57 |0:.*** CHECK ROW|
00001740: 53 20 2A 2A 2A 00 5E 1F EE 07 41 31 B2 38 30 3A |S ***.^...A1.80:|
00001750: 41 32 B2 33 3A 41 33 B2 30 3A 41 34 B2 30 00 82 |A2.3:A3.0:A4.0..|
00001760: 1F F8 07 57 49 B2 43 52 3A 8D 32 31 32 30 3A 8F |...WI.CR:.2120:.|
00001770: 2A 2A 2A 20 43 48 45 43 4B 20 43 4F 4C 53 20 2A |*** CHECK COLS *|
00001780: 2A 2A 00 B7 1F 02 08 8B 20 4E 43 B3 B1 43 52 20 |**...... NC..CR |
00001790: A7 20 32 30 38 30 3A 8F 2A 2A 2A 20 49 53 20 23 |. 2080:.*** IS #|
000017A0: 20 4F 4E 20 4D 41 4A 4F 52 20 44 49 41 47 4F 4E | ON MAJOR DIAGON|
000017B0: 41 4C 3F 20 2A 2A 2A 00 D0 1F 0C 08 41 31 B2 30 |AL? ***.....A1.0|
000017C0: 3A 41 32 B2 33 3A 41 33 B2 38 30 3A 41 34 B2 30 |:A2.3:A3.80:A4.0|
000017D0: 00 DB 1F 16 08 8D 20 32 31 32 30 00 11 20 20 08 |...... 2120.. .|
000017E0: 8B 20 4E 43 B3 B1 28 34 AB 43 52 29 20 A7 20 8E |. NC..(4.CR) . .|
000017F0: 3A 8F 2A 2A 2A 20 49 53 20 23 20 4F 4E 20 4D 49 |:.*** IS # ON MI|
00001800: 4E 4F 52 20 44 49 41 47 4F 4E 41 4C 3F 20 2A 2A |NOR DIAGONAL? **|
00001810: 2A 00 2A 20 2A 08 41 31 B2 30 3A 41 32 B2 33 3A |*.* *.A1.0:A2.3:|
00001820: 41 33 B2 30 3A 41 34 B2 38 30 00 35 20 34 08 8D |A3.0:A4.80.5 4..|
00001830: 20 32 31 32 30 00 3B 20 3E 08 8E 00 44 20 48 08 | 2120.; >...D H.|
00001840: 57 4A B2 30 00 6F 20 52 08 57 4D B2 53 28 43 44 |WJ.0.o R.WM.S(CD|
00001850: 29 AA 57 49 AC 41 31 AA 57 4A AC 41 32 AA 57 4A |).WI.A1.WJ.A2.WJ|
00001860: AC 41 33 AA 28 34 AB 57 4A 29 AC 41 34 AA 31 00 |.A3.(4.WJ).A4.1.|
00001870: 7C 20 5C 08 57 50 B2 C2 28 57 4D 29 00 8B 20 66 || \.WP..(WM).. f|
00001880: 08 8B 20 57 50 B3 31 32 38 A7 8E 00 9D 20 70 08 |.. WP.128.... p.|
00001890: 57 28 57 4A 29 B2 57 4D 20 AA 20 53 53 00 B6 20 |W(WJ).WM . SS.. |
000018A0: 7A 08 57 4A B2 57 4A AA 31 3A 8B 20 57 4A B3 B2 |z.WJ.WJ.1:. WJ..|
000018B0: 34 A7 32 31 33 30 00 D8 20 84 08 8F 2A 2A 2A 20 |4.2130.. ...*** |
000018C0: 43 48 41 4E 47 45 20 57 49 4E 4E 45 52 53 20 43 |CHANGE WINNERS C|
000018D0: 4F 4C 4F 52 20 2A 2A 2A 00 00 21 8E 08 81 20 57 |OLOR ***..!... W|
000018E0: 4A B2 30 A4 34 3A 81 51 B2 30 A4 31 3A 97 57 28 |J.0.4:.Q.0.1:.W(|
000018F0: 57 4A 29 AA 51 2C 37 3A 82 3A 82 3A 42 4F B2 31 |WJ).Q,7:.:.:BO.1|
00001900: 00 22 21 98 08 8F 20 2A 2A 2A 20 50 4C 41 59 20 |."!... *** PLAY |
00001910: 54 48 45 20 42 49 4E 47 4F 20 53 4F 4E 47 20 2A |THE BINGO SONG *|
00001920: 2A 2A 00 5E 21 A2 08 97 35 34 32 39 36 2C 31 35 |**.^!...54296,15|
00001930: 3A 97 35 34 32 37 37 2C 31 30 3A 97 35 34 32 37 |:.54277,10:.5427|
00001940: 38 2C 31 30 3A 8F 20 53 45 54 20 56 4F 4C 2C 41 |8,10:. SET VOL,A|
00001950: 54 54 2F 44 45 43 2C 53 55 53 2F 52 45 4C 00 8E |TT/DEC,SUS/REL..|
00001960: 21 AC 08 81 49 B2 30 A4 32 31 3A 97 35 34 32 37 |!...I.0.21:.5427|
00001970: 32 2C 46 4C 28 49 29 3A 97 35 34 32 37 33 2C 46 |2,FL(I):.54273,F|
00001980: 48 28 49 29 3A 97 35 34 32 37 36 2C 33 33 00 AD |H(I):.54276,33..|
00001990: 21 B6 08 81 54 B2 30 A4 20 44 55 28 49 29 AC 34 |!...T.0. DU(I).4|
000019A0: 3A 82 3A 97 35 34 32 37 36 2C 30 3A 82 00 CF 21 |:.:.54276,0:...!|
000019B0: C0 08 8F 2A 2A 2A 20 43 48 41 4E 47 45 20 57 49 |...*** CHANGE WI|
000019C0: 4E 4E 45 52 53 20 43 4F 4C 4F 52 20 2A 2A 2A 00 |NNERS COLOR ***.|
000019D0: F7 21 CA 08 81 20 57 4A B2 30 A4 34 3A 81 51 B2 |.!... WJ.0.4:.Q.|
000019E0: 30 A4 31 3A 97 57 28 57 4A 29 AA 51 2C 36 3A 82 |0.1:.W(WJ).Q,6:.|
000019F0: 3A 82 3A 42 4F B2 31 00 FD 21 D4 08 8E 00 1A 22 |:.:BO.1..!....."|
00001A00: DE 08 8F 20 4A 4F 59 53 54 49 43 4B 20 54 4F 4B |... JOYSTICK TOK|
00001A10: 45 4E 20 52 4F 55 54 49 4E 45 00 27 22 E8 08 43 |EN ROUTINE.'"..C|
00001A20: 4D B2 46 28 43 44 29 00 43 22 F2 08 4F 43 B2 C2 |M.F(CD).C"..OC..|
00001A30: 28 43 4D 29 3A 8F 20 4F 43 3D 4F 4C 44 20 43 4F |(CM):. OC=OLD CO|
00001A40: 4C 4F 52 00 68 22 FC 08 97 20 43 4D 2C 35 3A 97 |LOR.h"... CM,5:.|
00001A50: 20 43 4D AA 31 2C 35 3A 8F 20 43 4F 4C 4F 52 20 | CM.1,5:. COLOR |
00001A60: 49 54 20 47 52 45 45 4E 00 95 22 06 09 4B 42 B2 |IT GREEN.."..KB.|
00001A70: C2 28 44 30 29 3A 8F 20 52 45 41 44 20 54 48 45 |.(D0):. READ THE|
00001A80: 20 4B 45 59 42 4F 41 52 44 20 43 4F 4E 54 52 4F | KEYBOARD CONTRO|
00001A90: 4C 20 52 45 47 00 AB 22 10 09 97 20 44 30 2C 32 |L REG.."... D0,2|
00001AA0: 35 35 3A 50 44 B2 C2 28 44 31 29 00 BE 22 1A 09 |55:PD..(D1).."..|
00001AB0: 4A 30 B2 AB 28 28 50 44 AF 38 29 B2 30 29 00 D1 |J0..((PD.8).0)..|
00001AC0: 22 24 09 4A 31 B2 AB 28 28 50 44 AF 32 29 B2 30 |"$.J1..((PD.2).0|
00001AD0: 29 00 E4 22 2E 09 4A 32 B2 AB 28 28 50 44 AF 34 |).."..J2..((PD.4|
00001AE0: 29 B2 30 29 00 F7 22 38 09 4A 33 B2 AB 28 28 50 |).0).."8.J3..((P|
00001AF0: 44 AF 31 29 B2 30 29 00 0B 23 42 09 46 42 B2 AB |D.1).0)..#B.FB..|
00001B00: 28 28 50 44 AF 31 36 29 B2 30 29 00 2A 23 4C 09 |((PD.16).0).*#L.|
00001B10: 97 20 44 30 2C 4B 42 3A 8F 20 52 45 53 54 4F 52 |. D0,KB:. RESTOR|
00001B20: 45 20 4B 45 59 42 4F 41 52 44 00 49 23 56 09 8B |E KEYBOARD.I#V..|
00001B30: 28 4A 30 AA 4A 31 AA 4A 32 AA 4A 33 AA 46 42 29 |(J0.J1.J2.J3.FB)|
00001B40: B2 30 20 A7 20 32 35 36 30 00 5A 23 60 09 8B 20 |.0 . 2560.Z#`.. |
00001B50: 46 42 B2 31 A7 20 32 34 39 30 00 90 23 6A 09 43 |FB.1. 2490..#j.C|
00001B60: 43 B2 43 4D AA 28 4A 30 AB 4A 32 29 AC 33 AA 28 |C.CM.(J0.J2).3.(|
00001B70: 4A 31 AB 4A 33 29 AC 38 30 3A 8F 20 43 4F 4D 50 |J1.J3).80:. COMP|
00001B80: 55 54 45 20 4E 45 57 20 50 4F 53 49 54 49 4F 4E |UTE NEW POSITION|
00001B90: 00 AB 23 74 09 46 52 B2 B5 28 28 43 43 AB 53 28 |..#t.FR..((CC.S(|
00001BA0: 43 44 29 AB 53 53 29 AD 34 30 29 00 E9 23 7E 09 |CD).SS).40)..#~.|
00001BB0: 58 30 B2 53 28 43 44 29 AA 53 53 AA 46 52 AC 34 |X0.S(CD).SS.FR.4|
00001BC0: 30 3A 58 31 B2 58 30 AA 31 34 3A 8F 20 4D 49 4E |0:X1.X0.14:. MIN|
00001BD0: 2C 4D 41 58 20 48 2D 50 4F 53 49 54 49 4F 4E 53 |,MAX H-POSITIONS|
00001BE0: 20 46 4F 52 20 43 41 52 44 00 09 24 88 09 4E 4E | FOR CARD..$..NN|
00001BF0: B2 31 3A 89 20 31 33 39 30 3A 8F 20 47 45 54 20 |.1:. 1390:. GET |
00001C00: 4E 45 58 54 20 43 41 52 44 00 29 24 92 09 4E 4E |NEXT CARD.)$..NN|
00001C10: B2 31 3A 89 20 31 33 39 30 3A 8F 20 47 45 54 20 |.1:. 1390:. GET |
00001C20: 4E 45 58 54 20 43 41 52 44 00 3F 24 9C 09 97 20 |NEXT CARD.?$... |
00001C30: 43 4D 2C 4F 43 3A 97 20 43 4D AA 31 2C 4F 43 00 |CM,OC:. CM.1,OC.|
00001C40: 5B 24 A6 09 43 4D B2 43 43 3A 8F 20 4D 4F 56 45 |[$..CM.CC:. MOVE|
00001C50: 20 54 48 45 20 43 55 52 53 4F 52 00 65 24 B0 09 | THE CURSOR.e$..|
00001C60: 89 32 32 39 30 00 AF 24 BA 09 8F 20 41 43 54 20 |.2290..$... ACT |
00001C70: 4F 4E 20 46 49 52 45 42 55 54 54 4F 4E 2D 57 45 |ON FIREBUTTON-WE|
00001C80: 20 4D 55 53 54 20 43 48 45 43 4B 49 46 20 54 48 | MUST CHECKIF TH|
00001C90: 45 20 43 55 52 53 4F 52 20 49 53 20 57 49 54 48 |E CURSOR IS WITH|
00001CA0: 49 4E 20 41 20 42 4F 58 20 41 4E 44 20 49 46 00 |IN A BOX AND IF.|
00001CB0: DB 24 C4 09 8F 20 49 54 20 49 53 2C 20 49 53 20 |.$... IT IS, IS |
00001CC0: 54 48 45 20 4E 55 4D 42 45 52 20 54 48 45 20 43 |THE NUMBER THE C|
00001CD0: 4F 52 52 45 43 54 20 4F 4E 45 2E 00 FF 24 CE 09 |ORRECT ONE...$..|
00001CE0: 42 30 B2 C2 28 43 4D AB 53 53 29 AB 34 38 3A 42 |B0..(CM.SS).48:B|
00001CF0: 31 B2 C2 28 43 4D AB 53 53 AA 31 29 AB 34 38 00 |1..(CM.SS.1).48.|
00001D00: 31 25 D8 09 8B 20 42 30 B2 4E 31 20 AF 20 42 31 |1%... B0.N1 . B1|
00001D10: B2 4E 32 20 B0 20 42 30 B2 4E 31 AA 31 32 38 20 |.N2 . B0.N1.128 |
00001D20: AF 42 31 B2 4E 31 AA 31 32 38 20 A7 89 31 32 39 |.B1.N1.128 ..129|
00001D30: 30 00 5B 25 E2 09 8F 20 46 49 52 45 20 42 55 54 |0.[%... FIRE BUT|
00001D40: 54 4F 4E 20 50 52 45 53 53 45 44 20 57 48 45 4E |TON PRESSED WHEN|
00001D50: 20 4E 4F 54 20 4F 4E 20 42 4F 58 00 81 25 EC 09 | NOT ON BOX..%..|
00001D60: 97 43 4D 2C 4F 43 3A 97 43 4D AA 31 2C 4F 43 3A |.CM,OC:.CM.1,OC:|
00001D70: 8D 20 31 39 35 30 3A 8F 53 4F 55 52 20 47 4F 4E |. 1950:.SOUR GON|
00001D80: 47 00 A1 25 F6 09 4E 4E B2 31 3A 89 20 31 33 39 |G..%..NN.1:. 139|
00001D90: 30 3A 8F 20 47 45 54 20 4E 45 58 54 20 43 41 52 |0:. GET NEXT CAR|
00001DA0: 44 00 C4 25 00 0A 8F 20 4C 4F 4F 50 20 54 49 4C |D..%... LOOP TIL|
00001DB0: 4C 20 4A 4F 59 53 54 49 43 4B 20 49 53 20 41 43 |L JOYSTICK IS AC|
00001DC0: 54 49 56 45 00 D3 25 0A 0A 81 20 49 B2 30 A4 32 |TIVE..%... I.0.2|
00001DD0: 30 3A 82 00 E9 25 14 0A 97 20 43 4D 2C 4F 43 3A |0:...%... CM,OC:|
00001DE0: 97 20 43 4D AA 31 2C 4F 43 00 F8 25 1E 0A 81 20 |. CM.1,OC..%... |
00001DF0: 49 B2 30 A4 32 30 3A 82 00 03 26 28 0A 89 20 32 |I.0.20:...&(.. 2|
00001E00: 33 30 30 00 43 26 32 0A 83 20 31 36 30 2C 30 30 |300.C&2.. 160,00|
00001E10: 2C 31 36 35 2C 32 35 34 2C 31 34 35 2C 32 35 31 |,165,254,145,251|
00001E20: 2C 32 30 30 2C 31 39 36 2C 32 35 33 2C 32 30 38 |,200,196,253,208|
00001E30: 2C 32 34 39 2C 39 36 2C 32 35 32 2C 30 2C 33 2C |,249,96,252,0,3,|
00001E40: 32 35 35 00 8A 26 3C 0A 83 20 30 2C 33 2C 33 2C |255..&<.. 0,3,3,|
00001E50: 31 32 38 2C 37 2C 35 37 2C 31 32 38 2C 37 2C 33 |128,7,57,128,7,3|
00001E60: 35 2C 31 32 38 2C 37 2C 35 37 2C 31 32 38 2C 33 |5,128,7,57,128,3|
00001E70: 2C 33 2C 31 32 38 2C 33 2C 32 35 35 2C 30 2C 30 |,3,128,3,255,0,0|
00001E80: 2C 32 35 32 2C 32 35 32 2C 30 00 D3 26 46 0A 83 |,252,252,0..&F..|
00001E90: 33 2C 32 35 35 2C 30 2C 33 2C 33 2C 31 32 38 2C |3,255,0,3,3,128,|
00001EA0: 37 2C 32 30 37 2C 31 32 38 2C 37 2C 32 30 37 2C |7,207,128,7,207,|
00001EB0: 31 32 38 2C 37 2C 32 30 37 2C 31 32 38 2C 33 2C |128,7,207,128,3,|
00001EC0: 33 2C 31 32 38 2C 33 2C 32 35 35 2C 30 2C 30 2C |3,128,3,255,0,0,|
00001ED0: 32 35 32 00 1B 27 50 0A 83 32 35 32 2C 30 2C 33 |252..'P..252,0,3|
00001EE0: 2C 32 35 35 2C 30 2C 33 2C 32 35 2C 31 32 38 2C |,255,0,3,25,128,|
00001EF0: 37 2C 32 35 2C 31 32 38 2C 37 2C 34 31 2C 31 32 |7,25,128,7,41,12|
00001F00: 38 2C 37 2C 34 39 2C 31 32 38 2C 33 2C 35 37 2C |8,7,49,128,3,57,|
00001F10: 31 32 38 2C 33 2C 32 35 35 2C 30 00 60 27 5A 0A |128,3,255,0.`'Z.|
00001F20: 83 30 2C 32 35 32 2C 32 35 32 2C 30 2C 31 2C 31 |.0,252,252,0,1,1|
00001F30: 33 31 2C 30 2C 33 2C 34 39 2C 31 32 38 2C 36 2C |31,0,3,49,128,6,|
00001F40: 31 32 31 2C 31 32 38 2C 36 2C 31 32 37 2C 31 32 |121,128,6,127,12|
00001F50: 38 2C 36 2C 31 31 33 2C 31 32 38 2C 33 2C 35 37 |8,6,113,128,3,57|
00001F60: 00 77 27 64 0A 83 31 32 38 2C 33 2C 31 33 31 2C |.w'd..128,3,131,|
00001F70: 30 2C 30 2C 32 35 32 00 C0 27 6E 0A 83 32 35 32 |0,0,252..'n..252|
00001F80: 2C 30 2C 31 2C 31 33 31 2C 30 2C 33 2C 35 37 2C |,0,1,131,0,3,57,|
00001F90: 31 32 38 2C 36 2C 31 32 34 2C 31 32 38 2C 36 2C |128,6,124,128,6,|
00001FA0: 31 32 34 2C 31 32 38 2C 36 2C 31 32 34 2C 31 32 |124,128,6,124,12|
00001FB0: 38 2C 33 2C 35 37 2C 31 32 38 2C 33 2C 31 33 31 |8,3,57,128,3,131|
00001FC0: 00 CE 27 78 0A 83 20 30 2C 30 2C 32 35 32 00 19 |..'x.. 0,0,252..|
00001FD0: 28 82 0A 83 20 30 2C 31 32 36 2C 30 2C 31 2C 32 |(... 0,126,0,1,2|
00001FE0: 35 35 2C 31 32 38 2C 37 2C 32 35 35 2C 32 32 34 |55,128,7,255,224|
00001FF0: 2C 33 31 2C 32 35 35 2C 32 34 38 2C 36 33 2C 32 |,31,255,248,63,2|
00002000: 35 35 2C 32 35 32 2C 36 33 2C 32 35 35 2C 32 35 |55,252,63,255,25|
00002010: 32 2C 31 32 37 2C 32 35 35 00 63 28 8C 0A 83 20 |2,127,255.c(... |
00002020: 32 35 34 2C 31 32 30 2C 30 2C 33 30 2C 32 34 38 |254,120,0,30,248|
00002030: 2C 30 2C 33 31 2C 32 34 38 2C 30 2C 33 31 2C 32 |,0,31,248,0,31,2|
00002040: 34 38 2C 30 2C 33 31 2C 31 32 30 2C 30 2C 33 30 |48,0,31,120,0,30|
00002050: 2C 31 32 37 2C 32 35 35 2C 32 35 34 2C 36 33 2C |,127,255,254,63,|
00002060: 32 35 35 00 AD 28 96 0A 83 20 32 35 32 2C 36 33 |255..(... 252,63|
00002070: 2C 32 35 35 2C 32 35 32 2C 33 31 2C 32 35 35 2C |,255,252,31,255,|
00002080: 32 34 38 2C 37 2C 32 35 35 2C 32 32 34 2C 31 2C |248,7,255,224,1,|
00002090: 32 35 35 2C 31 32 38 2C 30 2C 31 32 36 2C 30 2C |255,128,0,126,0,|
000020A0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 F7 28 |0,0,0,0,0,0,0..(|
000020B0: A0 0A 83 20 33 38 2C 34 33 2C 33 39 2C 33 38 2C |... 38,43,39,38,|
000020C0: 34 33 2C 33 39 2C 31 38 33 2C 34 35 2C 33 39 2C |43,39,183,45,39,|
000020D0: 31 38 33 2C 34 35 2C 34 34 2C 31 38 33 2C 34 35 |183,45,44,183,45|
000020E0: 2C 36 34 2C 31 31 33 2C 33 38 2C 34 36 2C 31 31 |,64,113,38,46,11|
000020F0: 33 2C 33 38 2C 34 32 00 3E 29 AA 0A 83 20 33 38 |3,38,42.>)... 38|
00002100: 2C 34 33 2C 33 32 2C 33 38 2C 34 33 2C 33 36 2C |,43,32,38,43,36,|
00002110: 33 38 2C 34 33 2C 34 37 2C 36 34 2C 33 34 2C 35 |38,43,47,64,34,5|
00002120: 30 2C 36 34 2C 33 34 2C 35 34 2C 31 31 33 2C 33 |0,64,34,54,113,3|
00002130: 38 2C 33 37 2C 31 31 33 2C 33 38 2C 33 39 00 86 |8,37,113,38,39..|
00002140: 29 B4 0A 83 20 31 31 33 2C 33 38 2C 35 31 2C 36 |)... 113,38,51,6|
00002150: 34 2C 33 34 2C 35 37 2C 38 33 2C 33 32 2C 35 33 |4,34,57,83,32,53|
00002160: 2C 31 36 38 2C 32 35 2C 37 32 2C 32 30 34 2C 32 |,168,25,72,204,2|
00002170: 38 2C 35 34 2C 38 33 2C 33 32 2C 35 31 2C 36 34 |8,54,83,32,51,64|
00002180: 2C 33 34 2C 36 32 00 95 29 BE 0A 83 20 36 34 2C |,34,62..)... 64,|
00002190: 33 34 2C 37 35 00 00 00 00 00 00 2E |34,75....... |
.......53281,1:.53280,1.P. .SS.54272:V.5
3248:D0.56323:D1.56320:D2.56321:. V.21,0
.I.... G(147),G(17),G(17).......14);G(18
);G(31);"MODES OF PLAY":........14);G(28
);"*************":....H...4);G(144);"..1
- AUTO BALL FEED - AUTO COVER"...R...4
);".2- MANUAL BALL FEED - AUTO COVER".D.
....4);".3- MANUAL BALL FEED - MANUAL CO
VER".S.....4);".4- AUTO BALL FEED - MA
NUAL COVER"......:."........ENTER MODE S
ELECTED:"...... A$:. A$."". 250.R...AU.E
(A$).1:. AU.0 . AU.3 . 170.....M1$.".-CH
IME RINGS FOR NUMBER ON CARD".*...M2$.".
-GONG RINGS FOR NUMBER ON NO CARD".P.".M
3$.".-HIT ANY KEY FOR BALL FEED"...,.M4$
.".-USE JOYSTICK (PORT 2)-FIRE TO COVER"
...6..G(147),G(17),G(17)...@.. .2);M1$:.
.2);M2$.N.J.. AU.1 . AU.2 . . .2);M3$..
.T.. AU.2 . AU.3 . . .2);M4$...^..:. .10
);".....HIT ANY KEY TO START".*.H.. A$:.
A$."".360.6.R..G(147).M.|..*** READ THE
ML CODE TO SET A BLOCK OF MEMORY ***...
... I.0.11:. X%:. 28672.I,X%:.I......***
SET THE COLOR MEMORY TO BLACK ***.O....
I.0.3:HB.216.I...... 251,0:.252,HB:.253
,0:.254,0:. 28672:..@.... SD(4,62),CO(5)
,X(5),Y(5),FL(21),FH(21),DU(21),C(3,4,4)
,N(4,14).U...CO(0).0:CO(1).14:CO(2).4:CO
(3).2:CO(4).7:CO(5).0...B.L(0).130:L(1).
137:L(2).142:L(3).135:L(4).143.R.L.S(0).
1104:S(1).1127:S(2).1624:S(3).1647...V.F
(0).1271.SS:F(1).1294.SS:F(2).1791.SS:F(
3).1814.SS.*.... 640:.*** MAKE THE BOX *
**.Q.... 1470:.*** MAKE BINGO SPRITES **
*.W....*** BLANK OUT THE FREE-BOXES ***.
.....I.0.3:. F(I),1:.F(I).1,1:..J....840
:.*** CHOOSE THE NUMBERS FOR THE CARDS *
**......*** PUT RED COVER-TOKEN ON FREE-
BOXES ***.5.... I.0.3:.F(I).SS,160:.F(I)
.1.SS,160:.F(I),8:.F(I).1,8:..|.&..CD.0.
3:C(CD,2,2).0:.:. SET CENTER BOX TO ILLE
GAL VALUE (FREE BOX)...0..*** DRAW THE P
ASS LINE ***...:..LI.0.6:.(1520.LI),64:.
LI.V.D..*** START OF PLAY ***...N..1100
:.*** GET THE NEXT NUMBER ***.-.X.. 1170
:.*** CHECK THE CARDS FOR A MATCH ***.G.
B.. AU.0 . AU.3 . 590:.*** CHECK FOR AUT
O BALL-FEED ***...L.. A$:. A$."". 620 :.
*** WAIT FOR NEXT BALL ***...V..590.....
. *** BOX MAKER ***.U...T0$." B I N G
O ".....A1.176:A2.96:A3.178:A4.174:.71
0:T1$.A$.(...A1.98:A2.32:A3.98:A4.98:.71
0:T2$.A$.S...A1.171:A2.96:A3.123:A4.179:
.710:T3$.A$.~...A1.173:A2.96:A3.177:A4.1
89:.710:T4$.A$......750. .F.A$.G(A2).G(A
3).G(A2).K.P.A$.G(A1).G(A2).A$.A$.A$.A$.
G(A2).G(A4)...Z.A$.A$." ".A$......
...... G(18)G(31)T0$G(146).8)G(18)G(31)T
0$G(146).).... G(144);T1$.A.... I.1.4:.T
2$:.T3$:..Q....T2$:.T4$:....... G(18)G(3
1)T0$G(146).8)G(18)G(31)T0$G(146)... ..
G(144);T1$...*.. I.1.4:.T2$:.T3$:....4..
T2$:.T4$;...>.....H..*** CHOOSE THE CARD
NUMBERS ***...R..*** FIRST ZERO THE CAL
LED NUMBER ARRAY ***.9.\.. CL.0.4:.NN.0.
14:N(CL,NN).0:.:..W.F.CD.0 :.*** CARD L
OOP ***.W.P.CL.0 :.*** COLUMN LOOP ***.
..Z.. I.0.4:C(CD,CL,I).0:.:.*** ZERO COL
OF NUMBERS ON CARD ***.T...RN.0 :.***
ROW LOOP ***.....Z..(.(0).15).1.15.CL...
...*** TEST FOR THE NUMBER IN USE ***...
..J.0.U.... C(CD,CL,J).Z . 910 :.*** NUM
BER HAS BEEN USED ***.N.... J.RN . J.J.1
:. 940.....C(CD,CL,RN).Z...J..*** PRINT
NUMBER IN THE BOX ***...T.N$.D(Z).....LN
.C(N$).L....Q.1.LN.1.....SN.S(CD).CL.3.R
N.80.Q.(3.LN).....PN.F(J(N$,Q.1,1)).....
. SN,PN......Q.1.... RN.4 . RN.RN.1:. 91
0.L.$.. CL.4 . CL.CL.1:. 890.G.... CD.3
. CD.CD.1:. 880.M.8.....B.. *** SELECT T
HE NEXT BALL NUMBER ***.D.L.. 1730 :.***
FIRST CHOOSE THE LETTER ***...V..*** NE
XT THE NUMBER ***...`.NU..(.(0).15):NM.N
U.1.NC.15.(.J..*** HAS IT ALREADY BEEN U
SED? ***.Y.T.. N(NC,NU).1 . 1110:.*** YE
S-GET ANOTHER ***.H.~.N(NC,NU).1.N......
....*** PRINT THE NUMBER ON THE BIG BALL
***.....N1..(NM.10):N2.NM.N1.10.K.... N
1.0. N1..16...... 1282,L(NC):.1283,N1.17
6:.1284,N2.176......V.44,CO(NC).2.D..***
CHECK FOR NUMBER ON THE CARDS ***.;.N.N
N.0.D.X.BO.0.E...CD.0 :. *** CARD LOO
P ***.....CR.0 :. *** ROW LOOP ***...
... C(CD,NC,CR)..NM . 1390...... AU.1 .
2270.V...NN.1 :.*** FOUND A MATCH ***..
....*** PUT THE RED COVER-TOKEN ON THE N
UMBER ***.#...P1.S(CD).CR.80.NC.3.1.1.(.
. P1.SS,8.A.2.. P1.1.SS,8.S.<.. P1.1,N2.
176.C.F.. P1,N1.176...P.. 1890 :.*** RIN
G THE CHIME ***...Z.. 2000:.*** CHECK FO
R A WINNER ***...D.. 1400.T.N.. CR.4 . C
R.CR.1:.1270...X.. CD.3 . CD.CD.1:.1260.
#.... NN.0. . 1950:.*** NO MATCH-SOUND T
HE GONG ***.1...Y(NC).230.S.... V.1.NC.2
,Y(NC):. SET INIT Y... .. BO.0 . .:.***
NO WINNER- GET NEXT BALL ***...... A$:.
A$."". 1450:.*** WINNER-WAIT FOR A RESTA
RT ***.T.... V.21,0:.:.:.150......*** MA
KE THE BINGO SPRITES ***...H..*** ZERO T
HE SPRITES MEMORY ***.(.R..I.0.3.Z.... 2
51,I.64:.252,57:.253,63:.254,00:. 28672:
.I...... 251,00:.252,58:.253,63:. 254,00
:. 28672......*** SET UP TO ZERO SOUND *
**.Q.... 251,00:.252,212:.253,24:. 254,0
0......*** READ IN THE BIG BALL SPRITE *
**......I.0.4:.J.22.46:. SD./.... (14592
.I.64.J),SD:.:..P.".. I.0.63:. SD:. 1491
2.I,SD:..S.,.. V.21,63:. ENABLE THE SPRI
TES.~.6..I.0.5...@.. 2040.I,228.I...J..*
** SET UP THE SPRITES ***...T.. V.39.I,C
O(I):.*** SET THE SPRITE COLOR ***...^.X
(I).145.I.12...H.Y(I).230.5.R.X(5).156:Y
(5).83:.*** LARGE SPRITE LOCATION ***.F.
|.. V.I.2,X(I):.*** SET INITIAL X-POSITI
ON ***...... V.1.I.2,Y(I):.*** SET INITI
AL Y ***......I...... V.23,32:. V.29,32.
S....*** READ IN THE BINGO SONG ***.....
.I.0.21:.FL(I),FH(I),DU(I):........+.B.N
C..(.(1).5):.*** SELECT THE BALL LETTER
***.K.L.YM..(.(0).13):. YM.5 . YM.5:.***
GET THE MAXIMUM HEIGHT ***.S.V.J.0.....
Y.J.2.2.YM.J.230...... (V.NC.2),X(NC):.(
V.1.NC.2),.(Y)...... Y..132. .:.*** BALL
WENT OVER PASS LINE ***...... J.2.YM .
J.J.1:.1760.'....1830:.*** MAKE THE BALL
PLOP SOUND ***.H....1730:.*** GET NEXT
BALL ***.L....*** SOUND OF THE BALL PLOP
***.X.&.. 28672...0..SS,255:.SS.1,93:.S
S.5,2.A.:..SS.22,104:.SS.23,1:.SS.24,79:
.SS.4,129.N.D..SS.24,0.T.N.....X..*** CH
IME SOUND ***...B.. 28672.&.L.. SS.1,255
:. SS.5,9:.SS.15,225:.SS.24,15.3.V..SS.4
,21.L....TT.1.300:.:.SS.4,20.R.....O....
*** SOUR BONG SOUND ***.{.... 28672.....
. SS.1,55:. SS.5,9:.SS.15,25:. SS.24,15.
.....SS.4,21.W....TT.1.300:.:.SS.4,20:.
SS.24,0...F.....P..*** ROUTINE TO LOOK F
OR A WINNER ***. .Z.A1.3:A2.80:A3.0:A4.0
.E...WI.NC:. 2120:.*** CHECK ROWS ***.^.
..A1.80:A2.3:A3.0:A4.0.....WI.CR:.2120:.
*** CHECK COLS ***...... NC..CR . 2080:.
*** IS # ON MAJOR DIAGONAL? ***.P...A1.0
:A2.3:A3.80:A4.0...... 2120.. .. NC..(4
.CR) . .:.*** IS # ON MINOR DIAGONAL? **
*.* *.A1.0:A2.3:A3.0:A4.80.5 4.. 2120.;
>...D H.WJ.0.O R.WM.S(CD).WI.A1.WJ.A2.WJ
.A3.(4.WJ).A4.1.| \.WP.B(WM).. F.. WP.12
8.... P.W(WJ).WM . SS.. Z.WJ.WJ.1:. WJ..
4.2130.X ...*** CHANGE WINNERS COLOR ***
..!... WJ.0.4:.Q.0.1:.W(WJ).Q,7:.:.:BO.1
."!... *** PLAY THE BINGO SONG ***.^!...
54296,15:.54277,10:.54278,10:. SET VOL,A
TT/DEC,SUS/REL..!...I.0.21:.54272,FL(I):
.54273,FH(I):.54276,33..!...T.0. DU(I).4
:.:.54276,0:..O!...*** CHANGE WINNERS CO
LOR ***..!J.. WJ.0.4:.Q.0.1:.W(WJ).Q,6:.
:.:BO.1..!T...."... JOYSTICK TOKEN ROUTI
NE.'"..CM.F(CD).C"..OC.B(CM):. OC=OLD CO
LOR.H"... CM,5:. CM.1,5:. COLOR IT GREEN
.."..KB.B(D0):. READ THE KEYBOARD CONTRO
L REG.."... D0,255:PD.B(D1).."..J0..((PD
.8).0).Q"$.J1..((PD.2).0).."..J2..((PD.4
).0).."8.J3..((PD.1).0)..#B.FB..((PD.16)
.0).*#L.. D0,KB:. RESTORE KEYBOARD.I#V..
(J0.J1.J2.J3.FB).0 . 2560.Z#`.. FB.1. 24
90..#J.CC.CM.(J0.J2).3.(J1.J3).80:. COMP
UTE NEW POSITION..#T.FR..((CC.S(CD).SS).
40)..#~.X0.S(CD).SS.FR.40:X1.X0.14:. MIN
,MAX H-POSITIONS FOR CARD..$..NN.1:. 139
0:. GET NEXT CARD.)$..NN.1:. 1390:. GET
NEXT CARD.?$... CM,OC:. CM.1,OC.[$..CM.C
C:. MOVE THE CURSOR.E$...2290..$... ACT
ON FIREBUTTON-WE MUST CHECKIF THE CURSOR
IS WITHIN A BOX AND IF..$D.. IT IS, IS
THE NUMBER THE CORRECT ONE...$N.B0.B(CM.
SS).48:B1.B(CM.SS.1).48.1%X.. B0.N1 . B1
.N2 . B0.N1.128 .B1.N1.128 ..1290.[%...
FIRE BUTTON PRESSED WHEN NOT ON BOX..%..
.CM,OC:.CM.1,OC:. 1950:.SOUR GONG..%..NN
.1:. 1390:. GET NEXT CARD.D%... LOOP TIL
L JOYSTICK IS ACTIVE.S%... I.0.20:...%..
. CM,OC:. CM.1,OC..%... I.0.20:...&(.. 2
300.C&2.. 160,00,165,254,145,251,200,196
,253,208,249,96,252,0,3,255..&<.. 0,3,3,
128,7,57,128,7,35,128,7,57,128,3,3,128,3
,255,0,0,252,252,0.S&F..3,255,0,3,3,128,
7,207,128,7,207,128,7,207,128,3,3,128,3,
255,0,0,252..'P..252,0,3,255,0,3,25,128,
7,25,128,7,41,128,7,49,128,3,57,128,3,25
5,0.`'Z..0,252,252,0,1,131,0,3,49,128,6,
121,128,6,127,128,6,113,128,3,57.W'D..12
8,3,131,0,0,252..'N..252,0,1,131,0,3,57,
128,6,124,128,6,124,128,6,124,128,3,57,1
28,3,131.N'X.. 0,0,252..(... 0,126,0,1,2
55,128,7,255,224,31,255,248,63,255,252,6
3,255,252,127,255.C(... 254,120,0,30,248
,0,31,248,0,31,248,0,31,120,0,30,127,255
,254,63,255..(... 252,63,255,252,31,255,
248,7,255,224,1,255,128,0,126,0,0,0,0,0,
0,0,0..( .. 38,43,39,38,43,39,183,45,39,
183,45,44,183,45,64,113,38,46,113,38,42.
>)... 38,43,32,38,43,36,38,43,47,64,34,5
0,64,34,54,113,38,37,113,38,39..)... 113
,38,51,64,34,57,83,32,53,168,25,72,204,2
8,54,83,32,51,64,34,62..)... 64,34,75...
....
> CLICK IMAGE PREVIEW FOR FULL MODAL