ADRESS

00000000: 01 08 36 08 00 00 8F 20  28 43 29 20 31 39 38 32  |..6.... (C) 1982|
00000010: 20 42 59 20 43 4F 4D 4D  4F 44 4F 52 45 20 42 55  | BY COMMODORE BU|
00000020: 53 49 4E 45 53 53 20 4D  41 43 48 49 4E 45 53 2C  |SINESS MACHINES,|
00000030: 20 49 4E 43 2E CC 00 3F  08 01 00 89 31 34 39 00  | INC...?....149.|
00000040: 4D 08 02 00 A1 43 24 3A  8B 43 24 89 32 00 6A 08  |M....C$:.C$.2.j.|
00000050: 03 00 A1 43 24 3A 8B 43  24 A7 99 22 20 9D 22 3B  |...C$:.C$.." .";|
00000060: 3A 43 B2 C6 28 43 24 29  3A 8E 00 78 08 04 00 99  |:C..(C$):..x....|
00000070: 22 A4 9D 22 3B 3A 89 33  00 8C 08 05 00 A0 31 3A  |"..";:.3......1:|
00000080: 8F 20 4D 45 4E 55 20 45  4E 54 52 59 00 B6 08 06  |. MENU ENTRY....|
00000090: 00 99 22 93 20 20 20 20  20 20 12 20 C3 4F 4D 4D  |..".      . .OMM|
000000A0: 4F 44 4F 52 45 20 CE C1  CD C5 A0 CD C1 C3 C8 C9  |ODORE ..........|
000000B0: CE C5 20 92 11 11 00 E0  08 07 00 99 22 CD 45 4E  |.. .........".EN|
000000C0: 55 45 20 20 3A 20 20 12  C1 92 C5 49 4E 47 41 42  |UE  :  ....INGAB|
000000D0: 45 20 CE 41 4D 45 4E 2F  C1 44 52 45 53 53 45 4E  |E .AMEN/.DRESSEN|
000000E0: 00 00 09 08 00 99 2C 22  12 C3 92 D3 55 43 48 45  |......,"....UCHE|
000000F0: 20 CE 41 4D 45 4E 2F C1  44 44 52 45 53 53 45 4E  | .AMEN/.DDRESSEN|
00000100: 00 27 09 09 00 99 2C 22  12 D0 92 C4 52 55 43 4B  |.'....,"....RUCK|
00000110: 45 20 CE 41 4D 45 4E 2F  C1 44 44 52 45 53 53 45  |E .AMEN/.DDRESSE|
00000120: 4E 4C 49 53 54 45 4E 00  4A 09 0A 00 99 2C 22 12  |NLISTEN.J....,".|
00000130: C2 92 C2 49 4C 44 45 20  D7 CF D2 C4 20 CD C1 C3  |...ILDE .... ...|
00000140: C8 C9 CE C5 20 C6 49 4C  45 53 00 6D 09 0B 00 99  |.... .ILES.m....|
00000150: 2C 22 12 D4 92 D4 45 4C  45 50 48 4F 4E 56 45 52  |,"....ELEPHONVER|
00000160: 5A 45 49 43 48 4E 49 53  44 52 55 43 4B 00 8B 09  |ZEICHNISDRUCK...|
00000170: 0C 00 99 2C 22 12 D3 92  D3 50 45 49 43 48 45 52  |...,"....PEICHER|
00000180: 4E 20 44 45 52 20 C4 41  54 45 4E 00 A2 09 0D 00  |N DER .ATEN.....|
00000190: 99 2C 22 12 D1 92 D0 52  4F 47 52 41 4D 4D 45 4E  |.,"....ROGRAMMEN|
000001A0: 44 45 00 C7 09 0E 00 99  22 11 D7 41 45 48 4C 45  |DE......"..AEHLE|
000001B0: 20 20 20 22 3B 3A 58 24  B2 22 51 41 43 50 42 53  |   ";:X$."QACPBS|
000001C0: 54 22 3A 8D 31 33 35 00  E2 09 0F 00 91 49 89 34  |T":.135......I.4|
000001D0: 31 2C 37 32 2C 31 30 34  2C 38 38 2C 32 36 2C 31  |1,72,104,88,26,1|
000001E0: 31 32 00 12 0A 10 00 99  22 93 C1 55 53 44 52 55  |12......"..USDRU|
000001F0: 43 4B 20 22 3B 3A 8D 31  33 34 3A 8B 49 B2 30 A7  |CK ";:.134:.I.0.|
00000200: 9F 31 2C 30 34 3A 4C B2  2E 31 3A 8D 31 33 31 3A  |.1,04:L..1:.131:|
00000210: A0 31 00 40 0A 11 00 8B  4F 46 A7 99 22 11 D3 50  |.1.@....OF.."..P|
00000220: 45 49 43 48 45 52 4E 20  59 20 4F 44 45 52 20 4E  |EICHERN Y ODER N|
00000230: 22 3B 3A 8D 31 33 34 3A  8B 49 B2 30 A7 8D 32 38  |";:.134:.I.0..28|
00000240: 00 56 0A 12 00 A0 31 3A  99 22 93 22 3A 99 C7 28  |.V....1:.".":..(|
00000250: 31 34 32 29 3A 80 00 6C  0A 13 00 8F 20 46 4F 52  |142):..l.... FOR|
00000260: 4D 41 54 20 54 48 45 20  4C 49 4E 45 00 9C 0A 14  |MAT THE LINE....|
00000270: 00 58 24 B2 54 24 28 54  2C 30 29 3A 59 24 B2 54  |.X$.T$(T,0):Y$.T|
00000280: 24 28 54 2C 31 29 3A 8B  C3 28 59 24 29 B1 31 A7  |$(T,1):..(Y$).1.|
00000290: 58 24 B2 59 24 AA 22 20  22 AA 58 24 00 C1 0A 15  |X$.Y$." ".X$....|
000002A0: 00 59 24 B2 54 24 28 54  2C 32 29 3A 8B C3 28 59  |.Y$.T$(T,2):..(Y|
000002B0: 24 29 B1 31 A7 58 24 B2  59 24 AA 22 20 22 AA 58  |$).1.X$.Y$." ".X|
000002C0: 24 00 E7 0A 16 00 59 24  B2 54 24 28 54 2C 33 29  |$.....Y$.T$(T,3)|
000002D0: 3A 8B C3 28 59 24 29 B1  31 A7 58 24 B2 58 24 AA  |:..(Y$).1.X$.X$.|
000002E0: 22 2C 20 22 AA 59 24 00  29 0B 17 00 41 24 28 4A  |", ".Y$.)...A$(J|
000002F0: 2C 30 29 B2 58 24 3A 81  49 B2 31 A4 33 3A 41 24  |,0).X$:.I.1.3:A$|
00000300: 28 4A 2C 49 29 B2 22 22  3A 59 24 B2 54 24 28 54  |(J,I)."":Y$.T$(T|
00000310: 2C 49 AA 33 29 3A 8B C3  28 59 24 29 B1 31 A7 41  |,I.3):..(Y$).1.A|
00000320: 24 28 4A 2C 49 29 B2 59  24 00 5A 0B 18 00 82 3A  |$(J,I).Y$.Z....:|
00000330: 8B C3 28 54 24 28 54 2C  37 29 29 B1 31 A7 41 24  |..(T$(T,7)).1.A$|
00000340: 28 4A 2C 33 29 B2 41 24  28 4A 2C 33 29 AA 22 2C  |(J,3).A$(J,3).",|
00000350: 20 22 AA 54 24 28 54 2C  37 29 00 81 0B 19 00 41  | ".T$(T,7).....A|
00000360: 24 28 4A 2C 34 29 B2 54  24 28 54 2C 38 29 3A 58  |$(J,4).T$(T,8):X|
00000370: B2 C6 28 54 24 28 54 2C  39 29 29 AF 31 32 37 3A  |..(T$(T,9)).127:|
00000380: 8E 00 93 0B 1A 00 8F 20  4F 55 54 50 55 54 20 46  |....... OUTPUT F|
00000390: 49 4C 45 00 9E 0B 1B 00  8D 32 38 3A 89 35 00 B7  |ILE......28:.5..|
000003A0: 0B 1C 00 59 24 B2 48 24  3A 8D 33 34 3A 8B C5 28  |...Y$.H$:.34:..(|
000003B0: 58 24 29 89 31 38 38 00  C0 0B 1D 00 8B 58 A7 8E  |X$).188......X..|
000003C0: 00 D1 0B 1E 00 4F 46 B2  30 3A 98 31 2C 44 24 3A  |.....OF.0:.1,D$:|
000003D0: 99 00 EE 0B 1F 00 81 49  B2 30 A4 4E 58 3A 54 B2  |.......I.0.NX:T.|
000003E0: 54 25 28 49 29 3A 99 54  24 28 54 2C 30 29 00 09  |T%(I):.T$(T,0)..|
000003F0: 0C 20 00 81 4A B2 30 A4  39 3A 98 31 2C 54 24 28  |. ..J.0.9:.1,T$(|
00000400: 54 2C 4A 29 3A 82 4A 2C  49 00 21 0C 21 00 98 31  |T,J):.J,I.!.!..1|
00000410: 2C 22 5C 22 3A 8E 3A 8F  20 43 4F 4D 50 4C 45 54  |,"\":.:. COMPLET|
00000420: 45 00 3E 0C 22 00 8F 20  4F 50 45 4E 20 54 48 45  |E.>.".. OPEN THE|
00000430: 20 46 49 4C 45 20 54 4F  20 57 52 49 54 45 00 6F  | FILE TO WRITE.o|
00000440: 0C 23 00 44 46 B2 30 3A  58 B2 30 3A 58 24 B2 22  |.#.DF.0:X.0:X$."|
00000450: 22 3A 8B 43 46 B1 32 A7  99 22 93 C1 55 46 20 C4  |":.CF.2.."..UF .|
00000460: 41 54 41 53 45 54 54 45  22 3B 3A 8D 31 33 34 00  |ATASETTE";:.134.|
00000470: 90 0C 24 00 8B 43 46 B2  32 B0 28 43 46 B2 33 AF  |..$..CF.2.(CF.3.|
00000480: 49 B2 30 29 A7 9F 31 2C  31 2C 31 2C 59 24 3A 8E  |I.0)..1,1,1,Y$:.|
00000490: 00 BE 0C 25 00 44 46 B2  AB 31 3A 4C 24 B2 22 30  |...%.DF..1:L$."0|
000004A0: 3A 22 AA 59 24 3A 9F 31  2C 30 38 2C 32 2C 4C 24  |:".Y$:.1,08,2,L$|
000004B0: 3A 84 38 2C 58 3A A0 31  3A 8B 58 89 34 30 00 F5  |:.8,X:.1:.X.40..|
000004C0: 0C 26 00 99 22 11 C6 49  4C 45 20 45 58 49 53 54  |.&.."..ILE EXIST|
000004D0: 49 45 52 54 20 2D 20 55  45 42 45 52 53 43 48 52  |IERT - UEBERSCHR|
000004E0: 45 49 42 45 4E 22 3B 3A  8D 31 33 34 3A 8B 49 A7  |EIBEN";:.134:.I.|
000004F0: 58 B2 31 3A 8E 00 09 0D  27 00 98 38 2C 22 53 22  |X.1:....'..8,"S"|
00000500: 4C 24 3A 98 38 2C 22 49  30 00 29 0D 28 00 9F 31  |L$:.8,"I0.).(..1|
00000510: 2C 30 38 2C 33 2C 4C 24  AA 22 2C 53 2C 57 22 3A  |,08,3,L$.",S,W":|
00000520: 84 38 2C 58 2C 58 24 3A  8E 00 3F 0D 29 00 8F 20  |.8,X,X$:..?.).. |
00000530: 43 52 45 41 54 45 20 41  4E 20 45 4E 54 52 59 00  |CREATE AN ENTRY.|
00000540: 72 0D 2A 00 8B 4E 58 B1  B2 56 A7 99 22 11 12 20  |r.*..NX..V..".. |
00000550: CC 45 49 44 45 52 20 4B  45 49 4E 20 D0 4C 41 54  |.EIDER KEIN .LAT|
00000560: 5A 20 4D 45 48 52 20 21  20 22 3A 8D 31 33 32 3A  |Z MEHR ! ":.132:|
00000570: 89 35 00 9A 0D 2B 00 4E  58 B2 4E 58 AA 31 3A 4B  |.5...+.NX.NX.1:K|
00000580: B2 4E 58 3A 54 B2 54 25  28 4B 29 3A 54 24 28 54  |.NX:T.T%(K):T$(T|
00000590: 2C 39 29 B2 C7 28 31 32  38 29 00 BF 0D 2C 00 4F  |,9)..(128)...,.O|
000005A0: 46 B2 31 3A 4D B2 33 39  3A 59 B2 30 3A 8F 20 47  |F.1:M.39:Y.0:. G|
000005B0: 45 54 20 4E 41 4D 45 2F  41 44 44 52 45 53 53 00  |ET NAME/ADDRESS.|
000005C0: CB 0D 2D 00 4A B2 30 3A  8D 31 39 00 FD 0D 2E 00  |..-.J.0:.19.....|
000005D0: 99 22 93 20 22 3B 3A 81  49 B2 31 A4 33 30 3A 99  |.". ";:.I.1.30:.|
000005E0: 22 A4 22 3B 3A 82 3A 81  49 B2 31 A4 35 3A 99 22  |".";:.:.I.1.5:."|
000005F0: 11 A5 9D 22 3B 3A 82 3A  99 22 11 22 3B 00 28 0E  |...";:.:.".";.(.|
00000600: 2F 00 81 49 B2 31 A4 33  30 3A 99 22 9D A3 9D 22  |/..I.1.30:."..."|
00000610: 3B 3A 82 3A 81 49 B2 31  A4 35 3A 99 22 91 9D A7  |;:.:.I.1.5:."...|
00000620: 22 3B 3A 82 3A 99 22 13  00 49 0E 30 00 81 49 B2  |";:.:."..I.0..I.|
00000630: 30 A4 34 3A 99 22 1D 22  41 24 28 4A 2C 49 29 3A  |0.4:."."A$(J,I):|
00000640: 82 3A 8B 59 B1 38 89 35  36 00 6F 0E 31 00 99 22  |.:.Y.8.56.o.1.."|
00000650: 13 11 11 11 11 11 11 11  11 11 22 42 30 24 3A 99  |.........."B0$:.|
00000660: 22 91 22 46 24 28 59 29  3A 99 42 30 24 22 91 00  |"."F$(Y):.B0$"..|
00000670: 82 0E 32 00 8D 31 34 32  3A 8B 43 B3 B1 31 33 89  |..2..142:.C..13.|
00000680: 34 36 00 AA 0E 33 00 99  3A 8B C9 28 58 24 2C 31  |46...3..:..(X$,1|
00000690: 29 B2 22 20 22 A7 58 24  B2 C8 28 58 24 2C C3 28  |)." ".X$..(X$,.(|
000006A0: 58 24 29 AB 31 29 3A 89  35 31 00 D5 0E 34 00 8B  |X$).1):.51...4..|
000006B0: 58 24 B2 22 22 AF 54 24  28 54 2C 59 29 B1 22 22  |X$."".T$(T,Y).""|
000006C0: A7 59 B2 59 AA 31 3A 91  32 AA 28 59 B3 39 29 89  |.Y.Y.1:.2.(Y.9).|
000006D0: 34 39 2C 34 35 00 E5 0E  35 00 8B C3 28 58 24 29  |49,45...5...(X$)|
000006E0: B1 31 89 35 35 00 13 0F  36 00 58 24 B2 22 2D 22  |.1.55...6.X$."-"|
000006F0: 3A 8B 59 B2 30 A7 99 22  11 CC 4F 45 53 43 48 45  |:.Y.0.."..OESCHE|
00000700: 4E 22 3B 3A 8D 31 33 34  3A 91 49 AA 31 89 36 39  |N";:.134:.I.1.69|
00000710: 2C 34 35 00 2C 0F 37 00  54 24 28 54 2C 59 29 B2  |,45.,.7.T$(T,Y).|
00000720: 58 24 3A 59 B2 59 AA 31  3A 89 34 35 00 51 0F 38  |X$:Y.Y.1:.45.Q.8|
00000730: 00 58 24 B2 22 31 32 33  34 35 36 37 22 AA 52 24  |.X$."1234567".R$|
00000740: 3A 8F 20 47 45 54 20 43  41 54 45 47 4F 52 49 45  |:. GET CATEGORIE|
00000750: 53 00 6C 0F 39 00 99 22  13 11 11 11 11 11 11 11  |S.l.9.."........|
00000760: 11 CB 41 54 45 47 4F 52  49 45 4E 3A 00 87 0F 3A  |..ATEGORIEN:...:|
00000770: 00 81 49 B2 30 A4 36 3A  99 2C 3A 8B 58 AF 32 AE  |..I.0.6:.,:.X.2.|
00000780: 49 A7 99 22 12 22 3B 00  9A 0F 3B 00 99 49 AA 31  |I..".";...;..I.1|
00000790: 22 92 22 4B 24 28 49 29  3A 82 00 CC 0F 3C 00 99  |"."K$(I):....<..|
000007A0: 22 11 D3 45 54 2F 52 45  53 45 54 20 57 45 4C 43  |"..ET/RESET WELC|
000007B0: 48 45 20 CB 41 54 45 47  4F 52 49 45 3F 20 9D 22  |HE .ATEGORIE? ."|
000007C0: 3B 3A 8D 31 33 36 3A 49  B2 32 AE 49 00 E9 0F 3D  |;:.136:I.2.I...=|
000007D0: 00 58 B2 28 58 B0 49 29  AF A8 28 58 AF 49 29 3A  |.X.(X.I)..(X.I):|
000007E0: 8B 58 B3 31 32 38 89 35  37 00 0A 10 3E 00 54 24  |.X.128.57...>.T$|
000007F0: 28 54 2C 39 29 B2 C7 28  58 29 3A 8F 20 43 4F 4D  |(T,9)..(X):. COM|
00000800: 50 4C 45 54 45 20 45 44  49 54 00 32 10 3F 00 99  |PLETE EDIT.2.?..|
00000810: 22 91 91 22 42 30 24 3A  99 22 91 C1 4B 5A 45 50  |".."B0$:."..KZEP|
00000820: 54 49 45 52 54 22 3B 3A  8D 31 33 34 3A 8B 49 89  |TIERT";:.134:.I.|
00000830: 34 34 00 51 10 40 00 8B  4E 58 B3 31 89 35 3A 8F  |44.Q.@..NX.1.5:.|
00000840: 20 4D 55 53 54 20 42 45  20 49 4E 20 4F 52 44 45  | MUST BE IN ORDE|
00000850: 52 00 8B 10 41 00 58 24  B2 54 24 28 54 2C 30 29  |R...A.X$.T$(T,0)|
00000860: 3A 8B 4B B3 4E 58 A7 81  49 B2 4B A4 4E 58 AB 31  |:.K.NX..I.K.NX.1|
00000870: 3A 54 25 28 49 29 B2 54  25 28 49 AA 31 29 3A 82  |:T%(I).T%(I.1):.|
00000880: 3A 8F 20 52 45 4D 4F 56  45 20 54 00 BD 10 42 00  |:. REMOVE T...B.|
00000890: 81 49 B2 30 A4 4E 58 AB  31 3A 8B 54 24 28 54 25  |.I.0.NX.1:.T$(T%|
000008A0: 28 49 29 2C 30 29 B3 58  24 A7 82 3A 8F 20 4C 4F  |(I),0).X$..:. LO|
000008B0: 43 41 54 45 20 54 27 53  20 53 4C 4F 54 00 FA 10  |CATE T'S SLOT...|
000008C0: 43 00 8B 49 B3 4E 58 A7  4A B2 49 AA 31 3A 81 49  |C..I.NX.J.I.1:.I|
000008D0: B2 4E 58 A4 4A A9 AB 31  3A 54 25 28 49 29 B2 54  |.NX.J..1:T%(I).T|
000008E0: 25 28 49 AB 31 29 3A 82  3A 8F 20 4D 41 4B 45 20  |%(I.1):.:. MAKE |
000008F0: 52 4F 4F 4D 20 46 4F 52  20 54 00 1A 11 44 00 54  |ROOM FOR T...D.T|
00000900: 25 28 49 29 B2 54 3A 89  35 3A 8F 20 49 4E 53 45  |%(I).T:.5:. INSE|
00000910: 52 54 20 54 2C 20 45 58  49 54 00 32 11 45 00 8F  |RT T, EXIT.2.E..|
00000920: 20 43 4C 45 41 4E 20 55  50 20 44 45 4C 45 54 49  | CLEAN UP DELETI|
00000930: 4F 4E 00 4A 11 46 00 81  49 B2 30 A4 39 3A 54 24  |ON.J.F..I.0.9:T$|
00000940: 28 54 2C 49 29 B2 22 22  3A 82 00 79 11 47 00 4E  |(T,I)."":..y.G.N|
00000950: 58 B2 4E 58 AB 31 3A 81  49 B2 4B A4 4E 58 3A 54  |X.NX.1:.I.K.NX:T|
00000960: 25 28 49 29 B2 54 25 28  49 AA 31 29 3A 82 3A 54  |%(I).T%(I.1):.:T|
00000970: 25 28 49 29 B2 54 3A 89  35 00 94 11 48 00 8F 20  |%(I).T:.5...H.. |
00000980: 53 45 4C 45 43 54 2F 45  44 49 54 20 41 4E 20 45  |SELECT/EDIT AN E|
00000990: 4E 54 52 59 00 B8 11 49  00 99 22 93 22 3A 99 22  |NTRY...I..".":."|
000009A0: C6 49 4E 44 45 4E 20 44  55 52 43 48 3A 20 20 12  |.INDEN DURCH:  .|
000009B0: CC 92 DA 55 4E 41 4D 45  00 CF 11 4A 00 99 2C 22  |...UNAME...J..,"|
000009C0: 20 20 20 20 20 12 C6 92  D6 4F 52 4E 41 4D 45 00  |     ....ORNAME.|
000009D0: F1 11 4B 00 99 2C 22 20  20 20 20 20 12 C3 92 D3  |..K..,"     ....|
000009E0: 54 52 41 53 53 45 20 55  4E 44 20 CE 55 4D 4D 45  |TRASSE UND .UMME|
000009F0: 52 00 0C 12 4C 00 99 2C  22 20 20 20 20 20 12 D3  |R...L..,"     ..|
00000A00: 92 D0 CC DA 20 55 4E 44  20 CF 52 54 00 23 12 4D  |.... UND .RT.#.M|
00000A10: 00 99 2C 22 20 20 20 20  20 12 D4 92 D4 45 4C 45  |..,"     ....ELE|
00000A20: 46 4F 4E 00 4C 12 4E 00  99 22 11 D7 41 45 48 4C  |FON.L.N.."..AEHL|
00000A30: 45 3A 22 3B 3A 58 24 B2  22 4C 46 4C 4C 4C 4C 43  |E:";:X$."LFLLLLC|
00000A40: 53 54 22 3A 8D 31 33 35  3A 46 B2 49 00 78 12 4F  |ST":.135:F.I.x.O|
00000A50: 00 4D B2 34 30 3A 99 22  11 CB 45 4E 4E 57 4F 52  |.M.40:."..ENNWOR|
00000A60: 54 3A 20 22 3B 3A 8D 31  34 32 3A 5A 24 B2 58 24  |T: ";:.142:Z$.X$|
00000A70: 3A 5A B2 C3 28 5A 24 29  00 93 12 50 00 4B B2 30  |:Z..(Z$)...P.K.0|
00000A80: 3A 8F 20 53 45 41 52 43  48 20 46 4F 52 20 46 49  |:. SEARCH FOR FI|
00000A90: 45 4C 44 00 AE 12 51 00  54 B2 54 25 28 4B 29 3A  |ELD...Q.T.T%(K):|
00000AA0: 58 24 B2 54 24 28 54 2C  46 29 3A 59 B2 30 00 DE  |X$.T$(T,F):Y.0..|
00000AB0: 12 52 00 81 49 B2 31 A4  C3 28 58 24 29 AB 5A AA  |.R..I.1..(X$).Z.|
00000AC0: 31 3A 59 B2 28 CA 28 58  24 2C 49 2C 5A 29 B2 5A  |1:Y.(.(X$,I,Z).Z|
00000AD0: 24 29 B0 59 3A 82 3A 8B  59 B2 30 89 38 35 00 01  |$).Y:.:.Y.0.85..|
00000AE0: 13 53 00 4A B2 30 3A 8D  31 39 3A 99 22 93 22 3A  |.S.J.0:.19:.".":|
00000AF0: 81 49 B2 30 A4 34 3A 99  41 24 28 30 2C 49 29 3A  |.I.0.4:.A$(0,I):|
00000B00: 82 00 28 13 54 00 99 22  11 CE 41 45 43 48 53 54  |..(.T.."..AECHST|
00000B10: 45 52 20 59 20 4F 44 45  52 20 4E 22 3B 3A 8D 31  |ER Y ODER N";:.1|
00000B20: 33 34 3A 8B 49 89 38 37  00 3C 13 55 00 4B B2 4B  |34:.I.87.<.U.K.K|
00000B30: AA 31 3A 8B 4B B3 B2 4E  58 89 38 31 00 62 13 56  |.1:.K..NX.81.b.V|
00000B40: 00 99 3A 99 22 11 C1 4C  4C 45 20 C4 41 54 45 4E  |..:."..LLE .ATEN|
00000B50: 20 47 45 50 52 55 45 46  54 22 3A 8D 31 33 32 3A  | GEPRUEFT":.132:|
00000B60: 89 35 00 7E 13 57 00 99  22 11 C5 44 49 54 22 3B  |.5.~.W.."..DIT";|
00000B70: 3A 8D 31 33 34 3A 91 49  89 35 3A 89 34 34 00 9A  |:.134:.I.5:.44..|
00000B80: 13 58 00 8F 20 46 49 4C  45 20 46 4F 52 20 57 4F  |.X.. FILE FOR WO|
00000B90: 52 44 20 4D 41 43 48 49  4E 45 00 CC 13 59 00 99  |RD MACHINE...Y..|
00000BA0: 22 93 CE 41 4D 45 20 46  55 45 52 20 44 45 4E 20  |"..AME FUER DEN |
00000BB0: C6 49 4C 45 3A 20 22 3B  3A 4D B2 31 36 3A 8D 31  |.ILE: ";:M.16:.1|
00000BC0: 34 32 3A 8B 58 24 B2 22  22 89 38 39 00 E5 13 5A  |42:.X$."".89...Z|
00000BD0: 00 59 24 B2 58 24 3A 8D  33 34 3A 8B C5 28 58 24  |.Y$.X$:.34:..(X$|
00000BE0: 29 89 31 38 38 00 EE 13  5B 00 8B 58 89 35 00 21  |).188...[..X.5.!|
00000BF0: 14 5C 00 8D 31 31 36 3A  99 22 11 D7 41 45 48 4C  |.\..116:."..AEHL|
00000C00: 45 20 49 4E 44 49 56 49  44 55 45 4C 4C 22 3B 3A  |E INDIVIDUELL";:|
00000C10: 8D 31 33 34 3A 53 46 B2  49 3A 4A B2 30 3A 4B B2  |.134:SF.I:J.0:K.|
00000C20: 30 00 42 14 5D 00 54 B2  54 25 28 4B 29 3A 8B 28  |0.B.].T.T%(K):.(|
00000C30: 46 AF C6 28 54 24 28 54  2C 39 29 29 29 B2 30 89  |F..(T$(T,9))).0.|
00000C40: 39 39 00 57 14 5E 00 8B  53 46 A7 99 54 24 28 54  |99.W.^..SF..T$(T|
00000C50: 2C 30 29 3A 89 39 37 00  76 14 5F 00 8D 31 39 3A  |,0):.97.v._..19:|
00000C60: 99 22 93 22 3A 81 49 B2  30 A4 33 3A 99 41 24 28  |.".":.I.0.3:.A$(|
00000C70: 4A 2C 49 29 3A 82 00 9B  14 60 00 99 22 11 C9 4E  |J,I):....`.."..N|
00000C80: 4B 4C 55 53 49 56 45 20  44 49 45 53 45 4D 22 3B  |KLUSIVE DIESEM";|
00000C90: 3A 8D 31 33 34 3A 8B 49  89 39 39 00 B1 14 61 00  |:.134:.I.99...a.|
00000CA0: 8F 20 4F 55 54 50 55 54  20 54 48 45 20 46 49 4C  |. OUTPUT THE FIL|
00000CB0: 45 00 D2 14 62 00 81 49  B2 30 A4 37 3A 98 31 2C  |E...b..I.0.7:.1,|
00000CC0: 54 24 28 54 2C 49 29 3A  82 3A 44 46 B2 B6 28 44  |T$(T,I):.:DF..(D|
00000CD0: 46 29 00 E6 14 63 00 4B  B2 4B AA 31 3A 8B 4B B3  |F)...c.K.K.1:.K.|
00000CE0: B2 4E 58 89 39 33 00 19  15 64 00 98 31 2C 22 5C  |.NX.93...d..1,"\|
00000CF0: 22 3A 8B 44 46 B1 AB 31  A7 91 53 46 AA 31 89 31  |":.DF..1..SF.1.1|
00000D00: 30 33 2C 35 3A 8F 20 20  2D 31 3D 45 4D 50 54 59  |03,5:.  -1=EMPTY|
00000D10: 20 44 49 53 43 46 49 4C  45 00 48 15 65 00 99 22  | DISCFILE.H.e.."|
00000D20: 11 C4 45 52 20 C6 49 4C  45 20 57 41 52 20 CC 45  |..ER .ILE WAR .E|
00000D30: 45 52 20 3B 20 45 52 20  57 55 52 44 45 20 47 45  |ER ; ER WURDE GE|
00000D40: 4C 4F 45 53 43 48 54 2E  00 61 15 66 00 A0 31 3A  |LOESCHT..a.f..1:|
00000D50: 98 38 2C 22 53 30 3A 22  59 24 3A 98 38 2C 22 49  |.8,"S0:"Y$:.8,"I|
00000D60: 30 00 6D 15 67 00 8D 31  33 32 3A 89 35 00 80 15  |0.m.g..132:.5...|
00000D70: 68 00 8F 20 50 52 49 4E  54 20 4C 41 42 45 4C 53  |h.. PRINT LABELS|
00000D80: 00 9D 15 69 00 53 46 B2  AB 31 3A 4D B2 33 30 3A  |...i.SF..1:M.30:|
00000D90: 9F 31 2C 30 34 3A 4C 4C  B2 39 39 39 39 00 C6 15  |.1,04:LL.9999...|
00000DA0: 6A 00 99 22 11 C5 49 4E  5A 45 4C 4E 45 20 D3 50  |j.."..INZELNE .P|
00000DB0: 41 4C 54 45 4E 20 CE 41  4D 45 4E 22 3B 3A 8D 31  |ALTEN .AMEN";:.1|
00000DC0: 33 34 3A 59 B2 49 00 EA  15 6B 00 99 22 11 CA 55  |34:Y.I...k.."..U|
00000DD0: 53 54 49 45 52 45 20 CE  41 4D 45 4E 22 3B 3A 8D  |STIERE .AMEN";:.|
00000DE0: 31 33 34 3A 8B 49 89 31  31 31 00 17 16 6C 00 50  |134:.I.111...l.P|
00000DF0: 24 B2 22 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 45 52 53  |$."----------ERS|
00000E00: 54 45 20 DA 45 49 4C 45  2D 2D 2D 2D 2D 2D 2D 2D  |TE .EILE--------|
00000E10: 2D 22 3A 8D 31 32 39 00  4D 16 6D 00 81 49 B2 30  |-":.129.M.m..I.0|
00000E20: A4 31 3A 50 24 B2 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.1:P$."---------|
00000E30: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000E40: 2D 2D 2D 2D 2D 22 3A 8D  31 32 39 3A 82 00 88 16  |-----":.129:....|
00000E50: 6E 00 50 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |n.P$."----------|
00000E60: 4C 45 54 5A 54 45 20 DA  45 49 4C 45 2D 2D 2D 2D  |LETZTE .EILE----|
00000E70: 2D 2D 2D 2D 22 3A 81 49  B2 31 A4 33 3A 8D 31 32  |----":.I.1.3:.12|
00000E80: 39 3A 82 3A 89 31 30 37  00 A9 16 6F 00 8D 31 31  |9:.:.107...o..11|
00000E90: 36 3A 8D 31 32 30 3A 89  35 3A 8F 20 4F 55 54 50  |6:.120:.5:. OUTP|
00000EA0: 55 54 20 4C 41 42 45 4C  53 00 C0 16 70 00 8F 20  |UT LABELS...p.. |
00000EB0: 50 52 49 4E 54 20 50 48  4F 4E 45 20 42 4F 4F 4B  |PRINT PHONE BOOK|
00000EC0: 00 DC 16 71 00 53 46 B2  30 3A 4D B2 33 36 3A 59  |...q.SF.0:M.36:Y|
00000ED0: B2 31 3A 9F 31 2C 30 34  3A 4C B2 30 00 04 17 72  |.1:.1,04:L.0...r|
00000EE0: 00 99 22 11 DA 45 49 4C  45 4E 20 50 52 4F 20 D3  |.."..EILEN PRO .|
00000EF0: 45 49 54 45 20 22 4C 30  22 9D 9D 9D 9D 9D 22 3B  |EITE "L0".....";|
00000F00: 3A 85 4C 4C 00 1A 17 73  00 8D 31 31 36 3A 8D 31  |:.LL...s..116:.1|
00000F10: 32 30 3A 8D 31 33 31 3A  89 35 00 2D 17 74 00 8F  |20:.131:.5.-.t..|
00000F20: 20 47 45 54 20 43 41 54  45 47 4F 52 59 00 63 17  | GET CATEGORY.c.|
00000F30: 75 00 99 22 93 D7 41 45  48 4C 45 20 4D 49 54 22  |u.."..AEHLE MIT"|
00000F40: 3A 81 49 B2 30 A4 36 3A  99 2C 22 12 22 CA 28 C4  |:.I.0.6:.,".".(.|
00000F50: 28 49 AA 31 29 2C 32 29  22 92 20 22 4B 24 28 49  |(I.1),2)". "K$(I|
00000F60: 29 3A 82 00 9D 17 76 00  99 2C 22 12 38 92 20 C1  |):....v..,".8. .|
00000F70: 4C 4C 45 53 22 3A 99 22  11 C9 48 52 45 20 D7 41  |LLES":."..HRE .A|
00000F80: 48 4C 22 3B 3A 58 24 B2  22 31 32 33 34 35 36 37  |HL";:X$."1234567|
00000F90: 38 22 3A 8D 31 33 35 3A  46 B2 32 AE 49 00 BC 17  |8":.135:F.2.I...|
00000FA0: 77 00 8E 3A 8F 20 41 4C  4C 20 41 52 45 20 4F 52  |w..:. ALL ARE OR|
00000FB0: 2D 45 44 20 57 49 54 48  20 31 32 38 00 CF 17 78  |-ED WITH 128...x|
00000FC0: 00 8F 20 50 52 49 4E 54  20 45 49 54 48 45 52 00  |.. PRINT EITHER.|
00000FD0: FD 17 79 00 4A B2 59 3A  81 4B B2 30 A4 4E 58 3A  |..y.J.Y:.K.0.NX:|
00000FE0: 54 B2 54 25 28 4B 29 3A  8B 28 46 AF C6 28 54 24  |T.T%(K):.(F..(T$|
00000FF0: 28 54 2C 39 29 29 29 B2  30 89 31 32 37 00 1A 18  |(T,9))).0.127...|
00001000: 7A 00 4A B2 59 AB 4A 3A  8D 31 39 3A 8B 53 46 A7  |z.J.Y.J:.19:.SF.|
00001010: 41 24 28 4A 2C 34 29 B2  22 22 00 27 18 7B 00 8B  |A$(J,4)."".'.{..|
00001020: 4A B3 59 89 31 32 37 00  42 18 7C 00 81 49 B2 30  |J.Y.127.B.|..I.0|
00001030: A4 34 3A 50 24 B2 C8 28  41 24 28 30 2C 49 29 2C  |.4:P$..(A$(0,I),|
00001040: 4D 29 00 6C 18 7D 00 8B  4A A7 50 24 B2 50 24 AA  |M).l.}..J.P$.P$.|
00001050: C8 28 42 24 2C 4D AA 36  AB C3 28 50 24 29 29 AA  |.(B$,M.6..(P$)).|
00001060: C8 28 41 24 28 31 2C 49  29 2C 4D 29 00 7C 18 7E  |.(A$(1,I),M).|.~|
00001070: 00 8D 31 32 39 3A 82 3A  8D 31 32 39 00 AB 18 7F  |..129:.:.129....|
00001080: 00 82 4B 3A 8B 4A B3 59  A7 81 49 B2 30 A4 34 3A  |..K:.J.Y..I.0.4:|
00001090: 50 24 B2 C8 28 41 24 28  30 2C 49 29 2C 4D 29 3A  |P$..(A$(0,I),M):|
000010A0: 8D 31 32 39 3A 82 3A 8D  31 32 39 00 B1 18 80 00  |.129:.:.129.....|
000010B0: 8E 00 DE 18 81 00 4C B2  4C AA 31 3A 98 31 2C 22  |......L.L.1:.1,"|
000010C0: 11 22 AA 50 24 3A 50 24  B2 22 22 3A 8B 4C B3 4C  |.".P$:P$."":.L.L|
000010D0: 4C A7 8E 3A 8F 20 4C 49  4E 45 20 4F 55 54 00 00  |L..:. LINE OUT..|
000010E0: 19 82 00 4C B2 4C AA 31  3A 98 31 2C 22 11 22 AA  |...L.L.1:.1,".".|
000010F0: 50 24 3A 50 24 B2 22 22  3A 8B 4C B3 4C 4C A7 8E  |P$:P$."":.L.LL..|
00001100: 00 2E 19 83 00 8B 4C A7  81 4C B2 4C A4 4C 50 AB  |......L..L.L.LP.|
00001110: 31 3A 98 31 3A 82 3A 4C  B2 30 3A 8E 3A 8F 20 46  |1:.1:.:L.0:.:. F|
00001120: 49 4E 49 53 48 20 54 48  45 20 50 41 47 45 00 3E  |INISH THE PAGE.>|
00001130: 19 84 00 8F 20 55 54 49  4C 49 54 49 45 53 00 69  |.... UTILITIES.i|
00001140: 19 85 00 99 22 11 12 20  C4 52 55 45 43 4B 45 20  |....".. .RUECKE |
00001150: 45 49 4E 45 20 D4 41 53  54 45 20 22 3B 3A 8D 32  |EINE .ASTE ";:.2|
00001160: 3A 99 3A 99 22 93 22 3A  8E 00 74 19 86 00 58 24  |:.:.".":..t...X$|
00001170: B2 22 59 4E 00 7F 19 87  00 99 22 3F 20 22 3B 00  |."YN......"? ";.|
00001180: A7 19 88 00 8D 32 3A 81  49 B2 31 A4 C3 28 58 24  |.....2:.I.1..(X$|
00001190: 29 3A 8B 43 24 B3 B1 CA  28 58 24 2C 49 2C 31 29  |):.C$...(X$,I,1)|
000011A0: A7 82 3A 89 31 33 36 00  C0 19 89 00 49 B2 49 AB  |..:.136.....I.I.|
000011B0: 31 3A 99 43 24 3B 3A 8B  43 B2 31 33 A7 99 3A 8E  |1:.C$;:.C.13..:.|
000011C0: 00 DB 19 8A 00 A1 57 24  3A 8B 57 24 B2 22 22 A7  |......W$:.W$."".|
000011D0: 99 22 A4 9D 22 3B 3A 89  31 33 38 00 F1 19 8B 00  |."..";:.138.....|
000011E0: 99 22 20 9D 22 3B 3A 8B  57 24 B2 52 24 A7 99 3A  |." .";:.W$.R$..:|
000011F0: 8E 00 09 1A 8C 00 8B 57  24 B2 C7 28 32 30 29 A7  |.......W$..(20).|
00001200: 99 57 24 3B 3A 89 31 33  36 00 12 1A 8D 00 89 31  |.W$;:.136......1|
00001210: 33 38 00 2D 1A 8E 00 58  24 B2 22 22 3A 8F 20 49  |38.-...X$."":. I|
00001220: 4E 50 55 54 20 41 20 53  54 52 49 4E 47 00 3D 1A  |NPUT A STRING.=.|
00001230: 8F 00 A1 43 24 3A 8B 43  24 89 31 34 33 00 4C 1A  |...C$:.C$.143.L.|
00001240: 90 00 8D 33 3A 8B 43 B2  31 33 A7 8E 00 7B 1A 91  |...3:.C.13...{..|
00001250: 00 8B 43 B2 32 30 AF 58  24 B1 22 22 A7 99 43 24  |..C.20.X$.""..C$|
00001260: 3B 3A 58 24 B2 C8 28 58  24 2C C3 28 58 24 29 AB  |;:X$..(X$,.(X$).|
00001270: 31 29 3A 8F 20 44 45 4C  45 54 45 00 A3 1A 92 00  |1):. DELETE.....|
00001280: 8B 28 31 32 37 AF 43 29  B3 33 32 89 31 34 34 3A  |.(127.C).32.144:|
00001290: 8F 20 43 55 52 53 4F 52  20 43 48 41 52 41 43 54  |. CURSOR CHARACT|
000012A0: 45 52 53 00 CC 1A 93 00  8B 28 4B 25 28 43 29 B0  |ERS......(K%(C).|
000012B0: 47 29 A7 99 43 24 3B 3A  58 24 B2 58 24 AA 43 24  |G)..C$;:X$.X$.C$|
000012C0: 3A 8B C3 28 58 24 29 B1  B2 4D A7 8E 00 D5 1A 94  |:..(X$)..M......|
000012D0: 00 89 31 34 34 00 E6 1A  95 00 8F 20 49 4E 49 54  |..144...... INIT|
000012E0: 49 41 4C 49 5A 45 00 16  1B 96 00 4C 30 B2 36 30  |IALIZE.....L0.60|
000012F0: 3A 4C 50 B2 36 36 3A 4E  58 B2 AB 31 3A 52 24 B2  |:LP.66:NX..1:R$.|
00001300: C7 28 31 33 29 3A 48 24  B2 22 4E 41 4D 45 4E 20  |.(13):H$."NAMEN |
00001310: 4C 49 53 54 45 22 00 37  1B 97 00 86 4B 25 28 32  |LISTE".7....K%(2|
00001320: 35 35 29 2C 41 24 28 31  2C 34 29 2C 4B 24 28 36  |55),A$(1,4),K$(6|
00001330: 29 2C 46 24 28 38 29 00  78 1B 98 00 99 22 93 8E  |),F$(8).x...."..|
00001340: 13 13 0F 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001350: 11 11 11 11 11 11 11 11  11 11 11 11 22 A6 33 39  |............".39|
00001360: 29 22 8F 05 22 3A 97 35  39 34 36 38 2C 31 34 3A  |)"..":.59468,14:|
00001370: 8F 20 46 4F 52 4D 41 54  00 B1 1B 99 00 97 35 33  |. FORMAT......53|
00001380: 32 37 32 2C 32 B0 C2 28  35 33 32 37 32 29 3A 99  |272,2..(53272):.|
00001390: 22 93 20 20 20 20 20 12  20 C3 4F 4D 4D 4F 44 4F  |".     . .OMMODO|
000013A0: 52 45 20 CE C1 CD C5 A0  CD C1 C3 C8 C9 CE C5 20  |RE ............ |
000013B0: 92 00 CA 1B 9A 00 8D 31  38 39 3A 20 8F 20 43 4F  |.......189: . CO|
000013C0: 4C 4F 52 20 43 48 41 4E  47 45 00 05 1C 9B 00 99  |LOR CHANGE......|
000013D0: 22 11 12 D4 92 41 50 45  2C 20 12 C4 92 49 53 43  |"....APE, ...ISC|
000013E0: 2C 4F 44 45 52 20 20 12  C2 92 45 49 44 45 22 3B  |,ODER  ...EIDE";|
000013F0: 3A 58 24 B2 22 44 54 42  22 3A 8D 31 33 35 3A 43  |:X$."DTB":.135:C|
00001400: 46 B2 49 AA 31 00 3D 1C  9C 00 81 49 B2 33 32 A4  |F.I.1.=....I.32.|
00001410: 39 30 3A 87 4B 25 28 49  29 3A 82 3A 81 49 B2 31  |90:.K%(I):.:.I.1|
00001420: 39 33 A4 32 31 38 3A 4B  25 28 49 29 B2 31 3A 82  |93.218:K%(I).1:.|
00001430: 3A 8F 20 43 48 41 52 20  41 52 52 41 59 00 74 1C  |:. CHAR ARRAY.t.|
00001440: 9D 00 42 24 B2 22 20 20  20 20 20 22 3A 81 49 B2  |..B$."     ":.I.|
00001450: 31 A4 35 3A 42 24 B2 42  24 AA 42 24 3A 82 3A 42  |1.5:B$.B$.B$:.:B|
00001460: 30 24 B2 C8 28 42 24 2C  33 39 29 3A 9F 38 2C 30  |0$..(B$,39):.8,0|
00001470: 38 2C 31 35 00 B2 1C 9E  00 99 22 11 C8 45 55 54  |8,15......"..EUT|
00001480: 49 47 45 53 20 C4 41 54  55 4D 3A 20 22 3A 4D B2  |IGES .ATUM: ":M.|
00001490: 36 30 3A 47 B2 31 3A 8D  31 34 32 3A 47 B2 30 3A  |60:G.1:.142:G.0:|
000014A0: 44 24 B2 58 24 3A 8B 44  24 B2 22 22 A7 44 24 B2  |D$.X$:.D$."".D$.|
000014B0: 22 2D 00 D6 1C 9F 00 99  3A 81 49 B2 30 A4 38 3A  |"-......:.I.0.8:|
000014C0: 87 46 24 28 49 29 3A 82  3A 8F 20 46 49 45 4C 44  |.F$(I):.:. FIELD|
000014D0: 20 4E 41 4D 45 53 00 F7  1C A0 00 81 49 B2 30 A4  | NAMES......I.0.|
000014E0: 36 3A 87 4B 24 28 49 29  3A 82 3A 8F 20 43 41 54  |6:.K$(I):.:. CAT|
000014F0: 45 47 4F 52 49 45 53 00  30 1D A1 00 56 B2 B5 28  |EGORIES.0...V..(|
00001500: 28 B8 28 30 29 AB 32 30  30 30 29 AD 31 37 30 29  |(.(0).2000).170)|
00001510: 3A 86 54 24 28 56 2C 39  29 2C 54 25 28 56 29 3A  |:.T$(V,9),T%(V):|
00001520: 81 49 B2 30 A4 56 3A 54  25 28 49 29 B2 49 3A 82  |.I.0.V:T%(I).I:.|
00001530: 00 41 1D A2 00 8F 20 49  4E 50 55 54 20 46 49 4C  |.A.... INPUT FIL|
00001540: 45 00 5F 1D A3 00 8B 43  46 B1 32 A7 99 22 11 D6  |E._....CF.2.."..|
00001550: 4F 4D 20 C2 41 4E 44 3F  22 3B 3A 8D 31 33 34 00  |OM .AND?";:.134.|
00001560: 8D 1D A4 00 8B 43 46 B2  32 B0 28 43 46 B2 33 AF  |.....CF.2.(CF.3.|
00001570: 49 B2 30 29 A7 8D 31 37  34 3A 91 49 89 35 3A 9F  |I.0)..174:.I.5:.|
00001580: 31 2C 31 2C 30 2C 48 24  3A 89 31 36 38 00 B0 1D  |1,1,0,H$:.168...|
00001590: A5 00 A0 31 3A 9F 31 2C  30 38 2C 32 2C 48 24 3A  |...1:.1,08,2,H$:|
000015A0: 84 38 2C 58 2C 58 24 3A  8B 58 B2 30 89 31 36 38  |.8,X,X$:.X.0.168|
000015B0: 00 BE 1D A6 00 8D 31 37  34 3A 8B 49 89 35 00 ED  |......174:.I.5..|
000015C0: 1D A7 00 99 22 11 C2 49  54 54 45 20 4C 45 47 45  |...."..ITTE LEGE|
000015D0: 20 45 49 4E 45 20 C4 49  53 4B 45 54 54 45 20 45  | EINE .ISKETTE E|
000015E0: 49 4E 22 3A 8D 31 33 32  3A 89 31 36 35 00 F7 1D  |IN":.132:.165...|
000015F0: A8 00 58 24 B2 22 22 00  18 1E A9 00 A1 23 31 2C  |..X$.""......#1,|
00001600: 43 24 3A 8B 43 24 B3 B1  52 24 A7 58 24 B2 58 24  |C$:.C$..R$.X$.X$|
00001610: AA 43 24 3A 89 31 36 39  00 44 1E AA 00 99 22 93  |.C$:.169.D....".|
00001620: C5 4E 54 45 52 45 44 3A  20 12 22 58 24 3A 99 3A  |.NTERED: ."X$:.:|
00001630: 8F 20 44 41 54 45 4C 49  4E 45 20 46 52 4F 4D 20  |. DATELINE FROM |
00001640: 46 49 4C 45 00 79 1E AB  00 81 49 B2 30 A4 56 3A  |FILE.y....I.0.V:|
00001650: 84 31 2C 58 24 3A 8B 58  24 B2 22 5C 22 B0 53 54  |.1,X$:.X$."\".ST|
00001660: B1 30 89 31 37 33 3A 8F  20 52 45 41 44 49 4E 47  |.0.173:. READING|
00001670: 20 43 4F 4D 50 4C 45 54  45 00 AA 1E AC 00 99 58  | COMPLETE......X|
00001680: 24 3A 54 24 28 49 2C 30  29 B2 58 24 3A 81 4A B2  |$:T$(I,0).X$:.J.|
00001690: 31 A4 39 3A 84 31 2C 54  24 28 49 2C 4A 29 3A 82  |1.9:.1,T$(I,J):.|
000016A0: 3A 54 25 28 49 29 B2 49  3A 82 00 C3 1E AD 00 4E  |:T%(I).I:......N|
000016B0: 58 B2 49 AB 31 3A 89 35  3A 8F 20 43 4F 4D 50 4C  |X.I.1:.5:. COMPL|
000016C0: 45 54 45 00 E4 1E AE 00  99 22 11 CE 45 55 45 52  |ETE......"..EUER|
000016D0: 20 C6 49 4C 45 22 3B 3A  8D 31 33 34 3A 49 B2 31  | .ILE";:.134:I.1|
000016E0: AB 49 3A 8E 00 06 1F AF  00 8F 20 41 43 43 45 50  |.I:....... ACCEP|
000016F0: 54 41 42 4C 45 20 43 48  41 52 41 43 54 45 52 53  |TABLE CHARACTERS|
00001700: 20 33 32 2D 39 30 00 4B  1F B0 00 83 31 2C 31 2C  | 32-90.K....1,1,|
00001710: 30 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |0,1,1,1,1,1,1,1,|
00001720: 31 2C 31 2C 30 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,0,1,1,1,1,1,|
00001730: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001740: 30 2C 30 2C 31 2C 31 2C  31 2C 31 00 86 1F B1 00  |0,0,1,1,1,1.....|
00001750: 83 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |.1,1,1,1,1,1,1,1|
00001760: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001770: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001780: 2C 31 2C 31 2C 31 00 CA  1F B2 00 83 22 DA 55 4E  |,1,1,1......".UN|
00001790: 41 4D 45 22 2C 22 D6 4F  52 4E 41 4D 45 22 2C 22  |AME",".ORNAME","|
000017A0: C1 4E 52 45 44 45 20 28  45 2E 47 2E 2C 20 C6 52  |.NREDE (E.G., .R|
000017B0: 2E 2C 20 C8 52 2E 20 26  20 C6 52 2E 2C 20 C4 52  |., .R. & .R., .R|
000017C0: 2E 29 22 2C 22 D4 49 54  45 4C 00 FD 1F B3 00 83  |.)",".ITEL......|
000017D0: 22 C6 49 52 4D 41 22 2C  22 C1 44 44 52 45 53 53  |".IRMA",".DDRESS|
000017E0: 45 22 2C 22 D0 CC DA 20  CF 52 54 22 2C 22 D3 54  |E","... .RT",".T|
000017F0: 41 41 54 22 2C 22 D4 45  4C 45 46 4F 4E 00 14 20  |AAT",".ELEFON.. |
00001800: B4 00 8F 20 53 45 56 45  4E 20 43 41 54 45 47 4F  |... SEVEN CATEGO|
00001810: 52 49 45 53 00 22 20 B5  00 83 20 46 41 4D 49 4C  |RIES." ... FAMIL|
00001820: 49 45 00 30 20 B6 00 83  20 46 52 45 55 4E 44 45  |IE.0 ... FREUNDE|
00001830: 00 40 20 B7 00 83 20 42  45 48 4F 45 52 44 45 4E  |.@ ... BEHOERDEN|
00001840: 00 4D 20 B8 00 83 20 4B  55 4E 44 45 4E 00 5A 20  |.M ... KUNDEN.Z |
00001850: B9 00 83 20 46 49 52 4D  45 4E 00 68 20 BA 00 83  |... FIRMEN.h ...|
00001860: 20 53 43 48 55 4C 45 4E  00 76 20 BB 00 83 20 44  | SCHULEN.v ... D|
00001870: 49 56 45 52 53 45 00 86  20 BC 00 99 58 24 3A 8D  |IVERSE.. ...X$:.|
00001880: 31 33 32 3A 89 35 00 A1  20 BD 00 8F 20 43 4F 4C  |132:.5.. ... COL|
00001890: 4F 52 20 43 48 41 4E 47  45 20 52 4F 55 54 49 4E  |OR CHANGE ROUTIN|
000018A0: 45 00 C5 20 BE 00 96 A5  43 28 58 29 B2 C2 28 58  |E.. ....C(X)..(X|
000018B0: 29 AA 31 AA 31 36 AC 28  28 C2 28 58 29 AF 31 35  |).1.16.((.(X).15|
000018C0: 29 B2 31 35 29 00 E6 20  BF 00 99 22 13 11 11 11  |).15).. ..."....|
000018D0: D7 41 45 48 4C 45 20 44  49 45 20 C6 41 52 42 45  |.AEHLE DIE .ARBE|
000018E0: 4E 20 2E 2E 2E 22 00 1A  21 C0 00 99 22 11 11 12  |N ..."..!..."...|
000018F0: C6 31 92 3D D2 41 48 4D  45 4E 20 C6 41 52 42 45  |.1.=.AHMEN .ARBE|
00001900: 20 20 20 12 C6 33 92 3D  C8 49 4E 54 45 52 47 52  |   ..3.=.INTERGR|
00001910: 55 4E 44 20 C6 41 52 42  45 22 00 4D 21 C1 00 99  |UND .ARBE".M!...|
00001920: 22 11 12 C6 35 92 3D C2  55 43 48 53 54 41 42 45  |"...5.=.UCHSTABE|
00001930: 4E 20 C6 41 52 42 45 20  20 20 12 D2 C5 D4 D5 D2  |N .ARBE   ......|
00001940: CE 92 3D D7 45 49 54 45  52 11 11 11 22 00 5D 21  |..=.EITER...".]!|
00001950: C2 00 A1 43 24 3A 8B 43  24 89 31 39 34 00 70 21  |...C$:.C$.194.p!|
00001960: C3 00 A1 43 24 3A 8B 43  24 B2 22 22 89 31 39 35  |...C$:.C$."".195|
00001970: 00 95 21 C4 00 43 B2 C6  28 43 24 29 3A 8B 43 B2  |..!..C..(C$):.C.|
00001980: 31 33 35 A7 97 36 34 36  2C A5 43 28 36 34 36 29  |135..646,.C(646)|
00001990: 3A 89 31 39 31 00 C1 21  C5 00 43 B2 C6 28 43 24  |:.191..!..C..(C$|
000019A0: 29 3A 8B 43 B2 31 33 33  B0 43 B2 31 33 34 A7 58  |):.C.133.C.134.X|
000019B0: B2 35 33 31 34 37 AA 43  3A 97 58 2C A5 43 28 58  |.53147.C:.X,.C(X|
000019C0: 29 00 CF 21 C6 00 8B 43  B2 39 35 89 32 30 30 00  |)..!...C.95.200.|
000019D0: DE 21 C7 00 8B 43 B3 B1  31 33 89 31 39 34 00 E4  |.!...C..13.194..|
000019E0: 21 C8 00 8E 00 00 00 00                           |!.......        |

..6.... (C) 1982 BY COMMODORE BUSINESS M
ACHINES, INC.L.?....149.M....C$:.C$.2.J.
...C$:.C$.." .";:C.F(C$):..X...."..";:.3
..... 1:. MENU ENTRY......".      . COMM
ODORE NAME MACHINE ........."MENUE  :  .
A.EINGABE NAMEN/ADRESSEN......,".C.SUCHE
 NAMEN/ADDRESSEN.'....,".P.DRUCKE NAMEN/
ADDRESSENLISTEN.J....,".B.BILDE WORD MAC
HINE FILES.M....,".T.TELEPHONVERZEICHNIS
DRUCK......,".S.SPEICHERN DER DATEN.....
.,".Q.PROGRAMMENDE.G....".WAEHLE   ";:X$
."QACPBST":.135......I.41,72,104,88,26,1
12......".AUSDRUCK ";:.134:.I.0..1,04:L.
.1:.131: 1.@....OF..".SPEICHERN Y ODER N
";:.134:.I.0..28.V... 1:.".":.G(142):..L
.... FORMAT THE LINE.....X$.T$(T,0):Y$.T
$(T,1):.C(Y$).1.X$.Y$." ".X$.A...Y$.T$(T
,2):.C(Y$).1.X$.Y$." ".X$.....Y$.T$(T,3)
:.C(Y$).1.X$.X$.", ".Y$.)...A$(J,0).X$:.
I.1.3:A$(J,I)."":Y$.T$(T,I.3):.C(Y$).1.A
$(J,I).Y$.Z....:.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:....... OUTPUT FILE.....
.28:.5.....Y$.H$:.34:.E(X$).188......X..
.Q...OF.0:.1,D$:.......I.0.NX:T.T%(I):.T
$(T,0)... ..J.0.9:.1,T$(T,J):.J,I.!.!..1
,"\":.:. COMPLETE.>.".. OPEN THE FILE TO
 WRITE.O.#.DF.0:X.0:X$."":.CF.2..".AUF D
ATASETTE";:.134...$..CF.2.(CF.3.I.0)..1,
1,1,Y$:....%.DF..1:L$."0:".Y$:.1,08,2,L$
:.8,X: 1:.X.40...&..".FILE EXISTIERT - U
EBERSCHREIBEN";:.134:.I.X.1:....'..8,"S"
L$:.8,"I0.).(..1,08,3,L$.",S,W":.8,X,X$:
..?.).. CREATE AN ENTRY.R.*..NX..V..".. 
LEIDER KEIN PLATZ MEHR ! ":.132:.5...+.N
X.NX.1:K.NX:T.T%(K):T$(T,9).G(128)...,.O
F.1:M.39:Y.0:. GET NAME/ADDRESS.K.-.J.0:
.19......". ";:.I.1.30:.".";:.:.I.1.5:."
...";:.:.".";.(./..I.1.30:."...";:.:.I.1
.5:."...";:.:."..I.0..I.0.4:."."A$(J,I):
.:.Y.8.56.O.1..".........."B0$:."."F$(Y)
:.B0$"....2..142:.C..13.46...3..:.I(X$,1
)." ".X$.H(X$,C(X$).1):.51.U.4..X$."".T$
(T,Y)."".Y.Y.1:.2.(Y.9).49,45...5..C(X$)
.1.55...6.X$."-":.Y.0..".LOESCHEN";:.134
:.I.1.69,45.,.7.T$(T,Y).X$:Y.Y.1:.45.Q.8
.X$."1234567".R$:. GET CATEGORIES.L.9.."
.........KATEGORIEN:...:..I.0.6:.,:.X.2.
I..".";...;..I.1"."K$(I):..L.<..".SET/RE
SET WELCHE KATEGORIE? .";:.136:I.2.I...=
.X.(X.I)..(X.I):.X.128.57...>.T$(T,9).G(
X):. COMPLETE EDIT.2.?..".."B0$:.".AKZEP
TIERT";:.134:.I.44.Q.@..NX.1.5:. MUST BE
 IN ORDER...A.X$.T$(T,0):.K.NX..I.K.NX.1
:T%(I).T%(I.1):.:. REMOVE T...B..I.0.NX.
1:.T$(T%(I),0).X$..:. LOCATE T'S SLOT...
C..I.NX.J.I.1:.I.NX.J..1:T%(I).T%(I.1):.
:. MAKE ROOM FOR T...D.T%(I).T:.5:. INSE
RT T, EXIT.2.E.. CLEAN UP DELETION.J.F..
I.0.9:T$(T,I)."":..Y.G.NX.NX.1:.I.K.NX:T
%(I).T%(I.1):.:T%(I).T:.5...H.. SELECT/E
DIT AN ENTRY...I..".":."FINDEN DURCH:  .
L.ZUNAME.O.J..,"     .F.VORNAME...K..," 
    .C.STRASSE UND NUMMER...L..,"     .S
.PLZ UND ORT.#.M..,"     .T.TELEFON.L.N.
.".WAEHLE:";:X$."LFLLLLCST":.135:F.I.X.O
.M.40:.".KENNWORT: ";:.142:Z$.X$:Z.C(Z$)
...P.K.0:. SEARCH FOR FIELD...Q.T.T%(K):
X$.T$(T,F):Y.0...R..I.1.C(X$).Z.1:Y.(J(X
$,I,Z).Z$).Y:.:.Y.0.85...S.J.0:.19:.".":
.I.0.4:.A$(0,I):..(.T..".NAECHSTER Y ODE
R N";:.134:.I.87.<.U.K.K.1:.K..NX.81.B.V
..:.".ALLE DATEN GEPRUEFT":.132:.5.~.W..
".EDIT";:.134:.I.5:.44...X.. FILE FOR WO
RD MACHINE.L.Y..".NAME FUER DEN FILE: ";
:M.16:.142:.X$."".89...Z.Y$.X$:.34:.E(X$
).188...[..X.5.!.\..116:.".WAEHLE INDIVI
DUELL";:.134:SF.I:J.0:K.0.B.].T.T%(K):.(
F.F(T$(T,9))).0.99.W.^..SF..T$(T,0):.97.
V._..19:.".":.I.0.3:.A$(J,I):....`..".IN
KLUSIVE DIESEM";:.134:.I.99...A.. OUTPUT
 THE FILE.R.B..I.0.7:.1,T$(T,I):.:DF..(D
F)...C.K.K.1:.K..NX.93...D..1,"\":.DF..1
..SF.1.103,5:.  -1=EMPTY DISCFILE.H.E.."
.DER FILE WAR LEER ; ER WURDE GELOESCHT.
.A.F. 1:.8,"S0:"Y$:.8,"I0.M.G..132:.5...
H.. PRINT LABELS...I.SF..1:M.30:.1,04:LL
.9999.F.J..".EINZELNE SPALTEN NAMEN";:.1
34:Y.I...K..".JUSTIERE NAMEN";:.134:.I.1
11...L.P$."----------ERSTE ZEILE--------
-":.129.M.M..I.0.1:P$."-----------------
-------------":.129:....N.P$."----------
LETZTE ZEILE--------":.I.1.3:.129:.:.107
...O..116:.120:.5:. OUTPUT LABELS...P.. 
PRINT PHONE BOOK...Q.SF.0:M.36:Y.1:.1,04
:L.0...R..".ZEILEN PRO SEITE "L0".....";
:.LL...S..116:.120:.131:.5.-.T.. GET CAT
EGORY.C.U..".WAEHLE MIT":.I.0.6:.,"."J(D
(I.1),2)". "K$(I):....V..,".8. ALLES":."
.IHRE WAHL";:X$."12345678":.135:F.2.I...
W..:. ALL ARE OR-ED WITH 128.O.X.. PRINT
 EITHER...Y.J.Y:.K.0.NX:T.T%(K):.(F.F(T$
(T,9))).0.127...Z.J.Y.J:.19:.SF.A$(J,4).
"".'.{..J.Y.127.B.|..I.0.4:P$.H(A$(0,I),
M).L.}..J.P$.P$.H(B$,M.6.C(P$)).H(A$(1,I
),M).|.~..129:.:.129.....K:.J.Y..I.0.4:
P$.H(A$(0,I),M):.129:.:.129...........L.
L.1:.1,".".P$:P$."":.L.LL..:. LINE OUT..
...L.L.1:.1,".".P$:P$."":.L.LL........L.
.L.L.LP.1:.1:.:L.0:.:. FINISH THE PAGE.>
.... UTILITIES.I....".. DRUECKE EINE TAS
TE ";:.2:.:.".":..T...X$."YN....."? ";.
.....2:.I.1.C(X$):.C$..J(X$,I,1)..:.136.
....I.I.1:.C$;:.C.13..:.......W$:.W$."".
."..";:.138......" .";:.W$.R$..:.......W
$.G(20)..W$;:.136......138.-...X$."":. I
NPUT A STRING.=....C$:.C$.143.L....3:.C.
13...{....C.20.X$.""..C$;:X$.H(X$,C(X$).
1):. DELETE......(127.C).32.144:. CURSOR
 CHARACTERS.L....(K%(C).G)..C$;:X$.X$.C$
:.C(X$)..M...U....144...... INITIALIZE..
...L0.60:LP.66:NX..1:R$.G(13):H$."NAMEN 
LISTE".7....K%(255),A$(1,4),K$(6),F$(8).
X...."..............................".39
)"..":.59468,14:. FORMAT......53272,2.B(
53272):.".     . COMMODORE NAME MACHINE 
..J....189: . COLOR CHANGE......"..T.APE
, .D.ISC,ODER  .B.EIDE";:X$."DTB":.135:C
F.I.1.=....I.32.90:.K%(I):.:.I.193.218:K
%(I).1:.:. CHAR ARRAY.T...B$."     ":.I.
1.5:B$.B$.B$:.:B0$.H(B$,39):.8,08,15....
..".HEUTIGES DATUM: ":M.60:G.1:.142:G.0:
D$.X$:.D$."".D$."-.V....:.I.0.8:.F$(I):.
:. FIELD NAMES... ..I.0.6:.K$(I):.:. CAT
EGORIES.0...V..((.(0).2000).170):.T$(V,9
),T%(V):.I.0.V:T%(I).I:..A.... INPUT FIL
E._....CF.2..".VOM BAND?";:.134......CF.
2.(CF.3.I.0)..174:.I.5:.1,1,0,H$:.168...
.. 1:.1,08,2,H$:.8,X,X$:.X.0.168......17
4:.I.5......".BITTE LEGE EINE DISKETTE E
IN":.132:.165.....X$.""......#1,C$:.C$..
R$.X$.X$.C$:.169.D....".ENTERED: ."X$:.:
. DATELINE FROM FILE.Y....I.0.V:.1,X$:.X
$."\".ST.0.173:. READING COMPLETE......X
$:T$(I,0).X$:.J.1.9:.1,T$(I,J):.:T%(I).I
:..C...NX.I.1:.5:. COMPLETE......".NEUER
 FILE";:.134:I.1.I:....... ACCEPTABLE CH
ARACTERS 32-90.K....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......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.J...."ZUNAME","VO
RNAME","ANREDE (E.G., FR., HR. & FR., DR
.)","TITEL......"FIRMA","ADDRESSE","PLZ 
ORT","STAAT","TELEFON.. ... SEVEN CATEGO
RIES." ... FAMILIE.0 ... FREUNDE.@ ... B
EHOERDEN.M ... KUNDEN.Z ... FIRMEN.H ...
 SCHULEN.V ... DIVERSE.. ...X$:.132:.5..
 ... COLOR CHANGE ROUTINE.E ....C(X).B(X
).1.16.((B(X).15).15).. ..."....WAEHLE D
IE FARBEN ..."..!..."...F1.=RAHMEN FARBE
   .F3.=HINTERGRUND FARBE".M!A.."..F5.=B
UCHSTABEN FARBE   .RETURN.=WEITER...".]!
B..C$:.C$.194.P!C..C$:.C$."".195..!D.C.F
(C$):.C.135..646,.C(646):.191.A!E.C.F(C$
):.C.133.C.134.X.53147.C:.X,.C(X).O!F..C
.95.200..!G..C..13.194..!H......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL