ADDRESS BOOK.C

00000000: 01 08 16 08 05 00 86 48  24 28 38 29 2C 41 24 28  |.......H$(8),A$(|
00000010: 31 30 30 2C 38 29 00 36  08 0A 00 99 C7 28 31 34  |100,8).6.....(14|
00000020: 37 29 3B 3A 97 35 33 32  38 30 2C 31 35 3A 97 35  |7);:.53280,15:.5|
00000030: 33 32 38 31 2C 39 00 6E  08 14 00 99 C7 28 31 34  |3281,9.n.....(14|
00000040: 32 29 22 9E D6 D6 D6 D6  D6 D6 D6 D6 D6 D6 D6 D6  |2)".............|
00000050: D6 D6 D6 D6 D6 D6 D6 D6  D6 D6 D6 D6 D6 D6 D6 D6  |................|
00000060: D6 D6 D6 D6 D6 D6 D6 D6  D6 D6 D6 D6 22 3B 00 7A  |............";.z|
00000070: 08 1E 00 81 54 B2 31 A4  32 33 00 AB 08 28 00 99  |....T.1.23...(..|
00000080: 22 D6 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |".              |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000A0: 20 20 20 20 20 20 20 20  D6 22 3B 00 B2 08 32 00  |        .";...2.|
000000B0: 82 54 00 E2 08 3C 00 99  22 D6 D6 D6 D6 D6 D6 D6  |.T...<..".......|
000000C0: D6 D6 D6 D6 D6 D6 D6 D6  D6 D6 D6 D6 D6 D6 D6 D6  |................|
000000D0: D6 D6 D6 D6 D6 D6 D6 D6  D6 D6 D6 D6 D6 D6 D6 D6  |................|
000000E0: 22 3B 00 F8 08 46 00 97  32 30 32 33 2C 38 36 3A  |";...F..2023,86:|
000000F0: 97 35 36 32 39 35 2C 37  00 1E 09 50 00 99 22 13  |.56295,7...P..".|
00000100: 11 11 11 11 11 11 11 11  11 22 3A 99 A3 31 34 29  |.........":..14)|
00000110: 22 41 44 44 52 45 53 53  20 42 4F 4F 4B 22 00 37  |"ADDRESS BOOK".7|
00000120: 09 5A 00 99 A3 31 34 29  22 91 A3 A3 A2 A3 A3 A3  |.Z...14)".......|
00000130: A3 A3 A3 A3 A3 A3 22 00  48 09 64 00 81 54 B2 31  |......".H.d..T.1|
00000140: A4 33 30 30 30 3A 82 54  00 62 09 77 00 8F 2A 2A  |.3000:.T.b.w..**|
00000150: 52 45 41 44 20 44 41 54  41 20 48 45 41 44 49 4E  |READ DATA HEADIN|
00000160: 47 53 00 77 09 78 00 81  54 B2 30 A4 38 3A 87 48  |GS.w.x..T.0.8:.H|
00000170: 24 28 54 29 3A 82 54 00  88 09 C7 00 8F 2A 2A 4D  |$(T):.T......**M|
00000180: 41 49 4E 20 4D 45 4E 55  00 AD 09 C8 00 97 35 33  |AIN MENU......53|
00000190: 32 38 30 2C 36 3A 97 35  33 32 38 31 2C 31 31 3A  |280,6:.53281,11:|
000001A0: 99 C7 28 31 34 29 22 93  05 11 11 22 3B 00 CB 09  |..(14)"....";...|
000001B0: D2 00 99 A3 31 31 29 22  CD 45 4E 55 20 4F 46 20  |....11)".ENU OF |
000001C0: C1 43 54 49 56 49 54 49  45 53 22 00 E9 09 DC 00  |.CTIVITIES".....|
000001D0: 99 A3 31 31 29 22 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |..11)"..........|
000001E0: A3 A3 A3 A3 A3 A3 A3 A3  22 00 18 0A E6 00 99 A3  |........".......|
000001F0: 33 29 22 11 11 31 2E 20  CC CF C1 C4 A0 54 48 45  |3)"..1. .....THE|
00000200: 20 49 4E 46 4F 52 4D 41  54 49 4F 4E 20 46 52 4F  | INFORMATION FRO|
00000210: 4D 20 44 49 53 4B 2E 22  00 3F 0A F0 00 99 3A 99  |M DISK.".?....:.|
00000220: A3 33 29 22 32 2E 20 D2  C5 D6 C9 C5 D7 20 54 48  |.3)"2. ...... TH|
00000230: 45 20 49 4E 46 4F 52 4D  41 54 49 4F 4E 2E 22 00  |E INFORMATION.".|
00000240: 5F 0A FA 00 99 3A 99 A3  33 29 22 33 2E 20 C1 C4  |_....:..3)"3. ..|
00000250: C4 20 41 20 4E 45 57 20  45 4E 54 52 59 2E 22 00  |. A NEW ENTRY.".|
00000260: 87 0A 04 01 99 3A 99 A3  33 29 22 34 2E 20 C3 C8  |.....:..3)"4. ..|
00000270: C1 CE C7 C5 20 53 4F 4D  45 20 49 4E 46 4F 52 4D  |.... SOME INFORM|
00000280: 41 54 49 4F 4E 2E 22 00  A7 0A 0E 01 99 3A 99 A3  |ATION."......:..|
00000290: 33 29 22 35 2E 20 C4 C5  CC C5 D4 C5 20 41 4E 20  |3)"5. ...... AN |
000002A0: 45 4E 54 52 59 2E 22 00  D4 0A 18 01 99 3A 99 A3  |ENTRY."......:..|
000002B0: 33 29 22 36 2E 20 D3 C1  D6 C5 20 54 48 45 20 49  |3)"6. .... THE I|
000002C0: 4E 46 4F 52 4D 41 54 49  4F 4E 20 4F 4E 20 44 49  |NFORMATION ON DI|
000002D0: 53 4B 2E 22 00 F2 0A 22  01 99 3A 99 A3 33 29 22  |SK."..."..:..3)"|
000002E0: 37 2E 20 D0 D2 C9 CE D4  49 4E 47 20 4D 45 4E 55  |7. .....ING MENU|
000002F0: 2E 22 00 21 0B 2C 01 99  3A 99 A3 33 29 22 38 2E  |.".!.,..:..3)"8.|
00000300: 20 CD C5 CE D5 20 4F 46  20 4F 54 48 45 52 20 50  | .... OF OTHER P|
00000310: 52 4F 47 52 41 4D 53 20  4F 4E 20 44 49 53 4B 2E  |ROGRAMS ON DISK.|
00000320: 22 00 50 0B 30 01 99 22  11 11 11 1D 1D 1D 1D 1D  |".P.0.."........|
00000330: 1D 12 C3 C8 CF CF D3 C5  20 C2 D9 20 D0 D2 C5 D3  |........ .. ....|
00000340: D3 C9 CE C7 20 C1 20 CE  D5 CD C2 C5 D2 92 22 3B  |.... . .......";|
00000350: 00 65 0B 36 01 A1 41 4E  24 3A 8B 41 4E 24 B2 22  |.e.6..AN$:.AN$."|
00000360: 22 A7 33 31 30 00 7F 0B  40 01 8B 41 4E 24 B3 22  |".310...@..AN$."|
00000370: 31 22 B0 41 4E 24 B1 22  38 22 A7 89 33 35 30 00  |1".AN$."8"..350.|
00000380: 8C 0B 4A 01 4D B2 C5 28  41 4E 24 29 00 C0 0B 54  |..J.M..(AN$)...T|
00000390: 01 91 4D 89 32 30 30 30  2C 35 30 30 30 2C 38 30  |..M.2000,5000,80|
000003A0: 30 30 2C 31 31 30 30 30  2C 31 34 30 30 30 2C 31  |00,11000,14000,1|
000003B0: 37 30 30 30 2C 32 30 30  30 30 2C 32 33 30 30 30  |7000,20000,23000|
000003C0: 00 DB 0B 5D 01 8F 2A 2A  49 46 20 57 52 4F 4E 47  |...]..**IF WRONG|
000003D0: 20 4D 45 4E 55 20 49 4E  50 55 54 00 E7 0B 5E 01  | MENU INPUT...^.|
000003E0: 81 54 B2 31 A4 31 30 00  1E 0C 68 01 99 22 05 9D  |.T.1.10...h.."..|
000003F0: 9D 9D 9D 9D 9D CE D5 CD  C2 C5 D2 22 3B 3A 81 59  |...........";:.Y|
00000400: B2 31 A4 31 35 30 3A 82  59 3A 99 22 96 12 9D 9D  |.1.150:.Y:."....|
00000410: 9D 9D 9D 9D CE D5 CD C2  C5 D2 92 05 22 3B 00 2E  |............";..|
00000420: 0C 72 01 81 59 B2 31 A4  31 35 30 3A 82 59 00 35  |.r..Y.1.150:.Y.5|
00000430: 0C 7C 01 82 54 00 3E 0C  86 01 89 33 31 30 00 58  |.|..T.>....310.X|
00000440: 0C CF 07 8F 2A 2A 46 52  4F 4D 20 4D 45 4E 55 20  |....**FROM MENU |
00000450: 4F 50 54 49 4F 4E 20 31  00 65 0C D0 07 97 35 33  |OPTION 1.e....53|
00000460: 32 38 30 2C 37 00 86 0C  DA 07 99 22 93 11 11 11  |280,7......"....|
00000470: 11 11 11 11 11 11 22 3A  99 A3 31 37 29 22 CC 4F  |......":..17)".O|
00000480: 41 44 49 4E 47 22 00 92  0C E4 07 49 B2 30 3A 4A  |ADING".....I.0:J|
00000490: B2 30 00 AE 0C EE 07 9F  32 2C 38 2C 32 2C 22 30  |.0......2,8,2,"0|
000004A0: 3A 4E 41 4D 45 46 49 4C  45 2C 53 2C 52 22 00 BD  |:NAMEFILE,S,R"..|
000004B0: 0C 0C 08 84 32 2C 41 24  28 49 2C 4A 29 00 CE 0C  |....2,A$(I,J)...|
000004C0: 16 08 8B 53 54 B3 B1 30  A7 89 32 31 30 30 00 D8  |...ST..0..2100..|
000004D0: 0C 20 08 4A B2 4A AA 31  00 EB 0C 24 08 8B 4A B1  |. .J.J.1...$..J.|
000004E0: 38 A7 4A B2 30 3A 49 B2  49 AA 31 00 F5 0C 2A 08  |8.J.0:I.I.1...*.|
000004F0: 89 32 30 36 30 00 FC 0C  34 08 A0 32 00 0E 0D 98  |.2060...4..2....|
00000500: 08 58 B2 49 3A 5A 31 B2  31 3A 89 32 30 30 00 28  |.X.I:Z1.1:.200.(|
00000510: 0D 87 13 8F 2A 2A 46 52  4F 4D 20 4D 45 4E 55 20  |....**FROM MENU |
00000520: 4F 50 54 49 4F 4E 20 32  00 33 0D 88 13 89 33 30  |OPTION 2.3....30|
00000530: 30 30 30 00 40 0D 8A 13  99 22 93 22 3A 49 B2 30  |000.@....".":I.0|
00000540: 00 4B 0D 92 13 81 4A B2  30 A4 38 00 62 0D 96 13  |.K....J.0.8.b...|
00000550: 8B 4A B2 30 A7 99 C7 28  31 34 37 29 22 11 11 11  |.J.0...(147)"...|
00000560: 11 22 00 72 0D 9C 13 99  A3 32 29 41 24 28 49 2C  |.".r.....2)A$(I,|
00000570: 4A 29 00 7D 0D 9E 13 8B  4A B2 36 A7 99 00 88 0D  |J).}....J.6.....|
00000580: A0 13 8B 4A B2 37 A7 99  00 8F 0D A6 13 82 4A 00  |...J.7........J.|
00000590: 9E 0D AB 13 8B 49 B2 58  A7 89 35 31 30 30 00 C0  |.....I.X..5100..|
000005A0: 0D B0 13 99 A3 31 34 29  22 11 11 C1 4E 4F 54 48  |.....14)"...NOTH|
000005B0: 45 52 20 45 4E 54 52 59  3F 20 28 59 2F 4E 29 22  |ER ENTRY? (Y/N)"|
000005C0: 00 D6 0D BA 13 A1 41 4E  24 3A 8B 41 4E 24 B2 22  |......AN$:.AN$."|
000005D0: 22 A7 35 30 35 30 00 F7  0D C4 13 8B 41 4E 24 B2  |".5050......AN$.|
000005E0: 22 59 22 B0 41 4E 24 B2  22 D9 22 A7 49 B2 49 AA  |"Y".AN$.".".I.I.|
000005F0: 31 3A 89 35 C1 C4 D2 C5  D3 D3 C5 CE 20 36 34 3A  |1:.5........ 64:|
00000600: 20 C4 41 54 45 49 2D CE  41 4D 45 20 20 2D 9D 9D  | .ATEI-.AME  -..|
00000610: 9D 22 3B 58 24 3A 8B 58  24 B2 22 2D 22 89 34 31  |.";X$:.X$."-".41|
00000620: 31 30 00 32 18 18 10 9F  32 2C 30 38 2C 32 2C 58  |10.2....2,08,2,X|
00000630: 24 3A 84 38 2C 58 2C 58  24 3A 8B 58 A7 A0 32 3A  |$:.8,X,X$:.X..2:|
00000640: 89 36 30 30 30 30 00 4B  18 36 10 8F 20 50 52 45  |.60000.K.6.. PRE|
00000650: 50 41 52 45 20 46 4F 52  20 4F 55 54 50 55 54 00  |PARE FOR OUTPUT.|
00000660: 7E 18 40 10 54 42 24 B2  22 22 3A 53 32 B2 30 3A  |~.@.TB$."":S2.0:|
00000670: 4E B2 37 32 3A 46 B2 31  3A 9F 31 2C 30 34 3A 53  |N.72:F.1:.1,04:S|
00000680: 24 B2 22 11 22 AA C8 28  42 24 2C 34 30 AB 4E AD  |$."."..(B$,40.N.|
00000690: 32 29 00 A6 18 4A 10 99  22 11 D3 54 41 4E 44 41  |2)...J.."..TANDA|
000006A0: 52 44 2D C6 4F 52 4D 41  54 22 3B 3A 8D 38 30 35  |RD-.ORMAT";:.805|
000006B0: 30 3A 8B 49 A7 8D 37 35  30 30 00 C8 18 68 10 8F  |0:.I..7500...h..|
000006C0: 20 47 45 54 20 54 48 45  20 4E 41 4D 45 20 41 4E  | GET THE NAME AN|
000006D0: 44 20 53 41 4C 55 54 41  54 49 4F 4E 00 F4 18 72  |D SALUTATION...r|
000006E0: 10 84 32 2C 5A 24 3A 8B  53 54 B1 30 B0 C3 28 5A  |..2,Z$:.ST.0..(Z|
000006F0: 24 29 B3 32 89 34 39 30  30 3A 8F 20 4E 4F 20 4C  |$).2.4900:. NO L|
00000700: 41 53 54 20 4E 41 4D 45  00 34 19 7C 10 4C 24 B2  |AST NAME.4.|.L$.|
00000710: 22 22 3A 8D 37 34 35 30  3A 58 24 B2 22 22 3A 59  |"":.7450:X$."":Y|
00000720: 24 B2 22 22 3A 4D 24 B2  22 D3 45 48 52 20 47 45  |$."":M$.".EHR GE|
00000730: 45 48 52 54 45 20 C4 41  4D 45 4E 20 55 4E 44 20  |EHRTE .AMEN UND |
00000740: C8 45 52 52 45 4E 2C 22  00 63 19 86 10 84 32 2C  |.ERREN,".c....2,|
00000750: 58 24 3A 8B C3 28 58 24  29 B3 32 A7 58 24 B2 22  |X$:..(X$).2.X$."|
00000760: 22 3A 89 34 32 35 30 3A  8F 20 4E 4F 20 46 49 52  |":.4250:. NO FIR|
00000770: 53 54 20 4E 41 4D 45 00  86 19 90 10 4D 24 B2 22  |ST NAME.....M$."|
00000780: CC 49 45 42 45 2F 52 20  22 AA 58 24 AA 22 2C 22  |.IEBE/R ".X$.","|
00000790: 3A 58 24 B2 58 24 AA 22  20 22 00 B0 19 9A 10 84  |:X$.X$." "......|
000007A0: 32 2C 59 24 3A 8B C3 28  59 24 29 B3 32 A7 59 24  |2,Y$:..(Y$).2.Y$|
000007B0: B2 22 22 3A 89 34 32 37  30 3A 8F 20 4E 4F 20 54  |."":.4270:. NO T|
000007C0: 49 54 4C 45 00 D5 19 A4  10 59 24 B2 59 24 AA 22  |ITLE.....Y$.Y$."|
000007D0: 20 22 3A 4D 24 B2 22 CC  49 45 42 45 2F 52 20 22  | ":M$.".IEBE/R "|
000007E0: AA 59 24 AA 5A 24 AA 22  2C 00 02 1A AE 10 4C 24  |.Y$.Z$.",.....L$|
000007F0: B2 59 24 AA 58 24 AA 5A  24 3A 84 32 2C 58 24 3A  |.Y$.X$.Z$:.2,X$:|
00000800: 8B C3 28 58 24 29 B1 32  A7 4C 24 B2 4C 24 AA 22  |..(X$).2.L$.L$."|
00000810: 2C 20 22 AA 58 24 00 2B  1A B8 10 5A 24 B2 4D 24  |, ".X$.+...Z$.M$|
00000820: 3A 4D 24 B2 22 22 3A 50  24 B2 4C 24 3A 8D 37 39  |:M$."":P$.L$:.79|
00000830: 30 30 3A 8F 20 50 52 49  4E 54 20 4E 41 4D 45 00  |00:. PRINT NAME.|
00000840: 3D 1A CC 10 8F 20 47 45  54 20 41 44 44 52 45 53  |=.... GET ADDRES|
00000850: 53 00 65 1A D6 10 84 32  2C 4C 24 3A 8B C3 28 4C  |S.e....2,L$:..(L|
00000860: 24 29 B1 31 A7 50 24 B2  4C 24 3A 8D 37 39 30 30  |$).1.P$.L$:.7900|
00000870: 3A 8F 20 4C 49 4E 45 20  32 00 8D 1A E0 10 84 32  |:. LINE 2......2|
00000880: 2C 4C 24 3A 8B C3 28 4C  24 29 B1 31 A7 50 24 B2  |,L$:..(L$).1.P$.|
00000890: 4C 24 3A 8D 37 39 30 30  3A 8F 20 4C 49 4E 45 20  |L$:.7900:. LINE |
000008A0: 33 00 C1 1A EA 10 84 32  2C 4C 24 3A 84 32 2C 59  |3......2,L$:.2,Y|
000008B0: 24 3A 8B C3 28 59 24 29  B1 31 A7 4C 24 B2 4C 24  |$:..(Y$).1.L$.L$|
000008C0: AA 22 2C 20 22 AA 59 24  3A 8F 20 53 54 41 54 45  |.", ".Y$:. STATE|
000008D0: 2C 20 5A 49 50 00 DA 1A  F4 10 8B C3 28 4C 24 29  |, ZIP.......(L$)|
000008E0: B1 31 A7 50 24 B2 4C 24  3A 8D 37 39 30 30 00 06  |.1.P$.L$:.7900..|
000008F0: 1B FE 10 81 49 B2 4C A4  31 34 3A 8D 37 39 30 30  |....I.L.14:.7900|
00000900: 3A 82 3A 4C 24 B2 5A 24  3A 50 24 B2 4C 24 3A 8D  |:.:L$.Z$:P$.L$:.|
00000910: 37 30 39 30 3A 89 34 32  30 30 00 12 1B 24 13 A0  |7090:.4200...$..|
00000920: 32 3A 89 31 30 30 00 2B  1B 70 17 8F 20 53 45 41  |2:.100.+.p.. SEA|
00000930: 52 43 48 20 41 4E 44 20  52 45 50 4C 41 43 45 00  |RCH AND REPLACE.|
00000940: 68 1B 7A 17 99 22 93 11  D3 55 43 48 45 4E 20 4E  |h.z.."...UCHEN N|
00000950: 41 43 48 3F 22 3A 4D B2  34 30 3A 8D 38 32 30 30  |ACH?":M.40:.8200|
00000960: 3A 5A 24 B2 58 24 3A 4C  B2 C3 28 58 24 29 3A 8B  |:Z$.X$:L..(X$):.|
00000970: 4C B2 30 B0 4C B2 4D 89  36 30 31 30 00 92 1B 84  |L.0.L.M.6010....|
00000980: 17 99 3A 99 22 11 C5 52  53 45 54 5A 45 4E 20 44  |..:."..RSETZEN D|
00000990: 55 52 43 48 3F 22 3A 8D  38 32 30 30 3A 59 24 B2  |URCH?":.8200:Y$.|
000009A0: 58 24 3A 99 3A 99 00 B9  1B 8E 17 58 24 B2 22 22  |X$:.:......X$.""|
000009B0: 3A 4D 24 B2 22 22 3A 4C  24 B2 22 22 3A 54 B2 30  |:M$."":L$."":T.0|
000009C0: 3A 55 B2 30 3A 46 B2 30  3A 4F 46 B2 31 00 CF 1B  |:U.0:F.0:OF.1...|
000009D0: 38 18 8F 20 41 54 54 41  43 48 20 54 24 20 54 4F  |8.. ATTACH T$ TO|
000009E0: 20 58 24 00 E2 1B 42 18  8B C3 28 58 24 29 B1 B2  | X$...B...(X$)..|
000009F0: 4C 89 36 32 35 30 00 00  1C 4C 18 8B 54 B1 56 89  |L.6250...L..T.V.|
00000A00: 36 34 30 30 3A 8F 20 41  4C 4C 20 54 24 27 53 20  |6400:. ALL T$'S |
00000A10: 52 45 41 44 00 25 1C 56  18 58 24 B2 58 24 AA 54  |READ.%.V.X$.X$.T|
00000A20: 24 28 54 29 3A 54 24 28  54 29 B2 22 22 3A 54 B2  |$(T):T$(T)."":T.|
00000A30: 54 AA 31 3A 89 36 32 30  30 00 3C 1C 6A 18 8F 20  |T.1:.6200.<.j.. |
00000A40: 53 45 41 52 43 48 20 46  4F 52 20 4D 41 54 43 48  |SEARCH FOR MATCH|
00000A50: 00 6A 1C 74 18 81 49 B2  31 A4 C3 28 58 24 29 AB  |.j.t..I.1..(X$).|
00000A60: 4C AA 31 3A 8B CA 28 58  24 2C 49 2C 4C 29 B3 B1  |L.1:..(X$,I,L)..|
00000A70: 5A 24 A7 82 3A 4A B2 49  3A 89 36 33 30 30 00 80  |Z$..:J.I:.6300..|
00000A80: 1C 7E 18 4D 24 B2 59 24  3A 4A B2 49 AA 4C 3A 99  |.~.M$.Y$:J.I.L:.|
00000A90: 22 12 22 3B 00 94 1C 9C  18 8F 20 53 50 4C 49 54  |".";...... SPLIT|
00000AA0: 20 53 54 52 49 4E 47 53  00 C7 1C A6 18 4D 24 B2  | STRINGS.....M$.|
00000AB0: C8 28 58 24 2C 49 AB 31  29 AA 4D 24 3A 58 24 B2  |.(X$,I.1).M$:X$.|
00000AC0: CA 28 58 24 2C 4A 29 3A  8D 36 35 30 30 3A 91 46  |.(X$,J):.6500:.F|
00000AD0: 89 36 39 30 30 3A 89 36  32 30 30 00 DA 1C 00 19  |.6900:.6200.....|
00000AE0: 8F 20 53 54 4F 57 20 4C  41 53 54 20 4C 24 00 F7  |. STOW LAST L$..|
00000AF0: 1C 0A 19 8D 36 35 30 30  3A 8B 46 89 36 39 30 30  |....6500:.F.6900|
00000B00: 3A 8F 20 43 4C 45 41 52  20 4D 24 00 23 1D 14 19  |:. CLEAR M$.#...|
00000B10: 4D 24 B2 58 24 3A 8D 36  35 30 30 3A 8B 46 89 36  |M$.X$:.6500:.F.6|
00000B20: 39 30 30 3A 8F 20 4D 24  5F 58 24 3B 20 43 4C 45  |900:. M$_X$; CLE|
00000B30: 41 52 20 42 4F 54 48 00  5A 1D 1E 19 8B 55 B3 B2  |AR BOTH.Z....U..|
00000B40: 56 A7 54 B2 55 3A 8D 36  35 30 3A 89 31 30 30 3A  |V.T.U:.650:.100:|
00000B50: 8F 20 53 54 4F 57 20 4C  24 2C 20 43 4C 45 41 52  |. STOW L$, CLEAR|
00000B60: 20 48 49 47 48 45 52 20  42 4C 4F 43 4B 53 00 64  | HIGHER BLOCKS.d|
00000B70: 1D 28 19 89 36 39 30 30  00 87 1D 64 19 8F 20 43  |.(..6900...d.. C|
00000B80: 4C 45 41 52 20 4D 24 20  2D 20 53 54 4F 57 20 4C  |LEAR M$ - STOW L|
00000B90: 24 20 49 46 20 4E 45 45  44 45 44 00 BD 1D 6E 19  |$ IF NEEDED...n.|
00000BA0: 4D B2 4D 30 AB C3 28 4C  24 29 3A 4C 24 B2 4C 24  |M.M0..(L$):L$.L$|
00000BB0: AA C8 28 4D 24 2C 4D 29  3A 4D 24 B2 CA 28 4D 24  |..(M$,M):M$..(M$|
00000BC0: 2C 4D AA 31 29 3A 8B C3  28 4C 24 29 B3 4D 30 A7  |,M.1):..(L$).M0.|
00000BD0: 8E 00 CC 1D 78 19 8B 55  B1 B2 56 89 36 35 35 30  |....x..U..V.6550|
00000BE0: 00 F9 1D 82 19 8B 55 B3  54 A7 54 24 28 55 29 B2  |......U.T.T$(U).|
00000BF0: 4C 24 3A 99 22 2A 92 22  3B 3A 55 B2 55 AA 31 3A  |L$:."*.";:U.U.1:|
00000C00: 4C 24 B2 4D 24 3A 4D 24  B2 22 22 3A 8E 00 33 1E  |L$.M$:M$."":..3.|
00000C10: 8C 19 8B 54 B3 56 A7 81  49 B2 56 A4 54 AA 31 A9  |...T.V..I.V.T.1.|
00000C20: AB 31 3A 54 24 28 49 29  B2 54 24 28 49 AB 31 29  |.1:T$(I).T$(I.1)|
00000C30: 3A 82 3A 54 24 28 54 29  B2 22 22 3A 54 B2 54 AA  |:.:T$(T)."":T.T.|
00000C40: 31 3A 89 36 35 33 30 00  3D 1E 96 19 46 B2 31 3A  |1:.6530.=...F.1:|
00000C50: 8E 00 4E 1E F4 1A 8F 20  45 52 52 4F 52 20 45 58  |..N.... ERROR EX|
00000C60: 49 54 00 7F 1E FE 1A 99  3A 99 22 11 CF 55 54 20  |IT......:."..UT |
00000C70: 4F 46 20 52 4F 4F 4D 20  2D 20 44 41 54 41 20 49  |OF ROOM - DATA I|
00000C80: 4D 50 41 49 52 45 44 22  3A 8D 38 30 30 30 3A 89  |MPAIRED":.8000:.|
00000C90: 31 30 30 00 96 1E 58 1B  8F 20 46 4F 52 4D 41 54  |100...X.. FORMAT|
00000CA0: 20 41 4E 44 20 50 52 49  4E 54 00 A5 1E 62 1B 8D  | AND PRINT...b..|
00000CB0: 37 30 32 30 3A 89 31 30  30 00 BD 1E 6C 1B 9F 31  |7020:.100...l..1|
00000CC0: 2C 30 34 3A 46 B2 31 3A  8F 20 50 52 49 4E 54 45  |,04:F.1:. PRINTE|
00000CD0: 52 00 EE 1E 76 1B 53 32  B2 31 3A 4E B2 36 30 3A  |R...v.S2.1:N.60:|
00000CE0: 54 42 24 B2 22 22 3A 58  24 B2 22 46 49 44 22 3A  |TB$."":X$."FID":|
00000CF0: 8F 20 44 45 46 41 55 4C  54 53 20 28 44 52 41 46  |. DEFAULTS (DRAF|
00000D00: 54 29 00 22 1F 80 1B 99  22 11 12 C6 92 4F 52 4D  |T)."...."....ORM|
00000D10: 41 4C 2C 20 12 C9 92 4E  46 4F 52 4D 41 4C 2C 20  |AL, ...NFORMAL, |
00000D20: 4F 52 20 12 C4 92 52 41  46 54 22 3B 3A 8D 38 30  |OR ...RAFT";:.80|
00000D30: 36 30 3A 4A B2 49 00 3B  1F 94 1B 8B 4A B3 32 A7  |60:J.I.;....J.2.|
00000D40: 53 32 B2 30 3A 4E B2 37  32 3A 8D 37 35 30 30 00  |S2.0:N.72:.7500.|
00000D50: 66 1F 9E 1B 53 24 B2 22  11 22 AA C8 28 42 24 2C  |f...S$."."..(B$,|
00000D60: 34 30 AB 4E AD 32 29 3A  8B 4A B2 30 89 37 34 30  |40.N.2):.J.0.740|
00000D70: 30 3A 8F 20 46 4F 52 4D  41 4C 00 89 1F A8 1B 4C  |0:. FORMAL.....L|
00000D80: 24 B2 22 12 22 AA 48 24  3A 50 24 B2 48 24 3A 4D  |$.".".H$:P$.H$:M|
00000D90: 24 B2 C8 28 4B 24 2C C3  28 48 24 29 29 00 A7 1F  |$..(K$,.(H$))...|
00000DA0: B2 1B 4A B2 30 3A 99 22  93 22 3A 8D 37 39 30 30  |..J.0:.".":.7900|
00000DB0: 3A 8D 37 39 30 30 3A 8B  4A A7 8E 00 D1 1F BC 1B  |:.7900:.J.......|
00000DC0: 54 B2 30 3A 58 24 B2 22  5D 22 AA 54 42 24 3A 45  |T.0:X$."]".TB$:E|
00000DD0: B2 30 3A 5A 24 B2 42 24  3A 8F 20 50 52 49 4E 54  |.0:Z$.B$:. PRINT|
00000DE0: 20 54 45 58 54 00 08 20  C6 1B 8B C3 28 58 24 29  | TEXT.. ....(X$)|
00000DF0: B3 B2 4E A7 58 24 B2 58  24 AA 54 24 28 54 29 3A  |..N.X$.X$.T$(T):|
00000E00: 54 B2 54 AA 31 3A 8B C3  28 58 24 29 B3 B2 4E B0  |T.T.1:..(X$)..N.|
00000E10: 54 B1 56 A7 58 24 B2 58  24 AA 22 5C 00 38 20 CB  |T.V.X$.X$."\.8 .|
00000E20: 1B 8B C6 28 58 24 29 B2  33 32 A7 58 24 B2 CA 28  |...(X$).32.X$..(|
00000E30: 58 24 2C 32 29 3A 89 37  31 31 30 3A 8F 20 4C 45  |X$,2):.7110:. LE|
00000E40: 41 44 49 4E 47 20 42 4C  41 4E 4B 53 00 49 20 D0  |ADING BLANKS.I .|
00000E50: 1B 8B 45 A7 58 24 B2 22  5B 22 AA 58 24 00 86 20  |..E.X$."[".X$.. |
00000E60: DA 1B 4C 24 B2 C8 28 58  24 2C 4E AA 31 29 3A 50  |..L$..(X$,N.1):P|
00000E70: 24 B2 4C 24 3A 4A B2 30  3A 4B B2 30 3A 4D 24 B2  |$.L$:J.0:K.0:M$.|
00000E80: 42 24 3A 81 49 B2 31 A4  C3 28 4C 24 29 3A 43 B2  |B$:.I.1..(L$):C.|
00000E90: C6 28 CA 28 4C 24 2C 49  29 29 00 A8 20 E4 1B 8B  |.(.(L$,I)).. ...|
00000EA0: 43 B1 39 30 AF 43 B3 39  36 A7 8D 37 37 30 30 3A  |C.90.C.96..7700:|
00000EB0: 8B 58 A7 49 B2 4A 3A 89  37 31 36 30 00 DD 20 EE  |.X.I.J:.7160.. .|
00000EC0: 1B 82 3A 81 49 B2 C3 28  4C 24 29 A4 4A AA 31 A9  |..:.I..(L$).J.1.|
00000ED0: AB 31 3A 8B CA 28 4C 24  2C 49 2C 31 29 B1 22 20  |.1:..(L$,I,1)." |
00000EE0: 22 A7 82 3A 49 B2 4A 3A  8B 4A B2 30 89 37 39 39  |"..:I.J:.J.0.799|
00000EF0: 30 00 19 21 F8 1B 4A B2  30 3A 58 24 B2 CA 28 58  |0..!..J.0:X$..(X|
00000F00: 24 2C 49 AA 31 29 3A 4C  24 B2 C8 28 4C 24 2C 49  |$,I.1):L$..(L$,I|
00000F10: AB 31 29 3A 50 24 B2 C8  28 50 24 2C 49 AB 4B 29  |.1):P$..(P$,I.K)|
00000F20: 3A 4D 24 B2 C8 28 4D 24  2C 49 AB 4B 29 00 3A 21  |:M$..(M$,I.K).:!|
00000F30: 16 1C 8B 43 B2 39 34 B0  43 B2 39 35 A7 45 B2 30  |...C.94.C.95.E.0|
00000F40: 3A 58 24 B2 22 5D 22 AA  54 42 24 AA 58 24 00 69  |:X$."]".TB$.X$.i|
00000F50: 21 20 1C 58 B2 43 3A 8D  37 39 30 30 3A 8B 4A B1  |! .X.C:.7900:.J.|
00000F60: 30 B0 58 B2 39 34 B0 58  B2 39 32 A7 8D 37 39 35  |0.X.94.X.92..795|
00000F70: 30 3A 8B 4A B1 30 B0 58  B2 39 32 A7 8E 00 73 21  |0:.J.0.X.92...s!|
00000F80: 2A 1C 89 37 31 31 30 00  80 21 E8 1C 8F 20 46 4F  |*..7110..!... FO|
00000F90: 52 4D 41 4C 00 B2 21 F2  1C 4C 24 B2 22 22 3A 8D  |RMAL..!..L$."":.|
00000FA0: 37 34 35 30 3A 99 22 93  D6 49 45 52 20 C1 44 52  |7450:."..IER .DR|
00000FB0: 45 53 53 2D DA 45 49 4C  45 4E 22 3A 4D B2 4E 3A  |ESS-.EILEN":M.N:|
00000FC0: 81 49 B2 31 A4 34 00 E4  21 FC 1C 99 22 DA 45 49  |.I.1.4..!...".EI|
00000FD0: 4C 45 22 49 3A 8D 38 32  30 30 3A 99 3A 8B C3 28  |LE"I:.8200:.:..(|
00000FE0: 58 24 29 B2 4D A7 99 22  12 DA 55 20 4C 41 4E 47  |X$).M.."..U LANG|
00000FF0: 20 22 3A 89 37 34 32 30  00 02 22 06 1D 50 24 B2  | ":.7420.."..P$.|
00001000: 58 24 3A 8D 37 39 30 30  3A 82 3A 8D 37 39 30 30  |X$:.7900:.:.7900|
00001010: 3A 8D 37 39 30 30 00 26  22 10 1D 99 22 C1 4E 52  |:.7900.&"...".NR|
00001020: 45 44 45 20 20 20 20 22  3A 8D 38 32 30 30 3A 50  |EDE    ":.8200:P|
00001030: 24 B2 58 24 3A 89 37 30  39 30 00 57 22 1A 1D 8C  |$.X$:.7090.W"...|
00001040: 3A 4D 24 B2 22 22 3A 59  24 B2 53 24 3A 81 49 B2  |:M$."":Y$.S$:.I.|
00001050: 31 A4 33 3A 87 50 24 3A  8D 37 34 39 30 3A 82 3A  |1.3:.P$:.7490:.:|
00001060: 50 24 B2 44 24 3A 8D 37  34 39 30 00 72 22 2E 1D  |P$.D$:.7490.r"..|
00001070: 81 49 B2 31 A4 35 3A 8D  37 39 30 30 3A 82 3A 53  |.I.1.5:.7900:.:S|
00001080: 24 B2 59 24 3A 8E 00 98  22 42 1D 4B B2 C3 28 50  |$.Y$:..."B.K..(P|
00001090: 24 29 3A 53 24 B2 22 11  22 AA C8 28 42 24 2C 34  |$):S$."."..(B$,4|
000010A0: 30 AB 4B AD 32 29 3A 89  37 39 30 30 00 B0 22 4C  |0.K.2):.7900.."L|
000010B0: 1D 8F 20 46 4F 52 4D 41  54 20 56 41 52 49 41 54  |.. FORMAT VARIAT|
000010C0: 49 4F 4E 53 00 D8 22 56  1D 99 22 11 D3 54 41 4E  |IONS.."V.."..TAN|
000010D0: 44 41 52 44 2D C6 4F 52  4D 41 54 3A 22 3A 99 2C  |DARD-.ORMAT:":.,|
000010E0: 22 20 C5 49 4E 2D 5A 45  49 4C 49 47 00 0B 23 60  |" .IN-ZEILIG..#`|
000010F0: 1D 99 2C 4E 22 DA 45 49  43 48 45 4E 20 50 52 4F  |..,N".EICHEN PRO|
00001100: 20 DA 45 49 4C 45 20 20  22 3A 99 2C 4C 4C 22 DA  | .EILE  ":.,LL".|
00001110: 45 49 4C 45 4E 20 50 52  4F 20 D3 45 49 54 45 00  |EILEN PRO .EITE.|
00001120: 27 23 6A 1D 99 2C 22 20  D4 41 42 2D CC 41 45 4E  |'#j..," .AB-.AEN|
00001130: 47 45 20 3D 22 C3 28 54  42 24 29 00 54 23 74 1D  |GE =".(TB$).T#t.|
00001140: 99 22 11 CD 4F 45 43 48  54 45 4E 20 D3 49 45 20  |."..OECHTEN .IE |
00001150: 45 53 20 41 45 4E 44 45  52 4E 20 22 3B 3A 8D 38  |ES AENDERN ";:.8|
00001160: 30 35 30 3A 8B 49 A7 8E  00 75 23 7E 1D 99 22 93  |050:.I...u#~..".|
00001170: C5 49 4E 2D 5A 45 49 4C  49 47 20 20 22 3B 3A 8D  |.IN-ZEILIG  ";:.|
00001180: 38 30 35 30 3A 53 32 B2  49 00 A5 23 88 1D 85 22  |8050:S2.I..#..."|
00001190: 11 DA 45 49 43 48 45 4E  20 50 52 4F 20 DA 45 49  |..EICHEN PRO .EI|
000011A0: 4C 45 20 20 20 28 32 30  2D 38 30 29 20 20 37 32  |LE   (20-80)  72|
000011B0: 20 9D 9D 9D 9D 9D 22 3B  4E 00 C0 23 92 1D 8B 4E  | .....";N..#...N|
000011C0: B3 32 30 B0 4E B1 38 30  A7 99 22 91 91 22 3A 89  |.20.N.80.."..":.|
000011D0: 37 35 36 30 00 FE 23 9C  1D 99 22 11 DA 45 49 4C  |7560..#..."..EIL|
000011E0: 45 4E 20 50 52 4F 20 D3  45 49 54 45 20 22 4C 4C  |EN PRO .EITE "LL|
000011F0: 22 9D 20 20 9D 9D 9D 9D  9D 9D 22 3B 3A 85 4C 4C  |".  ......";:.LL|
00001200: 3A 8B 4C 4C B3 31 A7 99  22 91 91 22 3A 89 37 35  |:.LL.1.."..":.75|
00001210: 38 30 00 39 24 A1 1D 99  22 11 CC 41 45 4E 47 45  |80.9$..."..AENGE|
00001220: 20 44 45 52 20 D4 41 42  2E 22 3B 3A 58 24 B2 22  | DER .AB.";:X$."|
00001230: 30 31 32 33 34 35 36 37  38 39 22 3A 8D 38 30 36  |0123456789":.806|
00001240: 30 3A 54 42 24 B2 C8 28  42 24 2C 49 29 00 3F 24  |0:TB$..(B$,I).?$|
00001250: A6 1D 8E 00 51 24 14 1E  8F 20 45 4E 48 41 4E 43  |....Q$... ENHANC|
00001260: 45 4D 45 4E 54 00 97 24  28 1E 4B B2 4B AA 31 3A  |EMENT..$(.K.K.1:|
00001270: 58 B2 31 3A 4A B2 49 3A  8B 43 B2 39 31 B0 43 B2  |X.1:J.I:.C.91.C.|
00001280: 39 33 A7 58 B2 30 3A 45  B2 28 43 B2 39 31 29 3A  |93.X.0:E.(C.91):|
00001290: 5A 24 B2 42 24 3A 59 24  B2 22 92 22 3A 8B 45 A7  |Z$.B$:Y$.".":.E.|
000012A0: 5A 24 B2 4B 24 3A 59 24  B2 22 12 00 B5 24 32 1E  |Z$.K$:Y$."...$2.|
000012B0: 4C 24 B2 C8 28 4C 24 2C  49 AB 31 29 AA 59 24 AA  |L$..(L$,I.1).Y$.|
000012C0: CA 28 4C 24 2C 49 AA 31  29 00 E9 24 46 1E 50 24  |.(L$,I.1)..$F.P$|
000012D0: B2 C8 28 50 24 2C 49 AB  4B 29 AA CA 28 4C 24 2C  |..(P$,I.K)..(L$,|
000012E0: 49 AA 31 29 3A 4D 24 B2  C8 28 4D 24 2C 49 AB 4B  |I.1):M$..(M$,I.K|
000012F0: 29 AA CA 28 5A 24 2C 49  AA 31 29 3A 8E 00 F8 24  |)..(Z$,I.1):...$|
00001300: DC 1E 8F 20 4C 49 4E 45  20 4F 55 54 00 0C 25 E6  |... LINE OUT..%.|
00001310: 1E 8B 50 24 B1 22 22 A7  50 24 B2 53 24 AA 50 24  |..P$."".P$.S$.P$|
00001320: 00 27 25 F0 1E 99 4C 24  3B 3A 8D 37 39 33 30 3A  |.'%...L$;:.7930:|
00001330: 8B 4A B1 30 B0 53 32 B2  30 A7 8E 00 49 25 FA 1E  |.J.0.S2.0...I%..|
00001340: 8B 46 A7 99 3A 98 31 2C  50 24 3B 3A 8B 4D 24 B1  |.F..:.1,P$;:.M$.|
00001350: 42 24 A7 98 31 2C 51 24  53 24 4D 24 3B 00 70 25  |B$..1,Q$S$M$;.p%|
00001360: 04 1F 98 31 3A 50 24 B2  22 22 3A 4C 24 B2 22 22  |...1:P$."":L$.""|
00001370: 3A 4D 24 B2 22 22 3A 4C  B2 4C AA 31 3A 8B 4C B3  |:M$."":L.L.1:.L.|
00001380: 4C 4C A7 8E 00 85 25 0E  1F 8B 46 B2 30 A7 8D 38  |LL....%...F.0..8|
00001390: 30 30 30 3A 4C B2 30 3A  8E 00 B2 25 18 1F 8B 4C  |000:L.0:...%...L|
000013A0: A7 81 49 B2 4C A4 4C 50  AB 31 3A 98 31 3A 82 3A  |..I.L.LP.1:.1:.:|
000013B0: 4C B2 30 3A 8F 20 50 41  47 45 20 57 49 54 48 20  |L.0:. PAGE WITH |
000013C0: 42 4C 41 4E 4B 53 00 BD  25 22 1F 99 22 93 22 3A  |BLANKS..%"..".":|
000013D0: 8E 00 EA 25 36 1F 4A B2  31 3A 99 22 11 DA 45 49  |...%6.J.1:."..EI|
000013E0: 4C 45 20 46 55 45 52 20  C4 52 55 43 4B 20 5A 55  |LE FUER .RUCK ZU|
000013F0: 20 4C 41 4E 47 22 3A 8D  37 39 35 30 3A 8E 00 FA  | LANG":.7950:...|
00001400: 25 40 1F 8F 20 55 54 49  4C 49 54 49 45 53 00 2E  |%@.. UTILITIES..|
00001410: 26 4A 1F 99 22 11 12 20  D7 45 49 54 45 52 20 4D  |&J..".. .EITER M|
00001420: 49 54 20 42 45 4C 49 45  42 49 47 45 52 20 D4 41  |IT BELIEBIGER .A|
00001430: 53 54 45 22 3B 3A 8D 32  30 3A 99 3A 99 22 93 22  |STE";:.20:.:."."|
00001440: 3A 8E 00 39 26 72 1F 58  24 B2 22 4A 4E 00 44 26  |:..9&r.X$."JN.D&|
00001450: 7C 1F 99 22 3F 20 22 3B  00 6E 26 86 1F 8D 32 30  ||.."? ";.n&...20|
00001460: 3A 81 49 B2 31 A4 C3 28  58 24 29 3A 8B 43 24 B3  |:.I.1..(X$):.C$.|
00001470: B1 CA 28 58 24 2C 49 2C  31 29 A7 82 3A 89 38 30  |..(X$,I,1)..:.80|
00001480: 37 30 00 7D 26 8B 1F 49  B2 49 AB 31 3A 99 43 24  |70.}&..I.I.1:.C$|
00001490: 3B 00 99 26 90 1F A1 57  24 3A 8B 57 24 B2 22 22  |;..&...W$:.W$.""|
000014A0: A7 99 22 A4 9D 22 3B 3A  89 38 30 38 30 00 AF 26  |.."..";:.8080..&|
000014B0: 95 1F 99 22 20 9D 22 3B  3A 8B 57 24 B2 52 24 A7  |..." .";:.W$.R$.|
000014C0: 99 3A 8E 00 C8 26 9A 1F  8B 57 24 B2 C7 28 32 30  |.:...&...W$..(20|
000014D0: 29 A7 99 57 24 3B 3A 89  38 30 37 30 00 D2 26 9F  |)..W$;:.8070..&.|
000014E0: 1F 89 38 30 38 30 00 ED  26 08 20 58 24 B2 22 22  |..8080..&. X$.""|
000014F0: 3A 8F 20 49 4E 50 55 54  20 41 20 53 54 52 49 4E  |:. INPUT A STRIN|
00001500: 47 00 FE 26 12 20 A1 43  24 3A 8B 43 24 89 38 32  |G..&. .C$:.C$.82|
00001510: 31 30 00 16 27 1C 20 8D  32 35 3A 8B 43 B2 31 33  |10..'. .25:.C.13|
00001520: B0 43 B2 39 32 89 38 32  39 30 00 45 27 26 20 8B  |.C.92.8290.E'& .|
00001530: 43 B2 32 30 AF 58 24 B1  22 22 A7 99 43 24 3B 3A  |C.20.X$.""..C$;:|
00001540: 58 24 B2 C8 28 58 24 2C  C3 28 58 24 29 AB 31 29  |X$..(X$,.(X$).1)|
00001550: 3A 8F 20 44 45 4C 45 54  45 00 65 27 30 20 8B 43  |:. DELETE.e'0 .C|
00001560: B2 32 30 89 38 32 32 30  3A 8F 20 44 45 4C 45 54  |.20.8220:. DELET|
00001570: 45 20 4F 4E 20 4E 55 4C  4C 00 96 27 3A 20 8B 28  |E ON NULL..': .(|
00001580: 31 32 37 AF 43 29 B3 33  32 89 38 32 32 30 3A 8F  |127.C).32.8220:.|
00001590: 20 43 55 52 53 4F 52 20  43 4F 4E 54 52 4F 4C 20  | CURSOR CONTROL |
000015A0: 43 48 41 52 41 43 54 45  52 53 00 AF 27 44 20 99  |CHARACTERS..'D .|
000015B0: 43 24 3B 3A 8B 43 B2 33  34 A7 99 43 24 C7 28 32  |C$;:.C.34..C$.(2|
000015C0: 30 29 3B 00 CA 27 4E 20  58 24 B2 58 24 AA 43 24  |0);..'N X$.X$.C$|
000015D0: 3A 8B C3 28 58 24 29 B3  4D 89 38 32 32 30 00 D0  |:..(X$).M.8220..|
000015E0: 27 62 20 8E 00 E7 27 FC  21 8F 20 51 55 49 54 20  |'b ...'.!. QUIT |
000015F0: 54 48 45 20 50 52 4F 47  52 41 4D 00 1D 28 10 22  |THE PROGRAM..(."|
00001600: 99 22 93 11 D3 45 49 54  45 4E 56 4F 52 53 43 48  |."...EITENVORSCH|
00001610: 55 42 20 41 4D 20 C4 52  55 43 4B 45 52 20 20 20  |UB AM .RUCKER   |
00001620: 20 22 3B 3A 8D 38 30 35  30 3A 8B 49 89 38 37 34  | ";:.8050:.I.874|
00001630: 30 00 45 28 1A 22 9F 31  2C 30 34 3A 46 B2 31 3A  |0.E(.".1,04:F.1:|
00001640: 4C B2 2E 31 3A 8D 37 39  35 30 3A 8F 20 45 58 50  |L..1:.7950:. EXP|
00001650: 45 4C 20 41 20 50 41 47  45 00 5D 28 24 22 8B 4F  |EL A PAGE.]($".O|
00001660: 46 B2 30 B0 54 24 28 30  29 B2 22 22 89 38 37 36  |F.0.T$(0)."".876|
00001670: 30 00 9E 28 2E 22 99 22  11 C4 4F 4B 55 4D 45 4E  |0..(."."..OKUMEN|
00001680: 54 20 4E 49 43 48 54 20  47 45 53 49 43 48 45 52  |T NICHT GESICHER|
00001690: 54 3B 20 53 50 45 49 43  48 45 52 4E 22 3B 3A 8D  |T; SPEICHERN";:.|
000016A0: 38 30 35 30 3A 8B 49 B2  30 A7 A0 31 3A 8D 33 30  |8050:.I.0..1:.30|
000016B0: 32 30 00 B5 28 38 22 A0  31 3A 99 22 93 D4 53 43  |20..(8".1:."..SC|
000016C0: 48 55 45 53 53 21 22 3A  80 00 DD 28 C4 22 9F 31  |HUESS!":...(.".1|
000016D0: 2C 30 34 3A 46 B2 31 3A  4C B2 2E 31 3A 89 37 39  |,04:F.1:L..1:.79|
000016E0: 35 30 3A 8F 20 45 58 50  45 4C 20 41 20 50 41 47  |50:. EXPEL A PAG|
000016F0: 45 00 EE 28 28 23 8F 20  49 4E 49 54 49 41 4C 49  |E..((#. INITIALI|
00001700: 5A 45 00 1E 29 2D 23 4C  50 B2 37 32 3A 4C 30 B2  |ZE..)-#LP.72:L0.|
00001710: 36 30 3A 4D 30 B2 31 36  30 3A 51 24 B2 C7 28 31  |60:M0.160:Q$..(1|
00001720: 34 31 29 3A 52 24 B2 C7  28 31 33 29 3A 4B 24 B2  |41):R$..(13):K$.|
00001730: 22 A4 00 3D 29 32 23 56  B2 B5 28 28 B8 28 30 29  |"..=)2#V..((.(0)|
00001740: AB 32 30 30 30 29 AD 4D  30 29 3A 86 54 24 28 56  |.2000).M0):.T$(V|
00001750: 29 00 7E 29 3C 23 99 22  93 8E 13 13 0F 11 11 11  |).~)<#."........|
00001760: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001770: 11 11 11 11 11 11 22 A6  33 39 29 22 8F 05 22 3A  |......".39)"..":|
00001780: 97 35 39 34 36 38 2C 31  34 3A 8F 20 46 4F 52 4D  |.59468,14:. FORM|
00001790: 41 54 00 B3 29 41 23 97  35 33 32 37 32 2C 32 B0  |AT..)A#.53272,2.|
000017A0: C2 28 35 33 32 37 32 29  3A 99 22 93 20 20 20 20  |.(53272):.".    |
000017B0: 20 12 20 C3 4F 4D 4D 4F  44 4F 52 45 20 D4 C5 D8  | . .OMMODORE ...|
000017C0: D4 20 36 34 20 20 92 00  CE 29 43 23 8D 36 31 30  |. 64  ...)C#.610|
000017D0: 30 30 3A 20 8F 20 43 4F  4C 4F 52 20 43 48 41 4E  |00: . COLOR CHAN|
000017E0: 47 45 00 12 2A 46 23 99  22 11 12 CB 92 41 53 53  |GE..*F#."....ASS|
000017F0: 45 54 54 45 2C 20 12 C4  92 49 53 4B 45 54 54 45  |ETTE, ...ISKETTE|
00001800: 20 4F 44 45 52 20 12 42  92 45 49 44 45 53 22 3B  | ODER .B.EIDES";|
00001810: 3A 58 24 B2 22 44 4B 42  22 3A 8D 38 30 36 30 3A  |:X$."DKB":.8060:|
00001820: 43 46 B2 49 AA 31 00 3C  2A 50 23 42 24 B2 22 20  |CF.I.1.<*P#B$." |
00001830: 20 20 20 20 22 3A 81 49  B2 31 A4 35 3A 42 24 B2  |    ":.I.1.5:B$.|
00001840: 42 24 AA 42 24 3A 82 3A  9F 38 2C 30 38 2C 31 35  |B$.B$:.:.8,08,15|
00001850: 00 63 2A 55 23 99 22 11  D4 41 47 45 53 44 41 54  |.c*U#."..AGESDAT|
00001860: 55 4D 20 20 3F 22 3A 4D  B2 32 30 3A 8D 38 32 30  |UM  ?":M.20:.820|
00001870: 30 3A 44 24 B2 58 24 00  7D 2A 5A 23 4B 24 B2 22  |0:D$.X$.}*Z#K$."|
00001880: 20 22 3A 8F 20 31 35 32  35 20 50 52 49 4E 54 45  | ":. 1525 PRINTE|
00001890: 52 00 AE 2A 64 23 8F 20  4B 24 3D 22 5F 22 3A 51  |R..*d#. K$="_":Q|
000018A0: 24 3D 52 24 2B 43 48 52  24 28 32 37 29 2B 22 0A  |$=R$+CHR$(27)+".|
000018B0: 22 3A 52 45 4D 20 38 33  30 30 20 50 52 49 4E 54  |":REM 8300 PRINT|
000018C0: 45 52 00 C9 2A 78 23 81  49 B2 31 A4 37 3A 4B 24  |ER..*x#.I.1.7:K$|
000018D0: B2 4B 24 AA 4B 24 3A 82  3A 89 31 30 30 00 D2 2A  |.K$.K$:.:.100..*|
000018E0: 8C 23 89 31 30 30 00 F1  2A 10 27 8F 20 4C 45 54  |.#.100..*.'. LET|
000018F0: 54 45 52 48 45 41 44 20  44 41 54 41 2C 20 44 45  |TERHEAD DATA, DE|
00001900: 4C 45 54 45 44 00 F9 2A  1A 27 83 22 22 00 01 2B  |LETED..*.'.""..+|
00001910: 24 27 83 22 22 00 09 2B  2E 27 83 22 22 00 2E 2B  |$'.""..+.'.""..+|
00001920: 60 EA 99 51 39 24 22 20  4E 49 43 48 54 20 47 45  |`..Q9$" NICHT GE|
00001930: 46 55 4E 44 45 4E 22 3A  8D 38 30 30 30 3A 89 31  |FUNDEN":.8000:.1|
00001940: 30 30 00 49 2B 48 EE 8F  20 43 4F 4C 4F 52 20 43  |00.I+H.. COLOR C|
00001950: 48 41 4E 47 45 20 52 4F  55 54 49 4E 45 00 6D 2B  |HANGE ROUTINE.m+|
00001960: 49 EE 96 A5 43 28 58 29  B2 C2 28 58 29 AA 31 AA  |I...C(X)..(X).1.|
00001970: 31 36 AC 28 28 C2 28 58  29 AF 31 35 29 B2 31 35  |16.((.(X).15).15|
00001980: 29 00 93 2B 4A EE 99 3A  99 22 13 11 11 11 11 11  |)..+J..:."......|
00001990: 12 C6 31 92 3D 20 C6 41  52 42 45 20 44 45 53 20  |..1.= .ARBE DES |
000019A0: D2 41 4E 44 45 53 22 00  B3 2B 4B EE 99 22 11 12  |.ANDES"..+K.."..|
000019B0: C6 33 92 3D 20 C8 49 4E  54 45 52 47 52 55 4E 44  |.3.= .INTERGRUND|
000019C0: 2D C6 41 52 42 45 22 00  D3 2B 4C EE 99 22 11 12  |-.ARBE"..+L.."..|
000019D0: C6 35 92 3D 20 C6 41 52  42 45 20 44 45 52 20 DA  |.5.= .ARBE DER .|
000019E0: 45 49 43 48 45 4E 22 00  EC 2B 4D EE 99 22 11 12  |EICHEN"..+M.."..|
000019F0: D2 C5 D4 D5 D2 CE 92 3D  20 D7 45 49 54 45 52 22  |.......= .EITER"|
00001A00: 00 FE 2B 52 EE A1 43 24  3A 8B 43 24 89 36 31 30  |..+R..C$:.C$.610|
00001A10: 31 30 00 13 2C 5C EE A1  43 24 3A 8B 43 24 B2 22  |10..,\..C$:.C$."|
00001A20: 22 89 36 31 30 32 30 00  3A 2C 66 EE 43 B2 C6 28  |".61020.:,f.C..(|
00001A30: 43 24 29 3A 8B 43 B2 31  33 35 A7 97 36 34 36 2C  |C$):.C.135..646,|
00001A40: A5 43 28 36 34 36 29 3A  89 36 31 30 30 32 00 66  |.C(646):.61002.f|
00001A50: 2C 7A EE 43 B2 C6 28 43  24 29 3A 8B 43 B2 31 33  |,z.C..(C$):.C.13|
00001A60: 33 B0 43 B2 31 33 34 A7  58 B2 35 33 31 34 37 AA  |3.C.134.X.53147.|
00001A70: 43 3A 97 58 2C A5 43 28  58 29 00 77 2C 84 EE 8B  |C:.X,.C(X).w,...|
00001A80: 43 B3 B1 31 33 89 36 31  30 31 30 00 7D 2C 8E EE  |C..13.61010.},..|
00001A90: 8E 00 00 00 00 48 FF A0  58 8D                    |.....H..X.      |

.......H$(8),A$(100,8).6....G(147);:.532
80,15:.53281,9.N....G(142)".VVVVVVVVVVVV
VVVVVVVVVVVVVVVVVVVVVVVVVVVV";.Z....T.1.
23...(.."V                              
        V";...2..T...<.."VVVVVVVVVVVVVVV
VVVVVVVVVVVVVVVVVVVVVVVV";...F..2023,86:
.56295,7...P.."..........":..14)"ADDRESS
 BOOK".7.Z...14)".............".H.D..T.1
.3000:.T.B.W..**READ DATA HEADINGS.W.X..
T.0.8:.H$(T):.T...G..**MAIN MENU...H..53
280,6:.53281,11:.G(14)"....";.K.R...11)"
MENU OF ACTIVITIES".......11)"..........
........".......3)"..1. LOAD THE INFORMA
TION FROM DISK.".?....:..3)"2. REVIEW TH
E INFORMATION."._....:..3)"3. ADD A NEW 
ENTRY."......:..3)"4. CHANGE SOME INFORM
ATION."......:..3)"5. DELETE AN ENTRY.".
T....:..3)"6. SAVE THE INFORMATION ON DI
SK."..."..:..3)"7. PRINTING MENU.".!.,..
:..3)"8. MENU OF OTHER PROGRAMS ON DISK.
".P.0.."..........CHOOSE BY PRESSING A N
UMBER.";.E.6..AN$:.AN$."".310..@..AN$."
1".AN$."8"..350...J.M.E(AN$)...T..M.2000
,5000,8000,11000,14000,17000,20000,23000
...]..**IF WRONG MENU INPUT...^..T.1.10.
..H..".......NUMBER";:.Y.1.150:.Y:."....
....NUMBER..";...R..Y.1.150:.Y.5.|..T.>.
...310.X.O..**FROM MENU OPTION 1.E.P..53
280,7...Z.."..........":..17)"LOADING"..
...I.0:J.0......2,8,2,"0:NAMEFILE,S,R"..
....2,A$(I,J).N....ST..0..2100.X. .J.J.1
...$..J.8.J.0:I.I.1...*..2060...4. 2....
.X.I:Z1.1:.200.(....**FROM MENU OPTION 2
.3....30000.@....".":I.0.K....J.0.8.B...
.J.0..G(147)"....".R.....2)A$(I,J).}....
J.6..... ..J.7........J......I.X..5100..
.....14)"..ANOTHER ENTRY? (Y/N)".V....AN
$:.AN$."".5050...D..AN$."Y".AN$."Y".I.I.
1:.5ADRESSEN 64: DATEI-NAME  -...";X$:.X
$."-".4110.2....2,08,2,X$:.8,X,X$:.X. 2:
.60000.K.6.. PREPARE FOR OUTPUT.~.@.TB$.
"":S2.0:N.72:F.1:.1,04:S$.".".H(B$,40.N.
2)...J..".STANDARD-FORMAT";:.8050:.I..75
00.H.H.. GET THE NAME AND SALUTATION...R
..2,Z$:.ST.0.C(Z$).2.4900:. NO LAST NAME
.4.|.L$."":.7450:X$."":Y$."":M$."SEHR GE
EHRTE DAMEN UND HERREN,".C....2,X$:.C(X$
).2.X$."":.4250:. NO FIRST NAME.....M$."
LIEBE/R ".X$.",":X$.X$." "......2,Y$:.C(
Y$).2.Y$."":.4270:. NO TITLE.U...Y$.Y$."
 ":M$."LIEBE/R ".Y$.Z$.",.....L$.Y$.X$.Z
$:.2,X$:.C(X$).2.L$.L$.", ".X$.+...Z$.M$
:M$."":P$.L$:.7900:. PRINT NAME.=.L.. GE
T ADDRESS.E.V..2,L$:.C(L$).1.P$.L$:.7900
:. LINE 2......2,L$:.C(L$).1.P$.L$:.7900
:. LINE 3.A....2,L$:.2,Y$:.C(Y$).1.L$.L$
.", ".Y$:. STATE, ZIP.Z....C(L$).1.P$.L$
:.7900......I.L.14:.7900:.:L$.Z$:P$.L$:.
7090:.4200...$. 2:.100.+.P.. SEARCH AND 
REPLACE.H.Z.."..SUCHEN NACH?":M.40:.8200
:Z$.X$:L.C(X$):.L.0.L.M.6010......:.".ER
SETZEN DURCH?":.8200:Y$.X$:.:......X$.""
:M$."":L$."":T.0:U.0:F.0:OF.1.O.8.. ATTA
CH T$ TO X$...B..C(X$)..L.6250...L..T.V.
6400:. ALL T$'S READ.%.V.X$.X$.T$(T):T$(
T)."":T.T.1:.6200.<.J.. SEARCH FOR MATCH
.J.T..I.1.C(X$).L.1:.J(X$,I,L)..Z$..:J.I
:.6300...~.M$.Y$:J.I.L:.".";...... SPLIT
 STRINGS.G...M$.H(X$,I.1).M$:X$.J(X$,J):
.6500:.F.6900:.6200.Z.... STOW LAST L$..
....6500:.F.6900:. CLEAR M$.#...M$.X$:.6
500:.F.6900:. M$_X$; CLEAR BOTH.Z....U..
V.T.U:.650:.100:. STOW L$, CLEAR HIGHER 
BLOCKS.D.(..6900...D.. CLEAR M$ - STOW L
$ IF NEEDED...N.M.M0.C(L$):L$.L$.H(M$,M)
:M$.J(M$,M.1):.C(L$).M0...L.X..U..V.6550
......U.T.T$(U).L$:."*.";:U.U.1:L$.M$:M$
."":..3....T.V..I.V.T.1..1:T$(I).T$(I.1)
:.:T$(T)."":T.T.1:.6530.=...F.1:..N.... 
ERROR EXIT.....:.".OUT OF ROOM - DATA I
MPAIRED":.8000:.100...X.. FORMAT AND PRI
NT...B..7020:.100...L..1,04:F.1:. PRINTE
R...V.S2.1:N.60:TB$."":X$."FID":. DEFAUL
TS (DRAFT)."...."..F.ORMAL, .I.NFORMAL, 
OR .D.RAFT";:.8060:J.I.;....J.2.S2.0:N.7
2:.7500.F...S$.".".H(B$,40.N.2):.J.0.740
0:. FORMAL.....L$.".".H$:P$.H$:M$.H(K$,C
(H$)).....J.0:.".":.7900:.7900:.J...Q...
T.0:X$."]".TB$:E.0:Z$.B$:. PRINT TEXT.. 
F..C(X$)..N.X$.X$.T$(T):T.T.1:.C(X$)..N.
T.V.X$.X$."\.8 K..F(X$).32.X$.J(X$,2):.7
110:. LEADING BLANKS.I P..E.X$."[".X$.. 
Z.L$.H(X$,N.1):P$.L$:J.0:K.0:M$.B$:.I.1.
C(L$):C.F(J(L$,I)).. ...C.90.C.96..7700:
.X.I.J:.7160.. ...:.I.C(L$).J.1..1:.J(L$
,I,1)." "..:I.J:.J.0.7990..!..J.0:X$.J(X
$,I.1):L$.H(L$,I.1):P$.H(P$,I.K):M$.H(M$
,I.K).:!...C.94.C.95.E.0:X$."]".TB$.X$.I
! .X.C:.7900:.J.0.X.94.X.92..7950:.J.0.X
.92...S!*..7110..!... FORMAL..!..L$."":.
7450:.".VIER ADRESS-ZEILEN":M.N:.I.1.4..
!..."ZEILE"I:.8200:.:.C(X$).M..".ZU LANG
 ":.7420.."..P$.X$:.7900:.:.7900:.7900.&
"..."ANREDE    ":.8200:P$.X$:.7090.W"...
:M$."":Y$.S$:.I.1.3:.P$:.7490:.:P$.D$:.7
490.R"...I.1.5:.7900:.:S$.Y$:..."B.K.C(P
$):S$.".".H(B$,40.K.2):.7900.."L.. FORMA
T VARIATIONS.X"V..".STANDARD-FORMAT:":.,
" EIN-ZEILIG..#`..,N"ZEICHEN PRO ZEILE  
":.,LL"ZEILEN PRO SEITE.'#J..," TAB-LAEN
GE ="C(TB$).T#T..".MOECHTEN SIE ES AENDE
RN ";:.8050:.I...U#~..".EIN-ZEILIG  ";:.
8050:S2.I..#...".ZEICHEN PRO ZEILE   (20
-80)  72 .....";N..#...N.20.N.80.."..":.
7560..#...".ZEILEN PRO SEITE "LL".  ....
..";:.LL:.LL.1.."..":.7580.9$...".LAENGE
 DER TAB.";:X$."0123456789":.8060:TB$.H(
B$,I).?$....Q$... ENHANCEMENT..$(.K.K.1:
X.1:J.I:.C.91.C.93.X.0:E.(C.91):Z$.B$:Y$
.".":.E.Z$.K$:Y$."...$2.L$.H(L$,I.1).Y$.
J(L$,I.1)..$F.P$.H(P$,I.K).J(L$,I.1):M$.
H(M$,I.K).J(Z$,I.1):...$... LINE OUT..%.
..P$."".P$.S$.P$.'%...L$;:.7930:.J.0.S2.
0...I%...F..:.1,P$;:.M$.B$..1,Q$S$M$;.P%
...1:P$."":L$."":M$."":L.L.1:.L.LL....%.
..F.0..8000:L.0:...%...L..I.L.LP.1:.1:.:
L.0:. PAGE WITH BLANKS..%"..".":...%6.J.
1:.".ZEILE FUER DRUCK ZU LANG":.7950:...
%@.. UTILITIES..&J..".. WEITER MIT BELIE
BIGER TASTE";:.20:.:.".":..9&R.X$."JN.D&
|.."? ";.N&...20:.I.1.C(X$):.C$..J(X$,I,
1)..:.8070.}&..I.I.1:.C$;..&...W$:.W$.""
.."..";:.8080..&..." .";:.W$.R$..:..H&..
.W$.G(20)..W$;:.8070.R&...8080..&. X$.""
:. INPUT A STRING..&. .C$:.C$.8210..'. .
25:.C.13.C.92.8290.E'& .C.20.X$.""..C$;:
X$.H(X$,C(X$).1):. DELETE.E'0 .C.20.8220
:. DELETE ON NULL..': .(127.C).32.8220:.
 CURSOR CONTROL CHARACTERS..'D .C$;:.C.3
4..C$G(20);.J'N X$.X$.C$:.C(X$).M.8220.P
'B ...'.!. QUIT THE PROGRAM..(."."..SEIT
ENVORSCHUB AM DRUCKER    ";:.8050:.I.874
0.E(.".1,04:F.1:L..1:.7950:. EXPEL A PAG
E.]($".OF.0.T$(0)."".8760..(.".".DOKUMEN
T NICHT GESICHERT; SPEICHERN";:.8050:.I.
0. 1:.3020..(8" 1:.".TSCHUESS!":...(D".1
,04:F.1:L..1:.7950:. EXPEL A PAGE..((#. 
INITIALIZE..)-#LP.72:L0.60:M0.160:Q$.G(1
41):R$.G(13):K$."..=)2#V..((.(0).2000).M
0):.T$(V).~)<#."........................
......".39)"..":.59468,14:. FORMAT..)A#.
53272,2.B(53272):.".     . COMMODORE TEX
T 64  ..N)C#.61000: . COLOR CHANGE..*F#.
"..K.ASSETTE, .D.ISKETTE ODER .B.EIDES";
:X$."DKB":.8060:CF.I.1.<*P#B$."     ":.I
.1.5:B$.B$.B$:.:.8,08,15.C*U#.".TAGESDAT
UM  ?":M.20:.8200:D$.X$.}*Z#K$." ":. 152
5 PRINTER..*D#. K$="_":Q$=R$+CHR$(27)+".
":REM 8300 PRINTER.I*X#.I.1.7:K$.K$.K$:.
:.100.R*.#.100..*.'. LETTERHEAD DATA, DE
LETED..*.'.""..+$'.""..+.'.""..+`..Q9$" 
NICHT GEFUNDEN":.8000:.100.I+H.. COLOR C
HANGE ROUTINE.M+I...C(X).B(X).1.16.((B(X
).15).15)..+J..:.".......F1.= FARBE DES 
RANDES"..+K.."..F3.= HINTERGRUND-FARBE".
S+L.."..F5.= FARBE DER ZEICHEN"..+M.."..
RETURN.= WEITER"..+R..C$:.C$.61010..,\..
C$:.C$."".61020.:,F.C.F(C$):.C.135..646,
.C(646):.61002.F,Z.C.F(C$):.C.133.C.134.
X.53147.C:.X,.C(X).W,...C..13.61010.},..
.....H. X.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL