KRYPTOGRAMM 128

00000000: 01 1C 1D 1C 0A 00 FE 25  3A F9 31 2C 22 47 4F 54  |.......%:.1,"GOT|
00000010: 4F 31 30 30 30 3A 22 AA  C7 28 31 33 29 00 27 1C  |O1000:"..(13).'.|
00000020: 14 00 89 32 35 30 30 00  5A 1C 1E 00 3A 4B 52 59  |...2500.Z...:KRY|
00000030: 50 A4 47 52 41 4D 4D 20  43 31 32 38 AD 38 30 20  |P.GRAMM C128.80 |
00000040: 5A 45 49 43 48 45 4E AB  4D 4F 44 55 53 2C 20 56  |ZEICHEN.MODUS, V|
00000050: 45 52 53 2E 20 31 30 AD  38 39 00 7D 1C 28 00 3A  |ERS. 10.89.}.(.:|
00000060: 4B 41 49 53 41 52 20 55  2E 20 44 41 50 48 4E 45  |KAISAR U. DAPHNE|
00000070: 20 50 45 C0 49 44 45 53  2C 20 46 46 4D 00 83 1C  | PE.IDES, FFM...|
00000080: 32 00 3A 00 D4 1C 3C 00  22 C5 49 4E 20 45 49 4E  |2.:...<.".IN EIN|
00000090: 47 45 47 45 42 45 4E 45  52 20 D4 45 58 54 20 57  |GEGEBENER .EXT W|
000000A0: 49 52 44 20 4D 49 54 20  C8 49 4C 46 45 20 56 4F  |IRD MIT .ILFE VO|
000000B0: 4E 20 42 49 53 20 5A 55  20 31 30 20 55 4E 54 45  |N BIS ZU 10 UNTE|
000000C0: 52 20 43 48 24 28 58 29  20 47 45 53 50 45 49 43  |R CH$(X) GESPEIC|
000000D0: 48 45 52 2D 00 23 1D 3D  00 22 54 45 4E 20 C4 41  |HER-.#.=."TEN .A|
000000E0: 54 41 5A 45 49 4C 45 4E  20 43 48 49 46 46 52 49  |TAZEILEN CHIFFRI|
000000F0: 45 52 54 20 55 4E 44 20  49 4E 20 44 41 53 20 C1  |ERT UND IN DAS .|
00000100: 52 52 41 59 20 54 45 24  20 41 42 47 45 4C 45 47  |RRAY TE$ ABGELEG|
00000110: 54 2E 20 C4 41 42 45 49  20 57 45 52 44 45 4E 20  |T. .ABEI WERDEN |
00000120: 44 49 45 00 71 1D 3E 00  22 C2 55 43 48 53 54 41  |DIE.q.>.".UCHSTA|
00000130: 42 45 4E 20 44 45 53 20  45 49 4E 47 45 47 45 42  |BEN DES EINGEGEB|
00000140: 45 4E 45 4E 20 D4 45 58  54 45 53 20 4E 41 43 48  |ENEN .EXTES NACH|
00000150: 20 45 49 4E 45 4D 20 DA  55 46 41 4C 4C 53 41 4C  | EINEM .UFALLSAL|
00000160: 47 4F 52 49 54 48 4D 55  53 20 41 55 53 20 44 45  |GORITHMUS AUS DE|
00000170: 4E 00 C1 1D 3F 00 22 C2  55 43 48 53 54 41 42 45  |N...?.".UCHSTABE|
00000180: 4E 20 44 45 52 20 31 30  20 47 45 53 50 45 49 43  |N DER 10 GESPEIC|
00000190: 48 45 52 54 45 4E 20 C4  41 54 41 5A 45 49 4C 45  |HERTEN .ATAZEILE|
000001A0: 4E 20 5A 55 53 41 4D 4D  45 4E 47 45 53 45 54 5A  |N ZUSAMMENGESETZ|
000001B0: 54 20 55 4E 44 20 41 4C  53 20 45 49 4E 45 20 33  |T UND ALS EINE 3|
000001C0: 2D 00 10 1E 40 00 22 5A  49 46 46 52 49 47 45 20  |-...@."ZIFFRIGE |
000001D0: DA 41 48 4C 20 50 52 4F  20 C2 55 43 48 53 54 41  |.AHL PRO .UCHSTA|
000001E0: 42 45 20 49 4E 20 54 45  24 20 41 55 46 47 45 4E  |BE IN TE$ AUFGEN|
000001F0: 4F 4D 4D 45 4E 2E 20 C4  49 45 20 45 52 53 54 45  |OMMEN. .IE ERSTE|
00000200: 20 DA 49 46 46 45 52 20  47 49 42 54 20 44 49 45  | .IFFER GIBT DIE|
00000210: 00 5F 1E 41 00 22 4C 46  44 20 4E 52 2E 20 44 45  |._.A."LFD NR. DE|
00000220: 52 20 49 4E 44 49 5A 49  45 52 54 45 4E 20 D6 41  |R INDIZIERTEN .A|
00000230: 52 49 41 42 4C 45 4E 20  43 48 24 28 58 29 2C 20  |RIABLEN CH$(X), |
00000240: 44 49 45 20 4C 45 54 5A  54 45 4E 20 5A 57 45 49  |DIE LETZTEN ZWEI|
00000250: 20 44 49 45 20 D3 54 45  4C 4C 45 20 44 45 53 00  | DIE .TELLE DES.|
00000260: AC 1E 42 00 22 C2 55 43  48 53 54 41 42 45 4E 20  |..B.".UCHSTABEN |
00000270: 49 4E 20 44 45 52 20 C4  41 54 41 5A 45 49 4C 45  |IN DER .ATAZEILE|
00000280: 20 41 4E 2E 20 C1 55 43  48 20 CC 45 45 52 53 54  | AN. .UCH .EERST|
00000290: 45 4C 4C 45 4E 20 57 45  52 44 45 4E 20 41 55 46  |ELLEN WERDEN AUF|
000002A0: 20 44 49 45 53 45 20 D7  45 49 53 45 00 D9 1E 43  | DIESE .EISE...C|
000002B0: 00 22 4B 4F 44 49 45 52  54 2C 20 44 41 53 53 20  |."KODIERT, DASS |
000002C0: 53 49 45 20 4E 49 43 48  54 20 45 52 4B 41 4E 4E  |SIE NICHT ERKANN|
000002D0: 54 20 57 45 52 44 45 4E  21 00 27 1F 44 00 22 D7  |T WERDEN!.'.D.".|
000002E0: 41 45 48 52 45 4E 44 20  44 45 52 20 C5 49 4E 47  |AEHREND DER .ING|
000002F0: 41 42 45 20 4B 41 4E 4E  20 4D 49 54 20 C8 49 4C  |ABE KANN MIT .IL|
00000300: 46 45 20 44 45 52 20 C3  55 52 53 4F 52 2D D4 41  |FE DER .URSOR-.A|
00000310: 53 54 45 4E 20 4A 45 44  45 20 DA 45 49 4C 45 20  |STEN JEDE .EILE |
00000320: 41 55 46 20 44 45 4D 00  76 1F 45 00 22 C2 49 4C  |AUF DEM.v.E.".IL|
00000330: 44 53 43 48 49 52 4D 20  41 4E 47 45 46 41 48 52  |DSCHIRM ANGEFAHR|
00000340: 45 4E 20 55 4E 44 20 C1  45 4E 44 45 52 55 4E 47  |EN UND .ENDERUNG|
00000350: 45 4E 20 56 4F 52 47 45  4E 4F 4D 4D 45 4E 20 57  |EN VORGENOMMEN W|
00000360: 45 52 44 45 4E 2E 20 C4  49 45 20 C1 45 4E 44 45  |ERDEN. .IE .ENDE|
00000370: 52 55 4E 47 45 4E 00 BE  1F 46 00 22 57 45 52 44  |RUNGEN...F."WERD|
00000380: 45 4E 20 4E 55 52 20 41  4E 47 45 4E 4F 4D 4D 45  |EN NUR ANGENOMME|
00000390: 4E 2C 20 57 45 4E 4E 20  44 49 45 20 DA 45 49 4C  |N, WENN DIE .EIL|
000003A0: 45 20 4D 49 54 20 3C D2  C5 D4 D5 D2 CE 3E 20 56  |E MIT <......> V|
000003B0: 45 52 4C 41 53 53 45 4E  20 57 49 52 44 2E 00 0C  |ERLASSEN WIRD...|
000003C0: 20 47 00 22 C9 4D 20 D7  4F 52 54 53 43 48 41 54  | G.".M .ORTSCHAT|
000003D0: 5A 20 4E 49 43 48 54 20  45 4E 54 48 41 4C 54 45  |Z NICHT ENTHALTE|
000003E0: 4E 45 20 DA 45 49 43 48  45 4E 2C 20 5A 2E C2 2E  |NE .EICHEN, Z...|
000003F0: 20 C7 52 4F 53 53 42 55  43 48 53 54 41 42 45 4E  | .ROSSBUCHSTABEN|
00000400: 2C 20 57 45 52 44 45 4E  20 52 45 2D 00 52 20 48  |, WERDEN RE-.R H|
00000410: 00 22 56 45 52 53 20 41  4E 47 45 5A 45 49 47 54  |."VERS ANGEZEIGT|
00000420: 20 55 4E 44 20 44 49 45  20 DA 45 49 4C 45 20 42  | UND DIE .EILE B|
00000430: 49 53 20 5A 55 52 20 CB  4F 52 52 45 4B 54 55 52  |IS ZUR .ORREKTUR|
00000440: 20 4E 49 43 48 54 20 41  4E 47 45 4E 4F 4D 4D 45  | NICHT ANGENOMME|
00000450: 4E 2E 00 9A 20 49 00 22  C2 45 52 45 49 54 53 20  |N... I.".EREITS |
00000460: 43 48 49 46 46 52 2E D4  45 58 54 20 56 4F 4E 20  |CHIFFR..EXT VON |
00000470: C6 4C 4F 50 50 59 20 4C  45 53 45 4E 20 4F 44 45  |.LOPPY LESEN ODE|
00000480: 52 20 41 4C 53 20 DA 41  48 4C 45 4E 43 4F 44 45  |R ALS .AHLENCODE|
00000490: 20 45 49 4E 47 45 42 45  4E 21 00 E9 20 4A 00 22  | EINGEBEN!.. J."|
000004A0: C4 45 52 20 C5 49 4E 47  41 42 45 2D CD 4F 44 55  |.ER .INGABE-.ODU|
000004B0: 53 20 4B 41 4E 4E 20 4D  49 54 20 27 2A 27 20 49  |S KANN MIT '*' I|
000004C0: 4E 20 45 49 4E 45 52 20  46 52 45 49 45 4E 20 DA  |N EINER FREIEN .|
000004D0: 45 49 4C 45 20 4F 44 45  52 20 4D 49 54 20 27 5F  |EILE ODER MIT '_|
000004E0: 27 20 28 CC 49 4E 4B 53  2D 00 16 21 4B 00 22 50  |' (.INKS-..!K."P|
000004F0: 46 45 49 4C 29 20 41 55  53 20 4A 45 44 45 52 20  |FEIL) AUS JEDER |
00000500: CC 41 47 45 20 56 45 52  4C 41 53 53 45 4E 20 57  |.AGE VERLASSEN W|
00000510: 45 52 44 45 4E 2E 00 63  21 4C 00 22 CD 49 54 20  |ERDEN..c!L.".IT |
00000520: 27 2A 27 20 4B 41 4E 4E  20 41 55 43 48 20 4A 45  |'*' KANN AUCH JE|
00000530: 44 45 20 49 4E 50 55 54  2D D3 43 48 4C 45 49 46  |DE INPUT-.CHLEIF|
00000540: 45 2C 20 49 4E 20 44 49  45 20 4D 41 4E 20 56 45  |E, IN DIE MAN VE|
00000550: 52 53 45 48 45 4E 54 4C  49 43 48 20 47 45 52 41  |RSEHENTLICH GERA|
00000560: 54 45 4E 00 7F 21 4D 00  22 49 53 54 2C 20 56 45  |TEN..!M."IST, VE|
00000570: 52 4C 41 53 53 45 4E 20  57 45 52 44 45 4E 2E 00  |RLASSEN WERDEN..|
00000580: C6 21 4E 00 22 CE 41 43  48 20 44 45 4D 20 45 52  |.!N.".ACH DEM ER|
00000590: 53 54 45 4E 20 D3 54 41  52 54 20 4B 41 4E 4E 20  |STEN .TART KANN |
000005A0: 4D 49 54 20 44 45 52 20  D4 41 53 54 45 20 C6 31  |MIT DER .ASTE .1|
000005B0: 20 57 41 52 4D 47 45 53  54 41 52 54 45 54 20 57  | WARMGESTARTET W|
000005C0: 45 52 44 45 4E 2E 00 CC  21 96 00 3A 00 E5 21 C8  |ERDEN...!..:..!.|
000005D0: 00 8F 20 2A 2A 20 54 45  58 54 2D 45 49 4E 47 41  |.. ** TEXT-EINGA|
000005E0: 42 45 20 2A 2A 00 0B 22  CD 00 99 22 93 22 A3 32  |BE **.."...".".2|
000005F0: 30 29 22 D4 45 58 54 45  49 4E 47 41 42 45 2F C5  |0)".EXTEINGABE/.|
00000600: 44 49 54 4F 52 21 22 3A  FE 0B 31 00 20 22 D2 00  |DITOR!":..1. "..|
00000610: 99 C7 28 32 37 29 AA 22  4D 22 3A 99 22 93 22 3B  |..(27)."M":.".";|
00000620: 00 2E 22 DC 00 8B 41 5A  B2 30 A7 32 34 30 00 49  |.."...AZ.0.240.I|
00000630: 22 E6 00 81 49 B2 31 A4  41 5A 3A 99 54 24 28 49  |"...I.1.AZ:.T$(I|
00000640: 29 3A 82 3A 99 22 91 91  22 00 5F 22 F0 00 97 32  |):.:.".."._"...2|
00000650: 31 2C 33 3A 85 54 24 3A  97 32 31 2C 30 3A 99 00  |1,3:.T$:.21,0:..|
00000660: 73 22 F5 00 8B D4 28 54  24 2C 22 5F 22 29 A7 31  |s"....(T$,"_").1|
00000670: 30 30 30 00 AE 22 FA 00  50 B2 C2 28 32 33 35 29  |000.."..P..(235)|
00000680: 3A 8B 50 B2 30 B0 50 B1  32 34 A7 50 B2 32 35 3A  |:.P.0.P.24.P.25:|
00000690: 41 5A B2 50 3A 54 24 28  50 29 B2 22 2A 22 3A 54  |AZ.P:T$(P)."*":T|
000006A0: 45 24 28 50 29 B2 22 22  3A 89 31 30 30 30 00 C2  |E$(P)."":.1000..|
000006B0: 22 FF 00 8B C3 28 54 24  29 B1 38 30 A7 50 B2 50  |"....(T$).80.P.P|
000006C0: AB 31 00 FE 22 04 01 8B  54 24 B2 22 2A 22 A7 54  |.1.."...T$."*".T|
000006D0: 24 28 50 29 B2 54 24 3A  54 45 24 28 50 29 B2 22  |$(P).T$:TE$(P)."|
000006E0: 22 3A 41 5A B2 50 3A 89  34 39 30 3A 8F 20 45 4E  |":AZ.P:.490:. EN|
000006F0: 44 45 20 44 45 52 20 45  49 4E 47 41 42 45 00 19  |DE DER EINGABE..|
00000700: 23 09 01 8B 58 24 B2 22  56 22 A7 54 45 24 28 50  |#...X$."V".TE$(P|
00000710: 29 B2 54 24 3A 89 32 34  30 00 32 23 0E 01 8B 54  |).T$:.240.2#...T|
00000720: 24 B2 54 24 28 50 29 A7  32 34 30 3A D5 54 24 B2  |$.T$(P).240:.T$.|
00000730: 22 22 00 60 23 18 01 81  4A B2 35 31 32 A4 35 39  |"".`#...J.512.59|
00000740: 31 3A 8B C2 28 4A 29 A7  54 24 B2 54 24 AA C7 28  |1:..(J).T$.T$..(|
00000750: C2 28 4A 29 29 3A 82 3A  D5 4A B2 35 39 31 3A 82  |.(J)):.:.J.591:.|
00000760: 00 7B 23 22 01 8B 54 24  B2 22 22 B0 54 24 B2 22  |.{#"..T$."".T$."|
00000770: 20 22 A7 54 24 B2 C7 28  33 32 29 00 8D 23 2C 01  | ".T$..(32)..#,.|
00000780: 8B 54 24 B2 54 24 28 50  29 A7 32 34 30 00 A3 23  |.T$.T$(P).240..#|
00000790: 36 01 4C B2 C3 28 54 24  29 3A 54 45 24 28 50 29  |6.L..(T$):TE$(P)|
000007A0: B2 22 22 00 A9 23 3B 01  3A 00 C9 23 40 01 8F 20  |.""..#;.:..#@.. |
000007B0: 2A 2A 20 54 45 58 54 20  56 45 52 53 43 48 4C 55  |** TEXT VERSCHLU|
000007C0: 45 53 53 45 4C 4E 20 2A  2A 00 E4 23 4A 01 8B 54  |ESSELN **..#J..T|
000007D0: 24 B2 22 20 22 A7 54 45  24 28 50 29 B2 22 22 3A  |$." ".TE$(P)."":|
000007E0: 89 34 36 30 00 F3 23 54  01 81 49 B2 31 A4 4C 3A  |.460..#T..I.1.L:|
000007F0: 5A B2 30 00 10 24 5E 01  4A B2 B5 28 BB 28 30 29  |Z.0..$^.J..(.(0)|
00000800: AC 28 44 AA 31 29 29 3A  8B 49 B1 4C A7 34 36 30  |.(D.1)):.I.L.460|
00000810: 00 31 24 68 01 81 4A B2  4A A4 44 3A 4B B2 B5 28  |.1$h..J.J.D:K..(|
00000820: BB 28 30 29 29 AC C3 28  43 48 24 28 4A 29 29 AA  |.(0))..(CH$(J)).|
00000830: 31 00 5D 24 72 01 4D B2  D4 28 43 48 24 28 4A 29  |1.]$r.M..(CH$(J)|
00000840: 2C CA 28 54 24 2C 49 2C  31 29 2C 4B 29 3A 8B 4D  |,.(T$,I,1),K):.M|
00000850: B2 30 A7 5A B2 5A AA 31  3A 89 34 31 30 00 6E 24  |.0.Z.Z.1:.410.n$|
00000860: 7C 01 4A 24 B2 CA 28 C4  28 4A 29 2C 32 29 00 9C  ||.J$..(.(J),2)..|
00000870: 24 86 01 8B C3 28 C4 28  4D 29 29 B2 32 A7 4D 24  |$....(.(M)).2.M$|
00000880: B2 22 30 22 AA CA 28 C4  28 4D 29 2C 32 29 3A D5  |."0"..(.(M),2):.|
00000890: 4D 24 B2 CA 28 C4 28 4D  29 2C 32 29 00 BF 24 90  |M$..(.(M),2)..$.|
000008A0: 01 54 45 24 28 50 29 B2  54 45 24 28 50 29 AA 4A  |.TE$(P).TE$(P).J|
000008B0: 24 AA 4D 24 3A 49 B2 49  AA 31 3A 89 33 35 30 00  |$.M$:I.I.1:.350.|
000008C0: CE 24 9A 01 8B 5A B3 44  AC 44 A7 34 34 30 00 03  |.$...Z.D.D.440..|
000008D0: 25 A4 01 81 48 B2 30 A4  44 3A 8B D4 28 43 48 24  |%...H.0.D:..(CH$|
000008E0: 28 48 29 2C CA 28 54 24  2C 49 2C 31 29 29 B3 B1  |(H),.(T$,I,1))..|
000008F0: 30 A7 5A B2 30 3A 48 B2  44 3A 82 3A 89 34 34 30  |0.Z.0:H.D:.:.440|
00000900: 3A D5 82 00 32 25 AE 01  99 22 91 22 A3 49 AB 31  |:...2%...".".I.1|
00000910: 29 22 12 22 CA 28 54 24  2C 49 2C 31 29 22 92 22  |)".".(T$,I,1)"."|
00000920: 3B 3A 99 C7 28 32 37 29  AA 22 4A 22 3B 3A 89 32  |;:..(27)."J";:.2|
00000930: 34 30 00 47 25 B8 01 82  4A 3A 8B 4D B2 30 AF 49  |40.G%...J:.M.0.I|
00000940: B3 B2 4C A7 33 35 30 00  4E 25 C2 01 82 49 00 5B  |..L.350.N%...I.[|
00000950: 25 CC 01 54 24 28 50 29  B2 54 24 00 7E 25 D6 01  |%..T$(P).T$.~%..|
00000960: 8B 50 B1 B2 41 5A A7 41  5A B2 50 3A 8F 20 4C 45  |.P..AZ.AZ.P:. LE|
00000970: 54 5A 54 45 20 54 45 58  54 5A 45 49 4C 45 00 87  |TZTE TEXTZEILE..|
00000980: 25 E0 01 89 32 34 30 00  97 25 EA 01 99 22 13 13  |%...240..%..."..|
00000990: 22 3A 89 31 30 30 30 00  9D 25 EF 01 3A 00 BA 25  |":.1000..%..:..%|
000009A0: 58 02 8F 20 2A 2A 20 41  4C 50 48 41 42 45 54 20  |X.. ** ALPHABET |
000009B0: 50 52 55 45 46 45 4E 20  2A 2A 00 DC 25 62 02 99  |PRUEFEN **..%b..|
000009C0: 22 93 22 3B 3A 4B B2 30  3A 81 49 B2 36 35 A4 39  |".";:K.0:.I.65.9|
000009D0: 30 3A 4D B2 30 3A 81 4A  B2 30 A4 44 00 0E 26 6C  |0:M.0:.J.0.D..&l|
000009E0: 02 4D B2 D4 28 43 48 24  28 4A 29 2C C7 28 49 29  |.M..(CH$(J),.(I)|
000009F0: 2C 4D AA 31 29 3A 8B 4D  A7 99 C7 28 49 29 22 2C  |,M.1):.M...(I)",|
00000A00: 20 22 3B 3A 4B B2 4B AA  31 3A 89 36 32 30 00 22  | ";:K.K.1:.620."|
00000A10: 26 76 02 82 4A 3A 99 4B  22 2D 4D 41 4C 22 3A 4B  |&v..J:.K"-MAL":K|
00000A20: B2 30 00 29 26 80 02 82  49 00 39 26 8A 02 8D 32  |.0.)&...I.9&...2|
00000A30: 30 30 30 3A 89 31 30 30  30 00 3F 26 94 02 3A 00  |000:.1000.?&..:.|
00000A40: 5D 26 BC 02 8F 20 2A 2A  20 43 48 49 46 46 52 49  |]&... ** CHIFFRI|
00000A50: 45 52 54 45 52 20 54 45  58 54 20 2A 2A 00 67 26  |ERTER TEXT **.g&|
00000A60: C1 02 99 22 93 22 3B 00  7D 26 C6 02 81 49 B2 30  |...".";.}&...I.0|
00000A70: A4 41 5A 3A 99 54 45 24  28 49 29 3A 82 00 8D 26  |.AZ:.TE$(I):...&|
00000A80: D0 02 8D 32 30 30 30 3A  89 31 30 30 30 00 93 26  |...2000:.1000..&|
00000A90: DA 02 3A 00 AD 26 20 03  8F 20 2A 2A 20 44 45 43  |..:..& .. ** DEC|
00000AA0: 48 49 46 46 52 49 45 52  45 4E 20 2A 2A 00 E0 26  |HIFFRIEREN **..&|
00000AB0: 22 03 99 22 93 C2 49 54  54 45 20 45 54 57 41 53  |".."..ITTE ETWAS|
00000AC0: 20 47 45 44 55 4C 44 3A  20 C5 53 20 57 49 52 44  | GEDULD: .S WIRD|
00000AD0: 20 44 45 43 48 49 46 46  52 49 45 52 54 21 11 22  | DECHIFFRIERT!."|
00000AE0: 00 F3 26 25 03 81 49 B2  31 A4 41 5A 3A 54 58 24  |..&%..I.1.AZ:TX$|
00000AF0: B2 22 22 00 08 27 2A 03  4C 31 B2 C3 28 54 45 24  |.""..'*.L1..(TE$|
00000B00: 28 49 29 29 3A 4D B2 30  00 16 27 34 03 81 4B B2  |(I)):M.0..'4..K.|
00000B10: 31 A4 4C 31 A9 33 00 2D  27 3E 03 4A B2 C5 28 CA  |1.L1.3.-'>.J..(.|
00000B20: 28 54 45 24 28 49 29 2C  4B 2C 31 29 29 00 4F 27  |(TE$(I),K,1)).O'|
00000B30: 48 03 56 B2 C5 28 CA 28  54 45 24 28 49 29 2C 4B  |H.V..(.(TE$(I),K|
00000B40: AA 31 2C 32 29 29 3A 8B  56 B2 30 A7 38 36 30 00  |.1,2)):.V.0.860.|
00000B50: 69 27 52 03 54 58 24 B2  54 58 24 AA CA 28 43 48  |i'R.TX$.TX$..(CH|
00000B60: 24 28 4A 29 2C 56 2C 31  29 00 7A 27 5C 03 82 3A  |$(J),V,1).z'\..:|
00000B70: 8B 49 B2 31 A7 99 22 93  22 3B 00 9D 27 66 03 99  |.I.1..".";..'f..|
00000B80: 54 58 24 3A 54 24 28 49  29 B2 54 58 24 3A 8B 49  |TX$:T$(I).TX$:.I|
00000B90: B2 41 5A A7 54 24 28 49  29 B2 22 2A 22 00 A4 27  |.AZ.T$(I)."*"..'|
00000BA0: 70 03 82 49 00 AF 27 7A  03 97 32 30 38 2C 30 00  |p..I..'z..208,0.|
00000BB0: BF 27 84 03 8D 32 30 30  30 3A 89 31 30 30 30 00  |.'...2000:.1000.|
00000BC0: C5 27 8E 03 3A 00 D7 27  E8 03 8F 20 2A 2A 20 4D  |.'..:..'... ** M|
00000BD0: 45 4E 55 45 20 2A 2A 00  F6 27 ED 03 8B 43 48 24  |ENUE **..'...CH$|
00000BE0: 28 30 29 B2 22 22 A7 32  36 30 30 3A 8F 20 49 4E  |(0)."".2600:. IN|
00000BF0: 49 54 49 41 4C 2E 00 1A  28 F2 03 99 C7 28 31 34  |ITIAL...(....(14|
00000C00: 29 22 93 CD 45 4E 55 45  11 22 3A 81 49 B2 30 A4  |)"..ENUE.":.I.0.|
00000C10: 34 38 3A 99 22 2D 22 3B  3A 82 00 29 28 FC 03 99  |48:."-";:..)(...|
00000C20: C7 28 32 37 29 AA 22 4C  22 00 50 28 06 04 99 22  |.(27)."L".P(..."|
00000C30: 12 52 45 54 55 52 4E 92  20 D4 45 58 54 20 45 49  |.RETURN. .EXT EI|
00000C40: 4E 47 45 42 45 4E 2F 45  44 49 45 52 45 4E 11 22  |NGEBEN/EDIEREN."|
00000C50: 00 87 28 10 04 99 22 12  41 92 20 20 20 20 20 20  |..(...".A.      |
00000C60: C1 4C 50 48 41 42 45 54  20 41 55 46 20 D6 4F 4C  |.LPHABET AUF .OL|
00000C70: 4C 53 54 41 45 4E 44 49  47 4B 45 49 54 20 50 52  |LSTAENDIGKEIT PR|
00000C80: 55 45 46 45 4E 11 22 00  B3 28 1A 04 99 22 12 43  |UEFEN."..(...".C|
00000C90: 92 20 20 20 20 20 20 43  48 49 46 46 52 49 45 52  |.      CHIFFRIER|
00000CA0: 54 45 4E 20 D4 45 58 54  20 41 4E 5A 45 49 47 45  |TEN .EXT ANZEIGE|
00000CB0: 4E 11 22 00 D7 28 24 04  99 22 12 44 92 20 20 20  |N."..($..".D.   |
00000CC0: 20 20 20 D4 45 58 54 20  44 45 43 48 49 46 46 52  |   .EXT DECHIFFR|
00000CD0: 49 45 52 45 4E 11 22 00  14 29 26 04 99 22 12 46  |IEREN."..)&..".F|
00000CE0: 92 2F 12 47 92 20 20 20  20 53 50 45 49 43 48 45  |./.G.    SPEICHE|
00000CF0: 52 4E 20 41 55 46 20 C6  4C 4F 50 50 59 20 28 47  |RN AUF .LOPPY (G|
00000D00: A0 3D 20 4E 55 52 20 C7  45 48 45 49 4D 54 45 58  |.= NUR .EHEIMTEX|
00000D10: 54 29 11 22 00 2A 29 27  04 99 22 12 49 92 20 20  |T).".*)'..".I.  |
00000D20: 20 20 20 20 49 4E 46 4F  11 22 00 4C 29 28 04 99  |    INFO.".L)(..|
00000D30: 22 12 4B 92 20 20 20 20  20 20 CB 4C 41 52 54 45  |".K.      .LARTE|
00000D40: 58 54 20 44 52 55 43 4B  45 4E 11 22 00 77 29 2A  |XT DRUCKEN.".w)*|
00000D50: 04 99 22 12 50 92 20 20  20 20 20 20 43 48 49 46  |..".P.      CHIF|
00000D60: 46 52 49 45 52 54 45 4E  20 D4 45 58 54 20 44 52  |FRIERTEN .EXT DR|
00000D70: 55 43 4B 45 4E 11 22 00  99 29 2C 04 99 22 12 52  |UCKEN."..),..".R|
00000D80: 92 20 20 20 20 20 20 4C  45 53 45 4E 20 56 4F 4E  |.      LESEN VON|
00000D90: 20 C6 4C 4F 50 50 59 11  22 00 D5 29 2E 04 99 22  | .LOPPY."..)..."|
00000DA0: 12 56 92 20 20 20 20 20  20 C5 49 4E 47 41 42 45  |.V.      .INGABE|
00000DB0: 20 42 45 52 45 49 54 53  20 56 45 52 53 43 48 4C  | BEREITS VERSCHL|
00000DC0: 2E 20 D4 45 58 54 45 53  20 28 DA 49 46 46 45 52  |. .EXTES (.IFFER|
00000DD0: 4E 21 29 11 22 00 EA 29  30 04 99 22 12 53 92 20  |N!)."..)0..".S. |
00000DE0: 20 20 20 20 20 53 54 4F  50 22 00 FE 29 33 04 81  |     STOP"..)3..|
00000DF0: 49 B2 30 A4 34 38 3A 99  22 2D 22 3B 3A 82 00 07  |I.0.48:."-";:...|
00000E00: 2A 38 04 A1 F9 58 24 00  27 2A 42 04 4D B2 D4 28  |*8...X$.'*B.M..(|
00000E10: C7 28 31 33 29 AA 22 41  43 44 46 47 49 4B 50 52  |.(13)."ACDFGIKPR|
00000E20: 56 53 22 2C 58 24 29 00  6B 2A 4C 04 8B 4D B2 30  |VS",X$).k*L..M.0|
00000E30: A7 31 30 38 30 3A D5 91  4D 89 32 30 30 2C 36 30  |.1080:..M.200,60|
00000E40: 30 2C 37 30 30 2C 38 30  30 2C 33 30 30 30 2C 33  |0,700,800,3000,3|
00000E50: 30 30 30 2C 33 32 30 30  2C 33 35 30 30 2C 33 36  |000,3200,3500,36|
00000E60: 30 30 2C 34 30 30 30 2C  32 30 30 00 9B 2A 56 04  |00,4000,200..*V.|
00000E70: 99 3A 99 22 CD 49 54 20  D4 41 53 54 45 20 C6 31  |.:.".IT .ASTE .1|
00000E80: 20 53 54 45 49 47 45 4E  20 D3 49 45 20 57 49 45  | STEIGEN .IE WIE|
00000E90: 44 45 52 20 45 49 4E 21  22 3A 80 00 A1 2A 60 04  |DER EIN!":...*`.|
00000EA0: 3A 00 BB 2A D0 07 8F 20  2A 2A 20 57 41 52 54 45  |:..*... ** WARTE|
00000EB0: 53 43 48 4C 45 49 46 45  20 2A 2A 00 EA 2A DA 07  |SCHLEIFE **..*..|
00000EC0: 99 22 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |."--------------|
00000ED0: 2D 22 3A 99 22 D4 41 53  54 45 20 44 52 55 45 43  |-":.".ASTE DRUEC|
00000EE0: 4B 45 4E 21 22 3A E7 35  2C 36 00 FE 2A E4 07 A1  |KEN!":.5,6..*...|
00000EF0: 58 24 3A 8B 58 24 B2 22  22 A7 32 30 32 30 00 04  |X$:.X$."".2020..|
00000F00: 2B EE 07 8E 00 0A 2B F8  07 3A 00 26 2B C4 09 8F  |+.....+..:.&+...|
00000F10: 20 2A 2A 20 44 49 4D 45  4E 53 49 4F 4E 49 45 52  | ** DIMENSIONIER|
00000F20: 55 4E 47 20 2A 2A 00 4E  2B CE 09 81 49 B2 30 A4  |UNG **.N+...I.0.|
00000F30: 39 3A 87 43 48 24 3A 8B  43 48 24 B2 22 23 22 A7  |9:.CH$:.CH$."#".|
00000F40: 44 B2 49 AB 31 3A 49 B2  39 3A 82 3A D5 82 00 71  |D.I.1:I.9:.:...q|
00000F50: 2B D8 09 86 54 24 28 32  35 29 2C 54 45 24 28 32  |+...T$(25),TE$(2|
00000F60: 35 29 2C 54 58 24 28 32  35 29 2C 43 48 24 28 44  |5),TX$(25),CH$(D|
00000F70: 29 00 77 2B E2 09 3A 00  99 2B 28 0A 8F 20 2A 2A  |).w+..:..+(.. **|
00000F80: 20 47 45 48 45 49 4D 2D  43 4F 44 45 20 56 41 52  | GEHEIM-CODE VAR|
00000F90: 49 41 42 4C 45 4E 20 2A  2A 00 B0 2B 3C 0A 8C 3A  |IABLEN **..+<..:|
00000FA0: 81 49 B2 30 A4 44 3A 87  43 48 24 28 49 29 3A 82  |.I.0.D:.CH$(I):.|
00000FB0: 00 E3 2B 46 0A 83 22 50  45 43 4B 2C 20 47 52 45  |..+F.."PECK, GRE|
00000FC0: 47 4F 52 59 2E 20 45 49  4E 53 20 5A 57 45 49 20  |GORY. EINS ZWEI |
00000FD0: 44 52 45 49 20 56 49 45  52 20 46 55 45 4E 46 20  |DREI VIER FUENF |
00000FE0: 53 45 58 00 17 2C 47 0A  83 22 57 41 59 4E 45 2C  |SEX..,G.."WAYNE,|
00000FF0: 20 4A 4F 48 4E 2E 20 53  49 45 42 45 4E 20 41 43  | JOHN. SIEBEN AC|
00001000: 48 54 20 4E 45 55 4E 20  5A 45 48 4E A0 45 4C 46  |HT NEUN ZEHN.ELF|
00001010: 20 5A 57 4F 45 4C 46 00  54 2C 48 0A 83 22 51 55  | ZWOELF.T,H.."QU|
00001020: 49 4E 4E 2C 20 41 4E 54  48 4F 4E 59 2E 20 4A 55  |INN, ANTHONY. JU|
00001030: 4E 49 2C 20 4A 55 4C 49  2C 20 41 55 47 55 53 54  |NI, JULI, AUGUST|
00001040: 2C 20 53 45 50 54 45 4D  42 45 52 2C 20 4F 4B 54  |, SEPTEMBER, OKT|
00001050: 4F 42 45 52 00 94 2C 49  0A 83 22 44 41 53 20 48  |OBER..,I.."DAS H|
00001060: 45 58 41 44 45 5A 49 4D  41 4C 45 20 5A 41 48 4C  |EXADEZIMALE ZAHL|
00001070: 45 4E 53 59 53 54 45 4D  20 46 55 45 52 20 41 4C  |ENSYSTEM FUER AL|
00001080: 4C 45 20 43 4F 4D 50 55  54 45 52 20 47 45 45 49  |LE COMPUTER GEEI|
00001090: 47 4E 45 54 00 D4 2C 4A  0A 83 22 5A 49 46 46 45  |GNET..,J.."ZIFFE|
000010A0: 52 4E 3A 20 30 31 32 33  34 35 36 37 38 39 2E 20  |RN: 0123456789. |
000010B0: 5A 45 49 43 48 45 4E 20  21 3A 3B 2C 2E 3F 2E 20  |ZEICHEN !:;,.?. |
000010C0: 53 59 4D 42 4F 4C 45 3A  20 24 25 27 28 29 2B 2D  |SYMBOLE: $%'()+-|
000010D0: 2A 3D 2F 22 00 02 2D 4B  0A 83 22 47 52 45 47 4F  |*=/"..-K.."GREGO|
000010E0: 52 59 20 50 45 43 4B 2C  20 4A 4F 48 4E 20 57 41  |RY PECK, JOHN WA|
000010F0: 59 4E 45 2C 20 41 4E 54  48 4F 4E 59 20 51 55 49  |YNE, ANTHONY QUI|
00001100: 4E 4E 00 0A 2D 4D 0A 83  22 23 00 14 2D 8C 0A 89  |NN..-M.."#..-...|
00001110: 31 30 30 30 00 1A 2D 96  0A 3A 00 3D 2D B8 0B 8F  |1000..-..:.=-...|
00001120: 20 2A 2A 20 53 50 45 49  43 48 45 52 4E 20 41 55  | ** SPEICHERN AU|
00001130: 46 20 44 49 53 4B 45 54  54 45 20 2A 2A 00 46 2D  |F DISKETTE **.F-|
00001140: C2 0B 99 22 93 22 00 5D  2D CC 0B 85 22 C4 41 54  |...".".]-...".AT|
00001150: 45 49 4E 41 4D 45 3A 20  22 3B 44 41 24 00 6F 2D  |EINAME: ";DA$.o-|
00001160: D6 0B 8B 44 41 24 B2 22  2A 22 A7 31 30 30 30 00  |...DA$."*".1000.|
00001170: 95 2D E0 0B 44 41 24 B2  22 44 30 3A 22 AA 44 41  |.-..DA$."D0:".DA|
00001180: 24 AA 22 2C 53 45 51 2C  57 22 3A 9F 31 2C 38 2C  |$.",SEQ,W":.1,8,|
00001190: 33 2C 44 41 24 00 A6 2D  EA 0B 8B 58 24 B2 22 47  |3,DA$..-...X$."G|
000011A0: 22 A7 33 30 37 30 00 CD  2D F4 0B 81 49 B2 31 A4  |".3070..-...I.1.|
000011B0: 41 5A 3A 98 31 2C C7 28  33 34 29 54 24 28 49 29  |AZ:.1,.(34)T$(I)|
000011C0: C7 28 33 34 29 3A 82 3A  89 33 30 38 30 00 F8 2D  |.(34):.:.3080..-|
000011D0: FE 0B 81 49 B2 31 A4 41  5A AB 31 3A 98 31 2C C7  |...I.1.AZ.1:.1,.|
000011E0: 28 33 34 29 C7 28 31 36  30 29 C7 28 33 34 29 3A  |(34).(160).(34):|
000011F0: 82 3A 98 31 2C 22 2A 22  00 1F 2E 08 0C 81 49 B2  |.:.1,"*"......I.|
00001200: 31 A4 41 5A AB 31 3A 8B  54 45 24 28 49 29 B2 22  |1.AZ.1:.TE$(I)."|
00001210: 22 A7 54 45 24 28 49 29  B2 C7 28 31 36 30 29 00  |".TE$(I)..(160).|
00001220: 33 2E 12 0C 98 31 2C C8  28 54 45 24 28 49 29 2C  |3....1,.(TE$(I),|
00001230: 38 30 29 00 65 2E 1C 0C  4D 31 24 B2 CA 28 54 45  |80).e...M1$..(TE|
00001240: 24 28 49 29 2C 38 31 2C  38 30 29 3A 8B 4D 31 24  |$(I),81,80):.M1$|
00001250: B2 22 22 A7 98 31 2C C7  28 31 36 30 29 3A D5 98  |.""..1,.(160):..|
00001260: 31 2C 4D 31 24 00 95 2E  26 0C 4D 32 24 B2 CA 28  |1,M1$...&.M2$..(|
00001270: 54 45 24 28 49 29 2C 31  36 31 29 3A 8B 4D 32 24  |TE$(I),161):.M2$|
00001280: B2 22 22 A7 98 31 2C C7  28 31 36 30 29 3A D5 98  |.""..1,.(160):..|
00001290: 31 2C 4D 32 24 00 9B 2E  30 0C 82 00 A6 2E 3A 0C  |1,M2$...0.....:.|
000012A0: 98 31 2C 22 2A 22 00 B3  2E 44 0C A0 31 3A 89 31  |.1,"*"...D..1:.1|
000012B0: 30 30 30 00 B9 2E 4E 0C  3A 00 D2 2E 80 0C 8F 20  |000...N.:...... |
000012C0: 2A 2A 20 4B 55 52 5A 2D  49 4E 46 4F 52 4D 2E 20  |** KURZ-INFORM. |
000012D0: 2A 2A 00 E9 2E 8A 0C 99  22 93 22 3B 3A 9B 33 30  |**......".";:.30|
000012E0: AB 38 30 3A 99 22 13 22  3B 00 1C 2F 94 0C 81 49  |.80:.".";../...I|
000012F0: B2 31 A4 32 33 3A 99 22  20 20 20 20 22 3A 82 3A  |.1.23:."    ":.:|
00001300: 99 C7 28 31 35 29 22 20  20 20 20 D4 41 53 54 45  |..(15)"    .ASTE|
00001310: 22 3A A1 F9 58 24 3A 89  31 30 30 30 00 39 2F AC  |":..X$:.1000.9/.|
00001320: 0D 8F 20 2A 2A 20 4B 4C  41 52 54 45 58 54 20 44  |.. ** KLARTEXT D|
00001330: 52 55 43 4B 45 4E 20 2A  2A 00 86 2F C0 0D 4C 52  |RUCKEN **../..LR|
00001340: B2 37 3A 8F 20 20 4F 50  45 4E 32 2C 34 3A 50 52  |.7:.  OPEN2,4:PR|
00001350: 49 4E 54 23 32 2C 43 48  52 24 28 32 37 29 43 48  |INT#2,CHR$(27)CH|
00001360: 52 24 28 31 30 38 29 43  48 52 24 28 4C 52 29 3A  |R$(108)CHR$(LR):|
00001370: 43 4C 4F 53 45 32 3A 52  45 4D 20 4C 49 4E 4B 45  |CLOSE2:REM LINKE|
00001380: 52 20 52 41 4E 44 00 95  2F CA 0D A0 31 3A 9F 31  |R RAND../...1:.1|
00001390: 2C 34 2C 31 31 00 A8 2F  D4 0D 81 49 B2 31 A4 41  |,4,11../...I.1.A|
000013A0: 5A 3A 99 54 24 28 49 29  00 C8 2F DE 0D 8B 54 24  |Z:.T$(I)../...T$|
000013B0: 28 49 29 B2 22 2A 22 A7  98 31 2C 22 22 3A 49 B2  |(I)."*"..1,"":I.|
000013C0: 41 5A 3A 89 33 35 37 30  00 D5 2F E8 0D 98 31 2C  |AZ:.3570../...1,|
000013D0: 54 24 28 49 29 00 DB 2F  F2 0D 82 00 E2 2F FC 0D  |T$(I)../...../..|
000013E0: A0 31 00 EC 2F 06 0E 89  31 30 30 30 00 F2 2F 10  |.1../...1000../.|
000013F0: 0E 3A 00 01 30 2E 0E A0  31 3A 9F 31 2C 34 2C 31  |.:..0...1:.1,4,1|
00001400: 31 00 15 30 38 0E 81 49  B2 31 A4 41 5A 3A 99 54  |1..08..I.1.AZ:.T|
00001410: 45 24 28 49 29 00 35 30  42 0E 8B 54 24 28 49 29  |E$(I).50B..T$(I)|
00001420: B2 22 2A 22 A7 98 31 2C  22 22 3A 49 B2 41 5A 3A  |."*"..1,"":I.AZ:|
00001430: 89 33 36 37 30 00 43 30  4C 0E 98 31 2C 54 45 24  |.3670.C0L..1,TE$|
00001440: 28 49 29 00 49 30 56 0E  82 00 50 30 60 0E A0 31  |(I).I0V...P0`..1|
00001450: 00 5A 30 6A 0E 89 31 30  30 30 00 60 30 74 0E 3A  |.Z0j..1000.`0t.:|
00001460: 00 7F 30 A0 0F 8F 20 2A  2A 20 4C 45 53 45 4E 20  |..0... ** LESEN |
00001470: 56 4F 4E 20 44 49 53 4B  45 54 54 45 20 2A 2A 00  |VON DISKETTE **.|
00001480: 88 30 AA 0F 99 22 93 22  00 AD 30 B4 0F 85 22 C4  |.0..."."..0...".|
00001490: 41 54 45 49 4E 41 4D 45  3A 20 22 3B 44 4E 24 3A  |ATEINAME: ";DN$:|
000014A0: 8B 44 4E 24 B2 22 2A 22  A7 31 30 30 30 00 D3 30  |.DN$."*".1000..0|
000014B0: BE 0F 44 4E 24 B2 22 44  30 3A 22 AA 44 4E 24 AA  |..DN$."D0:".DN$.|
000014C0: 22 2C 53 45 51 2C 52 22  3A 9F 33 2C 38 2C 33 2C  |",SEQ,R":.3,8,3,|
000014D0: 44 4E 24 00 FD 30 D2 0F  81 49 B2 31 A4 32 35 3A  |DN$..0...I.1.25:|
000014E0: 84 33 2C 54 24 28 49 29  3A 8B 54 24 28 49 29 B2  |.3,T$(I):.T$(I).|
000014F0: 22 2A 22 A7 41 5A B2 49  3A 49 B2 32 35 00 03 31  |"*".AZ.I:I.25..1|
00001500: DC 0F 82 00 22 31 E6 0F  81 49 B2 31 A4 41 5A AB  |...."1...I.1.AZ.|
00001510: 31 3A 54 45 24 28 49 29  B2 22 22 3A 81 4A B2 31  |1:TE$(I)."":.J.1|
00001520: A4 33 00 3A 31 F0 0F 84  33 2C 58 24 3A 8B 54 58  |.3.:1...3,X$:.TX|
00001530: 24 B2 22 2A 22 A7 34 31  31 30 00 4F 31 FA 0F 54  |$."*".4110.O1..T|
00001540: 45 24 28 49 29 B2 54 45  24 28 49 29 AA 58 24 00  |E$(I).TE$(I).X$.|
00001550: 72 31 04 10 82 4A 3A 8B  54 45 24 28 49 29 B2 C7  |r1...J:.TE$(I)..|
00001560: 28 31 36 30 29 A7 54 45  24 28 49 29 B2 C7 28 33  |(160).TE$(I)..(3|
00001570: 32 29 00 79 31 0E 10 82  49 00 86 31 18 10 A0 33  |2).y1...I..1...3|
00001580: 3A 89 31 30 30 30 00 00  00                       |:.1000...       |

.......%:.1,"GOTO1000:".G(13).'....2500.
Z...:KRYP.GRAMM C128.80 ZEICHEN.MODUS, V
ERS. 10.89.}.(.:KAISAR U. DAPHNE PE.IDES
, FFM...2.:.T.<."EIN EINGEGEBENER TEXT W
IRD MIT HILFE VON BIS ZU 10 UNTER CH$(X)
 GESPEICHER-.#.=."TEN DATAZEILEN CHIFFRI
ERT UND IN DAS ARRAY TE$ ABGELEGT. DABEI
 WERDEN DIE.Q.>."BUCHSTABEN DES EINGEGEB
ENEN TEXTES NACH EINEM ZUFALLSALGORITHMU
S AUS DEN.A.?."BUCHSTABEN DER 10 GESPEIC
HERTEN DATAZEILEN ZUSAMMENGESETZT UND AL
S EINE 3-...@."ZIFFRIGE ZAHL PRO BUCHSTA
BE IN TE$ AUFGENOMMEN. DIE ERSTE ZIFFER 
GIBT DIE._.A."LFD NR. DER INDIZIERTEN VA
RIABLEN CH$(X), DIE LETZTEN ZWEI DIE STE
LLE DES...B."BUCHSTABEN IN DER DATAZEILE
 AN. AUCH LEERSTELLEN WERDEN AUF DIESE W
EISE.Y.C."KODIERT, DASS SIE NICHT ERKANN
T WERDEN!.'.D."WAEHREND DER EINGABE KANN
 MIT HILFE DER CURSOR-TASTEN JEDE ZEILE 
AUF DEM.V.E."BILDSCHIRM ANGEFAHREN UND A
ENDERUNGEN VORGENOMMEN WERDEN. DIE AENDE
RUNGEN...F."WERDEN NUR ANGENOMMEN, WENN 
DIE ZEILE MIT <RETURN> VERLASSEN WIRD...
 G."IM WORTSCHATZ NICHT ENTHALTENE ZEICH
EN, Z.B. GROSSBUCHSTABEN, WERDEN RE-.R H
."VERS ANGEZEIGT UND DIE ZEILE BIS ZUR K
ORREKTUR NICHT ANGENOMMEN... I."BEREITS 
CHIFFR.TEXT VON FLOPPY LESEN ODER ALS ZA
HLENCODE EINGEBEN!.. J."DER EINGABE-MODU
S KANN MIT '*' IN EINER FREIEN ZEILE ODE
R MIT '_' (LINKS-..!K."PFEIL) AUS JEDER 
LAGE VERLASSEN WERDEN..C!L."MIT '*' KANN
 AUCH JEDE INPUT-SCHLEIFE, IN DIE MAN VE
RSEHENTLICH GERATEN.!M."IST, VERLASSEN 
WERDEN..F!N."NACH DEM ERSTEN START KANN 
MIT DER TASTE F1 WARMGESTARTET WERDEN..L
!..:..!H.. ** TEXT-EINGABE **.."M..".".2
0)"TEXTEINGABE/EDITOR!":..1. "R..G(27)."
M":.".";.."...AZ.0.240.I"...I.1.AZ:.T$(I
):.:.".."._"...21,3:.T$:.21,0:..S"...T(T
$,"_").1000.."..P.B(235):.P.0.P.24.P.25:
AZ.P:T$(P)."*":TE$(P)."":.1000.B"...C(T$
).80.P.P.1.."...T$."*".T$(P).T$:TE$(P)."
":AZ.P:.490:. ENDE DER EINGABE..#...X$."
V".TE$(P).T$:.240.2#...T$.T$(P).240:UT$.
"".`#...J.512.591:.B(J).T$.T$.G(B(J)):.:
UJ.591:..{#"..T$."".T$." ".T$.G(32)..#,.
.T$.T$(P).240..#6.L.C(T$):TE$(P).""..#;.
:.I#@.. ** TEXT VERSCHLUESSELN **..#J..T
$." ".TE$(P)."":.460..#T..I.1.L:Z.0..$^.
J..(.(0).(D.1)):.I.L.460.1$H..J.J.D:K..(
.(0)).C(CH$(J)).1.]$R.M.T(CH$(J),J(T$,I,
1),K):.M.0.Z.Z.1:.410.N$|.J$.J(D(J),2)..
$...C(D(M)).2.M$."0".J(D(M),2):UM$.J(D(M
),2)..$..TE$(P).TE$(P).J$.M$:I.I.1:.350.
N$...Z.D.D.440..%...H.0.D:.T(CH$(H),J(T$
,I,1))..0.Z.0:H.D:.:.440:U..2%...".".I.1
)"."J(T$,I,1)".";:.G(27)."J";:.240.G%...
J:.M.0.I..L.350.N%B..I.[%L.T$(P).T$.~%V.
.P..AZ.AZ.P:. LETZTE TEXTZEILE..%...240.
.%..."..":.1000..%..:..%X.. ** ALPHABET 
PRUEFEN **..%B..".";:K.0:.I.65.90:M.0:.J
.0.D..&L.M.T(CH$(J),G(I),M.1):.M..G(I)",
 ";:K.K.1:.620."&V..J:.K"-MAL":K.0.)&...
I.9&...2000:.1000.?&..:.]&... ** CHIFFRI
ERTER TEXT **.G&A..".";.}&F..I.0.AZ:.TE$
(I):...&P..2000:.1000..&Z.:..& .. ** DEC
HIFFRIEREN **..&"..".BITTE ETWAS GEDULD:
 ES WIRD DECHIFFRIERT!."..&%..I.1.AZ:TX$
.""..'*.L1.C(TE$(I)):M.0..'4..K.1.L1.3.-
'>.J.E(J(TE$(I),K,1)).O'H.V.E(J(TE$(I),K
.1,2)):.V.0.860.I'R.TX$.TX$.J(CH$(J),V,1
).Z'\..:.I.1..".";..'F..TX$:T$(I).TX$:.I
.AZ.T$(I)."*"..'P..I..'Z..208,0..'...200
0:.1000.E'..:.W'... ** MENUE **..'...CH$
(0)."".2600:. INITIAL...(...G(14)".MENUE
.":.I.0.48:."-";:..)(...G(27)."L".P(..."
.RETURN. TEXT EINGEBEN/EDIEREN."..(...".
A.      ALPHABET AUF VOLLSTAENDIGKEIT PR
UEFEN."..(...".C.      CHIFFRIERTEN TEXT
 ANZEIGEN.".W($..".D.      TEXT DECHIFFR
IEREN."..)&..".F./.G.    SPEICHERN AUF F
LOPPY (G = NUR GEHEIMTEXT).".*)'..".I.  
    INFO.".L)(..".K.      KLARTEXT DRUCK
EN.".W)*..".P.      CHIFFRIERTEN TEXT DR
UCKEN."..),..".R.      LESEN VON FLOPPY.
".U)...".V.      EINGABE BEREITS VERSCHL
. TEXTES (ZIFFERN!)."..)0..".S.      STO
P"..)3..I.0.48:."-";:...*8...X$.'*B.M.T(
G(13)."ACDFGIKPRVS",X$).K*L..M.0.1080:U.
M.200,600,700,800,3000,3000,3200,3500,36
00,4000,200..*V..:."MIT TASTE F1 STEIGEN
 SIE WIEDER EIN!":...*`.:..*P.. ** WARTE
SCHLEIFE **..*Z.."---------------":."TAS
TE DRUECKEN!":.5,6..*...X$:.X$."".2020..
+.....+..:.&+D.. ** DIMENSIONIERUNG **.N
+N..I.0.9:.CH$:.CH$."#".D.I.1:I.9:.:U..Q
+X..T$(25),TE$(25),TX$(25),CH$(D).W+..:.
.+(.. ** GEHEIM-CODE VARIABLEN **..+<..:
.I.0.D:.CH$(I):...+F.."PECK, GREGORY. EI
NS ZWEI DREI VIER FUENF SEX..,G.."WAYNE,
 JOHN. SIEBEN ACHT NEUN ZEHN ELF ZWOELF.
T,H.."QUINN, ANTHONY. JUNI, JULI, AUGUST
, SEPTEMBER, OKTOBER..,I.."DAS HEXADEZIM
ALE ZAHLENSYSTEM FUER ALLE COMPUTER GEEI
GNET.T,J.."ZIFFERN: 0123456789. ZEICHEN 
!:;,.?. SYMBOLE: $%'()+-*=/"..-K.."GREGO
RY PECK, JOHN WAYNE, ANTHONY QUINN..-M..
"#..-...1000..-..:.=-... ** SPEICHERN AU
F DISKETTE **.F-B..".".]-L.."DATEINAME: 
";DA$.O-V..DA$."*".1000..-..DA$."D0:".DA
$.",SEQ,W":.1,8,3,DA$..-...X$."G".3070.M
-...I.1.AZ:.1,G(34)T$(I)G(34):.:.3080..-
...I.1.AZ.1:.1,G(34)G(160)G(34):.:.1,"*"
......I.1.AZ.1:.TE$(I)."".TE$(I).G(160).
3....1,H(TE$(I),80).E...M1$.J(TE$(I),81,
80):.M1$.""..1,G(160):U.1,M1$...&.M2$.J(
TE$(I),161):.M2$.""..1,G(160):U.1,M2$...
0.....:..1,"*"...D. 1:.1000...N.:.R.... 
** KURZ-INFORM. **......".";:.30.80:."."
;../...I.1.23:."    ":.:.G(15)"    TASTE
":..X$:.1000.9/... ** KLARTEXT DRUCKEN *
*../..LR.7:.  OPEN2,4:PRINT#2,CHR$(27)CH
R$(108)CHR$(LR):CLOSE2:REM LINKER RAND..
/J. 1:.1,4,11../T..I.1.AZ:.T$(I).H/...T$
(I)."*"..1,"":I.AZ:.3570.U/...1,T$(I)../
...../.. 1../...1000../..:..0.. 1:.1,4,1
1..08..I.1.AZ:.TE$(I).50B..T$(I)."*"..1,
"":I.AZ:.3670.C0L..1,TE$(I).I0V...P0`. 1
.Z0J..1000.`0T.:.0 .. ** LESEN VON DISK
ETTE **..0..."."..0..."DATEINAME: ";DN$:
.DN$."*".1000.S0..DN$."D0:".DN$.",SEQ,R"
:.3,8,3,DN$..0R..I.1.25:.3,T$(I):.T$(I).
"*".AZ.I:I.25..1...."1...I.1.AZ.1:TE$(I)
."":.J.1.3.:1...3,X$:.TX$."*".4110.O1..T
E$(I).TE$(I).X$.R1...J:.TE$(I).G(160).TE
$(I).G(32).Y1...I..1.. 3:.1000...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL