00000000: 01 1C 0F 1C 05 00 99 22 93 A0 22 3A 99 3A 99 00 |......."..":.:..|
00000010: 2D 1C 0A 00 99 22 A0 C1 20 4E 20 53 20 43 20 48 |-....".. N S C H|
00000020: 20 52 20 49 20 46 20 54 20 45 20 4E 22 00 35 1C | R I F T E N".5.|
00000030: 14 00 99 3A 99 00 5B 1C 1E 00 8F 20 44 49 45 20 |...:..[.... DIE |
00000040: 41 4E 53 43 48 52 49 46 54 45 4E 20 57 45 52 44 |ANSCHRIFTEN WERD|
00000050: 45 4E 20 47 45 54 52 45 4E 4E 54 00 82 1C 1F 00 |EN GETRENNT.....|
00000060: 8F 20 4E 41 43 48 20 4E 41 4D 45 20 20 2F 20 53 |. NACH NAME / S|
00000070: 54 52 41 53 53 45 20 2F 20 50 4F 53 54 4C 45 49 |TRASSE / POSTLEI|
00000080: 54 2D 00 AA 1C 20 00 8F 20 5A 41 48 4C 20 2F 20 |T-... .. ZAHL / |
00000090: 57 4F 48 4E 4F 52 54 20 45 49 4E 47 45 47 45 42 |WOHNORT EINGEGEB|
000000A0: 45 4E 2E 20 42 49 53 20 5A 55 00 D0 1C 21 00 8F |EN. BIS ZU...!..|
000000B0: 20 31 30 30 20 53 49 4E 44 20 48 49 45 52 20 4D | 100 SIND HIER M|
000000C0: 4F 45 47 4C 49 43 48 2E 20 49 4E 20 56 45 52 2D |OEGLICH. IN VER-|
000000D0: 00 F6 1C 22 00 8F 20 42 49 4E 44 55 4E 47 20 4D |...".. BINDUNG M|
000000E0: 49 54 20 45 49 4E 45 4D 20 53 4F 52 54 2D 50 52 |IT EINEM SORT-PR|
000000F0: 4F 47 52 41 4D 4D 00 1D 1D 23 00 8F 20 4B 41 4E |OGRAMM...#.. KAN|
00000100: 4E 20 4E 41 43 48 20 4A 45 44 45 4D 20 4B 52 49 |N NACH JEDEM KRI|
00000110: 54 45 52 49 55 4D 20 41 55 53 47 45 2D 00 32 1D |TERIUM AUSGE-.2.|
00000120: 24 00 8F 20 47 45 42 45 4E 20 57 45 52 44 45 4E |$.. GEBEN WERDEN|
00000130: 20 21 00 38 1D 28 00 3A 00 60 1D 32 00 8F 20 56 | !.8.(.:.`.2.. V|
00000140: 41 52 49 41 42 4C 45 20 53 49 4E 44 20 4E 24 3D |ARIABLE SIND N$=|
00000150: 4E 41 4D 45 2C 53 24 3D 53 54 52 41 53 53 45 2C |NAME,S$=STRASSE,|
00000160: 00 78 1D 33 00 8F 20 50 24 3D 50 4C 5A 2C 57 24 |.x.3.. P$=PLZ,W$|
00000170: 3D 57 4F 48 4E 4F 52 54 00 7E 1D 3C 00 3A 00 A4 |=WOHNORT.~.<.:..|
00000180: 1D 46 00 86 20 4E 24 28 31 30 30 29 2C 53 24 28 |.F.. N$(100),S$(|
00000190: 31 30 30 29 2C 50 24 28 31 30 30 29 2C 57 24 28 |100),P$(100),W$(|
000001A0: 31 30 30 29 00 AA 1D 50 00 3A 00 BF 1D 5A 00 8F |100)...P.:...Z..|
000001B0: 20 45 49 4E 47 41 42 45 52 4F 55 54 49 4E 45 00 | EINGABEROUTINE.|
000001C0: CF 1D 64 00 81 20 49 B2 31 20 A4 20 31 30 30 00 |..d.. I.1 . 100.|
000001D0: E8 1D 6E 00 85 22 20 CE 41 4D 45 20 20 20 20 3D |..n.." .AME =|
000001E0: 20 22 3B 4E 24 28 49 29 00 01 1E 78 00 85 22 20 | ";N$(I)...x.." |
000001F0: D3 54 52 41 53 53 45 20 3D 20 22 3B 53 24 28 49 |.TRASSE = ";S$(I|
00000200: 29 00 1A 1E 82 00 85 22 20 D0 CC DA 20 20 20 20 |)......" ... |
00000210: 20 3D 20 22 3B 50 24 28 49 29 00 33 1E 8C 00 85 | = ";P$(I).3....|
00000220: 22 20 D7 4F 48 4E 4F 52 54 20 3D 20 22 3B 57 24 |" .OHNORT = ";W$|
00000230: 28 49 29 00 3B 1E 96 00 99 3A 99 00 60 1E A0 00 |(I).;....:..`...|
00000240: 85 22 20 CE CF C3 C8 A0 C5 C9 CE C5 A0 C1 CE D3 |." .............|
00000250: C3 C8 D2 C9 C6 D4 20 28 4A 2F 4E 29 22 3B 41 24 |...... (J/N)";A$|
00000260: 00 77 1E AA 00 8B 20 41 24 B2 22 4A 22 20 A7 20 |.w.... A$."J" . |
00000270: 99 3A 89 20 31 39 30 00 8B 1E B4 00 8B 20 41 24 |.:. 190...... A$|
00000280: B3 B1 22 4A 22 20 A7 20 32 30 30 00 93 1E BE 00 |.."J" . 200.....|
00000290: 82 20 49 00 99 1E C8 00 3A 00 AE 1E D2 00 8F 20 |. I.....:...... |
000002A0: 41 55 53 47 41 42 45 52 4F 55 54 49 4E 45 00 BE |AUSGABEROUTINE..|
000002B0: 1E DC 00 81 20 49 B2 31 20 A4 20 31 30 30 00 CC |.... I.1 . 100..|
000002C0: 1E E6 00 99 22 93 A0 22 3A 99 3A 99 00 DD 1E F0 |...."..":.:.....|
000002D0: 00 99 20 A3 31 30 29 20 4E 24 28 49 29 00 EE 1E |.. .10) N$(I)...|
000002E0: FA 00 99 20 A3 31 30 29 20 53 24 28 49 29 00 FF |... .10) S$(I)..|
000002F0: 1E 04 01 99 20 A3 31 30 29 20 50 24 28 49 29 00 |.... .10) P$(I).|
00000300: 10 1F 0E 01 99 20 A3 31 30 29 20 57 24 28 49 29 |..... .10) W$(I)|
00000310: 00 18 1F 13 01 99 3A 99 00 3C 1F 18 01 85 22 20 |......:..<...." |
00000320: CE C1 C5 C3 C8 D3 D4 C5 A0 C1 CE D3 C3 C8 D2 C9 |................|
00000330: C6 D4 20 28 4A 2F 4E 29 22 3B 42 24 00 4F 1F 22 |.. (J/N)";B$.O."|
00000340: 01 8B 20 42 24 B2 22 4A 22 20 A7 20 33 31 30 00 |.. B$."J" . 310.|
00000350: 63 1F 2C 01 8B 20 42 24 B3 B1 22 4A 22 20 A7 20 |c.,.. B$.."J" . |
00000360: 33 32 30 00 6B 1F 36 01 82 20 49 00 71 1F 40 01 |320.k.6.. I.q.@.|
00000370: 80 00 00 00 |.... |
.......". ":.:..-...." A N S C H R I F T
E N".5....:..[.... DIE ANSCHRIFTEN WERD
EN GETRENNT...... NACH NAME / STRASSE /
POSTLEIT-... .. ZAHL / WOHNORT EINGEGEB
EN. BIS ZU.P.!.. 100 SIND HIER MOEGLICH.
IN VER-...".. BINDUNG MIT EINEM SORT-PR
OGRAMM...#.. KANN NACH JEDEM KRITERIUM A
USGE-.2.$.. GEBEN WERDEN !.8.(.:.`.2.. V
ARIABLE SIND N$=NAME,S$=STRASSE,.X.3.. P
$=PLZ,W$=WOHNORT.~.<.:...F.. N$(100),S$(
100),P$(100),W$(100)...P.:...Z.. EINGABE
ROUTINE.O.D.. I.1 . 100...N.." NAME =
";N$(I)...X.." STRASSE = ";S$(I)......"
PLZ = ";P$(I).3...." WOHNORT = ";W$
(I).;....:..`. .." NOCH EINE ANSCHRIFT (
J/N)";A$.W.... A$."J" . .:. 190...... A$
.."J" . 200...... I...H.:...R.. AUSGABER
OUTINE...... I.1 . 100.L....". ":.:.....
.. .10) N$(I)...... .10) S$(I)...... .10
) P$(I)...... .10) W$(I)......:..<...."
NAECHSTE ANSCHRIFT (J/N)";B$.O.".. B$."J
" . 310.C.,.. B$.."J" . 320.K.6.. I.Q.@.
....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL