ADRESSEN 64

00000000: 01 08 15 08 0A 00 8F 20  2A 20 41 44 52 45 53 53  |....... * ADRESS|
00000010: 20 36 34 20 2A 00 31 08  14 00 99 22 93 9A 22 3A  | 64 *.1...."..":|
00000020: 97 35 33 32 38 31 2C 30  3A 97 35 33 32 38 30 2C  |.53281,0:.53280,|
00000030: 30 00 45 08 1E 00 99 C7  28 31 34 29 3A 97 36 35  |0.E.....(14):.65|
00000040: 30 2C 31 32 38 00 4F 08  28 00 89 31 35 34 30 00  |0,128.O.(..1540.|
00000050: 5E 08 32 00 A1 43 24 3A  8B 43 24 89 35 30 00 7B  |^.2..C$:.C$.50.{|
00000060: 08 3C 00 A1 43 24 3A 8B  43 24 A7 99 22 20 9D 22  |.<..C$:.C$.." ."|
00000070: 3B 3A 43 B2 C6 28 43 24  29 3A 8E 00 8A 08 46 00  |;:C..(C$):....F.|
00000080: 99 22 A4 9D 22 3B 3A 89  36 30 00 9E 08 50 00 A0  |."..";:.60...P..|
00000090: 31 3A 8F 20 4D 45 4E 55  20 45 4E 54 52 59 00 C8  |1:. MENU ENTRY..|
000000A0: 08 5A 00 99 22 93 20 20  20 20 20 20 12 20 C3 4F  |.Z..".      . .O|
000000B0: 4D 4D 4F 44 4F 52 45 20  C1 C4 D2 C5 D3 D3 C5 CE  |MMODORE ........|
000000C0: 20 36 34 20 20 92 11 11  00 DD 08 64 00 99 22 C6  | 64  ......d..".|
000000D0: 55 4E 4B 54 49 4F 4E 45  4E 3A 11 11 22 00 04 09  |UNKTIONEN:.."...|
000000E0: 6E 00 99 2C 22 12 C5 92  52 46 41 53 53 45 4E 20  |n..,"...RFASSEN |
000000F0: 45 49 4E 45 53 20 CE 41  4D 45 4E 53 2F C1 44 52  |EINES .AMENS/.DR|
00000100: 45 53 53 45 00 29 09 78  00 99 2C 22 12 C1 92 55  |ESSE.).x..,"...U|
00000110: 46 52 55 46 45 4E 20 56  4F 4E 20 CE 41 4D 45 4E  |FRUFEN VON .AMEN|
00000120: 2F C1 44 52 45 53 53 45  4E 00 4D 09 82 00 99 2C  |/.DRESSEN.M....,|
00000130: 22 12 C4 92 52 55 43 4B  45 4E 20 56 4F 4E 20 CE  |"...RUCKEN VON .|
00000140: 41 4D 45 4E 2F C1 44 52  45 53 53 45 4E 00 6D 09  |AMEN/.DRESSEN.m.|
00000150: 8C 00 99 2C 22 12 D2 92  55 4E 44 53 43 48 52 45  |...,"...UNDSCHRE|
00000160: 49 42 45 4E 2D C1 44 52  45 53 53 45 4E 00 8D 09  |IBEN-.DRESSEN...|
00000170: 96 00 99 2C 22 12 D4 92  45 4C 45 46 4F 4E 42 55  |...,"...ELEFONBU|
00000180: 43 48 20 C1 55 53 44 52  55 43 4B 45 4E 00 B1 09  |CH .USDRUCKEN...|
00000190: A0 00 99 2C 22 12 D3 92  50 45 49 43 48 45 52 4E  |...,"...PEICHERN|
000001A0: 20 44 45 52 20 CE 41 4D  45 4E 53 2D CC 49 53 54  | DER .AMENS-.IST|
000001B0: 45 00 C7 09 AA 00 99 2C  22 12 D0 92 52 4F 47 52  |E......,"...ROGR|
000001C0: 41 4D 4D 45 4E 44 45 00  ED 09 B4 00 99 22 11 D7  |AMMENDE......"..|
000001D0: 45 4C 43 48 45 20 20 20  22 3B 3A 58 24 B2 22 50  |ELCHE   ";:X$."P|
000001E0: 45 41 44 52 53 54 22 3A  8D 31 34 30 30 00 0E 0A  |EADRST":.1400...|
000001F0: BE 00 91 49 89 34 36 30  2C 37 37 30 2C 31 30 39  |...I.460,770,109|
00000200: 30 2C 39 33 30 2C 33 31  30 2C 31 31 37 30 00 45  |0,930,310,1170.E|
00000210: 0A C8 00 99 22 93 D3 45  49 54 45 4E 56 4F 52 53  |...."..EITENVORS|
00000220: 43 48 55 42 22 3B 3A 8D  31 33 39 30 3A 8B 49 B2  |CHUB";:.1390:.I.|
00000230: 30 A7 9F 31 2C 30 34 3A  4C B2 2E 31 3A 8D 31 33  |0..1,04:L..1:.13|
00000240: 36 30 3A A0 31 00 7C 0A  D2 00 8B 4F 46 A7 99 22  |60:.1.|....OF.."|
00000250: 11 D3 50 45 49 43 48 45  52 4E 20 44 45 52 20 2A  |..PEICHERN DER *|
00000260: CE 41 4D 45 20 CC 49 53  54 2A 22 3B 3A 8D 31 33  |.AME .IST*";:.13|
00000270: 39 30 3A 8B 49 B2 30 A7  8D 33 33 30 00 94 0A DC  |90:.I.0..330....|
00000280: 00 A0 31 3A 99 22 93 11  D4 53 43 48 55 45 53 53  |..1:."...SCHUESS|
00000290: 21 22 3A A2 00 AA 0A E6  00 8F 20 46 4F 52 4D 41  |!":....... FORMA|
000002A0: 54 20 54 48 45 20 4C 49  4E 45 00 DA 0A F0 00 58  |T THE LINE.....X|
000002B0: 24 B2 54 24 28 54 2C 30  29 3A 59 24 B2 54 24 28  |$.T$(T,0):Y$.T$(|
000002C0: 54 2C 31 29 3A 8B C3 28  59 24 29 B1 31 A7 58 24  |T,1):..(Y$).1.X$|
000002D0: B2 59 24 AA 22 20 22 AA  58 24 00 FF 0A FA 00 59  |.Y$." ".X$.....Y|
000002E0: 24 B2 54 24 28 54 2C 32  29 3A 8B C3 28 59 24 29  |$.T$(T,2):..(Y$)|
000002F0: B1 31 A7 58 24 B2 59 24  AA 22 20 22 AA 58 24 00  |.1.X$.Y$." ".X$.|
00000300: 25 0B 04 01 59 24 B2 54  24 28 54 2C 33 29 3A 8B  |%...Y$.T$(T,3):.|
00000310: C3 28 59 24 29 B1 31 A7  58 24 B2 58 24 AA 22 2C  |.(Y$).1.X$.X$.",|
00000320: 20 22 AA 59 24 00 67 0B  0E 01 41 24 28 4A 2C 30  | ".Y$.g...A$(J,0|
00000330: 29 B2 58 24 3A 81 49 B2  31 A4 33 3A 41 24 28 4A  |).X$:.I.1.3:A$(J|
00000340: 2C 49 29 B2 22 22 3A 59  24 B2 54 24 28 54 2C 49  |,I)."":Y$.T$(T,I|
00000350: AA 33 29 3A 8B C3 28 59  24 29 B1 31 A7 41 24 28  |.3):..(Y$).1.A$(|
00000360: 4A 2C 49 29 B2 59 24 00  98 0B 18 01 82 3A 8B C3  |J,I).Y$......:..|
00000370: 28 54 24 28 54 2C 37 29  29 B1 31 A7 41 24 28 4A  |(T$(T,7)).1.A$(J|
00000380: 2C 33 29 B2 41 24 28 4A  2C 33 29 AA 22 2C 20 22  |,3).A$(J,3).", "|
00000390: AA 54 24 28 54 2C 37 29  00 BF 0B 22 01 41 24 28  |.T$(T,7)...".A$(|
000003A0: 4A 2C 34 29 B2 54 24 28  54 2C 38 29 3A 58 B2 C6  |J,4).T$(T,8):X..|
000003B0: 28 54 24 28 54 2C 39 29  29 AF 31 32 37 3A 8E 00  |(T$(T,9)).127:..|
000003C0: CE 0B 2C 01 42 4C 4F 43  4B 53 20 B8 45 2E 00 E0  |..,.BLOCKS .E...|
000003D0: 0B 36 01 8F 20 4F 55 54  50 55 54 20 46 49 4C 45  |.6.. OUTPUT FILE|
000003E0: 00 ED 0B 40 01 8D 33 33  30 3A 89 38 30 00 08 0C  |...@..330:.80...|
000003F0: 4A 01 59 24 B2 48 24 3A  8D 33 39 30 3A 8B C5 28  |J.Y$.H$:.390:..(|
00000400: 58 24 29 89 31 39 33 30  00 11 0C 54 01 8B 58 A7  |X$).1930...T..X.|
00000410: 8E 00 22 0C 5E 01 4F 46  B2 30 3A 98 31 2C 44 24  |..".^.OF.0:.1,D$|
00000420: 3A 99 00 3F 0C 68 01 81  49 B2 30 A4 4E 58 3A 54  |:..?.h..I.0.NX:T|
00000430: B2 54 25 28 49 29 3A 99  54 24 28 54 2C 30 29 00  |.T%(I):.T$(T,0).|
00000440: 5A 0C 72 01 81 4A B2 30  A4 39 3A 98 31 2C 54 24  |Z.r..J.0.9:.1,T$|
00000450: 28 54 2C 4A 29 3A 82 4A  2C 49 00 72 0C 7C 01 98  |(T,J):.J,I.r.|..|
00000460: 31 2C 22 5C 22 3A 8E 3A  8F 20 43 4F 4D 50 4C 45  |1,"\":.:. COMPLE|
00000470: 54 45 00 8F 0C 86 01 8F  20 4F 50 45 4E 20 54 48  |TE...... OPEN TH|
00000480: 45 20 46 49 4C 45 20 54  4F 20 57 52 49 54 45 00  |E FILE TO WRITE.|
00000490: C1 0C 90 01 44 46 B2 30  3A 58 B2 30 3A 58 24 B2  |....DF.0:X.0:X$.|
000004A0: 22 22 3A 8B 43 46 B1 32  A7 99 22 93 C1 55 46 20  |"":.CF.2.."..UF |
000004B0: C4 41 54 41 53 45 54 54  45 22 3B 3A 8D 31 33 39  |.ATASETTE";:.139|
000004C0: 30 00 E2 0C 9A 01 8B 43  46 B2 32 B0 28 43 46 B2  |0......CF.2.(CF.|
000004D0: 33 AF 49 B2 30 29 A7 9F  31 2C 31 2C 31 2C 59 24  |3.I.0)..1,1,1,Y$|
000004E0: 3A 8E 00 11 0D A4 01 44  46 B2 AB 31 3A 4C 24 B2  |:......DF..1:L$.|
000004F0: 22 30 3A 22 AA 59 24 3A  9F 31 2C 30 38 2C 32 2C  |"0:".Y$:.1,08,2,|
00000500: 4C 24 3A 84 38 2C 58 3A  A0 31 3A 8B 58 89 34 35  |L$:.8,X:.1:.X.45|
00000510: 30 00 4C 0D AE 01 99 3A  99 22 11 C4 41 54 45 49  |0.L....:."..ATEI|
00000520: 20 45 58 49 53 54 49 45  52 54 20 2D 20 55 45 42  | EXISTIERT - UEB|
00000530: 45 52 53 43 48 52 45 49  42 45 4E 22 3B 3A 8D 31  |ERSCHREIBEN";:.1|
00000540: 33 39 30 3A 8B 49 A7 58  B2 31 3A 8E 00 60 0D B8  |390:.I.X.1:..`..|
00000550: 01 98 38 2C 22 53 22 4C  24 3A 98 38 2C 22 49 30  |..8,"S"L$:.8,"I0|
00000560: 00 80 0D C2 01 9F 31 2C  30 38 2C 33 2C 4C 24 AA  |......1,08,3,L$.|
00000570: 22 2C 53 2C 57 22 3A 84  38 2C 58 2C 58 24 3A 8E  |",S,W":.8,X,X$:.|
00000580: 00 96 0D CC 01 8F 20 43  52 45 41 54 45 20 41 4E  |...... CREATE AN|
00000590: 20 45 4E 54 52 59 00 CE  0D D6 01 8B 4E 58 B1 B2  | ENTRY......NX..|
000005A0: 56 A7 99 22 11 12 20 CC  45 49 44 45 52 20 4B 45  |V..".. .EIDER KE|
000005B0: 49 4E 20 D0 4C 41 54 5A  20 4D 45 48 52 20 46 52  |IN .LATZ MEHR FR|
000005C0: 45 49 21 22 3A 8D 31 33  37 30 3A 89 38 30 00 F6  |EI!":.1370:.80..|
000005D0: 0D E0 01 4E 58 B2 4E 58  AA 31 3A 4B B2 4E 58 3A  |...NX.NX.1:K.NX:|
000005E0: 54 B2 54 25 28 4B 29 3A  54 24 28 54 2C 39 29 B2  |T.T%(K):T$(T,9).|
000005F0: C7 28 31 32 38 29 00 1B  0E EA 01 4F 46 B2 31 3A  |.(128).....OF.1:|
00000600: 4D B2 33 39 3A 59 B2 30  3A 8F 20 47 45 54 20 4E  |M.39:Y.0:. GET N|
00000610: 41 4D 45 2F 41 44 44 52  45 53 53 00 28 0E F4 01  |AME/ADDRESS.(...|
00000620: 4A B2 30 3A 8D 32 33 30  00 5A 0E FE 01 99 22 93  |J.0:.230.Z....".|
00000630: 20 22 3B 3A 81 49 B2 31  A4 33 30 3A 99 22 A4 22  | ";:.I.1.30:."."|
00000640: 3B 3A 82 3A 81 49 B2 31  A4 35 3A 99 22 11 A5 9D  |;:.:.I.1.5:."...|
00000650: 22 3B 3A 82 3A 99 22 11  22 3B 00 85 0E 08 02 81  |";:.:.".";......|
00000660: 49 B2 31 A4 33 30 3A 99  22 9D A3 9D 22 3B 3A 82  |I.1.30:."...";:.|
00000670: 3A 81 49 B2 31 A4 35 3A  99 22 91 9D A7 22 3B 3A  |:.I.1.5:."...";:|
00000680: 82 3A 99 22 13 00 A7 0E  12 02 81 49 B2 30 A4 34  |.:.".......I.0.4|
00000690: 3A 99 22 1D 22 41 24 28  4A 2C 49 29 3A 82 3A 8B  |:."."A$(J,I):.:.|
000006A0: 59 B1 38 89 36 31 30 00  CD 0E 1C 02 99 22 13 11  |Y.8.610......"..|
000006B0: 11 11 11 11 11 11 11 11  22 42 30 24 3A 99 22 91  |........"B0$:.".|
000006C0: 22 46 24 28 59 29 3A 99  42 30 24 22 91 00 E2 0E  |"F$(Y):.B0$"....|
000006D0: 26 02 8D 31 34 37 30 3A  8B 43 B3 B1 31 33 89 35  |&..1470:.C..13.5|
000006E0: 31 30 00 0B 0F 30 02 99  3A 8B C9 28 58 24 2C 31  |10...0..:..(X$,1|
000006F0: 29 B2 22 20 22 A7 58 24  B2 C8 28 58 24 2C C3 28  |)." ".X$..(X$,.(|
00000700: 58 24 29 AB 31 29 3A 89  35 36 30 00 38 0F 3A 02  |X$).1):.560.8.:.|
00000710: 8B 58 24 B2 22 22 AF 54  24 28 54 2C 59 29 B1 22  |.X$."".T$(T,Y)."|
00000720: 22 A7 59 B2 59 AA 31 3A  91 32 AA 28 59 B3 39 29  |".Y.Y.1:.2.(Y.9)|
00000730: 89 35 34 30 2C 35 30 30  00 49 0F 44 02 8B C3 28  |.540,500.I.D...(|
00000740: 58 24 29 B1 31 89 36 30  30 00 7A 0F 4E 02 58 24  |X$).1.600.z.N.X$|
00000750: B2 22 2D 22 3A 8B 59 B2  30 A7 99 22 11 CC 4F 45  |."-":.Y.0.."..OE|
00000760: 53 43 48 45 4E 22 3B 3A  8D 31 33 39 30 3A 91 49  |SCHEN";:.1390:.I|
00000770: AA 31 89 37 34 30 2C 35  30 30 00 94 0F 58 02 54  |.1.740,500...X.T|
00000780: 24 28 54 2C 59 29 B2 58  24 3A 59 B2 59 AA 31 3A  |$(T,Y).X$:Y.Y.1:|
00000790: 89 35 30 30 00 B9 0F 62  02 58 24 B2 22 31 32 33  |.500...b.X$."123|
000007A0: 34 35 36 37 22 AA 52 24  3A 8F 20 47 45 54 20 43  |4567".R$:. GET C|
000007B0: 41 54 45 47 4F 52 49 45  53 00 D4 0F 6C 02 99 22  |ATEGORIES...l.."|
000007C0: 13 11 11 11 11 11 11 11  11 CB 41 54 45 47 4F 52  |..........ATEGOR|
000007D0: 49 45 4E 3A 00 EF 0F 76  02 81 49 B2 30 A4 36 3A  |IEN:...v..I.0.6:|
000007E0: 99 2C 3A 8B 58 AF 32 AE  49 A7 99 22 12 22 3B 00  |.,:.X.2.I..".";.|
000007F0: 02 10 80 02 99 49 AA 31  22 92 22 4B 24 28 49 29  |.....I.1"."K$(I)|
00000800: 3A 82 00 32 10 8A 02 99  22 11 D7 49 45 20 5A 55  |:..2...."..IE ZU|
00000810: 4F 52 44 4E 45 4E 2F 4C  4F 45 53 43 48 45 4E 3F  |ORDNEN/LOESCHEN?|
00000820: 20 20 20 9D 22 3B 3A 8D  31 34 31 30 3A 49 B2 32  |   .";:.1410:I.2|
00000830: AE 49 00 50 10 94 02 58  B2 28 58 B0 49 29 AF A8  |.I.P...X.(X.I)..|
00000840: 28 58 AF 49 29 3A 8B 58  B3 31 32 38 89 36 32 30  |(X.I):.X.128.620|
00000850: 00 71 10 9E 02 54 24 28  54 2C 39 29 B2 C7 28 58  |.q...T$(T,9)..(X|
00000860: 29 3A 8F 20 43 4F 4D 50  4C 45 54 45 20 45 44 49  |):. COMPLETE EDI|
00000870: 54 00 9B 10 A8 02 99 22  91 91 22 42 30 24 3A 99  |T......".."B0$:.|
00000880: 22 91 C1 4B 5A 45 50 54  49 45 52 54 22 3B 3A 8D  |"..KZEPTIERT";:.|
00000890: 31 33 39 30 3A 8B 49 89  34 39 30 00 BB 10 B2 02  |1390:.I.490.....|
000008A0: 8B 4E 58 B3 31 89 38 30  3A 8F 20 4D 55 53 54 20  |.NX.1.80:. MUST |
000008B0: 42 45 20 49 4E 20 4F 52  44 45 52 00 F5 10 BC 02  |BE IN ORDER.....|
000008C0: 58 24 B2 54 24 28 54 2C  30 29 3A 8B 4B B3 4E 58  |X$.T$(T,0):.K.NX|
000008D0: A7 81 49 B2 4B A4 4E 58  AB 31 3A 54 25 28 49 29  |..I.K.NX.1:T%(I)|
000008E0: B2 54 25 28 49 AA 31 29  3A 82 3A 8F 20 52 45 4D  |.T%(I.1):.:. REM|
000008F0: 4F 56 45 20 54 00 27 11  C6 02 81 49 B2 30 A4 4E  |OVE T.'....I.0.N|
00000900: 58 AB 31 3A 8B 54 24 28  54 25 28 49 29 2C 30 29  |X.1:.T$(T%(I),0)|
00000910: B3 58 24 A7 82 3A 8F 20  4C 4F 43 41 54 45 20 54  |.X$..:. LOCATE T|
00000920: 27 53 20 53 4C 4F 54 00  64 11 D0 02 8B 49 B3 4E  |'S SLOT.d....I.N|
00000930: 58 A7 4A B2 49 AA 31 3A  81 49 B2 4E 58 A4 4A A9  |X.J.I.1:.I.NX.J.|
00000940: AB 31 3A 54 25 28 49 29  B2 54 25 28 49 AB 31 29  |.1:T%(I).T%(I.1)|
00000950: 3A 82 3A 8F 20 4D 41 4B  45 20 52 4F 4F 4D 20 46  |:.:. MAKE ROOM F|
00000960: 4F 52 20 54 00 85 11 DA  02 54 25 28 49 29 B2 54  |OR T.....T%(I).T|
00000970: 3A 89 38 30 3A 8F 20 49  4E 53 45 52 54 20 54 2C  |:.80:. INSERT T,|
00000980: 20 45 58 49 54 00 9D 11  E4 02 8F 20 43 4C 45 41  | EXIT...... CLEA|
00000990: 4E 20 55 50 20 44 45 4C  45 54 49 4F 4E 00 B5 11  |N UP DELETION...|
000009A0: EE 02 81 49 B2 30 A4 39  3A 54 24 28 54 2C 49 29  |...I.0.9:T$(T,I)|
000009B0: B2 22 22 3A 82 00 E5 11  F8 02 4E 58 B2 4E 58 AB  |."":......NX.NX.|
000009C0: 31 3A 81 49 B2 4B A4 4E  58 3A 54 25 28 49 29 B2  |1:.I.K.NX:T%(I).|
000009D0: 54 25 28 49 AA 31 29 3A  82 3A 54 25 28 49 29 B2  |T%(I.1):.:T%(I).|
000009E0: 54 3A 89 38 30 00 00 12  02 03 8F 20 53 45 4C 45  |T:.80...... SELE|
000009F0: 43 54 2F 45 44 49 54 20  41 4E 20 45 4E 54 52 59  |CT/EDIT AN ENTRY|
00000A00: 00 24 12 0C 03 99 22 93  22 3A 99 22 D3 55 43 48  |.$....".":.".UCH|
00000A10: 45 4E 20 4E 41 43 48 3A  20 20 12 CE 92 41 43 48  |EN NACH:  ...ACH|
00000A20: 4E 41 4D 45 00 39 12 16  03 99 2C 22 20 20 20 20  |NAME.9....,"    |
00000A30: 12 D6 92 4F 52 4E 41 4D  45 00 4E 12 20 03 99 2C  |...ORNAME.N. ..,|
00000A40: 22 20 20 20 20 12 D0 92  CC DA 2F CF 52 54 00 61  |"    ...../.RT.a|
00000A50: 12 2A 03 99 2C 22 20 20  20 20 12 D3 92 54 41 41  |.*..,"    ...TAA|
00000A60: 54 00 79 12 34 03 99 2C  22 20 20 20 20 12 D4 92  |T.y.4..,"    ...|
00000A70: 45 4C 45 46 4F 4E 4E 52  2E 00 A5 12 3E 03 99 22  |ELEFONNR....>.."|
00000A80: 11 D7 45 4C 43 48 45 52  20 20 22 3B 3A 58 24 B2  |..ELCHER  ";:X$.|
00000A90: 22 4E 56 4C 4C 4C 4C 50  53 54 22 3A 8D 31 34 30  |"NVLLLLPST":.140|
00000AA0: 30 3A 46 B2 49 00 D8 12  48 03 4D B2 34 30 3A 99  |0:F.I...H.M.40:.|
00000AB0: 22 11 D3 43 48 4C 55 45  53 53 45 4C 57 4F 52 54  |"..CHLUESSELWORT|
00000AC0: 3A 20 22 3B 3A 8D 31 34  37 30 3A 5A 24 B2 58 24  |: ";:.1470:Z$.X$|
00000AD0: 3A 5A B2 C3 28 5A 24 29  00 F3 12 52 03 4B B2 30  |:Z..(Z$)...R.K.0|
00000AE0: 3A 8F 20 53 45 41 52 43  48 20 46 4F 52 20 46 49  |:. SEARCH FOR FI|
00000AF0: 45 4C 44 00 0E 13 5C 03  54 B2 54 25 28 4B 29 3A  |ELD...\.T.T%(K):|
00000B00: 58 24 B2 54 24 28 54 2C  46 29 3A 59 B2 30 00 3F  |X$.T$(T,F):Y.0.?|
00000B10: 13 66 03 81 49 B2 31 A4  C3 28 58 24 29 AB 5A AA  |.f..I.1..(X$).Z.|
00000B20: 31 3A 59 B2 28 CA 28 58  24 2C 49 2C 5A 29 B2 5A  |1:Y.(.(X$,I,Z).Z|
00000B30: 24 29 B0 59 3A 82 3A 8B  59 B2 30 89 39 30 30 00  |$).Y:.:.Y.0.900.|
00000B40: 63 13 70 03 4A B2 30 3A  8D 32 33 30 3A 99 22 93  |c.p.J.0:.230:.".|
00000B50: 22 3A 81 49 B2 30 A4 34  3A 99 41 24 28 30 2C 49  |":.I.0.4:.A$(0,I|
00000B60: 29 3A 82 00 8A 13 7A 03  99 22 11 D7 45 49 54 45  |):....z.."..EITE|
00000B70: 52 53 55 43 48 45 4E 20  20 20 20 22 3B 3A 8D 31  |RSUCHEN    ";:.1|
00000B80: 33 39 30 3A 8B 49 89 39  32 30 00 9F 13 84 03 4B  |390:.I.920.....K|
00000B90: B2 4B AA 31 3A 8B 4B B3  B2 4E 58 89 38 36 30 00  |.K.1:.K..NX.860.|
00000BA0: CD 13 8E 03 99 3A 99 22  11 C1 4C 4C 45 20 C5 49  |.....:."..LLE .I|
00000BB0: 4E 47 41 42 45 4E 20 55  45 42 45 52 50 52 55 45  |NGABEN UEBERPRUE|
00000BC0: 46 54 22 3A 8D 31 33 37  30 3A 89 38 30 00 EF 13  |FT":.1370:.80...|
00000BD0: 98 03 99 22 11 C1 45 4E  44 45 52 4E 22 3B 3A 8D  |..."..ENDERN";:.|
00000BE0: 31 33 39 30 3A 91 49 89  38 30 3A 89 34 39 30 00  |1390:.I.80:.490.|
00000BF0: 0B 14 A2 03 8F 20 46 49  4C 45 20 46 4F 52 20 57  |..... FILE FOR W|
00000C00: 4F 52 44 20 4D 41 43 48  49 4E 45 00 3D 14 AC 03  |ORD MACHINE.=...|
00000C10: 99 22 93 CE 41 4D 45 20  44 45 52 20 C4 41 54 45  |."..AME DER .ATE|
00000C20: 49 3A 20 20 20 22 3B 3A  4D B2 31 36 3A 8D 31 34  |I:   ";:M.16:.14|
00000C30: 37 30 3A 8B 58 24 B2 22  22 89 39 34 30 00 58 14  |70:.X$."".940.X.|
00000C40: B6 03 59 24 B2 58 24 3A  8D 33 39 30 3A 8B C5 28  |..Y$.X$:.390:..(|
00000C50: 58 24 29 89 31 39 33 30  00 62 14 C0 03 8B 58 89  |X$).1930.b....X.|
00000C60: 38 30 00 98 14 CA 03 8D  31 32 31 30 3A 99 22 11  |80......1210:.".|
00000C70: D3 50 45 5A 49 45 4C 4C  45 20 C1 55 53 57 41 48  |.PEZIELLE .USWAH|
00000C80: 4C 20 20 22 3B 3A 8D 31  33 39 30 3A 53 46 B2 49  |L  ";:.1390:SF.I|
00000C90: 3A 4A B2 30 3A 4B B2 30  00 BB 14 D4 03 54 B2 54  |:J.0:K.0.....T.T|
00000CA0: 25 28 4B 29 3A 8B 28 46  AF C6 28 54 24 28 54 2C  |%(K):.(F..(T$(T,|
00000CB0: 39 29 29 29 B2 30 89 31  30 34 30 00 D2 14 DE 03  |9))).0.1040.....|
00000CC0: 8B 53 46 A7 99 54 24 28  54 2C 30 29 3A 89 31 30  |.SF..T$(T,0):.10|
00000CD0: 32 30 00 F2 14 E8 03 8D  32 33 30 3A 99 22 93 22  |20......230:."."|
00000CE0: 3A 81 49 B2 30 A4 33 3A  99 41 24 28 4A 2C 49 29  |:.I.0.3:.A$(J,I)|
00000CF0: 3A 82 00 1A 15 F2 03 99  22 11 D5 45 42 45 52 4E  |:......."..EBERN|
00000D00: 45 48 4D 45 4E 20 20 20  20 20 22 3B 3A 8D 31 33  |EHMEN     ";:.13|
00000D10: 39 30 3A 8B 49 89 31 30  34 30 00 30 15 FC 03 8F  |90:.I.1040.0....|
00000D20: 20 4F 55 54 50 55 54 20  54 48 45 20 46 49 4C 45  | OUTPUT THE FILE|
00000D30: 00 51 15 06 04 81 49 B2  30 A4 37 3A 98 31 2C 54  |.Q....I.0.7:.1,T|
00000D40: 24 28 54 2C 49 29 3A 82  3A 44 46 B2 B6 28 44 46  |$(T,I):.:DF..(DF|
00000D50: 29 00 66 15 10 04 4B B2  4B AA 31 3A 8B 4B B3 B2  |).f...K.K.1:.K..|
00000D60: 4E 58 89 39 38 30 00 9B  15 1A 04 98 31 2C 22 5C  |NX.980......1,"\|
00000D70: 22 3A 8B 44 46 B1 AB 31  A7 91 53 46 AA 31 89 31  |":.DF..1..SF.1.1|
00000D80: 30 38 30 2C 38 30 3A 8F  20 20 2D 31 3D 45 4D 50  |080,80:.  -1=EMP|
00000D90: 54 59 20 44 49 53 43 46  49 4C 45 00 C6 15 24 04  |TY DISCFILE...$.|
00000DA0: 99 22 11 CB 45 49 4E 45  20 C1 44 52 45 53 53 45  |."..EINE .DRESSE|
00000DB0: 20 49 4E 20 44 49 45 53  45 52 20 CB 41 54 45 47  | IN DIESER .ATEG|
00000DC0: 4F 52 49 45 2E 22 00 DF  15 2E 04 A0 31 3A 98 38  |ORIE."......1:.8|
00000DD0: 2C 22 53 30 3A 22 59 24  3A 98 38 2C 22 49 30 00  |,"S0:"Y$:.8,"I0.|
00000DE0: ED 15 38 04 8D 31 33 37  30 3A 89 38 30 00 00 16  |..8..1370:.80...|
00000DF0: 42 04 8F 20 50 52 49 4E  54 20 4C 41 42 45 4C 53  |B.. PRINT LABELS|
00000E00: 00 1D 16 4C 04 53 46 B2  AB 31 3A 4D B2 33 30 3A  |...L.SF..1:M.30:|
00000E10: 9F 31 2C 30 34 3A 4C 4C  B2 39 39 39 39 00 47 16  |.1,04:LL.9999.G.|
00000E20: 56 04 99 22 11 C5 49 4E  2D 53 50 41 4C 54 49 47  |V.."..IN-SPALTIG|
00000E30: 45 20 C5 54 49 4B 45 54  54 45 4E 22 3B 3A 8D 31  |E .TIKETTEN";:.1|
00000E40: 33 39 30 3A 59 B2 49 00  6F 16 60 04 99 22 11 D0  |390:Y.I.o.`.."..|
00000E50: 52 4F 42 45 41 55 53 44  52 55 43 4B 20 20 20 22  |ROBEAUSDRUCK   "|
00000E60: 3B 3A 8D 31 33 39 30 3A  8B 49 89 31 31 36 30 00  |;:.1390:.I.1160.|
00000E70: 9D 16 6A 04 50 24 B2 22  2D 2D 2D 2D 2D 2D 2D 2D  |..j.P$."--------|
00000E80: 2D 2D 45 52 53 54 45 20  DA 45 49 4C 45 2D 2D 2D  |--ERSTE .EILE---|
00000E90: 2D 2D 2D 2D 2D 2D 22 3A  8D 31 33 34 30 00 D4 16  |------":.1340...|
00000EA0: 74 04 81 49 B2 30 A4 31  3A 50 24 B2 22 2D 2D 2D  |t..I.0.1:P$."---|
00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 22 3A 8D 31 33  |-----------":.13|
00000ED0: 34 30 3A 82 00 11 17 7E  04 50 24 B2 22 2D 2D 2D  |40:....~.P$."---|
00000EE0: 2D 2D 2D 2D 2D 2D 2D 4C  45 54 5A 54 45 20 DA 45  |-------LETZTE .E|
00000EF0: 49 4C 45 2D 2D 2D 2D 2D  2D 2D 2D 22 3A 81 49 B2  |ILE--------":.I.|
00000F00: 31 A4 33 3A 8D 31 33 34  30 3A 82 3A 89 31 31 32  |1.3:.1340:.:.112|
00000F10: 30 00 35 17 88 04 8D 31  32 31 30 3A 8D 31 32 35  |0.5....1210:.125|
00000F20: 30 3A 89 38 30 3A 8F 20  4F 55 54 50 55 54 20 4C  |0:.80:. OUTPUT L|
00000F30: 41 42 45 4C 53 00 4C 17  92 04 8F 20 50 52 49 4E  |ABELS.L.... PRIN|
00000F40: 54 20 50 48 4F 4E 45 20  42 4F 4F 4B 00 68 17 9C  |T PHONE BOOK.h..|
00000F50: 04 53 46 B2 30 3A 4D B2  33 36 3A 59 B2 31 3A 9F  |.SF.0:M.36:Y.1:.|
00000F60: 31 2C 30 34 3A 4C B2 30  00 90 17 A6 04 99 22 11  |1,04:L.0......".|
00000F70: DA 45 49 4C 45 4E 20 50  52 4F 20 D3 45 49 54 45  |.EILEN PRO .EITE|
00000F80: 20 22 4C 30 22 9D 9D 9D  9D 9D 22 3B 3A 85 4C 4C  | "L0".....";:.LL|
00000F90: 00 AA 17 B0 04 8D 31 32  31 30 3A 8D 31 32 35 30  |......1210:.1250|
00000FA0: 3A 8D 31 33 36 30 3A 89  38 30 00 BD 17 BA 04 8F  |:.1360:.80......|
00000FB0: 20 47 45 54 20 43 41 54  45 47 4F 52 59 00 F5 17  | GET CATEGORY...|
00000FC0: C4 04 99 22 93 D3 55 43  48 45 4E 20 4E 41 43 48  |..."..UCHEN NACH|
00000FD0: 3A 22 3A 81 49 B2 30 A4  36 3A 99 2C 22 12 22 CA  |:":.I.0.6:.,".".|
00000FE0: 28 C4 28 49 AA 31 29 2C  32 29 22 92 20 22 4B 24  |(.(I.1),2)". "K$|
00000FF0: 28 49 29 3A 82 00 31 18  CE 04 99 2C 22 12 38 92  |(I):..1....,".8.|
00001000: 20 C1 4C 4C 45 22 3A 99  22 11 C9 48 52 45 20 D7  | .LLE":."..HRE .|
00001010: 41 48 4C 20 20 22 3B 3A  58 24 B2 22 31 32 33 34  |AHL  ";:X$."1234|
00001020: 35 36 37 38 22 3A 8D 31  34 30 30 3A 46 B2 32 AE  |5678":.1400:F.2.|
00001030: 49 00 50 18 D8 04 8E 3A  8F 20 41 4C 4C 20 41 52  |I.P....:. ALL AR|
00001040: 45 20 4F 52 2D 45 44 20  57 49 54 48 20 31 32 38  |E OR-ED WITH 128|
00001050: 00 63 18 E2 04 8F 20 50  52 49 4E 54 20 45 49 54  |.c.... PRINT EIT|
00001060: 48 45 52 00 92 18 EC 04  4A B2 59 3A 81 4B B2 30  |HER.....J.Y:.K.0|
00001070: A4 4E 58 3A 54 B2 54 25  28 4B 29 3A 8B 28 46 AF  |.NX:T.T%(K):.(F.|
00001080: C6 28 54 24 28 54 2C 39  29 29 29 B2 30 89 31 33  |.(T$(T,9))).0.13|
00001090: 32 30 00 B0 18 F6 04 4A  B2 59 AB 4A 3A 8D 32 33  |20.....J.Y.J:.23|
000010A0: 30 3A 8B 53 46 A7 41 24  28 4A 2C 34 29 B2 22 22  |0:.SF.A$(J,4).""|
000010B0: 00 BE 18 00 05 8B 4A B3  59 89 31 33 32 30 00 D9  |......J.Y.1320..|
000010C0: 18 0A 05 81 49 B2 30 A4  34 3A 50 24 B2 C8 28 41  |....I.0.4:P$..(A|
000010D0: 24 28 30 2C 49 29 2C 4D  29 00 03 19 14 05 8B 4A  |$(0,I),M)......J|
000010E0: A7 50 24 B2 50 24 AA C8  28 42 24 2C 4D AA 36 AB  |.P$.P$..(B$,M.6.|
000010F0: C3 28 50 24 29 29 AA C8  28 41 24 28 31 2C 49 29  |.(P$))..(A$(1,I)|
00001100: 2C 4D 29 00 15 19 1E 05  8D 31 33 34 30 3A 82 3A  |,M)......1340:.:|
00001110: 8D 31 33 34 30 00 46 19  28 05 82 4B 3A 8B 4A B3  |.1340.F.(..K:.J.|
00001120: 59 A7 81 49 B2 30 A4 34  3A 50 24 B2 C8 28 41 24  |Y..I.0.4:P$..(A$|
00001130: 28 30 2C 49 29 2C 4D 29  3A 8D 31 33 34 30 3A 82  |(0,I),M):.1340:.|
00001140: 3A 8D 31 33 34 30 00 4C  19 32 05 8E 00 79 19 3C  |:.1340.L.2...y.<|
00001150: 05 4C B2 4C AA 31 3A 98  31 2C 22 11 22 AA 50 24  |.L.L.1:.1,".".P$|
00001160: 3A 50 24 B2 22 22 3A 8B  4C B3 4C 4C A7 8E 3A 8F  |:P$."":.L.LL..:.|
00001170: 20 4C 49 4E 45 20 4F 55  54 00 9B 19 46 05 4C B2  | LINE OUT...F.L.|
00001180: 4C AA 31 3A 98 31 2C 22  11 22 AA 50 24 3A 50 24  |L.1:.1,".".P$:P$|
00001190: B2 22 22 3A 8B 4C B3 4C  4C A7 8E 00 C9 19 50 05  |."":.L.LL.....P.|
000011A0: 8B 4C A7 81 4C B2 4C A4  4C 50 AB 31 3A 98 31 3A  |.L..L.L.LP.1:.1:|
000011B0: 82 3A 4C B2 30 3A 8E 3A  8F 20 46 49 4E 49 53 48  |.:L.0:.:. FINISH|
000011C0: 20 54 48 45 20 50 41 47  45 00 D9 19 5A 05 8F 20  | THE PAGE...Z.. |
000011D0: 55 54 49 4C 49 54 49 45  53 00 0D 1A 64 05 99 22  |UTILITIES...d.."|
000011E0: 11 12 20 D7 45 49 54 45  52 20 4D 49 54 20 42 45  |.. .EITER MIT BE|
000011F0: 4C 49 45 42 49 47 45 52  20 D4 41 53 54 45 22 3B  |LIEBIGER .ASTE";|
00001200: 3A 8D 35 30 3A 99 3A 99  22 93 22 3A 8E 00 18 1A  |:.50:.:.".":....|
00001210: 6E 05 58 24 B2 22 4A 4E  00 23 1A 78 05 99 22 3F  |n.X$."JN.#.x.."?|
00001220: 20 22 3B 00 4D 1A 82 05  8D 35 30 3A 81 49 B2 31  | ";.M....50:.I.1|
00001230: A4 C3 28 58 24 29 3A 8B  43 24 B3 B1 CA 28 58 24  |..(X$):.C$...(X$|
00001240: 2C 49 2C 31 29 A7 82 3A  89 31 34 31 30 00 66 1A  |,I,1)..:.1410.f.|
00001250: 8C 05 49 B2 49 AB 31 3A  99 43 24 3B 3A 8B 43 B2  |..I.I.1:.C$;:.C.|
00001260: 31 33 A7 99 3A 8E 00 82  1A 96 05 A1 57 24 3A 8B  |13..:.......W$:.|
00001270: 57 24 B2 22 22 A7 99 22  A4 9D 22 3B 3A 89 31 34  |W$."".."..";:.14|
00001280: 33 30 00 98 1A A0 05 99  22 20 9D 22 3B 3A 8B 57  |30......" .";:.W|
00001290: 24 B2 52 24 A7 99 3A 8E  00 B1 1A AA 05 8B 57 24  |$.R$..:.......W$|
000012A0: B2 C7 28 32 30 29 A7 99  57 24 3B 3A 89 31 34 31  |..(20)..W$;:.141|
000012B0: 30 00 BB 1A B4 05 89 31  34 33 30 00 D6 1A BE 05  |0......1430.....|
000012C0: 58 24 B2 22 22 3A 8F 20  49 4E 50 55 54 20 41 20  |X$."":. INPUT A |
000012D0: 53 54 52 49 4E 47 00 E7  1A C8 05 A1 43 24 3A 8B  |STRING......C$:.|
000012E0: 43 24 89 31 34 38 30 00  F7 1A D2 05 8D 36 30 3A  |C$.1480......60:|
000012F0: 8B 43 B2 31 33 A7 8E 00  26 1B DC 05 8B 43 B2 32  |.C.13...&....C.2|
00001300: 30 AF 58 24 B1 22 22 A7  99 43 24 3B 3A 58 24 B2  |0.X$.""..C$;:X$.|
00001310: C8 28 58 24 2C C3 28 58  24 29 AB 31 29 3A 8F 20  |.(X$,.(X$).1):. |
00001320: 44 45 4C 45 54 45 00 4F  1B E6 05 8B 28 31 32 37  |DELETE.O....(127|
00001330: AF 43 29 B3 33 32 89 31  34 39 30 3A 8F 20 43 55  |.C).32.1490:. CU|
00001340: 52 53 4F 52 20 43 48 41  52 41 43 54 45 52 53 00  |RSOR CHARACTERS.|
00001350: 78 1B F0 05 8B 28 4B 25  28 43 29 B0 47 29 A7 99  |x....(K%(C).G)..|
00001360: 43 24 3B 3A 58 24 B2 58  24 AA 43 24 3A 8B C3 28  |C$;:X$.X$.C$:..(|
00001370: 58 24 29 B1 B2 4D A7 8E  00 82 1B FA 05 89 31 34  |X$)..M........14|
00001380: 39 30 00 93 1B 04 06 8F  20 49 4E 49 54 49 41 4C  |90...... INITIAL|
00001390: 49 5A 45 00 C0 1B 0E 06  4C 30 B2 36 30 3A 4C 50  |IZE.....L0.60:LP|
000013A0: B2 37 32 3A 4E 58 B2 AB  31 3A 52 24 B2 C7 28 31  |.72:NX..1:R$..(1|
000013B0: 33 29 3A 48 24 B2 22 CE  41 4D 45 20 CC 49 53 54  |3):H$.".AME .IST|
000013C0: 00 E1 1B 18 06 86 4B 25  28 32 35 35 29 2C 41 24  |......K%(255),A$|
000013D0: 28 31 2C 34 29 2C 4B 24  28 36 29 2C 46 24 28 38  |(1,4),K$(6),F$(8|
000013E0: 29 00 22 1C 22 06 99 22  93 8E 13 13 0F 11 11 11  |).".".."........|
000013F0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001400: 11 11 11 11 11 11 22 A6  33 39 29 22 8F 05 22 3A  |......".39)"..":|
00001410: 97 35 39 34 36 38 2C 31  34 3A 8F 20 46 4F 52 4D  |.59468,14:. FORM|
00001420: 41 54 00 5B 1C 2C 06 97  35 33 32 37 32 2C 32 B0  |AT.[.,..53272,2.|
00001430: C2 28 35 33 32 37 32 29  3A 99 22 93 20 20 20 20  |.(53272):.".    |
00001440: 20 12 20 C3 4F 4D 4D 4F  44 4F 52 45 20 C1 C4 D2  | . .OMMODORE ...|
00001450: C5 D3 D3 C5 CE 20 36 34  20 20 92 00 75 1C 36 06  |..... 64  ..u.6.|
00001460: 8D 31 39 34 30 3A 20 8F  20 43 4F 4C 4F 52 20 43  |.1940: . COLOR C|
00001470: 48 41 4E 47 45 00 BA 1C  40 06 99 22 11 12 CB 92  |HANGE...@.."....|
00001480: 41 53 53 45 54 54 45 2C  20 12 C4 92 49 53 4B 45  |ASSETTE, ...ISKE|
00001490: 54 54 45 2C 20 4F 44 45  52 20 12 42 92 45 49 44  |TTE, ODER .B.EID|
000014A0: 45 53 22 3B 3A 58 24 B2  22 44 4B 42 22 3A 8D 31  |ES";:X$."DKB":.1|
000014B0: 34 30 30 3A 43 46 B2 49  AA 31 00 F2 1C 4A 06 81  |400:CF.I.1...J..|
000014C0: 49 B2 33 32 A4 39 30 3A  87 4B 25 28 49 29 3A 82  |I.32.90:.K%(I):.|
000014D0: 3A 81 49 B2 31 39 33 A4  32 31 38 3A 4B 25 28 49  |:.I.193.218:K%(I|
000014E0: 29 B2 31 3A 82 3A 8F 20  43 48 41 52 20 41 52 52  |).1:.:. CHAR ARR|
000014F0: 41 59 00 29 1D 54 06 42  24 B2 22 20 20 20 20 20  |AY.).T.B$."     |
00001500: 22 3A 81 49 B2 31 A4 35  3A 42 24 B2 42 24 AA 42  |":.I.1.5:B$.B$.B|
00001510: 24 3A 82 3A 42 30 24 B2  C8 28 42 24 2C 33 39 29  |$:.:B0$..(B$,39)|
00001520: 3A 9F 38 2C 30 38 2C 31  35 00 64 1D 5E 06 99 22  |:.8,08,15.d.^.."|
00001530: 11 D4 41 47 45 53 44 41  54 55 4D 3A 20 22 3A 4D  |..AGESDATUM: ":M|
00001540: B2 36 30 3A 47 B2 31 3A  8D 31 34 37 30 3A 47 B2  |.60:G.1:.1470:G.|
00001550: 30 3A 44 24 B2 58 24 3A  8B 44 24 B2 22 22 A7 44  |0:D$.X$:.D$."".D|
00001560: 24 B2 22 2D 00 88 1D 68  06 99 3A 81 49 B2 30 A4  |$."-...h..:.I.0.|
00001570: 38 3A 87 46 24 28 49 29  3A 82 3A 8F 20 46 49 45  |8:.F$(I):.:. FIE|
00001580: 4C 44 20 4E 41 4D 45 53  00 A9 1D 72 06 81 49 B2  |LD NAMES...r..I.|
00001590: 30 A4 36 3A 87 4B 24 28  49 29 3A 82 3A 8F 20 43  |0.6:.K$(I):.:. C|
000015A0: 41 54 45 47 4F 52 49 45  53 00 E2 1D 7C 06 56 B2  |ATEGORIES...|.V.|
000015B0: B5 28 28 B8 28 30 29 AB  32 30 30 30 29 AD 31 37  |.((.(0).2000).17|
000015C0: 30 29 3A 86 54 24 28 56  2C 39 29 2C 54 25 28 56  |0):.T$(V,9),T%(V|
000015D0: 29 3A 81 49 B2 30 A4 56  3A 54 25 28 49 29 B2 49  |):.I.0.V:T%(I).I|
000015E0: 3A 82 00 F3 1D 86 06 8F  20 49 4E 50 55 54 20 46  |:....... INPUT F|
000015F0: 49 4C 45 00 16 1E 90 06  8B 43 46 B1 32 A7 99 22  |ILE......CF.2.."|
00001600: 11 D6 4F 4E 20 C4 41 54  41 53 45 54 54 45 22 3B  |..ON .ATASETTE";|
00001610: 3A 8D 31 33 39 30 00 47  1E 9A 06 8B 43 46 B2 32  |:.1390.G....CF.2|
00001620: B0 28 43 46 B2 33 AF 49  B2 30 29 A7 8D 31 37 39  |.(CF.3.I.0)..179|
00001630: 30 3A 91 49 89 38 30 3A  9F 31 2C 31 2C 30 2C 48  |0:.I.80:.1,1,0,H|
00001640: 24 3A 89 31 37 33 30 00  6B 1E A4 06 A0 31 3A 9F  |$:.1730.k....1:.|
00001650: 31 2C 30 38 2C 32 2C 48  24 3A 84 38 2C 58 2C 58  |1,08,2,H$:.8,X,X|
00001660: 24 3A 8B 58 B2 30 89 31  37 33 30 00 7B 1E AE 06  |$:.X.0.1730.{...|
00001670: 8D 31 37 39 30 3A 8B 49  89 38 30 00 B4 1E B8 06  |.1790:.I.80.....|
00001680: 99 22 11 CC 45 47 45 4E  20 D3 49 45 20 42 49 54  |."..EGEN .IE BIT|
00001690: 54 45 20 44 49 45 20 C4  49 53 4B 45 54 54 45 20  |TE DIE .ISKETTE |
000016A0: 45 49 4E 20 55 4E 44 22  3A 8D 31 33 37 30 3A 89  |EIN UND":.1370:.|
000016B0: 31 37 30 30 00 BE 1E C2  06 58 24 B2 22 22 00 E0  |1700.....X$.""..|
000016C0: 1E CC 06 A1 23 31 2C 43  24 3A 8B 43 24 B3 B1 52  |....#1,C$:.C$..R|
000016D0: 24 A7 58 24 B2 58 24 AA  43 24 3A 89 31 37 34 30  |$.X$.X$.C$:.1740|
000016E0: 00 0C 1F D6 06 99 22 93  C5 4E 54 45 52 45 44 3A  |......"..NTERED:|
000016F0: 20 12 22 58 24 3A 99 3A  8F 20 44 41 54 45 4C 49  | ."X$:.:. DATELI|
00001700: 4E 45 20 46 52 4F 4D 20  46 49 4C 45 00 42 1F E0  |NE FROM FILE.B..|
00001710: 06 81 49 B2 30 A4 56 3A  84 31 2C 58 24 3A 8B 58  |..I.0.V:.1,X$:.X|
00001720: 24 B2 22 5C 22 B0 53 54  B1 30 89 31 37 38 30 3A  |$."\".ST.0.1780:|
00001730: 8F 20 52 45 41 44 49 4E  47 20 43 4F 4D 50 4C 45  |. READING COMPLE|
00001740: 54 45 00 73 1F EA 06 99  58 24 3A 54 24 28 49 2C  |TE.s....X$:T$(I,|
00001750: 30 29 B2 58 24 3A 81 4A  B2 31 A4 39 3A 84 31 2C  |0).X$:.J.1.9:.1,|
00001760: 54 24 28 49 2C 4A 29 3A  82 3A 54 25 28 49 29 B2  |T$(I,J):.:T%(I).|
00001770: 49 3A 82 00 8D 1F F4 06  4E 58 B2 49 AB 31 3A 89  |I:......NX.I.1:.|
00001780: 38 30 3A 8F 20 43 4F 4D  50 4C 45 54 45 00 AF 1F  |80:. COMPLETE...|
00001790: FE 06 99 22 11 CE 45 55  45 20 C4 41 54 45 49 22  |..."..EUE .ATEI"|
000017A0: 3B 3A 8D 31 33 39 30 3A  49 B2 31 AB 49 3A 8E 00  |;:.1390:I.1.I:..|
000017B0: D1 1F 08 07 8F 20 41 43  43 45 50 54 41 42 4C 45  |..... ACCEPTABLE|
000017C0: 20 43 48 41 52 41 43 54  45 52 53 20 33 32 2D 39  | CHARACTERS 32-9|
000017D0: 30 00 16 20 12 07 83 31  2C 31 2C 30 2C 31 2C 31  |0.. ...1,1,0,1,1|
000017E0: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 30  |,1,1,1,1,1,1,1,0|
000017F0: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001800: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 30 2C 30 2C 31  |,1,1,1,1,1,0,0,1|
00001810: 2C 31 2C 31 2C 31 00 51  20 1C 07 83 31 2C 31 2C  |,1,1,1.Q ...1,1,|
00001820: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001830: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001840: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001850: 31 00 9E 20 26 07 83 22  CE 41 43 48 4E 41 4D 45  |1.. &..".ACHNAME|
00001860: 20 22 2C 22 D6 4F 52 4E  41 4D 45 20 20 20 22 2C  | ",".ORNAME   ",|
00001870: 22 C1 4E 52 45 44 45 20  28 44 2E 48 2E 20 C8 45  |".NREDE (D.H. .E|
00001880: 52 52 2C 20 C6 52 41 55  2C 20 C6 41 4D 2E 2C 20  |RR, .RAU, .AM., |
00001890: C6 49 52 4D 41 29 22 2C  22 D4 49 54 45 4C 00 DA  |.IRMA)",".ITEL..|
000018A0: 20 30 07 83 22 CF 52 47  41 4E 49 53 41 54 49 4F  | 0..".RGANISATIO|
000018B0: 4E 22 2C 22 D3 54 52 41  53 53 45 22 2C 22 D0 CC  |N",".TRASSE","..|
000018C0: DA 2F CF 52 54 22 2C 22  D3 54 41 41 54 22 2C 22  |./.RT",".TAAT","|
000018D0: D4 45 4C 45 46 4F 4E 4E  52 2E 00 F1 20 3A 07 8F  |.ELEFONNR... :..|
000018E0: 20 53 45 56 45 4E 20 43  41 54 45 47 4F 52 49 45  | SEVEN CATEGORIE|
000018F0: 53 00 00 21 44 07 83 20  22 C6 41 4D 49 4C 49 45  |S..!D.. ".AMILIE|
00001900: 00 0F 21 4E 07 83 20 22  C6 52 45 55 4E 44 45 00  |..!N.. ".REUNDE.|
00001910: 26 21 58 07 83 20 22 C1  52 42 45 49 54 53 4B 4F  |&!X.. ".RBEITSKO|
00001920: 4C 4C 45 47 45 4E 00 34  21 62 07 83 20 22 C1 45  |LLEGEN.4!b.. ".E|
00001930: 52 5A 54 45 00 49 21 6C  07 83 20 22 C9 4E 53 54  |RZTE.I!l.. ".NST|
00001940: 49 54 55 54 49 4F 4E 45  4E 00 57 21 76 07 83 20  |ITUTIONEN.W!v.. |
00001950: 22 D3 43 48 55 4C 45 00  68 21 80 07 83 20 22 D3  |".CHULE.h!... ".|
00001960: 4F 4E 53 54 49 47 45 53  00 7A 21 8A 07 99 58 24  |ONSTIGES.z!...X$|
00001970: 3A 8D 31 33 37 30 3A 89  38 30 00 95 21 94 07 8F  |:.1370:.80..!...|
00001980: 20 43 4F 4C 4F 52 20 43  48 41 4E 47 45 20 52 4F  | COLOR CHANGE RO|
00001990: 55 54 49 4E 45 00 B9 21  9E 07 96 A5 43 28 58 29  |UTINE..!....C(X)|
000019A0: B2 C2 28 58 29 AA 31 AA  31 36 AC 28 28 C2 28 58  |..(X).1.16.((.(X|
000019B0: 29 AF 31 35 29 B2 31 35  29 00 DB 21 A8 07 99 22  |).15).15)..!..."|
000019C0: 13 11 11 11 12 C6 31 92  3D 20 C6 41 52 42 45 20  |......1.= .ARBE |
000019D0: 44 45 53 20 D2 41 4E 44  45 53 22 00 FC 21 B2 07  |DES .ANDES"..!..|
000019E0: 99 22 11 11 12 C6 33 92  3D 20 C8 49 4E 54 45 52  |."....3.= .INTER|
000019F0: 47 52 55 4E 44 2D C6 41  52 42 45 22 00 1D 22 BC  |GRUND-.ARBE"..".|
00001A00: 07 99 22 11 11 12 C6 35  92 3D 20 C6 41 52 42 45  |.."....5.= .ARBE|
00001A10: 20 44 45 52 20 DA 45 49  43 48 45 4E 22 00 37 22  | DER .EICHEN".7"|
00001A20: C6 07 99 22 11 11 12 D2  C5 D4 D5 D2 CE 92 3D 20  |..."..........= |
00001A30: D7 45 49 54 45 52 22 00  48 22 D0 07 A1 43 24 3A  |.EITER".H"...C$:|
00001A40: 8B 43 24 89 32 30 30 30  00 5C 22 DA 07 A1 43 24  |.C$.2000.\"...C$|
00001A50: 3A 8B 43 24 B2 22 22 89  32 30 31 30 00 82 22 E4  |:.C$."".2010..".|
00001A60: 07 43 B2 C6 28 43 24 29  3A 8B 43 B2 31 33 35 A7  |.C..(C$):.C.135.|
00001A70: 97 36 34 36 2C A5 43 28  36 34 36 29 3A 89 31 39  |.646,.C(646):.19|
00001A80: 36 30 00 AE 22 EE 07 43  B2 C6 28 43 24 29 3A 8B  |60.."..C..(C$):.|
00001A90: 43 B2 31 33 33 B0 43 B2  31 33 34 A7 58 B2 35 33  |C.133.C.134.X.53|
00001AA0: 31 34 37 AA 43 3A 97 58  2C A5 43 28 58 29 00 BE  |147.C:.X,.C(X)..|
00001AB0: 22 F8 07 8B 43 B3 B1 31  33 89 32 30 30 30 00 C4  |"...C..13.2000..|
00001AC0: 22 02 08 8E 00 00 00 55  F7 FF                    |"......U..      |

....... * ADRESS 64 *.1...."..":.53281,0
:.53280,0.E....G(14):.650,128.O.(..1540.
^.2..C$:.C$.50.{.<..C$:.C$.." .";:C.F(C$
):....F.."..";:.60...P. 1:. MENU ENTRY.H
.Z..".      . COMMODORE ADRESSEN 64  ...
...D.."FUNKTIONEN:.."...N..,".E.RFASSEN 
EINES NAMENS/ADRESSE.).X..,".A.UFRUFEN V
ON NAMEN/ADRESSEN.M....,".D.RUCKEN VON N
AMEN/ADRESSEN.M....,".R.UNDSCHREIBEN-ADR
ESSEN......,".T.ELEFONBUCH AUSDRUCKEN...
 ..,".S.PEICHERN DER NAMENS-LISTE.G....,
".P.ROGRAMMENDE......".WELCHE   ";:X$."P
EADRST":.1400......I.460,770,1090,930,31
0,1170.E.H..".SEITENVORSCHUB";:.1390:.I.
0..1,04:L..1:.1360: 1.|.R..OF..".SPEICHE
RN DER *NAME LIST*";:.1390:.I.0..330....
. 1:."..TSCHUESS!":....... FORMAT THE LI
NE.Z...X$.T$(T,0):Y$.T$(T,1):.C(Y$).1.X$
.Y$." ".X$.....Y$.T$(T,2):.C(Y$).1.X$.Y$
." ".X$.%...Y$.T$(T,3):.C(Y$).1.X$.X$.",
 ".Y$.G...A$(J,0).X$:.I.1.3:A$(J,I)."":Y
$.T$(T,I.3):.C(Y$).1.A$(J,I).Y$......:.C
(T$(T,7)).1.A$(J,3).A$(J,3).", ".T$(T,7)
...".A$(J,4).T$(T,8):X.F(T$(T,9)).127:..
N.,.BLOCKS .E....6.. OUTPUT FILE...@..33
0:.80...J.Y$.H$:.390:.E(X$).1930...T..X.
..".^.OF.0:.1,D$:..?.H..I.0.NX:T.T%(I):.
T$(T,0).Z.R..J.0.9:.1,T$(T,J):.J,I.R.|..
1,"\":.:. COMPLETE...... OPEN THE FILE T
O WRITE.A...DF.0:X.0:X$."":.CF.2..".AUF 
DATASETTE";:.1390......CF.2.(CF.3.I.0)..
1,1,1,Y$:......DF..1:L$."0:".Y$:.1,08,2,
L$:.8,X: 1:.X.450.L....:.".DATEI EXISTIE
RT - UEBERSCHREIBEN";:.1390:.I.X.1:..`..
..8,"S"L$:.8,"I0...B..1,08,3,L$.",S,W":.
8,X,X$:....L.. CREATE AN ENTRY.N.V..NX..
V..".. LEIDER KEIN PLATZ MEHR FREI!":.13
70:.80.....NX.NX.1:K.NX:T.T%(K):T$(T,9).
G(128).....OF.1:M.39:Y.0:. GET NAME/ADDR
ESS.(...J.0:.230.Z....". ";:.I.1.30:."."
;:.:.I.1.5:."...";:.:.".";......I.1.30:.
"...";:.:.I.1.5:."...";:.:.".......I.0.4
:."."A$(J,I):.:.Y.8.610.M...."..........
"B0$:."."F$(Y):.B0$"....&..1470:.C..13.5
10...0..:.I(X$,1)." ".X$.H(X$,C(X$).1):.
560.8.:..X$."".T$(T,Y)."".Y.Y.1:.2.(Y.9)
.540,500.I.D..C(X$).1.600.Z.N.X$."-":.Y.
0..".LOESCHEN";:.1390:.I.1.740,500...X.T
$(T,Y).X$:Y.Y.1:.500...B.X$."1234567".R$
:. GET CATEGORIES.T.L..".........KATEGOR
IEN:...V..I.0.6:.,:.X.2.I..".";......I.1
"."K$(I):..2....".WIE ZUORDNEN/LOESCHEN?
   .";:.1410:I.2.I.P...X.(X.I)..(X.I):.X
.128.620.Q...T$(T,9).G(X):. COMPLETE EDI
T......".."B0$:.".AKZEPTIERT";:.1390:.I.
490......NX.1.80:. MUST BE IN ORDER.....
X$.T$(T,0):.K.NX..I.K.NX.1:T%(I).T%(I.1)
:.:. REMOVE T.'.F..I.0.NX.1:.T$(T%(I),0)
.X$..:. LOCATE T'S SLOT.D.P..I.NX.J.I.1:
.I.NX.J..1:T%(I).T%(I.1):.:. MAKE ROOM F
OR T...Z.T%(I).T:.80:. INSERT T, EXIT...
... CLEAN UP DELETION......I.0.9:T$(T,I)
."":......NX.NX.1:.I.K.NX:T%(I).T%(I.1):
.:T%(I).T:.80...... SELECT/EDIT AN ENTRY
.$....".":."SUCHEN NACH:  .N.ACHNAME.9..
..,"    .V.ORNAME.N. ..,"    .P.LZ/ORT.A
.*..,"    .S.TAAT.Y.4..,"    .T.ELEFONNR
....>..".WELCHER  ";:X$."NVLLLLPST":.140
0:F.I.X.H.M.40:.".SCHLUESSELWORT: ";:.14
70:Z$.X$:Z.C(Z$)...R.K.0:. SEARCH FOR FI
ELD...\.T.T%(K):X$.T$(T,F):Y.0.?.F..I.1.
C(X$).Z.1:Y.(J(X$,I,Z).Z$).Y:.:.Y.0.900.
C.P.J.0:.230:.".":.I.0.4:.A$(0,I):....Z.
.".WEITERSUCHEN    ";:.1390:.I.920.....K
.K.1:.K..NX.860.M....:.".ALLE EINGABEN U
EBERPRUEFT":.1370:.80......".AENDERN";:.
1390:.I.80:.490...... FILE FOR WORD MACH
INE.=....".NAME DER DATEI:   ";:M.16:.14
70:.X$."".940.X...Y$.X$:.390:.E(X$).1930
.B....X.80...J..1210:.".SPEZIELLE AUSWAH
L  ";:.1390:SF.I:J.0:K.0...T.T.T%(K):.(F
.F(T$(T,9))).0.1040.R....SF..T$(T,0):.10
20......230:.".":.I.0.3:.A$(J,I):.......
".UEBERNEHMEN     ";:.1390:.I.1040.0....
 OUTPUT THE FILE.Q....I.0.7:.1,T$(T,I):.
:DF..(DF).F...K.K.1:.K..NX.980......1,"\
":.DF..1..SF.1.1080,80:.  -1=EMPTY DISCF
ILE.F.$..".KEINE ADRESSE IN DIESER KATEG
ORIE."..... 1:.8,"S0:"Y$:.8,"I0...8..137
0:.80...B.. PRINT LABELS...L.SF..1:M.30:
.1,04:LL.9999.G.V..".EIN-SPALTIGE ETIKET
TEN";:.1390:Y.I.O.`..".PROBEAUSDRUCK   "
;:.1390:.I.1160...J.P$."----------ERSTE 
ZEILE---------":.1340.T.T..I.0.1:P$."---
---------------------------":.1340:....~
.P$."----------LETZTE ZEILE--------":.I.
1.3:.1340:.:.1120.5....1210:.1250:.80:. 
OUTPUT LABELS.L.... PRINT PHONE BOOK.H..
.SF.0:M.36:Y.1:.1,04:L.0......".ZEILEN P
RO SEITE "L0".....";:.LL......1210:.1250
:.1360:.80...... GET CATEGORY...D..".SUC
HEN NACH:":.I.0.6:.,"."J(D(I.1),2)". "K$
(I):..1.N..,".8. ALLE":.".IHRE WAHL  ";:
X$."12345678":.1400:F.2.I.P.X..:. ALL AR
E OR-ED WITH 128.C.... PRINT EITHER.....
J.Y:.K.0.NX:T.T%(K):.(F.F(T$(T,9))).0.13
20.....J.Y.J:.230:.SF.A$(J,4).""......J.
Y.1320.Y....I.0.4:P$.H(A$(0,I),M)......J
.P$.P$.H(B$,M.6.C(P$)).H(A$(1,I),M).....
.1340:.:.1340.F.(..K:.J.Y..I.0.4:P$.H(A$
(0,I),M):.1340:.:.1340.L.2...Y.<.L.L.1:.
1,".".P$:P$."":.L.LL..:. LINE OUT...F.L.
L.1:.1,".".P$:P$."":.L.LL...I.P..L..L.L.
LP.1:.1:.:L.0:.:. FINISH THE PAGE.Y.Z.. 
UTILITIES...D..".. WEITER MIT BELIEBIGER
 TASTE";:.50:.:.".":....N.X$."JN.#.X.."?
 ";.M....50:.I.1.C(X$):.C$..J(X$,I,1)..:
.1410.F...I.I.1:.C$;:.C.13..:.......W$:.
W$."".."..";:.1430... .." .";:.W$.R$..:.
......W$.G(20)..W$;:.1410......1430.V...
X$."":. INPUT A STRING...H..C$:.C$.1480.
..R..60:.C.13...&....C.20.X$.""..C$;:X$.
H(X$,C(X$).1):. DELETE.O....(127.C).32.1
490:. CURSOR CHARACTERS.X....(K%(C).G)..
C$;:X$.X$.C$:.C(X$)..M........1490......
 INITIALIZE.....L0.60:LP.72:NX..1:R$.G(1
3):H$."NAME LIST......K%(255),A$(1,4),K$
(6),F$(8).".".."........................
......".39)"..":.59468,14:. FORMAT.[.,..
53272,2.B(53272):.".     . COMMODORE ADR
ESSEN 64  ..U.6..1940: . COLOR CHANGE...
@.."..K.ASSETTE, .D.ISKETTE, ODER .B.EID
ES";:X$."DKB":.1400:CF.I.1...J..I.32.90:
.K%(I):.:.I.193.218:K%(I).1:.:. CHAR ARR
AY.).T.B$."     ":.I.1.5:B$.B$.B$:.:B0$.
H(B$,39):.8,08,15.D.^..".TAGESDATUM: ":M
.60:G.1:.1470:G.0:D$.X$:.D$."".D$."-...H
..:.I.0.8:.F$(I):.:. FIELD NAMES...R..I.
0.6:.K$(I):.:. CATEGORIES...|.V..((.(0).
2000).170):.T$(V,9),T%(V):.I.0.V:T%(I).I
:....... INPUT FILE......CF.2..".VON DAT
ASETTE";:.1390.G....CF.2.(CF.3.I.0)..179
0:.I.80:.1,1,0,H$:.1730.K... 1:.1,08,2,H
$:.8,X,X$:.X.0.1730.{....1790:.I.80.....
.".LEGEN SIE BITTE DIE DISKETTE EIN UND"
:.1370:.1700...B.X$.""...L..#1,C$:.C$..R
$.X$.X$.C$:.1740...V..".ENTERED: ."X$:.:
. DATELINE FROM FILE.B....I.0.V:.1,X$:.X
$."\".ST.0.1780:. READING COMPLETE.S....
X$:T$(I,0).X$:.J.1.9:.1,T$(I,J):.:T%(I).
I:......NX.I.1:.80:. COMPLETE......".NEU
E DATEI";:.1390:I.1.I:..Q.... ACCEPTABLE
 CHARACTERS 32-90.. ...1,1,0,1,1,1,1,1,1
,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1
,1,1,1.Q ...1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1.. &.."NACHNAME
 ","VORNAME   ","ANREDE (D.H. HERR, FRAU
, FAM., FIRMA)","TITEL.Z 0.."ORGANISATIO
N","STRASSE","PLZ/ORT","STAAT","TELEFONN
R... :.. SEVEN CATEGORIES..!D.. "FAMILIE
..!N.. "FREUNDE.&!X.. "ARBEITSKOLLEGEN.4
!B.. "AERZTE.I!L.. "INSTITUTIONEN.W!V.. 
"SCHULE.H!... "SONSTIGES.Z!...X$:.1370:.
80..!... COLOR CHANGE ROUTINE..!....C(X)
.B(X).1.16.((B(X).15).15)..!...".....F1.
= FARBE DES RANDES"..!..."...F3.= HINTER
GRUND-FARBE".."..."...F5.= FARBE DER ZEI
CHEN".7"F.."...RETURN.= WEITER".H"P..C$:
.C$.2000.\"Z..C$:.C$."".2010.."..C.F(C$)
:.C.135..646,.C(646):.1960.."..C.F(C$):.
C.133.C.134.X.53147.C:.X,.C(X).."...C..1
3.2000.D"......U..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL