ADRESS-64

00000000: 01 08 15 08 05 00 99 C7  28 31 34 29 3A 97 36 35  |........(14):.65|
00000010: 30 2C 31 32 38 00 4F 08  0A 00 89 39 30 30 30 3A  |0,128.O....9000:|
00000020: 8F 20 28 43 29 20 31 39  38 32 20 42 59 20 43 4F  |. (C) 1982 BY CO|
00000030: 4D 4D 4F 44 4F 52 45 20  42 55 53 49 4E 45 53 53  |MMODORE BUSINESS|
00000040: 20 4D 41 43 48 49 4E 45  53 2C 20 49 4E 43 2E 00  | MACHINES, INC..|
00000050: 5E 08 14 00 A1 43 24 3A  8B 43 24 89 32 30 00 7B  |^....C$:.C$.20.{|
00000060: 08 19 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 1B 00  |;:C..(C$):......|
00000080: 99 22 A4 9D 22 3B 3A 89  32 35 00 9E 08 64 00 A0  |."..";:.25...d..|
00000090: 31 3A 8F 20 4D 45 4E 55  20 45 4E 54 52 59 00 C8  |1:. MENU ENTRY..|
000000A0: 08 6E 00 99 22 93 20 20  20 20 20 20 12 20 C3 4F  |.n..".      . .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 78 00 99 22 C6  | 64  ......x..".|
000000D0: 55 4E 4B 54 49 4F 4E 45  4E 3A 11 11 22 00 04 09  |UNKTIONEN:.."...|
000000E0: 7D 00 99 2C 22 12 C5 92  52 46 41 53 53 45 4E 20  |}..,"...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 82  00 99 2C 22 12 C1 92 55  |ESSE.)....,"...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 8C 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: 96 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: A0 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: AA 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 B4 00 99 2C  22 12 D0 92 52 4F 47 52  |E......,"...ROGR|
000001C0: 41 4D 4D 45 4E 44 45 00  ED 09 BE 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 38 30 36 30 00 12 0A  |EADRST":.8060...|
000001F0: FA 00 91 49 89 34 30 30  30 2C 35 30 30 30 2C 37  |...I.4000,5000,7|
00000200: 30 30 30 2C 36 30 30 30  2C 33 30 30 30 2C 37 31  |000,6000,3000,71|
00000210: 30 30 00 49 0A 04 01 99  22 93 D3 45 49 54 45 4E  |00.I...."..EITEN|
00000220: 56 4F 52 53 43 48 55 42  22 3B 3A 8D 38 30 35 30  |VORSCHUB";:.8050|
00000230: 3A 8B 49 B2 30 A7 9F 31  2C 30 34 3A 4C B2 2E 31  |:.I.0..1,04:L..1|
00000240: 3A 8D 37 39 35 30 3A A0  31 00 81 0A 0E 01 8B 4F  |:.7950:.1......O|
00000250: 46 A7 99 22 11 D3 50 45  49 43 48 45 52 4E 20 44  |F.."..PEICHERN D|
00000260: 45 52 20 2A CE 41 4D 45  20 CC 49 53 54 2A 22 3B  |ER *.AME .IST*";|
00000270: 3A 8D 38 30 35 30 3A 8B  49 B2 30 A7 8D 33 30 32  |:.8050:.I.0..302|
00000280: 30 00 99 0A 18 01 A0 31  3A 99 22 93 11 D4 53 43  |0......1:."...SC|
00000290: 48 55 45 53 53 21 22 3A  A2 00 AF 0A 2C 01 8F 20  |HUESS!":....,.. |
000002A0: 46 4F 52 4D 41 54 20 54  48 45 20 4C 49 4E 45 00  |FORMAT THE LINE.|
000002B0: DF 0A 36 01 58 24 B2 54  24 28 54 2C 30 29 3A 59  |..6.X$.T$(T,0):Y|
000002C0: 24 B2 54 24 28 54 2C 31  29 3A 8B C3 28 59 24 29  |$.T$(T,1):..(Y$)|
000002D0: B1 31 A7 58 24 B2 59 24  AA 22 20 22 AA 58 24 00  |.1.X$.Y$." ".X$.|
000002E0: 04 0B 40 01 59 24 B2 54  24 28 54 2C 32 29 3A 8B  |..@.Y$.T$(T,2):.|
000002F0: C3 28 59 24 29 B1 31 A7  58 24 B2 59 24 AA 22 20  |.(Y$).1.X$.Y$." |
00000300: 22 AA 58 24 00 2A 0B 4A  01 59 24 B2 54 24 28 54  |".X$.*.J.Y$.T$(T|
00000310: 2C 33 29 3A 8B C3 28 59  24 29 B1 31 A7 58 24 B2  |,3):..(Y$).1.X$.|
00000320: 58 24 AA 22 2C 20 22 AA  59 24 00 6C 0B 5E 01 41  |X$.", ".Y$.l.^.A|
00000330: 24 28 4A 2C 30 29 B2 58  24 3A 81 49 B2 31 A4 33  |$(J,0).X$:.I.1.3|
00000340: 3A 41 24 28 4A 2C 49 29  B2 22 22 3A 59 24 B2 54  |:A$(J,I)."":Y$.T|
00000350: 24 28 54 2C 49 AA 33 29  3A 8B C3 28 59 24 29 B1  |$(T,I.3):..(Y$).|
00000360: 31 A7 41 24 28 4A 2C 49  29 B2 59 24 00 9D 0B 68  |1.A$(J,I).Y$...h|
00000370: 01 82 3A 8B C3 28 54 24  28 54 2C 37 29 29 B1 31  |..:..(T$(T,7)).1|
00000380: A7 41 24 28 4A 2C 33 29  B2 41 24 28 4A 2C 33 29  |.A$(J,3).A$(J,3)|
00000390: AA 22 2C 20 22 AA 54 24  28 54 2C 37 29 00 C4 0B  |.", ".T$(T,7)...|
000003A0: 72 01 41 24 28 4A 2C 34  29 B2 54 24 28 54 2C 38  |r.A$(J,4).T$(T,8|
000003B0: 29 3A 58 B2 C6 28 54 24  28 54 2C 39 29 29 AF 31  |):X..(T$(T,9)).1|
000003C0: 32 37 3A 8E 00 D3 0B 4B  02 42 4C 4F 43 4B 53 20  |27:....K.BLOCKS |
000003D0: B8 45 2E 00 E5 0B B8 0B  8F 20 4F 55 54 50 55 54  |.E....... OUTPUT|
000003E0: 20 46 49 4C 45 00 F4 0B  C2 0B 8D 33 30 32 30 3A  | FILE......3020:|
000003F0: 89 31 30 30 00 11 0C CC  0B 59 24 B2 48 24 3A 8D  |.100.....Y$.H$:.|
00000400: 33 35 30 30 3A 8B C5 28  58 24 29 89 36 30 30 30  |3500:..(X$).6000|
00000410: 30 00 1A 0C D6 0B 8B 58  A7 8E 00 2B 0C 1C 0C 4F  |0......X...+...O|
00000420: 46 B2 30 3A 98 31 2C 44  24 3A 99 00 48 0C 4E 0C  |F.0:.1,D$:..H.N.|
00000430: 81 49 B2 30 A4 4E 58 3A  54 B2 54 25 28 49 29 3A  |.I.0.NX:T.T%(I):|
00000440: 99 54 24 28 54 2C 30 29  00 63 0C 58 0C 81 4A B2  |.T$(T,0).c.X..J.|
00000450: 30 A4 39 3A 98 31 2C 54  24 28 54 2C 4A 29 3A 82  |0.9:.1,T$(T,J):.|
00000460: 4A 2C 49 00 7B 0C 76 0C  98 31 2C 22 5C 22 3A 8E  |J,I.{.v..1,"\":.|
00000470: 3A 8F 20 43 4F 4D 50 4C  45 54 45 00 98 0C AC 0D  |:. COMPLETE.....|
00000480: 8F 20 4F 50 45 4E 20 54  48 45 20 46 49 4C 45 20  |. OPEN THE FILE |
00000490: 54 4F 20 57 52 49 54 45  00 CA 0C C0 0D 44 46 B2  |TO WRITE.....DF.|
000004A0: 30 3A 58 B2 30 3A 58 24  B2 22 22 3A 8B 43 46 B1  |0:X.0:X$."":.CF.|
000004B0: 32 A7 99 22 93 C1 55 46  20 C4 41 54 41 53 45 54  |2.."..UF .ATASET|
000004C0: 54 45 22 3B 3A 8D 38 30  35 30 00 EB 0C CA 0D 8B  |TE";:.8050......|
000004D0: 43 46 B2 32 B0 28 43 46  B2 33 AF 49 B2 30 29 A7  |CF.2.(CF.3.I.0).|
000004E0: 9F 31 2C 31 2C 31 2C 59  24 3A 8E 00 1B 0D DE 0D  |.1,1,1,Y$:......|
000004F0: 44 46 B2 AB 31 3A 4C 24  B2 22 30 3A 22 AA 59 24  |DF..1:L$."0:".Y$|
00000500: 3A 9F 31 2C 30 38 2C 32  2C 4C 24 3A 84 38 2C 58  |:.1,08,2,L$:.8,X|
00000510: 3A A0 31 3A 8B 58 89 33  35 38 30 00 56 0D E8 0D  |:.1:.X.3580.V...|
00000520: 99 3A 99 22 11 C4 41 54  45 49 20 45 58 49 53 54  |.:."..ATEI EXIST|
00000530: 49 45 52 54 20 2D 20 55  45 42 45 52 53 43 48 52  |IERT - UEBERSCHR|
00000540: 45 49 42 45 4E 22 3B 3A  8D 38 30 35 30 3A 8B 49  |EIBEN";:.8050:.I|
00000550: A7 58 B2 31 3A 8E 00 6A  0D F2 0D 98 38 2C 22 53  |.X.1:..j....8,"S|
00000560: 22 4C 24 3A 98 38 2C 22  49 30 00 8A 0D FC 0D 9F  |"L$:.8,"I0......|
00000570: 31 2C 30 38 2C 33 2C 4C  24 AA 22 2C 53 2C 57 22  |1,08,3,L$.",S,W"|
00000580: 3A 84 38 2C 58 2C 58 24  3A 8E 00 A0 0D A0 0F 8F  |:.8,X,X$:.......|
00000590: 20 43 52 45 41 54 45 20  41 4E 20 45 4E 54 52 59  | CREATE AN ENTRY|
000005A0: 00 D9 0D AA 0F 8B 4E 58  B1 B2 56 A7 99 22 11 12  |......NX..V.."..|
000005B0: 20 CC 45 49 44 45 52 20  4B 45 49 4E 20 D0 4C 41  | .EIDER KEIN .LA|
000005C0: 54 5A 20 4D 45 48 52 20  46 52 45 49 21 22 3A 8D  |TZ MEHR FREI!":.|
000005D0: 38 30 30 30 3A 89 31 30  30 00 01 0E B4 0F 4E 58  |8000:.100.....NX|
000005E0: B2 4E 58 AA 31 3A 4B B2  4E 58 3A 54 B2 54 25 28  |.NX.1:K.NX:T.T%(|
000005F0: 4B 29 3A 54 24 28 54 2C  39 29 B2 C7 28 31 32 38  |K):T$(T,9)..(128|
00000600: 29 00 26 0E 04 10 4F 46  B2 31 3A 4D B2 33 39 3A  |).&...OF.1:M.39:|
00000610: 59 B2 30 3A 8F 20 47 45  54 20 4E 41 4D 45 2F 41  |Y.0:. GET NAME/A|
00000620: 44 44 52 45 53 53 00 33  0E 0E 10 4A B2 30 3A 8D  |DDRESS.3...J.0:.|
00000630: 33 30 30 00 65 0E 18 10  99 22 93 20 22 3B 3A 81  |300.e....". ";:.|
00000640: 49 B2 31 A4 33 30 3A 99  22 A4 22 3B 3A 82 3A 81  |I.1.30:.".";:.:.|
00000650: 49 B2 31 A4 35 3A 99 22  11 A5 9D 22 3B 3A 82 3A  |I.1.5:."...";:.:|
00000660: 99 22 11 22 3B 00 90 0E  1A 10 81 49 B2 31 A4 33  |.".";......I.1.3|
00000670: 30 3A 99 22 9D A3 9D 22  3B 3A 82 3A 81 49 B2 31  |0:."...";:.:.I.1|
00000680: A4 35 3A 99 22 91 9D A7  22 3B 3A 82 3A 99 22 13  |.5:."...";:.:.".|
00000690: 00 B3 0E 22 10 81 49 B2  30 A4 34 3A 99 22 1D 22  |..."..I.0.4:."."|
000006A0: 41 24 28 4A 2C 49 29 3A  82 3A 8B 59 B1 38 89 34  |A$(J,I):.:.Y.8.4|
000006B0: 32 30 30 00 D9 0E 36 10  99 22 13 11 11 11 11 11  |200...6.."......|
000006C0: 11 11 11 11 22 42 30 24  3A 99 22 91 22 46 24 28  |...."B0$:."."F$(|
000006D0: 59 29 3A 99 42 30 24 22  91 00 EF 0E 3B 10 8D 38  |Y):.B0$"....;..8|
000006E0: 32 30 30 3A 8B 43 B3 B1  31 33 89 34 31 32 30 00  |200:.C..13.4120.|
000006F0: 19 0F 3D 10 99 3A 8B C9  28 58 24 2C 31 29 B2 22  |..=..:..(X$,1)."|
00000700: 20 22 A7 58 24 B2 C8 28  58 24 2C C3 28 58 24 29  | ".X$..(X$,.(X$)|
00000710: AB 31 29 3A 89 34 31 35  37 00 48 0F 40 10 8B 58  |.1):.4157.H.@..X|
00000720: 24 B2 22 22 AF 54 24 28  54 2C 59 29 B1 22 22 A7  |$."".T$(T,Y)."".|
00000730: 59 B2 59 AA 31 3A 91 32  AA 28 59 B3 39 29 89 34  |Y.Y.1:.2.(Y.9).4|
00000740: 31 35 30 2C 34 31 31 30  00 5A 0F 4A 10 8B C3 28  |150,4110.Z.J...(|
00000750: 58 24 29 B1 31 89 34 31  39 30 00 8D 0F 54 10 58  |X$).1.4190...T.X|
00000760: 24 B2 22 2D 22 3A 8B 59  B2 30 A7 99 22 11 CC 4F  |$."-":.Y.0.."..O|
00000770: 45 53 43 48 45 4E 22 3B  3A 8D 38 30 35 30 3A 91  |ESCHEN";:.8050:.|
00000780: 49 AA 31 89 34 39 30 30  2C 34 31 31 30 00 A8 0F  |I.1.4900,4110...|
00000790: 5E 10 54 24 28 54 2C 59  29 B2 58 24 3A 59 B2 59  |^.T$(T,Y).X$:Y.Y|
000007A0: AA 31 3A 89 34 31 31 30  00 CD 0F 68 10 58 24 B2  |.1:.4110...h.X$.|
000007B0: 22 31 32 33 34 35 36 37  22 AA 52 24 3A 8F 20 47  |"1234567".R$:. G|
000007C0: 45 54 20 43 41 54 45 47  4F 52 49 45 53 00 E8 0F  |ET CATEGORIES...|
000007D0: 72 10 99 22 13 11 11 11  11 11 11 11 11 CB 41 54  |r.."..........AT|
000007E0: 45 47 4F 52 49 45 4E 3A  00 03 10 7C 10 81 49 B2  |EGORIEN:...|..I.|
000007F0: 30 A4 36 3A 99 2C 3A 8B  58 AF 32 AE 49 A7 99 22  |0.6:.,:.X.2.I.."|
00000800: 12 22 3B 00 16 10 86 10  99 49 AA 31 22 92 22 4B  |.";......I.1"."K|
00000810: 24 28 49 29 3A 82 00 46  10 90 10 99 22 11 D7 49  |$(I):..F...."..I|
00000820: 45 20 5A 55 4F 52 44 4E  45 4E 2F 4C 4F 45 53 43  |E ZUORDNEN/LOESC|
00000830: 48 45 4E 3F 20 20 20 9D  22 3B 3A 8D 38 30 37 30  |HEN?   .";:.8070|
00000840: 3A 49 B2 32 AE 49 00 65  10 9A 10 58 B2 28 58 B0  |:I.2.I.e...X.(X.|
00000850: 49 29 AF A8 28 58 AF 49  29 3A 8B 58 B3 31 32 38  |I)..(X.I):.X.128|
00000860: 89 34 32 31 30 00 86 10  CC 10 54 24 28 54 2C 39  |.4210.....T$(T,9|
00000870: 29 B2 C7 28 58 29 3A 8F  20 43 4F 4D 50 4C 45 54  |)..(X):. COMPLET|
00000880: 45 20 45 44 49 54 00 B1  10 D6 10 99 22 91 91 22  |E EDIT......".."|
00000890: 42 30 24 3A 99 22 91 C1  4B 5A 45 50 54 49 45 52  |B0$:."..KZEPTIER|
000008A0: 54 22 3B 3A 8D 38 30 35  30 3A 8B 49 89 34 31 30  |T";:.8050:.I.410|
000008B0: 30 00 D2 10 E0 10 8B 4E  58 B3 31 89 31 30 30 3A  |0......NX.1.100:|
000008C0: 8F 20 4D 55 53 54 20 42  45 20 49 4E 20 4F 52 44  |. MUST BE IN ORD|
000008D0: 45 52 00 0C 11 EA 10 58  24 B2 54 24 28 54 2C 30  |ER.....X$.T$(T,0|
000008E0: 29 3A 8B 4B B3 4E 58 A7  81 49 B2 4B A4 4E 58 AB  |):.K.NX..I.K.NX.|
000008F0: 31 3A 54 25 28 49 29 B2  54 25 28 49 AA 31 29 3A  |1:T%(I).T%(I.1):|
00000900: 82 3A 8F 20 52 45 4D 4F  56 45 20 54 00 3E 11 F4  |.:. REMOVE T.>..|
00000910: 10 81 49 B2 30 A4 4E 58  AB 31 3A 8B 54 24 28 54  |..I.0.NX.1:.T$(T|
00000920: 25 28 49 29 2C 30 29 B3  58 24 A7 82 3A 8F 20 4C  |%(I),0).X$..:. L|
00000930: 4F 43 41 54 45 20 54 27  53 20 53 4C 4F 54 00 7B  |OCATE T'S SLOT.{|
00000940: 11 FE 10 8B 49 B3 4E 58  A7 4A B2 49 AA 31 3A 81  |....I.NX.J.I.1:.|
00000950: 49 B2 4E 58 A4 4A A9 AB  31 3A 54 25 28 49 29 B2  |I.NX.J..1:T%(I).|
00000960: 54 25 28 49 AB 31 29 3A  82 3A 8F 20 4D 41 4B 45  |T%(I.1):.:. MAKE|
00000970: 20 52 4F 4F 4D 20 46 4F  52 20 54 00 9D 11 08 11  | ROOM FOR T.....|
00000980: 54 25 28 49 29 B2 54 3A  89 31 30 30 3A 8F 20 49  |T%(I).T:.100:. I|
00000990: 4E 53 45 52 54 20 54 2C  20 45 58 49 54 00 B5 11  |NSERT T, EXIT...|
000009A0: 24 13 8F 20 43 4C 45 41  4E 20 55 50 20 44 45 4C  |$.. CLEAN UP DEL|
000009B0: 45 54 49 4F 4E 00 CD 11  2E 13 81 49 B2 30 A4 39  |ETION......I.0.9|
000009C0: 3A 54 24 28 54 2C 49 29  B2 22 22 3A 82 00 FE 11  |:T$(T,I)."":....|
000009D0: 38 13 4E 58 B2 4E 58 AB  31 3A 81 49 B2 4B A4 4E  |8.NX.NX.1:.I.K.N|
000009E0: 58 3A 54 25 28 49 29 B2  54 25 28 49 AA 31 29 3A  |X:T%(I).T%(I.1):|
000009F0: 82 3A 54 25 28 49 29 B2  54 3A 89 31 30 30 00 19  |.:T%(I).T:.100..|
00000A00: 12 88 13 8F 20 53 45 4C  45 43 54 2F 45 44 49 54  |.... SELECT/EDIT|
00000A10: 20 41 4E 20 45 4E 54 52  59 00 3D 12 92 13 99 22  | AN ENTRY.=...."|
00000A20: 93 22 3A 99 22 D3 55 43  48 45 4E 20 4E 41 43 48  |.":.".UCHEN NACH|
00000A30: 3A 20 20 12 CE 92 41 43  48 4E 41 4D 45 00 52 12  |:  ...ACHNAME.R.|
00000A40: 9C 13 99 2C 22 20 20 20  20 12 D6 92 4F 52 4E 41  |...,"    ...ORNA|
00000A50: 4D 45 00 67 12 A6 13 99  2C 22 20 20 20 20 12 D0  |ME.g....,"    ..|
00000A60: 92 CC DA 2F CF 52 54 00  7A 12 B0 13 99 2C 22 20  |.../.RT.z....," |
00000A70: 20 20 20 12 D3 92 54 41  41 54 00 92 12 BA 13 99  |   ...TAAT......|
00000A80: 2C 22 20 20 20 20 12 D4  92 45 4C 45 46 4F 4E 4E  |,"    ...ELEFONN|
00000A90: 52 2E 00 BE 12 CE 13 99  22 11 D7 45 4C 43 48 45  |R......."..ELCHE|
00000AA0: 52 20 20 22 3B 3A 58 24  B2 22 4E 56 4C 4C 4C 4C  |R  ";:X$."NVLLLL|
00000AB0: 50 53 54 22 3A 8D 38 30  36 30 3A 46 B2 49 00 F1  |PST":.8060:F.I..|
00000AC0: 12 D8 13 4D B2 34 30 3A  99 22 11 D3 43 48 4C 55  |...M.40:."..CHLU|
00000AD0: 45 53 53 45 4C 57 4F 52  54 3A 20 22 3B 3A 8D 38  |ESSELWORT: ";:.8|
00000AE0: 32 30 30 3A 5A 24 B2 58  24 3A 5A B2 C3 28 5A 24  |200:Z$.X$:Z..(Z$|
00000AF0: 29 00 0C 13 EC 13 4B B2  30 3A 8F 20 53 45 41 52  |).....K.0:. SEAR|
00000B00: 43 48 20 46 4F 52 20 46  49 45 4C 44 00 27 13 F6  |CH FOR FIELD.'..|
00000B10: 13 54 B2 54 25 28 4B 29  3A 58 24 B2 54 24 28 54  |.T.T%(K):X$.T$(T|
00000B20: 2C 46 29 3A 59 B2 30 00  59 13 00 14 81 49 B2 31  |,F):Y.0.Y....I.1|
00000B30: A4 C3 28 58 24 29 AB 5A  AA 31 3A 59 B2 28 CA 28  |..(X$).Z.1:Y.(.(|
00000B40: 58 24 2C 49 2C 5A 29 B2  5A 24 29 B0 59 3A 82 3A  |X$,I,Z).Z$).Y:.:|
00000B50: 8B 59 B2 30 89 35 31 35  30 00 7D 13 0A 14 4A B2  |.Y.0.5150.}...J.|
00000B60: 30 3A 8D 33 30 30 3A 99  22 93 22 3A 81 49 B2 30  |0:.300:.".":.I.0|
00000B70: A4 34 3A 99 41 24 28 30  2C 49 29 3A 82 00 A5 13  |.4:.A$(0,I):....|
00000B80: 14 14 99 22 11 D7 45 49  54 45 52 53 55 43 48 45  |..."..EITERSUCHE|
00000B90: 4E 20 20 20 20 22 3B 3A  8D 38 30 35 30 3A 8B 49  |N    ";:.8050:.I|
00000BA0: 89 35 31 38 30 00 BB 13  1E 14 4B B2 4B AA 31 3A  |.5180.....K.K.1:|
00000BB0: 8B 4B B3 B2 4E 58 89 35  31 31 30 00 EA 13 28 14  |.K..NX.5110...(.|
00000BC0: 99 3A 99 22 11 C1 4C 4C  45 20 C5 49 4E 47 41 42  |.:."..LLE .INGAB|
00000BD0: 45 4E 20 55 45 42 45 52  50 52 55 45 46 54 22 3A  |EN UEBERPRUEFT":|
00000BE0: 8D 38 30 30 30 3A 89 31  30 30 00 0E 14 3C 14 99  |.8000:.100...<..|
00000BF0: 22 11 C1 45 4E 44 45 52  4E 22 3B 3A 8D 38 30 35  |"..ENDERN";:.805|
00000C00: 30 3A 91 49 89 31 30 30  3A 89 34 31 30 30 00 2A  |0:.I.100:.4100.*|
00000C10: 14 70 17 8F 20 46 49 4C  45 20 46 4F 52 20 57 4F  |.p.. FILE FOR WO|
00000C20: 52 44 20 4D 41 43 48 49  4E 45 00 5D 14 7A 17 99  |RD MACHINE.].z..|
00000C30: 22 93 CE 41 4D 45 20 44  45 52 20 C4 41 54 45 49  |"..AME DER .ATEI|
00000C40: 3A 20 20 20 22 3B 3A 4D  B2 31 36 3A 8D 38 32 30  |:   ";:M.16:.820|
00000C50: 30 3A 8B 58 24 B2 22 22  89 36 30 31 30 00 7A 14  |0:.X$."".6010.z.|
00000C60: 84 17 59 24 B2 58 24 3A  8D 33 35 30 30 3A 8B C5  |..Y$.X$:.3500:..|
00000C70: 28 58 24 29 89 36 30 30  30 30 00 85 14 8E 17 8B  |(X$).60000......|
00000C80: 58 89 31 30 30 00 BB 14  A2 17 8D 37 32 30 30 3A  |X.100......7200:|
00000C90: 99 22 11 D3 50 45 5A 49  45 4C 4C 45 20 C1 55 53  |."..PEZIELLE .US|
00000CA0: 57 41 48 4C 20 20 22 3B  3A 8D 38 30 35 30 3A 53  |WAHL  ";:.8050:S|
00000CB0: 46 B2 49 3A 4A B2 30 3A  4B B2 30 00 DE 14 AC 17  |F.I:J.0:K.0.....|
00000CC0: 54 B2 54 25 28 4B 29 3A  8B 28 46 AF C6 28 54 24  |T.T%(K):.(F..(T$|
00000CD0: 28 54 2C 39 29 29 29 B2  30 89 36 31 38 30 00 F5  |(T,9))).0.6180..|
00000CE0: 14 B6 17 8B 53 46 A7 99  54 24 28 54 2C 30 29 3A  |....SF..T$(T,0):|
00000CF0: 89 36 31 30 30 00 15 15  C0 17 8D 33 30 30 3A 99  |.6100......300:.|
00000D00: 22 93 22 3A 81 49 B2 30  A4 33 3A 99 41 24 28 4A  |".":.I.0.3:.A$(J|
00000D10: 2C 49 29 3A 82 00 3D 15  CA 17 99 22 11 D5 45 42  |,I):..=...."..EB|
00000D20: 45 52 4E 45 48 4D 45 4E  20 20 20 20 20 22 3B 3A  |ERNEHMEN     ";:|
00000D30: 8D 38 30 35 30 3A 8B 49  89 36 31 38 30 00 53 15  |.8050:.I.6180.S.|
00000D40: D4 17 8F 20 4F 55 54 50  55 54 20 54 48 45 20 46  |... OUTPUT THE F|
00000D50: 49 4C 45 00 74 15 DE 17  81 49 B2 30 A4 37 3A 98  |ILE.t....I.0.7:.|
00000D60: 31 2C 54 24 28 54 2C 49  29 3A 82 3A 44 46 B2 B6  |1,T$(T,I):.:DF..|
00000D70: 28 44 46 29 00 8A 15 24  18 4B B2 4B AA 31 3A 8B  |(DF)...$.K.K.1:.|
00000D80: 4B B3 B2 4E 58 89 36 30  36 30 00 C0 15 2E 18 98  |K..NX.6060......|
00000D90: 31 2C 22 5C 22 3A 8B 44  46 B1 AB 31 A7 91 53 46  |1,"\":.DF..1..SF|
00000DA0: AA 31 89 36 32 32 30 2C  31 30 30 3A 8F 20 20 2D  |.1.6220,100:.  -|
00000DB0: 31 3D 45 4D 50 54 59 20  44 49 53 43 46 49 4C 45  |1=EMPTY DISCFILE|
00000DC0: 00 EB 15 38 18 99 22 11  CB 45 49 4E 45 20 C1 44  |...8.."..EINE .D|
00000DD0: 52 45 53 53 45 20 49 4E  20 44 49 45 53 45 52 20  |RESSE IN DIESER |
00000DE0: CB 41 54 45 47 4F 52 49  45 2E 22 00 04 16 42 18  |.ATEGORIE."...B.|
00000DF0: A0 31 3A 98 38 2C 22 53  30 3A 22 59 24 3A 98 38  |.1:.8,"S0:"Y$:.8|
00000E00: 2C 22 49 30 00 13 16 4C  18 8D 38 30 30 30 3A 89  |,"I0...L..8000:.|
00000E10: 31 30 30 00 26 16 58 1B  8F 20 50 52 49 4E 54 20  |100.&.X.. PRINT |
00000E20: 4C 41 42 45 4C 53 00 43  16 62 1B 53 46 B2 AB 31  |LABELS.C.b.SF..1|
00000E30: 3A 4D B2 33 30 3A 9F 31  2C 30 34 3A 4C 4C B2 39  |:M.30:.1,04:LL.9|
00000E40: 39 39 39 00 6D 16 6C 1B  99 22 11 C5 49 4E 2D 53  |999.m.l.."..IN-S|
00000E50: 50 41 4C 54 49 47 45 20  C5 54 49 4B 45 54 54 45  |PALTIGE .TIKETTE|
00000E60: 4E 22 3B 3A 8D 38 30 35  30 3A 59 B2 49 00 95 16  |N";:.8050:Y.I...|
00000E70: 8A 1B 99 22 11 D0 52 4F  42 45 41 55 53 44 52 55  |..."..ROBEAUSDRU|
00000E80: 43 4B 20 20 20 22 3B 3A  8D 38 30 35 30 3A 8B 49  |CK   ";:.8050:.I|
00000E90: 89 37 30 39 30 00 C3 16  94 1B 50 24 B2 22 2D 2D  |.7090.....P$."--|
00000EA0: 2D 2D 2D 2D 2D 2D 2D 2D  45 52 53 54 45 20 DA 45  |--------ERSTE .E|
00000EB0: 49 4C 45 2D 2D 2D 2D 2D  2D 2D 2D 2D 22 3A 8D 37  |ILE---------":.7|
00000EC0: 39 30 30 00 FA 16 9E 1B  81 49 B2 30 A4 31 3A 50  |900......I.0.1:P|
00000ED0: 24 B2 22 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |$."-------------|
00000EE0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000EF0: 2D 22 3A 8D 37 39 30 30  3A 82 00 37 17 A8 1B 50  |-":.7900:..7...P|
00000F00: 24 B2 22 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 4C 45 54  |$."----------LET|
00000F10: 5A 54 45 20 DA 45 49 4C  45 2D 2D 2D 2D 2D 2D 2D  |ZTE .EILE-------|
00000F20: 2D 22 3A 81 49 B2 31 A4  33 3A 8D 37 39 30 30 3A  |-":.I.1.3:.7900:|
00000F30: 82 3A 89 37 30 35 30 00  5C 17 B2 1B 8D 37 32 30  |.:.7050.\....720|
00000F40: 30 3A 8D 37 33 30 30 3A  89 31 30 30 3A 8F 20 4F  |0:.7300:.100:. O|
00000F50: 55 54 50 55 54 20 4C 41  42 45 4C 53 00 73 17 BC  |UTPUT LABELS.s..|
00000F60: 1B 8F 20 50 52 49 4E 54  20 50 48 4F 4E 45 20 42  |.. PRINT PHONE B|
00000F70: 4F 4F 4B 00 8F 17 C6 1B  53 46 B2 30 3A 4D B2 33  |OOK.....SF.0:M.3|
00000F80: 36 3A 59 B2 31 3A 9F 31  2C 30 34 3A 4C B2 30 00  |6:Y.1:.1,04:L.0.|
00000F90: B7 17 D0 1B 99 22 11 DA  45 49 4C 45 4E 20 50 52  |....."..EILEN PR|
00000FA0: 4F 20 D3 45 49 54 45 20  22 4C 30 22 9D 9D 9D 9D  |O .EITE "L0"....|
00000FB0: 9D 22 3B 3A 85 4C 4C 00  D2 17 DA 1B 8D 37 32 30  |.";:.LL......720|
00000FC0: 30 3A 8D 37 33 30 30 3A  8D 37 39 35 30 3A 89 31  |0:.7300:.7950:.1|
00000FD0: 30 30 00 E5 17 20 1C 8F  20 47 45 54 20 43 41 54  |00... .. GET CAT|
00000FE0: 45 47 4F 52 59 00 1D 18  2A 1C 99 22 93 D3 55 43  |EGORY...*.."..UC|
00000FF0: 48 45 4E 20 4E 41 43 48  3A 22 3A 81 49 B2 30 A4  |HEN NACH:":.I.0.|
00001000: 36 3A 99 2C 22 12 22 CA  28 C4 28 49 AA 31 29 2C  |6:.,".".(.(I.1),|
00001010: 32 29 22 92 20 22 4B 24  28 49 29 3A 82 00 59 18  |2)". "K$(I):..Y.|
00001020: 34 1C 99 2C 22 12 38 92  20 C1 4C 4C 45 22 3A 99  |4..,".8. .LLE":.|
00001030: 22 11 C9 48 52 45 20 D7  41 48 4C 20 20 22 3B 3A  |"..HRE .AHL  ";:|
00001040: 58 24 B2 22 31 32 33 34  35 36 37 38 22 3A 8D 38  |X$."12345678":.8|
00001050: 30 36 30 3A 46 B2 32 AE  49 00 78 18 3E 1C 8E 3A  |060:F.2.I.x.>..:|
00001060: 8F 20 41 4C 4C 20 41 52  45 20 4F 52 2D 45 44 20  |. ALL ARE OR-ED |
00001070: 57 49 54 48 20 31 32 38  00 8B 18 84 1C 8F 20 50  |WITH 128...... P|
00001080: 52 49 4E 54 20 45 49 54  48 45 52 00 BA 18 8E 1C  |RINT EITHER.....|
00001090: 4A B2 59 3A 81 4B B2 30  A4 4E 58 3A 54 B2 54 25  |J.Y:.K.0.NX:T.T%|
000010A0: 28 4B 29 3A 8B 28 46 AF  C6 28 54 24 28 54 2C 39  |(K):.(F..(T$(T,9|
000010B0: 29 29 29 B2 30 89 37 33  38 30 00 D8 18 98 1C 4A  |))).0.7380.....J|
000010C0: B2 59 AB 4A 3A 8D 33 30  30 3A 8B 53 46 A7 41 24  |.Y.J:.300:.SF.A$|
000010D0: 28 4A 2C 34 29 B2 22 22  00 E6 18 A2 1C 8B 4A B3  |(J,4).""......J.|
000010E0: 59 89 37 33 38 30 00 01  19 B6 1C 81 49 B2 30 A4  |Y.7380......I.0.|
000010F0: 34 3A 50 24 B2 C8 28 41  24 28 30 2C 49 29 2C 4D  |4:P$..(A$(0,I),M|
00001100: 29 00 2B 19 C0 1C 8B 4A  A7 50 24 B2 50 24 AA C8  |).+....J.P$.P$..|
00001110: 28 42 24 2C 4D AA 36 AB  C3 28 50 24 29 29 AA C8  |(B$,M.6..(P$))..|
00001120: 28 41 24 28 31 2C 49 29  2C 4D 29 00 3D 19 CA 1C  |(A$(1,I),M).=...|
00001130: 8D 37 39 30 30 3A 82 3A  8D 37 39 30 30 00 6E 19  |.7900:.:.7900.n.|
00001140: D4 1C 82 4B 3A 8B 4A B3  59 A7 81 49 B2 30 A4 34  |...K:.J.Y..I.0.4|
00001150: 3A 50 24 B2 C8 28 41 24  28 30 2C 49 29 2C 4D 29  |:P$..(A$(0,I),M)|
00001160: 3A 8D 37 39 30 30 3A 82  3A 8D 37 39 30 30 00 74  |:.7900:.:.7900.t|
00001170: 19 DE 1C 8E 00 A1 19 DC  1E 4C B2 4C AA 31 3A 98  |.........L.L.1:.|
00001180: 31 2C 22 11 22 AA 50 24  3A 50 24 B2 22 22 3A 8B  |1,".".P$:P$."":.|
00001190: 4C B3 4C 4C A7 8E 3A 8F  20 4C 49 4E 45 20 4F 55  |L.LL..:. LINE OU|
000011A0: 54 00 C3 19 E6 1E 4C B2  4C AA 31 3A 98 31 2C 22  |T.....L.L.1:.1,"|
000011B0: 11 22 AA 50 24 3A 50 24  B2 22 22 3A 8B 4C B3 4C  |.".P$:P$."":.L.L|
000011C0: 4C A7 8E 00 F1 19 0E 1F  8B 4C A7 81 4C B2 4C A4  |L........L..L.L.|
000011D0: 4C 50 AB 31 3A 98 31 3A  82 3A 4C B2 30 3A 8E 3A  |LP.1:.1:.:L.0:.:|
000011E0: 8F 20 46 49 4E 49 53 48  20 54 48 45 20 50 41 47  |. FINISH THE PAG|
000011F0: 45 00 01 1A 40 1F 8F 20  55 54 49 4C 49 54 49 45  |E...@.. UTILITIE|
00001200: 53 00 35 1A 4A 1F 99 22  11 12 20 D7 45 49 54 45  |S.5.J..".. .EITE|
00001210: 52 20 4D 49 54 20 42 45  4C 49 45 42 49 47 45 52  |R MIT BELIEBIGER|
00001220: 20 D4 41 53 54 45 22 3B  3A 8D 32 30 3A 99 3A 99  | .ASTE";:.20:.:.|
00001230: 22 93 22 3A 8E 00 40 1A  72 1F 58 24 B2 22 4A 4E  |".":..@.r.X$."JN|
00001240: 00 4B 1A 7C 1F 99 22 3F  20 22 3B 00 75 1A 86 1F  |.K.|.."? ";.u...|
00001250: 8D 32 30 3A 81 49 B2 31  A4 C3 28 58 24 29 3A 8B  |.20:.I.1..(X$):.|
00001260: 43 24 B3 B1 CA 28 58 24  2C 49 2C 31 29 A7 82 3A  |C$...(X$,I,1)..:|
00001270: 89 38 30 37 30 00 8E 1A  8B 1F 49 B2 49 AB 31 3A  |.8070.....I.I.1:|
00001280: 99 43 24 3B 3A 8B 43 B2  31 33 A7 99 3A 8E 00 AA  |.C$;:.C.13..:...|
00001290: 1A 90 1F A1 57 24 3A 8B  57 24 B2 22 22 A7 99 22  |....W$:.W$."".."|
000012A0: A4 9D 22 3B 3A 89 38 30  38 30 00 C0 1A 95 1F 99  |..";:.8080......|
000012B0: 22 20 9D 22 3B 3A 8B 57  24 B2 52 24 A7 99 3A 8E  |" .";:.W$.R$..:.|
000012C0: 00 D9 1A 9A 1F 8B 57 24  B2 C7 28 32 30 29 A7 99  |......W$..(20)..|
000012D0: 57 24 3B 3A 89 38 30 37  30 00 E3 1A 9F 1F 89 38  |W$;:.8070......8|
000012E0: 30 38 30 00 FE 1A 08 20  58 24 B2 22 22 3A 8F 20  |080.... X$."":. |
000012F0: 49 4E 50 55 54 20 41 20  53 54 52 49 4E 47 00 0F  |INPUT A STRING..|
00001300: 1B 12 20 A1 43 24 3A 8B  43 24 89 38 32 31 30 00  |.. .C$:.C$.8210.|
00001310: 1F 1B 1C 20 8D 32 35 3A  8B 43 B2 31 33 A7 8E 00  |... .25:.C.13...|
00001320: 4E 1B 26 20 8B 43 B2 32  30 AF 58 24 B1 22 22 A7  |N.& .C.20.X$."".|
00001330: 99 43 24 3B 3A 58 24 B2  C8 28 58 24 2C C3 28 58  |.C$;:X$..(X$,.(X|
00001340: 24 29 AB 31 29 3A 8F 20  44 45 4C 45 54 45 00 77  |$).1):. DELETE.w|
00001350: 1B 2B 20 8B 28 31 32 37  AF 43 29 B3 33 32 89 38  |.+ .(127.C).32.8|
00001360: 32 32 30 3A 8F 20 43 55  52 53 4F 52 20 43 48 41  |220:. CURSOR CHA|
00001370: 52 41 43 54 45 52 53 00  A0 1B 30 20 8B 28 4B 25  |RACTERS...0 .(K%|
00001380: 28 43 29 B0 47 29 A7 99  43 24 3B 3A 58 24 B2 58  |(C).G)..C$;:X$.X|
00001390: 24 AA 43 24 3A 8B C3 28  58 24 29 B1 B2 4D A7 8E  |$.C$:..(X$)..M..|
000013A0: 00 AA 1B 3A 20 89 38 32  32 30 00 BB 1B 28 23 8F  |...: .8220...(#.|
000013B0: 20 49 4E 49 54 49 41 4C  49 5A 45 00 E8 1B 2D 23  | INITIALIZE...-#|
000013C0: 4C 30 B2 36 30 3A 4C 50  B2 37 32 3A 4E 58 B2 AB  |L0.60:LP.72:NX..|
000013D0: 31 3A 52 24 B2 C7 28 31  33 29 3A 48 24 B2 22 CE  |1:R$..(13):H$.".|
000013E0: 41 4D 45 20 CC 49 53 54  00 09 1C 32 23 86 4B 25  |AME .IST...2#.K%|
000013F0: 28 32 35 35 29 2C 41 24  28 31 2C 34 29 2C 4B 24  |(255),A$(1,4),K$|
00001400: 28 36 29 2C 46 24 28 38  29 00 4A 1C 3C 23 99 22  |(6),F$(8).J.<#."|
00001410: 93 8E 13 13 0F 11 11 11  11 11 11 11 11 11 11 11  |................|
00001420: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 22 A6  |..............".|
00001430: 33 39 29 22 8F 05 22 3A  97 35 39 34 36 38 2C 31  |39)"..":.59468,1|
00001440: 34 3A 8F 20 46 4F 52 4D  41 54 00 83 1C 41 23 97  |4:. FORMAT...A#.|
00001450: 35 33 32 37 32 2C 32 B0  C2 28 35 33 32 37 32 29  |53272,2..(53272)|
00001460: 3A 99 22 93 20 20 20 20  20 12 20 C3 4F 4D 4D 4F  |:.".     . .OMMO|
00001470: 44 4F 52 45 20 C1 C4 D2  C5 D3 D3 C5 CE 20 36 34  |DORE ........ 64|
00001480: 20 20 92 00 9E 1C 43 23  8D 36 31 30 30 30 3A 20  |  ....C#.61000: |
00001490: 8F 20 43 4F 4C 4F 52 20  43 48 41 4E 47 45 00 E3  |. COLOR CHANGE..|
000014A0: 1C 46 23 99 22 11 12 CB  92 41 53 53 45 54 54 45  |.F#."....ASSETTE|
000014B0: 2C 20 12 C4 92 49 53 4B  45 54 54 45 2C 20 4F 44  |, ...ISKETTE, OD|
000014C0: 45 52 20 12 42 92 45 49  44 45 53 22 3B 3A 58 24  |ER .B.EIDES";:X$|
000014D0: B2 22 44 4B 42 22 3A 8D  38 30 36 30 3A 43 46 B2  |."DKB":.8060:CF.|
000014E0: 49 AA 31 00 1B 1D 4B 23  81 49 B2 33 32 A4 39 30  |I.1...K#.I.32.90|
000014F0: 3A 87 4B 25 28 49 29 3A  82 3A 81 49 B2 31 39 33  |:.K%(I):.:.I.193|
00001500: A4 32 31 38 3A 4B 25 28  49 29 B2 31 3A 82 3A 8F  |.218:K%(I).1:.:.|
00001510: 20 43 48 41 52 20 41 52  52 41 59 00 52 1D 50 23  | CHAR ARRAY.R.P#|
00001520: 42 24 B2 22 20 20 20 20  20 22 3A 81 49 B2 31 A4  |B$."     ":.I.1.|
00001530: 35 3A 42 24 B2 42 24 AA  42 24 3A 82 3A 42 30 24  |5:B$.B$.B$:.:B0$|
00001540: B2 C8 28 42 24 2C 33 39  29 3A 9F 38 2C 30 38 2C  |..(B$,39):.8,08,|
00001550: 31 35 00 8D 1D 55 23 99  22 11 D4 41 47 45 53 44  |15...U#."..AGESD|
00001560: 41 54 55 4D 3A 20 22 3A  4D B2 36 30 3A 47 B2 31  |ATUM: ":M.60:G.1|
00001570: 3A 8D 38 32 30 30 3A 47  B2 30 3A 44 24 B2 58 24  |:.8200:G.0:D$.X$|
00001580: 3A 8B 44 24 B2 22 22 A7  44 24 B2 22 2D 00 B1 1D  |:.D$."".D$."-...|
00001590: 6E 23 99 3A 81 49 B2 30  A4 38 3A 87 46 24 28 49  |n#.:.I.0.8:.F$(I|
000015A0: 29 3A 82 3A 8F 20 46 49  45 4C 44 20 4E 41 4D 45  |):.:. FIELD NAME|
000015B0: 53 00 D2 1D 78 23 81 49  B2 30 A4 36 3A 87 4B 24  |S...x#.I.0.6:.K$|
000015C0: 28 49 29 3A 82 3A 8F 20  43 41 54 45 47 4F 52 49  |(I):.:. CATEGORI|
000015D0: 45 53 00 0B 1E 82 23 56  B2 B5 28 28 B8 28 30 29  |ES....#V..((.(0)|
000015E0: AB 32 30 30 30 29 AD 31  37 30 29 3A 86 54 24 28  |.2000).170):.T$(|
000015F0: 56 2C 39 29 2C 54 25 28  56 29 3A 81 49 B2 30 A4  |V,9),T%(V):.I.0.|
00001600: 56 3A 54 25 28 49 29 B2  49 3A 82 00 1C 1E 1C 25  |V:T%(I).I:.....%|
00001610: 8F 20 49 4E 50 55 54 20  46 49 4C 45 00 3F 1E 26  |. INPUT FILE.?.&|
00001620: 25 8B 43 46 B1 32 A7 99  22 11 D6 4F 4E 20 C4 41  |%.CF.2.."..ON .A|
00001630: 54 41 53 45 54 54 45 22  3B 3A 8D 38 30 35 30 00  |TASETTE";:.8050.|
00001640: 71 1E 30 25 8B 43 46 B2  32 B0 28 43 46 B2 33 AF  |q.0%.CF.2.(CF.3.|
00001650: 49 B2 30 29 A7 8D 39 37  30 30 3A 91 49 89 31 30  |I.0)..9700:.I.10|
00001660: 30 3A 9F 31 2C 31 2C 30  2C 48 24 3A 89 39 36 30  |0:.1,1,0,H$:.960|
00001670: 30 00 95 1E 4E 25 A0 31  3A 9F 31 2C 30 38 2C 32  |0...N%.1:.1,08,2|
00001680: 2C 48 24 3A 84 38 2C 58  2C 58 24 3A 8B 58 B2 30  |,H$:.8,X,X$:.X.0|
00001690: 89 39 36 30 30 00 A6 1E  58 25 8D 39 37 30 30 3A  |.9600...X%.9700:|
000016A0: 8B 49 89 31 30 30 00 DF  1E 62 25 99 22 11 CC 45  |.I.100...b%."..E|
000016B0: 47 45 4E 20 D3 49 45 20  42 49 54 54 45 20 44 49  |GEN .IE BITTE DI|
000016C0: 45 20 C4 49 53 4B 45 54  54 45 20 45 49 4E 20 55  |E .ISKETTE EIN U|
000016D0: 4E 44 22 3A 8D 38 30 30  30 3A 89 39 35 35 30 00  |ND":.8000:.9550.|
000016E0: E9 1E 80 25 58 24 B2 22  22 00 0B 1F 83 25 A1 23  |...%X$.""....%.#|
000016F0: 31 2C 43 24 3A 8B 43 24  B3 B1 52 24 A7 58 24 B2  |1,C$:.C$..R$.X$.|
00001700: 58 24 AA 43 24 3A 89 39  36 30 33 00 37 1F 85 25  |X$.C$:.9603.7..%|
00001710: 99 22 93 C5 4E 54 45 52  45 44 3A 20 12 22 58 24  |."..NTERED: ."X$|
00001720: 3A 99 3A 8F 20 44 41 54  45 4C 49 4E 45 20 46 52  |:.:. DATELINE FR|
00001730: 4F 4D 20 46 49 4C 45 00  6D 1F 8A 25 81 49 B2 30  |OM FILE.m..%.I.0|
00001740: A4 56 3A 84 31 2C 58 24  3A 8B 58 24 B2 22 5C 22  |.V:.1,X$:.X$."\"|
00001750: B0 53 54 B1 30 89 39 36  35 30 3A 8F 20 52 45 41  |.ST.0.9650:. REA|
00001760: 44 49 4E 47 20 43 4F 4D  50 4C 45 54 45 00 9E 1F  |DING COMPLETE...|
00001770: 94 25 99 58 24 3A 54 24  28 49 2C 30 29 B2 58 24  |.%.X$:T$(I,0).X$|
00001780: 3A 81 4A B2 31 A4 39 3A  84 31 2C 54 24 28 49 2C  |:.J.1.9:.1,T$(I,|
00001790: 4A 29 3A 82 3A 54 25 28  49 29 B2 49 3A 82 00 B9  |J):.:T%(I).I:...|
000017A0: 1F B2 25 4E 58 B2 49 AB  31 3A 89 31 30 30 3A 8F  |..%NX.I.1:.100:.|
000017B0: 20 43 4F 4D 50 4C 45 54  45 00 DB 1F E4 25 99 22  | COMPLETE....%."|
000017C0: 11 CE 45 55 45 20 C4 41  54 45 49 22 3B 3A 8D 38  |..EUE .ATEI";:.8|
000017D0: 30 35 30 3A 49 B2 31 AB  49 3A 8E 00 FD 1F AC 26  |050:I.1.I:.....&|
000017E0: 8F 20 41 43 43 45 50 54  41 42 4C 45 20 43 48 41  |. ACCEPTABLE CHA|
000017F0: 52 41 43 54 45 52 53 20  33 32 2D 39 30 00 42 20  |RACTERS 32-90.B |
00001800: B6 26 83 31 2C 31 2C 30  2C 31 2C 31 2C 31 2C 31  |.&.1,1,0,1,1,1,1|
00001810: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 30 2C 31 2C 31  |,1,1,1,1,1,0,1,1|
00001820: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001830: 2C 31 2C 31 2C 31 2C 30  2C 30 2C 31 2C 31 2C 31  |,1,1,1,0,0,1,1,1|
00001840: 2C 31 00 7D 20 C0 26 83  31 2C 31 2C 31 2C 31 2C  |,1.} .&.1,1,1,1,|
00001850: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001860: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001870: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 00 CA 20  |1,1,1,1,1,1,1.. |
00001880: CA 26 83 22 CE 41 43 48  4E 41 4D 45 20 22 2C 22  |.&.".ACHNAME ","|
00001890: D6 4F 52 4E 41 4D 45 20  20 20 22 2C 22 C1 4E 52  |.ORNAME   ",".NR|
000018A0: 45 44 45 20 28 44 2E 48  2E 20 C8 45 52 52 2C 20  |EDE (D.H. .ERR, |
000018B0: C6 52 41 55 2C 20 C6 41  4D 2E 2C 20 C6 49 52 4D  |.RAU, .AM., .IRM|
000018C0: 41 29 22 2C 22 D4 49 54  45 4C 00 06 21 D4 26 83  |A)",".ITEL..!.&.|
000018D0: 22 CF 52 47 41 4E 49 53  41 54 49 4F 4E 22 2C 22  |".RGANISATION","|
000018E0: D3 54 52 41 53 53 45 22  2C 22 D0 CC DA 2F CF 52  |.TRASSE",".../.R|
000018F0: 54 22 2C 22 D3 54 41 41  54 22 2C 22 D4 45 4C 45  |T",".TAAT",".ELE|
00001900: 46 4F 4E 4E 52 2E 00 1D  21 10 27 8F 20 53 45 56  |FONNR...!.'. SEV|
00001910: 45 4E 20 43 41 54 45 47  4F 52 49 45 53 00 2C 21  |EN CATEGORIES.,!|
00001920: 1A 27 83 20 22 C6 41 4D  49 4C 49 45 00 3B 21 24  |.'. ".AMILIE.;!$|
00001930: 27 83 20 22 C6 52 45 55  4E 44 45 00 52 21 2E 27  |'. ".REUNDE.R!.'|
00001940: 83 20 22 C1 52 42 45 49  54 53 4B 4F 4C 4C 45 47  |. ".RBEITSKOLLEG|
00001950: 45 4E 00 60 21 38 27 83  20 22 C1 45 52 5A 54 45  |EN.`!8'. ".ERZTE|
00001960: 00 75 21 42 27 83 20 22  C9 4E 53 54 49 54 55 54  |.u!B'. ".NSTITUT|
00001970: 49 4F 4E 45 4E 00 83 21  4C 27 83 20 22 D3 43 48  |IONEN..!L'. ".CH|
00001980: 55 4C 45 00 94 21 56 27  83 20 22 D3 4F 4E 53 54  |ULE..!V'. ".ONST|
00001990: 49 47 45 53 00 A7 21 60  EA 99 58 24 3A 8D 38 30  |IGES..!`..X$:.80|
000019A0: 30 30 3A 89 31 30 30 00  C2 21 48 EE 8F 20 43 4F  |00:.100..!H.. CO|
000019B0: 4C 4F 52 20 43 48 41 4E  47 45 20 52 4F 55 54 49  |LOR CHANGE ROUTI|
000019C0: 4E 45 00 E6 21 49 EE 96  A5 43 28 58 29 B2 C2 28  |NE..!I...C(X)..(|
000019D0: 58 29 AA 31 AA 31 36 AC  28 28 C2 28 58 29 AF 31  |X).1.16.((.(X).1|
000019E0: 35 29 B2 31 35 29 00 08  22 4A EE 99 22 13 11 11  |5).15).."J.."...|
000019F0: 11 12 C6 31 92 3D 20 C6  41 52 42 45 20 44 45 53  |...1.= .ARBE DES|
00001A00: 20 D2 41 4E 44 45 53 22  00 29 22 4B EE 99 22 11  | .ANDES".)"K..".|
00001A10: 11 12 C6 33 92 3D 20 C8  49 4E 54 45 52 47 52 55  |...3.= .INTERGRU|
00001A20: 4E 44 2D C6 41 52 42 45  22 00 4A 22 4C EE 99 22  |ND-.ARBE".J"L.."|
00001A30: 11 11 12 C6 35 92 3D 20  C6 41 52 42 45 20 44 45  |....5.= .ARBE DE|
00001A40: 52 20 DA 45 49 43 48 45  4E 22 00 64 22 4D EE 99  |R .EICHEN".d"M..|
00001A50: 22 11 11 12 D2 C5 D4 D5  D2 CE 92 3D 20 D7 45 49  |"..........= .EI|
00001A60: 54 45 52 22 00 76 22 52  EE A1 43 24 3A 8B 43 24  |TER".v"R..C$:.C$|
00001A70: 89 36 31 30 31 30 00 8B  22 5C EE A1 43 24 3A 8B  |.61010.."\..C$:.|
00001A80: 43 24 B2 22 22 89 36 31  30 32 30 00 B2 22 66 EE  |C$."".61020.."f.|
00001A90: 43 B2 C6 28 43 24 29 3A  8B 43 B2 31 33 35 A7 97  |C..(C$):.C.135..|
00001AA0: 36 34 36 2C A5 43 28 36  34 36 29 3A 89 36 31 30  |646,.C(646):.610|
00001AB0: 30 32 00 DE 22 7A EE 43  B2 C6 28 43 24 29 3A 8B  |02.."z.C..(C$):.|
00001AC0: 43 B2 31 33 33 B0 43 B2  31 33 34 A7 58 B2 35 33  |C.133.C.134.X.53|
00001AD0: 31 34 37 AA 43 3A 97 58  2C A5 43 28 58 29 00 EF  |147.C:.X,.C(X)..|
00001AE0: 22 84 EE 8B 43 B3 B1 31  33 89 36 31 30 31 30 00  |"...C..13.61010.|
00001AF0: F5 22 8E EE 8E 00 00 00  00 19 00 00              |."..........    |

.......G(14):.650,128.O....9000:. (C) 19
82 BY COMMODORE BUSINESS MACHINES, INC..
^....C$:.C$.20.{....C$:.C$.." .";:C.F(C$
):......."..";:.25...D. 1:. MENU ENTRY.H
.N..".      . COMMODORE ADRESSEN 64  ...
...X.."FUNKTIONEN:.."...}..,".E.RFASSEN 
EINES NAMENS/ADRESSE.)....,".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":.8060......I.4000,5000,7000,6000
,3000,7100.I....".SEITENVORSCHUB";:.8050
:.I.0..1,04:L..1:.7950: 1......OF..".SPE
ICHERN DER *NAME LIST*";:.8050:.I.0..302
0..... 1:."..TSCHUESS!":....,.. FORMAT T
HE LINE...6.X$.T$(T,0):Y$.T$(T,1):.C(Y$)
.1.X$.Y$." ".X$...@.Y$.T$(T,2):.C(Y$).1.
X$.Y$." ".X$.*.J.Y$.T$(T,3):.C(Y$).1.X$.
X$.", ".Y$.L.^.A$(J,0).X$:.I.1.3:A$(J,I)
."":Y$.T$(T,I.3):.C(Y$).1.A$(J,I).Y$...H
..:.C(T$(T,7)).1.A$(J,3).A$(J,3).", ".T$
(T,7).D.R.A$(J,4).T$(T,8):X.F(T$(T,9)).1
27:..S.K.BLOCKS .E....... OUTPUT FILE...
B..3020:.100...L.Y$.H$:.3500:.E(X$).6000
0...V..X...+...OF.0:.1,D$:..H.N..I.0.NX:
T.T%(I):.T$(T,0).C.X..J.0.9:.1,T$(T,J):.
J,I.{.V..1,"\":.:. COMPLETE...... OPEN T
HE FILE TO WRITE.J...DF.0:X.0:X$."":.CF.
2..".AUF DATASETTE";:.8050...J..CF.2.(CF
.3.I.0)..1,1,1,Y$:......DF..1:L$."0:".Y$
:.1,08,2,L$:.8,X: 1:.X.3580.V....:.".DAT
EI EXISTIERT - UEBERSCHREIBEN";:.8050:.I
.X.1:..J....8,"S"L$:.8,"I0......1,08,3,L
$.",S,W":.8,X,X$:.. . .. CREATE AN ENTRY
.Y....NX..V..".. LEIDER KEIN PLATZ MEHR 
FREI!":.8000:.100.....NX.NX.1:K.NX:T.T%(
K):T$(T,9).G(128).&...OF.1:M.39:Y.0:. GE
T NAME/ADDRESS.3...J.0:.300.E....". ";:.
I.1.30:.".";:.:.I.1.5:."...";:.:.".";...
...I.1.30:."...";:.:.I.1.5:."...";:.:.".
..."..I.0.4:."."A$(J,I):.:.Y.8.4200.Y.6.
.".........."B0$:."."F$(Y):.B0$"....;..8
200:.C..13.4120...=..:.I(X$,1)." ".X$.H(
X$,C(X$).1):.4157.H.@..X$."".T$(T,Y)."".
Y.Y.1:.2.(Y.9).4150,4110.Z.J..C(X$).1.41
90...T.X$."-":.Y.0..".LOESCHEN";:.8050:.
I.1.4900,4110...^.T$(T,Y).X$:Y.Y.1:.4110
.M.H.X$."1234567".R$:. GET CATEGORIES...
R..".........KATEGORIEN:...|..I.0.6:.,:.
X.2.I..".";......I.1"."K$(I):..F....".WI
E ZUORDNEN/LOESCHEN?   .";:.8070:I.2.I.E
...X.(X.I)..(X.I):.X.128.4210...L.T$(T,9
).G(X):. COMPLETE EDIT...V..".."B0$:.".A
KZEPTIERT";:.8050:.I.4100.R....NX.1.100:
. MUST BE IN ORDER.....X$.T$(T,0):.K.NX.
.I.K.NX.1:T%(I).T%(I.1):.:. REMOVE 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:
.100:. INSERT T, EXIT...$.. CLEAN UP DEL
ETION.M....I.0.9:T$(T,I)."":....8.NX.NX.
1:.I.K.NX:T%(I).T%(I.1):.:T%(I).T:.100..
.... SELECT/EDIT AN ENTRY.=....".":."SUC
HEN NACH:  .N.ACHNAME.R....,"    .V.ORNA
ME.G....,"    .P.LZ/ORT.Z....,"    .S.TA
AT......,"    .T.ELEFONNR....N..".WELCHE
R  ";:X$."NVLLLLPST":.8060:F.I...X.M.40:
.".SCHLUESSELWORT: ";:.8200:Z$.X$:Z.C(Z$
).....K.0:. SEARCH FOR FIELD.'...T.T%(K)
:X$.T$(T,F):Y.0.Y....I.1.C(X$).Z.1:Y.(J(
X$,I,Z).Z$).Y:.:.Y.0.5150.}...J.0:.300:.
".":.I.0.4:.A$(0,I):.......".WEITERSUCHE
N    ";:.8050:.I.5180.....K.K.1:.K..NX.5
110...(..:.".ALLE EINGABEN UEBERPRUEFT":
.8000:.100...<..".AENDERN";:.8050:.I.100
:.4100.*.P.. FILE FOR WORD MACHINE.].Z..
".NAME DER DATEI:   ";:M.16:.8200:.X$.""
.6010.Z...Y$.X$:.3500:.E(X$).60000......
X.100......7200:.".SPEZIELLE AUSWAHL  ";
:.8050:SF.I:J.0:K.0.....T.T%(K):.(F.F(T$
(T,9))).0.6180......SF..T$(T,0):.6100...
...300:.".":.I.0.3:.A$(J,I):..=.J..".UEB
ERNEHMEN     ";:.8050:.I.6180.S.T.. OUTP
UT THE FILE.T....I.0.7:.1,T$(T,I):.:DF..
(DF)...$.K.K.1:.K..NX.6060......1,"\":.D
F..1..SF.1.6220,100:.  -1=EMPTY DISCFILE
...8..".KEINE ADRESSE IN DIESER KATEGORI
E."...B. 1:.8,"S0:"Y$:.8,"I0...L..8000:.
100.&.X.. PRINT LABELS.C.B.SF..1:M.30:.1
,04:LL.9999.M.L..".EIN-SPALTIGE ETIKETTE
N";:.8050:Y.I......".PROBEAUSDRUCK   ";:
.8050:.I.7090.C...P$."----------ERSTE ZE
ILE---------":.7900......I.0.1:P$."-----
-------------------------":.7900:..7...P
$."----------LETZTE ZEILE--------":.I.1.
3:.7900:.:.7050.\....7200:.7300:.100:. O
UTPUT LABELS.S.... PRINT PHONE BOOK...F.
SF.0:M.36:Y.1:.1,04:L.0...P..".ZEILEN PR
O SEITE "L0".....";:.LL.R.Z..7200:.7300:
.7950:.100... .. GET CATEGORY...*..".SUC
HEN NACH:":.I.0.6:.,"."J(D(I.1),2)". "K$
(I):..Y.4..,".8. ALLE":.".IHRE WAHL  ";:
X$."12345678":.8060:F.2.I.X.>..:. ALL AR
E OR-ED WITH 128...... PRINT EITHER.....
J.Y:.K.0.NX:T.T%(K):.(F.F(T$(T,9))).0.73
80.X...J.Y.J:.300:.SF.A$(J,4).""......J.
Y.7380......I.0.4:P$.H(A$(0,I),M).+....J
.P$.P$.H(B$,M.6.C(P$)).H(A$(1,I),M).=.J.
.7900:.:.7900.N.T..K:.J.Y..I.0.4:P$.H(A$
(0,I),M):.7900:.:.7900.T.........L.L.1:.
1,".".P$:P$."":.L.LL..:. LINE OUT.C...L.
L.1:.1,".".P$:P$."":.L.LL........L..L.L.
LP.1:.1:.:L.0:.:. FINISH THE PAGE...@.. 
UTILITIES.5.J..".. WEITER MIT BELIEBIGER
 TASTE";:.20:.:.".":..@.R.X$."JN.K.|.."?
 ";.U....20:.I.1.C(X$):.C$..J(X$,I,1)..:
.8070.....I.I.1:.C$;:.C.13..:.......W$:.
W$."".."..";:.8080......" .";:.W$.R$..:.
.Y....W$.G(20)..W$;:.8070......8080.... 
X$."":. INPUT A STRING.... .C$:.C$.8210.
... .25:.C.13...N.& .C.20.X$.""..C$;:X$.
H(X$,C(X$).1):. DELETE.W.+ .(127.C).32.8
220:. CURSOR CHARACTERS. .0 .(K%(C).G)..
C$;:X$.X$.C$:.C(X$)..M.....: .8220...(#.
 INITIALIZE...-#L0.60:LP.72:NX..1:R$.G(1
3):H$."NAME LIST...2#.K%(255),A$(1,4),K$
(6),F$(8).J.<#."........................
......".39)"..":.59468,14:. FORMAT...A#.
53272,2.B(53272):.".     . COMMODORE ADR
ESSEN 64  ....C#.61000: . COLOR CHANGE..
.F#."..K.ASSETTE, .D.ISKETTE, ODER .B.EI
DES";:X$."DKB":.8060:CF.I.1...K#.I.32.90
:.K%(I):.:.I.193.218:K%(I).1:.:. CHAR AR
RAY.R.P#B$."     ":.I.1.5:B$.B$.B$:.:B0$
.H(B$,39):.8,08,15...U#.".TAGESDATUM: ":
M.60:G.1:.8200:G.0:D$.X$:.D$."".D$."-...
N#.:.I.0.8:.F$(I):.:. FIELD NAMES.R.X#.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 DA
TASETTE";:.8050.Q.0%.CF.2.(CF.3.I.0)..97
00:.I.100:.1,1,0,H$:.9600...N% 1:.1,08,2
,H$:.8,X,X$:.X.0.9600...X%.9700:.I.100..
.B%.".LEGEN SIE BITTE DIE DISKETTE EIN U
ND":.8000:.9550....%X$.""....%.#1,C$:.C$
..R$.X$.X$.C$:.9603.7..%.".ENTERED: ."X$
:.:. DATELINE FROM FILE.M..%.I.0.V:.1,X$
:.X$."\".ST.0.9650:. READING COMPLETE...
.%.X$:T$(I,0).X$:.J.1.9:.1,T$(I,J):.:T%(
I).I:.....%NX.I.1:.100:. COMPLETE....%."
.NEUE DATEI";:.8050:I.1.I:.....&. ACCEPT
ABLE CHARACTERS 32-90.B .&.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 J&."NACH
NAME ","VORNAME   ","ANREDE (D.H. HERR, 
FRAU, FAM., FIRMA)","TITEL..!T&."ORGANIS
ATION","STRASSE","PLZ/ORT","STAAT","TELE
FONNR...!.'. SEVEN CATEGORIES.,!.'. "FAM
ILIE.;!$'. "FREUNDE.R!.'. "ARBEITSKOLLEG
EN.`!8'. "AERZTE.U!B'. "INSTITUTIONEN..!
L'. "SCHULE..!V'. "SONSTIGES..!`..X$:.80
00:.100.B!H.. COLOR CHANGE ROUTINE..!I..
.C(X).B(X).1.16.((B(X).15).15).."J.."...
..F1.= FARBE DES RANDES".)"K.."...F3.= H
INTERGRUND-FARBE".J"L.."...F5.= FARBE DE
R ZEICHEN".D"M.."...RETURN.= WEITER".V"R
..C$:.C$.61010.."\..C$:.C$."".61020.."F.
C.F(C$):.C.135..646,.C(646):.61002.."Z.C
.F(C$):.C.133.C.134.X.53147.C:.X,.C(X)..
"...C..13.61010.."..........

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL