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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL