_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

ADRESSKARTEI

FILE INFORMATION

FILENAME(S): ADRESSKARTEI

FILE TYPE(S): PRG

FILE SIZE: 5.2K

FIRST SEEN: 2025-12-02 23:23:14

APPEARS ON: 1 disk(s)

FILE HASH

ff29914428acb523009a21907a38dfa768efa8f37399811a971d971e71d0c580

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
A ADRESSKARTEI PRG swasti, dinkel 32 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0F 08 0A 00 8F 20  44 41 54 41 20 0D 01 00  |....... DATA ...|
00000010: 1D 08 64 00 97 35 33 32  37 32 2C 32 31 00 30 08  |..d..53272,21.0.|
00000020: 65 00 99 22 93 11 11 11  11 21 D5 C0 C9 D5 C0 C9  |e..".....!......|
00000030: 00 7A 08 66 00 99 22 20  DD 20 DD DD 20 DD 20 20  |.z.f.." . .. .  |
00000040: 20 20 20 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |   .............|
00000050: C0 B2 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 20 20  |..............  |
00000060: DD 20 DD DD 20 DD 20 20  20 20 20 20 20 20 20 20  |. .. .          |
00000070: 20 20 20 20 DD 20 20 20  20 DD 00 C8 08 67 00 99  |    .    ....g..|
00000080: 22 20 DD 20 DD DD 20 DD  20 20 20 20 20 20 20 20  |" . .. .        |
00000090: 20 20 20 20 20 20 DD 20  20 20 20 DD 20 20 20 20  |      .    .    |
000000A0: 20 20 20 20 20 20 20 20  20 20 DD 20 DD DD 20 DD  |          . .. .|
000000B0: D5 C0 C9 D5 B2 C9 D5 C0  B2 20 20 20 D5 C0 B3 D5  |.........   ....|
000000C0: C0 C9 20 DD A0 D5 C0 C9  00 19 09 68 00 99 22 20  |.. ........h.." |
000000D0: DD 20 CA CB 20 DD AB C0  CB DD DD DD DD 20 DD 20  |. .. ........ . |
000000E0: C0 20 DD 20 DD DD 20 DD  20 DD 20 DD 20 DD 20 20  |. . .. . . . .  |
000000F0: 20 20 20 20 20 20 20 20  DD 20 20 20 20 DD CA C0  |        .    ...|
00000100: C0 CB 20 CA B1 C0 CB 20  20 20 CA C0 B1 B1 C0 B1  |.. ....   ......|
00000110: C0 B1 C0 B1 C0 B1 C0 C0  C0 00 62 09 69 00 99 22  |..........b.i.."|
00000120: 20 DD 20 20 20 20 CA C0  C0 C0 C0 C0 C0 C0 C0 C0  | .    ..........|
00000130: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000140: 20 20 20 20 20 20 20 20  20 DD 20 20 28 43 29 20  |         .  (C) |
00000150: 42 59 20 57 2E 48 4F 46  41 43 4B 45 52 20 31 39  |BY W.HOFACKER 19|
00000160: 38 33 00 85 09 6A 00 99  22 20 CA C0 C0 C0 C0 C0  |83...j.." ......|
00000170: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000180: C0 C0 C0 C0 C0 00 B2 09  C8 00 99 22 11 42 49 54  |...........".BIT|
00000190: 54 45 20 44 52 55 45 43  4B 45 4E 20 53 49 45 20  |TE DRUECKEN SIE |
000001A0: 45 49 4E 45 20 54 41 53  54 45 22 3A 8D 36 30 30  |EINE TASTE":.600|
000001B0: 30 30 00 C0 09 D2 00 97  35 33 32 37 32 2C 32 33  |00......53272,23|
000001C0: 00 DB 09 10 01 99 22 11  45 49 4E 45 4E 20 4D 4F  |......".EINEN MO|
000001D0: 4D 45 4E 54 20 42 49 54  54 45 2E 00 04 0A 13 01  |MENT BITTE......|
000001E0: 9C 3A 86 41 28 31 36 2C  32 29 2C 41 24 28 31 36  |.:.A(16,2),A$(16|
000001F0: 29 2C 42 24 28 31 36 29  2C 43 24 28 31 36 29 3A  |),B$(16),C$(16):|
00000200: 4E 52 B2 30 00 43 0A 18  01 48 24 B2 22 21 28 21  |NR.0.C...H$."!(!|
00000210: 21 35 2E 23 20 33 23 35  32 25 20 2F 27 20 33 29  |!5.# 3#52% /' 3)|
00000220: 20 24 29 25 2E 29 35 24  27 3F 28 29 3F 28 25 35  | $)%.)5$'?()?(%5|
00000230: 2B 2B 20 47 2D 20 47 2F  20 47 31 20 33 31 35 32  |++ G- G/ G1 3152|
00000240: 22 3A 8C 00 76 0A 22 01  81 48 B2 30 A4 31 36 3A  |":..v."..H.0.16:|
00000250: 81 49 B2 30 A4 32 3A 41  28 48 2C 49 29 B2 C6 28  |.I.0.2:A(H,I)..(|
00000260: CA 28 48 24 2C 48 AC 33  AA 49 AA 31 2C 31 29 29  |.(H$,H.3.I.1,1))|
00000270: AB 33 32 3A 82 49 00 8C  0A 23 01 87 43 24 28 48  |.32:.I...#..C$(H|
00000280: 29 3A 41 24 28 48 29 B2  22 22 3A 82 00 95 0A 2A  |):A$(H)."":....*|
00000290: 01 8D 39 30 30 00 A1 0A  4A 01 8B 47 53 B2 39 A7  |..900...J..GS.9.|
000002A0: 8E 00 B0 0A 90 01 48 B2  31 3A 97 31 39 38 2C 30  |......H.1:.198,0|
000002B0: 00 CF 0A 9A 01 41 24 28  48 29 B2 22 22 3A 8D 36  |.....A$(H)."":.6|
000002C0: 30 31 30 30 3A 99 22 11  5E 22 3B 3A 49 B2 30 00  |0100:.".^";:I.0.|
000002D0: EC 0A A4 01 8D 36 30 30  31 30 3A 99 22 9D 20 9D  |.....60010:.". .|
000002E0: 91 22 3B 3A 8B 48 B2 30  A7 35 30 30 00 22 0B AE  |.";:.H.0.500."..|
000002F0: 01 8B 41 24 B2 22 12 22  B0 41 24 B2 22 92 22 B0  |..A$.".".A$.".".|
00000300: 41 24 B2 22 11 22 B0 41  24 B2 22 91 22 B0 41 24  |A$.".".A$.".".A$|
00000310: B2 C7 28 33 34 29 A7 99  22 11 5E 22 3B 3A 89 34  |..(34)..".^";:.4|
00000320: 32 30 00 37 0B B8 01 8B  41 24 B2 22 40 22 A7 48  |20.7....A$."@".H|
00000330: B2 30 3A 89 34 31 30 00  4A 0B C2 01 8B 41 24 B3  |.0:.410.J....A$.|
00000340: B1 C7 28 31 33 29 A7 34  36 30 00 7C 0B C4 01 8B  |..(13).460.|....|
00000350: 49 B2 30 A7 41 24 28 48  29 B2 22 22 3A 43 24 28  |I.0.A$(H)."":C$(|
00000360: 48 29 B2 22 22 3A 8D 36  30 31 30 30 3A 99 C8 28  |H)."":.60100:..(|
00000370: 48 24 2C 41 28 48 2C 32  29 AA 31 29 00 91 0B C8  |H$,A(H,2).1)....|
00000380: 01 48 B2 48 AA 31 AB 31  36 AC B5 28 48 AD 31 36  |.H.H.1.16..(H.16|
00000390: 29 00 C3 0B C9 01 49 B2  30 3A 8D 36 30 31 30 30  |).....I.0:.60100|
000003A0: 3A 8B C3 28 43 24 28 48  29 29 B2 30 A7 99 C8 28  |:..(C$(H)).0...(|
000003B0: 48 24 2C 41 28 48 2C 32  29 AA 31 29 3A 8D 36 30  |H$,A(H,2).1):.60|
000003C0: 31 30 30 00 DC 0B CA 01  99 22 12 22 41 24 28 48  |100......"."A$(H|
000003D0: 29 22 92 11 5E 22 3B 3A  89 34 32 30 00 EC 0B CC  |)"..^";:.420....|
000003E0: 01 8B 41 24 B2 22 1D 22  A7 34 35 36 00 12 0C D1  |..A$.".".456....|
000003F0: 01 8B 41 24 B2 22 9D 22  A7 48 B2 48 AB 31 AB 31  |..A$.".".H.H.1.1|
00000400: 36 AC B5 28 B4 28 48 AB  32 29 AD 32 29 3A 89 34  |6..(.(H.2).2):.4|
00000410: 35 37 00 38 0C D6 01 8B  41 24 B2 C7 28 32 30 29  |57.8....A$..(20)|
00000420: B0 41 24 B2 C7 28 31 34  38 29 A7 41 24 28 48 29  |.A$..(148).A$(H)|
00000430: B2 22 22 3A 89 34 35 37  00 48 0C D7 01 8B 41 24  |."":.457.H....A$|
00000440: B2 22 93 22 A7 32 37 35  00 58 0C D8 01 8B 41 24  |.".".275.X....A$|
00000450: B2 22 13 22 A7 39 35 30  00 89 0C DB 01 8B C3 28  |.".".950.......(|
00000460: 43 24 28 48 29 29 B3 B1  30 A7 99 C8 28 48 24 2C  |C$(H))..0...(H$,|
00000470: 41 28 48 2C 32 29 AA 31  29 3A 8D 36 30 31 30 30  |A(H,2).1):.60100|
00000480: 3A 43 24 28 48 29 B2 22  22 00 AD 0C E0 01 49 B2  |:C$(H)."".....I.|
00000490: 49 AA 31 3A 41 24 28 48  29 B2 41 24 28 48 29 AA  |I.1:A$(H).A$(H).|
000004A0: 41 24 3A 99 22 12 22 41  24 22 92 22 3B 00 CE 0C  |A$:."."A$".";...|
000004B0: EA 01 8B C3 28 41 24 28  48 29 29 B3 41 28 48 2C  |....(A$(H)).A(H,|
000004C0: 32 29 A7 99 22 11 5E 22  3B 3A 89 34 32 30 00 D7  |2)..".^";:.420..|
000004D0: 0C EF 01 89 34 35 36 00  E7 0C F4 01 8B 41 24 B2  |....456......A$.|
000004E0: 22 40 22 A7 34 35 36 00  F7 0C F9 01 99 22 12 22  |"@".456......"."|
000004F0: 41 24 22 9D 92 22 3B 00  0D 0D FE 01 8B 41 24 B2  |A$"..";......A$.|
00000500: 22 50 22 A7 8D 37 30 30  3A 89 39 35 30 00 23 0D  |"P"..700:.950.#.|
00000510: 03 02 8B 41 24 B2 22 52  22 A7 8D 37 35 30 3A 89  |...A$."R"..750:.|
00000520: 39 35 30 00 39 0D 12 02  8B 41 24 B2 22 4E 22 A7  |950.9....A$."N".|
00000530: 4E 52 B2 30 3A 89 36 30  30 00 49 0D 1C 02 8B 41  |NR.0:.600.I....A|
00000540: 24 B2 22 43 22 A7 38 30  30 00 5A 0D 1D 02 8B 41  |$."C".800.Z....A|
00000550: 24 B2 22 54 22 A7 32 30  30 30 00 6B 0D 21 02 8B  |$."T".2000.k.!..|
00000560: 41 24 B2 22 53 22 A7 31  30 30 30 00 7C 0D 22 02  |A$."S".1000.|.".|
00000570: 8B 41 24 B2 22 21 22 A7  31 31 33 30 00 88 0D 26  |.A$."!".1130...&|
00000580: 02 81 4C 37 B2 31 A4 35  00 BC 0D 2B 02 99 22 12  |..L7.1.5...+..".|
00000590: 3F 9D 22 3B 3A 81 4C 38  B2 31 A4 32 30 30 3A 82  |?.";:.L8.1.200:.|
000005A0: 3A 99 22 2D 9D 22 3B 3A  81 4C 38 B2 31 A4 32 30  |:."-.";:.L8.1.20|
000005B0: 30 3A 82 3A 82 3A 99 22  30 9D 22 3B 00 C5 0D 30  |0:.:.:."0.";...0|
000005C0: 02 89 34 35 36 00 E3 0D  58 02 4E B2 C2 28 32 30  |..456...X.N..(20|
000005D0: 36 30 29 AA 32 35 36 AC  28 C2 28 32 30 36 31 29  |60).256.(.(2061)|
000005E0: AB 31 29 00 F4 0D 59 02  8B 4E 52 B1 30 A7 4E B2  |.1)...Y..NR.0.N.|
000005F0: 4E 52 AB 31 00 11 0E 5E  02 99 22 93 11 11 22 3B  |NR.1...^.."...";|
00000600: 3A 48 B2 4E AC 32 30 AA  32 30 31 30 30 3A 49 B2  |:H.N.20.20100:I.|
00000610: 30 00 2A 0E 62 02 49 B2  30 3A 99 48 22 44 41 54  |0.*.b.I.0:.H"DAT|
00000620: 41 22 4E AA 31 3B 3A 4A  B2 34 00 61 0E 67 02 8B  |A"N.1;:J.4.a.g..|
00000630: 41 24 28 31 29 B2 22 23  22 A7 99 22 2C 22 41 24  |A$(1)."#"..","A$|
00000640: 28 31 29 22 2C 22 41 24  28 32 29 22 2C 22 41 24  |(1)","A$(2)","A$|
00000650: 28 39 29 22 2C 22 41 24  28 31 30 29 3A 89 36 35  |(9)","A$(10):.65|
00000660: 31 00 9E 0E 6C 02 4A B2  4A AA C3 28 41 24 28 49  |1...l.J.J..(A$(I|
00000670: 29 29 AA 33 3A 99 C7 28  33 34 AC B4 28 C3 28 41  |)).3:..(34..(.(A|
00000680: 24 28 49 29 29 29 29 41  24 28 49 29 C7 28 33 34  |$(I))))A$(I).(34|
00000690: AC B4 28 C3 28 41 24 28  49 29 29 29 29 3B 00 AC  |..(.(A$(I))));..|
000006A0: 0E 71 02 8B 49 B2 31 36  A7 36 35 30 00 D2 0E 76  |.q..I.16.650...v|
000006B0: 02 8B 4A AA C3 28 41 24  28 49 AA 31 29 29 B3 36  |..J..(A$(I.1)).6|
000006C0: 35 A7 99 22 2C 22 3B 3A  49 B2 49 AA 31 3A 89 36  |5..",";:I.I.1:.6|
000006D0: 32 30 00 F7 0E 80 02 99  3A 48 B2 48 AA 31 3A 49  |20......:H.H.1:I|
000006E0: B2 49 AA 31 3A 99 48 22  44 41 54 41 22 3B 3A 4A  |.I.1:.H"DATA";:J|
000006F0: B2 30 3A 89 36 32 30 00  FD 0E 8A 02 99 00 24 0F  |.0:.620.......$.|
00000700: 8B 02 8B 4E 52 B1 30 A7  48 B2 48 AA 31 3A 99 48  |...NR.0.H.H.1:.H|
00000710: 3A 8B 48 AB B5 28 48 AD  31 30 29 AC 31 30 B3 37  |:.H..(H.10).10.7|
00000720: A7 36 35 31 00 32 0F 8C  02 8B 4E 52 B1 30 A7 36  |.651.2....NR.0.6|
00000730: 35 35 00 56 0F 8D 02 48  B2 C2 28 32 30 36 30 29  |55.V...H..(2060)|
00000740: AA 31 3A 8B 48 B3 32 35  36 A7 97 32 30 36 30 2C  |.1:.H.256..2060,|
00000750: 48 3A 89 36 35 35 00 76  0F 8E 02 97 32 30 36 30  |H:.655.v....2060|
00000760: 2C 30 3A 48 B2 C2 28 32  30 36 31 29 3A 97 32 30  |,0:H..(2061):.20|
00000770: 36 31 2C 48 AA 31 00 A5  0F 8F 02 99 22 47 4F 54  |61,H.1......"GOT|
00000780: 4F 36 36 30 13 22 3B 3A  97 31 39 38 2C 31 30 3A  |O660.";:.198,10:|
00000790: 81 48 B2 31 A4 31 30 3A  97 36 33 30 AA 48 2C 31  |.H.1.10:.630.H,1|
000007A0: 33 3A 82 3A 80 00 B0 0F  94 02 97 31 39 38 2C 30  |3:.:.......198,0|
000007B0: 00 B9 0F 9E 02 89 32 37  35 00 E8 0F BC 02 48 24  |......275.....H$|
000007C0: B2 22 31 5E 32 20 33 5E  34 20 3B 5E 35 20 39 5E  |."1^2 3^4 ;^5 9^|
000007D0: 36 20 37 20 38 20 3A 5E  3C 5E 3D 5E 3E 5E 3F 20  |6 7 8 :^<^=^>^? |
000007E0: 40 5E 22 3A 9F 34 2C 34  00 1B 10 C1 02 98 34 3A  |@^":.4,4......4:|
000007F0: 98 34 2C 22 53 43 52 20  43 4F 50 20 2D 2D 2D 2D  |.4,"SCR COP ----|
00000800: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000810: 2D 2D 2D 2D 2D 2D 2D 22  3B 4E 52 00 2F 10 C2 02  |-------";NR./...|
00000820: 8B 41 24 28 31 29 B3 B1  22 23 22 A7 37 31 30 00  |.A$(1).."#".710.|
00000830: 6F 10 C3 02 81 48 B2 31  A4 32 3A 41 24 B2 41 24  |o....H.1.2:A$.A$|
00000840: 28 48 29 3A 54 41 B2 30  3A 52 45 B2 31 3A 8D 36  |(H):TA.0:RE.1:.6|
00000850: 30 32 30 30 3A 41 24 B2  22 2A 20 22 AA 41 24 28  |0200:A$."* ".A$(|
00000860: 48 AA 38 29 3A 54 41 B2  31 35 3A 52 45 B2 30 00  |H.8):TA.15:RE.0.|
00000870: 81 10 C4 02 8D 36 30 32  30 30 3A 82 3A 89 37 32  |.....60200:.:.72|
00000880: 35 00 B8 10 C6 02 81 48  B2 31 A4 31 36 3A 49 B2  |5......H.1.16:I.|
00000890: C6 28 CA 28 48 24 2C 48  AC 32 AB 31 2C 31 29 29  |.(.(H$,H.2.1,1))|
000008A0: AB 34 38 3A 52 45 B2 C6  28 CA 28 48 24 2C 48 AC  |.48:RE..(.(H$,H.|
000008B0: 32 2C 31 29 29 AB 39 34  00 D8 10 D0 02 41 24 B2  |2,1)).94.....A$.|
000008C0: 41 24 28 49 29 3A 54 41  B2 41 28 49 2C 31 29 3A  |A$(I):TA.A(I,1):|
000008D0: 8D 36 30 32 30 30 3A 82  00 0E 11 D5 02 98 34 2C  |.60200:.......4,|
000008E0: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |"---------------|
000008F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D  22 3A A0 34 3A 8E 00 1C  |--------":.4:...|
00000910: 11 EE 02 9F 34 2C 34 3A  8C 3A 87 48 00 5D 11 F3  |....4,4:.:.H.]..|
00000920: 02 98 34 3A 98 34 2C 22  53 43 52 20 50 52 4E 54  |..4:.4,"SCR PRNT|
00000930: 20 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  | ---------------|
00000940: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 22 3B 4E 52 3A  |-----------";NR:|
00000950: 81 48 B2 31 A4 31 36 3A  87 43 24 28 48 00 6F 11  |.H.1.16:.C$(H.o.|
00000960: F4 02 8B 41 24 28 48 29  B2 22 22 A7 37 38 30 00  |...A$(H)."".780.|
00000970: 91 11 F8 02 54 41 B2 30  3A 41 24 B2 43 24 28 48  |....TA.0:A$.C$(H|
00000980: 29 AA 22 3A 22 3A 52 45  B2 31 3A 8D 36 30 32 30  |).":":RE.1:.6020|
00000990: 30 00 B0 11 02 03 54 41  B2 31 35 3A 41 24 B2 41  |0.....TA.15:A$.A|
000009A0: 24 28 48 29 3A 52 45 B2  30 3A 8D 36 30 32 30 30  |$(H):RE.0:.60200|
000009B0: 00 B6 11 0C 03 82 00 EC  11 16 03 98 34 2C 22 2D  |............4,"-|
000009C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000009D0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000009E0: 2D 2D 2D 2D 2D 2D 22 3A  A0 34 3A 8E 00 FA 11 20  |------":.4:.... |
000009F0: 03 8B 4E 52 B1 30 A7 36  30 30 00 3D 12 2A 03 99  |..NR.0.600.=.*..|
00000A00: 22 13 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
00000A10: 11 11 11 11 11 44 41 54  45 4E 20 53 49 4E 44 20  |.....DATEN SIND |
00000A20: 4E 45 55 20 45 49 4E 47  45 47 45 42 45 4E 20 55  |NEU EINGEGEBEN U|
00000A30: 4E 44 20 4B 4F 91 9D 2E  11 4E 4E 45 4E 00 5A 12  |ND KO....NNEN.Z.|
00000A40: 34 03 99 22 4B 45 49 4E  45 20 4B 4F 52 52 45 4B  |4.."KEINE KORREK|
00000A50: 54 55 52 20 53 45 49 4E  2E 22 00 65 12 3E 03 8D  |TUR SEIN.".e.>..|
00000A60: 35 39 39 39 30 00 6E 12  52 03 89 39 35 30 00 B3  |59990.n.R..950..|
00000A70: 12 84 03 48 24 B2 22 12  A7 A7 A7 A7 A7 A7 A7 A7  |...H$.".........|
00000A80: A7 A7 A7 A7 A7 A7 A7 A7  A7 A7 A7 A7 A7 A7 A7 A7  |................|
00000A90: A7 A7 A7 A7 A7 A7 A7 A7  A7 A7 A7 A7 A7 A7 A7 A7  |................|
00000AA0: A7 A7 22 3A 99 22 93 11  20 20 20 20 20 20 20 12  |..":."..       .|
00000AB0: 2D 20 2D 00 EC 12 8E 03  81 48 B2 30 A4 31 36 3A  |- -......H.0.16:|
00000AC0: 8D 36 30 31 30 30 3A 8B  41 24 28 48 29 B3 B1 22  |.60100:.A$(H).."|
00000AD0: 22 A7 99 22 12 22 41 24  28 48 29 3B 3A 49 B2 C3  |".."."A$(H);:I..|
00000AE0: 28 41 24 28 48 29 29 3A  89 39 33 30 00 06 13 98  |(A$(H)):.930....|
00000AF0: 03 99 22 12 22 43 24 28  48 29 3B 3A 49 B2 C3 28  |.."."C$(H);:I..(|
00000B00: 43 24 28 48 29 29 00 25  13 A2 03 49 B2 41 28 48  |C$(H)).%...I.A(H|
00000B10: 2C 32 29 AB 49 AA 31 3A  8B 49 B1 30 A7 99 C8 28  |,2).I.1:.I.0...(|
00000B20: 48 24 2C 49 29 00 2D 13  AC 03 82 3A 8E 00 3F 13  |H$,I).-....:..?.|
00000B30: B6 03 8D 39 30 30 3A 48  B2 30 3A 89 34 35 36 00  |...900:H.0:.456.|
00000B40: 62 13 E8 03 81 48 B2 31  A4 31 36 3A 42 24 28 48  |b....H.1.16:B$(H|
00000B50: 29 B2 41 24 28 48 29 3A  43 24 28 48 29 B2 22 22  |).A$(H):C$(H).""|
00000B60: 3A 82 00 80 13 F2 03 99  22 93 11 11 11 57 45 4C  |:......."....WEL|
00000B70: 43 48 45 52 20 53 55 43  48 4D 4F 44 55 53 20 3F  |CHER SUCHMODUS ?|
00000B80: 00 A4 13 FC 03 99 22 11  20 20 2D 31 2D 20 41 55  |......".  -1- AU|
00000B90: 53 47 41 42 45 20 41 55  46 20 42 49 4C 44 53 43  |SGABE AUF BILDSC|
00000BA0: 48 49 52 4D 00 C5 13 06  04 99 22 11 20 20 2D 32  |HIRM......".  -2|
00000BB0: 2D 20 41 55 53 47 41 42  45 20 41 55 46 20 44 52  |- AUSGABE AUF DR|
00000BC0: 55 43 4B 45 52 00 09 14  10 04 99 22 11 20 20 2D  |UCKER......".  -|
00000BD0: 33 2D 20 41 55 53 47 41  42 45 20 41 55 46 20 42  |3- AUSGABE AUF B|
00000BE0: 49 4C 44 53 43 48 49 52  4D 20 4D 49 54 22 3A 99  |ILDSCHIRM MIT":.|
00000BF0: 22 20 20 20 20 20 20 41  42 46 52 41 47 45 20 42  |"      ABFRAGE B|
00000C00: 53 2F 44 52 55 43 4B 45  52 00 11 14 1A 04 99 3A  |S/DRUCKER......:|
00000C10: 99 00 46 14 24 04 99 22  20 28 20 31 2F 32 2F 33  |..F.$.." ( 1/2/3|
00000C20: 20 29 20 3F 20 22 3B 3A  8D 36 30 30 30 30 3A 99  | ) ? ";:.60000:.|
00000C30: 41 24 3A 8B 41 24 B3 22  31 22 B0 41 24 B1 22 33  |A$:.A$."1".A$."3|
00000C40: 22 A7 31 30 36 30 00 8B  14 25 04 51 B2 C5 28 41  |".1060...%.Q..(A|
00000C50: 24 29 3A 99 22 11 11 55  4E 44 2F 4F 44 45 52 20  |$):."..UND/ODER |
00000C60: 56 45 52 4B 4E 55 45 50  46 55 4E 47 20 44 45 52  |VERKNUEPFUNG DER|
00000C70: 20 44 41 54 45 4E 20 28  55 2F 4F 29 20 22 3A 8D  | DATEN (U/O) ":.|
00000C80: 36 30 30 30 30 3A 42 24  B2 41 24 00 AA 14 26 04  |60000:B$.A$...&.|
00000C90: 8B 42 24 B3 B1 22 55 22  AF 42 24 B3 B1 22 4F 22  |.B$.."U".B$.."O"|
00000CA0: A7 99 42 24 3A 89 31 30  36 31 00 D4 14 2E 04 8C  |..B$:.1061......|
00000CB0: 3A 45 4E B2 C2 28 32 30  36 30 29 AA 32 35 36 AC  |:EN..(2060).256.|
00000CC0: 28 C2 28 32 30 36 31 29  AB 31 29 3A 81 4E 52 B2  |(.(2061).1):.NR.|
00000CD0: 30 A4 45 4E 00 11 15 33  04 99 22 93 53 55 43 48  |0.EN...3..".SUCH|
00000CE0: 45 20 4C 41 45 55 46 54  3A 20 22 4E 52 3A 45 51  |E LAEUFT: "NR:EQ|
00000CF0: B2 30 3A 87 48 2C 41 24  28 31 29 3A A1 41 24 3A  |.0:.H,A$(1):.A$:|
00000D00: 8B 41 24 B3 B1 22 22 A7  47 53 B2 30 3A 89 39 35  |.A$.."".GS.0:.95|
00000D10: 30 00 38 15 38 04 8B 41  24 28 31 29 B3 B1 22 23  |0.8.8..A$(1).."#|
00000D20: 22 A7 81 48 B2 32 A4 31  36 3A 87 41 24 28 48 29  |"..H.2.16:.A$(H)|
00000D30: 3A 82 3A 89 31 30 38 35  00 63 15 3B 04 81 48 B2  |:.:.1085.c.;..H.|
00000D40: 33 A4 31 36 3A 41 24 28  48 29 B2 22 22 3A 82 3A  |3.16:A$(H)."":.:|
00000D50: 87 41 24 28 32 29 2C 41  24 28 39 29 2C 41 24 28  |.A$(2),A$(9),A$(|
00000D60: 31 30 29 00 84 15 3D 04  4E B2 30 3A 81 48 B2 31  |10)...=.N.0:.H.1|
00000D70: A4 31 36 3A 8B 42 24 28  48 29 B3 B1 22 22 A7 4E  |.16:.B$(H).."".N|
00000D80: B2 4E AA 31 00 AA 15 3E  04 41 B2 C3 28 41 24 28  |.N.1...>.A..(A$(|
00000D90: 48 29 29 3A 8B C3 28 42  24 28 48 29 29 B3 41 A7  |H)):..(B$(H)).A.|
00000DA0: 41 B2 C3 28 42 24 28 48  29 29 00 B8 15 3F 04 8B  |A..(B$(H))...?..|
00000DB0: 41 B2 30 A7 31 30 39 30  00 DB 15 40 04 8B C8 28  |A.0.1090...@...(|
00000DC0: 41 24 28 48 29 2C 41 29  B2 C8 28 42 24 28 48 29  |A$(H),A)..(B$(H)|
00000DD0: 2C 41 29 A7 45 51 B2 45  51 AA 31 00 03 16 42 04  |,A).EQ.EQ.1...B.|
00000DE0: 82 3A 8B 28 42 24 B2 22  4F 22 AF 45 51 B2 30 29  |.:.(B$."O".EQ.0)|
00000DF0: B0 28 42 24 B2 22 55 22  AF 45 51 B3 4E 29 A7 31  |.(B$."U".EQ.N).1|
00000E00: 32 30 30 00 23 16 4C 04  8B 51 B2 31 A7 47 53 B2  |200.#.L..Q.1.GS.|
00000E10: 39 3A 8D 32 39 38 3A 8D  35 39 39 39 30 3A 89 31  |9:.298:.59990:.1|
00000E20: 32 30 30 00 37 16 56 04  8B 51 B2 32 A7 8D 37 30  |200.7.V..Q.2..70|
00000E30: 30 3A 89 31 32 30 30 00  45 16 60 04 47 53 B2 37  |0:.1200.E.`.GS.7|
00000E40: 3A 89 39 35 30 00 54 16  6A 04 8B 47 53 B3 B1 37  |:.950.T.j..GS..7|
00000E50: A7 35 35 30 00 5D 16 74  04 47 53 B2 30 00 85 16  |.550.].t.GS.0...|
00000E60: B0 04 82 4E 52 3A 47 53  B2 30 3A 99 22 93 12 53  |...NR:GS.0:."..S|
00000E70: 55 43 48 4C 41 55 46 20  42 45 45 4E 44 45 54 22  |UCHLAUF BEENDET"|
00000E80: 3A 89 32 37 35 00 A9 16  D0 07 9F 34 2C 34 3A 45  |:.275......4,4:E|
00000E90: 4E B2 C2 28 32 30 36 30  29 AA 32 35 36 AC 28 C2  |N..(2060).256.(.|
00000EA0: 28 32 30 36 31 29 AB 31  29 00 C6 16 DA 07 81 41  |(2061).1)......A|
00000EB0: B2 36 35 A4 39 30 3A 8C  3A 81 48 B2 30 A4 31 36  |.65.90:.:.H.0.16|
00000EC0: 3A 87 41 24 3A 82 00 E7  16 E4 07 45 24 B2 C7 28  |:.A$:......E$..(|
00000ED0: 41 29 3A 99 22 93 42 55  43 48 53 54 2E 3A 20 22  |A):.".BUCHST.: "|
00000EE0: 3B 45 24 3A 4A B2 30 00  02 17 E9 07 81 49 B2 31  |;E$:J.0......I.1|
00000EF0: A4 45 4E 3A 87 48 2C 41  24 2C 42 24 2C 43 24 2C  |.EN:.H,A$,B$,C$,|
00000F00: 44 24 00 33 17 EE 07 8B  41 24 B3 B1 22 23 22 A7  |D$.3....A$.."#".|
00000F10: 81 48 B2 31 A4 33 3A 87  43 24 2C 44 24 3A 82 3A  |.H.1.3:.C$,D$:.:|
00000F20: 81 48 B2 31 A4 36 3A 87  41 24 3A 82 3A 41 24 B2  |.H.1.6:.A$:.:A$.|
00000F30: 22 2A 22 00 48 17 F8 07  8B C8 28 42 24 2C 31 29  |"*".H.....(B$,1)|
00000F40: B2 45 24 A7 32 30 36 30  00 60 17 02 08 82 3A 82  |.E$.2060.`....:.|
00000F50: 3A 98 34 3A 98 34 3A A0  34 2C 34 3A 89 39 35 30  |:.4:.4:.4,4:.950|
00000F60: 00 81 17 0C 08 8B 4A B2  30 A7 4A B2 31 3A 98 34  |......J.0.J.1:.4|
00000F70: 3A 98 34 3A 98 34 2C C7  28 31 29 3B 45 24 22 3A  |:.4:.4,.(1);E$":|
00000F80: 22 00 BB 17 16 08 52 45  B2 31 3A 54 41 B2 30 3A  |".....RE.1:TA.0:|
00000F90: 8D 36 30 32 30 30 3A 41  24 B2 42 24 3A 54 41 B2  |.60200:A$.B$:TA.|
00000FA0: 35 3A 8D 36 30 32 30 30  3A 41 24 B2 44 24 3A 54  |5:.60200:A$.D$:T|
00000FB0: 41 B2 33 30 3A 8D 36 30  32 30 30 00 DD 17 20 08  |A.30:.60200... .|
00000FC0: 41 24 B2 43 24 3A 52 45  B2 30 3A 54 41 B2 34 30  |A$.C$:RE.0:TA.40|
00000FD0: 3A 8D 36 30 32 30 30 3A  89 32 30 35 30 00 F3 17  |:.60200:.2050...|
00000FE0: 20 4E 8F 20 2A 2A 2A 2A  20 44 41 54 45 4E 20 2A  | N. **** DATEN *|
00000FF0: 2A 2A 2A 00 37 18 2A 4E  83 30 2C 22 44 41 54 55  |***.7.*N.0,"DATU|
00001000: 4D 20 44 2E 45 49 4E 54  52 2E 22 2C 22 4E 41 43  |M D.EINTR.","NAC|
00001010: 48 4E 41 4D 45 22 2C 22  56 4F 52 4E 41 4D 45 22  |HNAME","VORNAME"|
00001020: 2C 22 54 49 54 45 4C 22  2C 22 53 54 52 41 53 53  |,"TITEL","STRASS|
00001030: 45 2C 20 4E 52 2E 22 00  7C 18 34 4E 83 22 50 4C  |E, NR.".|.4N."PL|
00001040: 54 5A 22 2C 22 57 4F 48  4E 4F 52 54 22 2C 22 4C  |TZ","WOHNORT","L|
00001050: 41 4E 44 22 2C 22 54 45  4C 2E 4E 52 2E 22 2C 22  |AND","TEL.NR.","|
00001060: 56 4F 52 57 41 48 4C 22  2C 22 47 45 42 2E 44 41  |VORWAHL","GEB.DA|
00001070: 54 55 4D 22 2C 22 42 45  52 55 46 22 00 91 18 3E  |TUM","BERUF"...>|
00001080: 4E 83 22 59 22 2C 22 5A  22 2C 22 56 22 2C 22 57  |N."Y","Z","V","W|
00001090: 22 00 D4 18 84 4E 83 20  31 20 2C 22 30 34 20 30  |"....N. 1 ,"04 0|
000010A0: 38 20 31 39 37 39 22 2C  22 48 4F 50 50 45 4E 22  |8 1979","HOPPEN"|
000010B0: 2C 22 50 45 54 45 52 22  2C 2C 22 4B 41 52 4C 2D  |,"PETER",,"KARL-|
000010C0: 42 45 47 41 53 20 53 54  52 2E 32 30 22 2C 22 35  |BEGAS STR.20","5|
000010D0: 30 30 30 22 00 1B 19 85  4E 83 22 4B 4F 45 4C 4E  |000"....N."KOELN|
000010E0: 20 34 31 22 2C 22 47 45  52 4D 22 2C 22 34 32 32  | 41","GERM","422|
000010F0: 33 33 37 22 2C 22 30 32  32 31 22 2C 22 31 37 2E  |337","0221","17.|
00001100: 31 32 2E 31 39 36 30 22  2C 22 53 43 48 55 45 4C  |12.1960","SCHUEL|
00001110: 45 52 22 2C 22 2F 22 2C  22 2F 22 00 28 19 86 4E  |ER","/","/".(..N|
00001120: 83 22 2F 22 2C 22 2F 22  00 46 19 98 4E 83 20 32  |."/","/".F..N. 2|
00001130: 20 2C 23 2C 4D 41 52 45  52 53 2C 34 35 36 36 38  | ,#,MARERS,45668|
00001140: 2C 30 32 32 32 34 00 65  19 AC 4E 83 20 33 20 2C  |,02224.e..N. 3 ,|
00001150: 23 2C 53 4E 4F 4F 50 59  2C 34 35 36 38 37 31 2C  |#,SNOOPY,456871,|
00001160: 30 32 32 36 38 00 80 19  C0 4E 83 20 34 20 2C 23  |02268....N. 4 ,#|
00001170: 2C 4D 41 49 45 52 2C 31  31 31 31 2C 32 32 32 32  |,MAIER,1111,2222|
00001180: 00 9D 19 D4 4E 83 20 35  20 2C 23 2C 45 4C 43 4F  |....N. 5 ,#,ELCO|
00001190: 4D 50 2C 30 38 30 32 34  2C 37 33 33 31 00 BF 19  |MP,08024,7331...|
000011A0: E8 4E 83 20 36 20 2C 23  2C 50 52 4F 42 53 54 48  |.N. 6 ,#,PROBSTH|
000011B0: 41 55 53 2C 34 35 38 34  35 34 2C 30 32 32 31 00  |AUS,458454,0221.|
000011C0: E0 19 FC 4E 83 20 37 20  2C 23 2C 4D 45 49 45 52  |...N. 7 ,#,MEIER|
000011D0: 20 41 2E 2C 34 35 39 37  37 38 2C 30 33 36 35 34  | A.,459778,03654|
000011E0: 00 FF 19 10 4F 83 20 38  20 2C 23 2C 52 45 44 59  |....O. 8 ,#,REDY|
000011F0: 53 4F 46 54 2C 30 38 30  32 34 2C 33 34 34 39 00  |SOFT,08024,3449.|
00001200: 1D 1A 24 4F 83 20 39 20  2C 23 2C 42 49 54 46 49  |..$O. 9 ,#,BITFI|
00001210: 52 45 2C 30 38 30 32 34  2C 37 33 33 31 00 3A 1A  |RE,08024,7331.:.|
00001220: 38 4F 83 20 31 30 20 2C  23 2C 4D 55 45 4C 4F 2C  |8O. 10 ,#,MUELO,|
00001230: 30 38 30 32 34 2C 31 38  31 34 00 65 1A 4C 4F 83  |08024,1814.e.LO.|
00001240: 20 31 31 20 2C 23 2C 4D  45 49 45 52 20 41 55 54  | 11 ,#,MEIER AUT|
00001250: 4F 54 45 4C 2E 2C 32 35  36 36 39 37 34 31 2C 30  |OTEL.,25669741,0|
00001260: 30 32 36 34 37 00 81 1A  60 4F 83 20 31 32 20 2C  |02647...`O. 12 ,|
00001270: 23 2C 48 4F 4C 5A 45 52  2C 39 39 39 38 2C 35 36  |#,HOLZER,9998,56|
00001280: 37 00 9B 1A 74 4F 83 20  31 33 20 2C 2C 2C 2C 2C  |7...tO. 13 ,,,,,|
00001290: 2C 2C 2C 2C 2C 2C 2C 2C  2C 2C 2C 00 C1 1A 56 EA  |,,,,,,,,,,,...V.|
000012A0: 99 22 11 42 49 54 54 45  20 44 52 55 45 43 4B 45  |.".BITTE DRUECKE|
000012B0: 4E 20 53 49 45 20 45 49  4E 45 20 54 41 53 54 45  |N SIE EINE TASTE|
000012C0: 2E 00 CC 1A 60 EA 97 31  39 38 2C 30 00 E1 1A 6A  |....`..198,0...j|
000012D0: EA A1 41 24 3A 8B 41 24  B2 22 22 A7 36 30 30 31  |..A$:.A$."".6001|
000012E0: 30 00 E7 1A 74 EA 8E 00  14 1B C4 EA 97 32 31 31  |0...t........211|
000012F0: 2C 41 28 48 2C 31 29 3A  97 32 31 34 2C 41 28 48  |,A(H,1):.214,A(H|
00001300: 2C 30 29 3A 58 B2 31 30  32 34 AA 34 30 AC 41 28  |,0):X.1024.40.A(|
00001310: 48 2C 30 29 00 3C 1B CE  EA 97 32 31 30 2C B5 28  |H,0).<....210,.(|
00001320: 58 AD 32 35 36 29 3A 97  32 30 39 2C 58 AB 32 35  |X.256):.209,X.25|
00001330: 36 AC B5 28 58 AD 32 35  36 29 3A 8E 00 4D 1B 28  |6..(X.256):..M.(|
00001340: EB 8F 20 53 55 42 52 4F  55 54 49 4E 45 00 71 1B  |.. SUBROUTINE.q.|
00001350: 29 EB 8F 22 44 52 55 43  4B 54 20 41 24 20 41 55  |).."DRUCKT A$ AU|
00001360: 46 20 44 45 4D 20 44 52  55 43 4B 45 52 20 41 55  |F DEM DRUCKER AU|
00001370: 53 00 92 1B 2A EB 8F 22  54 41 42 2D 57 C5 D2 D4  |S...*.."TAB-W...|
00001380: 20 C9 CE 20 54 41 2C 52  45 54 55 52 4E 5F 52 45  | .. TA,RETURN_RE|
00001390: 3D 30 00 A2 1B 30 EB 8B  52 45 B3 B1 30 A7 52 45  |=0...0..RE..0.RE|
000013A0: B2 31 00 B3 1B 31 EB 8B  41 24 B2 22 22 A7 36 30  |.1...1..A$."".60|
000013B0: 32 36 31 00 CB 1B 32 EB  4C B2 C3 28 41 24 29 3A  |261...2.L..(A$):|
000013C0: 8B 54 41 B2 30 A7 36 30  32 33 30 00 E8 1B 3C EB  |.TA.0.60230...<.|
000013D0: 44 B2 54 41 AB 50 3A 8B  44 B1 30 A7 98 34 2C A6  |D.TA.P:.D.0..4,.|
000013E0: 44 29 3B 3A 50 B2 54 41  00 0C 1C 46 EB 4C 37 B2  |D);:P.TA...F.L7.|
000013F0: 32 35 35 3A 81 4C 39 B2  31 A4 4C 3A 4C 38 B2 C6  |255:.L9.1.L:L8..|
00001400: 28 CA 28 41 24 2C 4C 39  2C 31 29 29 00 2E 1C 50  |(.(A$,L9,1))...P|
00001410: EB 8B 4C 38 B1 31 39 32  AF 4C 38 B3 32 31 39 A7  |..L8.192.L8.219.|
00001420: 98 34 2C 22 11 22 3B 3A  4C 37 B2 31 32 37 00 56  |.4,".";:L7.127.V|
00001430: 1C 5A EB 98 34 2C C7 28  4C 38 AF 4C 37 29 3B 3A  |.Z..4,.(L8.L7);:|
00001440: 8B 4C 37 B2 31 32 37 A7  4C 37 B2 32 35 35 3A 98  |.L7.127.L7.255:.|
00001450: 34 2C 22 91 22 3B 00 62  1C 64 EB 82 3A 50 B2 50  |4,".";.b.d..:P.P|
00001460: AA 4C 00 73 1C 65 EB 8B  52 45 B2 30 A7 98 34 3A  |.L.s.e..RE.0..4:|
00001470: 50 B2 30 00 79 1C 6E EB  8E 00 8C 1C 18 F6 81 58  |P.0.y.n........X|
00001480: B2 32 30 34 38 20 A4 20  32 30 37 30 00 98 1C 22  |.2048 . 2070..."|
00001490: F6 99 20 C2 28 58 29 3B  00 A0 1C 2C F6 82 20 58  |.. .(X);...,.. X|
000014A0: 00 00 00 24 53                                    |...$S           |
....... DATA .....D..53272,21.0.E.."....
.!U.IU.I.Z.F.." . .. .     .............
..............  . .. .              .   
 ..H.G.." . .. .              .    .    
          . .. .U.IU.IU..   U..U.I . U.I
...H.." . JK ...K.... . . . .. . . . .  
        .    .J..K J..K   J.............
..B.I.." .    J.........................
         .  (C) BY W.HOFACKER 1983...J..
" J.............................H..".BIT
TE DRUECKEN SIE EINE TASTE":.60000...R..
53272,23......".EINEN MOMENT BITTE......
.:.A(16,2),A$(16),B$(16),C$(16):NR.0.C..
.H$."!(!!5.# 3#52% /' 3) $)%.)5$'?()?(%5
++ G- G/ G1 3152":..V."..H.0.16:.I.0.2:A
(H,I).F(J(H$,H.3.I.1,1)).32:.I...#..C$(H
):A$(H)."":....*..900...J..GS.9.......H.
1:.198,0.O...A$(H)."":.60100:.".^";:I.0.
.....60010:.". ..";:.H.0.500."....A$."."
.A$.".".A$.".".A$.".".A$.G(34)..".^";:.4
20.7....A$."@".H.0:.410.J.B..A$..G(13).4
60.|.D..I.0.A$(H)."":C$(H)."":.60100:.H(
H$,A(H,2).1)...H.H.H.1.16..(H.16).C.I.I.
0:.60100:.C(C$(H)).0..H(H$,A(H,2).1):.60
100...J.."."A$(H)"..^";:.420...L..A$."."
.456...Q..A$.".".H.H.1.16..(.(H.2).2):.4
57.8.V..A$.G(20).A$.G(148).A$(H)."":.457
.H.W..A$.".".275.X.X..A$.".".950......C(
C$(H))..0..H(H$,A(H,2).1):.60100:C$(H)."
".....I.I.1:A$(H).A$(H).A$:."."A$".";.N.
...C(A$(H)).A(H,2)..".^";:.420.W....456.
.....A$."@".456......"."A$"..";......A$.
"P"..700:.950.#....A$."R"..750:.950.9...
.A$."N".NR.0:.600.I....A$."C".800.Z....A
$."T".2000.K.!..A$."S".1000.|."..A$."!".
1130...&..L7.1.5...+..".?.";:.L8.1.200:.
:."-.";:.L8.1.200:.:.:."0.";.E.0..456...
X.N.B(2060).256.(B(2061).1)...Y..NR.0.N.
NR.1...^.."...";:H.N.20.20100:I.0.*.B.I.
0:.H"DATA"N.1;:J.4.A.G..A$(1)."#"..","A$
(1)","A$(2)","A$(9)","A$(10):.651...L.J.
J.C(A$(I)).3:.G(34..(C(A$(I))))A$(I)G(34
..(C(A$(I))));...Q..I.16.650.R.V..J.C(A$
(I.1)).65..",";:I.I.1:.620......:H.H.1:I
.I.1:.H"DATA";:J.0:.620.......$....NR.0.
H.H.1:.H:.H..(H.10).10.7.651.2....NR.0.6
55.V...H.B(2060).1:.H.256..2060,H:.655.V
....2060,0:H.B(2061):.2061,H.1......"GOT
O660.";:.198,10:.H.1.10:.630.H,13:.:....
...198,0......275.....H$."1^2 3^4 ;^5 9^
6 7 8 :^<^=^>^? @^":.4,4...A..4:.4,"SCR 
COP ---------------------------";NR./.B.
.A$(1).."#".710.O.C..H.1.2:A$.A$(H):TA.0
:RE.1:.60200:A$."* ".A$(H.8):TA.15:RE.0.
..D..60200:.:.725...F..H.1.16:I.F(J(H$,H
.2.1,1)).48:RE.F(J(H$,H.2,1)).94.X.P.A$.
A$(I):TA.A(I,1):.60200:....U..4,"-------
--------------------------------": 4:...
....4,4:.:.H.]....4:.4,"SCR PRNT -------
-------------------";NR:.H.1.16:.C$(H.O.
...A$(H)."".780.....TA.0:A$.C$(H).":":RE
.1:.60200.....TA.15:A$.A$(H):RE.0:.60200
............4,"-------------------------
--------------": 4:.... ..NR.0.600.=.*..
"....................DATEN SIND NEU EING
EGEBEN UND KO....NNEN.Z.4.."KEINE KORREK
TUR SEIN.".E.>..59990.N.R..950.....H$.".
........................................
..":."..       .- -......H.0.16:.60100:.
A$(H).."".."."A$(H);:I.C(A$(H)):.930....
.."."C$(H);:I.C(C$(H)).%...I.A(H,2).I.1:
.I.0..H(H$,I).-....:..?....900:H.0:.456.
B....H.1.16:B$(H).A$(H):C$(H)."":.......
"....WELCHER SUCHMODUS ?......".  -1- AU
SGABE AUF BILDSCHIRM.E....".  -2- AUSGAB
E AUF DRUCKER......".  -3- AUSGABE AUF B
ILDSCHIRM MIT":."      ABFRAGE BS/DRUCKE
R......:..F.$.." ( 1/2/3 ) ? ";:.60000:.
A$:.A$."1".A$."3".1060...%.Q.E(A$):."..U
ND/ODER VERKNUEPFUNG DER DATEN (U/O) ":.
60000:B$.A$...&..B$.."U".B$.."O"..B$:.10
61.T....:EN.B(2060).256.(B(2061).1):.NR.
0.EN...3..".SUCHE LAEUFT: "NR:EQ.0:.H,A$
(1):.A$:.A$.."".GS.0:.950.8.8..A$(1).."#
"..H.2.16:.A$(H):.:.1085.C.;..H.3.16:A$(
H)."":.:.A$(2),A$(9),A$(10)...=.N.0:.H.1
.16:.B$(H).."".N.N.1...>.A.C(A$(H)):.C(B
$(H)).A.A.C(B$(H))...?..A.0.1090...@..H(
A$(H),A).H(B$(H),A).EQ.EQ.1...B..:.(B$."
O".EQ.0).(B$."U".EQ.N).1200.#.L..Q.1.GS.
9:.298:.59990:.1200.7.V..Q.2..700:.1200.
E.`.GS.7:.950.T.J..GS..7.550.].T.GS.0...
...NR:GS.0:."..SUCHLAUF BEENDET":.275...
P..4,4:EN.B(2060).256.(B(2061).1).F.Z..A
.65.90:.:.H.0.16:.A$:......E$.G(A):.".BU
CHST.: ";E$:J.0......I.1.EN:.H,A$,B$,C$,
D$.3....A$.."#"..H.1.3:.C$,D$:.:.H.1.6:.
A$:.:A$."*".H....H(B$,1).E$.2060.`....:.
:.4:.4: 4,4:.950......J.0.J.1:.4:.4:.4,G
(1);E$":".....RE.1:TA.0:.60200:A$.B$:TA.
5:.60200:A$.D$:TA.30:.60200... .A$.C$:RE
.0:TA.40:.60200:.2050... N. **** DATEN *
***.7.*N.0,"DATUM D.EINTR.","NACHNAME","
VORNAME","TITEL","STRASSE, NR.".|.4N."PL
TZ","WOHNORT","LAND","TEL.NR.","VORWAHL"
,"GEB.DATUM","BERUF"...>N."Y","Z","V","W
".T..N. 1 ,"04 08 1979","HOPPEN","PETER"
,,"KARL-BEGAS STR.20","5000"....N."KOELN
 41","GERM","422337","0221","17.12.1960"
,"SCHUELER","/","/".(..N."/","/".F..N. 2
 ,#,MARERS,45668,02224.E..N. 3 ,#,SNOOPY
,456871,02268....N. 4 ,#,MAIER,1111,2222
...TN. 5 ,#,ELCOMP,08024,7331....N. 6 ,#
,PROBSTHAUS,458454,0221....N. 7 ,#,MEIER
 A.,459778,03654....O. 8 ,#,REDYSOFT,080
24,3449...$O. 9 ,#,BITFIRE,08024,7331.:.
8O. 10 ,#,MUELO,08024,1814.E.LO. 11 ,#,M
EIER AUTOTEL.,25669741,002647...`O. 12 ,
#,HOLZER,9998,567...TO. 13 ,,,,,,,,,,,,,
,,,.A.V..".BITTE DRUECKEN SIE EINE TASTE
..L.`..198,0...J..A$:.A$."".60010...T...
..D..211,A(H,1):.214,A(H,0):X.1024.40.A(
H,0).<.N..210,.(X.256):.209,X.256..(X.25
6):..M.(.. SUBROUTINE.Q.).."DRUCKT A$ AU
F DEM DRUCKER AUS...*.."TAB-WERT IN TA,R
ETURN_RE=0...0..RE..0.RE.1...1..A$."".60
261.K.2.L.C(A$):.TA.0.60230...<.D.TA.P:.
D.0..4,.D);:P.TA...F.L7.255:.L9.1.L:L8.F
(J(A$,L9,1))...P..L8.192.L8.219..4,".";:
L7.127.V.Z..4,G(L8.L7);:.L7.127.L7.255:.
4,".";.B.D..:P.P.L.S.E..RE.0..4:P.0.Y.N.
.......X.2048 . 2070...".. B(X);. .,.. X
...$S
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL