GEO│
FILE INFORMATION
FILENAME(S): GEO│
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 21:28:02
APPEARS ON: 1 disk(s)
FILE HASH
432a01caec3ff9fd06abde9815e7a0c6313c2ac803f38457d33750917a6cf02f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A | GEO│ | PRG | DuncanTwain | 24 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: BA 41 E0 41 0A 00 8F 20 2A 2A 43 52 45 41 54 45 |.A.A... **CREATE|
00000010: 44 20 42 59 20 52 4F 42 45 52 54 20 52 4F 53 45 |D BY ROBERT ROSE|
00000020: 4E 42 41 55 4D 2A 2A 00 FD 41 14 00 8F 20 2A 2A |NBAUM**..A... **|
00000030: 2A 2A 20 28 43 29 20 31 39 38 38 20 20 20 2A 2A |** (C) 1988 **|
00000040: 2A 2A 2A 2A 00 09 42 1E 00 22 53 45 54 55 50 22 |****..B.."SETUP"|
00000050: 00 19 42 20 00 3A 20 20 FA 0E 20 32 34 31 39 39 |..B .: .. 24199|
00000060: 00 26 42 22 00 3A 20 20 FA D3 3A FA DC 00 47 42 |.&B".: ..:...GB|
00000070: 24 00 3A 20 20 86 20 57 44 24 28 35 2C 35 29 2C |$.: . WD$(5,5),|
00000080: 57 24 28 32 34 29 2C 47 54 24 28 31 35 29 00 6D |W$(24),GT$(15).m|
00000090: 42 26 00 3A 20 20 FA 59 22 50 44 42 49 4E 47 4F |B&.: .Y"PDBINGO|
000000A0: 32 22 3A 27 4C 4F 41 44 20 4D 45 4E 55 20 54 41 |2":'LOAD MENU TA|
000000B0: 42 4C 45 27 00 7B 42 28 00 22 4D 45 4E 55 22 3A |BLE'.{B(."MENU":|
000000C0: FA DC 00 B9 42 29 00 3A FA D6 20 31 30 30 2C 35 |....B).:.. 100,5|
000000D0: 30 2C C7 28 32 34 29 AA C7 28 32 35 29 AA C7 28 |0,.(24)..(25)..(|
000000E0: 31 38 29 AA 22 47 20 45 20 4F 20 C2 20 C9 20 CE |18)."G E O . . .|
000000F0: 20 C7 20 CF 22 AA C7 28 32 37 29 AA C7 28 30 29 | . ."..(27)..(0)|
00000100: 00 C9 42 2A 00 3A 20 20 FA D2 20 32 34 32 39 35 |..B*.: .. 24295|
00000110: 00 EB 42 2C 00 3A 20 20 FA AE 20 FB 10 28 30 29 |..B,.: .. ..(0)|
00000120: 20 FA 02 20 22 48 45 4C 50 22 2C 22 42 49 4E 47 | .. "HELP","BING|
00000130: 4F 22 00 FB 42 2E 00 3A 20 FA 01 20 22 4D 45 4E |O"..B..: .. "MEN|
00000140: 55 22 00 07 43 30 00 22 42 49 4E 47 4F 22 00 20 |U"..C0."BINGO". |
00000150: 43 32 00 3A 20 FA AE 20 FB 10 28 31 29 20 FA 01 |C2.: .. ..(1) ..|
00000160: 20 22 43 41 52 44 22 00 2B 43 34 00 22 43 41 52 | "CARD".+C4."CAR|
00000170: 44 22 00 32 43 35 00 FA DC 00 44 43 36 00 FA 02 |D".2C5....DC6...|
00000180: 20 22 48 4F 57 20 4D 41 4E 59 22 00 54 43 37 00 | "HOW MANY".TC7.|
00000190: 81 20 43 44 B2 31 20 A4 20 41 4E 00 62 43 46 00 |. CD.1 . AN.bCF.|
000001A0: 81 20 49 B2 31 20 A4 20 35 00 70 43 50 00 81 20 |. I.1 . 5.pCP.. |
000001B0: 4A B2 31 20 A4 20 35 00 81 43 5A 00 57 44 24 28 |J.1 . 5..CZ.WD$(|
000001C0: 49 2C 4A 29 B2 22 2A 22 00 89 43 64 00 82 20 4A |I,J)."*"..Cd.. J|
000001D0: 00 91 43 6E 00 82 20 49 00 B0 43 78 00 57 44 24 |..Cn.. I..Cx.WD$|
000001E0: 28 33 2C 33 29 B2 22 20 20 20 20 20 46 52 45 45 |(3,3)." FREE|
000001F0: 20 20 20 20 20 2A 22 00 D8 43 82 00 FA 6E 20 43 | *"..C...n C|
00000200: 44 B1 31 20 FA 6F 20 FA D0 3A FA 02 20 22 43 48 |D.1 .o ..:.. "CH|
00000210: 45 43 4B 31 22 3A FA 01 20 32 34 30 3A FA 71 00 |ECK1":.. 240:.q.|
00000220: DE 43 90 00 3A 00 EE 43 95 00 81 20 4E B2 20 31 |.C..:..C... N. 1|
00000230: 20 A4 20 32 34 00 02 44 96 00 3A 20 FA 02 20 22 | . 24..D..: .. "|
00000240: 57 48 41 54 57 4F 52 44 22 00 14 44 B4 00 58 B2 |WHATWORD"..D..X.|
00000250: B5 28 BB 28 31 29 AC 35 29 AA 31 00 26 44 BE 00 |.(.(1).5).1.&D..|
00000260: 59 B2 B5 28 BB 28 31 29 AC 35 29 AA 31 00 60 44 |Y..(.(1).5).1.`D|
00000270: C8 00 FA 6E 20 57 44 24 28 58 2C 59 29 B2 22 2A |...n WD$(X,Y)."*|
00000280: 22 20 FA 6F 20 FA D0 3A 57 44 24 28 58 2C 59 29 |" .o ..:WD$(X,Y)|
00000290: B2 57 24 28 4E 29 3A FA 02 20 33 36 30 3A FA 01 |.W$(N):.. 360:..|
000002A0: 20 32 32 30 3A FA 71 00 6A 44 D2 00 89 20 31 38 | 220:.q.jD... 18|
000002B0: 30 00 72 44 DC 00 82 20 4E 00 81 44 F0 00 FA 02 |0.rD... N..D....|
000002C0: 20 22 50 52 49 4E 54 22 00 8B 44 FA 00 9F 20 34 | "PRINT"..D... 4|
000002D0: 2C 34 00 C4 44 04 01 98 34 2C 22 42 20 20 20 20 |,4..D...4,"B |
000002E0: 20 20 22 2C 22 49 20 20 20 20 20 20 22 2C 22 4E | ","I ","N|
000002F0: 20 20 20 20 20 20 22 2C 22 47 20 20 20 20 20 20 | ","G |
00000300: 22 2C 22 4F 20 20 20 20 20 20 22 00 DA 44 0E 01 |","O "..D..|
00000310: 8D 20 38 35 30 3A 8D 20 34 31 30 3A 8D 20 38 35 |. 850:. 410:. 85|
00000320: 30 00 E8 44 18 01 81 20 49 B2 31 20 A4 20 35 00 |0..D... I.1 . 5.|
00000330: F6 44 22 01 81 20 4A B2 31 20 A4 20 35 00 11 45 |.D".. J.1 . 5..E|
00000340: 27 01 FA 6E 20 4A B2 35 20 FA 6F 20 FA D0 3A FA |'..n J.5 .o ..:.|
00000350: 01 20 33 30 35 3A FA 71 00 28 45 2C 01 98 34 2C |. 305:.q.(E,..4,|
00000360: 57 44 24 28 49 2C 4A 29 3B 3A 89 20 33 31 30 00 |WD$(I,J);:. 310.|
00000370: 38 45 31 01 98 34 2C 57 44 24 28 49 2C 4A 29 00 |8E1..4,WD$(I,J).|
00000380: 40 45 36 01 82 20 4A 00 55 45 40 01 8D 38 30 30 |@E6.. J.UE@..800|
00000390: 3A 8D 20 34 31 30 3A 8D 20 38 35 30 00 72 45 4A |:. 410:. 850.rEJ|
000003A0: 01 82 20 49 3A FA 02 20 39 30 30 3A 98 34 2C 20 |.. I:.. 900:.4, |
000003B0: C7 28 31 32 29 3A A0 20 34 00 7D 45 54 01 82 20 |.(12):. 4.}ET.. |
000003C0: 43 44 3A 8E 00 88 45 59 01 22 51 55 49 54 22 00 |CD:...EY."QUIT".|
000003D0: 91 45 5B 01 3A 20 FA D4 00 9A 45 5E 01 3A 20 FA |.E[.: ....E^.: .|
000003E0: 08 00 A7 45 63 01 22 43 48 45 43 4B 32 22 00 BD |...Ec."CHECK2"..|
000003F0: 45 68 01 45 58 B2 31 34 AB C3 28 57 44 24 28 58 |Eh.EX.14..(WD$(X|
00000400: 2C 59 29 29 00 F8 45 6D 01 FA 6E 20 C9 28 57 44 |,Y))..Em..n .(WD|
00000410: 24 28 58 2C 59 29 2C 31 29 B3 B1 22 20 22 20 FA |$(X,Y),1).." " .|
00000420: 6F 20 FA D0 3A 57 44 24 28 58 2C 59 29 B2 57 44 |o ..:WD$(X,Y).WD|
00000430: 24 28 58 2C 59 29 AA 22 2A 22 3A 8E 3A FA 71 00 |$(X,Y)."*":.:.q.|
00000440: 08 46 72 01 81 20 43 54 B2 31 20 A4 20 45 58 00 |.Fr.. CT.1 . EX.|
00000450: 22 46 7C 01 57 44 24 28 58 2C 59 29 B2 57 44 24 |"F|.WD$(X,Y).WD$|
00000460: 28 58 2C 59 29 AA 22 20 22 00 41 46 86 01 82 20 |(X,Y)." ".AF... |
00000470: 43 54 3A 57 44 24 28 58 2C 59 29 B2 57 44 24 28 |CT:WD$(X,Y).WD$(|
00000480: 58 2C 59 29 AA 22 2A 22 00 47 46 90 01 8E 00 62 |X,Y)."*".GF....b|
00000490: 46 9A 01 8F 20 2A 2A 2A 2A 20 50 52 49 4E 54 20 |F... **** PRINT |
000004A0: 52 4F 57 53 20 2A 2A 2A 2A 00 71 46 9F 01 81 20 |ROWS ****.qF... |
000004B0: 4C B2 31 20 A4 20 37 35 00 7D 46 A4 01 98 34 2C |L.1 . 75.}F...4,|
000004C0: 22 2A 22 3B 00 88 46 AE 01 82 20 4C 3A 98 34 00 |"*";..F... L:.4.|
000004D0: 8E 46 B8 01 8E 00 9B 46 BD 01 22 43 48 45 43 4B |.F.....F.."CHECK|
000004E0: 31 22 00 AA 46 C2 01 81 20 4E B2 31 20 A4 20 32 |1"..F... N.1 . 2|
000004F0: 34 00 BC 46 CC 01 58 B2 B5 28 BB 28 31 29 AC 35 |4..F..X..(.(1).5|
00000500: 29 AA 31 00 CE 46 D6 01 59 B2 B5 28 BB 28 31 29 |).1..F..Y..(.(1)|
00000510: AC 35 29 AA 31 00 0D 47 E0 01 FA 6E 20 57 44 24 |.5).1..G...n WD$|
00000520: 28 58 2C 59 29 B2 22 2A 22 20 FA 6F 20 FA D0 3A |(X,Y)."*" .o ..:|
00000530: 57 44 24 28 58 2C 59 29 B2 57 24 28 4E 29 3A FA |WD$(X,Y).W$(N):.|
00000540: 02 20 22 43 48 45 43 4B 32 22 3A FA 01 20 35 30 |. "CHECK2":.. 50|
00000550: 30 3A FA 71 00 17 47 EA 01 89 20 34 36 30 00 1F |0:.q..G... 460..|
00000560: 47 F4 01 82 20 4E 00 25 47 FE 01 8E 00 30 47 08 |G... N.%G....0G.|
00000570: 02 22 49 4E 46 4F 22 00 3A 47 0D 02 3A 20 20 FA |."INFO".:G..: .|
00000580: DC 00 7E 47 12 02 3A FA D6 20 34 35 2C 35 2C 22 |..~G..:.. 45,5,"|
00000590: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |THIS PROGRAM WIL|
000005A0: 4C 20 50 52 49 4E 54 20 43 55 53 54 4F 4D 49 5A |L PRINT CUSTOMIZ|
000005B0: 45 44 20 42 49 4E 47 4F 20 43 41 52 44 53 2E 22 |ED BINGO CARDS."|
000005C0: AA C7 28 30 29 00 B5 47 1C 02 3A FA D6 20 34 35 |..(0)..G..:.. 45|
000005D0: 2C 31 35 2C 22 54 48 45 20 43 4F 4D 50 55 54 45 |,15,"THE COMPUTE|
000005E0: 52 20 57 49 4C 4C 20 41 53 4B 20 59 4F 55 20 46 |R WILL ASK YOU F|
000005F0: 4F 52 20 54 48 45 22 AA C7 28 30 29 00 F2 47 26 |OR THE"..(0)..G&|
00000600: 02 3A FA D6 20 34 35 2C 32 35 2C 22 4E 55 4D 42 |.:.. 45,25,"NUMB|
00000610: 45 52 20 4F 46 20 43 41 52 44 53 20 54 48 41 54 |ER OF CARDS THAT|
00000620: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 52 49 | YOU WANT TO PRI|
00000630: 4E 54 2E 22 AA C7 28 30 29 00 2D 48 30 02 3A FA |NT."..(0).-H0.:.|
00000640: D6 20 34 35 2C 33 35 2C 22 54 48 45 4E 20 54 48 |. 45,35,"THEN TH|
00000650: 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 |E COMPUTER WILL |
00000660: 41 53 4B 20 59 4F 55 20 46 4F 52 20 32 34 22 AA |ASK YOU FOR 24".|
00000670: C7 28 30 29 00 63 48 3A 02 3A FA D6 20 34 35 2C |.(0).cH:.:.. 45,|
00000680: 34 35 2C 22 57 4F 52 44 53 20 54 48 41 54 20 57 |45,"WORDS THAT W|
00000690: 49 4C 4C 20 42 45 20 4F 4E 20 45 41 43 48 20 43 |ILL BE ON EACH C|
000006A0: 41 52 44 2E 22 AA C7 28 30 29 00 A6 48 3F 02 3A |ARD."..(0)..H?.:|
000006B0: FA D6 20 34 35 2C 35 35 2C 22 45 41 43 48 20 57 |.. 45,55,"EACH W|
000006C0: 4F 52 44 20 4D 55 53 54 20 42 45 20 4E 4F 20 4D |ORD MUST BE NO M|
000006D0: 4F 52 45 20 54 48 41 4E 20 31 34 20 43 48 41 52 |ORE THAN 14 CHAR|
000006E0: 41 43 54 45 52 53 2E 22 AA C7 28 30 29 00 E4 48 |ACTERS."..(0)..H|
000006F0: 44 02 3A FA D6 20 34 35 2C 36 35 2C 22 54 48 45 |D.:.. 45,65,"THE|
00000700: 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 54 | COMPUTER WILL T|
00000710: 48 45 4E 20 50 52 4F 4D 50 54 20 59 4F 55 20 42 |HEN PROMPT YOU B|
00000720: 45 46 4F 52 45 22 AA C7 28 30 29 00 0F 49 4E 02 |EFORE"..(0)..IN.|
00000730: 3A FA D6 20 34 35 2C 37 35 2C 22 45 41 43 48 20 |:.. 45,75,"EACH |
00000740: 43 41 52 44 20 49 53 20 50 52 49 4E 54 45 44 2E |CARD IS PRINTED.|
00000750: 22 AA C7 28 30 29 00 44 49 62 02 3A FA D6 20 34 |"..(0).DIb.:.. 4|
00000760: 35 2C 38 35 2C 22 45 41 43 48 20 43 41 52 44 20 |5,85,"EACH CARD |
00000770: 57 49 4C 4C 20 42 45 20 50 52 49 4E 54 45 44 20 |WILL BE PRINTED |
00000780: 49 4E 20 41 20 22 AA C7 28 30 29 00 6A 49 6C 02 |IN A "..(0).jIl.|
00000790: 3A FA D6 20 34 35 2C 39 35 2C 22 44 49 46 46 45 |:.. 45,95,"DIFFE|
000007A0: 52 45 4E 54 20 4F 52 44 45 52 2E 22 AA C7 28 30 |RENT ORDER."..(0|
000007B0: 29 00 A6 49 94 02 3A FA D6 20 34 35 2C 31 30 35 |)..I..:.. 45,105|
000007C0: 2C 22 49 20 55 53 45 20 54 48 49 53 20 50 52 4F |,"I USE THIS PRO|
000007D0: 47 52 41 4D 20 41 53 20 41 20 52 45 56 49 45 57 |GRAM AS A REVIEW|
000007E0: 20 46 4F 52 20 4D 59 22 AA C7 28 30 29 00 DC 49 | FOR MY"..(0)..I|
000007F0: 9E 02 3A FA D6 20 34 35 2C 31 31 35 2C 22 53 54 |..:.. 45,115,"ST|
00000800: 55 44 45 4E 54 53 20 42 45 46 4F 52 45 20 57 45 |UDENTS BEFORE WE|
00000810: 20 48 41 56 45 20 41 20 54 45 53 54 2E 22 AA C7 | HAVE A TEST."..|
00000820: 28 30 29 00 1A 4A A8 02 3A FA D6 20 34 35 2C 31 |(0)..J..:.. 45,1|
00000830: 32 35 2C 22 41 4C 4C 20 59 4F 55 20 4E 45 45 44 |25,"ALL YOU NEED|
00000840: 20 54 4F 20 44 4F 20 49 53 20 50 52 45 53 45 4E | TO DO IS PRESEN|
00000850: 54 20 51 55 45 53 54 49 4F 4E 53 22 AA C7 28 30 |T QUESTIONS"..(0|
00000860: 29 00 50 4A B2 02 3A FA D6 20 34 35 2C 31 33 35 |).PJ..:.. 45,135|
00000870: 2C 22 49 4E 53 54 45 41 44 20 4F 46 20 43 41 4C |,"INSTEAD OF CAL|
00000880: 4C 49 4E 47 20 4F 55 54 20 4E 55 4D 42 45 52 53 |LING OUT NUMBERS|
00000890: 2E 22 AA C7 28 30 29 00 8C 4A BC 02 3A FA D6 20 |."..(0)..J..:.. |
000008A0: 34 35 2C 31 34 35 2C 22 49 46 20 54 48 45 20 53 |45,145,"IF THE S|
000008B0: 54 55 44 45 4E 54 53 20 43 41 4E 20 43 4F 56 45 |TUDENTS CAN COVE|
000008C0: 52 20 54 48 45 20 43 4F 52 52 45 43 54 22 AA C7 |R THE CORRECT"..|
000008D0: 28 30 29 00 C7 4A C6 02 3A FA D6 20 34 35 2C 31 |(0)..J..:.. 45,1|
000008E0: 35 35 2C 22 41 4E 53 57 45 52 20 4F 4E 20 54 48 |55,"ANSWER ON TH|
000008F0: 45 49 52 20 43 41 52 44 53 20 54 48 45 4E 20 54 |EIR CARDS THEN T|
00000900: 48 45 59 20 48 41 56 45 22 AA C7 28 30 29 00 F1 |HEY HAVE"..(0)..|
00000910: 4A D0 02 3A FA D6 20 34 35 2C 31 36 35 2C 22 43 |J..:.. 45,165,"C|
00000920: 48 41 4E 43 45 20 46 4F 52 20 41 20 42 49 4E 47 |HANCE FOR A BING|
00000930: 4F 2E 22 AA C7 28 30 29 00 1F 4B DA 02 3A FA D6 |O."..(0)..K..:..|
00000940: 20 34 35 2C 31 37 35 2C 22 49 54 20 43 41 4E 20 | 45,175,"IT CAN |
00000950: 42 45 20 4C 4F 54 53 20 4F 46 20 46 55 4E 21 21 |BE LOTS OF FUN!!|
00000960: 22 AA C7 28 30 29 00 51 4B DC 02 3A FA D6 20 34 |"..(0).QK..:.. 4|
00000970: 35 2C 31 38 35 2C 22 28 50 52 45 53 53 20 41 4E |5,185,"(PRESS AN|
00000980: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
00000990: 45 29 22 AA C7 28 30 29 00 61 4B DE 02 3A FA 25 |E)"..(0).aK..:.%|
000009A0: 3A A1 20 4B 24 3A FA DC 00 8F 4B E4 02 3A FA D6 |:. K$:....K..:..|
000009B0: 20 34 35 2C 31 30 30 2C 22 20 20 20 20 20 20 20 | 45,100," |
000009C0: 52 4F 42 45 52 54 20 52 4F 53 45 4E 42 41 55 4D |ROBERT ROSENBAUM|
000009D0: 22 AA C7 28 30 29 00 B5 4B EE 02 3A FA D6 20 34 |"..(0)..K..:.. 4|
000009E0: 35 2C 31 31 30 2C 22 20 20 20 20 20 20 20 28 43 |5,110," (C|
000009F0: 29 20 31 39 38 38 22 AA C7 28 30 29 00 E7 4B 02 |) 1988"..(0)..K.|
00000A00: 03 3A FA D6 20 34 35 2C 31 34 30 2C 22 28 50 52 |.:.. 45,140,"(PR|
00000A10: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
00000A20: 4F 4E 54 49 4E 55 45 29 22 AA C7 28 30 29 00 F9 |ONTINUE)"..(0)..|
00000A30: 4B 07 03 3A FA 25 3A A1 20 4B 24 3A FA DC 3A 8E |K..:.%:. K$:..:.|
00000A40: 00 FF 4B 0C 03 80 00 19 4C 20 03 81 20 53 50 B2 |..K.....L .. SP.|
00000A50: 31 20 A4 20 33 3A 81 20 50 54 B2 31 20 A4 20 35 |1 . 3:. PT.1 . 5|
00000A60: 00 35 4C 25 03 FA 6E 20 50 54 B2 35 20 FA 6F 20 |.5L%..n PT.5 .o |
00000A70: FA D0 3A FA 01 20 38 31 35 3A FA 71 00 55 4C 2A |..:.. 815:.q.UL*|
00000A80: 03 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 |..4," |
00000A90: 20 20 20 2A 22 3B 3A 89 20 38 32 30 00 6E 4C 2F | *";:. 820.nL/|
00000AA0: 03 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 |..4," |
00000AB0: 20 20 20 2A 22 00 7E 4C 34 03 82 20 50 54 3A 82 | *".~L4.. PT:.|
00000AC0: 20 53 50 3A 8E 00 94 4C 52 03 FA 6E 20 49 B2 35 | SP:...LR..n I.5|
00000AD0: 20 FA 6F 20 FA D0 3A 8E 3A FA 71 00 AE 4C 54 03 | .o ..:.:.q..LT.|
00000AE0: 81 20 53 50 B2 31 20 A4 20 32 3A 81 20 50 54 B2 |. SP.1 . 2:. PT.|
00000AF0: 31 20 A4 20 35 00 CA 4C 57 03 FA 6E 20 50 54 B2 |1 . 5..LW..n PT.|
00000B00: 35 20 FA 6F 20 FA D0 3A FA 01 20 38 36 35 3A FA |5 .o ..:.. 865:.|
00000B10: 71 00 EA 4C 5C 03 98 34 2C 22 20 20 20 20 20 20 |q..L\..4," |
00000B20: 20 20 20 20 20 20 20 20 2A 22 3B 3A 89 20 38 37 | *";:. 87|
00000B30: 30 00 03 4D 61 03 98 34 2C 22 20 20 20 20 20 20 |0..Ma..4," |
00000B40: 20 20 20 20 20 20 20 20 2A 22 00 13 4D 66 03 82 | *"..Mf..|
00000B50: 20 50 54 3A 82 20 53 50 3A 8E 00 22 4D 84 03 81 | PT:. SP:.."M...|
00000B60: 20 53 50 B2 31 20 A4 20 36 00 29 4D 93 03 98 34 | SP.1 . 6.)M...4|
00000B70: 00 34 4D 98 03 82 20 53 50 3A 8E 00 3F 4D E8 03 |.4M... SP:..?M..|
00000B80: 22 48 45 4C 50 22 00 5F 4D F2 03 3A 20 FA AE 20 |"HELP"._M..: .. |
00000B90: FB 10 28 31 29 20 FA 01 20 22 49 4E 46 4F 22 2C |..(1) .. "INFO",|
00000BA0: 22 51 55 49 54 22 00 6E 4D D0 07 22 48 4F 57 20 |"QUIT".nM.."HOW |
00000BB0: 4D 41 4E 59 22 00 9F 4D DA 07 3A 20 20 20 FA D6 |MANY"..M..: ..|
00000BC0: 20 31 30 30 2C 31 30 30 2C C7 28 32 34 29 AA 22 | 100,100,.(24)."|
00000BD0: C8 4F 57 20 4D 41 4E 59 20 43 41 52 44 53 20 3F |.OW MANY CARDS ?|
00000BE0: 22 AA C7 28 30 29 00 B7 4D E4 07 3A 20 20 20 47 |"..(0)..M..: G|
00000BF0: 54 24 B2 C7 28 30 29 AA 22 20 20 20 20 22 00 CE |T$..(0)." "..|
00000C00: 4D EE 07 3A 20 20 20 FA D9 20 31 30 30 2C 31 31 |M..: .. 100,11|
00000C10: 30 2C 47 54 24 00 F3 4D F8 07 3A 20 20 20 FA B5 |0,GT$..M..: ..|
00000C20: 20 38 32 38 2C 47 54 24 3A FA D7 20 38 32 38 2C | 828,GT$:.. 828,|
00000C30: 38 32 38 AA C3 28 47 54 24 29 00 0F 4E 02 08 3A |828..(GT$)..N..:|
00000C40: 20 20 20 FA 44 20 47 54 24 2C C3 28 47 54 24 29 | .D GT$,.(GT$)|
00000C50: AB 31 2C 38 32 38 00 21 4E 0C 08 3A 20 20 20 41 |.1,828.!N..: A|
00000C60: 4E B2 C5 28 47 54 24 29 00 2B 4E 16 08 3A 20 20 |N..(GT$).+N..: |
00000C70: 20 8E 00 3D 4E B8 0B 22 57 48 41 54 57 4F 52 44 | ..=N.."WHATWORD|
00000C80: 22 3A FA DC 00 4E 4E C2 0B 3A 20 20 20 20 4E 24 |":...NN..: N$|
00000C90: B2 C4 28 4E 29 00 76 4E E0 0B 3A 20 FA D6 20 31 |..(N).vN..: .. 1|
00000CA0: 30 30 2C 31 30 30 2C C7 28 32 34 29 AA 22 57 4F |00,100,.(24)."WO|
00000CB0: 52 44 23 20 22 AA 4E 24 AA C7 28 30 29 00 98 4E |RD# ".N$..(0)..N|
00000CC0: EA 0B 3A 20 20 20 47 54 24 B2 C7 28 30 29 AA 22 |..: GT$..(0)."|
00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000CE0: AD 4E F4 0B 3A 20 FA D9 20 31 30 30 2C 31 31 30 |.N..: .. 100,110|
00000CF0: 2C 47 54 24 00 EB 4E F9 0B FA 6E 20 47 54 24 B2 |,GT$..N...n GT$.|
00000D00: C7 28 30 29 AA 22 20 20 20 20 20 20 20 20 20 20 |.(0)." |
00000D10: 20 20 20 20 22 20 FA 6F 20 FA D0 3A FA 02 20 22 | " .o ..:.. "|
00000D20: 43 48 45 43 4B 33 22 3A FA 01 20 33 30 34 30 3A |CHECK3":.. 3040:|
00000D30: FA 71 00 0E 4F FE 0B 3A 20 FA B5 20 38 38 30 2C |.q..O..: .. 880,|
00000D40: 47 54 24 3A FA D7 20 38 38 30 2C 38 38 30 AA C3 |GT$:.. 880,880..|
00000D50: 28 47 54 24 29 00 28 4F 08 0C 3A 20 FA 44 20 47 |(GT$).(O..: .D G|
00000D60: 54 24 2C C3 28 47 54 24 29 AB 31 2C 38 38 30 00 |T$,.(GT$).1,880.|
00000D70: 39 4F 12 0C 3A 20 20 57 24 28 4E 29 B2 47 54 24 |9O..: W$(N).GT$|
00000D80: 00 41 4F 1C 0C 3A 20 8E 00 50 4F A0 0F 22 50 52 |.AO..: ..PO.."PR|
00000D90: 49 4E 54 22 3A FA DC 00 86 4F AA 0F 3A FA D6 20 |INT":....O..:.. |
00000DA0: 31 30 30 2C 31 30 30 2C C7 28 32 34 29 AA 22 28 |100,100,.(24)."(|
00000DB0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00000DC0: 20 50 52 49 4E 54 29 22 AA C7 28 30 29 00 98 4F | PRINT)"..(0)..O|
00000DD0: B4 0F 3A FA 25 3A A1 20 4B 24 3A FA DC 3A 8E 00 |..:.%:. K$:..:..|
00000DE0: A8 4F 88 13 22 43 48 45 43 4B 33 22 3A FA DC 00 |.O.."CHECK3":...|
00000DF0: D3 4F 92 13 3A 20 FA D6 20 31 30 30 2C 31 30 30 |.O..: .. 100,100|
00000E00: 2C C7 28 32 34 29 AA 22 D4 D2 D9 20 C1 C7 C1 C9 |,.(24)."... ....|
00000E10: CE 2E 2E 2E 22 AA C7 28 30 29 00 06 50 9C 13 3A |...."..(0)..P..:|
00000E20: FA D6 20 31 30 30 2C 31 31 30 2C 22 28 50 52 45 |.. 100,110,"(PRE|
00000E30: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00000E40: 4E 54 49 4E 55 45 29 22 AA C7 28 30 29 00 18 50 |NTINUE)"..(0)..P|
00000E50: A6 13 3A FA 25 3A A1 20 4B 24 3A FA DC 3A 8E 00 |..:.%:. K$:..:..|
00000E60: 00 00 |.. |
.A.A... **CREATED BY ROBERT ROSENBAUM**.
.A... **** (C) 1988 ******..B.."SETUP"
..B .: .. 24199.&B".: .S:...GB$.: . W
D$(5,5),W$(24),GT$(15).MB&.: .Y"PDBINGO
2":'LOAD MENU TABLE'.{B(."MENU":....B).:
.V 100,50,G(24).G(25).G(18)."G E O B I N
G O".G(27).G(0).IB*.: .R 24295..B,.:
.. ..(0) .. "HELP","BINGO"..B..: .. "MEN
U"..C0."BINGO". C2.: .. ..(1) .. "CARD".
+C4."CARD".2C5....DC6... "HOW MANY".TC7.
. CD.1 . AN.BCF.. I.1 . 5.PCP.. J.1 . 5.
.CZ.WD$(I,J)."*"..CD.. J..CN.. I..CX.WD$
(3,3)." FREE *".XC...N CD.1 .O .
P:.. "CHECK1":.. 240:.Q..C..:..C... N. 1
. 24..D..: .. "WHATWORD"..D..X..(.(1).5
).1.&D..Y..(.(1).5).1.`DH..N WD$(X,Y)."*
" .O .P:WD$(X,Y).W$(N):.. 360:.. 220:.Q.
JDR.. 180.RD... N..D.... "PRINT"..D... 4
,4.DD...4,"B ","I ","N ",
"G ","O ".ZD... 850:. 410:. 85
0..D... I.1 . 5..D".. J.1 . 5..E'..N J.5
.O .P:.. 305:.Q.(E,..4,WD$(I,J);:. 310.
8E1..4,WD$(I,J).@E6.. J.UE@..800:. 410:.
850.REJ.. I:.. 900:.4, G(12): 4.}ET..
CD:...EY."QUIT"..E[.: .T..E^.: ....EC."C
HECK2"..EH.EX.14.C(WD$(X,Y))..EM..N I(WD
$(X,Y),1).." " .O .P:WD$(X,Y).WD$(X,Y)."
*":.:.Q..FR.. CT.1 . EX."F|.WD$(X,Y).WD$
(X,Y)." ".AF... CT:WD$(X,Y).WD$(X,Y)."*"
.GF....BF... **** PRINT ROWS ****.QF...
L.1 . 75.}F...4,"*";..F... L:.4..F.....F
.."CHECK1"..FB.. N.1 . 24..FL.X..(.(1).5
).1.NFV.Y..(.(1).5).1..G...N WD$(X,Y)."*
" .O .P:WD$(X,Y).W$(N):.. "CHECK2":.. 50
0:.Q..G... 460..G... N.%G....0G.."INFO".
:G..: ...~G..:.V 45,5,"THIS PROGRAM WIL
L PRINT CUSTOMIZED BINGO CARDS.".G(0)..G
..:.V 45,15,"THE COMPUTER WILL ASK YOU F
OR THE".G(0)..G&.:.V 45,25,"NUMBER OF CA
RDS THAT YOU WANT TO PRINT.".G(0).-H0.:.
V 45,35,"THEN THE COMPUTER WILL ASK YOU
FOR 24".G(0).CH:.:.V 45,45,"WORDS THAT W
ILL BE ON EACH CARD.".G(0)..H?.:.V 45,55
,"EACH WORD MUST BE NO MORE THAN 14 CHAR
ACTERS.".G(0)..HD.:.V 45,65,"THE COMPUTE
R WILL THEN PROMPT YOU BEFORE".G(0)..IN.
:.V 45,75,"EACH CARD IS PRINTED.".G(0).D
IB.:.V 45,85,"EACH CARD WILL BE PRINTED
IN A ".G(0).JIL.:.V 45,95,"DIFFERENT ORD
ER.".G(0)..I..:.V 45,105,"I USE THIS PRO
GRAM AS A REVIEW FOR MY".G(0)..I..:.V 45
,115,"STUDENTS BEFORE WE HAVE A TEST.".G
(0)..J..:.V 45,125,"ALL YOU NEED TO DO I
S PRESENT QUESTIONS".G(0).PJ..:.V 45,135
,"INSTEAD OF CALLING OUT NUMBERS.".G(0).
.J..:.V 45,145,"IF THE STUDENTS CAN COVE
R THE CORRECT".G(0).GJF.:.V 45,155,"ANSW
ER ON THEIR CARDS THEN THEY HAVE".G(0)..
JP.:.V 45,165,"CHANCE FOR A BINGO.".G(0)
..KZ.:.V 45,175,"IT CAN BE LOTS OF FUN!!
".G(0).QK..:.V 45,185,"(PRESS ANY KEY TO
CONTINUE)".G(0).AK..:.%:. K$:....K..:.V
45,100," ROBERT ROSENBAUM".G(0)..
K..:.V 45,110," (C) 1988".G(0)..K.
.:.V 45,140,"(PRESS ANY KEY TO CONTINUE)
".G(0)..K..:.%:. K$:..:...K.....L .. SP.
1 . 3:. PT.1 . 5.5L%..N PT.5 .O .P:.. 81
5:.Q.UL*..4," *";:. 820.NL/
..4," *".~L4.. PT:. SP:...L
R..N I.5 .O .P:.:.Q..LT.. SP.1 . 2:. PT.
1 . 5.JLW..N PT.5 .O .P:.. 865:.Q..L\..4
," *";:. 870..MA..4,"
*"..MF.. PT:. SP:.."M... SP.1 .
6.)M...4.4M... SP:..?M.."HELP"._M..: ..
..(1) .. "INFO","QUIT".NMP."HOW MANY"..M
Z.: .V 100,100,G(24)."HOW MANY CARDS ?
".G(0)..M..: GT$.G(0)." ".NM..: .
Y 100,110,GT$..M..: .. 828,GT$:.W 828,
828.C(GT$)..N..: .D GT$,C(GT$).1,828.!
N..: AN.E(GT$).+N..: ..=N.."WHATWORD
":...NNB.: N$.D(N).VN..: .V 100,100,G
(24)."WORD# ".N$.G(0)..N..: GT$.G(0)."
"..N..: .Y 100,110,GT$..N.
..N GT$.G(0)." " .O .P:.. "
CHECK3":.. 3040:.Q..O..: .. 880,GT$:.W 8
80,880.C(GT$).(O..: .D GT$,C(GT$).1,880.
9O..: W$(N).GT$.AO..: ..PO ."PRINT":...
.O..:.V 100,100,G(24)."(PRESS ANY KEY TO
PRINT)".G(0)..O..:.%:. K$:..:...O.."CHE
CK3":...SO..: .V 100,100,G(24)."TRY AGAI
N...".G(0)..P..:.V 100,110,"(PRESS ANY K
EY TO CONTINUE)".G(0)..P..:.%:. K$:..:..
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL