ADR

00000000: 01 08 3B 08 0A 00 89 39  30 30 30 3A 8F 20 28 43  |..;....9000:. (C|
00000010: 29 20 31 39 38 32 20 42  59 20 43 4F 4D 4D 4F 44  |) 1982 BY COMMOD|
00000020: 4F 52 45 20 42 55 53 49  4E 45 53 53 20 4D 41 43  |ORE BUSINESS MAC|
00000030: 48 49 4E 45 53 2C 20 49  4E 43 2E 00 4A 08 14 00  |HINES, INC..J...|
00000040: A1 43 24 3A 8B 43 24 89  32 30 00 67 08 19 00 A1  |.C$:.C$.20.g....|
00000050: 43 24 3A 8B 43 24 A7 99  22 20 9D 22 3B 3A 43 B2  |C$:.C$.." .";:C.|
00000060: C6 28 43 24 29 3A 8E 00  76 08 1B 00 99 22 A4 9D  |.(C$):..v...."..|
00000070: 22 3B 3A 89 32 35 00 7F  08 1E 00 89 31 30 30 00  |";:.25......100.|
00000080: 92 08 1F 00 9C 3A 99 22  93 22 3A 99 C7 28 31 34  |.....:.".":..(14|
00000090: 32 29 00 A9 08 21 00 97  35 33 32 38 30 2C 31 34  |2)...!..53280,14|
000000A0: 3A 97 35 33 32 38 31 2C  36 00 B6 08 23 00 99 22  |:.53281,6...#.."|
000000B0: 93 1F 4E 45 57 22 00 DD  08 25 00 99 22 11 11 4C  |..NEW"...%.."..L|
000000C0: 4F 41 44 22 AA C7 28 33  34 29 AA 22 4D 45 4E 55  |OAD"..(34)."MENU|
000000D0: 45 22 AA C7 28 33 34 29  AA 22 2C 38 22 00 0C 09  |E"..(34).",8"...|
000000E0: 27 00 99 22 11 11 11 11  11 11 11 11 11 11 05 20  |'.."........... |
000000F0: 20 20 20 20 20 20 20 20  20 20 20 20 42 49 54 54  |            BITT|
00000100: 45 20 57 41 52 54 45 4E  20 21 1F 22 00 17 09 28  |E WARTEN !."...(|
00000110: 00 97 31 39 38 2C 37 00  2F 09 2A 00 87 41 24 3A  |..198,7./.*..A$:|
00000120: 8B 41 24 B2 22 41 4E 46  41 4E 47 22 A7 35 30 00  |.A$."ANFANG".50.|
00000130: 37 09 2C 00 89 34 32 00  51 09 32 00 81 49 B2 31  |7.,..42.Q.2..I.1|
00000140: A4 37 3A 87 58 3A 97 36  33 30 AA 49 2C 58 3A 82  |.7:.X:.630.I,X:.|
00000150: 49 00 57 09 3C 00 80 00  6B 09 64 00 A0 31 3A 8F  |I.W.<...k.d..1:.|
00000160: 20 4D 45 4E 55 20 45 4E  54 52 59 00 95 09 6E 00  | MENU ENTRY...n.|
00000170: 99 22 93 20 20 20 20 20  20 12 20 C3 4F 4D 4D 4F  |.".      . .OMMO|
00000180: 44 4F 52 45 20 CE C1 CD  C5 A0 CD C1 C3 C8 C9 CE  |DORE ...........|
00000190: C5 20 92 11 11 00 BF 09  78 00 99 22 CD 45 4E 55  |. ......x..".ENU|
000001A0: 45 20 20 3A 20 20 12 C1  92 C5 49 4E 47 41 42 45  |E  :  ....INGABE|
000001B0: 20 CE 41 4D 45 4E 2F C1  44 52 45 53 53 45 4E 00  | .AMEN/.DRESSEN.|
000001C0: DF 09 82 00 99 2C 22 12  C3 92 D3 55 43 48 45 20  |.....,"....UCHE |
000001D0: CE 41 4D 45 4E 2F C1 44  44 52 45 53 53 45 4E 00  |.AMEN/.DDRESSEN.|
000001E0: 06 0A 8C 00 99 2C 22 12  D0 92 C4 52 55 43 4B 45  |.....,"....RUCKE|
000001F0: 20 CE 41 4D 45 4E 2F C1  44 44 52 45 53 53 45 4E  | .AMEN/.DDRESSEN|
00000200: 4C 49 53 54 45 4E 00 29  0A 96 00 99 2C 22 12 C2  |LISTEN.)....,"..|
00000210: 92 C2 49 4C 44 45 20 D7  CF D2 C4 20 CD C1 C3 C8  |..ILDE .... ....|
00000220: C9 CE C5 20 C6 49 4C 45  53 00 4C 0A A0 00 99 2C  |... .ILES.L....,|
00000230: 22 12 D4 92 D4 45 4C 45  50 48 4F 4E 56 45 52 5A  |"....ELEPHONVERZ|
00000240: 45 49 43 48 4E 49 53 44  52 55 43 4B 00 6A 0A AA  |EICHNISDRUCK.j..|
00000250: 00 99 2C 22 12 D3 92 D3  50 45 49 43 48 45 52 4E  |..,"....PEICHERN|
00000260: 20 44 45 52 20 C4 41 54  45 4E 00 81 0A B4 00 99  | DER .ATEN......|
00000270: 2C 22 12 D1 92 D0 52 4F  47 52 41 4D 4D 45 4E 44  |,"....ROGRAMMEND|
00000280: 45 00 A7 0A BE 00 99 22  11 D7 41 45 48 4C 45 20  |E......"..AEHLE |
00000290: 20 20 22 3B 3A 58 24 B2  22 51 41 43 50 42 53 54  |  ";:X$."QACPBST|
000002A0: 22 3A 8D 38 30 36 30 00  CC 0A FA 00 91 49 89 34  |":.8060......I.4|
000002B0: 30 30 30 2C 35 30 30 30  2C 37 30 30 30 2C 36 30  |000,5000,7000,60|
000002C0: 30 30 2C 33 30 30 30 2C  37 31 30 30 00 01 0B 04  |00,3000,7100....|
000002D0: 01 99 22 93 C5 4A 45 43  54 20 41 20 50 41 47 45  |.."..JECT A PAGE|
000002E0: 22 3B 3A 8D 38 30 35 30  3A 8B 49 B2 30 A7 9F 31  |";:.8050:.I.0..1|
000002F0: 2C 30 34 3A 4C B2 2E 31  3A 8D 37 39 35 30 3A A0  |,04:L..1:.7950:.|
00000300: 31 00 32 0B 0E 01 8B 4F  46 A7 99 22 11 D3 50 45  |1.2....OF.."..PE|
00000310: 49 43 48 45 52 4E 20 59  20 4F 44 45 52 20 4E 22  |ICHERN Y ODER N"|
00000320: 3B 3A 8D 38 30 35 30 3A  8B 49 B2 30 A7 8D 33 30  |;:.8050:.I.0..30|
00000330: 32 30 00 58 0B 18 01 A0  31 3A 99 22 93 11 D3 45  |20.X....1:."...E|
00000340: 52 56 55 53 20 21 22 3A  81 54 B2 31 A4 31 30 30  |RVUS !":.T.1.100|
00000350: 30 3A 82 54 3A 89 33 31  00 6E 0B 2C 01 8F 20 46  |0:.T:.31.n.,.. F|
00000360: 4F 52 4D 41 54 20 54 48  45 20 4C 49 4E 45 00 9E  |ORMAT THE LINE..|
00000370: 0B 36 01 58 24 B2 54 24  28 54 2C 30 29 3A 59 24  |.6.X$.T$(T,0):Y$|
00000380: B2 54 24 28 54 2C 31 29  3A 8B C3 28 59 24 29 B1  |.T$(T,1):..(Y$).|
00000390: 31 A7 58 24 B2 59 24 AA  22 20 22 AA 58 24 00 C3  |1.X$.Y$." ".X$..|
000003A0: 0B 40 01 59 24 B2 54 24  28 54 2C 32 29 3A 8B C3  |.@.Y$.T$(T,2):..|
000003B0: 28 59 24 29 B1 31 A7 58  24 B2 59 24 AA 22 20 22  |(Y$).1.X$.Y$." "|
000003C0: AA 58 24 00 E9 0B 4A 01  59 24 B2 54 24 28 54 2C  |.X$...J.Y$.T$(T,|
000003D0: 33 29 3A 8B C3 28 59 24  29 B1 31 A7 58 24 B2 58  |3):..(Y$).1.X$.X|
000003E0: 24 AA 22 2C 20 22 AA 59  24 00 2B 0C 5E 01 41 24  |$.", ".Y$.+.^.A$|
000003F0: 28 4A 2C 30 29 B2 58 24  3A 81 49 B2 31 A4 33 3A  |(J,0).X$:.I.1.3:|
00000400: 41 24 28 4A 2C 49 29 B2  22 22 3A 59 24 B2 54 24  |A$(J,I)."":Y$.T$|
00000410: 28 54 2C 49 AA 33 29 3A  8B C3 28 59 24 29 B1 31  |(T,I.3):..(Y$).1|
00000420: A7 41 24 28 4A 2C 49 29  B2 59 24 00 5C 0C 68 01  |.A$(J,I).Y$.\.h.|
00000430: 82 3A 8B C3 28 54 24 28  54 2C 37 29 29 B1 31 A7  |.:..(T$(T,7)).1.|
00000440: 41 24 28 4A 2C 33 29 B2  41 24 28 4A 2C 33 29 AA  |A$(J,3).A$(J,3).|
00000450: 22 2C 20 22 AA 54 24 28  54 2C 37 29 00 83 0C 72  |", ".T$(T,7)...r|
00000460: 01 41 24 28 4A 2C 34 29  B2 54 24 28 54 2C 38 29  |.A$(J,4).T$(T,8)|
00000470: 3A 58 B2 C6 28 54 24 28  54 2C 39 29 29 AF 31 32  |:X..(T$(T,9)).12|
00000480: 37 3A 8E 00 95 0C B8 0B  8F 20 4F 55 54 50 55 54  |7:....... OUTPUT|
00000490: 20 46 49 4C 45 00 A4 0C  C2 0B 8D 33 30 32 30 3A  | FILE......3020:|
000004A0: 89 31 30 30 00 C1 0C CC  0B 59 24 B2 48 24 3A 8D  |.100.....Y$.H$:.|
000004B0: 33 35 30 30 3A 8B C5 28  58 24 29 89 36 30 30 30  |3500:..(X$).6000|
000004C0: 30 00 CA 0C D6 0B 8B 58  A7 8E 00 DB 0C 1C 0C 4F  |0......X.......O|
000004D0: 46 B2 30 3A 98 31 2C 44  24 3A 99 00 F8 0C 4E 0C  |F.0:.1,D$:....N.|
000004E0: 81 49 B2 30 A4 4E 58 3A  54 B2 54 25 28 49 29 3A  |.I.0.NX:T.T%(I):|
000004F0: 99 54 24 28 54 2C 30 29  00 13 0D 58 0C 81 4A B2  |.T$(T,0)...X..J.|
00000500: 30 A4 39 3A 98 31 2C 54  24 28 54 2C 4A 29 3A 82  |0.9:.1,T$(T,J):.|
00000510: 4A 2C 49 00 2B 0D 76 0C  98 31 2C 22 5C 22 3A 8E  |J,I.+.v..1,"\":.|
00000520: 3A 8F 20 43 4F 4D 50 4C  45 54 45 00 48 0D AC 0D  |:. COMPLETE.H...|
00000530: 8F 20 4F 50 45 4E 20 54  48 45 20 46 49 4C 45 20  |. OPEN THE FILE |
00000540: 54 4F 20 57 52 49 54 45  00 79 0D C0 0D 44 46 B2  |TO WRITE.y...DF.|
00000550: 30 3A 58 B2 30 3A 58 24  B2 22 22 3A 8B 43 46 B1  |0:X.0:X$."":.CF.|
00000560: 32 A7 99 22 93 D4 4F 20  44 41 54 41 53 45 54 54  |2.."..O DATASETT|
00000570: 45 22 3B 3A 8D 38 30 35  30 00 9A 0D CA 0D 8B 43  |E";:.8050......C|
00000580: 46 B2 32 B0 28 43 46 B2  33 AF 49 B2 30 29 A7 9F  |F.2.(CF.3.I.0)..|
00000590: 31 2C 31 2C 31 2C 59 24  3A 8E 00 CA 0D DE 0D 44  |1,1,1,Y$:......D|
000005A0: 46 B2 AB 31 3A 4C 24 B2  22 30 3A 22 AA 59 24 3A  |F..1:L$."0:".Y$:|
000005B0: 9F 31 2C 30 38 2C 32 2C  4C 24 3A 84 38 2C 58 3A  |.1,08,2,L$:.8,X:|
000005C0: A0 31 3A 8B 58 89 33 35  38 30 00 FB 0D E8 0D 99  |.1:.X.3580......|
000005D0: 22 11 C6 49 4C 45 20 45  58 49 53 54 49 45 52 54  |"..ILE EXISTIERT|
000005E0: 2D 4F 56 45 52 57 52 49  54 45 22 3B 3A 8D 38 30  |-OVERWRITE";:.80|
000005F0: 35 30 3A 8B 49 A7 58 B2  31 3A 8E 00 0F 0E F2 0D  |50:.I.X.1:......|
00000600: 98 38 2C 22 53 22 4C 24  3A 98 38 2C 22 49 30 00  |.8,"S"L$:.8,"I0.|
00000610: 2F 0E FC 0D 9F 31 2C 30  38 2C 33 2C 4C 24 AA 22  |/....1,08,3,L$."|
00000620: 2C 53 2C 57 22 3A 84 38  2C 58 2C 58 24 3A 8E 00  |,S,W":.8,X,X$:..|
00000630: 45 0E A0 0F 8F 20 43 52  45 41 54 45 20 41 4E 20  |E.... CREATE AN |
00000640: 45 4E 54 52 59 00 7E 0E  AA 0F 8B 4E 58 B1 B2 56  |ENTRY.~....NX..V|
00000650: A7 99 22 11 12 20 D3 4F  52 52 59 20 2D 20 4E 4F  |..".. .ORRY - NO|
00000660: 20 50 4C 41 43 45 20 54  4F 20 50 55 54 20 49 54  | PLACE TO PUT IT|
00000670: 21 20 22 3A 8D 38 30 30  30 3A 89 31 30 30 00 A6  |! ":.8000:.100..|
00000680: 0E B4 0F 4E 58 B2 4E 58  AA 31 3A 4B B2 4E 58 3A  |...NX.NX.1:K.NX:|
00000690: 54 B2 54 25 28 4B 29 3A  54 24 28 54 2C 39 29 B2  |T.T%(K):T$(T,9).|
000006A0: C7 28 31 32 38 29 00 CB  0E 04 10 4F 46 B2 31 3A  |.(128).....OF.1:|
000006B0: 4D B2 33 39 3A 59 B2 30  3A 8F 20 47 45 54 20 4E  |M.39:Y.0:. GET N|
000006C0: 41 4D 45 2F 41 44 44 52  45 53 53 00 D8 0E 0E 10  |AME/ADDRESS.....|
000006D0: 4A B2 30 3A 8D 33 30 30  00 0A 0F 18 10 99 22 93  |J.0:.300......".|
000006E0: 20 22 3B 3A 81 49 B2 31  A4 33 30 3A 99 22 A4 22  | ";:.I.1.30:."."|
000006F0: 3B 3A 82 3A 81 49 B2 31  A4 35 3A 99 22 11 A5 9D  |;:.:.I.1.5:."...|
00000700: 22 3B 3A 82 3A 99 22 11  22 3B 00 35 0F 1A 10 81  |";:.:.".";.5....|
00000710: 49 B2 31 A4 33 30 3A 99  22 9D A3 9D 22 3B 3A 82  |I.1.30:."...";:.|
00000720: 3A 81 49 B2 31 A4 35 3A  99 22 91 9D A7 22 3B 3A  |:.I.1.5:."...";:|
00000730: 82 3A 99 22 13 00 58 0F  22 10 81 49 B2 30 A4 34  |.:."..X."..I.0.4|
00000740: 3A 99 22 1D 22 41 24 28  4A 2C 49 29 3A 82 3A 8B  |:."."A$(J,I):.:.|
00000750: 59 B1 38 89 34 32 30 30  00 7E 0F 36 10 99 22 13  |Y.8.4200.~.6..".|
00000760: 11 11 11 11 11 11 11 11  11 22 42 30 24 3A 99 22  |........."B0$:."|
00000770: 91 22 46 24 28 59 29 3A  99 42 30 24 22 91 00 94  |."F$(Y):.B0$"...|
00000780: 0F 3B 10 8D 38 32 30 30  3A 8B 43 B3 B1 31 33 89  |.;..8200:.C..13.|
00000790: 34 31 32 30 00 BE 0F 3D  10 99 3A 8B C9 28 58 24  |4120...=..:..(X$|
000007A0: 2C 31 29 B2 22 20 22 A7  58 24 B2 C8 28 58 24 2C  |,1)." ".X$..(X$,|
000007B0: C3 28 58 24 29 AB 31 29  3A 89 34 31 35 37 00 ED  |.(X$).1):.4157..|
000007C0: 0F 40 10 8B 58 24 B2 22  22 AF 54 24 28 54 2C 59  |.@..X$."".T$(T,Y|
000007D0: 29 B1 22 22 A7 59 B2 59  AA 31 3A 91 32 AA 28 59  |)."".Y.Y.1:.2.(Y|
000007E0: B3 39 29 89 34 31 35 30  2C 34 31 31 30 00 FF 0F  |.9).4150,4110...|
000007F0: 4A 10 8B C3 28 58 24 29  B1 31 89 34 31 39 30 00  |J...(X$).1.4190.|
00000800: 30 10 54 10 58 24 B2 22  2D 22 3A 8B 59 B2 30 A7  |0.T.X$."-":.Y.0.|
00000810: 99 22 11 C4 45 4C 45 54  45 22 3B 3A 8D 38 30 35  |."..ELETE";:.805|
00000820: 30 3A 91 49 AA 31 89 34  39 30 30 2C 34 31 31 30  |0:.I.1.4900,4110|
00000830: 00 4B 10 5E 10 54 24 28  54 2C 59 29 B2 58 24 3A  |.K.^.T$(T,Y).X$:|
00000840: 59 B2 59 AA 31 3A 89 34  31 31 30 00 70 10 68 10  |Y.Y.1:.4110.p.h.|
00000850: 58 24 B2 22 31 32 33 34  35 36 37 22 AA 52 24 3A  |X$."1234567".R$:|
00000860: 8F 20 47 45 54 20 43 41  54 45 47 4F 52 49 45 53  |. GET CATEGORIES|
00000870: 00 8B 10 72 10 99 22 13  11 11 11 11 11 11 11 11  |...r..".........|
00000880: C3 41 54 45 47 4F 52 49  45 53 3A 00 A6 10 7C 10  |.ATEGORIES:...|.|
00000890: 81 49 B2 30 A4 36 3A 99  2C 3A 8B 58 AF 32 AE 49  |.I.0.6:.,:.X.2.I|
000008A0: A7 99 22 12 22 3B 00 B9  10 86 10 99 49 AA 31 22  |..".";......I.1"|
000008B0: 92 22 4B 24 28 49 29 3A  82 00 EC 10 90 10 99 22  |."K$(I):......."|
000008C0: 11 D3 45 54 2F 52 45 53  45 54 20 57 45 4C 43 48  |..ET/RESET WELCH|
000008D0: 45 20 CB 41 54 45 47 4F  52 49 45 3F 20 9D 22 3B  |E .ATEGORIE? .";|
000008E0: 3A 8D 38 30 37 30 3A 49  B2 32 AE 49 00 0B 11 9A  |:.8070:I.2.I....|
000008F0: 10 58 B2 28 58 B0 49 29  AF A8 28 58 AF 49 29 3A  |.X.(X.I)..(X.I):|
00000900: 8B 58 B3 31 32 38 89 34  32 31 30 00 2C 11 CC 10  |.X.128.4210.,...|
00000910: 54 24 28 54 2C 39 29 B2  C7 28 58 29 3A 8F 20 43  |T$(T,9)..(X):. C|
00000920: 4F 4D 50 4C 45 54 45 20  45 44 49 54 00 57 11 D6  |OMPLETE EDIT.W..|
00000930: 10 99 22 91 91 22 42 30  24 3A 99 22 91 C1 4B 5A  |..".."B0$:."..KZ|
00000940: 45 50 54 49 45 52 54 22  3B 3A 8D 38 30 35 30 3A  |EPTIERT";:.8050:|
00000950: 8B 49 89 34 31 30 30 00  78 11 E0 10 8B 4E 58 B3  |.I.4100.x....NX.|
00000960: 31 89 31 30 30 3A 8F 20  4D 55 53 54 20 42 45 20  |1.100:. MUST BE |
00000970: 49 4E 20 4F 52 44 45 52  00 B2 11 EA 10 58 24 B2  |IN ORDER.....X$.|
00000980: 54 24 28 54 2C 30 29 3A  8B 4B B3 4E 58 A7 81 49  |T$(T,0):.K.NX..I|
00000990: B2 4B A4 4E 58 AB 31 3A  54 25 28 49 29 B2 54 25  |.K.NX.1:T%(I).T%|
000009A0: 28 49 AA 31 29 3A 82 3A  8F 20 52 45 4D 4F 56 45  |(I.1):.:. REMOVE|
000009B0: 20 54 00 E4 11 F4 10 81  49 B2 30 A4 4E 58 AB 31  | T......I.0.NX.1|
000009C0: 3A 8B 54 24 28 54 25 28  49 29 2C 30 29 B3 58 24  |:.T$(T%(I),0).X$|
000009D0: A7 82 3A 8F 20 4C 4F 43  41 54 45 20 54 27 53 20  |..:. LOCATE T'S |
000009E0: 53 4C 4F 54 00 21 12 FE  10 8B 49 B3 4E 58 A7 4A  |SLOT.!....I.NX.J|
000009F0: B2 49 AA 31 3A 81 49 B2  4E 58 A4 4A A9 AB 31 3A  |.I.1:.I.NX.J..1:|
00000A00: 54 25 28 49 29 B2 54 25  28 49 AB 31 29 3A 82 3A  |T%(I).T%(I.1):.:|
00000A10: 8F 20 4D 41 4B 45 20 52  4F 4F 4D 20 46 4F 52 20  |. MAKE ROOM FOR |
00000A20: 54 00 43 12 08 11 54 25  28 49 29 B2 54 3A 89 31  |T.C...T%(I).T:.1|
00000A30: 30 30 3A 8F 20 49 4E 53  45 52 54 20 54 2C 20 45  |00:. INSERT T, E|
00000A40: 58 49 54 00 5B 12 24 13  8F 20 43 4C 45 41 4E 20  |XIT.[.$.. CLEAN |
00000A50: 55 50 20 44 45 4C 45 54  49 4F 4E 00 73 12 2E 13  |UP DELETION.s...|
00000A60: 81 49 B2 30 A4 39 3A 54  24 28 54 2C 49 29 B2 22  |.I.0.9:T$(T,I)."|
00000A70: 22 3A 82 00 A4 12 38 13  4E 58 B2 4E 58 AB 31 3A  |":....8.NX.NX.1:|
00000A80: 81 49 B2 4B A4 4E 58 3A  54 25 28 49 29 B2 54 25  |.I.K.NX:T%(I).T%|
00000A90: 28 49 AA 31 29 3A 82 3A  54 25 28 49 29 B2 54 3A  |(I.1):.:T%(I).T:|
00000AA0: 89 31 30 30 00 BF 12 88  13 8F 20 53 45 4C 45 43  |.100...... SELEC|
00000AB0: 54 2F 45 44 49 54 20 41  4E 20 45 4E 54 52 59 00  |T/EDIT AN ENTRY.|
00000AC0: DE 12 92 13 99 22 93 22  3A 99 22 C6 49 4E 44 20  |.....".":.".IND |
00000AD0: 42 59 3A 20 20 12 CC 92  DA 55 4E 41 4D 45 00 F0  |BY:  ....UNAME..|
00000AE0: 12 9C 13 99 2C 22 12 C6  92 D6 4F 52 4E 41 4D 45  |....,"....ORNAME|
00000AF0: 00 0D 13 A6 13 99 2C 22  12 C3 92 D3 54 52 41 53  |......,"....TRAS|
00000B00: 53 45 20 55 4E 44 20 CE  55 4D 4D 45 52 00 23 13  |SE UND .UMMER.#.|
00000B10: B0 13 99 2C 22 12 D3 92  D0 CC DA 20 55 4E 44 20  |...,"...... UND |
00000B20: CF 52 54 00 35 13 BA 13  99 2C 22 12 D4 92 D4 45  |.RT.5....,"....E|
00000B30: 4C 45 46 4F 4E 00 61 13  CE 13 99 22 11 D7 48 49  |LEFON.a...."..HI|
00000B40: 43 48 20 4F 4E 45 22 3B  3A 58 24 B2 22 4C 46 4C  |CH ONE";:X$."LFL|
00000B50: 4C 4C 4C 43 53 54 22 3A  8D 38 30 36 30 3A 46 B2  |LLLCST":.8060:F.|
00000B60: 49 00 8D 13 D8 13 4D B2  34 30 3A 99 22 11 CB 45  |I.....M.40:."..E|
00000B70: 59 57 4F 52 44 3A 20 22  3B 3A 8D 38 32 30 30 3A  |YWORD: ";:.8200:|
00000B80: 5A 24 B2 58 24 3A 5A B2  C3 28 5A 24 29 00 A8 13  |Z$.X$:Z..(Z$)...|
00000B90: EC 13 4B B2 30 3A 8F 20  53 45 41 52 43 48 20 46  |..K.0:. SEARCH F|
00000BA0: 4F 52 20 46 49 45 4C 44  00 C3 13 F6 13 54 B2 54  |OR FIELD.....T.T|
00000BB0: 25 28 4B 29 3A 58 24 B2  54 24 28 54 2C 46 29 3A  |%(K):X$.T$(T,F):|
00000BC0: 59 B2 30 00 F5 13 00 14  81 49 B2 31 A4 C3 28 58  |Y.0......I.1..(X|
00000BD0: 24 29 AB 5A AA 31 3A 59  B2 28 CA 28 58 24 2C 49  |$).Z.1:Y.(.(X$,I|
00000BE0: 2C 5A 29 B2 5A 24 29 B0  59 3A 82 3A 8B 59 B2 30  |,Z).Z$).Y:.:.Y.0|
00000BF0: 89 35 31 35 30 00 19 14  0A 14 4A B2 30 3A 8D 33  |.5150.....J.0:.3|
00000C00: 30 30 3A 99 22 93 22 3A  81 49 B2 30 A4 34 3A 99  |00:.".":.I.0.4:.|
00000C10: 41 24 28 30 2C 49 29 3A  82 00 43 14 14 14 99 22  |A$(0,I):..C...."|
00000C20: 11 CE 41 45 43 48 53 54  45 52 20 59 20 4F 44 45  |..AECHSTER Y ODE|
00000C30: 52 20 4E 22 3B 3A 8D 38  30 35 30 3A 8B 49 89 35  |R N";:.8050:.I.5|
00000C40: 31 38 30 00 59 14 1E 14  4B B2 4B AA 31 3A 8B 4B  |180.Y...K.K.1:.K|
00000C50: B3 B2 4E 58 89 35 31 31  30 00 82 14 28 14 99 3A  |..NX.5110...(..:|
00000C60: 99 22 11 C1 4C 4C 20 45  4E 54 52 49 45 53 20 43  |."..LL ENTRIES C|
00000C70: 48 45 43 4B 45 44 22 3A  8D 38 30 30 30 3A 89 31  |HECKED":.8000:.1|
00000C80: 30 30 00 A3 14 3C 14 99  22 11 C5 44 49 54 22 3B  |00...<.."..DIT";|
00000C90: 3A 8D 38 30 35 30 3A 91  49 89 31 30 30 3A 89 34  |:.8050:.I.100:.4|
00000CA0: 31 30 30 00 BF 14 70 17  8F 20 46 49 4C 45 20 46  |100...p.. FILE F|
00000CB0: 4F 52 20 57 4F 52 44 20  4D 41 43 48 49 4E 45 00  |OR WORD MACHINE.|
00000CC0: F4 14 7A 17 99 22 93 CE  41 4D 45 20 46 55 45 52  |..z.."..AME FUER|
00000CD0: 20 44 41 53 20 46 49 4C  45 3A 20 22 3B 3A 4D B2  | DAS FILE: ";:M.|
00000CE0: 31 36 3A 8D 38 32 30 30  3A 8B 58 24 B2 22 22 89  |16:.8200:.X$."".|
00000CF0: 36 30 31 30 00 11 15 84  17 59 24 B2 58 24 3A 8D  |6010.....Y$.X$:.|
00000D00: 33 35 30 30 3A 8B C5 28  58 24 29 89 36 30 30 30  |3500:..(X$).6000|
00000D10: 30 00 1C 15 8E 17 8B 58  89 31 30 30 00 52 15 A2  |0......X.100.R..|
00000D20: 17 8D 37 32 30 30 3A 99  22 11 D3 45 4C 45 43 54  |..7200:."..ELECT|
00000D30: 20 49 4E 44 49 56 49 44  55 41 4C 4C 59 22 3B 3A  | INDIVIDUALLY";:|
00000D40: 8D 38 30 35 30 3A 53 46  B2 49 3A 4A B2 30 3A 4B  |.8050:SF.I:J.0:K|
00000D50: B2 30 00 75 15 AC 17 54  B2 54 25 28 4B 29 3A 8B  |.0.u...T.T%(K):.|
00000D60: 28 46 AF C6 28 54 24 28  54 2C 39 29 29 29 B2 30  |(F..(T$(T,9))).0|
00000D70: 89 36 31 38 30 00 8C 15  B6 17 8B 53 46 A7 99 54  |.6180......SF..T|
00000D80: 24 28 54 2C 30 29 3A 89  36 31 30 30 00 AC 15 C0  |$(T,0):.6100....|
00000D90: 17 8D 33 30 30 3A 99 22  93 22 3A 81 49 B2 30 A4  |..300:.".":.I.0.|
00000DA0: 33 3A 99 41 24 28 4A 2C  49 29 3A 82 00 D4 15 CA  |3:.A$(J,I):.....|
00000DB0: 17 99 22 11 C9 4E 43 4C  55 44 45 20 54 48 49 53  |.."..NCLUDE THIS|
00000DC0: 20 4F 4E 45 22 3B 3A 8D  38 30 35 30 3A 8B 49 89  | ONE";:.8050:.I.|
00000DD0: 36 31 38 30 00 EA 15 D4  17 8F 20 4F 55 54 50 55  |6180...... OUTPU|
00000DE0: 54 20 54 48 45 20 46 49  4C 45 00 0B 16 DE 17 81  |T THE FILE......|
00000DF0: 49 B2 30 A4 37 3A 98 31  2C 54 24 28 54 2C 49 29  |I.0.7:.1,T$(T,I)|
00000E00: 3A 82 3A 44 46 B2 B6 28  44 46 29 00 21 16 24 18  |:.:DF..(DF).!.$.|
00000E10: 4B B2 4B AA 31 3A 8B 4B  B3 B2 4E 58 89 36 30 36  |K.K.1:.K..NX.606|
00000E20: 30 00 57 16 2E 18 98 31  2C 22 5C 22 3A 8B 44 46  |0.W....1,"\":.DF|
00000E30: B1 AB 31 A7 91 53 46 AA  31 89 36 32 32 30 2C 31  |..1..SF.1.6220,1|
00000E40: 30 30 3A 8F 20 20 2D 31  3D 45 4D 50 54 59 20 44  |00:.  -1=EMPTY D|
00000E50: 49 53 43 46 49 4C 45 00  87 16 38 18 99 22 11 D4  |ISCFILE...8.."..|
00000E60: 48 45 20 46 49 4C 45 20  57 41 53 20 45 4D 50 54  |HE FILE WAS EMPT|
00000E70: 59 3B 20 49 54 20 49 53  20 42 45 49 4E 47 20 43  |Y; IT IS BEING C|
00000E80: 4C 45 41 52 45 44 2E 00  A0 16 42 18 A0 31 3A 98  |LEARED....B..1:.|
00000E90: 38 2C 22 53 30 3A 22 59  24 3A 98 38 2C 22 49 30  |8,"S0:"Y$:.8,"I0|
00000EA0: 00 AF 16 4C 18 8D 38 30  30 30 3A 89 31 30 30 00  |...L..8000:.100.|
00000EB0: C2 16 58 1B 8F 20 50 52  49 4E 54 20 4C 41 42 45  |..X.. PRINT LABE|
00000EC0: 4C 53 00 ED 16 62 1B 53  46 B2 AB 31 3A 4D B2 33  |LS...b.SF..1:M.3|
00000ED0: 30 3A 9F 37 2C 34 2C 37  3A 98 37 3A A0 37 3A 9F  |0:.7,4,7:.7:.7:.|
00000EE0: 31 2C 34 2C 30 3A 4C 4C  B2 39 39 39 39 00 15 17  |1,4,0:LL.9999...|
00000EF0: 6C 1B 99 22 11 D3 49 4E  47 4C 45 20 C3 4F 4C 55  |l.."..INGLE .OLU|
00000F00: 4D 4E 20 CC 41 42 45 4C  53 22 3B 3A 8D 38 30 35  |MN .ABELS";:.805|
00000F10: 30 3A 59 B2 49 00 3D 17  8A 1B 99 22 11 C1 4C 49  |0:Y.I.=...."..LI|
00000F20: 47 4E 20 54 48 45 20 4C  41 42 45 4C 53 22 3B 3A  |GN THE LABELS";:|
00000F30: 8D 38 30 35 30 3A 8B 49  89 37 30 39 30 00 6B 17  |.8050:.I.7090.k.|
00000F40: 94 1B 50 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..P$."----------|
00000F50: 46 49 52 53 54 20 4C 49  4E 45 2D 2D 2D 2D 2D 2D  |FIRST LINE------|
00000F60: 2D 2D 2D 2D 22 3A 8D 37  39 30 30 00 A2 17 9E 1B  |----":.7900.....|
00000F70: 81 49 B2 30 A4 31 3A 50  24 B2 22 2D 2D 2D 2D 2D  |.I.0.1:P$."-----|
00000F80: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000F90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 22 3A 8D 37 39 30 30  |---------":.7900|
00000FA0: 3A 82 00 DF 17 A8 1B 50  24 B2 22 2D 2D 2D 2D 2D  |:......P$."-----|
00000FB0: 2D 2D 2D 2D 2D 46 49 4E  41 4C 20 4C 49 4E 45 2D  |-----FINAL LINE-|
00000FC0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 22 3A 81 49 B2 31 A4  |---------":.I.1.|
00000FD0: 33 3A 8D 37 39 30 30 3A  82 3A 89 37 30 35 30 00  |3:.7900:.:.7050.|
00000FE0: 04 18 B2 1B 8D 37 32 30  30 3A 8D 37 33 30 30 3A  |.....7200:.7300:|
00000FF0: 89 31 30 30 3A 8F 20 4F  55 54 50 55 54 20 4C 41  |.100:. OUTPUT LA|
00001000: 42 45 4C 53 00 1B 18 BC  1B 8F 20 50 52 49 4E 54  |BELS...... PRINT|
00001010: 20 50 48 4F 4E 45 20 42  4F 4F 4B 00 45 18 C6 1B  | PHONE BOOK.E...|
00001020: 53 46 B2 30 3A 4D B2 33  36 3A 59 B2 31 3A 9F 37  |SF.0:M.36:Y.1:.7|
00001030: 2C 34 2C 37 3A 98 37 3A  A0 37 3A 9F 31 2C 34 2C  |,4,7:.7:.7:.1,4,|
00001040: 30 3A 4C B2 30 00 6B 18  D0 1B 99 22 11 CC 49 4E  |0:L.0.k...."..IN|
00001050: 45 53 20 50 45 52 20 50  41 47 45 20 22 4C 30 22  |ES PER PAGE "L0"|
00001060: 9D 9D 9D 9D 9D 22 3B 3A  85 4C 4C 00 86 18 DA 1B  |.....";:.LL.....|
00001070: 8D 37 32 30 30 3A 8D 37  33 30 30 3A 8D 37 39 35  |.7200:.7300:.795|
00001080: 30 3A 89 31 30 30 00 99  18 20 1C 8F 20 47 45 54  |0:.100... .. GET|
00001090: 20 43 41 54 45 47 4F 52  59 00 CF 18 2A 1C 99 22  | CATEGORY...*.."|
000010A0: 93 D3 45 4C 45 43 54 20  42 59 3A 22 3A 81 49 B2  |..ELECT BY:":.I.|
000010B0: 30 A4 36 3A 99 2C 22 12  22 CA 28 C4 28 49 AA 31  |0.6:.,".".(.(I.1|
000010C0: 29 2C 32 29 22 92 20 22  4B 24 28 49 29 3A 82 00  |),2)". "K$(I):..|
000010D0: 0A 19 34 1C 99 2C 22 12  38 92 20 C1 4C 4C 22 3A  |..4..,".8. .LL":|
000010E0: 99 22 11 D9 4F 55 52 20  43 48 4F 49 43 45 22 3B  |."..OUR CHOICE";|
000010F0: 3A 58 24 B2 22 31 32 33  34 35 36 37 38 22 3A 8D  |:X$."12345678":.|
00001100: 38 30 36 30 3A 46 B2 32  AE 49 00 29 19 3E 1C 8E  |8060:F.2.I.).>..|
00001110: 3A 8F 20 41 4C 4C 20 41  52 45 20 4F 52 2D 45 44  |:. ALL ARE OR-ED|
00001120: 20 57 49 54 48 20 31 32  38 00 3C 19 84 1C 8F 20  | WITH 128.<.... |
00001130: 50 52 49 4E 54 20 45 49  54 48 45 52 00 6B 19 8E  |PRINT EITHER.k..|
00001140: 1C 4A B2 59 3A 81 4B B2  30 A4 4E 58 3A 54 B2 54  |.J.Y:.K.0.NX:T.T|
00001150: 25 28 4B 29 3A 8B 28 46  AF C6 28 54 24 28 54 2C  |%(K):.(F..(T$(T,|
00001160: 39 29 29 29 B2 30 89 37  33 38 30 00 89 19 98 1C  |9))).0.7380.....|
00001170: 4A B2 59 AB 4A 3A 8D 33  30 30 3A 8B 53 46 A7 41  |J.Y.J:.300:.SF.A|
00001180: 24 28 4A 2C 34 29 B2 22  22 00 97 19 A2 1C 8B 4A  |$(J,4).""......J|
00001190: B3 59 89 37 33 38 30 00  B2 19 B6 1C 81 49 B2 30  |.Y.7380......I.0|
000011A0: A4 34 3A 50 24 B2 C8 28  41 24 28 30 2C 49 29 2C  |.4:P$..(A$(0,I),|
000011B0: 4D 29 00 DC 19 C0 1C 8B  4A A7 50 24 B2 50 24 AA  |M)......J.P$.P$.|
000011C0: C8 28 42 24 2C 4D AA 36  AB C3 28 50 24 29 29 AA  |.(B$,M.6..(P$)).|
000011D0: C8 28 41 24 28 31 2C 49  29 2C 4D 29 00 EE 19 CA  |.(A$(1,I),M)....|
000011E0: 1C 8D 37 39 30 30 3A 82  3A 8D 37 39 30 30 00 1F  |..7900:.:.7900..|
000011F0: 1A D4 1C 82 4B 3A 8B 4A  B3 59 A7 81 49 B2 30 A4  |....K:.J.Y..I.0.|
00001200: 34 3A 50 24 B2 C8 28 41  24 28 30 2C 49 29 2C 4D  |4:P$..(A$(0,I),M|
00001210: 29 3A 8D 37 39 30 30 3A  82 3A 8D 37 39 30 30 00  |):.7900:.:.7900.|
00001220: 25 1A DE 1C 8E 00 4E 1A  DC 1E 4C B2 4C AA 31 3A  |%.....N...L.L.1:|
00001230: 98 31 2C 50 24 3A 50 24  B2 22 22 3A 8B 4C B3 4C  |.1,P$:P$."":.L.L|
00001240: 4C A7 8E 3A 8F 20 4C 49  4E 45 20 4F 55 54 00 6C  |L..:. LINE OUT.l|
00001250: 1A E6 1E 4C B2 4C AA 31  3A 98 31 2C 50 24 3A 50  |...L.L.1:.1,P$:P|
00001260: 24 B2 22 22 3A 8B 4C B3  4C 4C A7 8E 00 9A 1A 0E  |$."":.L.LL......|
00001270: 1F 8B 4C A7 81 4C B2 4C  A4 4C 50 AB 31 3A 98 31  |..L..L.L.LP.1:.1|
00001280: 3A 82 3A 4C B2 30 3A 8E  3A 8F 20 46 49 4E 49 53  |:.:L.0:.:. FINIS|
00001290: 48 20 54 48 45 20 50 41  47 45 00 AA 1A 40 1F 8F  |H THE PAGE...@..|
000012A0: 20 55 54 49 4C 49 54 49  45 53 00 D6 1A 4A 1F 99  | UTILITIES...J..|
000012B0: 22 11 12 20 C4 52 55 45  43 4B 45 20 45 49 4E 45  |".. .RUECKE EINE|
000012C0: 20 D4 41 53 54 45 20 22  3B 3A 8D 32 30 3A 99 3A  | .ASTE ";:.20:.:|
000012D0: 99 22 93 22 3A 8E 00 E1  1A 72 1F 58 24 B2 22 59  |.".":....r.X$."Y|
000012E0: 4E 00 EC 1A 7C 1F 99 22  3F 20 22 3B 00 16 1B 86  |N...|.."? ";....|
000012F0: 1F 8D 32 30 3A 81 49 B2  31 A4 C3 28 58 24 29 3A  |..20:.I.1..(X$):|
00001300: 8B 43 24 B3 B1 CA 28 58  24 2C 49 2C 31 29 A7 82  |.C$...(X$,I,1)..|
00001310: 3A 89 38 30 37 30 00 2F  1B 8B 1F 49 B2 49 AB 31  |:.8070./...I.I.1|
00001320: 3A 99 43 24 3B 3A 8B 43  B2 31 33 A7 99 3A 8E 00  |:.C$;:.C.13..:..|
00001330: 4B 1B 90 1F A1 57 24 3A  8B 57 24 B2 22 22 A7 99  |K....W$:.W$.""..|
00001340: 22 A4 9D 22 3B 3A 89 38  30 38 30 00 61 1B 95 1F  |"..";:.8080.a...|
00001350: 99 22 20 9D 22 3B 3A 8B  57 24 B2 52 24 A7 99 3A  |." .";:.W$.R$..:|
00001360: 8E 00 7A 1B 9A 1F 8B 57  24 B2 C7 28 32 30 29 A7  |..z....W$..(20).|
00001370: 99 57 24 3B 3A 89 38 30  37 30 00 84 1B 9F 1F 89  |.W$;:.8070......|
00001380: 38 30 38 30 00 9F 1B 08  20 58 24 B2 22 22 3A 8F  |8080.... X$."":.|
00001390: 20 49 4E 50 55 54 20 41  20 53 54 52 49 4E 47 00  | INPUT A STRING.|
000013A0: B0 1B 12 20 A1 43 24 3A  8B 43 24 89 38 32 31 30  |... .C$:.C$.8210|
000013B0: 00 C0 1B 1C 20 8D 32 35  3A 8B 43 B2 31 33 A7 8E  |.... .25:.C.13..|
000013C0: 00 EF 1B 26 20 8B 43 B2  32 30 AF 58 24 B1 22 22  |...& .C.20.X$.""|
000013D0: A7 99 43 24 3B 3A 58 24  B2 C8 28 58 24 2C C3 28  |..C$;:X$..(X$,.(|
000013E0: 58 24 29 AB 31 29 3A 8F  20 44 45 4C 45 54 45 00  |X$).1):. DELETE.|
000013F0: 18 1C 2B 20 8B 28 31 32  37 AF 43 29 B3 33 32 89  |..+ .(127.C).32.|
00001400: 38 32 32 30 3A 8F 20 43  55 52 53 4F 52 20 43 48  |8220:. CURSOR CH|
00001410: 41 52 41 43 54 45 52 53  00 41 1C 30 20 8B 28 4B  |ARACTERS.A.0 .(K|
00001420: 25 28 43 29 B0 47 29 A7  99 43 24 3B 3A 58 24 B2  |%(C).G)..C$;:X$.|
00001430: 58 24 AA 43 24 3A 8B C3  28 58 24 29 B1 B2 4D A7  |X$.C$:..(X$)..M.|
00001440: 8E 00 4B 1C 3A 20 89 38  32 32 30 00 5C 1C 28 23  |..K.: .8220.\.(#|
00001450: 8F 20 49 4E 49 54 49 41  4C 49 5A 45 00 89 1C 2D  |. INITIALIZE...-|
00001460: 23 4C 30 B2 36 30 3A 4C  50 B2 36 36 3A 4E 58 B2  |#L0.60:LP.66:NX.|
00001470: AB 31 3A 52 24 B2 C7 28  31 33 29 3A 48 24 B2 22  |.1:R$..(13):H$."|
00001480: CE 41 4D 45 20 CC 49 53  54 00 AA 1C 32 23 86 4B  |.AME .IST...2#.K|
00001490: 25 28 32 35 35 29 2C 41  24 28 31 2C 34 29 2C 4B  |%(255),A$(1,4),K|
000014A0: 24 28 36 29 2C 46 24 28  38 29 00 EB 1C 3C 23 99  |$(6),F$(8)...<#.|
000014B0: 22 93 8E 13 13 0F 11 11  11 11 11 11 11 11 11 11  |"...............|
000014C0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 22  |..............."|
000014D0: A6 33 39 29 22 8F 05 22  3A 97 35 39 34 36 38 2C  |.39)"..":.59468,|
000014E0: 31 34 3A 8F 20 46 4F 52  4D 41 54 00 24 1D 41 23  |14:. FORMAT.$.A#|
000014F0: 97 35 33 32 37 32 2C 32  B0 C2 28 35 33 32 37 32  |.53272,2..(53272|
00001500: 29 3A 99 22 93 20 20 20  20 20 12 20 C3 4F 4D 4D  |):.".     . .OMM|
00001510: 4F 44 4F 52 45 20 CE C1  CD C5 A0 CD C1 C3 C8 C9  |ODORE ..........|
00001520: CE C5 20 92 00 3F 1D 43  23 8D 36 31 30 30 30 3A  |.. ..?.C#.61000:|
00001530: 20 8F 20 43 4F 4C 4F 52  20 43 48 41 4E 47 45 00  | . COLOR CHANGE.|
00001540: 7B 1D 46 23 99 22 11 12  D4 92 41 50 45 2C 20 12  |{.F#."....APE, .|
00001550: C4 92 49 53 43 2C 4F 44  45 52 20 20 12 C2 92 45  |..ISC,ODER  ...E|
00001560: 49 44 45 22 3B 3A 58 24  B2 22 44 54 42 22 3A 8D  |IDE";:X$."DTB":.|
00001570: 38 30 36 30 3A 43 46 B2  49 AA 31 00 B3 1D 4B 23  |8060:CF.I.1...K#|
00001580: 81 49 B2 33 32 A4 39 30  3A 87 4B 25 28 49 29 3A  |.I.32.90:.K%(I):|
00001590: 82 3A 81 49 B2 31 39 33  A4 32 31 38 3A 4B 25 28  |.:.I.193.218:K%(|
000015A0: 49 29 B2 31 3A 82 3A 8F  20 43 48 41 52 20 41 52  |I).1:.:. CHAR AR|
000015B0: 52 41 59 00 EA 1D 50 23  42 24 B2 22 20 20 20 20  |RAY...P#B$."    |
000015C0: 20 22 3A 81 49 B2 31 A4  35 3A 42 24 B2 42 24 AA  | ":.I.1.5:B$.B$.|
000015D0: 42 24 3A 82 3A 42 30 24  B2 C8 28 42 24 2C 33 39  |B$:.:B0$..(B$,39|
000015E0: 29 3A 9F 38 2C 30 38 2C  31 35 00 29 1E 55 23 99  |):.8,08,15.).U#.|
000015F0: 22 11 C8 45 55 54 49 47  45 53 20 C4 41 54 55 4D  |"..EUTIGES .ATUM|
00001600: 3A 20 22 3A 4D B2 36 30  3A 47 B2 31 3A 8D 38 32  |: ":M.60:G.1:.82|
00001610: 30 30 3A 47 B2 30 3A 44  24 B2 58 24 3A 8B 44 24  |00:G.0:D$.X$:.D$|
00001620: B2 22 22 A7 44 24 B2 22  2D 00 4D 1E 6E 23 99 3A  |."".D$."-.M.n#.:|
00001630: 81 49 B2 30 A4 38 3A 87  46 24 28 49 29 3A 82 3A  |.I.0.8:.F$(I):.:|
00001640: 8F 20 46 49 45 4C 44 20  4E 41 4D 45 53 00 6E 1E  |. FIELD NAMES.n.|
00001650: 78 23 81 49 B2 30 A4 36  3A 87 4B 24 28 49 29 3A  |x#.I.0.6:.K$(I):|
00001660: 82 3A 8F 20 43 41 54 45  47 4F 52 49 45 53 00 A7  |.:. CATEGORIES..|
00001670: 1E 82 23 56 B2 B5 28 28  B8 28 30 29 AB 32 30 30  |..#V..((.(0).200|
00001680: 30 29 AD 31 37 30 29 3A  86 54 24 28 56 2C 39 29  |0).170):.T$(V,9)|
00001690: 2C 54 25 28 56 29 3A 81  49 B2 30 A4 56 3A 54 25  |,T%(V):.I.0.V:T%|
000016A0: 28 49 29 B2 49 3A 82 00  B8 1E 1C 25 8F 20 49 4E  |(I).I:.....%. IN|
000016B0: 50 55 54 20 46 49 4C 45  00 D7 1E 26 25 8B 43 46  |PUT FILE...&%.CF|
000016C0: B1 32 A7 99 22 11 D6 4F  4D 20 D4 41 50 45 3F 22  |.2.."..OM .APE?"|
000016D0: 3B 3A 8D 38 30 35 30 00  09 1F 30 25 8B 43 46 B2  |;:.8050...0%.CF.|
000016E0: 32 B0 28 43 46 B2 33 AF  49 B2 30 29 A7 8D 39 37  |2.(CF.3.I.0)..97|
000016F0: 30 30 3A 91 49 89 31 30  30 3A 9F 31 2C 31 2C 30  |00:.I.100:.1,1,0|
00001700: 2C 48 24 3A 89 39 36 30  30 00 2D 1F 4E 25 A0 31  |,H$:.9600.-.N%.1|
00001710: 3A 9F 31 2C 30 38 2C 32  2C 48 24 3A 84 38 2C 58  |:.1,08,2,H$:.8,X|
00001720: 2C 58 24 3A 8B 58 B2 30  89 39 36 30 30 00 3E 1F  |,X$:.X.0.9600.>.|
00001730: 58 25 8D 39 37 30 30 3A  8B 49 89 31 30 30 00 6F  |X%.9700:.I.100.o|
00001740: 1F 62 25 99 22 11 C2 49  54 54 45 20 4C 45 47 45  |.b%."..ITTE LEGE|
00001750: 20 45 49 4E 45 20 C4 49  53 4B 45 54 54 45 20 45  | EINE .ISKETTE E|
00001760: 49 4E 22 3A 8D 38 30 30  30 3A 89 39 35 35 30 00  |IN":.8000:.9550.|
00001770: 79 1F 80 25 58 24 B2 22  22 00 9B 1F 83 25 A1 23  |y..%X$.""....%.#|
00001780: 31 2C 43 24 3A 8B 43 24  B3 B1 52 24 A7 58 24 B2  |1,C$:.C$..R$.X$.|
00001790: 58 24 AA 43 24 3A 89 39  36 30 33 00 C7 1F 85 25  |X$.C$:.9603....%|
000017A0: 99 22 93 C5 4E 54 45 52  45 44 3A 20 12 22 58 24  |."..NTERED: ."X$|
000017B0: 3A 99 3A 8F 20 44 41 54  45 4C 49 4E 45 20 46 52  |:.:. DATELINE FR|
000017C0: 4F 4D 20 46 49 4C 45 00  FD 1F 8A 25 81 49 B2 30  |OM FILE....%.I.0|
000017D0: A4 56 3A 84 31 2C 58 24  3A 8B 58 24 B2 22 5C 22  |.V:.1,X$:.X$."\"|
000017E0: B0 53 54 B1 30 89 39 36  35 30 3A 8F 20 52 45 41  |.ST.0.9650:. REA|
000017F0: 44 49 4E 47 20 43 4F 4D  50 4C 45 54 45 00 2E 20  |DING COMPLETE.. |
00001800: 94 25 99 58 24 3A 54 24  28 49 2C 30 29 B2 58 24  |.%.X$:T$(I,0).X$|
00001810: 3A 81 4A B2 31 A4 39 3A  84 31 2C 54 24 28 49 2C  |:.J.1.9:.1,T$(I,|
00001820: 4A 29 3A 82 3A 54 25 28  49 29 B2 49 3A 82 00 49  |J):.:T%(I).I:..I|
00001830: 20 B2 25 4E 58 B2 49 AB  31 3A 89 31 30 30 3A 8F  | .%NX.I.1:.100:.|
00001840: 20 43 4F 4D 50 4C 45 54  45 00 69 20 E4 25 99 22  | COMPLETE.i .%."|
00001850: 11 CE 45 57 20 46 49 4C  45 22 3B 3A 8D 38 30 35  |..EW FILE";:.805|
00001860: 30 3A 49 B2 31 AB 49 3A  8E 00 8B 20 AC 26 8F 20  |0:I.1.I:... .&. |
00001870: 41 43 43 45 50 54 41 42  4C 45 20 43 48 41 52 41  |ACCEPTABLE CHARA|
00001880: 43 54 45 52 53 20 33 32  2D 39 30 00 D0 20 B6 26  |CTERS 32-90.. .&|
00001890: 83 31 2C 31 2C 30 2C 31  2C 31 2C 31 2C 31 2C 31  |.1,1,0,1,1,1,1,1|
000018A0: 2C 31 2C 31 2C 31 2C 31  2C 30 2C 31 2C 31 2C 31  |,1,1,1,1,0,1,1,1|
000018B0: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
000018C0: 2C 31 2C 31 2C 30 2C 30  2C 31 2C 31 2C 31 2C 31  |,1,1,0,0,1,1,1,1|
000018D0: 00 0B 21 C0 26 83 31 2C  31 2C 31 2C 31 2C 31 2C  |..!.&.1,1,1,1,1,|
000018E0: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
000018F0: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001900: 31 2C 31 2C 31 2C 31 2C  31 2C 31 00 4F 21 CA 26  |1,1,1,1,1,1.O!.&|
00001910: 83 22 DA 55 4E 41 4D 45  22 2C 22 D6 4F 52 4E 41  |.".UNAME",".ORNA|
00001920: 4D 45 22 2C 22 C1 4E 52  45 44 45 20 28 45 2E 47  |ME",".NREDE (E.G|
00001930: 2E 2C 20 C6 52 2E 2C 20  C8 52 2E 20 26 20 C6 52  |., .R., .R. & .R|
00001940: 2E 2C 20 C4 52 2E 29 22  2C 22 D4 49 54 45 4C 00  |., .R.)",".ITEL.|
00001950: 83 21 D4 26 83 22 C6 49  52 4D 41 22 2C 22 C1 44  |.!.&.".IRMA",".D|
00001960: 44 52 45 53 53 45 22 2C  22 D0 CC DA 20 CF 52 54  |DRESSE","... .RT|
00001970: 22 2C 22 D3 54 41 41 54  22 2C 22 D4 45 4C 45 50  |",".TAAT",".ELEP|
00001980: 48 4F 4E 00 9A 21 10 27  8F 20 53 45 56 45 4E 20  |HON..!.'. SEVEN |
00001990: 43 41 54 45 47 4F 52 49  45 53 00 A8 21 1A 27 83  |CATEGORIES..!.'.|
000019A0: 20 46 41 4D 49 4C 49 45  00 B6 21 24 27 83 20 46  | FAMILIE..!$'. F|
000019B0: 52 45 55 4E 44 45 00 C3  21 2E 27 83 20 46 49 52  |REUNDE..!.'. FIR|
000019C0: 4D 45 4E 00 D0 21 38 27  83 20 4B 55 4E 44 45 4E  |MEN..!8'. KUNDEN|
000019D0: 00 E0 21 42 27 83 20 42  45 48 4F 45 52 44 45 4E  |..!B'. BEHOERDEN|
000019E0: 00 EE 21 4C 27 83 20 53  43 48 55 4C 45 4E 00 FC  |..!L'. SCHULEN..|
000019F0: 21 56 27 83 20 44 49 56  45 52 53 45 00 0F 22 60  |!V'. DIVERSE.."`|
00001A00: EA 99 58 24 3A 8D 38 30  30 30 3A 89 31 30 30 00  |..X$:.8000:.100.|
00001A10: 2A 22 48 EE 8F 20 43 4F  4C 4F 52 20 43 48 41 4E  |*"H.. COLOR CHAN|
00001A20: 47 45 20 52 4F 55 54 49  4E 45 00 4E 22 49 EE 96  |GE ROUTINE.N"I..|
00001A30: A5 43 28 58 29 B2 C2 28  58 29 AA 31 AA 31 36 AC  |.C(X)..(X).1.16.|
00001A40: 28 28 C2 28 58 29 AF 31  35 29 B2 31 35 29 00 6F  |((.(X).15).15).o|
00001A50: 22 4A EE 99 22 13 11 11  11 D7 41 45 48 4C 45 20  |"J..".....AEHLE |
00001A60: 44 49 45 20 C6 41 52 42  45 4E 20 2E 2E 2E 22 00  |DIE .ARBEN ...".|
00001A70: A3 22 4B EE 99 22 11 11  12 C6 31 92 3D D2 41 48  |."K.."....1.=.AH|
00001A80: 4D 45 4E 20 C6 41 52 42  45 20 20 20 12 C6 33 92  |MEN .ARBE   ..3.|
00001A90: 3D C8 49 4E 54 45 52 47  52 55 4E 44 20 C6 41 52  |=.INTERGRUND .AR|
00001AA0: 42 45 22 00 D6 22 4D EE  99 22 11 12 C6 35 92 3D  |BE".."M.."...5.=|
00001AB0: C2 55 43 48 53 54 41 42  45 4E 20 C6 41 52 42 45  |.UCHSTABEN .ARBE|
00001AC0: 20 20 20 12 D2 C5 D4 D5  D2 CE 92 3D D7 45 49 54  |   ........=.EIT|
00001AD0: 45 52 11 11 11 22 00 E8  22 52 EE A1 43 24 3A 8B  |ER...".."R..C$:.|
00001AE0: 43 24 89 36 31 30 31 30  00 FD 22 5C EE A1 43 24  |C$.61010.."\..C$|
00001AF0: 3A 8B 43 24 B2 22 22 89  36 31 30 32 30 00 24 23  |:.C$."".61020.$#|
00001B00: 66 EE 43 B2 C6 28 43 24  29 3A 8B 43 B2 31 33 35  |f.C..(C$):.C.135|
00001B10: A7 97 36 34 36 2C A5 43  28 36 34 36 29 3A 89 36  |..646,.C(646):.6|
00001B20: 31 30 30 32 00 50 23 7A  EE 43 B2 C6 28 43 24 29  |1002.P#z.C..(C$)|
00001B30: 3A 8B 43 B2 31 33 33 B0  43 B2 31 33 34 A7 58 B2  |:.C.133.C.134.X.|
00001B40: 35 33 31 34 37 AA 43 3A  97 58 2C A5 43 28 58 29  |53147.C:.X,.C(X)|
00001B50: 00 60 23 7F EE 8B 43 B2  39 35 89 36 31 30 37 30  |.`#...C.95.61070|
00001B60: 00 71 23 84 EE 8B 43 B3  B1 31 33 89 36 31 30 31  |.q#...C..13.6101|
00001B70: 30 00 77 23 8E EE 8E 00  98 23 AC EE 83 41 4E 46  |0.w#.....#...ANF|
00001B80: 41 4E 47 2C 31 39 2C 31  33 2C 31 33 2C 38 32 2C  |ANG,19,13,13,82,|
00001B90: 38 35 2C 37 38 2C 31 33  00 00 00 4E 26 89        |85,78,13...N&.  |

..;....9000:. (C) 1982 BY COMMODORE BUSI
NESS MACHINES, INC..J....C$:.C$.20.G....
C$:.C$.." .";:C.F(C$):..V...."..";:.25.
....100......:.".":.G(142)...!..53280,14
:.53281,6...#.."..NEW"...%.."..LOAD".G(3
4)."MENUE".G(34).",8"...'.."........... 
            BITTE WARTEN !."...(..198,7.
/.*..A$:.A$."ANFANG".50.7.,..42.Q.2..I.1
.7:.X:.630.I,X:.I.W.<...K.D. 1:. MENU EN
TRY...N..".      . COMMODORE NAME MACHIN
E ......X.."MENUE  :  .A.EINGABE NAMEN/A
DRESSEN......,".C.SUCHE NAMEN/ADDRESSEN.
.....,".P.DRUCKE NAMEN/ADDRESSENLISTEN.)
....,".B.BILDE WORD MACHINE FILES.L. ..,
".T.TELEPHONVERZEICHNISDRUCK.J....,".S.S
PEICHERN DER DATEN......,".Q.PROGRAMMEND
E......".WAEHLE   ";:X$."QACPBST":.8060.
L....I.4000,5000,7000,6000,3000,7100....
..".EJECT A PAGE";:.8050:.I.0..1,04:L..1
:.7950: 1.2....OF..".SPEICHERN Y ODER N"
;:.8050:.I.0..3020.X... 1:."..SERVUS !":
.T.1.1000:.T:.31.N.,.. FORMAT THE LINE..
.6.X$.T$(T,0):Y$.T$(T,1):.C(Y$).1.X$.Y$.
" ".X$.C.@.Y$.T$(T,2):.C(Y$).1.X$.Y$." "
.X$...J.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$.\.H..:.C(T$(
T,7)).1.A$(J,3).A$(J,3).", ".T$(T,7)...R
.A$(J,4).T$(T,8):X.F(T$(T,9)).127:......
. OUTPUT FILE...B..3020:.100.A.L.Y$.H$:.
3500:.E(X$).60000.J.V..X.......OF.0:.1,D
$:....N..I.0.NX:T.T%(I):.T$(T,0)...X..J.
0.9:.1,T$(T,J):.J,I.+.V..1,"\":.:. COMPL
ETE.H.... OPEN THE FILE TO WRITE.Y...DF.
0:X.0:X$."":.CF.2..".TO DATASETTE";:.805
0...J..CF.2.(CF.3.I.0)..1,1,1,Y$:..J...D
F..1:L$."0:".Y$:.1,08,2,L$:.8,X: 1:.X.35
80......".FILE EXISTIERT-OVERWRITE";:.80
50:.I.X.1:.......8,"S"L$:.8,"I0./....1,0
8,3,L$.",S,W":.8,X,X$:..E. .. CREATE AN 
ENTRY.~....NX..V..".. SORRY - NO PLACE T
O PUT IT! ":.8000:.100.....NX.NX.1:K.NX:
T.T%(K):T$(T,9).G(128).K...OF.1:M.39:Y.0
:. GET NAME/ADDRESS.X...J.0:.300......".
 ";:.I.1.30:.".";:.:.I.1.5:."...";:.:.".
";.5....I.1.30:."...";:.:.I.1.5:."...";:
.:."..X."..I.0.4:."."A$(J,I):.:.Y.8.4200
.~.6..".........."B0$:."."F$(Y):.B0$"...
.;..8200:.C..13.4120...=..:.I(X$,1)." ".
X$.H(X$,C(X$).1):.4157...@..X$."".T$(T,Y
)."".Y.Y.1:.2.(Y.9).4150,4110...J..C(X$)
.1.4190.0.T.X$."-":.Y.0..".DELETE";:.805
0:.I.1.4900,4110.K.^.T$(T,Y).X$:Y.Y.1:.4
110.P.H.X$."1234567".R$:. GET CATEGORIES
...R..".........CATEGORIES:...|..I.0.6:.
,:.X.2.I..".";......I.1"."K$(I):......."
.SET/RESET WELCHE KATEGORIE? .";:.8070:I
.2.I.....X.(X.I)..(X.I):.X.128.4210.,.L.
T$(T,9).G(X):. COMPLETE EDIT.W.V..".."B0
$:.".AKZEPTIERT";:.8050:.I.4100.X....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$..:. LOC
ATE T'S SLOT.!....I.NX.J.I.1:.I.NX.J..1:
T%(I).T%(I.1):.:. MAKE ROOM FOR T.C...T%
(I).T:.100:. INSERT T, EXIT.[.$.. CLEAN 
UP DELETION.S....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......"."
:."FIND BY:  .L.ZUNAME......,".F.VORNAME
......,".C.STRASSE UND NUMMER.#....,".S.
PLZ UND ORT.5....,".T.TELEFON.A.N..".WHI
CH ONE";:X$."LFLLLLCST":.8060:F.I...X.M.
40:.".KEYWORD: ";:.8200:Z$.X$:Z.C(Z$)...
..K.0:. SEARCH FOR FIELD.C...T.T%(K):X$.
T$(T,F):Y.0......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):..C....".NAECHSTER Y ODE
R N";:.8050:.I.5180.Y...K.K.1:.K..NX.511
0...(..:.".ALL ENTRIES CHECKED":.8000:.1
00...<..".EDIT";:.8050:.I.100:.4100...P.
. FILE FOR WORD MACHINE...Z..".NAME FUER
 DAS FILE: ";:M.16:.8200:.X$."".6010....
.Y$.X$:.3500:.E(X$).60000......X.100.R..
..7200:.".SELECT INDIVIDUALLY";:.8050:SF
.I:J.0:K.0.U...T.T%(K):.(F.F(T$(T,9))).0
.6180......SF..T$(T,0):.6100......300:."
.":.I.0.3:.A$(J,I):..T.J..".INCLUDE THIS
 ONE";:.8050:.I.6180...T.. OUTPUT THE FI
LE......I.0.7:.1,T$(T,I):.:DF..(DF).!.$.
K.K.1:.K..NX.6060.W....1,"\":.DF..1..SF.
1.6220,100:.  -1=EMPTY DISCFILE...8..".T
HE FILE WAS EMPTY; IT IS BEING CLEARED..
 .B. 1:.8,"S0:"Y$:.8,"I0...L..8000:.100.
B.X.. PRINT LABELS...B.SF..1:M.30:.7,4,7
:.7: 7:.1,4,0:LL.9999...L..".SINGLE COLU
MN LABELS";:.8050:Y.I.=....".ALIGN THE L
ABELS";:.8050:.I.7090.K...P$."----------
FIRST LINE----------":.7900......I.0.1:P
$."------------------------------":.7900
:......P$."----------FINAL LINE---------
-":.I.1.3:.7900:.:.7050......7200:.7300:
.100:. OUTPUT LABELS...... PRINT PHONE B
OOK.E.F.SF.0:M.36:Y.1:.7,4,7:.7: 7:.1,4,
0:L.0.K.P..".LINES PER PAGE "L0".....";:
.LL...Z..7200:.7300:.7950:.100... .. GET
 CATEGORY.O.*..".SELECT BY:":.I.0.6:.,".
"J(D(I.1),2)". "K$(I):....4..,".8. ALL":
.".YOUR CHOICE";:X$."12345678":.8060:F.2
.I.).>..:. ALL ARE OR-ED WITH 128.<.... 
PRINT EITHER.K...J.Y:.K.0.NX:T.T%(K):.(F
.F(T$(T,9))).0.7380.....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...T..K:.J
.Y..I.0.4:P$.H(A$(0,I),M):.7900:.:.7900.
%.....N...L.L.1:.1,P$:P$."":.L.LL..:. LI
NE OUT.L...L.L.1:.1,P$:P$."":.L.LL......
..L..L.L.LP.1:.1:.:L.0:.:. FINISH THE PA
GE...@.. UTILITIES.V.J..".. DRUECKE EINE
 TASTE ";:.20:.:.".":....R.X$."YN...|.."
? ";......20:.I.1.C(X$):.C$..J(X$,I,1)..
:.8070./...I.I.1:.C$;:.C.13..:..K....W$:
.W$."".."..";:.8080.A...." .";:.W$.R$..:
..Z....W$.G(20)..W$;:.8070......8080....
 X$."":. INPUT A STRING.... .C$:.C$.8210
.... .25:.C.13.....& .C.20.X$.""..C$;:X$
.H(X$,C(X$).1):. DELETE...+ .(127.C).32.
8220:. CURSOR CHARACTERS.A.0 .(K%(C).G).
.C$;:X$.X$.C$:.C(X$)..M...K.: .8220.\.(#
. INITIALIZE...-#L0.60:LP.66:NX..1:R$.G(
13):H$."NAME LIST...2#.K%(255),A$(1,4),K
$(6),F$(8)...<#.".......................
.......".39)"..":.59468,14:. FORMAT.$.A#
.53272,2.B(53272):.".     . COMMODORE NA
ME MACHINE ..?.C#.61000: . COLOR CHANGE.
{.F#."..T.APE, .D.ISC,ODER  .B.EIDE";:X$
."DTB":.8060:CF.I.1...K#.I.32.90:.K%(I):
.:.I.193.218:K%(I).1:.:. CHAR ARRAY...P#
B$."     ":.I.1.5:B$.B$.B$:.:B0$.H(B$,39
):.8,08,15.).U#.".HEUTIGES DATUM: ":M.60
:G.1:.8200:G.0:D$.X$:.D$."".D$."-.M.N#.:
.I.0.8:.F$(I):.:. FIELD NAMES.N.X#.I.0.6
:.K$(I):.:. CATEGORIES....#V..((.(0).200
0).170):.T$(V,9),T%(V):.I.0.V:T%(I).I:..
...%. INPUT FILE.W.&%.CF.2..".VOM TAPE?"
;:.8050...0%.CF.2.(CF.3.I.0)..9700:.I.10
0:.1,1,0,H$:.9600.-.N% 1:.1,08,2,H$:.8,X
,X$:.X.0.9600.>.X%.9700:.I.100.O.B%.".BI
TTE LEGE EINE DISKETTE EIN":.8000:.9550.
Y..%X$.""....%.#1,C$:.C$..R$.X$.X$.C$:.9
603.G..%.".ENTERED: ."X$:.:. DATELINE FR
OM FILE....%.I.0.V:.1,X$:.X$."\".ST.0.96
50:. READING COMPLETE.. .%.X$:T$(I,0).X$
:.J.1.9:.1,T$(I,J):.:T%(I).I:..I .%NX.I.
1:.100:. COMPLETE.I .%.".NEW FILE";:.805
0:I.1.I:... .&. ACCEPTABLE CHARACTERS 32
-90.P .&.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.O!J&."ZUNAME","VORNAME","ANR
EDE (E.G., FR., HR. & FR., DR.)","TITEL.
.!T&."FIRMA","ADDRESSE","PLZ ORT","STAAT
","TELEPHON..!.'. SEVEN CATEGORIES..!.'.
 FAMILIE..!$'. FREUNDE.C!.'. FIRMEN.P!8'
. KUNDEN..!B'. BEHOERDEN..!L'. SCHULEN..
!V'. DIVERSE.."`..X$:.8000:.100.*"H.. CO
LOR CHANGE ROUTINE.N"I...C(X).B(X).1.16.
((B(X).15).15).O"J.."....WAEHLE DIE FARB
EN ...".."K.."...F1.=RAHMEN FARBE   .F3.
=HINTERGRUND FARBE".V"M.."..F5.=BUCHSTAB
EN FARBE   .RETURN.=WEITER...".."R..C$:.
C$.61010.."\..C$:.C$."".61020.$#F.C.F(C$
):.C.135..646,.C(646):.61002.P#Z.C.F(C$)
:.C.133.C.134.X.53147.C:.X,.C(X).`#..C.
95.61070.Q#...C..13.61010.W#.....#...ANF
ANG,19,13,13,82,85,78,13...N&.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL