ADRESSEN 64

00000000: 01 08 15 08 09 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 20 20  |.n..".      .   |
000000B0: 20 20 20 20 20 20 20 20  C1 C4 D2 C5 D3 D3 C5 CE  |        ........|
000000C0: 20 20 20 20 20 92 11 11  00 DD 08 78 00 99 22 C6  |     ......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 D6 0B B8  0B 8F 20 4F 55 54 50 55  |27:....... OUTPU|
000003D0: 54 20 46 49 4C 45 00 E5  0B C2 0B 8D 33 30 32 30  |T FILE......3020|
000003E0: 3A 89 31 30 30 00 02 0C  CC 0B 59 24 B2 48 24 3A  |:.100.....Y$.H$:|
000003F0: 8D 33 35 30 30 3A 8B C5  28 58 24 29 89 36 30 30  |.3500:..(X$).600|
00000400: 30 30 00 0B 0C D6 0B 8B  58 A7 8E 00 1C 0C 1C 0C  |00......X.......|
00000410: 4F 46 B2 30 3A 98 31 2C  44 24 3A 99 00 39 0C 4E  |OF.0:.1,D$:..9.N|
00000420: 0C 81 49 B2 30 A4 4E 58  3A 54 B2 54 25 28 49 29  |..I.0.NX:T.T%(I)|
00000430: 3A 99 54 24 28 54 2C 30  29 00 54 0C 58 0C 81 4A  |:.T$(T,0).T.X..J|
00000440: B2 30 A4 39 3A 98 31 2C  54 24 28 54 2C 4A 29 3A  |.0.9:.1,T$(T,J):|
00000450: 82 4A 2C 49 00 6C 0C 76  0C 98 31 2C 22 5C 22 3A  |.J,I.l.v..1,"\":|
00000460: 8E 3A 8F 20 43 4F 4D 50  4C 45 54 45 00 89 0C AC  |.:. COMPLETE....|
00000470: 0D 8F 20 4F 50 45 4E 20  54 48 45 20 46 49 4C 45  |.. OPEN THE FILE|
00000480: 20 54 4F 20 57 52 49 54  45 00 BB 0C C0 0D 44 46  | TO WRITE.....DF|
00000490: B2 30 3A 58 B2 30 3A 58  24 B2 22 22 3A 8B 43 46  |.0:X.0:X$."":.CF|
000004A0: B1 32 A7 99 22 93 C1 55  46 20 C4 41 54 41 53 45  |.2.."..UF .ATASE|
000004B0: 54 54 45 22 3B 3A 8D 38  30 35 30 00 DC 0C CA 0D  |TTE";:.8050.....|
000004C0: 8B 43 46 B2 32 B0 28 43  46 B2 33 AF 49 B2 30 29  |.CF.2.(CF.3.I.0)|
000004D0: A7 9F 31 2C 31 2C 31 2C  59 24 3A 8E 00 0C 0D DE  |..1,1,1,Y$:.....|
000004E0: 0D 44 46 B2 AB 31 3A 4C  24 B2 22 30 3A 22 AA 59  |.DF..1:L$."0:".Y|
000004F0: 24 3A 9F 31 2C 30 38 2C  32 2C 4C 24 3A 84 38 2C  |$:.1,08,2,L$:.8,|
00000500: 58 3A A0 31 3A 8B 58 89  33 35 38 30 00 47 0D E8  |X:.1:.X.3580.G..|
00000510: 0D 99 3A 99 22 11 C4 41  54 45 49 20 45 58 49 53  |..:."..ATEI EXIS|
00000520: 54 49 45 52 54 20 2D 20  55 45 42 45 52 53 43 48  |TIERT - UEBERSCH|
00000530: 52 45 49 42 45 4E 22 3B  3A 8D 38 30 35 30 3A 8B  |REIBEN";:.8050:.|
00000540: 49 A7 58 B2 31 3A 8E 00  5B 0D F2 0D 98 38 2C 22  |I.X.1:..[....8,"|
00000550: 53 22 4C 24 3A 98 38 2C  22 49 30 00 7B 0D FC 0D  |S"L$:.8,"I0.{...|
00000560: 9F 31 2C 30 38 2C 33 2C  4C 24 AA 22 2C 53 2C 57  |.1,08,3,L$.",S,W|
00000570: 22 3A 84 38 2C 58 2C 58  24 3A 8E 00 91 0D A0 0F  |":.8,X,X$:......|
00000580: 8F 20 43 52 45 41 54 45  20 41 4E 20 45 4E 54 52  |. CREATE AN ENTR|
00000590: 59 00 CA 0D AA 0F 8B 4E  58 B1 B2 56 A7 99 22 11  |Y......NX..V..".|
000005A0: 12 20 CC 45 49 44 45 52  20 4B 45 49 4E 20 D0 4C  |. .EIDER KEIN .L|
000005B0: 41 54 5A 20 4D 45 48 52  20 46 52 45 49 21 22 3A  |ATZ MEHR FREI!":|
000005C0: 8D 38 30 30 30 3A 89 31  30 30 00 F2 0D B4 0F 4E  |.8000:.100.....N|
000005D0: 58 B2 4E 58 AA 31 3A 4B  B2 4E 58 3A 54 B2 54 25  |X.NX.1:K.NX:T.T%|
000005E0: 28 4B 29 3A 54 24 28 54  2C 39 29 B2 C7 28 31 32  |(K):T$(T,9)..(12|
000005F0: 38 29 00 17 0E 04 10 4F  46 B2 31 3A 4D B2 33 39  |8).....OF.1:M.39|
00000600: 3A 59 B2 30 3A 8F 20 47  45 54 20 4E 41 4D 45 2F  |:Y.0:. GET NAME/|
00000610: 41 44 44 52 45 53 53 00  24 0E 0E 10 4A B2 30 3A  |ADDRESS.$...J.0:|
00000620: 8D 33 30 30 00 56 0E 18  10 99 22 93 20 22 3B 3A  |.300.V....". ";:|
00000630: 81 49 B2 31 A4 33 30 3A  99 22 A4 22 3B 3A 82 3A  |.I.1.30:.".";:.:|
00000640: 81 49 B2 31 A4 35 3A 99  22 11 A5 9D 22 3B 3A 82  |.I.1.5:."...";:.|
00000650: 3A 99 22 11 22 3B 00 81  0E 1A 10 81 49 B2 31 A4  |:.".";......I.1.|
00000660: 33 30 3A 99 22 9D A3 9D  22 3B 3A 82 3A 81 49 B2  |30:."...";:.:.I.|
00000670: 31 A4 35 3A 99 22 91 9D  A7 22 3B 3A 82 3A 99 22  |1.5:."...";:.:."|
00000680: 13 00 A4 0E 22 10 81 49  B2 30 A4 34 3A 99 22 1D  |...."..I.0.4:.".|
00000690: 22 41 24 28 4A 2C 49 29  3A 82 3A 8B 59 B1 38 89  |"A$(J,I):.:.Y.8.|
000006A0: 34 32 30 30 00 CA 0E 36  10 99 22 13 11 11 11 11  |4200...6..".....|
000006B0: 11 11 11 11 11 22 42 30  24 3A 99 22 91 22 46 24  |....."B0$:."."F$|
000006C0: 28 59 29 3A 99 42 30 24  22 91 00 E0 0E 3B 10 8D  |(Y):.B0$"....;..|
000006D0: 38 32 30 30 3A 8B 43 B3  B1 31 33 89 34 31 32 30  |8200:.C..13.4120|
000006E0: 00 0A 0F 3D 10 99 3A 8B  C9 28 58 24 2C 31 29 B2  |...=..:..(X$,1).|
000006F0: 22 20 22 A7 58 24 B2 C8  28 58 24 2C C3 28 58 24  |" ".X$..(X$,.(X$|
00000700: 29 AB 31 29 3A 89 34 31  35 37 00 39 0F 40 10 8B  |).1):.4157.9.@..|
00000710: 58 24 B2 22 22 AF 54 24  28 54 2C 59 29 B1 22 22  |X$."".T$(T,Y).""|
00000720: A7 59 B2 59 AA 31 3A 91  32 AA 28 59 B3 39 29 89  |.Y.Y.1:.2.(Y.9).|
00000730: 34 31 35 30 2C 34 31 31  30 00 4B 0F 4A 10 8B C3  |4150,4110.K.J...|
00000740: 28 58 24 29 B1 31 89 34  31 39 30 00 7E 0F 54 10  |(X$).1.4190.~.T.|
00000750: 58 24 B2 22 2D 22 3A 8B  59 B2 30 A7 99 22 11 CC  |X$."-":.Y.0.."..|
00000760: 4F 45 53 43 48 45 4E 22  3B 3A 8D 38 30 35 30 3A  |OESCHEN";:.8050:|
00000770: 91 49 AA 31 89 34 39 30  30 2C 34 31 31 30 00 99  |.I.1.4900,4110..|
00000780: 0F 5E 10 54 24 28 54 2C  59 29 B2 58 24 3A 59 B2  |.^.T$(T,Y).X$:Y.|
00000790: 59 AA 31 3A 89 34 31 31  30 00 BE 0F 68 10 58 24  |Y.1:.4110...h.X$|
000007A0: B2 22 31 32 33 34 35 36  37 22 AA 52 24 3A 8F 20  |."1234567".R$:. |
000007B0: 47 45 54 20 43 41 54 45  47 4F 52 49 45 53 00 D9  |GET CATEGORIES..|
000007C0: 0F 72 10 99 22 13 11 11  11 11 11 11 11 11 CB 41  |.r.."..........A|
000007D0: 54 45 47 4F 52 49 45 4E  3A 00 F4 0F 7C 10 81 49  |TEGORIEN:...|..I|
000007E0: B2 30 A4 36 3A 99 2C 3A  8B 58 AF 32 AE 49 A7 99  |.0.6:.,:.X.2.I..|
000007F0: 22 12 22 3B 00 07 10 86  10 99 49 AA 31 22 92 22  |".";......I.1"."|
00000800: 4B 24 28 49 29 3A 82 00  37 10 90 10 99 22 11 D7  |K$(I):..7...."..|
00000810: 49 45 20 5A 55 4F 52 44  4E 45 4E 2F 4C 4F 45 53  |IE ZUORDNEN/LOES|
00000820: 43 48 45 4E 3F 20 20 20  9D 22 3B 3A 8D 38 30 37  |CHEN?   .";:.807|
00000830: 30 3A 49 B2 32 AE 49 00  56 10 9A 10 58 B2 28 58  |0:I.2.I.V...X.(X|
00000840: B0 49 29 AF A8 28 58 AF  49 29 3A 8B 58 B3 31 32  |.I)..(X.I):.X.12|
00000850: 38 89 34 32 31 30 00 77  10 CC 10 54 24 28 54 2C  |8.4210.w...T$(T,|
00000860: 39 29 B2 C7 28 58 29 3A  8F 20 43 4F 4D 50 4C 45  |9)..(X):. COMPLE|
00000870: 54 45 20 45 44 49 54 00  A2 10 D6 10 99 22 91 91  |TE EDIT......"..|
00000880: 22 42 30 24 3A 99 22 91  C1 4B 5A 45 50 54 49 45  |"B0$:."..KZEPTIE|
00000890: 52 54 22 3B 3A 8D 38 30  35 30 3A 8B 49 89 34 31  |RT";:.8050:.I.41|
000008A0: 30 30 00 C3 10 E0 10 8B  4E 58 B3 31 89 31 30 30  |00......NX.1.100|
000008B0: 3A 8F 20 4D 55 53 54 20  42 45 20 49 4E 20 4F 52  |:. MUST BE IN OR|
000008C0: 44 45 52 00 FD 10 EA 10  58 24 B2 54 24 28 54 2C  |DER.....X$.T$(T,|
000008D0: 30 29 3A 8B 4B B3 4E 58  A7 81 49 B2 4B A4 4E 58  |0):.K.NX..I.K.NX|
000008E0: AB 31 3A 54 25 28 49 29  B2 54 25 28 49 AA 31 29  |.1:T%(I).T%(I.1)|
000008F0: 3A 82 3A 8F 20 52 45 4D  4F 56 45 20 54 00 2F 11  |:.:. REMOVE T./.|
00000900: F4 10 81 49 B2 30 A4 4E  58 AB 31 3A 8B 54 24 28  |...I.0.NX.1:.T$(|
00000910: 54 25 28 49 29 2C 30 29  B3 58 24 A7 82 3A 8F 20  |T%(I),0).X$..:. |
00000920: 4C 4F 43 41 54 45 20 54  27 53 20 53 4C 4F 54 00  |LOCATE T'S SLOT.|
00000930: 6C 11 FE 10 8B 49 B3 4E  58 A7 4A B2 49 AA 31 3A  |l....I.NX.J.I.1:|
00000940: 81 49 B2 4E 58 A4 4A A9  AB 31 3A 54 25 28 49 29  |.I.NX.J..1:T%(I)|
00000950: B2 54 25 28 49 AB 31 29  3A 82 3A 8F 20 4D 41 4B  |.T%(I.1):.:. MAK|
00000960: 45 20 52 4F 4F 4D 20 46  4F 52 20 54 00 8E 11 08  |E ROOM FOR T....|
00000970: 11 54 25 28 49 29 B2 54  3A 89 31 30 30 3A 8F 20  |.T%(I).T:.100:. |
00000980: 49 4E 53 45 52 54 20 54  2C 20 45 58 49 54 00 A6  |INSERT T, EXIT..|
00000990: 11 24 13 8F 20 43 4C 45  41 4E 20 55 50 20 44 45  |.$.. CLEAN UP DE|
000009A0: 4C 45 54 49 4F 4E 00 BE  11 2E 13 81 49 B2 30 A4  |LETION......I.0.|
000009B0: 39 3A 54 24 28 54 2C 49  29 B2 22 22 3A 82 00 EF  |9:T$(T,I)."":...|
000009C0: 11 38 13 4E 58 B2 4E 58  AB 31 3A 81 49 B2 4B A4  |.8.NX.NX.1:.I.K.|
000009D0: 4E 58 3A 54 25 28 49 29  B2 54 25 28 49 AA 31 29  |NX:T%(I).T%(I.1)|
000009E0: 3A 82 3A 54 25 28 49 29  B2 54 3A 89 31 30 30 00  |:.:T%(I).T:.100.|
000009F0: 0A 12 88 13 8F 20 53 45  4C 45 43 54 2F 45 44 49  |..... SELECT/EDI|
00000A00: 54 20 41 4E 20 45 4E 54  52 59 00 2E 12 92 13 99  |T AN ENTRY......|
00000A10: 22 93 22 3A 99 22 D3 55  43 48 45 4E 20 4E 41 43  |".":.".UCHEN NAC|
00000A20: 48 3A 20 20 12 CE 92 41  43 48 4E 41 4D 45 00 43  |H:  ...ACHNAME.C|
00000A30: 12 9C 13 99 2C 22 20 20  20 20 12 D6 92 4F 52 4E  |....,"    ...ORN|
00000A40: 41 4D 45 00 58 12 A6 13  99 2C 22 20 20 20 20 12  |AME.X....,"    .|
00000A50: D0 92 CC DA 2F CF 52 54  00 6B 12 B0 13 99 2C 22  |..../.RT.k....,"|
00000A60: 20 20 20 20 12 D3 92 54  41 41 54 00 83 12 BA 13  |    ...TAAT.....|
00000A70: 99 2C 22 20 20 20 20 12  D4 92 45 4C 45 46 4F 4E  |.,"    ...ELEFON|
00000A80: 4E 52 2E 00 AF 12 CE 13  99 22 11 D7 45 4C 43 48  |NR......."..ELCH|
00000A90: 45 52 20 20 22 3B 3A 58  24 B2 22 4E 56 4C 4C 4C  |ER  ";:X$."NVLLL|
00000AA0: 4C 50 53 54 22 3A 8D 38  30 36 30 3A 46 B2 49 00  |LPST":.8060:F.I.|
00000AB0: E2 12 D8 13 4D B2 34 30  3A 99 22 11 D3 43 48 4C  |....M.40:."..CHL|
00000AC0: 55 45 53 53 45 4C 57 4F  52 54 3A 20 22 3B 3A 8D  |UESSELWORT: ";:.|
00000AD0: 38 32 30 30 3A 5A 24 B2  58 24 3A 5A B2 C3 28 5A  |8200:Z$.X$:Z..(Z|
00000AE0: 24 29 00 FD 12 EC 13 4B  B2 30 3A 8F 20 53 45 41  |$).....K.0:. SEA|
00000AF0: 52 43 48 20 46 4F 52 20  46 49 45 4C 44 00 18 13  |RCH FOR FIELD...|
00000B00: F6 13 54 B2 54 25 28 4B  29 3A 58 24 B2 54 24 28  |..T.T%(K):X$.T$(|
00000B10: 54 2C 46 29 3A 59 B2 30  00 4A 13 00 14 81 49 B2  |T,F):Y.0.J....I.|
00000B20: 31 A4 C3 28 58 24 29 AB  5A AA 31 3A 59 B2 28 CA  |1..(X$).Z.1:Y.(.|
00000B30: 28 58 24 2C 49 2C 5A 29  B2 5A 24 29 B0 59 3A 82  |(X$,I,Z).Z$).Y:.|
00000B40: 3A 8B 59 B2 30 89 35 31  35 30 00 6E 13 0A 14 4A  |:.Y.0.5150.n...J|
00000B50: B2 30 3A 8D 33 30 30 3A  99 22 93 22 3A 81 49 B2  |.0:.300:.".":.I.|
00000B60: 30 A4 34 3A 99 41 24 28  30 2C 49 29 3A 82 00 96  |0.4:.A$(0,I):...|
00000B70: 13 14 14 99 22 11 D7 45  49 54 45 52 53 55 43 48  |...."..EITERSUCH|
00000B80: 45 4E 20 20 20 20 22 3B  3A 8D 38 30 35 30 3A 8B  |EN    ";:.8050:.|
00000B90: 49 89 35 31 38 30 00 AC  13 1E 14 4B B2 4B AA 31  |I.5180.....K.K.1|
00000BA0: 3A 8B 4B B3 B2 4E 58 89  35 31 31 30 00 DB 13 28  |:.K..NX.5110...(|
00000BB0: 14 99 3A 99 22 11 C1 4C  4C 45 20 C5 49 4E 47 41  |..:."..LLE .INGA|
00000BC0: 42 45 4E 20 55 45 42 45  52 50 52 55 45 46 54 22  |BEN UEBERPRUEFT"|
00000BD0: 3A 8D 38 30 30 30 3A 89  31 30 30 00 FF 13 3C 14  |:.8000:.100...<.|
00000BE0: 99 22 11 C1 45 4E 44 45  52 4E 22 3B 3A 8D 38 30  |."..ENDERN";:.80|
00000BF0: 35 30 3A 91 49 89 31 30  30 3A 89 34 31 30 30 00  |50:.I.100:.4100.|
00000C00: 1B 14 70 17 8F 20 46 49  4C 45 20 46 4F 52 20 57  |..p.. FILE FOR W|
00000C10: 4F 52 44 20 4D 41 43 48  49 4E 45 00 4E 14 7A 17  |ORD MACHINE.N.z.|
00000C20: 99 22 93 CE 41 4D 45 20  44 45 52 20 C4 41 54 45  |."..AME DER .ATE|
00000C30: 49 3A 20 20 20 22 3B 3A  4D B2 31 36 3A 8D 38 32  |I:   ";:M.16:.82|
00000C40: 30 30 3A 8B 58 24 B2 22  22 89 36 30 31 30 00 6B  |00:.X$."".6010.k|
00000C50: 14 84 17 59 24 B2 58 24  3A 8D 33 35 30 30 3A 8B  |...Y$.X$:.3500:.|
00000C60: C5 28 58 24 29 89 36 30  30 30 30 00 76 14 8E 17  |.(X$).60000.v...|
00000C70: 8B 58 89 31 30 30 00 AC  14 A2 17 8D 37 32 30 30  |.X.100......7200|
00000C80: 3A 99 22 11 D3 50 45 5A  49 45 4C 4C 45 20 C1 55  |:."..PEZIELLE .U|
00000C90: 53 57 41 48 4C 20 20 22  3B 3A 8D 38 30 35 30 3A  |SWAHL  ";:.8050:|
00000CA0: 53 46 B2 49 3A 4A B2 30  3A 4B B2 30 00 CF 14 AC  |SF.I:J.0:K.0....|
00000CB0: 17 54 B2 54 25 28 4B 29  3A 8B 28 46 AF C6 28 54  |.T.T%(K):.(F..(T|
00000CC0: 24 28 54 2C 39 29 29 29  B2 30 89 36 31 38 30 00  |$(T,9))).0.6180.|
00000CD0: E6 14 B6 17 8B 53 46 A7  99 54 24 28 54 2C 30 29  |.....SF..T$(T,0)|
00000CE0: 3A 89 36 31 30 30 00 06  15 C0 17 8D 33 30 30 3A  |:.6100......300:|
00000CF0: 99 22 93 22 3A 81 49 B2  30 A4 33 3A 99 41 24 28  |.".":.I.0.3:.A$(|
00000D00: 4A 2C 49 29 3A 82 00 2E  15 CA 17 99 22 11 D5 45  |J,I):......."..E|
00000D10: 42 45 52 4E 45 48 4D 45  4E 20 20 20 20 20 22 3B  |BERNEHMEN     ";|
00000D20: 3A 8D 38 30 35 30 3A 8B  49 89 36 31 38 30 00 44  |:.8050:.I.6180.D|
00000D30: 15 D4 17 8F 20 4F 55 54  50 55 54 20 54 48 45 20  |.... OUTPUT THE |
00000D40: 46 49 4C 45 00 65 15 DE  17 81 49 B2 30 A4 37 3A  |FILE.e....I.0.7:|
00000D50: 98 31 2C 54 24 28 54 2C  49 29 3A 82 3A 44 46 B2  |.1,T$(T,I):.:DF.|
00000D60: B6 28 44 46 29 00 7B 15  24 18 4B B2 4B AA 31 3A  |.(DF).{.$.K.K.1:|
00000D70: 8B 4B B3 B2 4E 58 89 36  30 36 30 00 B1 15 2E 18  |.K..NX.6060.....|
00000D80: 98 31 2C 22 5C 22 3A 8B  44 46 B1 AB 31 A7 91 53  |.1,"\":.DF..1..S|
00000D90: 46 AA 31 89 36 32 32 30  2C 31 30 30 3A 8F 20 20  |F.1.6220,100:.  |
00000DA0: 2D 31 3D 45 4D 50 54 59  20 44 49 53 43 46 49 4C  |-1=EMPTY DISCFIL|
00000DB0: 45 00 DC 15 38 18 99 22  11 CB 45 49 4E 45 20 C1  |E...8.."..EINE .|
00000DC0: 44 52 45 53 53 45 20 49  4E 20 44 49 45 53 45 52  |DRESSE IN DIESER|
00000DD0: 20 CB 41 54 45 47 4F 52  49 45 2E 22 00 F5 15 42  | .ATEGORIE."...B|
00000DE0: 18 A0 31 3A 98 38 2C 22  53 30 3A 22 59 24 3A 98  |..1:.8,"S0:"Y$:.|
00000DF0: 38 2C 22 49 30 00 04 16  4C 18 8D 38 30 30 30 3A  |8,"I0...L..8000:|
00000E00: 89 31 30 30 00 17 16 58  1B 8F 20 50 52 49 4E 54  |.100...X.. PRINT|
00000E10: 20 4C 41 42 45 4C 53 00  34 16 62 1B 53 46 B2 AB  | LABELS.4.b.SF..|
00000E20: 31 3A 4D B2 33 30 3A 9F  31 2C 30 34 3A 4C 4C B2  |1:M.30:.1,04:LL.|
00000E30: 39 39 39 39 00 5E 16 6C  1B 99 22 11 C5 49 4E 2D  |9999.^.l.."..IN-|
00000E40: 53 50 41 4C 54 49 47 45  20 C5 54 49 4B 45 54 54  |SPALTIGE .TIKETT|
00000E50: 45 4E 22 3B 3A 8D 38 30  35 30 3A 59 B2 49 00 86  |EN";:.8050:Y.I..|
00000E60: 16 8A 1B 99 22 11 D0 52  4F 42 45 41 55 53 44 52  |...."..ROBEAUSDR|
00000E70: 55 43 4B 20 20 20 22 3B  3A 8D 38 30 35 30 3A 8B  |UCK   ";:.8050:.|
00000E80: 49 89 37 30 39 30 00 B4  16 94 1B 50 24 B2 22 2D  |I.7090.....P$."-|
00000E90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 45 52 53 54 45 20 DA  |---------ERSTE .|
00000EA0: 45 49 4C 45 2D 2D 2D 2D  2D 2D 2D 2D 2D 22 3A 8D  |EILE---------":.|
00000EB0: 37 39 30 30 00 EB 16 9E  1B 81 49 B2 30 A4 31 3A  |7900......I.0.1:|
00000EC0: 50 24 B2 22 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |P$."------------|
00000ED0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000EE0: 2D 2D 22 3A 8D 37 39 30  30 3A 82 00 28 17 A8 1B  |--":.7900:..(...|
00000EF0: 50 24 B2 22 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 4C 45  |P$."----------LE|
00000F00: 54 5A 54 45 20 DA 45 49  4C 45 2D 2D 2D 2D 2D 2D  |TZTE .EILE------|
00000F10: 2D 2D 22 3A 81 49 B2 31  A4 33 3A 8D 37 39 30 30  |--":.I.1.3:.7900|
00000F20: 3A 82 3A 89 37 30 35 30  00 4D 17 B2 1B 8D 37 32  |:.:.7050.M....72|
00000F30: 30 30 3A 8D 37 33 30 30  3A 89 31 30 30 3A 8F 20  |00:.7300:.100:. |
00000F40: 4F 55 54 50 55 54 20 4C  41 42 45 4C 53 00 64 17  |OUTPUT LABELS.d.|
00000F50: BC 1B 8F 20 50 52 49 4E  54 20 50 48 4F 4E 45 20  |... PRINT PHONE |
00000F60: 42 4F 4F 4B 00 80 17 C6  1B 53 46 B2 30 3A 4D B2  |BOOK.....SF.0:M.|
00000F70: 33 36 3A 59 B2 31 3A 9F  31 2C 30 34 3A 4C B2 30  |36:Y.1:.1,04:L.0|
00000F80: 00 A8 17 D0 1B 99 22 11  DA 45 49 4C 45 4E 20 50  |......"..EILEN P|
00000F90: 52 4F 20 D3 45 49 54 45  20 22 4C 30 22 9D 9D 9D  |RO .EITE "L0"...|
00000FA0: 9D 9D 22 3B 3A 85 4C 4C  00 C3 17 DA 1B 8D 37 32  |..";:.LL......72|
00000FB0: 30 30 3A 8D 37 33 30 30  3A 8D 37 39 35 30 3A 89  |00:.7300:.7950:.|
00000FC0: 31 30 30 00 D6 17 20 1C  8F 20 47 45 54 20 43 41  |100... .. GET CA|
00000FD0: 54 45 47 4F 52 59 00 0E  18 2A 1C 99 22 93 D3 55  |TEGORY...*.."..U|
00000FE0: 43 48 45 4E 20 4E 41 43  48 3A 22 3A 81 49 B2 30  |CHEN NACH:":.I.0|
00000FF0: A4 36 3A 99 2C 22 12 22  CA 28 C4 28 49 AA 31 29  |.6:.,".".(.(I.1)|
00001000: 2C 32 29 22 92 20 22 4B  24 28 49 29 3A 82 00 4A  |,2)". "K$(I):..J|
00001010: 18 34 1C 99 2C 22 12 38  92 20 C1 4C 4C 45 22 3A  |.4..,".8. .LLE":|
00001020: 99 22 11 C9 48 52 45 20  D7 41 48 4C 20 20 22 3B  |."..HRE .AHL  ";|
00001030: 3A 58 24 B2 22 31 32 33  34 35 36 37 38 22 3A 8D  |:X$."12345678":.|
00001040: 38 30 36 30 3A 46 B2 32  AE 49 00 69 18 3E 1C 8E  |8060:F.2.I.i.>..|
00001050: 3A 8F 20 41 4C 4C 20 41  52 45 20 4F 52 2D 45 44  |:. ALL ARE OR-ED|
00001060: 20 57 49 54 48 20 31 32  38 00 7C 18 84 1C 8F 20  | WITH 128.|.... |
00001070: 50 52 49 4E 54 20 45 49  54 48 45 52 00 AB 18 8E  |PRINT EITHER....|
00001080: 1C 4A B2 59 3A 81 4B B2  30 A4 4E 58 3A 54 B2 54  |.J.Y:.K.0.NX:T.T|
00001090: 25 28 4B 29 3A 8B 28 46  AF C6 28 54 24 28 54 2C  |%(K):.(F..(T$(T,|
000010A0: 39 29 29 29 B2 30 89 37  33 38 30 00 C9 18 98 1C  |9))).0.7380.....|
000010B0: 4A B2 59 AB 4A 3A 8D 33  30 30 3A 8B 53 46 A7 41  |J.Y.J:.300:.SF.A|
000010C0: 24 28 4A 2C 34 29 B2 22  22 00 D7 18 A2 1C 8B 4A  |$(J,4).""......J|
000010D0: B3 59 89 37 33 38 30 00  F2 18 B6 1C 81 49 B2 30  |.Y.7380......I.0|
000010E0: A4 34 3A 50 24 B2 C8 28  41 24 28 30 2C 49 29 2C  |.4:P$..(A$(0,I),|
000010F0: 4D 29 00 1C 19 C0 1C 8B  4A A7 50 24 B2 50 24 AA  |M)......J.P$.P$.|
00001100: C8 28 42 24 2C 4D AA 36  AB C3 28 50 24 29 29 AA  |.(B$,M.6..(P$)).|
00001110: C8 28 41 24 28 31 2C 49  29 2C 4D 29 00 2E 19 CA  |.(A$(1,I),M)....|
00001120: 1C 8D 37 39 30 30 3A 82  3A 8D 37 39 30 30 00 5F  |..7900:.:.7900._|
00001130: 19 D4 1C 82 4B 3A 8B 4A  B3 59 A7 81 49 B2 30 A4  |....K:.J.Y..I.0.|
00001140: 34 3A 50 24 B2 C8 28 41  24 28 30 2C 49 29 2C 4D  |4:P$..(A$(0,I),M|
00001150: 29 3A 8D 37 39 30 30 3A  82 3A 8D 37 39 30 30 00  |):.7900:.:.7900.|
00001160: 65 19 DE 1C 8E 00 92 19  DC 1E 4C B2 4C AA 31 3A  |e.........L.L.1:|
00001170: 98 31 2C 22 11 22 AA 50  24 3A 50 24 B2 22 22 3A  |.1,".".P$:P$."":|
00001180: 8B 4C B3 4C 4C A7 8E 3A  8F 20 4C 49 4E 45 20 4F  |.L.LL..:. LINE O|
00001190: 55 54 00 B4 19 E6 1E 4C  B2 4C AA 31 3A 98 31 2C  |UT.....L.L.1:.1,|
000011A0: 22 11 22 AA 50 24 3A 50  24 B2 22 22 3A 8B 4C B3  |".".P$:P$."":.L.|
000011B0: 4C 4C A7 8E 00 E2 19 0E  1F 8B 4C A7 81 4C B2 4C  |LL........L..L.L|
000011C0: A4 4C 50 AB 31 3A 98 31  3A 82 3A 4C B2 30 3A 8E  |.LP.1:.1:.:L.0:.|
000011D0: 3A 8F 20 46 49 4E 49 53  48 20 54 48 45 20 50 41  |:. FINISH THE PA|
000011E0: 47 45 00 F2 19 40 1F 8F  20 55 54 49 4C 49 54 49  |GE...@.. UTILITI|
000011F0: 45 53 00 26 1A 4A 1F 99  22 11 12 20 D7 45 49 54  |ES.&.J..".. .EIT|
00001200: 45 52 20 4D 49 54 20 42  45 4C 49 45 42 49 47 45  |ER MIT BELIEBIGE|
00001210: 52 20 D4 41 53 54 45 22  3B 3A 8D 32 30 3A 99 3A  |R .ASTE";:.20:.:|
00001220: 99 22 93 22 3A 8E 00 31  1A 72 1F 58 24 B2 22 4A  |.".":..1.r.X$."J|
00001230: 4E 00 3C 1A 7C 1F 99 22  3F 20 22 3B 00 66 1A 86  |N.<.|.."? ";.f..|
00001240: 1F 8D 32 30 3A 81 49 B2  31 A4 C3 28 58 24 29 3A  |..20:.I.1..(X$):|
00001250: 8B 43 24 B3 B1 CA 28 58  24 2C 49 2C 31 29 A7 82  |.C$...(X$,I,1)..|
00001260: 3A 89 38 30 37 30 00 7F  1A 8B 1F 49 B2 49 AB 31  |:.8070.....I.I.1|
00001270: 3A 99 43 24 3B 3A 8B 43  B2 31 33 A7 99 3A 8E 00  |:.C$;:.C.13..:..|
00001280: 9B 1A 90 1F A1 57 24 3A  8B 57 24 B2 22 22 A7 99  |.....W$:.W$.""..|
00001290: 22 A4 9D 22 3B 3A 89 38  30 38 30 00 B1 1A 95 1F  |"..";:.8080.....|
000012A0: 99 22 20 9D 22 3B 3A 8B  57 24 B2 52 24 A7 99 3A  |." .";:.W$.R$..:|
000012B0: 8E 00 CA 1A 9A 1F 8B 57  24 B2 C7 28 32 30 29 A7  |.......W$..(20).|
000012C0: 99 57 24 3B 3A 89 38 30  37 30 00 D4 1A 9F 1F 89  |.W$;:.8070......|
000012D0: 38 30 38 30 00 EF 1A 08  20 58 24 B2 22 22 3A 8F  |8080.... X$."":.|
000012E0: 20 49 4E 50 55 54 20 41  20 53 54 52 49 4E 47 00  | INPUT A STRING.|
000012F0: 00 1B 12 20 A1 43 24 3A  8B 43 24 89 38 32 31 30  |... .C$:.C$.8210|
00001300: 00 10 1B 1C 20 8D 32 35  3A 8B 43 B2 31 33 A7 8E  |.... .25:.C.13..|
00001310: 00 3F 1B 26 20 8B 43 B2  32 30 AF 58 24 B1 22 22  |.?.& .C.20.X$.""|
00001320: A7 99 43 24 3B 3A 58 24  B2 C8 28 58 24 2C C3 28  |..C$;:X$..(X$,.(|
00001330: 58 24 29 AB 31 29 3A 8F  20 44 45 4C 45 54 45 00  |X$).1):. DELETE.|
00001340: 68 1B 2B 20 8B 28 31 32  37 AF 43 29 B3 33 32 89  |h.+ .(127.C).32.|
00001350: 38 32 32 30 3A 8F 20 43  55 52 53 4F 52 20 43 48  |8220:. CURSOR CH|
00001360: 41 52 41 43 54 45 52 53  00 91 1B 30 20 8B 28 4B  |ARACTERS...0 .(K|
00001370: 25 28 43 29 B0 47 29 A7  99 43 24 3B 3A 58 24 B2  |%(C).G)..C$;:X$.|
00001380: 58 24 AA 43 24 3A 8B C3  28 58 24 29 B1 B2 4D A7  |X$.C$:..(X$)..M.|
00001390: 8E 00 9B 1B 3A 20 89 38  32 32 30 00 AC 1B 28 23  |....: .8220...(#|
000013A0: 8F 20 49 4E 49 54 49 41  4C 49 5A 45 00 D9 1B 2D  |. INITIALIZE...-|
000013B0: 23 4C 30 B2 36 30 3A 4C  50 B2 37 32 3A 4E 58 B2  |#L0.60:LP.72:NX.|
000013C0: AB 31 3A 52 24 B2 C7 28  31 33 29 3A 48 24 B2 22  |.1:R$..(13):H$."|
000013D0: CE 41 4D 45 20 CC 49 53  54 00 FA 1B 32 23 86 4B  |.AME .IST...2#.K|
000013E0: 25 28 32 35 35 29 2C 41  24 28 31 2C 34 29 2C 4B  |%(255),A$(1,4),K|
000013F0: 24 28 36 29 2C 46 24 28  38 29 00 3B 1C 3C 23 99  |$(6),F$(8).;.<#.|
00001400: 22 93 8E 13 13 0F 11 11  11 11 11 11 11 11 11 11  |"...............|
00001410: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 22  |..............."|
00001420: A6 33 39 29 22 8F 05 22  3A 97 35 39 34 36 38 2C  |.39)"..":.59468,|
00001430: 31 34 3A 8F 20 46 4F 52  4D 41 54 00 74 1C 41 23  |14:. FORMAT.t.A#|
00001440: 97 35 33 32 37 32 2C 32  B0 C2 28 35 33 32 37 32  |.53272,2..(53272|
00001450: 29 3A 99 22 93 20 20 20  20 20 12 20 20 20 20 20  |):.".     .     |
00001460: 20 20 20 20 20 20 C1 C4  D2 C5 D3 D3 C5 CE 20 20  |      ........  |
00001470: 20 20 20 92 00 8F 1C 43  23 8D 36 31 30 30 30 3A  |   ....C#.61000:|
00001480: 20 8F 20 43 4F 4C 4F 52  20 43 48 41 4E 47 45 00  | . COLOR CHANGE.|
00001490: D4 1C 46 23 99 22 11 12  CB 92 41 53 53 45 54 54  |..F#."....ASSETT|
000014A0: 45 2C 20 12 C4 92 49 53  4B 45 54 54 45 2C 20 4F  |E, ...ISKETTE, O|
000014B0: 44 45 52 20 12 42 92 45  49 44 45 53 22 3B 3A 58  |DER .B.EIDES";:X|
000014C0: 24 B2 22 44 4B 42 22 3A  8D 38 30 36 30 3A 43 46  |$."DKB":.8060:CF|
000014D0: B2 49 AA 31 00 0C 1D 4B  23 81 49 B2 33 32 A4 39  |.I.1...K#.I.32.9|
000014E0: 30 3A 87 4B 25 28 49 29  3A 82 3A 81 49 B2 31 39  |0:.K%(I):.:.I.19|
000014F0: 33 A4 32 31 38 3A 4B 25  28 49 29 B2 31 3A 82 3A  |3.218:K%(I).1:.:|
00001500: 8F 20 43 48 41 52 20 41  52 52 41 59 00 43 1D 50  |. CHAR ARRAY.C.P|
00001510: 23 42 24 B2 22 20 20 20  20 20 22 3A 81 49 B2 31  |#B$."     ":.I.1|
00001520: A4 35 3A 42 24 B2 42 24  AA 42 24 3A 82 3A 42 30  |.5:B$.B$.B$:.:B0|
00001530: 24 B2 C8 28 42 24 2C 33  39 29 3A 9F 38 2C 30 38  |$..(B$,39):.8,08|
00001540: 2C 31 35 00 7E 1D 55 23  99 22 11 D4 41 47 45 53  |,15.~.U#."..AGES|
00001550: 44 41 54 55 4D 3A 20 22  3A 4D B2 36 30 3A 47 B2  |DATUM: ":M.60:G.|
00001560: 31 3A 8D 38 32 30 30 3A  47 B2 30 3A 44 24 B2 58  |1:.8200:G.0:D$.X|
00001570: 24 3A 8B 44 24 B2 22 22  A7 44 24 B2 22 2D 00 A2  |$:.D$."".D$."-..|
00001580: 1D 6E 23 99 3A 81 49 B2  30 A4 38 3A 87 46 24 28  |.n#.:.I.0.8:.F$(|
00001590: 49 29 3A 82 3A 8F 20 46  49 45 4C 44 20 4E 41 4D  |I):.:. FIELD NAM|
000015A0: 45 53 00 C3 1D 78 23 81  49 B2 30 A4 36 3A 87 4B  |ES...x#.I.0.6:.K|
000015B0: 24 28 49 29 3A 82 3A 8F  20 43 41 54 45 47 4F 52  |$(I):.:. CATEGOR|
000015C0: 49 45 53 00 FC 1D 82 23  56 B2 B5 28 28 B8 28 30  |IES....#V..((.(0|
000015D0: 29 AB 32 30 30 30 29 AD  31 37 30 29 3A 86 54 24  |).2000).170):.T$|
000015E0: 28 56 2C 39 29 2C 54 25  28 56 29 3A 81 49 B2 30  |(V,9),T%(V):.I.0|
000015F0: A4 56 3A 54 25 28 49 29  B2 49 3A 82 00 0D 1E 1C  |.V:T%(I).I:.....|
00001600: 25 8F 20 49 4E 50 55 54  20 46 49 4C 45 00 30 1E  |%. INPUT FILE.0.|
00001610: 26 25 8B 43 46 B1 32 A7  99 22 11 D6 4F 4E 20 C4  |&%.CF.2.."..ON .|
00001620: 41 54 41 53 45 54 54 45  22 3B 3A 8D 38 30 35 30  |ATASETTE";:.8050|
00001630: 00 62 1E 30 25 8B 43 46  B2 32 B0 28 43 46 B2 33  |.b.0%.CF.2.(CF.3|
00001640: AF 49 B2 30 29 A7 8D 39  37 30 30 3A 91 49 89 31  |.I.0)..9700:.I.1|
00001650: 30 30 3A 9F 31 2C 31 2C  30 2C 48 24 3A 89 39 36  |00:.1,1,0,H$:.96|
00001660: 30 30 00 86 1E 4E 25 A0  31 3A 9F 31 2C 30 38 2C  |00...N%.1:.1,08,|
00001670: 32 2C 48 24 3A 84 38 2C  58 2C 58 24 3A 8B 58 B2  |2,H$:.8,X,X$:.X.|
00001680: 30 89 39 36 30 30 00 97  1E 58 25 8D 39 37 30 30  |0.9600...X%.9700|
00001690: 3A 8B 49 89 31 30 30 00  D0 1E 62 25 99 22 11 CC  |:.I.100...b%."..|
000016A0: 45 47 45 4E 20 D3 49 45  20 42 49 54 54 45 20 44  |EGEN .IE BITTE D|
000016B0: 49 45 20 C4 49 53 4B 45  54 54 45 20 45 49 4E 20  |IE .ISKETTE EIN |
000016C0: 55 4E 44 22 3A 8D 38 30  30 30 3A 89 39 35 35 30  |UND":.8000:.9550|
000016D0: 00 DA 1E 80 25 58 24 B2  22 22 00 FC 1E 83 25 A1  |....%X$.""....%.|
000016E0: 23 31 2C 43 24 3A 8B 43  24 B3 B1 52 24 A7 58 24  |#1,C$:.C$..R$.X$|
000016F0: B2 58 24 AA 43 24 3A 89  39 36 30 33 00 28 1F 85  |.X$.C$:.9603.(..|
00001700: 25 99 22 93 C5 4E 54 45  52 45 44 3A 20 12 22 58  |%."..NTERED: ."X|
00001710: 24 3A 99 3A 8F 20 44 41  54 45 4C 49 4E 45 20 46  |$:.:. DATELINE F|
00001720: 52 4F 4D 20 46 49 4C 45  00 5E 1F 8A 25 81 49 B2  |ROM FILE.^..%.I.|
00001730: 30 A4 56 3A 84 31 2C 58  24 3A 8B 58 24 B2 22 5C  |0.V:.1,X$:.X$."\|
00001740: 22 B0 53 54 B1 30 89 39  36 35 30 3A 8F 20 52 45  |".ST.0.9650:. RE|
00001750: 41 44 49 4E 47 20 43 4F  4D 50 4C 45 54 45 00 8F  |ADING COMPLETE..|
00001760: 1F 94 25 99 58 24 3A 54  24 28 49 2C 30 29 B2 58  |..%.X$:T$(I,0).X|
00001770: 24 3A 81 4A B2 31 A4 39  3A 84 31 2C 54 24 28 49  |$:.J.1.9:.1,T$(I|
00001780: 2C 4A 29 3A 82 3A 54 25  28 49 29 B2 49 3A 82 00  |,J):.:T%(I).I:..|
00001790: AA 1F B2 25 4E 58 B2 49  AB 31 3A 89 31 30 30 3A  |...%NX.I.1:.100:|
000017A0: 8F 20 43 4F 4D 50 4C 45  54 45 00 CC 1F E4 25 99  |. COMPLETE....%.|
000017B0: 22 11 CE 45 55 45 20 C4  41 54 45 49 22 3B 3A 8D  |"..EUE .ATEI";:.|
000017C0: 38 30 35 30 3A 49 B2 31  AB 49 3A 8E 00 EE 1F AC  |8050:I.1.I:.....|
000017D0: 26 8F 20 41 43 43 45 50  54 41 42 4C 45 20 43 48  |&. ACCEPTABLE CH|
000017E0: 41 52 41 43 54 45 52 53  20 33 32 2D 39 30 00 33  |ARACTERS 32-90.3|
000017F0: 20 B6 26 83 31 2C 31 2C  30 2C 31 2C 31 2C 31 2C  | .&.1,1,0,1,1,1,|
00001800: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 30 2C 31 2C  |1,1,1,1,1,1,0,1,|
00001810: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001820: 31 2C 31 2C 31 2C 31 2C  30 2C 30 2C 31 2C 31 2C  |1,1,1,1,0,0,1,1,|
00001830: 31 2C 31 00 6E 20 C0 26  83 31 2C 31 2C 31 2C 31  |1,1.n .&.1,1,1,1|
00001840: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001850: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001860: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 00 BB  |,1,1,1,1,1,1,1..|
00001870: 20 CA 26 83 22 CE 41 43  48 4E 41 4D 45 20 22 2C  | .&.".ACHNAME ",|
00001880: 22 D6 4F 52 4E 41 4D 45  20 20 20 22 2C 22 C1 4E  |".ORNAME   ",".N|
00001890: 52 45 44 45 20 28 44 2E  48 2E 20 C8 45 52 52 2C  |REDE (D.H. .ERR,|
000018A0: 20 C6 52 41 55 2C 20 C6  41 4D 2E 2C 20 C6 49 52  | .RAU, .AM., .IR|
000018B0: 4D 41 29 22 2C 22 D4 49  54 45 4C 00 F7 20 D4 26  |MA)",".ITEL.. .&|
000018C0: 83 22 CF 52 47 41 4E 49  53 41 54 49 4F 4E 22 2C  |.".RGANISATION",|
000018D0: 22 D3 54 52 41 53 53 45  22 2C 22 D0 CC DA 2F CF  |".TRASSE",".../.|
000018E0: 52 54 22 2C 22 D3 54 41  41 54 22 2C 22 D4 45 4C  |RT",".TAAT",".EL|
000018F0: 45 46 4F 4E 4E 52 2E 00  0E 21 10 27 8F 20 53 45  |EFONNR...!.'. SE|
00001900: 56 45 4E 20 43 41 54 45  47 4F 52 49 45 53 00 1D  |VEN CATEGORIES..|
00001910: 21 1A 27 83 20 22 C6 41  4D 49 4C 49 45 00 2C 21  |!.'. ".AMILIE.,!|
00001920: 24 27 83 20 22 C6 52 45  55 4E 44 45 00 43 21 2E  |$'. ".REUNDE.C!.|
00001930: 27 83 20 22 C1 52 42 45  49 54 53 4B 4F 4C 4C 45  |'. ".RBEITSKOLLE|
00001940: 47 45 4E 00 51 21 38 27  83 20 22 C1 45 52 5A 54  |GEN.Q!8'. ".ERZT|
00001950: 45 00 66 21 42 27 83 20  22 C9 4E 53 54 49 54 55  |E.f!B'. ".NSTITU|
00001960: 54 49 4F 4E 45 4E 00 74  21 4C 27 83 20 22 D3 43  |TIONEN.t!L'. ".C|
00001970: 48 55 4C 45 00 85 21 56  27 83 20 22 D3 4F 4E 53  |HULE..!V'. ".ONS|
00001980: 54 49 47 45 53 00 98 21  60 EA 99 58 24 3A 8D 38  |TIGES..!`..X$:.8|
00001990: 30 30 30 3A 89 31 30 30  00 B3 21 48 EE 8F 20 43  |000:.100..!H.. C|
000019A0: 4F 4C 4F 52 20 43 48 41  4E 47 45 20 52 4F 55 54  |OLOR CHANGE ROUT|
000019B0: 49 4E 45 00 D7 21 49 EE  96 A5 43 28 58 29 B2 C2  |INE..!I...C(X)..|
000019C0: 28 58 29 AA 31 AA 31 36  AC 28 28 C2 28 58 29 AF  |(X).1.16.((.(X).|
000019D0: 31 35 29 B2 31 35 29 00  F9 21 4A EE 99 22 13 11  |15).15)..!J.."..|
000019E0: 11 11 12 C6 31 92 3D 20  C6 41 52 42 45 20 44 45  |....1.= .ARBE DE|
000019F0: 53 20 D2 41 4E 44 45 53  22 00 1A 22 4B EE 99 22  |S .ANDES".."K.."|
00001A00: 11 11 12 C6 33 92 3D 20  C8 49 4E 54 45 52 47 52  |....3.= .INTERGR|
00001A10: 55 4E 44 2D C6 41 52 42  45 22 00 3B 22 4C EE 99  |UND-.ARBE".;"L..|
00001A20: 22 11 11 12 C6 35 92 3D  20 C6 41 52 42 45 20 44  |"....5.= .ARBE D|
00001A30: 45 52 20 DA 45 49 43 48  45 4E 22 00 55 22 4D EE  |ER .EICHEN".U"M.|
00001A40: 99 22 11 11 12 D2 C5 D4  D5 D2 CE 92 3D 20 D7 45  |."..........= .E|
00001A50: 49 54 45 52 22 00 67 22  52 EE A1 43 24 3A 8B 43  |ITER".g"R..C$:.C|
00001A60: 24 89 36 31 30 31 30 00  7C 22 5C EE A1 43 24 3A  |$.61010.|"\..C$:|
00001A70: 8B 43 24 B2 22 22 89 36  31 30 32 30 00 A3 22 66  |.C$."".61020.."f|
00001A80: EE 43 B2 C6 28 43 24 29  3A 8B 43 B2 31 33 35 A7  |.C..(C$):.C.135.|
00001A90: 97 36 34 36 2C A5 43 28  36 34 36 29 3A 89 36 31  |.646,.C(646):.61|
00001AA0: 30 30 32 00 CF 22 7A EE  43 B2 C6 28 43 24 29 3A  |002.."z.C..(C$):|
00001AB0: 8B 43 B2 31 33 33 B0 43  B2 31 33 34 A7 58 B2 35  |.C.133.C.134.X.5|
00001AC0: 33 31 34 37 AA 43 3A 97  58 2C A5 43 28 58 29 00  |3147.C:.X,.C(X).|
00001AD0: E0 22 84 EE 8B 43 B3 B1  31 33 89 36 31 30 31 30  |."...C..13.61010|
00001AE0: 00 E6 22 8E EE 8E 00 00  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..".      .           ADRESSEN     ...
...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:..V.... OUTPUT FILE...B..3020:.100...
L.Y$.H$:.3500:.E(X$).60000...V..X.......
OF.0:.1,D$:..9.N..I.0.NX:T.T%(I):.T$(T,0
).T.X..J.0.9:.1,T$(T,J):.J,I.L.V..1,"\":
.:. COMPLETE...... OPEN THE FILE TO WRIT
E.....DF.0:X.0:X$."":.CF.2..".AUF DATASE
TTE";:.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.G....:.".DATEI EXISTIERT - 
UEBERSCHREIBEN";:.8050:.I.X.1:..[....8,"
S"L$:.8,"I0.{....1,08,3,L$.",S,W":.8,X,X
$:.... .. CREATE AN ENTRY.J....NX..V..".
. LEIDER KEIN PLATZ MEHR FREI!":.8000:.1
00.....NX.NX.1:K.NX:T.T%(K):T$(T,9).G(12
8).....OF.1:M.39:Y.0:. GET NAME/ADDRESS.
$...J.0:.300.V....". ";:.I.1.30:.".";:.:
.I.1.5:."...";:.:.".";......I.1.30:."...
";:.:.I.1.5:."...";:.:."...."..I.0.4:.".
"A$(J,I):.:.Y.8.4200.J.6..".........."B0
$:."."F$(Y):.B0$"....;..8200:.C..13.4120
...=..:.I(X$,1)." ".X$.H(X$,C(X$).1):.41
57.9.@..X$."".T$(T,Y)."".Y.Y.1:.2.(Y.9).
4150,4110.K.J..C(X$).1.4190.~.T.X$."-":.
Y.0..".LOESCHEN";:.8050:.I.1.4900,4110..
.^.T$(T,Y).X$:Y.Y.1:.4110...H.X$."123456
7".R$:. GET CATEGORIES.Y.R..".........KA
TEGORIEN:...|..I.0.6:.,:.X.2.I..".";....
..I.1"."K$(I):..7....".WIE ZUORDNEN/LOES
CHEN?   .";:.8070:I.2.I.V...X.(X.I)..(X.
I):.X.128.4210.W.L.T$(T,9).G(X):. COMPLE
TE EDIT...V..".."B0$:.".AKZEPTIERT";:.80
50:.I.4100.C....NX.1.100:. MUST BE IN OR
DER.....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.L....I.N
X.J.I.1:.I.NX.J..1:T%(I).T%(I.1):.:. MAK
E ROOM FOR T.....T%(I).T:.100:. INSERT T
, EXIT...$.. CLEAN UP DELETION......I.0.
9:T$(T,I)."":....8.NX.NX.1:.I.K.NX:T%(I)
.T%(I.1):.:T%(I).T:.100...... SELECT/EDI
T AN ENTRY......".":."SUCHEN NACH:  .N.A
CHNAME.C....,"    .V.ORNAME.X....,"    .
P.LZ/ORT.K....,"    .S.TAAT......,"    .
T.ELEFONNR....N..".WELCHER  ";:X$."NVLLL
LPST":.8060:F.I...X.M.40:.".SCHLUESSELWO
RT: ";:.8200:Z$.X$:Z.C(Z$).....K.0:. SEA
RCH FOR FIELD.....T.T%(K):X$.T$(T,F):Y.0
.J....I.1.C(X$).Z.1:Y.(J(X$,I,Z).Z$).Y:.
:.Y.0.5150.N...J.0:.300:.".":.I.0.4:.A$(
0,I):.......".WEITERSUCHEN    ";:.8050:.
I.5180.....K.K.1:.K..NX.5110...(..:.".AL
LE EINGABEN UEBERPRUEFT":.8000:.100...<.
.".AENDERN";:.8050:.I.100:.4100...P.. FI
LE FOR WORD MACHINE.N.Z..".NAME DER DATE
I:   ";:M.16:.8200:.X$."".6010.K...Y$.X$
:.3500:.E(X$).60000.V....X.100......7200
:.".SPEZIELLE AUSWAHL  ";:.8050:SF.I:J.0
:K.0.O...T.T%(K):.(F.F(T$(T,9))).0.6180.
.....SF..T$(T,0):.6100......300:.".":.I.
0.3:.A$(J,I):....J..".UEBERNEHMEN     ";
:.8050:.I.6180.D.T.. OUTPUT THE FILE.E..
..I.0.7:.1,T$(T,I):.:DF..(DF).{.$.K.K.1:
.K..NX.6060......1,"\":.DF..1..SF.1.6220
,100:.  -1=EMPTY DISCFILE...8..".KEINE A
DRESSE IN DIESER KATEGORIE."...B. 1:.8,"
S0:"Y$:.8,"I0...L..8000:.100...X.. PRINT
 LABELS.4.B.SF..1:M.30:.1,04:LL.9999.^.L
..".EIN-SPALTIGE ETIKETTEN";:.8050:Y.I..
....".PROBEAUSDRUCK   ";:.8050:.I.7090..
...P$."----------ERSTE ZEILE---------":.
7900......I.0.1:P$."--------------------
----------":.7900:..(...P$."----------LE
TZTE ZEILE--------":.I.1.3:.7900:.:.7050
.M....7200:.7300:.100:. OUTPUT LABELS.D.
... PRINT PHONE BOOK...F.SF.0:M.36:Y.1:.
1,04:L.0...P..".ZEILEN PRO SEITE "L0"...
..";:.LL.C.Z..7200:.7300:.7950:.100.V. .
. GET CATEGORY...*..".SUCHEN NACH:":.I.0
.6:.,"."J(D(I.1),2)". "K$(I):..J.4..,".8
. ALLE":.".IHRE WAHL  ";:X$."12345678":.
8060:F.2.I.I.>..:. ALL ARE OR-ED WITH 12
8.|.... PRINT EITHER.....J.Y:.K.0.NX:T.T
%(K):.(F.F(T$(T,9))).0.7380.I...J.Y.J:.3
00:.SF.A$(J,4)."".W....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._
.T..K:.J.Y..I.0.4:P$.H(A$(0,I),M):.7900:
.:.7900.E.........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.&.J..
".. WEITER MIT BELIEBIGER TASTE";:.20:.:
.".":..1.R.X$."JN.<.|.."? ";.F....20:.I.
1.C(X$):.C$..J(X$,I,1)..:.8070....I.I.1
:.C$;:.C.13..:.......W$:.W$."".."..";:.8
080......" .";:.W$.R$..:..J....W$.G(20).
.W$;:.8070.T....8080.... X$."":. INPUT A
 STRING.... .C$:.C$.8210.... .25:.C.13..
.?.& .C.20.X$.""..C$;:X$.H(X$,C(X$).1):.
 DELETE.H.+ .(127.C).32.8220:. CURSOR CH
ARACTERS...0 .(K%(C).G)..C$;:X$.X$.C$:.C
(X$)..M.....: .8220...(#. INITIALIZE.Y.-
#L0.60:LP.72:NX..1:R$.G(13):H$."NAME LIS
T...2#.K%(255),A$(1,4),K$(6),F$(8).;.<#.
"..............................".39)".."
:.59468,14:. FORMAT.T.A#.53272,2.B(53272
):.".     .           ADRESSEN     ....C
#.61000: . COLOR CHANGE.T.F#."..K.ASSETT
E, .D.ISKETTE, ODER .B.EIDES";:X$."DKB":
.8060:CF.I.1...K#.I.32.90:.K%(I):.:.I.19
3.218:K%(I).1:.:. CHAR ARRAY.C.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.C.X#.I.0.6:.K$(I):.:.
 CATEGORIES....#V..((.(0).2000).170):.T$
(V,9),T%(V):.I.0.V:T%(I).I:.....%. INPUT
 FILE.0.&%.CF.2..".VON DATASETTE";:.8050
.B.0%.CF.2.(CF.3.I.0)..9700:.I.100:.1,1,
0,H$:.9600...N% 1:.1,08,2,H$:.8,X,X$:.X.
0.9600...X%.9700:.I.100.P.B%.".LEGEN SIE
 BITTE DIE DISKETTE EIN UND":.8000:.9550
.Z..%X$.""....%.#1,C$:.C$..R$.X$.X$.C$:.
9603.(..%.".ENTERED: ."X$:.:. DATELINE F
ROM FILE.^..%.I.0.V:.1,X$:.X$."\".ST.0.9
650:. READING COMPLETE....%.X$:T$(I,0).X
$:.J.1.9:.1,T$(I,J):.:T%(I).I:.....%NX.I
.1:.100:. COMPLETE.L..%.".NEUE DATEI";:.
8050:I.1.I:.....&. ACCEPTABLE CHARACTERS
 32-90.3 .&.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.N .&
.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&."NACHNAME ","VORNAME
   ","ANREDE (D.H. HERR, FRAU, FAM., FIR
MA)","TITEL.. T&."ORGANISATION","STRASSE
","PLZ/ORT","STAAT","TELEFONNR...!.'. SE
VEN CATEGORIES..!.'. "FAMILIE.,!$'. "FRE
UNDE.C!.'. "ARBEITSKOLLEGEN.Q!8'. "AERZT
E.F!B'. "INSTITUTIONEN.T!L'. "SCHULE..!V
'. "SONSTIGES..!`..X$:.8000:.100..!H.. C
OLOR CHANGE ROUTINE.W!I...C(X).B(X).1.16
.((B(X).15).15)..!J..".....F1.= FARBE DE
S RANDES".."K.."...F3.= HINTERGRUND-FARB
E".;"L.."...F5.= FARBE DER ZEICHEN".U"M.
."...RETURN.= WEITER".G"R..C$:.C$.61010.
|"\..C$:.C$."".61020.."F.C.F(C$):.C.135.
.646,.C(646):.61002.O"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