EPIDEMIC
FILE INFORMATION
FILENAME(S): EPIDEMIC
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-10-20 14:37:21
APPEARS ON: 1 disk(s)
FILE HASH
87a9067bde144484323755b962c268be08c011a46d50e741db738650a6a48391
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 COLLECTION 2 | EPIDEMIC | PRG | Treasure Chest - LehrerMIL | 12 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 64 00 8F 20 43 36 34 20 4D 4F 44 53 |....d.. C64 MODS|
00000010: 20 42 59 20 57 49 4D 20 33 2F 32 35 2F 38 33 00 | BY WIM 3/25/83.|
00000020: 4F 08 78 00 49 B2 BB 28 AB BB 28 30 29 29 3A 97 |O.x.I..(..(0)):.|
00000030: 35 33 32 37 32 2C 32 31 3A 97 35 33 32 38 30 2C |53272,21:.53280,|
00000040: 36 3A 97 35 33 32 38 31 2C 37 3A 99 22 90 22 00 |6:.53281,7:.".".|
00000050: 71 08 8C 00 54 24 B2 22 13 11 11 11 11 11 11 11 |q...T$."........|
00000060: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000070: 22 00 82 08 96 00 51 50 B2 31 39 37 3A 51 41 B2 |".....QP.197:QA.|
00000080: 37 33 00 A2 08 A0 00 49 47 B2 31 36 30 3A 56 49 |73.....IG.160:VI|
00000090: B2 32 31 35 3A 43 4F B2 32 30 39 3A 47 49 B2 31 |.215:CO.209:GI.1|
000000A0: 37 30 00 AC 08 AA 00 89 31 33 36 30 00 E6 08 B4 |70......1360....|
000000B0: 00 99 C7 28 31 34 37 29 22 48 4F 57 20 4D 41 4E |...(147)"HOW MAN|
000000C0: 59 20 49 53 4C 41 4E 44 45 52 53 20 28 3C 3D 31 |Y ISLANDERS (<=1|
000000D0: 30 30 29 3F 22 3B 3A 8D 31 37 32 30 3A 4E 50 B2 |00)?";:.1720:NP.|
000000E0: C5 28 5A 31 24 29 00 F4 08 BE 00 8B 4E 50 B2 30 |.(Z1$)......NP.0|
000000F0: A7 31 38 30 00 0C 09 C8 00 8B 4E 50 B1 31 30 30 |.180......NP.100|
00000100: A7 99 22 91 91 22 3B 3A 89 31 38 30 00 41 09 D2 |.."..";:.180.A..|
00000110: 00 99 22 11 48 4F 57 20 4D 41 4E 59 20 49 4E 46 |..".HOW MANY INF|
00000120: 45 43 54 45 44 20 41 54 20 53 54 41 52 54 3F 22 |ECTED AT START?"|
00000130: 3B 3A 8D 31 37 32 30 3A 4E 49 B2 C5 28 5A 31 24 |;:.1720:NI..(Z1$|
00000140: 29 00 4F 09 DC 00 8B 4E 49 B2 30 A7 32 31 30 00 |).O....NI.0.210.|
00000150: 66 09 E6 00 8B 4E 49 B1 4E 50 A7 99 22 91 91 22 |f....NI.NP..".."|
00000160: 3B 3A 89 32 31 30 00 96 09 F0 00 99 22 11 43 4F |;:.210......".CO|
00000170: 4E 54 41 47 49 4F 4E 20 54 49 4D 45 20 28 44 41 |NTAGION TIME (DA|
00000180: 59 53 29 3F 22 3B 3A 8D 31 37 32 30 3A 43 54 B2 |YS)?";:.1720:CT.|
00000190: C5 28 5A 31 24 29 00 AC 09 FA 00 8B 43 54 B2 30 |.(Z1$)......CT.0|
000001A0: A7 99 22 91 91 22 3B 3A 89 32 34 30 00 B2 09 04 |.."..";:.240....|
000001B0: 01 8C 00 CD 09 0E 01 99 C7 28 31 34 37 29 3A 81 |.........(147):.|
000001C0: 49 B2 31 A4 31 38 3A 87 49 4C 2C 49 52 00 E4 09 |I.1.18:.IL,IR...|
000001D0: 18 01 81 4A B2 49 4C A4 49 52 3A 97 4A 2C 49 47 |...J.IL.IR:.J,IG|
000001E0: 3A 82 3A 82 00 19 0A 22 01 99 22 13 12 D7 92 3D |:.:....".."....=|
000001F0: 55 4E 49 4E 46 45 43 54 45 44 20 20 20 12 D1 92 |UNINFECTED ...|
00000200: 3D 43 4F 4E 54 41 47 49 4F 55 53 20 20 20 12 2A |=CONTAGIOUS .*|
00000210: 92 3D 49 4D 4D 55 4E 45 22 00 3E 0A 2C 01 99 22 |.=IMMUNE".>.,.."|
00000220: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000230: 11 11 11 11 43 4F 4E 54 41 47 49 4F 4E 22 00 63 |....CONTAGION".c|
00000240: 0A 36 01 99 22 13 11 11 11 11 11 11 11 11 11 11 |.6.."...........|
00000250: 11 11 11 11 11 11 11 11 11 11 54 49 4D 45 20 22 |..........TIME "|
00000260: 43 54 3B 00 7B 0A 40 01 8B 43 54 B1 31 A7 99 22 |CT;.{.@..CT.1.."|
00000270: 20 44 41 59 53 22 3A 89 33 34 30 00 87 0A 4A 01 | DAYS":.340...J.|
00000280: 99 22 20 44 41 59 22 00 8D 0A 54 01 8F 00 B3 0A |." DAY"...T.....|
00000290: 5E 01 97 51 41 AA 32 2C C2 28 51 41 29 3A 97 51 |^..QA.2,.(QA):.Q|
000002A0: 41 AA 33 2C C2 28 51 41 AA 31 29 3A 5A 39 B2 B8 |A.3,.(QA.1):Z9..|
000002B0: 28 30 29 00 DB 0A 68 01 86 50 50 28 4E 50 29 2C |(0)...h..PP(NP),|
000002C0: 50 47 28 4E 50 29 2C 44 43 28 4E 50 29 2C 4E 49 |PG(NP),DC(NP),NI|
000002D0: 28 35 30 29 2C 49 4D 28 35 30 29 00 F2 0A 72 01 |(50),IM(50)...r.|
000002E0: 81 49 B2 31 A4 4E 50 3A 50 47 28 49 29 B2 56 49 |.I.1.NP:PG(I).VI|
000002F0: 3A 82 00 09 0B 7C 01 81 49 B2 31 A4 4E 49 3A 50 |:....|..I.1.NI:P|
00000300: 47 28 49 29 B2 43 4F 3A 82 00 1F 0B 86 01 81 49 |G(I).CO:.......I|
00000310: B2 31 A4 4E 50 3A 44 43 28 49 29 B2 30 3A 82 00 |.1.NP:DC(I).0:..|
00000320: 36 0B 90 01 81 49 B2 31 A4 4E 49 3A 44 43 28 49 |6....I.1.NI:DC(I|
00000330: 29 B2 43 54 3A 82 00 42 0B 9A 01 81 49 B2 31 A4 |).CT:..B....I.1.|
00000340: 4E 50 00 6F 0B A4 01 50 50 28 49 29 B2 B5 28 36 |NP.o...PP(I)..(6|
00000350: 39 30 AC BB 28 31 29 AA 31 31 35 37 29 3A 8B C2 |90..(1).1157):..|
00000360: 28 50 50 28 49 29 29 B3 B1 49 47 A7 34 32 30 00 |(PP(I))..IG.420.|
00000370: 82 0B AE 01 97 50 50 28 49 29 2C 50 47 28 49 29 |.....PP(I),PG(I)|
00000380: 3A 82 00 8B 0B B8 01 4E 44 B2 30 00 B3 0B C2 01 |:......ND.0.....|
00000390: 49 4D B2 30 3A 99 22 13 11 22 A3 37 29 4E 50 AB |IM.0:."..".7)NP.|
000003A0: 4E 49 AB 49 4D 3B A3 32 30 29 4E 49 3B A3 33 30 |NI.IM;.20)NI;.30|
000003B0: 29 49 4D 00 C5 0B CC 01 99 22 13 11 11 11 44 41 |)IM......"....DA|
000003C0: 59 22 3B 4E 44 00 DB 0B D6 01 4E 44 B2 4E 44 AA |Y";ND.....ND.ND.|
000003D0: 31 3A 4E 49 B2 30 3A 49 4D B2 30 00 E7 0B E0 01 |1:NI.0:IM.0.....|
000003E0: 81 49 B2 31 A4 4E 50 00 ED 0B EA 01 8F 00 14 0C |.I.1.NP.........|
000003F0: F4 01 8B 28 C2 28 50 50 28 49 29 29 B2 43 4F 29 |...(.(PP(I)).CO)|
00000400: AF 28 50 47 28 49 29 B2 56 49 29 A7 44 43 28 49 |.(PG(I).VI).DC(I|
00000410: 29 B2 43 54 00 27 0C FE 01 50 47 28 49 29 B2 C2 |).CT.'...PG(I)..|
00000420: 28 50 50 28 49 29 29 00 5C 0C 08 02 91 B5 28 39 |(PP(I)).\.....(9|
00000430: AC BB 28 31 29 AA 31 29 8D 39 30 30 2C 39 31 30 |..(1).1).900,910|
00000440: 2C 39 32 30 2C 39 33 30 2C 39 34 30 2C 39 35 30 |,920,930,940,950|
00000450: 2C 39 36 30 2C 39 37 30 2C 39 38 30 00 62 0C 12 |,960,970,980.b..|
00000460: 02 8F 00 76 0C 1C 02 8B 50 47 28 49 29 B2 43 4F |...v....PG(I).CO|
00000470: A7 8D 31 30 36 30 00 7C 0C 26 02 8F 00 90 0C 30 |..1060.|.&.....0|
00000480: 02 8B 50 47 28 49 29 B2 56 49 A7 8D 31 31 36 30 |..PG(I).VI..1160|
00000490: 00 96 0C 3A 02 8F 00 B2 0C 44 02 8B 50 47 28 49 |...:.....D..PG(I|
000004A0: 29 B2 43 4F A7 44 43 28 49 29 B2 44 43 28 49 29 |).CO.DC(I).DC(I)|
000004B0: AB 31 00 B8 0C 4E 02 8F 00 D8 0C 58 02 8B 44 43 |.1...N.....X..DC|
000004C0: 28 49 29 B3 30 A7 50 47 28 49 29 B2 47 49 3A 97 |(I).0.PG(I).GI:.|
000004D0: 50 50 28 49 29 2C 47 49 00 F1 0C 62 02 8B C2 28 |PP(I),GI...b...(|
000004E0: 50 50 28 49 29 29 B2 43 4F A7 4E 49 B2 4E 49 AA |PP(I)).CO.NI.NI.|
000004F0: 31 00 0A 0D 6C 02 8B C2 28 50 50 28 49 29 29 B2 |1...l...(PP(I)).|
00000500: 47 49 A7 49 4D B2 49 4D AA 31 00 10 0D 76 02 82 |GI.IM.IM.1...v..|
00000510: 00 30 0D 80 02 8B 4E 44 B3 B2 35 30 A7 4E 49 28 |.0....ND..50.NI(|
00000520: 4E 44 29 B2 4E 49 3A 49 4D 28 4E 44 29 B2 49 4D |ND).NI:IM(ND).IM|
00000530: 00 62 0D 8A 02 99 22 13 11 22 A3 37 29 4E 50 AB |.b...."..".7)NP.|
00000540: 4E 49 AB 49 4D 22 9D 20 20 22 3B A3 32 30 29 4E |NI.IM". ";.20)N|
00000550: 49 22 9D 20 20 22 3B A3 33 30 29 49 4D 22 9D 20 |I". ";.30)IM". |
00000560: 20 22 00 70 0D 94 02 8B 4E 49 B1 30 A7 34 36 30 | ".p....NI.0.460|
00000570: 00 7F 0D 9E 02 99 54 24 3B 3A 8D 31 32 35 30 00 |......T$;:.1250.|
00000580: A0 0D A8 02 99 C7 28 31 34 37 29 22 44 41 59 22 |......(147)"DAY"|
00000590: A3 35 29 22 49 4E 46 45 43 54 49 4F 4E 22 3A 99 |.5)"INFECTION":.|
000005A0: 00 AD 0D B2 02 81 4E 44 B2 31 A4 35 30 00 BD 0D |......ND.1.50...|
000005B0: BC 02 81 57 54 B2 31 A4 31 35 30 3A 82 00 CA 0D |...WT.1.150:....|
000005C0: C6 02 99 4E 44 3B A3 34 29 3B 00 F0 0D D0 02 99 |...ND;.4);......|
000005D0: 4E 50 AB 4E 49 28 4E 44 29 AB 49 4D 28 4E 44 29 |NP.NI(ND).IM(ND)|
000005E0: 3B 4E 49 28 4E 44 29 3B 49 4D 28 4E 44 29 3A 99 |;NI(ND);IM(ND):.|
000005F0: 00 0C 0E DA 02 8B 4E 50 AB 4E 49 28 4E 44 29 AB |......NP.NI(ND).|
00000600: 49 4D 28 4E 44 29 B2 30 A7 37 35 30 00 2F 0E E4 |IM(ND).0.750./..|
00000610: 02 81 49 B2 31 A4 4E 50 AB 4E 49 28 4E 44 29 AB |..I.1.NP.NI(ND).|
00000620: 49 4D 28 4E 44 29 3A 99 22 12 D7 22 3B 3A 82 00 |IM(ND):."..";:..|
00000630: 41 0E EE 02 8B 4E 49 28 4E 44 29 B2 30 A7 37 37 |A....NI(ND).0.77|
00000640: 30 00 5A 0E F8 02 81 49 B2 31 A4 4E 49 28 4E 44 |0.Z....I.1.NI(ND|
00000650: 29 3A 99 22 12 D1 22 3B 3A 82 00 6C 0E 02 03 8B |):."..";:..l....|
00000660: 49 4D 28 4E 44 29 B2 30 A7 37 39 30 00 85 0E 0C |IM(ND).0.790....|
00000670: 03 81 49 B2 31 A4 49 4D 28 4E 44 29 3A 99 22 12 |..I.1.IM(ND):.".|
00000680: 2A 22 3B 3A 82 00 8B 0E 16 03 99 00 9D 0E 20 03 |*";:.......... .|
00000690: 8B 4E 49 28 4E 44 29 B2 30 A7 38 32 30 00 A7 0E |.NI(ND).0.820...|
000006A0: 2A 03 99 3A 82 4E 44 00 E0 0E 34 03 99 22 11 4C |*..:.ND...4..".L|
000006B0: 49 4B 45 20 54 4F 20 53 45 45 20 54 48 45 20 43 |IKE TO SEE THE C|
000006C0: 48 41 52 54 20 41 47 41 49 4E 20 28 59 2F 4E 29 |HART AGAIN (Y/N)|
000006D0: 3F 22 3B 3A 8D 31 37 32 30 3A 51 24 B2 5A 31 24 |?";:.1720:Q$.Z1$|
000006E0: 00 F7 0E 3E 03 8B 51 24 B2 22 22 A7 99 22 91 91 |...>..Q$."".."..|
000006F0: 22 3B 3A 8D 38 32 30 00 0C 0F 48 03 8B C8 28 51 |";:.820...H...(Q|
00000700: 24 2C 31 29 B2 22 59 22 A7 36 38 30 00 47 0F 52 |$,1)."Y".680.G.R|
00000710: 03 99 C7 28 31 34 37 29 C8 28 54 24 2C 31 30 29 |...(147).(T$,10)|
00000720: 22 57 41 4E 54 20 41 4E 4F 54 48 45 52 20 54 52 |"WANT ANOTHER TR|
00000730: 59 20 28 59 2F 4E 29 3F 22 3B 3A 8D 31 37 32 30 |Y (Y/N)?";:.1720|
00000740: 3A 51 24 B2 5A 31 24 00 56 0F 5C 03 8B 51 24 B2 |:Q$.Z1$.V.\..Q$.|
00000750: 22 22 A7 38 35 30 00 69 0F 66 03 8B C8 28 51 24 |"".850.i.f...(Q$|
00000760: 2C 31 29 B2 22 59 22 A7 8A 00 6F 0F 70 03 80 00 |,1)."Y"...o.p...|
00000770: 75 0F 7A 03 8F 00 87 0F 84 03 4D 56 B2 33 39 3A |u.z.......MV.39:|
00000780: 8D 31 30 30 30 3A 8E 00 99 0F 8E 03 4D 56 B2 34 |.1000:......MV.4|
00000790: 30 3A 8D 31 30 30 30 3A 8E 00 AB 0F 98 03 4D 56 |0:.1000:......MV|
000007A0: B2 34 31 3A 8D 31 30 30 30 3A 8E 00 BD 0F A2 03 |.41:.1000:......|
000007B0: 4D 56 B2 AB 31 3A 8D 31 30 30 30 3A 8E 00 CE 0F |MV..1:.1000:....|
000007C0: AC 03 4D 56 B2 30 3A 8D 31 30 30 30 3A 8E 00 DF |..MV.0:.1000:...|
000007D0: 0F B6 03 4D 56 B2 31 3A 8D 31 30 30 30 3A 8E 00 |...MV.1:.1000:..|
000007E0: F2 0F C0 03 4D 56 B2 AB 34 31 3A 8D 31 30 30 30 |....MV..41:.1000|
000007F0: 3A 8E 00 05 10 CA 03 4D 56 B2 AB 34 30 3A 8D 31 |:......MV..40:.1|
00000800: 30 30 30 3A 8E 00 18 10 D4 03 4D 56 B2 AB 33 39 |000:......MV..39|
00000810: 3A 8D 31 30 30 30 3A 8E 00 1E 10 DE 03 8F 00 35 |:.1000:........5|
00000820: 10 E8 03 8B C2 28 50 50 28 49 29 AA 4D 56 29 B3 |.....(PP(I).MV).|
00000830: B1 49 47 A7 8E 00 48 10 F2 03 50 47 28 49 29 B2 |.IG...H...PG(I).|
00000840: C2 28 50 50 28 49 29 29 00 56 10 FC 03 97 50 50 |.(PP(I)).V....PP|
00000850: 28 49 29 2C 49 47 00 69 10 06 04 50 50 28 49 29 |(I),IG.i...PP(I)|
00000860: B2 50 50 28 49 29 AA 4D 56 00 7C 10 10 04 97 50 |.PP(I).MV.|....P|
00000870: 50 28 49 29 2C 50 47 28 49 29 3A 8E 00 82 10 1A |P(I),PG(I):.....|
00000880: 04 8F 00 A3 10 24 04 8B C2 28 50 50 28 49 29 AB |.....$...(PP(I).|
00000890: 34 31 29 B2 56 49 A7 97 50 50 28 49 29 AB 34 31 |41).VI..PP(I).41|
000008A0: 2C 43 4F 00 C6 10 2E 04 8B C2 28 50 50 28 49 29 |,CO.......(PP(I)|
000008B0: AB 34 30 29 B2 56 49 20 A7 20 97 50 50 28 49 29 |.40).VI . .PP(I)|
000008C0: AB 34 30 2C 43 4F 00 E9 10 38 04 8B C2 28 50 50 |.40,CO...8...(PP|
000008D0: 28 49 29 AB 33 39 29 B2 56 49 20 A7 20 97 50 50 |(I).39).VI . .PP|
000008E0: 28 49 29 AB 33 39 2C 43 4F 00 0C 11 42 04 8B C2 |(I).39,CO...B...|
000008F0: 28 50 50 28 49 29 AB 20 31 29 B2 56 49 20 A7 20 |(PP(I). 1).VI . |
00000900: 97 50 50 28 49 29 AB 20 31 2C 43 4F 00 2F 11 4C |.PP(I). 1,CO./.L|
00000910: 04 8B C2 28 50 50 28 49 29 AA 20 31 29 B2 56 49 |...(PP(I). 1).VI|
00000920: 20 A7 20 97 50 50 28 49 29 AA 20 31 2C 43 4F 00 | . .PP(I). 1,CO.|
00000930: 52 11 56 04 8B C2 28 50 50 28 49 29 AA 33 39 29 |R.V...(PP(I).39)|
00000940: B2 56 49 20 A7 20 97 50 50 28 49 29 AA 33 39 2C |.VI . .PP(I).39,|
00000950: 43 4F 00 74 11 60 04 8B C2 28 50 50 28 49 29 AA |CO.t.`...(PP(I).|
00000960: 34 30 29 B2 56 49 A7 20 97 50 50 28 49 29 AA 34 |40).VI. .PP(I).4|
00000970: 30 2C 43 4F 00 96 11 6A 04 8B C2 28 50 50 28 49 |0,CO...j...(PP(I|
00000980: 29 AA 34 31 29 B2 56 49 A7 20 97 50 50 28 49 29 |).41).VI. .PP(I)|
00000990: AA 34 31 2C 43 4F 00 9C 11 74 04 8E 00 A2 11 7E |.41,CO...t.....~|
000009A0: 04 8F 00 C0 11 88 04 8B C2 28 50 50 28 49 29 AB |.........(PP(I).|
000009B0: 34 31 29 B2 43 4F A7 97 50 50 28 49 29 2C 43 4F |41).CO..PP(I),CO|
000009C0: 00 DF 11 92 04 8B C2 28 50 50 28 49 29 AB 34 30 |.......(PP(I).40|
000009D0: 29 B2 43 4F A7 20 97 50 50 28 49 29 2C 43 4F 00 |).CO. .PP(I),CO.|
000009E0: FD 11 9C 04 8B C2 28 50 50 28 49 29 AB 33 39 29 |......(PP(I).39)|
000009F0: B2 43 4F A7 97 50 50 28 49 29 2C 43 4F 00 1B 12 |.CO..PP(I),CO...|
00000A00: A6 04 8B C2 28 50 50 28 49 29 AB 20 31 29 B2 43 |....(PP(I). 1).C|
00000A10: 4F A7 97 50 50 28 49 29 2C 43 4F 00 39 12 B0 04 |O..PP(I),CO.9...|
00000A20: 8B C2 28 50 50 28 49 29 AA 20 31 29 B2 43 4F A7 |..(PP(I). 1).CO.|
00000A30: 97 50 50 28 49 29 2C 43 4F 00 57 12 BA 04 8B C2 |.PP(I),CO.W.....|
00000A40: 28 50 50 28 49 29 AA 33 39 29 B2 43 4F A7 97 50 |(PP(I).39).CO..P|
00000A50: 50 28 49 29 2C 43 4F 00 75 12 C4 04 8B C2 28 50 |P(I),CO.u.....(P|
00000A60: 50 28 49 29 AA 34 30 29 B2 43 4F A7 97 50 50 28 |P(I).40).CO..PP(|
00000A70: 49 29 2C 43 4F 00 93 12 CE 04 8B C2 28 50 50 28 |I),CO.......(PP(|
00000A80: 49 29 AA 34 31 29 B2 43 4F A7 97 50 50 28 49 29 |I).41).CO..PP(I)|
00000A90: 2C 43 4F 00 99 12 D8 04 8E 00 C4 12 E2 04 99 22 |,CO............"|
00000AA0: 20 20 20 20 20 20 20 20 20 12 50 52 45 53 53 20 | .PRESS |
00000AB0: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00000AC0: 4E 55 45 22 00 D8 12 EC 04 A1 51 24 3A 8B 51 24 |NUE"......Q$:.Q$|
00000AD0: B2 22 22 A7 31 32 36 30 00 DE 12 F6 04 8E 00 E4 |."".1260........|
00000AE0: 12 00 05 8F 00 EA 12 0A 05 8F 00 F0 12 14 05 8F |................|
00000AF0: 00 F6 12 1E 05 8F 00 FC 12 28 05 8F 00 02 13 32 |.........(.....2|
00000B00: 05 8F 00 08 13 3C 05 8F 00 0E 13 46 05 8F 00 38 |.....<.....F...8|
00000B10: 13 50 05 99 22 93 22 3A 81 49 B2 31 30 32 34 A4 |.P..".":.I.1024.|
00000B20: 31 30 36 33 3A 97 49 2C 32 32 34 3A 97 49 AA 39 |1063:.I,224:.I.9|
00000B30: 36 30 2C 32 32 34 3A 82 00 5F 13 5A 05 81 49 B2 |60,224:.._.Z..I.|
00000B40: 31 30 36 34 A4 31 39 34 34 A9 34 30 3A 97 49 2C |1064.1944.40:.I,|
00000B50: 32 32 34 3A 97 49 AA 33 39 2C 32 32 34 3A 82 00 |224:.I.39,224:..|
00000B60: 6C 13 64 05 99 22 13 11 11 11 11 22 00 84 13 6E |l.d.."....."...n|
00000B70: 05 99 A3 39 29 22 20 20 CF A3 20 A4 A7 20 20 20 |...9)" .. .. |
00000B80: 20 20 20 CC 00 A0 13 78 05 99 A3 39 29 22 20 20 | ....x...9)" |
00000B90: CC A4 BA BA BA BA BA BA CD CE CC CC CC CC CE CD |................|
00000BA0: 00 C2 13 82 05 99 22 13 11 11 11 11 11 11 11 11 |......".........|
00000BB0: 11 11 22 A3 31 34 29 22 12 45 50 49 44 45 4D 49 |..".14)".EPIDEMI|
00000BC0: 43 22 00 E8 13 8C 05 99 22 13 11 11 11 11 11 11 |C"......".......|
00000BD0: 11 11 11 11 11 11 22 A3 32 35 29 22 41 4E 44 59 |......".25)"ANDY|
00000BE0: 20 47 41 4D 42 4C 45 22 00 1C 14 96 05 99 C8 28 | GAMBLE".......(|
00000BF0: 54 24 2C 32 30 29 A3 35 29 3B 22 44 4F 20 59 4F |T$,20).5);"DO YO|
00000C00: 55 20 4E 45 45 44 20 49 4E 53 54 52 55 43 54 49 |U NEED INSTRUCTI|
00000C10: 4F 4E 53 20 28 59 2F 4E 29 3F 22 3B 00 2D 14 97 |ONS (Y/N)?";.-..|
00000C20: 05 8D 31 37 32 30 3A 51 24 B2 5A 31 24 00 3D 14 |..1720:Q$.Z1$.=.|
00000C30: A0 05 8B 51 24 B2 22 22 A7 31 34 33 30 00 53 14 |...Q$."".1430.S.|
00000C40: AA 05 8B C8 28 51 24 2C 31 29 B3 B1 22 59 22 A7 |....(Q$,1).."Y".|
00000C50: 31 38 30 00 59 14 B4 05 8F 00 8D 14 BE 05 99 C7 |180.Y...........|
00000C60: 28 31 34 37 29 22 41 4E 20 45 50 49 44 45 4D 49 |(147)"AN EPIDEMI|
00000C70: 43 20 48 41 53 20 42 52 4F 4B 45 4E 20 4F 55 54 |C HAS BROKEN OUT|
00000C80: 20 4F 4E 20 41 20 53 4D 41 4C 4C 20 22 00 BA 14 | ON A SMALL "...|
00000C90: C8 05 99 22 49 53 4C 41 4E 44 2E 20 54 48 45 20 |..."ISLAND. THE |
00000CA0: 44 49 53 45 41 53 45 20 49 53 20 4E 4F 54 20 46 |DISEASE IS NOT F|
00000CB0: 41 54 41 4C 2C 20 41 4E 44 22 00 ED 14 D2 05 99 |ATAL, AND"......|
00000CC0: 22 4F 4E 43 45 20 43 4F 4E 54 52 41 43 54 45 44 |"ONCE CONTRACTED|
00000CD0: 20 50 52 4F 56 49 44 45 53 20 49 4D 4D 55 4E 49 | PROVIDES IMMUNI|
00000CE0: 54 59 20 46 4F 52 20 4C 49 46 45 2E 22 00 19 15 |TY FOR LIFE."...|
00000CF0: DC 05 99 3A 99 22 59 4F 55 20 41 52 45 20 41 4C |...:."YOU ARE AL|
00000D00: 4C 4F 57 45 44 20 54 4F 20 43 48 4F 4F 53 45 20 |LOWED TO CHOOSE |
00000D10: 43 45 52 54 41 49 4E 20 22 00 54 15 E6 05 99 22 |CERTAIN ".T...."|
00000D20: 49 4E 49 54 49 41 4C 20 43 4F 4E 44 49 54 49 4F |INITIAL CONDITIO|
00000D30: 4E 53 3A 22 3A 99 3A 99 3A 99 A3 35 29 22 54 48 |NS:":.:.:..5)"TH|
00000D40: 45 20 49 53 4C 41 4E 44 20 50 4F 50 55 4C 41 54 |E ISLAND POPULAT|
00000D50: 49 4F 4E 22 00 7F 15 F0 05 99 3A 99 A3 35 29 22 |ION"......:..5)"|
00000D60: 54 48 45 20 4E 55 4D 42 45 52 20 4F 52 49 47 49 |THE NUMBER ORIGI|
00000D70: 4E 41 4C 4C 54 20 49 4E 46 45 43 54 45 44 22 00 |NALLT INFECTED".|
00000D80: AC 15 FA 05 99 3A 99 A3 35 29 22 54 48 45 20 4E |.....:..5)"THE N|
00000D90: 55 4D 42 45 52 20 4F 46 20 44 41 59 53 20 46 4F |UMBER OF DAYS FO|
00000DA0: 52 20 57 48 49 43 48 20 54 48 45 22 00 D6 15 04 |R WHICH THE"....|
00000DB0: 06 99 A3 35 29 22 44 49 53 45 41 53 45 20 49 53 |...5)"DISEASE IS|
00000DC0: 20 43 4F 4E 54 41 47 49 4F 55 53 20 2D 20 54 48 | CONTAGIOUS - TH|
00000DD0: 49 53 20 49 53 22 00 02 16 0E 06 99 A3 35 29 22 |IS IS".......5)"|
00000DE0: 41 4C 53 4F 20 54 48 45 20 44 55 52 41 54 49 4F |ALSO THE DURATIO|
00000DF0: 4E 20 4F 46 20 54 48 45 20 44 49 53 45 41 53 45 |N OF THE DISEASE|
00000E00: 2E 22 00 35 16 18 06 99 3A 99 3A 99 22 54 48 45 |.".5....:.:."THE|
00000E10: 20 49 53 4C 41 4E 44 45 52 53 20 57 49 4C 4C 20 | ISLANDERS WILL |
00000E20: 4D 4F 56 45 20 41 42 4F 55 54 20 52 41 4E 44 4F |MOVE ABOUT RANDO|
00000E30: 4D 4C 59 2C 22 00 5D 16 22 06 99 22 49 4E 46 45 |MLY,".].".."INFE|
00000E40: 43 54 49 4E 47 20 4F 54 48 45 52 53 20 49 46 20 |CTING OTHERS IF |
00000E50: 43 4F 4E 54 41 47 49 4F 55 53 2E 22 3B 00 90 16 |CONTAGIOUS.";...|
00000E60: 2C 06 99 22 54 48 4F 53 45 20 57 48 4F 20 41 52 |,.."THOSE WHO AR|
00000E70: 45 20 49 4D 4D 55 4E 45 20 57 49 4C 4C 20 4E 4F |E IMMUNE WILL NO|
00000E80: 54 20 42 45 20 49 4E 46 45 43 54 45 44 2E 20 22 |T BE INFECTED. "|
00000E90: 00 9D 16 36 06 99 3A 20 8D 31 32 35 30 00 E4 16 |...6..: .1250...|
00000EA0: 40 06 99 C7 28 31 34 37 29 22 54 48 49 53 20 57 |@...(147)"THIS W|
00000EB0: 49 4C 4C 20 43 4F 4E 54 49 4E 55 45 20 55 4E 54 |ILL CONTINUE UNT|
00000EC0: 49 4C 20 54 48 45 20 44 49 53 45 41 53 45 20 48 |IL THE DISEASE H|
00000ED0: 41 53 20 52 55 4E 20 49 54 53 20 43 4F 55 52 53 |AS RUN ITS COURS|
00000EE0: 45 20 22 3B 00 16 17 4A 06 99 22 28 55 4E 54 49 |E ";...J.."(UNTI|
00000EF0: 4C 20 54 48 45 59 20 41 52 45 20 4E 4F 20 4D 4F |L THEY ARE NO MO|
00000F00: 52 45 20 49 4E 46 45 43 54 45 44 20 50 45 52 53 |RE INFECTED PERS|
00000F10: 4F 4E 53 29 2E 22 00 55 17 54 06 99 3A 99 22 59 |ONS).".U.T..:."Y|
00000F20: 4F 55 20 57 49 4C 4C 20 54 48 45 4E 20 42 45 20 |OU WILL THEN BE |
00000F30: 47 49 56 45 4E 20 41 20 44 41 59 2D 42 59 2D 44 |GIVEN A DAY-BY-D|
00000F40: 41 59 20 42 41 52 20 43 48 41 52 54 20 4F 46 20 |AY BAR CHART OF |
00000F50: 54 48 45 22 3B 00 76 17 5E 06 99 22 48 49 53 54 |THE";.v.^.."HIST|
00000F60: 4F 52 59 20 4F 46 20 54 48 45 20 45 50 49 44 45 |ORY OF THE EPIDE|
00000F70: 4D 49 43 2C 20 22 00 99 17 68 06 99 22 55 50 20 |MIC, "...h.."UP |
00000F80: 54 4F 20 41 20 4D 41 58 49 4D 55 4D 20 4F 46 20 |TO A MAXIMUM OF |
00000F90: 35 30 20 44 41 59 53 2E 22 00 A5 17 72 06 99 3A |50 DAYS."...r..:|
00000FA0: 8D 31 32 35 30 00 AE 17 7C 06 89 31 38 30 00 C7 |.1250...|..180..|
00000FB0: 17 86 06 83 31 31 35 38 2C 31 31 36 37 2C 31 31 |....1158,1167,11|
00000FC0: 39 36 2C 31 32 31 31 00 FE 17 90 06 83 31 32 33 |96,1211......123|
00000FD0: 34 2C 31 32 32 32 2C 31 32 37 31 2C 31 32 39 36 |4,1222,1271,1296|
00000FE0: 2C 31 33 30 36 2C 31 33 33 39 2C 31 33 34 36 2C |,1306,1339,1346,|
00000FF0: 31 33 37 39 2C 31 33 38 36 2C 31 34 31 38 00 2B |1379,1386,1418.+|
00001000: 18 9A 06 83 31 34 32 37 2C 31 34 35 39 2C 31 34 |....1427,1459,14|
00001010: 36 39 2C 31 35 30 30 2C 31 35 31 30 2C 31 35 34 |69,1500,1510,154|
00001020: 31 2C 31 35 35 33 2C 31 35 38 31 00 62 18 A4 06 |1,1553,1581.b...|
00001030: 83 31 35 39 33 2C 31 36 31 38 2C 31 36 33 32 2C |.1593,1618,1632,|
00001040: 31 36 35 34 2C 31 36 37 33 2C 31 36 39 33 2C 31 |1654,1673,1693,1|
00001050: 37 31 35 2C 31 37 33 31 2C 31 37 35 37 2C 31 37 |715,1731,1757,17|
00001060: 37 31 00 7B 18 AE 06 83 31 38 30 30 2C 31 38 31 |71.{....1800,181|
00001070: 32 2C 31 38 34 31 2C 31 38 34 38 00 8C 18 B8 06 |2,1841,1848.....|
00001080: 5A 24 B2 22 22 3A 5A 31 24 B2 22 22 00 A2 18 C2 |Z$."":Z1$.""....|
00001090: 06 99 22 A6 9D 22 3B 3A 81 49 B2 31 A4 35 30 3A |.."..";:.I.1.50:|
000010A0: 82 49 00 B8 18 CC 06 99 22 20 9D 22 3B 3A 81 49 |.I......" .";:.I|
000010B0: B2 31 A4 35 30 3A 82 49 00 CC 18 D6 06 A1 5A 24 |.1.50:.I......Z$|
000010C0: 3A 8B 5A 24 B2 22 22 A7 31 37 33 30 00 E0 18 E0 |:.Z$."".1730....|
000010D0: 06 8B 5A 24 B3 B1 C7 28 32 30 29 A7 31 38 31 30 |..Z$...(20).1810|
000010E0: 00 F0 18 EA 06 8B 5A 24 B2 22 22 A7 31 37 33 30 |......Z$."".1730|
000010F0: 00 09 19 F4 06 5A 5A B2 C3 28 5A 31 24 29 3A 8B |.....ZZ..(Z1$):.|
00001100: 5A 5A B3 31 A7 31 37 33 30 00 23 19 FE 06 5A 31 |ZZ.1.1730.#...Z1|
00001110: 24 B2 C8 28 5A 31 24 2C 5A 5A AB 31 29 3A 99 22 |$..(Z1$,ZZ.1):."|
00001120: 9D 22 3B 00 2D 19 08 07 89 31 37 33 30 00 4A 19 |.";.-....1730.J.|
00001130: 12 07 8B 5A 24 B2 C7 28 31 33 29 B0 5A 24 B2 C7 |...Z$..(13).Z$..|
00001140: 28 31 34 31 29 A7 31 38 35 30 00 53 19 1C 07 99 |(141).1850.S....|
00001150: 5A 24 3B 00 62 19 26 07 5A 31 24 B2 5A 31 24 AA |Z$;.b.&.Z1$.Z1$.|
00001160: 5A 24 00 6C 19 30 07 89 31 37 33 30 00 7F 19 3A |Z$.l.0..1730...:|
00001170: 07 81 49 B2 31 A4 31 30 3A A1 5A 24 3A 82 49 00 |..I.1.10:.Z$:.I.|
00001180: 85 19 44 07 99 00 8B 19 4E 07 8E 00 00 00 |..D.....N..... |
....D.. C64 MODS BY WIM 3/25/83.O.X.I..(
..(0)):.53272,21:.53280,6:.53281,7:.".".
Q...T$."........................".....QP
.197:QA.73... .IG.160:VI.215:CO.209:GI.1
70......1360......G(147)"HOW MANY ISLAND
ERS (<=100)?";:.1720:NP.E(Z1$)......NP.0
.180...H..NP.100.."..";:.180.A.R..".HOW
MANY INFECTED AT START?";:.1720:NI.E(Z1$
).O....NI.0.210.F....NI.NP.."..";:.210..
....".CONTAGION TIME (DAYS)?";:.1720:CT.
E(Z1$)......CT.0.."..";:.240.......M....
G(147):.I.1.18:.IL,IR......J.IL.IR:.J,IG
:.:....".."..W.=UNINFECTED .Q.=CONTAGI
OUS .*.=IMMUNE".>.,.."................
....CONTAGION".C.6.."...................
..TIME "CT;.{.@..CT.1.." DAYS":.340...J.
." DAY"...T.....^..QA.2,B(QA):.QA.3,B(QA
.1):Z9..(0)...H..PP(NP),PG(NP),DC(NP),NI
(50),IM(50)...R..I.1.NP:PG(I).VI:....|..
I.1.NI:PG(I).CO:.......I.1.NP:DC(I).0:..
6....I.1.NI:DC(I).CT:..B....I.1.NP.O...P
P(I)..(690..(1).1157):.B(PP(I))..IG.420.
.....PP(I),PG(I):......ND.0...B.IM.0:.".
.".7)NP.NI.IM;.20)NI;.30)IM.E.L.."....DA
Y";ND...V.ND.ND.1:NI.0:IM.0......I.1.NP.
...........(B(PP(I)).CO).(PG(I).VI).DC(I
).CT.'...PG(I).B(PP(I)).\.....(9..(1).1)
.900,910,920,930,940,950,960,970,980.B..
...V....PG(I).CO..1060.|.&.....0..PG(I).
VI..1160...:.....D..PG(I).CO.DC(I).DC(I)
.1...N...X.X..DC(I).0.PG(I).GI:.PP(I),GI
...B..B(PP(I)).CO.NI.NI.1...L..B(PP(I)).
GI.IM.IM.1...V...0....ND..50.NI(ND).NI:I
M(ND).IM.B...."..".7)NP.NI.IM". ";.20)N
I". ";.30)IM". ".P....NI.0.460.....T$
;:.1250. ....G(147)"DAY".5)"INFECTION":.
......ND.1.50......WT.1.150:..J.F..ND;.4
);...P..NP.NI(ND).IM(ND);NI(ND);IM(ND):.
...Z..NP.NI(ND).IM(ND).0.750./....I.1.NP
.NI(ND).IM(ND):.".W";:..A....NI(ND).0.77
0.Z....I.1.NI(ND):.".Q";:..L....IM(ND).0
.790......I.1.IM(ND):.".*";:.......... .
.NI(ND).0.820...*..:.ND...4..".LIKE TO S
EE THE CHART AGAIN (Y/N)?";:.1720:Q$.Z1$
...>..Q$."".."..";:.820...H..H(Q$,1)."Y"
.680.G.R..G(147)H(T$,10)"WANT ANOTHER TR
Y (Y/N)?";:.1720:Q$.Z1$.V.\..Q$."".850.I
.F..H(Q$,1)."Y"...O.P...U.Z.......MV.39:
.1000:......MV.40:.1000:......MV.41:.100
0:......MV..1:.1000:..N...MV.0:.1000:...
...MV.1:.1000:......MV..41:.1000:....J.M
V..40:.1000:....T.MV..39:.1000:........5
....B(PP(I).MV)..IG...H...PG(I).B(PP(I))
.V....PP(I),IG.I...PP(I).PP(I).MV.|....P
P(I),PG(I):..........$..B(PP(I).41).VI..
PP(I).41,CO.F....B(PP(I).40).VI . .PP(I)
.40,CO...8..B(PP(I).39).VI . .PP(I).39,C
O...B..B(PP(I). 1).VI . .PP(I). 1,CO./.L
..B(PP(I). 1).VI . .PP(I). 1,CO.R.V..B(P
P(I).39).VI . .PP(I).39,CO.T.`..B(PP(I).
40).VI. .PP(I).40,CO...J..B(PP(I).41).VI
. .PP(I).41,CO...T.....~........B(PP(I).
41).CO..PP(I),CO......B(PP(I).40).CO. .P
P(I),CO......B(PP(I).39).CO..PP(I),CO...
...B(PP(I). 1).CO..PP(I),CO.9....B(PP(I)
. 1).CO..PP(I),CO.W....B(PP(I).39).CO..P
P(I),CO.U.D..B(PP(I).40).CO..PP(I),CO...
N..B(PP(I).41).CO..PP(I),CO...X...D...."
.PRESS ANY KEY TO CONTINUE".X..
..Q$:.Q$."".1260........................
.........(.....2.....<.....F...8.P..".":
.I.1024.1063:.I,224:.I.960,224:.._.Z..I.
1064.1944.40:.I,224:.I.39,224:..L.D.."..
..."...N...9)" O. .. L. .X...9)"
L.......MNLLLLNM.B...."...........".14)"
.EPIDEMIC"......".............".25)"ANDY
GAMBLE"......H(T$,20).5);"DO YOU NEED I
NSTRUCTIONS (Y/N)?";.-....1720:Q$.Z1$.=.
..Q$."".1430.S....H(Q$,1).."Y".180.Y...
.......G(147)"AN EPIDEMIC HAS BROKEN OUT
ON A SMALL "...H.."ISLAND. THE DISEASE
IS NOT FATAL, AND"...R.."ONCE CONTRACTED
PROVIDES IMMUNITY FOR LIFE."......:."YO
U ARE ALLOWED TO CHOOSE CERTAIN ".T...."
INITIAL CONDITIONS:":.:.:..5)"THE ISLAND
POPULATION".....:..5)"THE NUMBER ORIGI
NALLT INFECTED"......:..5)"THE NUMBER OF
DAYS FOR WHICH THE".V.....5)"DISEASE IS
CONTAGIOUS - THIS IS".......5)"ALSO THE
DURATION OF THE DISEASE.".5....:.:."THE
ISLANDERS WILL MOVE ABOUT RANDOMLY,".].
".."INFECTING OTHERS IF CONTAGIOUS.";...
,.."THOSE WHO ARE IMMUNE WILL NOT BE INF
ECTED. "...6..: .1250...@..G(147)"THIS W
ILL CONTINUE UNTIL THE DISEASE HAS RUN I
TS COURSE ";...J.."(UNTIL THEY ARE NO MO
RE INFECTED PERSONS).".U.T..:."YOU WILL
THEN BE GIVEN A DAY-BY-DAY BAR CHART OF
THE";.V.^.."HISTORY OF THE EPIDEMIC, "..
.H.."UP TO A MAXIMUM OF 50 DAYS."...R..:
.1250...|..180.G....1158,1167,1196,1211.
.....1234,1222,1271,1296,1306,1339,1346,
1379,1386,1418.+....1427,1459,1469,1500,
1510,1541,1553,1581.B....1593,1618,1632,
1654,1673,1693,1715,1731,1757,1771.{....
1800,1812,1841,1848.....Z$."":Z1$.""...B
.."..";:.I.1.50:.I...L.." .";:.I.1.50:.I
.L.V..Z$:.Z$."".1730......Z$..G(20).1810
......Z$."".1730.....ZZ.C(Z1$):.ZZ.1.173
0.#...Z1$.H(Z1$,ZZ.1):.".";.-....1730.J.
...Z$.G(13).Z$.G(141).1850.S....Z$;.B.&.
Z1$.Z1$.Z$.L.0..1730..:..I.1.10:.Z$:.I.
..D.....N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL