ENIGMA
FILE INFORMATION
FILENAME(S): ENIGMA
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 18:12:06
APPEARS ON: 1 disk(s)
FILE HASH
de27e45eabf5c9ca28517e6eebb14ec97e14184de60143c1cea3daf5e053b0b1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 37 S 2 | ENIGMA | PRG | Sailor, Ganheden | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8D 31 32 39 30 3A 97 35 33 32 |..#....1290:.532|
00000010: 38 30 2C 34 3A 97 35 33 32 38 31 2C 33 3A 99 22 |80,4:.53281,3:."|
00000020: 93 22 3B 00 2F 08 14 00 9C 3A 8D 31 32 30 30 00 |.";./....:.1200.|
00000030: 63 08 1E 00 99 22 93 9C 12 20 20 20 20 20 20 20 |c...."... |
00000040: 20 20 20 20 20 20 20 20 45 20 4E 20 49 20 47 20 | E N I G |
00000050: 4D 20 41 20 20 20 20 20 20 20 20 20 20 20 20 20 |M A |
00000060: 20 22 3B 00 93 08 20 00 99 22 20 47 45 52 4D 41 | ";... .." GERMA|
00000070: 4E 20 43 49 50 48 45 52 20 4D 41 43 48 49 4E 45 |N CIPHER MACHINE|
00000080: 20 4F 46 20 57 4F 52 4C 44 20 57 41 52 20 49 49 | OF WORLD WAR II|
00000090: 20 20 22 00 B7 08 23 00 99 22 20 20 20 20 20 20 | "...#.." |
000000A0: 20 20 20 20 20 20 1F 2D 2D 20 4D 41 49 4E 20 4D | .-- MAIN M|
000000B0: 45 4E 55 20 2D 2D 22 00 DA 08 28 00 99 22 11 05 |ENU --"...(.."..|
000000C0: 12 45 92 90 20 2D 20 45 4E 43 49 50 48 45 52 20 |.E.. - ENCIPHER |
000000D0: 41 20 4D 45 53 53 41 47 45 22 00 06 09 32 00 99 |A MESSAGE"...2..|
000000E0: 22 05 12 44 90 92 20 2D 20 44 45 43 4F 44 45 20 |"..D.. - DECODE |
000000F0: 41 4E 20 45 4E 43 49 50 48 45 52 45 44 20 4D 45 |AN ENCIPHERED ME|
00000100: 53 53 41 47 45 22 00 39 09 3C 00 99 22 05 12 53 |SSAGE".9.<.."..S|
00000110: 90 92 20 2D 20 53 48 4F 57 20 4D 45 53 53 41 47 |.. - SHOW MESSAG|
00000120: 45 20 49 4E 20 42 4F 54 48 20 43 4C 45 41 52 20 |E IN BOTH CLEAR |
00000130: 41 4E 44 20 43 4F 44 45 22 00 57 09 50 00 99 22 |AND CODE".W.P.."|
00000140: 05 12 50 90 92 20 2D 20 50 52 49 4E 54 45 52 20 |..P.. - PRINTER |
00000150: 4F 55 54 50 55 54 22 00 6B 09 5A 00 99 22 05 12 |OUTPUT".k.Z.."..|
00000160: 51 90 92 20 2D 20 51 55 49 54 22 00 A5 09 5C 00 |Q.. - QUIT"...\.|
00000170: 99 22 11 20 20 20 43 55 52 52 45 4E 54 20 43 4F |.". CURRENT CO|
00000180: 44 45 20 4B 45 59 3A 05 22 3B 3A 8B 4C 24 B3 B1 |DE KEY:.";:.L$..|
00000190: 22 22 A7 5A 31 24 B2 4C 24 3A 5A 32 24 B2 44 49 |"".Z1$.L$:Z2$.DI|
000001A0: 24 3A 89 39 34 00 C6 09 5D 00 5A 31 24 B2 22 4E |$:.94...].Z1$."N|
000001B0: 4F 20 43 4F 44 45 20 4B 45 59 20 59 45 54 22 3A |O CODE KEY YET":|
000001C0: 5A 32 24 B2 22 22 00 D5 09 5E 00 99 5A 31 24 22 |Z2$.""...^..Z1$"|
000001D0: 2D 22 5A 32 24 00 04 0A 64 00 99 20 44 24 20 A6 |-"Z2$...d.. D$ .|
000001E0: 31 30 29 20 22 90 53 45 4C 45 43 54 20 41 20 4C |10) ".SELECT A L|
000001F0: 45 54 54 45 52 22 3A 8D 20 31 31 36 30 3A 97 31 |ETTER":. 1160:.1|
00000200: 39 38 2C 2E 00 24 0A 6E 00 A1 20 4E 24 3A 8B 20 |98,..$.n.. N$:. |
00000210: 4E 24 B2 22 22 20 A7 20 8D 20 31 31 33 30 3A 89 |N$."" . . 1130:.|
00000220: 20 31 31 30 00 40 0A 70 00 8B 4E 24 B2 22 45 22 | 110.@.p..N$."E"|
00000230: B0 4E 24 B2 22 C5 22 A7 4E B2 31 3A 89 31 37 30 |.N$.".".N.1:.170|
00000240: 00 5C 0A 71 00 8B 4E 24 B2 22 44 22 B0 4E 24 B2 |.\.q..N$."D".N$.|
00000250: 22 C4 22 A7 4E B2 32 3A 89 31 37 30 00 78 0A 72 |".".N.2:.170.x.r|
00000260: 00 8B 4E 24 B2 22 53 22 B0 4E 24 B2 22 D3 22 A7 |..N$."S".N$.".".|
00000270: 4E B2 33 3A 89 38 30 30 00 95 0A 73 00 8B 4E 24 |N.3:.800...s..N$|
00000280: B2 22 50 22 B0 4E 24 B2 22 D0 22 A7 4E B2 34 3A |."P".N$.".".N.4:|
00000290: 89 31 30 36 30 00 B4 0A 74 00 8B 4E 24 B2 22 51 |.1060...t..N$."Q|
000002A0: 22 B0 4E 24 B2 22 D1 22 A7 8D 36 30 31 30 30 3A |".N$."."..60100:|
000002B0: 89 31 31 30 00 BD 0A 78 00 89 31 31 30 00 CE 0A |.110...x..110...|
000002C0: AA 00 49 B2 30 3A 58 B2 30 3A 47 47 B2 35 00 F6 |..I.0:X.0:GG.5..|
000002D0: 0A B4 00 99 22 93 20 20 20 20 20 20 20 20 20 45 |....". E|
000002E0: 4E 54 45 52 20 53 45 43 52 45 54 20 43 4F 44 45 |NTER SECRET CODE|
000002F0: 20 4B 45 59 3A 22 00 1D 0B BE 00 99 22 11 20 20 | KEY:"......". |
00000300: 20 4C 45 54 54 45 52 20 4F 46 20 43 4F 44 45 20 | LETTER OF CODE |
00000310: 28 41 2D 5A 29 22 3A 8D 20 31 31 36 30 00 3D 0B |(A-Z)":. 1160.=.|
00000320: C8 00 A1 20 4C 24 3A 8B 20 4C 24 B2 22 22 20 A7 |... L$:. L$."" .|
00000330: 20 8D 20 31 31 33 30 3A 89 20 32 30 30 00 69 0B | . 1130:. 200.i.|
00000340: D2 00 4C 4C B2 C6 28 4C 24 29 3A 8B 20 4C 4C B3 |..LL..(L$):. LL.|
00000350: 36 35 20 B0 20 4C 4C B1 39 30 20 A7 20 8D 20 31 |65 . LL.90 . . 1|
00000360: 31 36 30 3A 89 20 32 30 30 00 76 0B DC 00 4B 45 |160:. 200.v...KE|
00000370: B2 4C 4C AB 36 34 00 9D 0B E6 00 99 22 11 20 20 |.LL.64......". |
00000380: 20 4E 55 4D 42 45 52 20 4F 46 20 43 4F 44 45 20 | NUMBER OF CODE |
00000390: 28 31 2D 39 29 22 3A 8D 20 31 31 36 30 00 BF 0B |(1-9)":. 1160...|
000003A0: F0 00 A1 20 44 49 24 3A 8B 20 44 49 24 B2 22 22 |... DI$:. DI$.""|
000003B0: 20 A7 20 8D 20 31 31 33 30 3A 89 20 32 34 30 00 | . . 1130:. 240.|
000003C0: E9 0B FA 00 8B 20 44 49 24 20 B3 20 22 31 22 20 |..... DI$ . "1" |
000003D0: B0 20 44 49 24 20 B1 20 22 39 22 20 A7 20 8D 31 |. DI$ . "9" . .1|
000003E0: 31 36 30 3A 89 20 32 34 30 00 FB 0B 04 01 44 49 |160:. 240.....DI|
000003F0: B2 C5 28 44 49 24 29 3A 99 43 24 00 24 0C 0E 01 |..(DI$):.C$.$...|
00000400: 99 20 A6 36 29 20 22 50 52 45 53 53 20 41 4E 59 |. .6) "PRESS ANY|
00000410: 20 41 4C 50 48 41 2D 4E 55 4D 45 52 49 43 20 4B | ALPHA-NUMERIC K|
00000420: 45 59 53 22 00 43 0C 18 01 99 20 A6 31 30 29 20 |EYS".C.... .10) |
00000430: 22 4F 52 20 54 48 45 20 53 50 41 43 45 20 42 41 |"OR THE SPACE BA|
00000440: 52 2E 22 00 77 0C 22 01 99 20 58 24 20 22 28 46 |R.".w.".. X$ "(F|
00000450: 4F 52 20 4D 45 4E 55 2C 20 4F 52 20 54 4F 20 45 |OR MENU, OR TO E|
00000460: 4E 44 2C 20 50 52 45 53 53 20 3C 52 45 54 55 52 |ND, PRESS <RETUR|
00000470: 4E 3E 29 22 20 44 24 00 94 0C 2C 01 8D 20 39 36 |N>)" D$...,.. 96|
00000480: 30 3A 8D 20 31 31 36 30 3A 8B 20 4E B2 32 20 A7 |0:. 1160:. N.2 .|
00000490: 20 36 31 30 00 AD 0C 36 01 99 22 45 4E 54 45 52 | 610...6.."ENTER|
000004A0: 20 43 4C 45 41 52 20 54 45 58 54 3A 22 00 CA 0C | CLEAR TEXT:"...|
000004B0: 40 01 A1 20 4B 24 28 49 29 3A 8B 20 4B 24 28 49 |@.. K$(I):. K$(I|
000004C0: 29 B2 22 22 20 A7 20 33 32 30 00 E8 0C 41 01 8B |)."" . 320...A..|
000004D0: 28 4B 24 28 49 29 B3 B1 C7 28 32 30 29 29 B0 28 |(K$(I)...(20)).(|
000004E0: 49 B2 2E 29 A7 33 33 30 00 F5 0C 42 01 8B 58 B1 |I..).330...B..X.|
000004F0: 2E A7 33 32 34 00 2B 0D 43 01 99 48 24 3B 3A 81 |..324.+.C..H$;:.|
00000500: 47 B2 31 A4 47 47 AA 37 3A 99 44 24 3B 3A 82 3A |G.1.GG.7:.D$;:.:|
00000510: 99 A6 33 39 29 22 20 9D 22 3A 58 B2 34 30 3A 47 |..39)" .":X.40:G|
00000520: 47 B2 47 47 AB 31 3A 89 33 32 35 00 50 0D 44 01 |G.GG.1:.325.P.D.|
00000530: 99 48 24 3B 3A 81 47 B2 31 A4 47 47 AA 38 3A 99 |.H$;:.G.1.GG.8:.|
00000540: 44 24 3B 3A 82 3A 99 A6 58 AB 31 29 22 20 9D 22 |D$;:.:..X.1)" ."|
00000550: 00 75 0D 45 01 49 B2 49 AB 31 3A 58 B2 58 AB 31 |.u.E.I.I.1:X.X.1|
00000560: 3A 8B 49 B1 2E A7 4B 45 B2 4B 45 28 49 AB 31 29 |:.I...KE.KE(I.1)|
00000570: 3A 89 33 32 30 00 87 0D 46 01 4B 45 B2 4C 4C AB |:.320...F.KE.LL.|
00000580: 36 34 3A 89 33 32 30 00 94 0D 4A 01 8B 49 B2 2E |64:.320...J..I..|
00000590: A7 33 36 30 00 C3 0D 54 01 49 B2 49 AB 31 3A 5A |.360...T.I.I.1:Z|
000005A0: 24 B2 22 22 3A 45 B2 41 3A 45 24 28 49 29 B2 41 |$."":E.A:E$(I).A|
000005B0: 24 28 49 29 3A 8B 20 4B B2 33 32 20 A7 20 57 24 |$(I):. K.32 . W$|
000005C0: B2 58 24 00 DA 0D 5E 01 8D 20 35 30 30 3A 57 24 |.X$...^.. 500:W$|
000005D0: B2 22 2A 22 3A 49 B2 49 AA 31 00 ED 0D 68 01 4C |."*":I.I.1...h.L|
000005E0: B2 30 3A 4B B2 C6 28 4B 24 28 49 29 29 00 04 0E |.0:K..(K$(I))...|
000005F0: 72 01 8B 20 4B B2 31 33 20 A7 20 4A B2 49 3A 89 |r.. K.13 . J.I:.|
00000600: 20 38 30 30 00 25 0E 7C 01 8B 20 4B B2 33 32 20 | 800.%.|.. K.32 |
00000610: A7 20 41 B2 33 32 3A 4B 45 28 49 29 B2 4B 45 3A |. A.32:KE(I).KE:|
00000620: 89 20 34 38 30 00 3D 0E 86 01 8B 20 4B B3 34 38 |. 480.=.... K.48|
00000630: 20 B0 20 4B B1 39 30 20 A7 20 33 32 30 00 55 0E | . K.90 . 320.U.|
00000640: 90 01 8B 20 4B B1 35 37 20 AF 20 4B B3 36 35 20 |... K.57 . K.65 |
00000650: A7 20 33 32 30 00 67 0E 9A 01 8B 20 4B B1 36 34 |. 320.g.... K.64|
00000660: 20 A7 20 4C B2 32 36 00 79 0E A4 01 8B 20 4B B3 | . L.26.y.... K.|
00000670: 35 38 20 A7 20 4C B2 31 30 00 98 0E AE 01 99 20 |58 . L.10...... |
00000680: 48 24 3B 3A 81 20 47 B2 31 20 A4 20 47 47 AA 38 |H$;:. G.1 . GG.8|
00000690: 3A 99 20 44 24 3B 3A 82 00 AE 0E B8 01 99 20 A6 |:. D$;:....... .|
000006A0: 58 29 20 4B 24 28 49 29 3A 8D 20 35 39 30 00 B9 |X) K$(I):. 590..|
000006B0: 0E C2 01 41 B2 4B AA 4B 45 00 D4 0E CC 01 8B 20 |...A.K.KE...... |
000006C0: 4C B2 32 36 20 AF 20 41 B1 39 30 20 A7 20 41 B2 |L.26 . A.90 . A.|
000006D0: 41 AB 32 36 00 EF 0E D6 01 8B 20 4C B2 31 30 20 |A.26...... L.10 |
000006E0: AF 20 41 B1 35 37 20 A7 20 41 B2 41 AB 31 30 00 |. A.57 . A.A.10.|
000006F0: 14 0F E0 01 41 24 28 49 29 B2 C7 28 41 29 3A 5A |....A$(I)..(A):Z|
00000700: 24 B2 49 24 3A 45 B2 41 3A 45 24 28 49 29 B2 41 |$.I$:E.A:E$(I).A|
00000710: 24 28 49 29 00 2A 0F EA 01 8D 20 35 30 30 3A 8D |$(I).*.... 500:.|
00000720: 20 35 36 30 3A 89 20 33 32 30 00 46 0F F4 01 99 | 560:. 320.F....|
00000730: 20 48 24 3B 3A 81 20 47 B2 31 20 A4 20 35 3A 99 | H$;:. G.1 . 5:.|
00000740: 20 44 24 3B 3A 82 00 6C 0F FE 01 8B 20 45 B2 33 | D$;:..l.... E.3|
00000750: 32 20 A7 20 99 20 44 24 20 44 24 20 44 24 20 44 |2 . . D$ D$ D$ D|
00000760: 24 20 5A 24 20 A3 32 33 29 20 57 24 00 90 0F 08 |$ Z$ .23) W$....|
00000770: 02 8B 20 4C B2 31 30 20 A7 20 99 20 A6 32 AC 45 |.. L.10 . . .2.E|
00000780: AB 38 38 29 20 44 24 20 5A 24 20 45 24 28 49 29 |.88) D$ Z$ E$(I)|
00000790: 00 BF 0F 12 02 8B 20 4C B2 32 36 20 AF 20 45 B3 |...... L.26 . E.|
000007A0: 37 38 20 A7 20 99 20 44 24 20 44 24 20 A6 32 AC |78 . . D$ D$ .2.|
000007B0: 45 AB 31 32 35 29 20 5A 24 20 45 24 28 49 29 00 |E.125) Z$ E$(I).|
000007C0: F1 0F 1C 02 8B 20 4C B2 32 36 20 AF 20 45 B1 37 |..... L.26 . E.7|
000007D0: 37 20 A7 20 99 20 44 24 20 44 24 20 44 24 20 A6 |7 . . D$ D$ D$ .|
000007E0: 32 AC 45 AB 31 35 31 29 20 5A 24 20 45 24 28 49 |2.E.151) Z$ E$(I|
000007F0: 29 00 FC 0F 26 02 99 20 42 24 3A 8E 00 30 10 30 |)...&.. B$:..0.0|
00000800: 02 49 B2 49 AA 31 3A 58 B2 58 AA 31 3A 8B 20 49 |.I.I.1:X.X.1:. I|
00000810: B2 34 30 20 B0 20 49 B2 38 30 20 B0 20 49 B2 31 |.40 . I.80 . I.1|
00000820: 32 30 20 A7 20 58 B2 30 3A 47 47 B2 47 47 AA 31 |20 . X.0:GG.GG.1|
00000830: 00 65 10 3A 02 8B 20 49 B2 31 36 30 20 A7 20 4A |.e.:.. I.160 . J|
00000840: B2 49 3A 99 20 43 24 20 22 4C 4F 4E 47 20 45 4E |.I:. C$ "LONG EN|
00000850: 4F 55 47 48 20 2D 20 53 45 4C 45 43 54 20 33 22 |OUGH - SELECT 3"|
00000860: 3A 89 20 33 30 00 6B 10 44 02 8E 00 94 10 4E 02 |:. 30.k.D.....N.|
00000870: 4B 45 B2 4B 45 AA 28 44 49 AC 49 29 3A 8B 4B 45 |KE.KE.(DI.I):.KE|
00000880: B1 4C A7 4B 45 B2 4B 45 AB 28 B5 28 4B 45 AD 4C |.L.KE.KE.(.(KE.L|
00000890: 29 AC 4C 29 00 A3 10 58 02 4B 45 28 49 29 B2 4B |).L)...X.KE(I).K|
000008A0: 45 3A 8E 00 BF 10 62 02 99 22 45 4E 54 45 52 20 |E:....b.."ENTER |
000008B0: 43 49 50 48 45 52 45 44 20 54 45 58 54 3A 22 00 |CIPHERED TEXT:".|
000008C0: DC 10 6C 02 A1 20 41 24 28 49 29 3A 8B 20 41 24 |..l.. A$(I):. A$|
000008D0: 28 49 29 B2 22 22 20 A7 20 36 32 30 00 FA 10 6D |(I)."" . 620...m|
000008E0: 02 8B 28 41 24 28 49 29 B3 B1 C7 28 32 30 29 29 |..(A$(I)...(20))|
000008F0: B0 28 49 B2 2E 29 A7 36 33 30 00 07 11 6E 02 8B |.(I..).630...n..|
00000900: 58 B1 2E A7 36 32 34 00 3D 11 6F 02 99 48 24 3B |X...624.=.o..H$;|
00000910: 3A 81 47 B2 31 A4 47 47 AA 37 3A 99 44 24 3B 3A |:.G.1.GG.7:.D$;:|
00000920: 82 3A 99 A6 33 39 29 22 20 9D 22 3A 58 B2 34 30 |.:..39)" .":X.40|
00000930: 3A 47 47 B2 47 47 AB 31 3A 89 36 32 35 00 62 11 |:GG.GG.1:.625.b.|
00000940: 70 02 99 48 24 3B 3A 81 47 B2 31 A4 47 47 AA 38 |p..H$;:.G.1.GG.8|
00000950: 3A 99 44 24 3B 3A 82 3A 99 A6 58 AB 31 29 22 20 |:.D$;:.:..X.1)" |
00000960: 9D 22 00 87 11 71 02 49 B2 49 AB 31 3A 58 B2 58 |."...q.I.I.1:X.X|
00000970: AB 31 3A 8B 49 B1 2E A7 4B 45 B2 4B 45 28 49 AB |.1:.I...KE.KE(I.|
00000980: 31 29 3A 89 36 32 30 00 99 11 72 02 4B 45 B2 4C |1):.620...r.KE.L|
00000990: 4C AB 36 34 3A 89 36 32 30 00 C3 11 76 02 8B 20 |L.64:.620...v.. |
000009A0: 49 B2 30 20 A7 20 99 20 55 24 3A 81 20 47 B2 31 |I.0 . . U$:. G.1|
000009B0: 20 A4 20 32 30 3A 99 20 58 24 3B 3A 82 3A 89 20 | . 20:. X$;:.:. |
000009C0: 36 36 30 00 F2 11 80 02 49 B2 49 AB 31 3A 5A 24 |660.....I.I.1:Z$|
000009D0: B2 22 22 3A 45 B2 4B 3A 45 24 28 49 29 B2 4B 24 |."":E.K:E$(I).K$|
000009E0: 28 49 29 3A 8B 20 4B B2 33 32 20 A7 20 57 24 B2 |(I):. K.32 . W$.|
000009F0: 58 24 00 09 12 8A 02 8D 20 35 30 30 3A 57 24 B2 |X$...... 500:W$.|
00000A00: 22 2A 22 3A 49 B2 49 AA 31 00 1C 12 94 02 4C B2 |"*":I.I.1.....L.|
00000A10: 30 3A 41 B2 C6 28 41 24 28 49 29 29 00 33 12 9E |0:A..(A$(I)).3..|
00000A20: 02 8B 20 41 B2 31 33 20 A7 20 4A B2 49 3A 89 20 |.. A.13 . J.I:. |
00000A30: 38 30 30 00 4B 12 A8 02 8B 20 41 B2 33 32 20 A7 |800.K.... A.32 .|
00000A40: 20 4B B2 33 32 3A 89 20 37 38 30 00 63 12 B2 02 | K.32:. 780.c...|
00000A50: 8B 20 41 B3 34 38 20 B0 20 41 B1 39 30 20 A7 20 |. A.48 . A.90 . |
00000A60: 36 32 30 00 7B 12 BC 02 8B 20 41 B1 35 37 20 AF |620.{.... A.57 .|
00000A70: 20 41 B3 36 35 20 A7 20 36 32 30 00 8D 12 C6 02 | A.65 . 620.....|
00000A80: 8B 20 41 B1 36 34 20 A7 20 4C B2 32 36 00 9F 12 |. A.64 . L.26...|
00000A90: D0 02 8B 20 41 B3 35 38 20 A7 20 4C B2 31 30 00 |... A.58 . L.10.|
00000AA0: BE 12 DA 02 99 20 48 24 3B 3A 81 20 47 B2 31 20 |..... H$;:. G.1 |
00000AB0: A4 20 47 47 AA 38 3A 99 20 44 24 3B 3A 82 00 DD |. GG.8:. D$;:...|
00000AC0: 12 E4 02 99 20 A6 58 29 20 52 24 20 49 24 20 41 |.... .X) R$ I$ A|
00000AD0: 24 28 49 29 20 42 24 3A 8D 20 35 39 30 00 E8 12 |$(I) B$:. 590...|
00000AE0: EE 02 4B B2 41 AB 4B 45 00 03 13 F8 02 8B 20 4C |..K.A.KE...... L|
00000AF0: B2 32 36 20 AF 20 4B B3 36 35 20 A7 20 4B B2 4B |.26 . K.65 . K.K|
00000B00: AA 32 36 00 1E 13 02 03 8B 20 4C B2 31 30 20 AF |.26...... L.10 .|
00000B10: 20 4B B3 34 38 20 A7 20 4B B2 4B AA 31 30 00 43 | K.48 . K.K.10.C|
00000B20: 13 0C 03 4B 24 28 49 29 B2 C7 28 4B 29 3A 5A 24 |...K$(I)..(K):Z$|
00000B30: B2 52 24 3A 45 B2 4B 3A 45 24 28 49 29 B2 4B 24 |.R$:E.K:E$(I).K$|
00000B40: 28 49 29 00 59 13 16 03 8D 20 35 30 30 3A 8D 20 |(I).Y.... 500:. |
00000B50: 35 36 30 3A 89 20 36 32 30 00 6F 13 20 03 99 20 |560:. 620.o. .. |
00000B60: 43 24 3B 3A 8B 20 49 B1 30 20 A7 20 38 35 30 00 |C$;:. I.0 . 850.|
00000B70: 8E 13 2A 03 99 20 A6 39 29 20 49 24 20 22 4E 4F |..*.. .9) I$ "NO|
00000B80: 20 4D 45 53 53 41 47 45 20 59 45 54 21 22 00 B5 | MESSAGE YET!"..|
00000B90: 13 34 03 99 20 22 53 45 4C 45 43 54 20 31 20 4F |.4.. "SELECT 1 O|
00000BA0: 52 20 32 20 46 52 4F 4D 20 4D 45 4E 55 20 46 49 |R 2 FROM MENU FI|
00000BB0: 52 53 54 3A 22 00 CA 13 3E 03 8B 20 50 52 24 B2 |RST:"...>.. PR$.|
00000BC0: 22 4F 50 45 4E 22 20 A7 20 8E 00 D3 13 48 03 89 |"OPEN" . ....H..|
00000BD0: 20 33 30 00 F2 13 52 03 99 22 59 4F 55 52 20 4D | 30...R.."YOUR M|
00000BE0: 45 53 53 41 47 45 20 4E 4F 54 20 43 4F 44 45 44 |ESSAGE NOT CODED|
00000BF0: 3A 22 00 0F 14 5C 03 99 3A 81 20 49 B2 30 20 A4 |:"...\..:. I.0 .|
00000C00: 20 4A AB 31 3A 99 20 4B 24 28 49 29 3B 3A 82 00 | J.1:. K$(I);:..|
00000C10: 17 14 66 03 99 3A 99 00 33 14 70 03 99 20 22 59 |..f..:..3.p.. "Y|
00000C20: 4F 55 52 20 4D 45 53 53 41 47 45 20 43 4F 44 45 |OUR MESSAGE CODE|
00000C30: 44 3A 22 00 45 14 7A 03 99 3A 81 20 49 B2 30 20 |D:".E.z..:. I.0 |
00000C40: A4 20 4A AB 31 00 60 14 84 03 8B 20 4E B2 35 20 |. J.1.`.... N.5 |
00000C50: A7 20 99 20 41 24 28 49 29 3B 3A 89 20 39 33 30 |. . A$(I);:. 930|
00000C60: 00 7D 14 8E 03 8B 20 41 24 28 49 29 20 B3 B1 20 |.}.... A$(I) .. |
00000C70: 58 24 20 A7 20 99 20 41 24 28 49 29 3B 00 97 14 |X$ . . A$(I);...|
00000C80: 98 03 8B 20 41 24 28 49 29 B2 58 24 20 A7 20 99 |... A$(I).X$ . .|
00000C90: 20 42 24 20 58 24 3B 00 A9 14 A2 03 82 3A 99 3A | B$ X$;......:.:|
00000CA0: 8B 20 4E B2 34 20 A7 20 8E 00 DA 14 B8 03 99 22 |. N.4 . ......."|
00000CB0: 11 90 20 20 20 20 20 20 20 50 52 45 53 53 20 53 |.. PRESS S|
00000CC0: 50 41 43 45 20 46 4F 52 20 4D 41 49 4E 20 4D 45 |PACE FOR MAIN ME|
00000CD0: 4E 55 22 3A 97 31 39 38 2C 2E 00 EE 14 BA 03 8B |NU":.198,.......|
00000CE0: C2 28 32 30 33 29 B3 B1 36 30 A7 39 35 34 00 F6 |.(203)..60.954..|
00000CF0: 14 BC 03 89 33 30 00 11 15 C0 03 81 20 47 B2 31 |....30...... G.1|
00000D00: 20 A4 20 34 30 3A 99 20 C7 28 31 38 34 29 3B 3A | . 40:. .(184);:|
00000D10: 82 00 1B 15 CA 03 99 20 A6 38 29 00 38 15 D4 03 |....... .8).8...|
00000D20: 81 20 47 B2 34 38 20 A4 20 35 37 3A 99 20 C7 28 |. G.48 . 57:. .(|
00000D30: 47 29 20 58 24 3B 3A 82 00 44 15 DE 03 99 3A 99 |G) X$;:..D....:.|
00000D40: 20 A6 35 29 00 61 15 E8 03 81 20 47 B2 36 35 20 | .5).a.... G.65 |
00000D50: A4 20 37 37 3A 99 20 C7 28 47 29 20 58 24 3B 3A |. 77:. .(G) X$;:|
00000D60: 82 00 6D 15 F2 03 99 3A 99 20 A6 35 29 00 8A 15 |..m....:. .5)...|
00000D70: FC 03 81 20 47 B2 37 38 20 A4 20 39 30 3A 99 20 |... G.78 . 90:. |
00000D80: C7 28 47 29 20 58 24 3B 3A 82 00 A3 15 06 04 99 |.(G) X$;:.......|
00000D90: 3A 99 20 A6 31 33 29 20 22 53 50 41 43 45 20 42 |:. .13) "SPACE B|
00000DA0: 41 52 22 00 BE 15 10 04 81 20 47 B2 31 20 A4 20 |AR"...... G.1 . |
00000DB0: 34 30 3A 99 20 C7 28 31 38 35 29 3B 3A 82 00 C6 |40:. .(185);:...|
00000DC0: 15 1A 04 99 3A 8E 00 E2 15 24 04 9F 31 35 2C 34 |....:....$..15,4|
00000DD0: 2C 31 35 3A A0 31 35 3A 8B 53 54 B2 2E A7 31 30 |,15:.15:.ST...10|
00000DE0: 37 30 00 12 16 26 04 99 22 11 20 20 20 20 45 52 |70...&..". ER|
00000DF0: 52 4F 52 21 21 20 50 52 49 4E 54 45 52 20 4E 4F |ROR!! PRINTER NO|
00000E00: 54 20 4F 4E 4C 49 4E 45 21 21 20 20 20 20 20 20 |T ONLINE!! |
00000E10: 20 22 00 50 16 28 04 81 41 B2 31 A4 32 30 30 30 | ".P.(..A.1.2000|
00000E20: 3A 82 3A 99 22 91 20 20 20 20 20 20 20 20 20 20 |:.:.". |
00000E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 91 22 | .."|
00000E50: 00 59 16 2A 04 89 31 31 30 00 72 16 2E 04 99 20 |.Y.*..110.r.... |
00000E60: 43 24 20 A6 31 30 29 20 22 50 52 49 4E 54 49 4E |C$ .10) "PRINTIN|
00000E70: 47 22 00 8B 16 33 04 50 52 24 B2 22 4F 50 45 4E |G"...3.PR$."OPEN|
00000E80: 22 3A 9F 20 34 2C 34 3A 9D 20 34 00 98 16 38 04 |":. 4,4:. 4...8.|
00000E90: 8D 20 38 30 30 3A 98 34 00 C8 16 42 04 98 34 2C |. 800:.4...B..4,|
00000EA0: 22 57 41 52 4E 49 4E 47 3A 20 4E 45 56 45 52 20 |"WARNING: NEVER |
00000EB0: 54 52 41 4E 53 4D 49 54 20 43 4F 44 45 20 42 59 |TRANSMIT CODE BY|
00000EC0: 20 52 41 44 49 4F 21 22 00 E1 16 4C 04 50 52 24 | RADIO!"...L.PR$|
00000ED0: B2 22 43 4C 4F 53 45 44 22 3A 98 20 34 3A A0 20 |."CLOSED":. 4:. |
00000EE0: 34 00 0F 17 56 04 99 20 A6 31 30 29 20 55 24 20 |4...V.. .10) U$ |
00000EF0: 22 46 49 4E 49 53 48 45 44 20 50 52 49 4E 54 49 |"FINISHED PRINTI|
00000F00: 4E 47 22 3A 81 41 B2 31 A4 32 30 30 30 3A 82 00 |NG":.A.1.2000:..|
00000F10: 18 17 60 04 89 20 33 30 00 29 17 6A 04 99 20 55 |..`.. 30.).j.. U|
00000F20: 24 20 A6 32 34 29 20 57 24 00 48 17 74 04 81 20 |$ .24) W$.H.t.. |
00000F30: 47 B2 31 20 A4 20 32 30 30 3A 82 3A 99 20 55 24 |G.1 . 200:.:. U$|
00000F40: 20 A6 32 34 29 20 58 24 00 5C 17 7E 04 81 20 47 | .24) X$.\.~.. G|
00000F50: B2 31 20 A4 20 31 30 30 3A 82 3A 8E 00 84 17 88 |.1 . 100:.:.....|
00000F60: 04 97 20 53 AA 32 34 2C 31 35 3A 97 20 53 AA 31 |.. S.24,15:. S.1|
00000F70: 2C 31 31 30 3A 97 20 53 AA 35 2C 39 3A 97 20 53 |,110:. S.5,9:. S|
00000F80: AA 36 2C 39 00 9C 17 92 04 97 20 53 AA 34 2C 31 |.6,9...... S.4,1|
00000F90: 37 3A 97 20 53 AA 34 2C 31 36 3A 8E 00 BC 17 9C |7:. S.4,16:.....|
00000FA0: 04 99 20 55 24 20 A6 31 30 29 20 22 45 4E 44 20 |.. U$ .10) "END |
00000FB0: 4F 46 20 50 52 4F 47 52 41 4D 2E 22 00 D9 17 A6 |OF PROGRAM."....|
00000FC0: 04 81 20 4A 4A B2 30 20 A4 20 32 34 3A 97 20 53 |.. JJ.0 . 24:. S|
00000FD0: AA 32 34 2C 30 3A 82 3A 80 00 EB 17 B0 04 53 B2 |.24,0:.:......S.|
00000FE0: 35 34 32 37 32 3A 8D 31 31 36 30 00 11 18 BA 04 |54272:.1160.....|
00000FF0: 86 20 4B 24 28 31 36 30 29 2C 41 24 28 31 36 30 |. K$(160),A$(160|
00001000: 29 2C 45 24 28 31 36 30 29 2C 4B 45 28 31 36 30 |),E$(160),KE(160|
00001010: 29 00 38 18 C4 04 43 24 B2 22 93 22 3A 48 24 B2 |).8...C$.".":H$.|
00001020: 22 13 22 3A 58 24 B2 22 20 22 3A 42 24 B2 22 90 |".":X$." ":B$.".|
00001030: 22 3A 49 24 B2 22 05 22 00 5F 18 CE 04 55 24 B2 |":I$."."._...U$.|
00001040: 22 91 22 3A 44 24 B2 22 11 22 3A 52 24 B2 22 12 |".":D$.".":R$.".|
00001050: 22 3A 59 24 B2 22 1F 22 3A 57 24 B2 22 2A 22 00 |":Y$.".":W$."*".|
00001060: 65 18 D8 04 8E 00 80 18 F6 04 81 20 4A 4A B2 30 |e.......... JJ.0|
00001070: 20 A4 20 32 34 3A 97 20 53 AA 32 34 2C 30 3A 82 | . 24:. S.24,0:.|
00001080: 00 A2 18 00 05 99 20 55 24 20 A6 31 30 29 20 22 |...... U$ .10) "|
00001090: 45 4E 44 20 4F 46 20 50 52 4F 47 52 41 4D 2E 22 |END OF PROGRAM."|
000010A0: 3A 80 00 BA 18 0A 05 97 35 33 32 38 30 2C 31 34 |:.......53280,14|
000010B0: 3A 97 35 33 32 38 31 2C 31 34 00 F6 18 14 05 99 |:.53281,14......|
000010C0: 22 93 08 22 C7 28 31 34 32 29 22 99 D5 C0 C0 C0 |"..".(142)".....|
000010D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000010E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000010F0: C0 C0 C0 C9 22 3B 00 11 19 1E 05 81 41 B2 31 A4 |....";......A.1.|
00001100: 32 33 3A 99 22 DD 22 A6 33 38 29 22 DD 22 3B 3A |23:.".".38)".";:|
00001110: 82 00 44 19 28 05 99 22 CA C0 C0 C0 C0 C0 C0 C0 |..D.(.."........|
00001120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001130: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 9D |................|
00001140: 94 C0 13 22 00 61 19 32 05 81 41 B2 32 31 37 A4 |...".a.2..A.217.|
00001150: 32 34 32 3A 97 41 2C C2 28 41 29 B0 31 32 38 3A |242:.A,.(A).128:|
00001160: 82 00 88 19 3C 05 99 22 13 11 1D 1F 20 20 20 20 |....<..".... |
00001170: 20 20 20 20 20 4C 4F 41 44 53 54 41 52 20 50 52 | LOADSTAR PR|
00001180: 45 53 45 4E 54 53 3A 22 00 B8 19 46 05 99 22 11 |ESENTS:"...F..".|
00001190: 11 11 11 11 11 1D 20 20 20 20 20 20 20 05 12 20 |...... .. |
000011A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011B0: 20 20 20 20 20 20 20 22 00 E4 19 50 05 99 22 1D | "...P..".|
000011C0: 20 20 20 20 20 20 20 05 12 20 20 20 20 20 20 20 | .. |
000011D0: 20 45 4E 49 47 4D 41 20 20 20 20 20 20 20 20 20 | ENIGMA |
000011E0: 20 1F 20 22 00 10 1A 5A 05 99 22 1D 20 20 20 20 | . "...Z..". |
000011F0: 20 20 20 05 12 20 20 20 20 20 20 20 20 20 20 20 | .. |
00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 1F 20 22 | . "|
00001210: 00 3C 1A 64 05 99 22 1D 20 20 20 20 20 20 20 05 |.<.d..". .|
00001220: 12 20 20 42 59 20 47 45 52 48 41 52 44 20 53 43 |. BY GERHARD SC|
00001230: 48 49 4C 4C 49 4E 47 20 20 1F 20 22 00 68 1A 6E |HILLING . ".h.n|
00001240: 05 99 22 1D 20 20 20 20 20 20 20 05 12 20 20 20 |..". .. |
00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001260: 20 20 20 20 20 1F 20 22 00 94 1A 78 05 99 22 1D | . "...x..".|
00001270: 20 20 20 20 20 20 20 05 12 20 20 20 20 28 43 29 | .. (C)|
00001280: 4F 50 59 52 49 47 48 54 20 31 39 38 37 20 20 20 |OPYRIGHT 1987 |
00001290: 20 1F 20 22 00 C0 1A 82 05 99 22 1D 20 20 20 20 | . "......". |
000012A0: 20 20 20 05 12 20 20 20 20 20 20 20 20 20 20 20 | .. |
000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 1F 20 22 | . "|
000012C0: 00 EA 1A 8C 05 99 22 1D 20 20 20 20 20 20 20 20 |......". |
000012D0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000012E0: 20 20 20 20 20 20 20 20 20 22 00 18 1B 96 05 99 | "......|
000012F0: 22 11 11 11 11 11 11 1D 20 20 20 20 20 20 20 50 |"....... P|
00001300: 52 45 53 53 20 53 50 41 43 45 20 54 4F 20 43 4F |RESS SPACE TO CO|
00001310: 4E 54 49 4E 55 45 2E 22 00 2D 1B A0 05 8B C2 28 |NTINUE.".-.....(|
00001320: 32 30 33 29 B3 B1 36 30 A7 31 34 34 30 00 33 1B |203)..60.1440.3.|
00001330: AA 05 8E 00 61 1B C4 EA 99 22 91 20 41 52 45 20 |....a....". ARE |
00001340: 59 4F 55 20 53 55 52 45 20 59 4F 55 20 57 41 4E |YOU SURE YOU WAN|
00001350: 54 20 54 4F 20 51 55 49 54 3F 20 28 59 2F 4E 29 |T TO QUIT? (Y/N)|
00001360: 22 00 81 1B CE EA 41 B2 C2 28 32 30 33 29 3A 8B |".....A..(203):.|
00001370: 41 B3 B1 32 35 AF 41 B3 B1 33 39 A7 36 30 31 31 |A..25.A..39.6011|
00001380: 30 00 91 1B D8 EA 8B 41 B2 32 35 A7 36 30 31 35 |0......A.25.6015|
00001390: 30 00 C1 1B E2 EA 99 22 91 20 20 20 20 20 20 20 |0......". |
000013A0: 20 20 20 53 45 4C 45 43 54 20 4E 55 4D 42 45 52 | SELECT NUMBER|
000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013C0: 22 00 CC 1B EC EA 99 22 91 22 3A 8E 00 05 1C F6 |"......".":.....|
000013D0: EA 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A 48 45 |..15,8,15,"R0:HE|
000013E0: 4C 4C 4F 20 43 4F 4E 4E 45 43 54 3D 48 45 4C 4C |LLO CONNECT=HELL|
000013F0: 4F 20 43 4F 4E 4E 45 43 54 22 3A 84 31 35 2C 45 |O CONNECT":.15,E|
00001400: 52 3A A0 31 35 00 13 1C 00 EB 8B 45 52 B3 B1 36 |R:.15......ER..6|
00001410: 33 A7 80 00 2A 1C 0A EB 93 22 48 45 4C 4C 4F 20 |3...*...."HELLO |
00001420: 43 4F 4E 4E 45 43 54 22 2C 38 00 00 00 |CONNECT",8... |
..#....1290:.53280,4:.53281,3:.".";./...
.:.1200.C...."... E N I G
M A ";... .." GERMAN CIPHER
MACHINE OF WORLD WAR II "...#.."
.-- MAIN MENU --".Z.(.."...E.. - E
NCIPHER A MESSAGE"...2.."..D.. - DECODE
AN ENCIPHERED MESSAGE".9.<.."..S.. - SHO
W MESSAGE IN BOTH CLEAR AND CODE".W.P.."
..P.. - PRINTER OUTPUT".K.Z.."..Q.. - QU
IT"...\..". CURRENT CODE KEY:.";:.L$..
"".Z1$.L$:Z2$.DI$:.94.F.].Z1$."NO CODE K
EY YET":Z2$."".U.^..Z1$"-"Z2$...D.. D$ .
10) ".SELECT A LETTER":. 1160:.198,..$.N
.. N$:. N$."" . . 1130:. 110.@.P..N$."E"
.N$."E".N.1:.170.\.Q..N$."D".N$."D".N.2:
.170.X.R..N$."S".N$."S".N.3:.800...S..N$
."P".N$."P".N.4:.1060...T..N$."Q".N$."Q"
..60100:.110...X..110.N...I.0:X.0:GG.5..
....". ENTER SECRET CODE KEY:"..
....". LETTER OF CODE (A-Z)":. 1160.=.
H.. L$:. L$."" . . 1130:. 200.I.R.LL.F(L
$):. LL.65 . LL.90 . . 1160:. 200.V...KE
.LL.64......". NUMBER OF CODE (1-9)":.
1160...... DI$:. DI$."" . . 1130:. 240.
..... DI$ . "1" . DI$ . "9" . .1160:. 24
0.....DI.E(DI$):.C$.$.... .6) "PRESS ANY
ALPHA-NUMERIC KEYS".C.... .10) "OR THE
SPACE BAR.".W.".. X$ "(FOR MENU, OR TO E
ND, PRESS <RETURN>)" D$...,.. 960:. 1160
:. N.2 . 610...6.."ENTER CLEAR TEXT:".J.
@.. K$(I):. K$(I)."" . 320...A..(K$(I)..
G(20)).(I..).330...B..X...324.+.C..H$;:.
G.1.GG.7:.D$;:.:..39)" .":X.40:GG.GG.1:.
325.P.D..H$;:.G.1.GG.8:.D$;:.:..X.1)" ."
.U.E.I.I.1:X.X.1:.I...KE.KE(I.1):.320...
F.KE.LL.64:.320...J..I...360.C.T.I.I.1:Z
$."":E.A:E$(I).A$(I):. K.32 . W$.X$.Z.^.
. 500:W$."*":I.I.1...H.L.0:K.F(K$(I))...
R.. K.13 . J.I:. 800.%.|.. K.32 . A.32:K
E(I).KE:. 480.=.... K.48 . K.90 . 320.U.
... K.57 . K.65 . 320.G.... K.64 . L.26.
Y.... K.58 . L.10...... H$;:. G.1 . GG.8
:. D$;:....... .X) K$(I):. 590...B.A.K.K
E.T.L.. L.26 . A.90 . A.A.26...V.. L.10
. A.57 . A.A.10.....A$(I).G(A):Z$.I$:E.A
:E$(I).A$(I).*.... 500:. 560:. 320.F....
H$;:. G.1 . 5:. D$;:..L.... E.32 . . D$
D$ D$ D$ Z$ .23) W$...... L.10 . . .2.E
.88) D$ Z$ E$(I)...... L.26 . E.78 . . D
$ D$ .2.E.125) Z$ E$(I)...... L.26 . E.7
7 . . D$ D$ D$ .2.E.151) Z$ E$(I)...&..
B$:..0.0.I.I.1:X.X.1:. I.40 . I.80 . I.1
20 . X.0:GG.GG.1.E.:.. I.160 . J.I:. C$
"LONG ENOUGH - SELECT 3":. 30.K.D.....N.
KE.KE.(DI.I):.KE.L.KE.KE.(.(KE.L).L)...X
.KE(I).KE:....B.."ENTER CIPHERED TEXT:".
..L.. A$(I):. A$(I)."" . 620...M..(A$(I)
..G(20)).(I..).630...N..X...624.=.O..H$;
:.G.1.GG.7:.D$;:.:..39)" .":X.40:GG.GG.1
:.625.B.P..H$;:.G.1.GG.8:.D$;:.:..X.1)"
."...Q.I.I.1:X.X.1:.I...KE.KE(I.1):.620.
..R.KE.LL.64:.620.C.V.. I.0 . . U$:. G.1
. 20:. X$;:.:. 660.....I.I.1:Z$."":E.K:
E$(I).K$(I):. K.32 . W$.X$...... 500:W$.
"*":I.I.1.....L.0:A.F(A$(I)).3.... A.13
. J.I:. 800.K.... A.32 . K.32:. 780.C...
. A.48 . A.90 . 620.{.... A.57 . A.65 .
620...F.. A.64 . L.26...P.. A.58 . L.10.
..Z.. H$;:. G.1 . GG.8:. D$;:....... .X)
R$ I$ A$(I) B$:. 590.....K.A.KE...... L
.26 . K.65 . K.K.26...... L.10 . K.48 .
K.K.10.C...K$(I).G(K):Z$.R$:E.K:E$(I).K$
(I).Y.... 500:. 560:. 620.O. .. C$;:. I.
0 . 850...*.. .9) I$ "NO MESSAGE YET!"..
.4.. "SELECT 1 OR 2 FROM MENU FIRST:".J.
>.. PR$."OPEN" . ..S.H.. 30...R.."YOUR M
ESSAGE NOT CODED:"...\..:. I.0 . J.1:. K
$(I);:....F..:..3.P.. "YOUR MESSAGE CODE
D:".E.Z..:. I.0 . J.1.`.... N.5 . . A$(I
);:. 930.}.... A$(I) .. X$ . . A$(I);...
... A$(I).X$ . . B$ X$;......:.:. N.4 .
..Z....".. PRESS SPACE FOR MAIN ME
NU":.198,.......B(203)..60.954......30..
.... G.1 . 40:. G(184);:....J.. .8).8.T.
. G.48 . 57:. G(G) X$;:..D....:. .5).A..
.. G.65 . 77:. G(G) X$;:..M....:. .5)...
... G.78 . 90:. G(G) X$;:.......:. .13)
"SPACE BAR"...... G.1 . 40:. G(185);:..F
....:....$..15,4,15: 15:.ST...1070...&..
". ERROR!! PRINTER NOT ONLINE!!
".P.(..A.1.2000:.:.".
..".Y.*..110.R....
C$ .10) "PRINTING"...3.PR$."OPEN":. 4,4:
. 4...8.. 800:.4.H.B..4,"WARNING: NEVER
TRANSMIT CODE BY RADIO!"...L.PR$."CLOSED
":. 4: 4...V.. .10) U$ "FINISHED PRINTI
NG":.A.1.2000:....`.. 30.).J.. U$ .24) W
$.H.T.. G.1 . 200:.:. U$ .24) X$.\.~.. G
.1 . 100:.:....... S.24,15:. S.1,110:. S
.5,9:. S.6,9...... S.4,17:. S.4,16:.....
.. U$ .10) "END OF PROGRAM.".Y.... JJ.0
. 24:. S.24,0:.:......S.54272:.1160.....
. K$(160),A$(160),E$(160),KE(160).8.D.C$
.".":H$.".":X$." ":B$.".":I$."."._.N.U$.
".":D$.".":R$.".":Y$.".":W$."*".E.X.....
... JJ.0 . 24:. S.24,0:....... U$ .10) "
END OF PROGRAM.":.......53280,14:.53281,
14......".."G(142)".U...................
...................I";......A.1.23:.".".
38)".";:..D.(.."J.......................
..............K....".A.2..A.217.242:.A,B
(A).128:....<..".... LOADSTAR PR
ESENTS:"...F.."....... ..
"...P..". ..
ENIGMA . "...Z..". ..
. ".<.D..". .
. BY GERHARD SCHILLING . ".H.N..".
.. . "...X..".
.. (C)OPYRIGHT 1987 . "....
..". .. . "
......". .
"......"....... PRESS SPACE TO CO
NTINUE.".-. ..B(203)..60.1440.3.....A.D.
.". ARE YOU SURE YOU WANT TO QUIT? (Y/N)
"...N.A.B(203):.A..25.A..39.60110...X..A
.25.60150.A....". SELECT NUMBER
".L....".":.......15,8,1
5,"R0:HELLO CONNECT=HELLO CONNECT":.15,E
R: 15......ER..63...*...."HELLO CONNECT"
,8...
> CLICK IMAGE PREVIEW FOR FULL MODAL