NAME-MASCHINE

00000000: 01 08 1D 08 0A 00 99 C7  28 31 34 29 3A 97 36 35  |........(14):.65|
00000010: 37 2C 31 32 38 3A 97 37  38 38 2C 35 32 00 57 08  |7,128:.788,52.W.|
00000020: 14 00 89 31 35 31 30 3A  8F 20 28 43 29 20 31 39  |...1510:. (C) 19|
00000030: 38 32 20 42 59 20 43 4F  4D 4D 4F 44 4F 52 45 20  |82 BY COMMODORE |
00000040: 42 55 53 49 4E 45 53 53  20 4D 41 43 48 49 4E 45  |BUSINESS MACHINE|
00000050: 53 2C 20 49 4E 43 2E 00  66 08 1E 00 A1 43 24 3A  |S, INC..f....C$:|
00000060: 8B 43 24 89 33 30 00 83  08 28 00 A1 43 24 3A 8B  |.C$.30...(..C$:.|
00000070: 43 24 A7 99 22 20 9D 22  3B 3A 43 B2 C6 28 43 24  |C$.." .";:C..(C$|
00000080: 29 3A 8E 00 92 08 32 00  99 22 A4 9D 22 3B 3A 89  |):....2.."..";:.|
00000090: 34 30 00 A6 08 3C 00 A0  31 3A 8F 20 4D 45 4E 55  |40...<..1:. MENU|
000000A0: 20 45 4E 54 52 59 00 D0  08 46 00 99 22 93 20 20  | ENTRY...F..".  |
000000B0: 20 20 20 20 12 20 C3 4F  4D 4D 4F 44 4F 52 45 20  |    . .OMMODORE |
000000C0: C1 C4 D2 C5 D3 D3 C5 CE  20 36 34 20 20 92 11 11  |........ 64  ...|
000000D0: 00 E5 08 50 00 99 22 C6  55 4E 4B 54 49 4F 4E 45  |...P..".UNKTIONE|
000000E0: 4E 3A 11 11 22 00 0C 09  5A 00 99 2C 22 12 C5 92  |N:.."...Z..,"...|
000000F0: 52 46 41 53 53 45 4E 20  45 49 4E 45 53 20 CE 41  |RFASSEN EINES .A|
00000100: 4D 45 4E 53 2F C1 44 52  45 53 53 45 00 31 09 64  |MENS/.DRESSE.1.d|
00000110: 00 99 2C 22 12 C1 92 55  46 52 55 46 45 4E 20 56  |..,"...UFRUFEN V|
00000120: 4F 4E 20 CE 41 4D 45 4E  2F C1 44 52 45 53 53 45  |ON .AMEN/.DRESSE|
00000130: 4E 00 55 09 6E 00 99 2C  22 12 C4 92 52 55 43 4B  |N.U.n..,"...RUCK|
00000140: 45 4E 20 56 4F 4E 20 CE  41 4D 45 4E 2F C1 44 52  |EN VON .AMEN/.DR|
00000150: 45 53 53 45 4E 00 75 09  78 00 99 2C 22 12 D2 92  |ESSEN.u.x..,"...|
00000160: 55 4E 44 53 43 48 52 45  49 42 45 4E 2D C1 44 52  |UNDSCHREIBEN-.DR|
00000170: 45 53 53 45 4E 00 95 09  82 00 99 2C 22 12 D4 92  |ESSEN......,"...|
00000180: 45 4C 45 46 4F 4E 42 55  43 48 20 C1 55 53 44 52  |ELEFONBUCH .USDR|
00000190: 55 43 4B 45 4E 00 B9 09  8C 00 99 2C 22 12 D3 92  |UCKEN......,"...|
000001A0: 50 45 49 43 48 45 52 4E  20 44 45 52 20 CE 41 4D  |PEICHERN DER .AM|
000001B0: 45 4E 53 2D CC 49 53 54  45 00 CF 09 96 00 99 2C  |ENS-.ISTE......,|
000001C0: 22 12 D0 92 52 4F 47 52  41 4D 4D 45 4E 44 45 00  |"...ROGRAMMENDE.|
000001D0: F5 09 A0 00 99 22 11 D7  45 4C 43 48 45 20 20 20  |....."..ELCHE   |
000001E0: 22 3B 3A 58 24 B2 22 50  45 41 44 52 53 54 22 3A  |";:X$."PEADRST":|
000001F0: 8D 31 33 37 30 00 16 0A  AA 00 91 49 89 34 33 30  |.1370......I.430|
00000200: 2C 37 34 30 2C 31 30 36  30 2C 39 30 30 2C 32 38  |,740,1060,900,28|
00000210: 30 2C 31 31 34 30 00 4D  0A B4 00 99 22 93 D3 45  |0,1140.M...."..E|
00000220: 49 54 45 4E 56 4F 52 53  43 48 55 42 22 3B 3A 8D  |ITENVORSCHUB";:.|
00000230: 31 33 36 30 3A 8B 49 B2  30 A7 9F 31 2C 30 34 3A  |1360:.I.0..1,04:|
00000240: 4C B2 2E 31 3A 8D 31 33  33 30 3A A0 31 00 84 0A  |L..1:.1330:.1...|
00000250: BE 00 8B 4F 46 A7 99 22  11 D3 50 45 49 43 48 45  |...OF.."..PEICHE|
00000260: 52 4E 20 44 45 52 20 2A  CE 41 4D 45 20 CC 49 53  |RN DER *.AME .IS|
00000270: 54 2A 22 3B 3A 8D 31 33  36 30 3A 8B 49 B2 30 A7  |T*";:.1360:.I.0.|
00000280: 8D 33 30 30 00 9C 0A C8  00 A0 31 3A 99 22 93 11  |.300......1:."..|
00000290: D4 53 43 48 55 45 53 53  21 22 3A A2 00 B2 0A D2  |.SCHUESS!":.....|
000002A0: 00 8F 20 46 4F 52 4D 41  54 20 54 48 45 20 4C 49  |.. FORMAT THE LI|
000002B0: 4E 45 00 E2 0A DC 00 58  24 B2 54 24 28 54 2C 30  |NE.....X$.T$(T,0|
000002C0: 29 3A 59 24 B2 54 24 28  54 2C 31 29 3A 8B C3 28  |):Y$.T$(T,1):..(|
000002D0: 59 24 29 B1 31 A7 58 24  B2 59 24 AA 22 20 22 AA  |Y$).1.X$.Y$." ".|
000002E0: 58 24 00 07 0B E6 00 59  24 B2 54 24 28 54 2C 32  |X$.....Y$.T$(T,2|
000002F0: 29 3A 8B C3 28 59 24 29  B1 31 A7 58 24 B2 59 24  |):..(Y$).1.X$.Y$|
00000300: AA 22 20 22 AA 58 24 00  2D 0B F0 00 59 24 B2 54  |." ".X$.-...Y$.T|
00000310: 24 28 54 2C 33 29 3A 8B  C3 28 59 24 29 B1 31 A7  |$(T,3):..(Y$).1.|
00000320: 58 24 B2 58 24 AA 22 2C  20 22 AA 59 24 00 6F 0B  |X$.X$.", ".Y$.o.|
00000330: FA 00 41 24 28 4A 2C 30  29 B2 58 24 3A 81 49 B2  |..A$(J,0).X$:.I.|
00000340: 31 A4 33 3A 41 24 28 4A  2C 49 29 B2 22 22 3A 59  |1.3:A$(J,I)."":Y|
00000350: 24 B2 54 24 28 54 2C 49  AA 33 29 3A 8B C3 28 59  |$.T$(T,I.3):..(Y|
00000360: 24 29 B1 31 A7 41 24 28  4A 2C 49 29 B2 59 24 00  |$).1.A$(J,I).Y$.|
00000370: A0 0B 04 01 82 3A 8B C3  28 54 24 28 54 2C 37 29  |.....:..(T$(T,7)|
00000380: 29 B1 31 A7 41 24 28 4A  2C 33 29 B2 41 24 28 4A  |).1.A$(J,3).A$(J|
00000390: 2C 33 29 AA 22 2C 20 22  AA 54 24 28 54 2C 37 29  |,3).", ".T$(T,7)|
000003A0: 00 C7 0B 0E 01 41 24 28  4A 2C 34 29 B2 54 24 28  |.....A$(J,4).T$(|
000003B0: 54 2C 38 29 3A 58 B2 C6  28 54 24 28 54 2C 39 29  |T,8):X..(T$(T,9)|
000003C0: 29 AF 31 32 37 3A 8E 00  D9 0B 18 01 8F 20 4F 55  |).127:....... OU|
000003D0: 54 50 55 54 20 46 49 4C  45 00 E6 0B 22 01 8D 33  |TPUT FILE..."..3|
000003E0: 30 30 3A 89 36 30 00 01  0C 2C 01 59 24 B2 48 24  |00:.60...,.Y$.H$|
000003F0: 3A 8D 33 36 30 3A 8B C5  28 58 24 29 89 31 39 30  |:.360:..(X$).190|
00000400: 30 00 0A 0C 36 01 8B 58  A7 8E 00 1B 0C 40 01 4F  |0...6..X.....@.O|
00000410: 46 B2 30 3A 98 31 2C 44  24 3A 99 00 38 0C 4A 01  |F.0:.1,D$:..8.J.|
00000420: 81 49 B2 30 A4 4E 58 3A  54 B2 54 25 28 49 29 3A  |.I.0.NX:T.T%(I):|
00000430: 99 54 24 28 54 2C 30 29  00 53 0C 54 01 81 4A B2  |.T$(T,0).S.T..J.|
00000440: 30 A4 39 3A 98 31 2C 54  24 28 54 2C 4A 29 3A 82  |0.9:.1,T$(T,J):.|
00000450: 4A 2C 49 00 6B 0C 5E 01  98 31 2C 22 5C 22 3A 8E  |J,I.k.^..1,"\":.|
00000460: 3A 8F 20 43 4F 4D 50 4C  45 54 45 00 88 0C 68 01  |:. COMPLETE...h.|
00000470: 8F 20 4F 50 45 4E 20 54  48 45 20 46 49 4C 45 20  |. OPEN THE FILE |
00000480: 54 4F 20 57 52 49 54 45  00 BA 0C 72 01 44 46 B2  |TO WRITE...r.DF.|
00000490: 30 3A 58 B2 30 3A 58 24  B2 22 22 3A 8B 43 46 B1  |0:X.0:X$."":.CF.|
000004A0: 32 A7 99 22 93 C1 55 46  20 C4 41 54 41 53 45 54  |2.."..UF .ATASET|
000004B0: 54 45 22 3B 3A 8D 31 33  36 30 00 DB 0C 7C 01 8B  |TE";:.1360...|..|
000004C0: 43 46 B2 32 B0 28 43 46  B2 33 AF 49 B2 30 29 A7  |CF.2.(CF.3.I.0).|
000004D0: 9F 31 2C 31 2C 31 2C 59  24 3A 8E 00 0A 0D 86 01  |.1,1,1,Y$:......|
000004E0: 44 46 B2 AB 31 3A 4C 24  B2 22 30 3A 22 AA 59 24  |DF..1:L$."0:".Y$|
000004F0: 3A 9F 31 2C 30 38 2C 32  2C 4C 24 3A 84 38 2C 58  |:.1,08,2,L$:.8,X|
00000500: 3A A0 31 3A 8B 58 89 34  32 30 00 45 0D 90 01 99  |:.1:.X.420.E....|
00000510: 3A 99 22 11 C4 41 54 45  49 20 45 58 49 53 54 49  |:."..ATEI EXISTI|
00000520: 45 52 54 20 2D 20 55 45  42 45 52 53 43 48 52 45  |ERT - UEBERSCHRE|
00000530: 49 42 45 4E 22 3B 3A 8D  31 33 36 30 3A 8B 49 A7  |IBEN";:.1360:.I.|
00000540: 58 B2 31 3A 8E 00 59 0D  9A 01 98 38 2C 22 53 22  |X.1:..Y....8,"S"|
00000550: 4C 24 3A 98 38 2C 22 49  30 00 79 0D A4 01 9F 31  |L$:.8,"I0.y....1|
00000560: 2C 30 38 2C 33 2C 4C 24  AA 22 2C 53 2C 57 22 3A  |,08,3,L$.",S,W":|
00000570: 84 38 2C 58 2C 58 24 3A  8E 00 8F 0D AE 01 8F 20  |.8,X,X$:....... |
00000580: 43 52 45 41 54 45 20 41  4E 20 45 4E 54 52 59 00  |CREATE AN ENTRY.|
00000590: C7 0D B8 01 8B 4E 58 B1  B2 56 A7 99 22 11 12 20  |.....NX..V..".. |
000005A0: CC 45 49 44 45 52 20 4B  45 49 4E 20 D0 4C 41 54  |.EIDER KEIN .LAT|
000005B0: 5A 20 4D 45 48 52 20 46  52 45 49 21 22 3A 8D 31  |Z MEHR FREI!":.1|
000005C0: 33 34 30 3A 89 36 30 00  EF 0D C2 01 4E 58 B2 4E  |340:.60.....NX.N|
000005D0: 58 AA 31 3A 4B B2 4E 58  3A 54 B2 54 25 28 4B 29  |X.1:K.NX:T.T%(K)|
000005E0: 3A 54 24 28 54 2C 39 29  B2 C7 28 31 32 38 29 00  |:T$(T,9)..(128).|
000005F0: 14 0E CC 01 4F 46 B2 31  3A 4D B2 33 39 3A 59 B2  |....OF.1:M.39:Y.|
00000600: 30 3A 8F 20 47 45 54 20  4E 41 4D 45 2F 41 44 44  |0:. GET NAME/ADD|
00000610: 52 45 53 53 00 21 0E D6  01 4A B2 30 3A 8D 32 31  |RESS.!...J.0:.21|
00000620: 30 00 53 0E E0 01 99 22  93 20 22 3B 3A 81 49 B2  |0.S....". ";:.I.|
00000630: 31 A4 33 30 3A 99 22 A4  22 3B 3A 82 3A 81 49 B2  |1.30:.".";:.:.I.|
00000640: 31 A4 35 3A 99 22 11 A5  9D 22 3B 3A 82 3A 99 22  |1.5:."...";:.:."|
00000650: 11 22 3B 00 7E 0E EA 01  81 49 B2 31 A4 33 30 3A  |.";.~....I.1.30:|
00000660: 99 22 9D A3 9D 22 3B 3A  82 3A 81 49 B2 31 A4 35  |."...";:.:.I.1.5|
00000670: 3A 99 22 91 9D A7 22 3B  3A 82 3A 99 22 13 00 A0  |:."...";:.:."...|
00000680: 0E F4 01 81 49 B2 30 A4  34 3A 99 22 1D 22 41 24  |....I.0.4:."."A$|
00000690: 28 4A 2C 49 29 3A 82 3A  8B 59 B1 38 89 35 38 30  |(J,I):.:.Y.8.580|
000006A0: 00 C6 0E FE 01 99 22 13  11 11 11 11 11 11 11 11  |......".........|
000006B0: 11 22 42 30 24 3A 99 22  91 22 46 24 28 59 29 3A  |."B0$:."."F$(Y):|
000006C0: 99 42 30 24 22 91 00 DB  0E 08 02 8D 31 34 34 30  |.B0$".......1440|
000006D0: 3A 8B 43 B3 B1 31 33 89  34 38 30 00 04 0F 12 02  |:.C..13.480.....|
000006E0: 99 3A 8B C9 28 58 24 2C  31 29 B2 22 20 22 A7 58  |.:..(X$,1)." ".X|
000006F0: 24 B2 C8 28 58 24 2C C3  28 58 24 29 AB 31 29 3A  |$..(X$,.(X$).1):|
00000700: 89 35 33 30 00 31 0F 1C  02 8B 58 24 B2 22 22 AF  |.530.1....X$."".|
00000710: 54 24 28 54 2C 59 29 B1  22 22 A7 59 B2 59 AA 31  |T$(T,Y)."".Y.Y.1|
00000720: 3A 91 32 AA 28 59 B3 39  29 89 35 31 30 2C 34 37  |:.2.(Y.9).510,47|
00000730: 30 00 42 0F 26 02 8B C3  28 58 24 29 B1 31 89 35  |0.B.&...(X$).1.5|
00000740: 37 30 00 73 0F 30 02 58  24 B2 22 2D 22 3A 8B 59  |70.s.0.X$."-":.Y|
00000750: B2 30 A7 99 22 11 CC 4F  45 53 43 48 45 4E 22 3B  |.0.."..OESCHEN";|
00000760: 3A 8D 31 33 36 30 3A 91  49 AA 31 89 37 31 30 2C  |:.1360:.I.1.710,|
00000770: 34 37 30 00 8D 0F 3A 02  54 24 28 54 2C 59 29 B2  |470...:.T$(T,Y).|
00000780: 58 24 3A 59 B2 59 AA 31  3A 89 34 37 30 00 B2 0F  |X$:Y.Y.1:.470...|
00000790: 44 02 58 24 B2 22 31 32  33 34 35 36 37 22 AA 52  |D.X$."1234567".R|
000007A0: 24 3A 8F 20 47 45 54 20  43 41 54 45 47 4F 52 49  |$:. GET CATEGORI|
000007B0: 45 53 00 CD 0F 4E 02 99  22 13 11 11 11 11 11 11  |ES...N..".......|
000007C0: 11 11 CB 41 54 45 47 4F  52 49 45 4E 3A 00 E8 0F  |...ATEGORIEN:...|
000007D0: 58 02 81 49 B2 30 A4 36  3A 99 2C 3A 8B 58 AF 32  |X..I.0.6:.,:.X.2|
000007E0: AE 49 A7 99 22 12 22 3B  00 FB 0F 62 02 99 49 AA  |.I..".";...b..I.|
000007F0: 31 22 92 22 4B 24 28 49  29 3A 82 00 2B 10 6C 02  |1"."K$(I):..+.l.|
00000800: 99 22 11 D7 49 45 20 5A  55 4F 52 44 4E 45 4E 2F  |."..IE ZUORDNEN/|
00000810: 4C 4F 45 53 43 48 45 4E  3F 20 20 20 9D 22 3B 3A  |LOESCHEN?   .";:|
00000820: 8D 31 33 38 30 3A 49 B2  32 AE 49 00 49 10 76 02  |.1380:I.2.I.I.v.|
00000830: 58 B2 28 58 B0 49 29 AF  A8 28 58 AF 49 29 3A 8B  |X.(X.I)..(X.I):.|
00000840: 58 B3 31 32 38 89 35 39  30 00 6A 10 80 02 54 24  |X.128.590.j...T$|
00000850: 28 54 2C 39 29 B2 C7 28  58 29 3A 8F 20 43 4F 4D  |(T,9)..(X):. COM|
00000860: 50 4C 45 54 45 20 45 44  49 54 00 94 10 8A 02 99  |PLETE EDIT......|
00000870: 22 91 91 22 42 30 24 3A  99 22 91 C1 4B 5A 45 50  |".."B0$:."..KZEP|
00000880: 54 49 45 52 54 22 3B 3A  8D 31 33 36 30 3A 8B 49  |TIERT";:.1360:.I|
00000890: 89 34 36 30 00 B4 10 94  02 8B 4E 58 B3 31 89 36  |.460......NX.1.6|
000008A0: 30 3A 8F 20 4D 55 53 54  20 42 45 20 49 4E 20 4F  |0:. MUST BE IN O|
000008B0: 52 44 45 52 00 EE 10 9E  02 58 24 B2 54 24 28 54  |RDER.....X$.T$(T|
000008C0: 2C 30 29 3A 8B 4B B3 4E  58 A7 81 49 B2 4B A4 4E  |,0):.K.NX..I.K.N|
000008D0: 58 AB 31 3A 54 25 28 49  29 B2 54 25 28 49 AA 31  |X.1:T%(I).T%(I.1|
000008E0: 29 3A 82 3A 8F 20 52 45  4D 4F 56 45 20 54 00 20  |):.:. REMOVE T. |
000008F0: 11 A8 02 81 49 B2 30 A4  4E 58 AB 31 3A 8B 54 24  |....I.0.NX.1:.T$|
00000900: 28 54 25 28 49 29 2C 30  29 B3 58 24 A7 82 3A 8F  |(T%(I),0).X$..:.|
00000910: 20 4C 4F 43 41 54 45 20  54 27 53 20 53 4C 4F 54  | LOCATE T'S SLOT|
00000920: 00 5D 11 B2 02 8B 49 B3  4E 58 A7 4A B2 49 AA 31  |.]....I.NX.J.I.1|
00000930: 3A 81 49 B2 4E 58 A4 4A  A9 AB 31 3A 54 25 28 49  |:.I.NX.J..1:T%(I|
00000940: 29 B2 54 25 28 49 AB 31  29 3A 82 3A 8F 20 4D 41  |).T%(I.1):.:. MA|
00000950: 4B 45 20 52 4F 4F 4D 20  46 4F 52 20 54 00 7E 11  |KE ROOM FOR T.~.|
00000960: BC 02 54 25 28 49 29 B2  54 3A 89 36 30 3A 8F 20  |..T%(I).T:.60:. |
00000970: 49 4E 53 45 52 54 20 54  2C 20 45 58 49 54 00 96  |INSERT T, EXIT..|
00000980: 11 C6 02 8F 20 43 4C 45  41 4E 20 55 50 20 44 45  |.... CLEAN UP DE|
00000990: 4C 45 54 49 4F 4E 00 AE  11 D0 02 81 49 B2 30 A4  |LETION......I.0.|
000009A0: 39 3A 54 24 28 54 2C 49  29 B2 22 22 3A 82 00 DE  |9:T$(T,I)."":...|
000009B0: 11 DA 02 4E 58 B2 4E 58  AB 31 3A 81 49 B2 4B A4  |...NX.NX.1:.I.K.|
000009C0: 4E 58 3A 54 25 28 49 29  B2 54 25 28 49 AA 31 29  |NX:T%(I).T%(I.1)|
000009D0: 3A 82 3A 54 25 28 49 29  B2 54 3A 89 36 30 00 F9  |:.:T%(I).T:.60..|
000009E0: 11 E4 02 8F 20 53 45 4C  45 43 54 2F 45 44 49 54  |.... SELECT/EDIT|
000009F0: 20 41 4E 20 45 4E 54 52  59 00 1D 12 EE 02 99 22  | AN ENTRY......"|
00000A00: 93 22 3A 99 22 D3 55 43  48 45 4E 20 4E 41 43 48  |.":.".UCHEN NACH|
00000A10: 3A 20 20 12 CE 92 41 43  48 4E 41 4D 45 00 32 12  |:  ...ACHNAME.2.|
00000A20: F8 02 99 2C 22 20 20 20  20 12 D6 92 4F 52 4E 41  |...,"    ...ORNA|
00000A30: 4D 45 00 47 12 02 03 99  2C 22 20 20 20 20 12 D0  |ME.G....,"    ..|
00000A40: 92 CC DA 2F CF 52 54 00  5A 12 0C 03 99 2C 22 20  |.../.RT.Z....," |
00000A50: 20 20 20 12 D3 92 54 41  41 54 00 72 12 16 03 99  |   ...TAAT.r....|
00000A60: 2C 22 20 20 20 20 12 D4  92 45 4C 45 46 4F 4E 4E  |,"    ...ELEFONN|
00000A70: 52 2E 00 9E 12 20 03 99  22 11 D7 45 4C 43 48 45  |R.... .."..ELCHE|
00000A80: 52 20 20 22 3B 3A 58 24  B2 22 4E 56 4C 4C 4C 4C  |R  ";:X$."NVLLLL|
00000A90: 50 53 54 22 3A 8D 31 33  37 30 3A 46 B2 49 00 D1  |PST":.1370:F.I..|
00000AA0: 12 2A 03 4D B2 34 30 3A  99 22 11 D3 43 48 4C 55  |.*.M.40:."..CHLU|
00000AB0: 45 53 53 45 4C 57 4F 52  54 3A 20 22 3B 3A 8D 31  |ESSELWORT: ";:.1|
00000AC0: 34 34 30 3A 5A 24 B2 58  24 3A 5A B2 C3 28 5A 24  |440:Z$.X$:Z..(Z$|
00000AD0: 29 00 EC 12 34 03 4B B2  30 3A 8F 20 53 45 41 52  |)...4.K.0:. SEAR|
00000AE0: 43 48 20 46 4F 52 20 46  49 45 4C 44 00 07 13 3E  |CH FOR FIELD...>|
00000AF0: 03 54 B2 54 25 28 4B 29  3A 58 24 B2 54 24 28 54  |.T.T%(K):X$.T$(T|
00000B00: 2C 46 29 3A 59 B2 30 00  38 13 48 03 81 49 B2 31  |,F):Y.0.8.H..I.1|
00000B10: A4 C3 28 58 24 29 AB 5A  AA 31 3A 59 B2 28 CA 28  |..(X$).Z.1:Y.(.(|
00000B20: 58 24 2C 49 2C 5A 29 B2  5A 24 29 B0 59 3A 82 3A  |X$,I,Z).Z$).Y:.:|
00000B30: 8B 59 B2 30 89 38 37 30  00 5C 13 52 03 4A B2 30  |.Y.0.870.\.R.J.0|
00000B40: 3A 8D 32 31 30 3A 99 22  93 22 3A 81 49 B2 30 A4  |:.210:.".":.I.0.|
00000B50: 34 3A 99 41 24 28 30 2C  49 29 3A 82 00 83 13 5C  |4:.A$(0,I):....\|
00000B60: 03 99 22 11 D7 45 49 54  45 52 53 55 43 48 45 4E  |.."..EITERSUCHEN|
00000B70: 20 20 20 20 22 3B 3A 8D  31 33 36 30 3A 8B 49 89  |    ";:.1360:.I.|
00000B80: 38 39 30 00 98 13 66 03  4B B2 4B AA 31 3A 8B 4B  |890...f.K.K.1:.K|
00000B90: B3 B2 4E 58 89 38 33 30  00 C6 13 70 03 99 3A 99  |..NX.830...p..:.|
00000BA0: 22 11 C1 4C 4C 45 20 C5  49 4E 47 41 42 45 4E 20  |"..LLE .INGABEN |
00000BB0: 55 45 42 45 52 50 52 55  45 46 54 22 3A 8D 31 33  |UEBERPRUEFT":.13|
00000BC0: 34 30 3A 89 36 30 00 E8  13 7A 03 99 22 11 C1 45  |40:.60...z.."..E|
00000BD0: 4E 44 45 52 4E 22 3B 3A  8D 31 33 36 30 3A 91 49  |NDERN";:.1360:.I|
00000BE0: 89 36 30 3A 89 34 36 30  00 04 14 84 03 8F 20 46  |.60:.460...... F|
00000BF0: 49 4C 45 20 46 4F 52 20  57 4F 52 44 20 4D 41 43  |ILE FOR WORD MAC|
00000C00: 48 49 4E 45 00 36 14 8E  03 99 22 93 CE 41 4D 45  |HINE.6...."..AME|
00000C10: 20 44 45 52 20 C4 41 54  45 49 3A 20 20 20 22 3B  | DER .ATEI:   ";|
00000C20: 3A 4D B2 31 36 3A 8D 31  34 34 30 3A 8B 58 24 B2  |:M.16:.1440:.X$.|
00000C30: 22 22 89 39 31 30 00 51  14 98 03 59 24 B2 58 24  |"".910.Q...Y$.X$|
00000C40: 3A 8D 33 36 30 3A 8B C5  28 58 24 29 89 31 39 30  |:.360:..(X$).190|
00000C50: 30 00 5B 14 A2 03 8B 58  89 36 30 00 91 14 AC 03  |0.[....X.60.....|
00000C60: 8D 31 31 38 30 3A 99 22  11 D3 50 45 5A 49 45 4C  |.1180:."..PEZIEL|
00000C70: 4C 45 20 C1 55 53 57 41  48 4C 20 20 22 3B 3A 8D  |LE .USWAHL  ";:.|
00000C80: 31 33 36 30 3A 53 46 B2  49 3A 4A B2 30 3A 4B B2  |1360:SF.I:J.0:K.|
00000C90: 30 00 B4 14 B6 03 54 B2  54 25 28 4B 29 3A 8B 28  |0.....T.T%(K):.(|
00000CA0: 46 AF C6 28 54 24 28 54  2C 39 29 29 29 B2 30 89  |F..(T$(T,9))).0.|
00000CB0: 31 30 31 30 00 CA 14 C0  03 8B 53 46 A7 99 54 24  |1010......SF..T$|
00000CC0: 28 54 2C 30 29 3A 89 39  39 30 00 EA 14 CA 03 8D  |(T,0):.990......|
00000CD0: 32 31 30 3A 99 22 93 22  3A 81 49 B2 30 A4 33 3A  |210:.".":.I.0.3:|
00000CE0: 99 41 24 28 4A 2C 49 29  3A 82 00 12 15 D4 03 99  |.A$(J,I):.......|
00000CF0: 22 11 D5 45 42 45 52 4E  45 48 4D 45 4E 20 20 20  |"..EBERNEHMEN   |
00000D00: 20 20 22 3B 3A 8D 31 33  36 30 3A 8B 49 89 31 30  |  ";:.1360:.I.10|
00000D10: 31 30 00 28 15 DE 03 8F  20 4F 55 54 50 55 54 20  |10.(.... OUTPUT |
00000D20: 54 48 45 20 46 49 4C 45  00 49 15 E8 03 81 49 B2  |THE FILE.I....I.|
00000D30: 30 A4 37 3A 98 31 2C 54  24 28 54 2C 49 29 3A 82  |0.7:.1,T$(T,I):.|
00000D40: 3A 44 46 B2 B6 28 44 46  29 00 5E 15 F2 03 4B B2  |:DF..(DF).^...K.|
00000D50: 4B AA 31 3A 8B 4B B3 B2  4E 58 89 39 35 30 00 93  |K.1:.K..NX.950..|
00000D60: 15 FC 03 98 31 2C 22 5C  22 3A 8B 44 46 B1 AB 31  |....1,"\":.DF..1|
00000D70: A7 91 53 46 AA 31 89 31  30 35 30 2C 36 30 3A 8F  |..SF.1.1050,60:.|
00000D80: 20 20 2D 31 3D 45 4D 50  54 59 20 44 49 53 43 46  |  -1=EMPTY DISCF|
00000D90: 49 4C 45 00 BE 15 06 04  19 20 11 CB 45 49 4E 45  |ILE...... ..EINE|
00000DA0: 20 C1 44 52 45 53 53 45  20 49 4E 20 44 49 45 53  | .DRESSE IN DIES|
00000DB0: 45 52 20 CB 41 54 45 47  4F 52 49 45 2E 22 00 D7  |ER .ATEGORIE."..|
00000DC0: 15 10 04 03 03 2A 98 38  2C 22 53 30 3A 22 59 24  |.....*.8,"S0:"Y$|
00000DD0: 3A 98 38 2C 22 49 30 00  E5 15 1A 04 8D 31 33 34  |:.8,"I0......134|
00000DE0: 30 3A 89 36 30 00 F8 15  24 04 8F 20 50 52 49 4E  |0:.60...$.. PRIN|
00000DF0: 54 20 4C 41 42 45 4C 53  00 15 16 2E 04 53 46 B2  |T LABELS.....SF.|
00000E00: AB 31 3A 4D B2 33 30 3A  9F 31 2C 30 34 3A 4C 4C  |.1:M.30:.1,04:LL|
00000E10: B2 39 39 39 39 00 3F 16  38 04 99 22 11 C5 49 4E  |.9999.?.8.."..IN|
00000E20: 2D 53 50 41 4C 54 49 47  45 20 C5 54 49 4B 45 54  |-SPALTIGE .TIKET|
00000E30: 54 45 4E 22 3B 3A 8D 31  33 36 30 3A 59 B2 49 00  |TEN";:.1360:Y.I.|
00000E40: 67 16 42 04 99 22 11 D0  52 4F 42 45 41 55 53 44  |g.B.."..ROBEAUSD|
00000E50: 52 55 43 4B 20 20 20 22  3B 3A 8D 31 33 36 30 3A  |RUCK   ";:.1360:|
00000E60: 8B 49 89 31 31 33 30 00  95 16 4C 04 50 24 B2 22  |.I.1130...L.P$."|
00000E70: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 45 52 53 54 45 20  |----------ERSTE |
00000E80: DA 45 49 4C 45 2D 2D 2D  2D 2D 2D 2D 2D 2D 22 3A  |.EILE---------":|
00000E90: 8D 31 33 31 30 00 CC 16  56 04 81 49 B2 30 A4 31  |.1310...V..I.0.1|
00000EA0: 3A 50 24 B2 22 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |:P$."-----------|
00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000EC0: 2D 2D 2D 22 3A 8D 31 33  31 30 3A 82 00 09 17 60  |---":.1310:....`|
00000ED0: 04 50 24 B2 22 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 4C  |.P$."----------L|
00000EE0: 45 54 5A 54 45 20 DA 45  49 4C 45 2D 2D 2D 2D 2D  |ETZTE .EILE-----|
00000EF0: 2D 2D 2D 22 3A 81 49 B2  31 A4 33 3A 8D 31 33 31  |---":.I.1.3:.131|
00000F00: 30 3A 82 3A 89 31 30 39  30 00 2D 17 6A 04 8D 31  |0:.:.1090.-.j..1|
00000F10: 31 38 30 3A 8D 31 32 32  30 3A 89 36 30 3A 8F 20  |180:.1220:.60:. |
00000F20: 4F 55 54 50 55 54 20 4C  41 42 45 4C 53 00 44 17  |OUTPUT LABELS.D.|
00000F30: 74 04 8F 20 50 52 49 4E  54 20 50 48 4F 4E 45 20  |t.. PRINT PHONE |
00000F40: 42 4F 4F 4B 00 60 17 7E  04 53 46 B2 30 3A 4D B2  |BOOK.`.~.SF.0:M.|
00000F50: 33 36 3A 59 B2 31 3A 9F  31 2C 30 34 3A 4C B2 30  |36:Y.1:.1,04:L.0|
00000F60: 00 88 17 88 04 99 22 11  DA 45 49 4C 45 4E 20 50  |......"..EILEN P|
00000F70: 52 4F 20 D3 45 49 54 45  20 22 4C 30 22 9D 9D 9D  |RO .EITE "L0"...|
00000F80: 9D 9D 22 3B 3A 85 4C 4C  00 A2 17 92 04 8D 31 31  |..";:.LL......11|
00000F90: 38 30 3A 8D 31 32 32 30  3A 8D 31 33 33 30 3A 89  |80:.1220:.1330:.|
00000FA0: 36 30 00 B5 17 9C 04 8F  20 47 45 54 20 43 41 54  |60...... GET CAT|
00000FB0: 45 47 4F 52 59 00 ED 17  A6 04 99 22 93 D3 55 43  |EGORY......"..UC|
00000FC0: 48 45 4E 20 4E 41 43 48  3A 22 3A 81 49 B2 30 A4  |HEN NACH:":.I.0.|
00000FD0: 36 3A 99 2C 22 12 22 CA  28 C4 28 49 AA 31 29 2C  |6:.,".".(.(I.1),|
00000FE0: 32 29 22 92 20 22 4B 24  28 49 29 3A 82 00 29 18  |2)". "K$(I):..).|
00000FF0: B0 04 99 2C 22 12 38 92  20 C1 4C 4C 45 22 3A 99  |...,".8. .LLE":.|
00001000: 22 11 C9 48 52 45 20 D7  41 48 4C 20 20 22 3B 3A  |"..HRE .AHL  ";:|
00001010: 58 24 B2 22 31 32 33 34  35 36 37 38 22 3A 8D 31  |X$."12345678":.1|
00001020: 33 37 30 3A 46 B2 32 AE  49 00 48 18 BA 04 8E 3A  |370:F.2.I.H....:|
00001030: 8F 20 41 4C 4C 20 41 52  45 20 4F 52 2D 45 44 20  |. ALL ARE OR-ED |
00001040: 57 49 54 48 20 31 32 38  00 5B 18 C4 04 8F 20 50  |WITH 128.[.... P|
00001050: 52 49 4E 54 20 45 49 54  48 45 52 00 8A 18 CE 04  |RINT EITHER.....|
00001060: 4A B2 59 3A 81 4B B2 30  A4 4E 58 3A 54 B2 54 25  |J.Y:.K.0.NX:T.T%|
00001070: 28 4B 29 3A 8B 28 46 AF  C6 28 54 24 28 54 2C 39  |(K):.(F..(T$(T,9|
00001080: 29 29 29 B2 30 89 31 32  39 30 00 A8 18 D8 04 4A  |))).0.1290.....J|
00001090: B2 59 AB 4A 3A 8D 32 31  30 3A 8B 53 46 A7 41 24  |.Y.J:.210:.SF.A$|
000010A0: 28 4A 2C 34 29 B2 22 22  00 B6 18 E2 04 8B 4A B3  |(J,4).""......J.|
000010B0: 59 89 31 32 39 30 00 D1  18 EC 04 81 49 B2 30 A4  |Y.1290......I.0.|
000010C0: 34 3A 50 24 B2 C8 28 41  24 28 30 2C 49 29 2C 4D  |4:P$..(A$(0,I),M|
000010D0: 29 00 FB 18 F6 04 8B 4A  A7 50 24 B2 50 24 AA C8  |)......J.P$.P$..|
000010E0: 28 42 24 2C 4D AA 36 AB  C3 28 50 24 29 29 AA C8  |(B$,M.6..(P$))..|
000010F0: 28 41 24 28 31 2C 49 29  2C 4D 29 00 0D 19 00 05  |(A$(1,I),M).....|
00001100: 8D 31 33 31 30 3A 82 3A  8D 31 33 31 30 00 3E 19  |.1310:.:.1310.>.|
00001110: 0A 05 82 4B 3A 8B 4A B3  59 A7 81 49 B2 30 A4 34  |...K:.J.Y..I.0.4|
00001120: 3A 50 24 B2 C8 28 41 24  28 30 2C 49 29 2C 4D 29  |:P$..(A$(0,I),M)|
00001130: 3A 8D 31 33 31 30 3A 82  3A 8D 31 33 31 30 00 44  |:.1310:.:.1310.D|
00001140: 19 14 05 8E 00 71 19 1E  05 4C B2 4C AA 31 3A 98  |.....q...L.L.1:.|
00001150: 31 2C 22 11 22 AA 50 24  3A 50 24 B2 22 22 3A 8B  |1,".".P$:P$."":.|
00001160: 4C B3 4C 4C A7 8E 3A 8F  20 4C 49 4E 45 20 4F 55  |L.LL..:. LINE OU|
00001170: 54 00 93 19 28 05 4C B2  4C AA 31 3A 98 31 2C 22  |T...(.L.L.1:.1,"|
00001180: 11 22 AA 50 24 3A 50 24  B2 22 22 3A 8B 4C B3 4C  |.".P$:P$."":.L.L|
00001190: 4C A7 8E 00 C1 19 32 05  8B 4C A7 81 4C B2 4C A4  |L.....2..L..L.L.|
000011A0: 4C 50 AB 31 3A 98 31 3A  82 3A 4C B2 30 3A 8E 3A  |LP.1:.1:.:L.0:.:|
000011B0: 8F 20 46 49 4E 49 53 48  20 54 48 45 20 50 41 47  |. FINISH THE PAG|
000011C0: 45 00 D1 19 3C 05 8F 20  55 54 49 4C 49 54 49 45  |E...<.. UTILITIE|
000011D0: 53 00 05 1A 46 05 99 22  11 12 20 D7 45 49 54 45  |S...F..".. .EITE|
000011E0: 52 20 4D 49 54 20 42 45  4C 49 45 42 49 47 45 52  |R MIT BELIEBIGER|
000011F0: 20 D4 41 53 54 45 22 3B  3A 8D 33 30 3A 99 3A 99  | .ASTE";:.30:.:.|
00001200: 22 93 22 3A 8E 00 10 1A  50 05 58 24 B2 22 4A 4E  |".":....P.X$."JN|
00001210: 00 1B 1A 5A 05 99 22 3F  20 22 3B 00 45 1A 64 05  |...Z.."? ";.E.d.|
00001220: 8D 33 30 3A 81 49 B2 31  A4 C3 28 58 24 29 3A 8B  |.30:.I.1..(X$):.|
00001230: 43 24 B3 B1 CA 28 58 24  2C 49 2C 31 29 A7 82 3A  |C$...(X$,I,1)..:|
00001240: 89 31 33 38 30 00 5E 1A  6E 05 49 B2 49 AB 31 3A  |.1380.^.n.I.I.1:|
00001250: 99 43 24 3B 3A 8B 43 B2  31 33 A7 99 3A 8E 00 7A  |.C$;:.C.13..:..z|
00001260: 1A 78 05 A1 57 24 3A 8B  57 24 B2 22 22 A7 99 22  |.x..W$:.W$."".."|
00001270: A4 9D 22 3B 3A 89 31 34  30 30 00 90 1A 82 05 99  |..";:.1400......|
00001280: 22 20 9D 22 3B 3A 8B 57  24 B2 52 24 A7 99 3A 8E  |" .";:.W$.R$..:.|
00001290: 00 A9 1A 8C 05 8B 57 24  B2 C7 28 32 30 29 A7 99  |......W$..(20)..|
000012A0: 57 24 3B 3A 89 31 33 38  30 00 B3 1A 96 05 89 31  |W$;:.1380......1|
000012B0: 34 30 30 00 CE 1A A0 05  58 24 B2 22 22 3A 8F 20  |400.....X$."":. |
000012C0: 49 4E 50 55 54 20 41 20  53 54 52 49 4E 47 00 DF  |INPUT A STRING..|
000012D0: 1A AA 05 A1 43 24 3A 8B  43 24 89 31 34 35 30 00  |....C$:.C$.1450.|
000012E0: EF 1A B4 05 8D 34 30 3A  8B 43 B2 31 33 A7 8E 00  |.....40:.C.13...|
000012F0: 1E 1B BE 05 8B 43 B2 32  30 AF 58 24 B1 22 22 A7  |.....C.20.X$."".|
00001300: 99 43 24 3B 3A 58 24 B2  C8 28 58 24 2C C3 28 58  |.C$;:X$..(X$,.(X|
00001310: 24 29 AB 31 29 3A 8F 20  44 45 4C 45 54 45 00 47  |$).1):. DELETE.G|
00001320: 1B C8 05 8B 28 31 32 37  AF 43 29 B3 33 32 89 31  |....(127.C).32.1|
00001330: 34 36 30 3A 8F 20 43 55  52 53 4F 52 20 43 48 41  |460:. CURSOR CHA|
00001340: 52 41 43 54 45 52 53 00  70 1B D2 05 8B 28 4B 25  |RACTERS.p....(K%|
00001350: 28 43 29 B0 47 29 A7 99  43 24 3B 3A 58 24 B2 58  |(C).G)..C$;:X$.X|
00001360: 24 AA 43 24 3A 8B C3 28  58 24 29 B1 B2 4D A7 8E  |$.C$:..(X$)..M..|
00001370: 00 7A 1B DC 05 89 31 34  36 30 00 8B 1B E6 05 8F  |.z....1460......|
00001380: 20 49 4E 49 54 49 41 4C  49 5A 45 00 B8 1B F0 05  | INITIALIZE.....|
00001390: 4C 30 B2 36 30 3A 4C 50  B2 37 32 3A 4E 58 B2 AB  |L0.60:LP.72:NX..|
000013A0: 31 3A 52 24 B2 C7 28 31  33 29 3A 48 24 B2 22 CE  |1:R$..(13):H$.".|
000013B0: 41 4D 45 20 CC 49 53 54  00 D9 1B FA 05 86 4B 25  |AME .IST......K%|
000013C0: 28 32 35 35 29 2C 41 24  28 31 2C 34 29 2C 4B 24  |(255),A$(1,4),K$|
000013D0: 28 36 29 2C 46 24 28 38  29 00 1A 1C 04 06 99 22  |(6),F$(8)......"|
000013E0: 93 8E 13 13 0F 11 11 11  11 11 11 11 11 11 11 11  |................|
000013F0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 22 A6  |..............".|
00001400: 33 39 29 22 8F 05 22 3A  97 35 39 34 36 38 2C 31  |39)"..":.59468,1|
00001410: 34 3A 8F 20 46 4F 52 4D  41 54 00 53 1C 0E 06 97  |4:. FORMAT.S....|
00001420: 35 33 32 37 32 2C 32 B0  C2 28 35 33 32 37 32 29  |53272,2..(53272)|
00001430: 3A 99 22 93 20 20 20 20  20 12 20 C3 4F 4D 4D 4F  |:.".     . .OMMO|
00001440: 44 4F 52 45 20 C1 C4 D2  C5 D3 D3 C5 CE 20 36 34  |DORE ........ 64|
00001450: 20 20 92 00 6D 1C 18 06  8D 31 39 31 30 3A 20 8F  |  ..m....1910: .|
00001460: 20 43 4F 4C 4F 52 20 43  48 41 4E 47 45 00 B2 1C  | COLOR CHANGE...|
00001470: 22 06 99 22 11 12 CB 92  41 53 53 45 54 54 45 2C  |".."....ASSETTE,|
00001480: 20 12 C4 92 49 53 4B 45  54 54 45 2C 20 4F 44 45  | ...ISKETTE, ODE|
00001490: 52 20 12 42 92 45 49 44  45 53 22 3B 3A 58 24 B2  |R .B.EIDES";:X$.|
000014A0: 22 44 4B 42 22 3A 8D 31  33 37 30 3A 43 46 B2 49  |"DKB":.1370:CF.I|
000014B0: AA 31 00 EA 1C 2C 06 81  49 B2 33 32 A4 39 30 3A  |.1...,..I.32.90:|
000014C0: 87 4B 25 28 49 29 3A 82  3A 81 49 B2 31 39 33 A4  |.K%(I):.:.I.193.|
000014D0: 32 31 38 3A 4B 25 28 49  29 B2 31 3A 82 3A 8F 20  |218:K%(I).1:.:. |
000014E0: 43 48 41 52 20 41 52 52  41 59 00 21 1D 36 06 42  |CHAR ARRAY.!.6.B|
000014F0: 24 B2 22 20 20 20 20 20  22 3A 81 49 B2 31 A4 35  |$."     ":.I.1.5|
00001500: 3A 42 24 B2 42 24 AA 42  24 3A 82 3A 42 30 24 B2  |:B$.B$.B$:.:B0$.|
00001510: C8 28 42 24 2C 33 39 29  3A 9F 38 2C 30 38 2C 31  |.(B$,39):.8,08,1|
00001520: 35 00 5C 1D 40 06 99 22  11 D4 41 47 45 53 44 41  |5.\.@.."..AGESDA|
00001530: 54 55 4D 3A 20 22 3A 4D  B2 36 30 3A 47 B2 31 3A  |TUM: ":M.60:G.1:|
00001540: 8D 31 34 34 30 3A 47 B2  30 3A 44 24 B2 58 24 3A  |.1440:G.0:D$.X$:|
00001550: 8B 44 24 B2 22 22 A7 44  24 B2 22 2D 00 80 1D 4A  |.D$."".D$."-...J|
00001560: 06 99 3A 81 49 B2 30 A4  38 3A 87 46 24 28 49 29  |..:.I.0.8:.F$(I)|
00001570: 3A 82 3A 8F 20 46 49 45  4C 44 20 4E 41 4D 45 53  |:.:. FIELD NAMES|
00001580: 00 A1 1D 54 06 81 49 B2  30 A4 36 3A 87 4B 24 28  |...T..I.0.6:.K$(|
00001590: 49 29 3A 82 3A 8F 20 43  41 54 45 47 4F 52 49 45  |I):.:. CATEGORIE|
000015A0: 53 00 DA 1D 5E 06 56 B2  B5 28 28 B8 28 30 29 AB  |S...^.V..((.(0).|
000015B0: 32 30 30 30 29 AD 31 37  30 29 3A 86 54 24 28 56  |2000).170):.T$(V|
000015C0: 2C 39 29 2C 54 25 28 56  29 3A 81 49 B2 30 A4 56  |,9),T%(V):.I.0.V|
000015D0: 3A 54 25 28 49 29 B2 49  3A 82 00 EB 1D 68 06 8F  |:T%(I).I:....h..|
000015E0: 20 49 4E 50 55 54 20 46  49 4C 45 00 0E 1E 72 06  | INPUT FILE...r.|
000015F0: 8B 43 46 B1 32 A7 99 22  11 D6 4F 4E 20 C4 41 54  |.CF.2.."..ON .AT|
00001600: 41 53 45 54 54 45 22 3B  3A 8D 31 33 36 30 00 3F  |ASETTE";:.1360.?|
00001610: 1E 7C 06 8B 43 46 B2 32  B0 28 43 46 B2 33 AF 49  |.|..CF.2.(CF.3.I|
00001620: B2 30 29 A7 8D 31 37 36  30 3A 91 49 89 36 30 3A  |.0)..1760:.I.60:|
00001630: 9F 31 2C 31 2C 30 2C 48  24 3A 89 31 37 30 30 00  |.1,1,0,H$:.1700.|
00001640: 63 1E 86 06 A0 31 3A 9F  31 2C 30 38 2C 32 2C 48  |c....1:.1,08,2,H|
00001650: 24 3A 84 38 2C 58 2C 58  24 3A 8B 58 B2 30 89 31  |$:.8,X,X$:.X.0.1|
00001660: 37 30 30 00 73 1E 90 06  8D 31 37 36 30 3A 8B 49  |700.s....1760:.I|
00001670: 89 36 30 00 AC 1E 9A 06  99 22 11 CC 45 47 45 4E  |.60......"..EGEN|
00001680: 20 D3 49 45 20 42 49 54  54 45 20 44 49 45 20 C4  | .IE BITTE DIE .|
00001690: 49 53 4B 45 54 54 45 20  45 49 4E 20 55 4E 44 22  |ISKETTE EIN UND"|
000016A0: 3A 8D 31 33 34 30 3A 89  31 36 37 30 00 B6 1E A4  |:.1340:.1670....|
000016B0: 06 58 24 B2 22 22 00 D8  1E AE 06 A1 23 31 2C 43  |.X$.""......#1,C|
000016C0: 24 3A 8B 43 24 B3 B1 52  24 A7 58 24 B2 58 24 AA  |$:.C$..R$.X$.X$.|
000016D0: 43 24 3A 89 31 37 31 30  00 04 1F B8 06 99 22 93  |C$:.1710......".|
000016E0: C5 4E 54 45 52 45 44 3A  20 12 22 58 24 3A 99 3A  |.NTERED: ."X$:.:|
000016F0: 8F 20 44 41 54 45 4C 49  4E 45 20 46 52 4F 4D 20  |. DATELINE FROM |
00001700: 46 49 4C 45 00 3A 1F C2  06 81 49 B2 30 A4 56 3A  |FILE.:....I.0.V:|
00001710: 84 31 2C 58 24 3A 8B 58  24 B2 22 5C 22 B0 53 54  |.1,X$:.X$."\".ST|
00001720: B1 30 89 31 37 35 30 3A  8F 20 52 45 41 44 49 4E  |.0.1750:. READIN|
00001730: 47 20 43 4F 4D 50 4C 45  54 45 00 6B 1F CC 06 99  |G COMPLETE.k....|
00001740: 58 24 3A 54 24 28 49 2C  30 29 B2 58 24 3A 81 4A  |X$:T$(I,0).X$:.J|
00001750: B2 31 A4 39 3A 84 31 2C  54 24 28 49 2C 4A 29 3A  |.1.9:.1,T$(I,J):|
00001760: 82 3A 54 25 28 49 29 B2  49 3A 82 00 85 1F D6 06  |.:T%(I).I:......|
00001770: 4E 58 B2 49 AB 31 3A 89  36 30 3A 8F 20 43 4F 4D  |NX.I.1:.60:. COM|
00001780: 50 4C 45 54 45 00 A7 1F  E0 06 99 22 11 CE 45 55  |PLETE......"..EU|
00001790: 45 20 C4 41 54 45 49 22  3B 3A 8D 31 33 36 30 3A  |E .ATEI";:.1360:|
000017A0: 49 B2 31 AB 49 3A 8E 00  C9 1F EA 06 8F 20 41 43  |I.1.I:....... AC|
000017B0: 43 45 50 54 41 42 4C 45  20 43 48 41 52 41 43 54  |CEPTABLE CHARACT|
000017C0: 45 52 53 20 33 32 2D 39  30 00 0E 20 F4 06 83 31  |ERS 32-90.. ...1|
000017D0: 2C 31 2C 30 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,0,1,1,1,1,1,1|
000017E0: 2C 31 2C 31 2C 31 2C 30  2C 31 2C 31 2C 31 2C 31  |,1,1,1,0,1,1,1,1|
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 30 2C 30 2C 31  2C 31 2C 31 2C 31 00 49  |,1,0,0,1,1,1,1.I|
00001810: 20 FE 06 83 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  | ...1,1,1,1,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 00 96 20 08 07 83 22  |1,1,1,1,1.. ..."|
00001850: CE 41 43 48 4E 41 4D 45  20 22 2C 22 D6 4F 52 4E  |.ACHNAME ",".ORN|
00001860: 41 4D 45 20 20 20 22 2C  22 C1 4E 52 45 44 45 20  |AME   ",".NREDE |
00001870: 28 44 2E 48 2E 20 C8 45  52 52 2C 20 C6 52 41 55  |(D.H. .ERR, .RAU|
00001880: 2C 20 C6 41 4D 2E 2C 20  C6 49 52 4D 41 29 22 2C  |, .AM., .IRMA)",|
00001890: 22 D4 49 54 45 4C 00 D2  20 12 07 83 22 CF 52 47  |".ITEL.. ...".RG|
000018A0: 41 4E 49 53 41 54 49 4F  4E 22 2C 22 D3 54 52 41  |ANISATION",".TRA|
000018B0: 53 53 45 22 2C 22 D0 CC  DA 2F CF 52 54 22 2C 22  |SSE",".../.RT","|
000018C0: D3 54 41 41 54 22 2C 22  D4 45 4C 45 46 4F 4E 4E  |.TAAT",".ELEFONN|
000018D0: 52 2E 00 E9 20 1C 07 8F  20 53 45 56 45 4E 20 43  |R... ... SEVEN C|
000018E0: 41 54 45 47 4F 52 49 45  53 00 F8 20 26 07 83 20  |ATEGORIES.. &.. |
000018F0: 22 C6 41 4D 49 4C 49 45  00 07 21 30 07 83 20 22  |".AMILIE..!0.. "|
00001900: C6 52 45 55 4E 44 45 00  1E 21 3A 07 83 20 22 C1  |.REUNDE..!:.. ".|
00001910: 52 42 45 49 54 53 4B 4F  4C 4C 45 47 45 4E 00 2C  |RBEITSKOLLEGEN.,|
00001920: 21 44 07 83 20 22 C1 45  52 5A 54 45 00 41 21 4E  |!D.. ".ERZTE.A!N|
00001930: 07 83 20 22 C9 4E 53 54  49 54 55 54 49 4F 4E 45  |.. ".NSTITUTIONE|
00001940: 4E 00 4F 21 58 07 83 20  22 D3 43 48 55 4C 45 00  |N.O!X.. ".CHULE.|
00001950: 60 21 62 07 83 20 22 D3  4F 4E 53 54 49 47 45 53  |`!b.. ".ONSTIGES|
00001960: 00 72 21 6C 07 99 58 24  3A 8D 31 33 34 30 3A 89  |.r!l..X$:.1340:.|
00001970: 36 30 00 8D 21 76 07 8F  20 43 4F 4C 4F 52 20 43  |60..!v.. COLOR C|
00001980: 48 41 4E 47 45 20 52 4F  55 54 49 4E 45 00 B1 21  |HANGE ROUTINE..!|
00001990: 80 07 96 A5 43 28 58 29  B2 C2 28 58 29 AA 31 AA  |....C(X)..(X).1.|
000019A0: 31 36 AC 28 28 C2 28 58  29 AF 31 35 29 B2 31 35  |16.((.(X).15).15|
000019B0: 29 00 D7 21 8A 07 99 3A  99 22 13 11 11 11 11 11  |)..!...:."......|
000019C0: 12 C6 31 92 3D 20 C6 41  52 42 45 20 44 45 53 20  |..1.= .ARBE DES |
000019D0: D2 41 4E 44 45 53 22 00  F7 21 94 07 99 22 11 12  |.ANDES"..!..."..|
000019E0: C6 33 92 3D 20 C8 49 4E  54 45 52 47 52 55 4E 44  |.3.= .INTERGRUND|
000019F0: 2D C6 41 52 42 45 22 00  17 22 9E 07 99 22 11 12  |-.ARBE".."..."..|
00001A00: C6 35 92 3D 20 C6 41 52  42 45 20 44 45 52 20 DA  |.5.= .ARBE DER .|
00001A10: 45 49 43 48 45 4E 22 00  30 22 A8 07 99 22 11 12  |EICHEN".0"..."..|
00001A20: D2 C5 D4 D5 D2 CE 92 3D  20 D7 45 49 54 45 52 22  |.......= .EITER"|
00001A30: 00 41 22 B2 07 A1 43 24  3A 8B 43 24 89 31 39 37  |.A"...C$:.C$.197|
00001A40: 30 00 55 22 BC 07 A1 43  24 3A 8B 43 24 B2 22 22  |0.U"...C$:.C$.""|
00001A50: 89 31 39 38 30 00 7B 22  C6 07 43 B2 C6 28 43 24  |.1980.{"..C..(C$|
00001A60: 29 3A 8B 43 B2 31 33 35  A7 97 36 34 36 2C A5 43  |):.C.135..646,.C|
00001A70: 28 36 34 36 29 3A 89 31  39 33 30 00 A7 22 D0 07  |(646):.1930.."..|
00001A80: 43 B2 C6 28 43 24 29 3A  8B 43 B2 31 33 33 B0 43  |C..(C$):.C.133.C|
00001A90: B2 31 33 34 A7 58 B2 35  33 31 34 37 AA 43 3A 97  |.134.X.53147.C:.|
00001AA0: 58 2C A5 43 28 58 29 00  B7 22 DA 07 8B 43 B3 B1  |X,.C(X).."...C..|
00001AB0: 31 33 89 31 39 37 30 00  BD 22 E4 07 8E 00 00 00  |13.1970.."......|
00001AC0: 2E                                                |.               |

.......G(14):.657,128:.788,52.W....1510:
. (C) 1982 BY COMMODORE BUSINESS MACHINE
S, INC..F....C$:.C$.30...(..C$:.C$.." ."
;:C.F(C$):....2.."..";:.40...<. 1:. MENU
 ENTRY.P.F..".      . COMMODORE ADRESSEN
 64  ......P.."FUNKTIONEN:.."...Z..,".E.
RFASSEN EINES NAMENS/ADRESSE.1.D..,".A.U
FRUFEN VON NAMEN/ADRESSEN.U.N..,".D.RUCK
EN VON NAMEN/ADRESSEN.U.X..,".R.UNDSCHRE
IBEN-ADRESSEN......,".T.ELEFONBUCH AUSDR
UCKEN......,".S.PEICHERN DER NAMENS-LIST
E.O....,".P.ROGRAMMENDE... ..".WELCHE   
";:X$."PEADRST":.1370......I.430,740,106
0,900,280,1140.M....".SEITENVORSCHUB";:.
1360:.I.0..1,04:L..1:.1330: 1......OF.."
.SPEICHERN DER *NAME LIST*";:.1360:.I.0.
.300...H. 1:."..TSCHUESS!":....R.. FORMA
T THE LINE.....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$.O...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).G...A$(J,4).T$(T,8):X.F(T$(T,9)
).127:..Y.... OUTPUT FILE..."..300:.60..
.,.Y$.H$:.360:.E(X$).1900...6..X.....@.O
F.0:.1,D$:..8.J..I.0.NX:T.T%(I):.T$(T,0)
.S.T..J.0.9:.1,T$(T,J):.J,I.K.^..1,"\":.
:. COMPLETE...H.. OPEN THE FILE TO WRITE
...R.DF.0:X.0:X$."":.CF.2..".AUF DATASET
TE";:.1360...|..CF.2.(CF.3.I.0)..1,1,1,Y
$:......DF..1:L$."0:".Y$:.1,08,2,L$:.8,X
: 1:.X.420.E....:.".DATEI EXISTIERT - UE
BERSCHREIBEN";:.1360:.I.X.1:..Y....8,"S"
L$:.8,"I0.Y....1,08,3,L$.",S,W":.8,X,X$:
....... CREATE AN ENTRY.G....NX..V..".. 
LEIDER KEIN PLATZ MEHR FREI!":.1340:.60.
..B.NX.NX.1:K.NX:T.T%(K):T$(T,9).G(128).
..L.OF.1:M.39:Y.0:. GET NAME/ADDRESS.!.V
.J.0:.210.S....". ";:.I.1.30:.".";:.:.I.
1.5:."...";:.:.".";.~....I.1.30:."...";:
.:.I.1.5:."...";:.:.".. ....I.0.4:."."A$
(J,I):.:.Y.8.580.F....".........."B0$:."
."F$(Y):.B0$".......1440:.C..13.480.....
.:.I(X$,1)." ".X$.H(X$,C(X$).1):.530.1..
..X$."".T$(T,Y)."".Y.Y.1:.2.(Y.9).510,47
0.B.&..C(X$).1.570.S.0.X$."-":.Y.0..".LO
ESCHEN";:.1360:.I.1.710,470...:.T$(T,Y).
X$:Y.Y.1:.470...D.X$."1234567".R$:. GET 
CATEGORIES.M.N..".........KATEGORIEN:...
X..I.0.6:.,:.X.2.I..".";...B..I.1"."K$(I
):..+.L..".WIE ZUORDNEN/LOESCHEN?   .";:
.1380:I.2.I.I.V.X.(X.I)..(X.I):.X.128.59
0.J...T$(T,9).G(X):. COMPLETE EDIT......
".."B0$:.".AKZEPTIERT";:.1360:.I.460....
..NX.1.60:. MUST BE IN ORDER.....X$.T$(T
,0):.K.NX..I.K.NX.1:T%(I).T%(I.1):.:. RE
MOVE T. ....I.0.NX.1:.T$(T%(I),0).X$..:.
 LOCATE T'S SLOT.]....I.NX.J.I.1:.I.NX.J
..1:T%(I).T%(I.1):.:. MAKE ROOM FOR T.~.
..T%(I).T:.60:. INSERT T, EXIT...F.. CLE
AN UP DELETION...P..I.0.9:T$(T,I)."":...
.Z.NX.NX.1:.I.K.NX:T%(I).T%(I.1):.:T%(I)
.T:.60...... SELECT/EDIT AN ENTRY......"
.":."SUCHEN NACH:  .N.ACHNAME.2....,"   
 .V.ORNAME.G....,"    .P.LZ/ORT.Z....," 
   .S.TAAT.R....,"    .T.ELEFONNR.... ..
".WELCHER  ";:X$."NVLLLLPST":.1370:F.I.Q
.*.M.40:.".SCHLUESSELWORT: ";:.1440:Z$.X
$:Z.C(Z$)...4.K.0:. SEARCH FOR FIELD...>
.T.T%(K):X$.T$(T,F):Y.0.8.H..I.1.C(X$).Z
.1:Y.(J(X$,I,Z).Z$).Y:.:.Y.0.870.\.R.J.0
:.210:.".":.I.0.4:.A$(0,I):....\..".WEIT
ERSUCHEN    ";:.1360:.I.890...F.K.K.1:.K
..NX.830.F.P..:.".ALLE EINGABEN UEBERPRU
EFT":.1340:.60...Z..".AENDERN";:.1360:.I
.60:.460...... FILE FOR WORD MACHINE.6..
..".NAME DER DATEI:   ";:M.16:.1440:.X$.
"".910.Q...Y$.X$:.360:.E(X$).1900.[....X
.60......1180:.".SPEZIELLE AUSWAHL  ";:.
1360:SF.I:J.0:K.0.....T.T%(K):.(F.F(T$(T
,9))).0.1010.J....SF..T$(T,0):.990...J..
210:.".":.I.0.3:.A$(J,I):....T..".UEBERN
EHMEN     ";:.1360:.I.1010.(.... OUTPUT 
THE FILE.I....I.0.7:.1,T$(T,I):.:DF..(DF
).^...K.K.1:.K..NX.950......1,"\":.DF..1
..SF.1.1050,60:.  -1=EMPTY DISCFILE.....
. .KEINE ADRESSE IN DIESER KATEGORIE.".W
.....*.8,"S0:"Y$:.8,"I0......1340:.60...
$.. PRINT LABELS.....SF..1:M.30:.1,04:LL
.9999.?.8..".EIN-SPALTIGE ETIKETTEN";:.1
360:Y.I.G.B..".PROBEAUSDRUCK   ";:.1360:
.I.1130...L.P$."----------ERSTE ZEILE---
------":.1310.L.V..I.0.1:P$."-----------
-------------------":.1310:....`.P$."---
-------LETZTE ZEILE--------":.I.1.3:.131
0:.:.1090.-.J..1180:.1220:.60:. OUTPUT L
ABELS.D.T.. PRINT PHONE BOOK.`.~.SF.0:M.
36:Y.1:.1,04:L.0......".ZEILEN PRO SEITE
 "L0".....";:.LL......1180:.1220:.1330:.
60...... GET CATEGORY......".SUCHEN NACH
:":.I.0.6:.,"."J(D(I.1),2)". "K$(I):..).
...,".8. ALLE":.".IHRE WAHL  ";:X$."1234
5678":.1370:F.2.I.H....:. ALL ARE OR-ED 
WITH 128.[.D.. PRINT EITHER...N.J.Y:.K.0
.NX:T.T%(K):.(F.F(T$(T,9))).0.1290...X.J
.Y.J:.210:.SF.A$(J,4).""......J.Y.1290.Q
....I.0.4:P$.H(A$(0,I),M)......J.P$.P$.H
(B$,M.6.C(P$)).H(A$(1,I),M)......1310:.:
.1310.>....K:.J.Y..I.0.4:P$.H(A$(0,I),M)
:.1310:.:.1310.D.....Q...L.L.1:.1,".".P$
:P$."":.L.LL..:. LINE OUT...(.L.L.1:.1,"
.".P$:P$."":.L.LL...A.2..L..L.L.LP.1:.1:
.:L.0:.:. FINISH THE PAGE.Q.<.. UTILITIE
S...F..".. WEITER MIT BELIEBIGER TASTE";
:.30:.:.".":....P.X$."JN...Z.."? ";.E.D.
.30:.I.1.C(X$):.C$..J(X$,I,1)..:.1380.^.
N.I.I.1:.C$;:.C.13..:..Z.X..W$:.W$."".."
..";:.1400......" .";:.W$.R$..:.......W$
.G(20)..W$;:.1380......1400.N. .X$."":. 
INPUT A STRING......C$:.C$.1450......40:
.C.13........C.20.X$.""..C$;:X$.H(X$,C(X
$).1):. DELETE.G.H..(127.C).32.1460:. CU
RSOR CHARACTERS.P.R..(K%(C).G)..C$;:X$.X
$.C$:.C(X$)..M...Z....1460...... INITIAL
IZE.....L0.60:LP.72:NX..1:R$.G(13):H$."N
AME LIST.Y....K%(255),A$(1,4),K$(6),F$(8
)......"..............................".
39)"..":.59468,14:. FORMAT.S....53272,2.
B(53272):.".     . COMMODORE ADRESSEN 64
  ..M....1910: . COLOR CHANGE...".."..K.
ASSETTE, .D.ISKETTE, ODER .B.EIDES";:X$.
"DKB":.1370:CF.I.1...,..I.32.90:.K%(I):.
:.I.193.218:K%(I).1:.:. CHAR ARRAY.!.6.B
$."     ":.I.1.5:B$.B$.B$:.:B0$.H(B$,39)
:.8,08,15.\.@..".TAGESDATUM: ":M.60:G.1:
.1440:G.0:D$.X$:.D$."".D$."-...J..:.I.0.
8:.F$(I):.:. FIELD NAMES...T..I.0.6:.K$(
I):.:. CATEGORIES.Z.^.V..((.(0).2000).17
0):.T$(V,9),T%(V):.I.0.V:T%(I).I:....H..
 INPUT FILE...R..CF.2..".VON DATASETTE";
:.1360.?.|..CF.2.(CF.3.I.0)..1760:.I.60:
.1,1,0,H$:.1700.C... 1:.1,08,2,H$:.8,X,X
$:.X.0.1700.S....1760:.I.60......".LEGEN
 SIE BITTE DIE DISKETTE EIN UND":.1340:.
1670.....X$."".X....#1,C$:.C$..R$.X$.X$.
C$:.1710......".ENTERED: ."X$:.:. DATELI
NE FROM FILE.:.B..I.0.V:.1,X$:.X$."\".ST
.0.1750:. READING COMPLETE.K.L..X$:T$(I,
0).X$:.J.1.9:.1,T$(I,J):.:T%(I).I:....V.
NX.I.1:.60:. COMPLETE......".NEUE DATEI"
;:.1360:I.1.I:..I.... ACCEPTABLE CHARACT
ERS 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.I
 ...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 ","VORN
AME   ","ANREDE (D.H. HERR, FRAU, FAM., 
FIRMA)","TITEL.R ..."ORGANISATION","STRA
SSE","PLZ/ORT","STAAT","TELEFONNR... ...
 SEVEN CATEGORIES.. &.. "FAMILIE..!0.. "
FREUNDE..!:.. "ARBEITSKOLLEGEN.,!D.. "AE
RZTE.A!N.. "INSTITUTIONEN.O!X.. "SCHULE.
`!B.. "SONSTIGES.R!L..X$:.1340:.60..!V..
 COLOR CHANGE ROUTINE..!....C(X).B(X).1.
16.((B(X).15).15).W!...:.".......F1.= FA
RBE DES RANDES"..!..."..F3.= HINTERGRUND
-FARBE".."..."..F5.= FARBE DER ZEICHEN".
0"..."..RETURN.= WEITER".A"...C$:.C$.197
0.U"...C$:.C$."".1980.{"F.C.F(C$):.C.135
..646,.C(646):.1930.."P.C.F(C$):.C.133.C
.134.X.53147.C:.X,.C(X).."Z..C..13.1970.
.".......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL