TEXT CBM
FILE INFORMATION
FILENAME(S): TEXT CBM
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-10-20 14:26:14
APPEARS ON: 1 disk(s)
FILE HASH
e8f17f90611945405e812d1f56a683d78722489a609fc1245625934a3bd04a8c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARBEITSP | TEXT CBM | PRG | Treasure Chest - Katarakt | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 05 00 99 C7 28 31 34 29 3A 97 36 35 |........(14):.65| 00000010: 37 2C 31 32 38 3A 97 37 38 38 2C 35 32 00 57 08 |7,128:.788,52.W.| 00000020: 0A 00 89 39 30 30 30 3A 8F 20 28 43 29 20 31 39 |...9000:. (C) 19| 00000030: 38 32 20 42 59 20 43 4F 4D 4D 4F 44 4F 52 45 20 |82 BY COMMODORE | 00000040: 42 55 53 49 4E 45 53 53 20 4D 41 43 48 49 4E 45 |BUSINESS MACHINE| 00000050: 53 2C 20 49 4E 43 2E 00 66 08 14 00 A1 43 24 3A |S, INC..f....C$:| 00000060: 8B 43 24 89 32 30 00 83 08 19 00 A1 43 24 3A 8B |.C$.20......C$:.| 00000070: 43 24 A7 99 22 20 9D 22 3B 3A 43 B2 C6 28 43 24 |C$.." .";:C..(C$| 00000080: 29 3A 8E 00 92 08 1B 00 99 22 A4 9D 22 3B 3A 89 |):......."..";:.| 00000090: 32 35 00 A4 08 1E 00 A1 43 24 3A 8B 43 24 B2 22 |25......C$:.C$."| 000000A0: 22 89 33 30 00 D9 08 20 00 58 B2 C6 28 43 24 29 |".30... .X..(C$)| 000000B0: 3A 43 B2 58 AF 31 32 37 3A 8B 43 B2 31 33 B0 43 |:C.X.127:.C.13.C| 000000C0: B2 31 37 B0 43 B2 31 39 B0 43 B2 32 30 B0 43 B2 |.17.C.19.C.20.C.| 000000D0: 32 39 B0 43 B1 33 31 A7 8E 00 E1 08 22 00 89 33 |29.C.31....."..3| 000000E0: 30 00 EB 08 28 00 58 24 B2 22 22 00 09 09 2A 00 |0...(.X$.""...*.| 000000F0: A1 23 31 2C 43 24 3A 8B 43 24 B2 52 24 B0 43 24 |.#1,C$:.C$.R$.C$| 00000100: B2 C7 28 31 34 31 29 A7 8E 00 1A 09 2C 00 58 24 |..(141).....,.X$| 00000110: B2 58 24 AA 43 24 3A 89 34 32 00 33 09 64 00 4C |.X$.C$:.42.3.d.L| 00000120: B2 30 3A 4C 4C B2 4C 30 3A A0 31 3A 8F 20 45 4E |.0:LL.L0:.1:. EN| 00000130: 54 52 59 00 5C 09 6E 00 99 22 93 20 20 20 20 20 |TRY.\.n..". | 00000140: 20 12 20 C3 4F 4D 4D 4F 44 4F 52 45 20 D4 C5 D8 | . .OMMODORE ...| 00000150: D4 20 36 34 20 20 20 20 20 20 11 11 00 72 09 78 |. 64 ...r.x| 00000160: 00 99 2C 22 C6 55 4E 4B 54 49 4F 4E 45 4E 3A 11 |..,".UNKTIONEN:.| 00000170: 11 22 00 96 09 7D 00 99 2C 22 12 C5 92 52 53 54 |."...}..,"...RST| 00000180: 45 4C 4C 45 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 |ELLEN EINES .OKU| 00000190: 4D 45 4E 54 45 53 00 BA 09 82 00 99 2C 22 12 D3 |MENTES......,"..| 000001A0: 92 50 45 49 43 48 45 52 4E 20 45 49 4E 45 53 20 |.PEICHERN EINES | 000001B0: C4 4F 4B 55 4D 45 4E 54 45 53 00 DD 09 87 00 99 |.OKUMENTES......| 000001C0: 2C 22 12 C1 92 55 46 52 55 46 45 4E 20 45 49 4E |,"...UFRUFEN EIN| 000001D0: 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 FF 09 |ES .OKUMENTES...| 000001E0: 8C 00 99 2C 22 12 C4 92 52 55 43 4B 45 4E 20 45 |...,"...RUCKEN E| 000001F0: 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 |INES .OKUMENTES.| 00000200: 24 0A 96 00 99 2C 22 12 D6 92 45 52 41 45 4E 44 |$....,"...ERAEND| 00000210: 45 52 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 |ERN EINES .OKUME| 00000220: 4E 54 45 53 00 4A 0A A0 00 99 2C 22 12 C7 92 4C |NTES.J....,"...L| 00000230: 4F 42 41 4C 45 53 20 D3 55 43 48 45 4E 20 55 4E |OBALES .UCHEN UN| 00000240: 44 20 D4 41 55 53 43 48 45 4E 00 6F 0A A5 00 99 |D .AUSCHEN.o....| 00000250: 2C 22 12 C2 92 D3 2D C1 4E 5A 45 49 47 45 20 45 |,"....-.NZEIGE E| 00000260: 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 |INES .OKUMENTES.| 00000270: 90 0A AA 00 99 2C 22 12 D2 92 55 4E 44 53 43 48 |.....,"...UNDSCH| 00000280: 52 45 49 42 45 4E 20 C5 52 53 54 45 4C 4C 45 4E |REIBEN .RSTELLEN| 00000290: 00 A6 0A B9 00 99 2C 22 12 D0 92 52 4F 47 52 41 |......,"...ROGRA| 000002A0: 4D 4D 45 4E 44 45 00 D8 0A BE 00 58 24 B2 22 50 |MMENDE.....X$."P| 000002B0: 42 56 47 44 53 52 41 45 22 3A 99 22 11 D7 45 4C |BVGDSRAE":."..EL| 000002C0: 43 48 45 20 20 20 22 3B 3A 8D 38 30 36 30 3A 8B |CHE ";:.8060:.| 000002D0: 49 B2 30 89 38 37 30 30 00 E9 0A C3 00 4A B2 49 |I.0.8700.....J.I| 000002E0: 3A 8B 4A B3 34 89 32 35 30 00 00 0B C8 00 99 22 |:.J.4.250......"| 000002F0: 93 22 3A 8F 20 47 45 54 20 53 55 42 4A 45 43 54 |.":. GET SUBJECT| 00000300: 00 46 0B D2 00 8B 48 24 B1 22 22 A7 99 22 C4 4F |.F....H$.""..".O| 00000310: 4B 55 4D 45 4E 54 3A 20 12 22 48 24 3A 99 22 11 |KUMENT: ."H$:.".| 00000320: 28 D2 C5 D4 D5 D2 CE 20 4C 41 45 53 53 54 20 44 |(...... LAESST D| 00000330: 45 4E 20 CE 41 4D 45 4E 20 55 4E 56 45 52 41 45 |EN .AMEN UNVERAE| 00000340: 4E 44 45 52 54 29 00 73 0B DC 00 4D B2 36 31 3A |NDERT).s...M.61:| 00000350: 99 22 11 C4 4F 4B 55 4D 45 4E 54 2D CE 41 4D 45 |."..OKUMENT-.AME| 00000360: 3A 22 3A 8D 38 32 30 30 3A 8B 43 B3 B1 31 33 89 |:":.8200:.C..13.| 00000370: 32 30 30 00 86 0B E6 00 99 3A 8B 58 24 B1 22 22 |200......:.X$.""| 00000380: A7 48 24 B2 58 24 00 95 0B F0 00 8B 48 24 B2 22 |.H$.X$......H$."| 00000390: 22 89 32 30 30 00 D0 0B FA 00 8B 4A B3 37 AF 54 |".200......J.7.T| 000003A0: 24 28 30 29 B2 22 22 A7 99 22 11 CB 45 49 4E 20 |$(0)."".."..EIN | 000003B0: C4 4F 4B 55 4D 45 4E 54 20 49 4D 20 D3 50 45 49 |.OKUMENT IM .PEI| 000003C0: 43 48 45 52 22 3A 8D 38 30 30 30 3A 89 31 30 30 |CHER":.8000:.100| 000003D0: 00 EB 0B 04 01 8B 4F 46 B2 30 B0 4A B3 37 B0 54 |......OF.0.J.7.T| 000003E0: 24 28 30 29 B2 22 22 89 32 38 30 00 32 0C 0E 01 |$(0)."".280.2...| 000003F0: 99 22 11 C4 4F 4B 55 4D 45 4E 54 20 4E 49 43 48 |."..OKUMENT NICH| 00000400: 54 20 47 45 53 50 45 49 43 48 45 52 54 20 2E 2E |T GESPEICHERT ..| 00000410: 2E 20 D3 50 45 49 43 48 45 52 20 4C 4F 45 53 43 |. .PEICHER LOESC| 00000420: 48 45 4E 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 31 |HEN";:.8050:.I.1| 00000430: 30 30 00 5F 0C 18 01 91 4A 89 34 30 30 2C 31 30 |00._....J.400,10| 00000440: 30 30 2C 36 30 30 30 2C 37 30 30 30 2C 33 30 30 |00,6000,7000,300| 00000450: 30 2C 34 30 30 30 2C 32 30 30 30 2C 35 30 30 00 |0,4000,2000,500.| 00000460: 74 0C 90 01 8F 20 52 45 41 44 20 54 4F 20 53 43 |t.... READ TO SC| 00000470: 52 45 45 4E 00 9E 0C 9A 01 4E B2 33 39 3A 46 B2 |REEN.....N.39:F.| 00000480: 30 3A 4C 4C B2 32 30 3A 54 42 24 B2 22 22 3A 9F |0:LL.20:TB$."":.| 00000490: 31 2C 33 3A 8D 37 30 38 30 3A 89 31 30 30 00 BC |1,3:.7080:.100..| 000004A0: 0C F4 01 4F 46 B2 31 3A 54 B2 30 3A 8F 20 57 52 |...OF.1:T.0:. WR| 000004B0: 49 54 45 20 4E 45 57 20 54 45 58 54 00 F5 0C F9 |ITE NEW TEXT....| 000004C0: 01 99 22 93 12 22 48 24 3A 99 3A 99 22 A4 A4 A4 |..".."H$:.:."...| 000004D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 000004E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 000004F0: A4 A4 A4 A4 A4 00 05 0D FE 01 A1 43 24 3A 8B 43 |...........C$:.C| 00000500: 24 89 35 31 30 00 24 0D 08 02 4D B2 4D 30 3A 81 |$.510.$...M.M0:.| 00000510: 49 B2 54 A4 56 3A 54 24 28 49 29 B2 22 22 3A 58 |I.T.V:T$(I)."":X| 00000520: 24 B2 22 22 00 41 0D 12 02 8D 38 32 32 30 3A 8B |$."".A....8220:.| 00000530: 43 B2 31 33 A7 99 3A 8B 58 24 B2 22 22 89 35 33 |C.13..:.X$."".53| 00000540: 30 00 57 0D 1C 02 54 24 28 49 29 B2 58 24 3A 8B |0.W...T$(I).X$:.| 00000550: 43 B3 B1 39 32 A7 82 00 74 0D 26 02 8B 49 B3 56 |C..92...t.&..I.V| 00000560: A7 81 49 B2 49 AA 31 A4 56 3A 54 24 28 49 29 B2 |..I.I.1.V:T$(I).| 00000570: 22 22 3A 82 00 9F 0D 58 02 54 B2 30 3A 4C 24 B2 |"":....X.T.0:L$.| 00000580: 22 22 3A 8D 36 31 30 3A 89 31 30 30 3A 8F 20 50 |"":.610:.100:. P| 00000590: 41 43 4B 20 54 48 45 20 53 54 52 49 4E 47 53 00 |ACK THE STRINGS.| 000005A0: BA 0D 62 02 99 3A 81 49 B2 54 A4 56 3A 8B 54 24 |..b..:.I.T.V:.T$| 000005B0: 28 49 29 B2 22 22 89 36 33 30 00 E0 0D 67 02 58 |(I)."".630...g.X| 000005C0: 24 B2 54 24 28 49 29 3A 4D B2 4D 30 AB C3 28 4C |$.T$(I):M.M0..(L| 000005D0: 24 29 3A 4C 24 B2 4C 24 AA C8 28 58 24 2C 4D 29 |$):L$.L$..(X$,M)| 000005E0: 00 16 0E 6C 02 58 24 B2 CA 28 58 24 2C 4D AA 31 |...l.X$..(X$,M.1| 000005F0: 29 3A 8B C3 28 4C 24 29 B2 4D 30 A7 54 24 28 54 |):..(L$).M0.T$(T| 00000600: 29 B2 4C 24 3A 99 22 2A 22 3B 3A 4C 24 B2 58 24 |).L$:."*";:L$.X$| 00000610: 3A 54 B2 54 AA 31 00 1C 0E 76 02 82 00 44 0E 8A |:T.T.1...v...D..| 00000620: 02 99 3A 54 24 28 54 29 B2 4C 24 3A 8B 54 B3 56 |..:T$(T).L$:.T.V| 00000630: A7 81 49 B2 54 AA 31 A4 56 3A 54 24 28 49 29 B2 |..I.T.1.V:T$(I).| 00000640: 22 22 3A 82 00 4A 0E 94 02 8E 00 5E 0E E8 03 8F |"":..J.....^....| 00000650: 20 45 44 49 54 20 54 48 45 20 54 45 58 54 00 A6 | EDIT THE TEXT..| 00000660: 0E F2 03 85 22 93 D7 49 45 56 49 45 4C 20 25 20 |...."..IEVIEL % | 00000670: D4 45 58 54 20 55 45 42 45 52 53 50 52 49 4E 47 |.EXT UEBERSPRING| 00000680: 45 4E 20 28 30 2D 31 30 30 29 20 20 30 9D 9D 9D |EN (0-100) 0...| 00000690: 22 3B 54 3A 54 B2 B6 28 54 29 3A 8B 54 B1 39 39 |";T:T..(T):.T.99| 000006A0: A7 54 B2 31 30 30 00 C2 0E FC 03 4F 46 B2 31 3A |.T.100.....OF.1:| 000006B0: 81 49 B2 30 A4 56 3A 8B 54 24 28 49 29 B1 22 22 |.I.0.V:.T$(I).""| 000006C0: A7 82 00 DC 0E 06 04 49 B2 49 AB 31 3A 54 B2 B5 |.......I.I.1:T..| 000006D0: 28 54 AC 49 AD 31 30 30 AA 2E 35 29 00 ED 0E 10 |(T.I.100..5)....| 000006E0: 04 4C B2 30 3A 8B 54 B1 56 89 31 30 30 00 06 0F |.L.0:.T.V.100...| 000006F0: 1A 04 58 24 B2 54 24 28 54 29 3A 8B 58 24 B2 22 |..X$.T$(T):.X$."| 00000700: 22 89 31 39 30 30 00 24 0F 24 04 50 24 B2 C8 28 |".1900.$.$.P$..(| 00000710: 48 24 2C 32 30 29 3A 8B 54 A7 50 24 B2 54 24 28 |H$,20):.T.P$.T$(| 00000720: 54 AB 31 29 00 48 0F 2E 04 99 22 93 12 22 C9 28 |T.1).H...."..".(| 00000730: 50 24 2C 32 30 29 3A 99 22 13 22 A6 32 39 29 22 |P$,20):.".".29)"| 00000740: 92 C2 4C 4F 43 4B 22 54 00 7D 0F 38 04 99 22 11 |..LOCK"T.}.8..".| 00000750: 11 11 11 11 11 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000760: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000770: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 8E 0F |................| 00000780: 42 04 A1 43 24 3A 8B 43 24 89 31 30 39 30 00 A7 |B..C$:.C$.1090..| 00000790: 0F 4C 04 8F 20 26 20 53 45 54 20 43 55 52 53 4F |.L.. & SET CURSO| 000007A0: 52 20 28 41 2C 44 29 00 D3 0F 56 04 99 22 13 11 |R (A,D)...V.."..| 000007B0: 11 22 C8 28 58 24 2C 4C 29 3A 99 22 13 11 11 22 |.".(X$,L):."..."| 000007C0: A6 4C 29 22 20 9D 12 22 CA 28 58 24 2C 4C AA 31 |.L)" ..".(X$,L.1| 000007D0: 2C 31 29 00 FF 0F 6A 04 99 22 13 11 11 22 A6 4C |,1)...j.."...".L| 000007E0: AA 31 29 CA 28 58 24 2C 4C AA 32 29 C8 28 42 24 |.1).(X$,L.2).(B$| 000007F0: 2C 4D 30 AB C3 28 58 24 29 29 3A 99 22 11 11 00 |,M0..(X$)):."...| 00000800: 21 10 B0 04 8D 33 30 3A 8B 58 B2 39 32 A7 54 24 |!....30:.X.92.T$| 00000810: 28 54 29 B2 58 24 3A 89 36 30 30 3A 8F 20 45 4E |(T).X$:.600:. EN| 00000820: 44 00 50 10 BA 04 8B 58 B2 32 39 A7 4C B2 4C AB |D.P....X.29.L.L.| 00000830: 28 4C AA 31 B3 C3 28 58 24 29 29 3A 89 31 31 30 |(L.1..(X$)):.110| 00000840: 30 3A 8F 20 43 55 52 53 4F 52 20 52 49 47 48 54 |0:. CURSOR RIGHT| 00000850: 00 78 10 C4 04 8B 43 B2 32 39 A7 4C B2 4C AA 28 |.x....C.29.L.L.(| 00000860: 4C B1 30 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 |L.0):.1100:. CUR| 00000870: 53 4F 52 20 4C 45 46 54 00 AA 10 CE 04 8B 58 B2 |SOR LEFT......X.| 00000880: 31 37 A7 4C B2 4C AB 34 30 AC 28 4C AA 34 30 B3 |17.L.L.40.(L.40.| 00000890: C3 28 58 24 29 29 3A 89 31 31 30 30 3A 8F 20 43 |.(X$)):.1100:. C| 000008A0: 55 52 53 4F 52 20 44 4F 57 4E 00 D4 10 D8 04 8B |URSOR DOWN......| 000008B0: 43 B2 31 37 A7 4C B2 4C AA 34 30 AC 28 4C B1 33 |C.17.L.L.40.(L.3| 000008C0: 39 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F |9):.1100:. CURSO| 000008D0: 52 20 55 50 00 F6 10 E2 04 8B 58 B2 31 39 A7 4C |R UP......X.19.L| 000008E0: B2 30 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F |.0:.1100:. CURSO| 000008F0: 52 20 48 4F 4D 45 00 30 11 EC 04 8B 43 B2 31 39 |R HOME.0....C.19| 00000900: A7 81 49 B2 54 A4 56 AB 31 3A 54 24 28 49 29 B2 |..I.T.V.1:T$(I).| 00000910: 54 24 28 49 AA 31 29 3A 82 3A 54 24 28 56 29 B2 |T$(I.1):.:T$(V).| 00000920: 22 22 3A 89 31 30 34 30 3A 8F 20 43 4C 45 41 52 |"":.1040:. CLEAR| 00000930: 00 5C 11 F6 04 8B 58 B2 31 33 A7 54 24 28 54 29 |.\....X.13.T$(T)| 00000940: B2 58 24 3A 54 B2 54 AA 31 3A 89 31 30 34 30 3A |.X$:T.T.1:.1040:| 00000950: 8F 20 4E 45 58 54 20 42 4C 4F 43 4B 00 8D 11 00 |. NEXT BLOCK....| 00000960: 05 8B 43 B2 31 33 A7 54 24 28 54 29 B2 58 24 3A |..C.13.T$(T).X$:| 00000970: 54 B2 54 AA 28 54 B1 30 29 3A 89 31 30 34 30 3A |T.T.(T.0):.1040:| 00000980: 8F 20 50 52 49 4F 52 20 42 4C 4F 43 4B 00 A0 11 |. PRIOR BLOCK...| 00000990: 0A 05 8B 4C B1 B2 C3 28 58 24 29 89 31 31 30 30 |...L...(X$).1100| 000009A0: 00 C4 11 14 05 4C 24 B2 C8 28 58 24 2C 4C 29 3A |.....L$..(X$,L):| 000009B0: 8B 58 B2 31 34 38 89 31 33 35 30 3A 8F 20 49 4E |.X.148.1350:. IN| 000009C0: 53 45 52 54 00 07 12 1E 05 4D 24 B2 CA 28 58 24 |SERT.....M$..(X$| 000009D0: 2C 4C AA 32 29 3A 8B 43 B3 B1 32 30 A7 58 24 B2 |,L.2):.C..20.X$.| 000009E0: 4C 24 AA 43 24 AA 4D 24 3A 58 B2 32 39 3A 89 31 |L$.C$.M$:X.29:.1| 000009F0: 32 31 30 3A 8F 20 52 45 50 4C 41 43 45 20 43 48 |210:. REPLACE CH| 00000A00: 41 52 41 43 54 45 52 00 33 12 32 05 58 24 B2 4C |ARACTER.3.2.X$.L| 00000A10: 24 AA 4D 24 3A 8B 58 24 B2 22 22 A7 43 B2 31 39 |$.M$:.X$."".C.19| 00000A20: 3A 89 31 32 36 30 3A 8F 20 4E 55 4C 4C 20 42 4C |:.1260:. NULL BL| 00000A30: 4F 43 4B 00 3D 12 3C 05 89 31 31 30 30 00 6E 12 |OCK.=.<..1100.n.| 00000A40: 46 05 4D 24 B2 CA 28 58 24 2C 4C AA 31 29 3A 99 |F.M$..(X$,L.1):.| 00000A50: 22 93 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 00000A60: 11 12 22 4D 24 3A 99 22 13 11 11 22 4C 24 00 8C |.."M$:."..."L$..| 00000A70: 12 4B 05 99 22 13 11 11 22 A3 C3 28 4C 24 29 29 |.K.."..."..(L$))| 00000A80: 3B 3A 4D B2 4D 30 3A 8D 38 32 30 30 00 B9 12 50 |;:M.M0:.8200...P| 00000A90: 05 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C |.M.M0..(L$):L$.L| 00000AA0: 24 AA C8 28 58 24 2C 4D 29 3A 4D 24 B2 CA 28 58 |$..(X$,M):M$..(X| 00000AB0: 24 2C 4D AA 31 29 AA 4D 24 00 F8 12 5A 05 4D B2 |$,M.1).M$...Z.M.| 00000AC0: 4D 30 AB C3 28 4C 24 29 3A 54 24 28 54 29 B2 4C |M0..(L$):T$(T).L| 00000AD0: 24 AA C8 28 4D 24 2C 4D 29 3A 4C 24 B2 CA 28 4D |$..(M$,M):L$..(M| 00000AE0: 24 2C 4D AA 31 29 3A 4D 24 B2 22 22 3A 8B 4C 24 |$,M.1):M$."":.L$| 00000AF0: B2 22 22 89 31 30 35 30 00 15 13 64 05 58 B2 54 |."".1050...d.X.T| 00000B00: 3A 54 B2 54 AA 31 3A 8D 36 31 30 3A 54 B2 58 3A |:T.T.1:.610:T.X:| 00000B10: 89 31 30 35 30 00 2A 13 6C 07 8F 20 41 44 44 20 |.1050.*.l.. ADD | 00000B20: 54 4F 20 54 48 45 20 45 4E 44 00 3D 13 76 07 8B |TO THE END.=.v..| 00000B30: 54 B2 30 89 36 30 30 3A 8F 20 45 4E 44 00 65 13 |T.0.600:. END.e.| 00000B40: 80 07 58 24 B2 54 24 28 54 AB 31 29 3A 99 22 93 |..X$.T$(T.1):.".| 00000B50: 22 58 24 3A 99 22 13 22 A6 C3 28 58 24 29 29 3B |"X$:."."..(X$));| 00000B60: 3A 89 35 31 30 00 76 13 D0 07 8F 20 49 4E 50 55 |:.510.v.... INPU| 00000B70: 54 20 46 49 4C 45 00 A3 13 D5 07 51 39 24 B2 22 |T FILE.....Q9$."| 00000B80: C4 4F 4B 55 4D 45 4E 54 22 3A 20 8F 20 46 4F 52 |.OKUMENT": . FOR| 00000B90: 20 45 52 52 4F 52 20 4D 53 47 20 49 4E 20 36 30 | ERROR MSG IN 60| 00000BA0: 30 30 30 00 CA 13 EE 07 8B 43 46 B1 32 A7 99 22 |000......CF.2.."| 00000BB0: 11 D6 4F 4E 20 44 45 52 20 C4 41 54 41 53 45 54 |..ON DER .ATASET| 00000BC0: 54 45 22 3B 3A 8D 38 30 35 30 00 EF 13 F8 07 8B |TE";:.8050......| 00000BD0: 43 46 B2 32 B0 28 43 46 B1 32 AF 49 B2 30 29 A7 |CF.2.(CF.2.I.0).| 00000BE0: 9F 31 2C 31 2C 30 2C 48 24 3A 89 32 31 30 30 00 |.1,1,0,H$:.2100.| 00000BF0: 15 14 02 08 9F 31 2C 30 38 2C 32 2C C8 28 48 24 |.....1,08,2,.(H$| 00000C00: 2C 31 36 29 3A 84 38 2C 58 2C 58 24 3A 8B 58 89 |,16):.8,X,X$:.X.| 00000C10: 36 30 30 30 30 00 4C 14 34 08 4F 46 B2 30 3A 8D |60000.L.4.OF.0:.| 00000C20: 34 30 3A 99 22 11 CC 49 45 53 54 20 20 3A 20 12 |40:."..IEST : .| 00000C30: 22 58 24 3A 48 24 B2 58 24 3A 8D 34 30 3A 99 58 |"X$:H$.X$:.40:.X| 00000C40: 24 3A 99 3A 8F 20 48 45 41 44 45 52 00 73 14 98 |$:.:. HEADER.s..| 00000C50: 08 58 24 B2 C7 28 33 31 29 3A 81 49 B2 30 A4 56 |.X$..(31):.I.0.V| 00000C60: 3A 4C 24 B2 22 22 3A 8F 20 49 4E 50 55 54 20 46 |:L$."":. INPUT F| 00000C70: 49 4C 45 00 95 14 A2 08 81 4A B2 31 A4 4D 30 3A |ILE......J.1.M0:| 00000C80: A1 23 31 2C 43 24 3A 8B 53 54 A7 4A B2 4D 30 3A |.#1,C$:.ST.J.M0:| 00000C90: 89 32 32 33 30 00 C1 14 AC 08 8B 43 24 B1 58 24 |.2230......C$.X$| 00000CA0: A7 4C 24 B2 4C 24 AA 43 24 3A 8F 20 4F 4E 4C 59 |.L$.L$.C$:. ONLY| 00000CB0: 20 4C 45 47 41 4C 20 43 48 41 52 41 43 54 45 52 | LEGAL CHARACTER| 00000CC0: 53 00 E5 14 B6 08 82 4A 3A 54 24 28 49 29 B2 4C |S......J:T$(I).L| 00000CD0: 24 3A 99 4C 24 3B 3A 8B 53 54 B2 30 A7 82 49 3A |$:.L$;:.ST.0..I:| 00000CE0: 49 B2 49 AB 31 00 FD 14 CA 08 54 B2 49 3A 8D 36 |I.I.1.....T.I:.6| 00000CF0: 35 30 3A 8D 38 30 30 30 3A 89 31 30 30 00 1A 15 |50:.8000:.100...| 00000D00: B8 0B 8D 33 30 32 30 3A 89 31 30 30 3A 8F 20 4F |...3020:.100:. O| 00000D10: 55 54 50 55 54 20 46 49 4C 45 00 3D 15 CC 0B 8B |UTPUT FILE.=....| 00000D20: 43 46 B1 32 A7 99 22 93 C1 55 46 20 C4 41 54 41 |CF.2.."..UF .ATA| 00000D30: 53 45 54 54 45 22 3B 3A 8D 38 30 35 30 00 62 15 |SETTE";:.8050.b.| 00000D40: D6 0B 8B 43 46 B2 32 B0 28 43 46 B2 33 AF 49 B2 |...CF.2.(CF.3.I.| 00000D50: 30 29 A7 9F 31 2C 31 2C 31 2C 48 24 3A 89 33 31 |0)..1,1,1,H$:.31| 00000D60: 30 30 00 95 15 E0 0B 4C 24 B2 22 30 3A 22 AA C8 |00.....L$."0:"..| 00000D70: 28 48 24 2C 31 36 29 3A 9F 31 2C 30 38 2C 32 2C |(H$,16):.1,08,2,| 00000D80: 4C 24 3A 84 38 2C 58 2C 58 24 3A A0 31 3A 8B 58 |L$:.8,X,X$:.1:.X| 00000D90: 89 33 30 38 30 00 CF 15 EA 0B 99 22 11 C4 4F 4B |.3080......"..OK| 00000DA0: 55 4D 45 4E 54 20 45 58 49 53 54 49 45 52 54 20 |UMENT EXISTIERT | 00000DB0: 2D 20 55 45 42 45 52 53 43 48 52 45 49 42 45 4E |- UEBERSCHREIBEN| 00000DC0: 20 20 22 3B 3A 8D 38 30 35 30 3A 8B 49 A7 8E 00 | ";:.8050:.I...| 00000DD0: E3 15 F4 0B 98 38 2C 22 53 22 4C 24 3A 98 38 2C |.....8,"S"L$:.8,| 00000DE0: 22 49 30 00 17 16 08 0C 9F 31 2C 30 38 2C 33 2C |"I0......1,08,3,| 00000DF0: 4C 24 AA 22 2C 53 2C 57 22 3A 84 38 2C 58 2C 58 |L$.",S,W":.8,X,X| 00000E00: 24 3A 8B 58 A7 51 39 24 B2 22 53 50 41 43 45 22 |$:.X.Q9$."SPACE"| 00000E10: 3A 8D 36 30 30 30 30 00 2E 16 1C 0C 4F 46 B2 30 |:.60000.....OF.0| 00000E20: 3A 98 31 2C 48 24 C7 28 31 34 31 29 44 24 00 55 |:.1,H$.(141)D$.U| 00000E30: 16 4E 0C 81 49 B2 30 A4 56 3A 8B 54 24 28 49 29 |.N..I.0.V:.T$(I)| 00000E40: B1 22 22 A7 98 31 2C 54 24 28 49 29 3B 3A 99 22 |.""..1,T$(I);:."| 00000E50: 2A 22 3B 3A 82 00 63 16 58 0C 98 31 2C 22 5C 22 |*";:..c.X..1,"\"| 00000E60: 3B 3A 8E 00 7A 16 A0 0F 8F 20 42 41 54 43 48 20 |;:..z.... BATCH | 00000E70: 50 52 4F 43 45 53 53 49 4E 47 00 A3 16 A5 0F 51 |PROCESSING.....Q| 00000E80: 39 24 B2 22 46 49 4C 45 22 3A 20 8F 20 46 4F 52 |9$."FILE": . FOR| 00000E90: 20 45 52 52 4F 52 20 4D 53 47 20 49 4E 20 36 30 | ERROR MSG IN 60| 00000EA0: 30 30 30 00 C7 16 AA 0F 99 22 93 22 3B 3A 91 43 |000......".";:.C| 00000EB0: 46 89 34 31 30 30 2C 34 30 35 30 3A 8F 20 45 4C |F.4100,4050:. EL| 00000EC0: 53 45 20 42 4F 54 48 00 EB 16 B4 0F 99 22 D6 4F |SE BOTH......".O| 00000ED0: 4E 20 C4 41 54 41 53 45 54 54 45 22 3B 3A 8D 38 |N .ATASETTE";:.8| 00000EE0: 30 35 30 3A 8B 49 89 34 31 30 30 00 FF 16 D2 0F |050:.I.4100.....| 00000EF0: 8F 20 46 52 4F 4D 20 43 41 53 53 45 54 54 45 00 |. FROM CASSETTE.| 00000F00: 0E 17 DC 0F 9F 32 2C 31 3A 89 34 31 35 30 00 1E |.....2,1:.4150..| 00000F10: 17 04 10 8F 20 46 52 4F 4D 20 44 49 53 43 00 54 |.... FROM DISC.T| 00000F20: 17 0E 10 85 22 93 C1 C4 D2 C5 D3 D3 C5 CE 20 36 |...."......... 6| 00000F30: 34 3A 20 C4 41 54 45 49 2D CE 41 4D 45 20 20 2D |4: .ATEI-.AME -| 00000F40: 9D 9D 9D 22 3B 58 24 3A 8B 58 24 B2 22 2D 22 89 |...";X$:.X$."-".| 00000F50: 34 31 31 30 00 78 17 18 10 9F 32 2C 30 38 2C 32 |4110.x....2,08,2| 00000F60: 2C 58 24 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 A0 |,X$:.8,X,X$:.X..| 00000F70: 32 3A 89 36 30 30 30 30 00 91 17 36 10 8F 20 50 |2:.60000...6.. P| 00000F80: 52 45 50 41 52 45 20 46 4F 52 20 4F 55 54 50 55 |REPARE FOR OUTPU| 00000F90: 54 00 C4 17 40 10 54 42 24 B2 22 22 3A 53 32 B2 |T...@.TB$."":S2.| 00000FA0: 30 3A 4E B2 37 32 3A 46 B2 31 3A 9F 31 2C 30 34 |0:N.72:F.1:.1,04| 00000FB0: 3A 53 24 B2 22 11 22 AA C8 28 42 24 2C 34 30 AB |:S$."."..(B$,40.| 00000FC0: 4E AD 32 29 00 EC 17 4A 10 99 22 11 D3 54 41 4E |N.2)...J.."..TAN| 00000FD0: 44 41 52 44 2D C6 4F 52 4D 41 54 22 3B 3A 8D 38 |DARD-.ORMAT";:.8| 00000FE0: 30 35 30 3A 8B 49 A7 8D 37 35 30 30 00 0E 18 68 |050:.I..7500...h| 00000FF0: 10 8F 20 47 45 54 20 54 48 45 20 4E 41 4D 45 20 |.. GET THE NAME | 00001000: 41 4E 44 20 53 41 4C 55 54 41 54 49 4F 4E 00 3A |AND SALUTATION.:| 00001010: 18 72 10 84 32 2C 5A 24 3A 8B 53 54 B1 30 B0 C3 |.r..2,Z$:.ST.0..| 00001020: 28 5A 24 29 B3 32 89 34 39 30 30 3A 8F 20 4E 4F |(Z$).2.4900:. NO| 00001030: 20 4C 41 53 54 20 4E 41 4D 45 00 7A 18 7C 10 4C | LAST NAME.z.|.L| 00001040: 24 B2 22 22 3A 8D 37 34 35 30 3A 58 24 B2 22 22 |$."":.7450:X$.""| 00001050: 3A 59 24 B2 22 22 3A 4D 24 B2 22 D3 45 48 52 20 |:Y$."":M$.".EHR | 00001060: 47 45 45 48 52 54 45 20 C4 41 4D 45 4E 20 55 4E |GEEHRTE .AMEN UN| 00001070: 44 20 C8 45 52 52 45 4E 2C 22 00 A9 18 86 10 84 |D .ERREN,"......| 00001080: 32 2C 58 24 3A 8B C3 28 58 24 29 B3 32 A7 58 24 |2,X$:..(X$).2.X$| 00001090: B2 22 22 3A 89 34 32 35 30 3A 8F 20 4E 4F 20 46 |."":.4250:. NO F| 000010A0: 49 52 53 54 20 4E 41 4D 45 00 CC 18 90 10 4D 24 |IRST NAME.....M$| 000010B0: B2 22 CC 49 45 42 45 2F 52 20 22 AA 58 24 AA 22 |.".IEBE/R ".X$."| 000010C0: 2C 22 3A 58 24 B2 58 24 AA 22 20 22 00 F6 18 9A |,":X$.X$." "....| 000010D0: 10 84 32 2C 59 24 3A 8B C3 28 59 24 29 B3 32 A7 |..2,Y$:..(Y$).2.| 000010E0: 59 24 B2 22 22 3A 89 34 32 37 30 3A 8F 20 4E 4F |Y$."":.4270:. NO| 000010F0: 20 54 49 54 4C 45 00 1B 19 A4 10 59 24 B2 59 24 | TITLE.....Y$.Y$| 00001100: AA 22 20 22 3A 4D 24 B2 22 CC 49 45 42 45 2F 52 |." ":M$.".IEBE/R| 00001110: 20 22 AA 59 24 AA 5A 24 AA 22 2C 00 48 19 AE 10 | ".Y$.Z$.",.H...| 00001120: 4C 24 B2 59 24 AA 58 24 AA 5A 24 3A 84 32 2C 58 |L$.Y$.X$.Z$:.2,X| 00001130: 24 3A 8B C3 28 58 24 29 B1 32 A7 4C 24 B2 4C 24 |$:..(X$).2.L$.L$| 00001140: AA 22 2C 20 22 AA 58 24 00 71 19 B8 10 5A 24 B2 |.", ".X$.q...Z$.| 00001150: 4D 24 3A 4D 24 B2 22 22 3A 50 24 B2 4C 24 3A 8D |M$:M$."":P$.L$:.| 00001160: 37 39 30 30 3A 8F 20 50 52 49 4E 54 20 4E 41 4D |7900:. PRINT NAM| 00001170: 45 00 83 19 CC 10 8F 20 47 45 54 20 41 44 44 52 |E...... GET ADDR| 00001180: 45 53 53 00 AB 19 D6 10 84 32 2C 4C 24 3A 8B C3 |ESS......2,L$:..| 00001190: 28 4C 24 29 B1 31 A7 50 24 B2 4C 24 3A 8D 37 39 |(L$).1.P$.L$:.79| 000011A0: 30 30 3A 8F 20 4C 49 4E 45 20 32 00 D3 19 E0 10 |00:. LINE 2.....| 000011B0: 84 32 2C 4C 24 3A 8B C3 28 4C 24 29 B1 31 A7 50 |.2,L$:..(L$).1.P| 000011C0: 24 B2 4C 24 3A 8D 37 39 30 30 3A 8F 20 4C 49 4E |$.L$:.7900:. LIN| 000011D0: 45 20 33 00 07 1A EA 10 84 32 2C 4C 24 3A 84 32 |E 3......2,L$:.2| 000011E0: 2C 59 24 3A 8B C3 28 59 24 29 B1 31 A7 4C 24 B2 |,Y$:..(Y$).1.L$.| 000011F0: 4C 24 AA 22 2C 20 22 AA 59 24 3A 8F 20 53 54 41 |L$.", ".Y$:. STA| 00001200: 54 45 2C 20 5A 49 50 00 20 1A F4 10 8B C3 28 4C |TE, ZIP. .....(L| 00001210: 24 29 B1 31 A7 50 24 B2 4C 24 3A 8D 37 39 30 30 |$).1.P$.L$:.7900| 00001220: 00 4C 1A FE 10 81 49 B2 4C A4 31 34 3A 8D 37 39 |.L....I.L.14:.79| 00001230: 30 30 3A 82 3A 4C 24 B2 5A 24 3A 50 24 B2 4C 24 |00:.:L$.Z$:P$.L$| 00001240: 3A 8D 37 30 39 30 3A 89 34 32 30 30 00 58 1A 24 |:.7090:.4200.X.$| 00001250: 13 A0 32 3A 89 31 30 30 00 71 1A 70 17 8F 20 53 |..2:.100.q.p.. S| 00001260: 45 41 52 43 48 20 41 4E 44 20 52 45 50 4C 41 43 |EARCH AND REPLAC| 00001270: 45 00 AE 1A 7A 17 99 22 93 11 D3 55 43 48 45 4E |E...z.."...UCHEN| 00001280: 20 4E 41 43 48 3F 22 3A 4D B2 34 30 3A 8D 38 32 | NACH?":M.40:.82| 00001290: 30 30 3A 5A 24 B2 58 24 3A 4C B2 C3 28 58 24 29 |00:Z$.X$:L..(X$)| 000012A0: 3A 8B 4C B2 30 B0 4C B2 4D 89 36 30 31 30 00 D8 |:.L.0.L.M.6010..| 000012B0: 1A 84 17 99 3A 99 22 11 C5 52 53 45 54 5A 45 4E |....:."..RSETZEN| 000012C0: 20 44 55 52 43 48 3F 22 3A 8D 38 32 30 30 3A 59 | DURCH?":.8200:Y| 000012D0: 24 B2 58 24 3A 99 3A 99 00 FF 1A 8E 17 58 24 B2 |$.X$:.:......X$.| 000012E0: 22 22 3A 4D 24 B2 22 22 3A 4C 24 B2 22 22 3A 54 |"":M$."":L$."":T| 000012F0: B2 30 3A 55 B2 30 3A 46 B2 30 3A 4F 46 B2 31 00 |.0:U.0:F.0:OF.1.| 00001300: 15 1B 38 18 8F 20 41 54 54 41 43 48 20 54 24 20 |..8.. ATTACH T$ | 00001310: 54 4F 20 58 24 00 28 1B 42 18 8B C3 28 58 24 29 |TO X$.(.B...(X$)| 00001320: B1 B2 4C 89 36 32 35 30 00 46 1B 4C 18 8B 54 B1 |..L.6250.F.L..T.| 00001330: 56 89 36 34 30 30 3A 8F 20 41 4C 4C 20 54 24 27 |V.6400:. ALL T$'| 00001340: 53 20 52 45 41 44 00 6B 1B 56 18 58 24 B2 58 24 |S READ.k.V.X$.X$| 00001350: AA 54 24 28 54 29 3A 54 24 28 54 29 B2 22 22 3A |.T$(T):T$(T)."":| 00001360: 54 B2 54 AA 31 3A 89 36 32 30 30 00 82 1B 6A 18 |T.T.1:.6200...j.| 00001370: 8F 20 53 45 41 52 43 48 20 46 4F 52 20 4D 41 54 |. SEARCH FOR MAT| 00001380: 43 48 00 B0 1B 74 18 81 49 B2 31 A4 C3 28 58 24 |CH...t..I.1..(X$| 00001390: 29 AB 4C AA 31 3A 8B CA 28 58 24 2C 49 2C 4C 29 |).L.1:..(X$,I,L)| 000013A0: B3 B1 5A 24 A7 82 3A 4A B2 49 3A 89 36 33 30 30 |..Z$..:J.I:.6300| 000013B0: 00 C6 1B 7E 18 4D 24 B2 59 24 3A 4A B2 49 AA 4C |...~.M$.Y$:J.I.L| 000013C0: 3A 99 22 12 22 3B 00 DA 1B 9C 18 8F 20 53 50 4C |:.".";...... SPL| 000013D0: 49 54 20 53 54 52 49 4E 47 53 00 0D 1C A6 18 4D |IT STRINGS.....M| 000013E0: 24 B2 C8 28 58 24 2C 49 AB 31 29 AA 4D 24 3A 58 |$..(X$,I.1).M$:X| 000013F0: 24 B2 CA 28 58 24 2C 4A 29 3A 8D 36 35 30 30 3A |$..(X$,J):.6500:| 00001400: 91 46 89 36 39 30 30 3A 89 36 32 30 30 00 20 1C |.F.6900:.6200. .| 00001410: 00 19 8F 20 53 54 4F 57 20 4C 41 53 54 20 4C 24 |... STOW LAST L$| 00001420: 00 3D 1C 0A 19 8D 36 35 30 30 3A 8B 46 89 36 39 |.=....6500:.F.69| 00001430: 30 30 3A 8F 20 43 4C 45 41 52 20 4D 24 00 69 1C |00:. CLEAR M$.i.| 00001440: 14 19 4D 24 B2 58 24 3A 8D 36 35 30 30 3A 8B 46 |..M$.X$:.6500:.F| 00001450: 89 36 39 30 30 3A 8F 20 4D 24 5F 58 24 3B 20 43 |.6900:. M$_X$; C| 00001460: 4C 45 41 52 20 42 4F 54 48 00 A0 1C 1E 19 8B 55 |LEAR BOTH......U| 00001470: B3 B2 56 A7 54 B2 55 3A 8D 36 35 30 3A 89 31 30 |..V.T.U:.650:.10| 00001480: 30 3A 8F 20 53 54 4F 57 20 4C 24 2C 20 43 4C 45 |0:. STOW L$, CLE| 00001490: 41 52 20 48 49 47 48 45 52 20 42 4C 4F 43 4B 53 |AR HIGHER BLOCKS| 000014A0: 00 AA 1C 28 19 89 36 39 30 30 00 CD 1C 64 19 8F |...(..6900...d..| 000014B0: 20 43 4C 45 41 52 20 4D 24 20 2D 20 53 54 4F 57 | CLEAR M$ - STOW| 000014C0: 20 4C 24 20 49 46 20 4E 45 45 44 45 44 00 03 1D | L$ IF NEEDED...| 000014D0: 6E 19 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 |n.M.M0..(L$):L$.| 000014E0: 4C 24 AA C8 28 4D 24 2C 4D 29 3A 4D 24 B2 CA 28 |L$..(M$,M):M$..(| 000014F0: 4D 24 2C 4D AA 31 29 3A 8B C3 28 4C 24 29 B3 4D |M$,M.1):..(L$).M| 00001500: 30 A7 8E 00 12 1D 78 19 8B 55 B1 B2 56 89 36 35 |0.....x..U..V.65| 00001510: 35 30 00 3F 1D 82 19 8B 55 B3 54 A7 54 24 28 55 |50.?....U.T.T$(U| 00001520: 29 B2 4C 24 3A 99 22 2A 92 22 3B 3A 55 B2 55 AA |).L$:."*.";:U.U.| 00001530: 31 3A 4C 24 B2 4D 24 3A 4D 24 B2 22 22 3A 8E 00 |1:L$.M$:M$."":..| 00001540: 79 1D 8C 19 8B 54 B3 56 A7 81 49 B2 56 A4 54 AA |y....T.V..I.V.T.| 00001550: 31 A9 AB 31 3A 54 24 28 49 29 B2 54 24 28 49 AB |1..1:T$(I).T$(I.| 00001560: 31 29 3A 82 3A 54 24 28 54 29 B2 22 22 3A 54 B2 |1):.:T$(T)."":T.| 00001570: 54 AA 31 3A 89 36 35 33 30 00 83 1D 96 19 46 B2 |T.1:.6530.....F.| 00001580: 31 3A 8E 00 94 1D F4 1A 8F 20 45 52 52 4F 52 20 |1:....... ERROR | 00001590: 45 58 49 54 00 C5 1D FE 1A 99 3A 99 22 11 CF 55 |EXIT......:."..U| 000015A0: 54 20 4F 46 20 52 4F 4F 4D 20 2D 20 44 41 54 41 |T OF ROOM - DATA| 000015B0: 20 49 4D 50 41 49 52 45 44 22 3A 8D 38 30 30 30 | IMPAIRED":.8000| 000015C0: 3A 89 31 30 30 00 DC 1D 58 1B 8F 20 46 4F 52 4D |:.100...X.. FORM| 000015D0: 41 54 20 41 4E 44 20 50 52 49 4E 54 00 EB 1D 62 |AT AND PRINT...b| 000015E0: 1B 8D 37 30 32 30 3A 89 31 30 30 00 03 1E 6C 1B |..7020:.100...l.| 000015F0: 9F 31 2C 30 34 3A 46 B2 31 3A 8F 20 50 52 49 4E |.1,04:F.1:. PRIN| 00001600: 54 45 52 00 34 1E 76 1B 53 32 B2 31 3A 4E B2 36 |TER.4.v.S2.1:N.6| 00001610: 30 3A 54 42 24 B2 22 22 3A 58 24 B2 22 46 49 44 |0:TB$."":X$."FID| 00001620: 22 3A 8F 20 44 45 46 41 55 4C 54 53 20 28 44 52 |":. DEFAULTS (DR| 00001630: 41 46 54 29 00 68 1E 80 1B 99 22 11 12 C6 92 4F |AFT).h...."....O| 00001640: 52 4D 41 4C 2C 20 12 C9 92 4E 46 4F 52 4D 41 4C |RMAL, ...NFORMAL| 00001650: 2C 20 4F 52 20 12 C4 92 52 41 46 54 22 3B 3A 8D |, OR ...RAFT";:.| 00001660: 38 30 36 30 3A 4A B2 49 00 81 1E 94 1B 8B 4A B3 |8060:J.I......J.| 00001670: 32 A7 53 32 B2 30 3A 4E B2 37 32 3A 8D 37 35 30 |2.S2.0:N.72:.750| 00001680: 30 00 AC 1E 9E 1B 53 24 B2 22 11 22 AA C8 28 42 |0.....S$."."..(B| 00001690: 24 2C 34 30 AB 4E AD 32 29 3A 8B 4A B2 30 89 37 |$,40.N.2):.J.0.7| 000016A0: 34 30 30 3A 8F 20 46 4F 52 4D 41 4C 00 CF 1E A8 |400:. FORMAL....| 000016B0: 1B 4C 24 B2 22 12 22 AA 48 24 3A 50 24 B2 48 24 |.L$.".".H$:P$.H$| 000016C0: 3A 4D 24 B2 C8 28 4B 24 2C C3 28 48 24 29 29 00 |:M$..(K$,.(H$)).| 000016D0: ED 1E B2 1B 4A B2 30 3A 99 22 93 22 3A 8D 37 39 |....J.0:.".":.79| 000016E0: 30 30 3A 8D 37 39 30 30 3A 8B 4A A7 8E 00 17 1F |00:.7900:.J.....| 000016F0: BC 1B 54 B2 30 3A 58 24 B2 22 5D 22 AA 54 42 24 |..T.0:X$."]".TB$| 00001700: 3A 45 B2 30 3A 5A 24 B2 42 24 3A 8F 20 50 52 49 |:E.0:Z$.B$:. PRI| 00001710: 4E 54 20 54 45 58 54 00 4E 1F C6 1B 8B C3 28 58 |NT TEXT.N.....(X| 00001720: 24 29 B3 B2 4E A7 58 24 B2 58 24 AA 54 24 28 54 |$)..N.X$.X$.T$(T| 00001730: 29 3A 54 B2 54 AA 31 3A 8B C3 28 58 24 29 B3 B2 |):T.T.1:..(X$)..| 00001740: 4E B0 54 B1 56 A7 58 24 B2 58 24 AA 22 5C 00 7E |N.T.V.X$.X$."\.~| 00001750: 1F CB 1B 8B C6 28 58 24 29 B2 33 32 A7 58 24 B2 |.....(X$).32.X$.| 00001760: CA 28 58 24 2C 32 29 3A 89 37 31 31 30 3A 8F 20 |.(X$,2):.7110:. | 00001770: 4C 45 41 44 49 4E 47 20 42 4C 41 4E 4B 53 00 8F |LEADING BLANKS..| 00001780: 1F D0 1B 8B 45 A7 58 24 B2 22 5B 22 AA 58 24 00 |....E.X$."[".X$.| 00001790: CC 1F DA 1B 4C 24 B2 C8 28 58 24 2C 4E AA 31 29 |....L$..(X$,N.1)| 000017A0: 3A 50 24 B2 4C 24 3A 4A B2 30 3A 4B B2 30 3A 4D |:P$.L$:J.0:K.0:M| 000017B0: 24 B2 42 24 3A 81 49 B2 31 A4 C3 28 4C 24 29 3A |$.B$:.I.1..(L$):| 000017C0: 43 B2 C6 28 CA 28 4C 24 2C 49 29 29 00 EE 1F E4 |C..(.(L$,I))....| 000017D0: 1B 8B 43 B1 39 30 AF 43 B3 39 36 A7 8D 37 37 30 |..C.90.C.96..770| 000017E0: 30 3A 8B 58 A7 49 B2 4A 3A 89 37 31 36 30 00 23 |0:.X.I.J:.7160.#| 000017F0: 20 EE 1B 82 3A 81 49 B2 C3 28 4C 24 29 A4 4A AA | ...:.I..(L$).J.| 00001800: 31 A9 AB 31 3A 8B CA 28 4C 24 2C 49 2C 31 29 B1 |1..1:..(L$,I,1).| 00001810: 22 20 22 A7 82 3A 49 B2 4A 3A 8B 4A B2 30 89 37 |" "..:I.J:.J.0.7| 00001820: 39 39 30 00 5F 20 F8 1B 4A B2 30 3A 58 24 B2 CA |990._ ..J.0:X$..| 00001830: 28 58 24 2C 49 AA 31 29 3A 4C 24 B2 C8 28 4C 24 |(X$,I.1):L$..(L$| 00001840: 2C 49 AB 31 29 3A 50 24 B2 C8 28 50 24 2C 49 AB |,I.1):P$..(P$,I.| 00001850: 4B 29 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 00 |K):M$..(M$,I.K).| 00001860: 80 20 16 1C 8B 43 B2 39 34 B0 43 B2 39 35 A7 45 |. ...C.94.C.95.E| 00001870: B2 30 3A 58 24 B2 22 5D 22 AA 54 42 24 AA 58 24 |.0:X$."]".TB$.X$| 00001880: 00 AF 20 20 1C 58 B2 43 3A 8D 37 39 30 30 3A 8B |.. .X.C:.7900:.| 00001890: 4A B1 30 B0 58 B2 39 34 B0 58 B2 39 32 A7 8D 37 |J.0.X.94.X.92..7| 000018A0: 39 35 30 3A 8B 4A B1 30 B0 58 B2 39 32 A7 8E 00 |950:.J.0.X.92...| 000018B0: B9 20 2A 1C 89 37 31 31 30 00 C6 20 E8 1C 8F 20 |. *..7110.. ... | 000018C0: 46 4F 52 4D 41 4C 00 F8 20 F2 1C 4C 24 B2 22 22 |FORMAL.. ..L$.""| 000018D0: 3A 8D 37 34 35 30 3A 99 22 93 D6 49 45 52 20 C1 |:.7450:."..IER .| 000018E0: 44 52 45 53 53 2D DA 45 49 4C 45 4E 22 3A 4D B2 |DRESS-.EILEN":M.| 000018F0: 4E 3A 81 49 B2 31 A4 34 00 2A 21 FC 1C 99 22 DA |N:.I.1.4.*!...".| 00001900: 45 49 4C 45 22 49 3A 8D 38 32 30 30 3A 99 3A 8B |EILE"I:.8200:.:.| 00001910: C3 28 58 24 29 B2 4D A7 99 22 12 DA 55 20 4C 41 |.(X$).M.."..U LA| 00001920: 4E 47 20 22 3A 89 37 34 32 30 00 48 21 06 1D 50 |NG ":.7420.H!..P| 00001930: 24 B2 58 24 3A 8D 37 39 30 30 3A 82 3A 8D 37 39 |$.X$:.7900:.:.79| 00001940: 30 30 3A 8D 37 39 30 30 00 6C 21 10 1D 99 22 C1 |00:.7900.l!...".| 00001950: 4E 52 45 44 45 20 20 20 20 22 3A 8D 38 32 30 30 |NREDE ":.8200| 00001960: 3A 50 24 B2 58 24 3A 89 37 30 39 30 00 9D 21 1A |:P$.X$:.7090..!.| 00001970: 1D 8C 3A 4D 24 B2 22 22 3A 59 24 B2 53 24 3A 81 |..:M$."":Y$.S$:.| 00001980: 49 B2 31 A4 33 3A 87 50 24 3A 8D 37 34 39 30 3A |I.1.3:.P$:.7490:| 00001990: 82 3A 50 24 B2 44 24 3A 8D 37 34 39 30 00 B8 21 |.:P$.D$:.7490..!| 000019A0: 2E 1D 81 49 B2 31 A4 35 3A 8D 37 39 30 30 3A 82 |...I.1.5:.7900:.| 000019B0: 3A 53 24 B2 59 24 3A 8E 00 DE 21 42 1D 4B B2 C3 |:S$.Y$:...!B.K..| 000019C0: 28 50 24 29 3A 53 24 B2 22 11 22 AA C8 28 42 24 |(P$):S$."."..(B$| 000019D0: 2C 34 30 AB 4B AD 32 29 3A 89 37 39 30 30 00 F6 |,40.K.2):.7900..| 000019E0: 21 4C 1D 8F 20 46 4F 52 4D 41 54 20 56 41 52 49 |!L.. FORMAT VARI| 000019F0: 41 54 49 4F 4E 53 00 1E 22 56 1D 99 22 11 D3 54 |ATIONS.."V.."..T| 00001A00: 41 4E 44 41 52 44 2D C6 4F 52 4D 41 54 3A 22 3A |ANDARD-.ORMAT:":| 00001A10: 99 2C 22 20 C5 49 4E 2D 5A 45 49 4C 49 47 00 51 |.," .IN-ZEILIG.Q| 00001A20: 22 60 1D 99 2C 4E 22 DA 45 49 43 48 45 4E 20 50 |"`..,N".EICHEN P| 00001A30: 52 4F 20 DA 45 49 4C 45 20 20 22 3A 99 2C 4C 4C |RO .EILE ":.,LL| 00001A40: 22 DA 45 49 4C 45 4E 20 50 52 4F 20 D3 45 49 54 |".EILEN PRO .EIT| 00001A50: 45 00 6D 22 6A 1D 99 2C 22 20 D4 41 42 2D CC 41 |E.m"j..," .AB-.A| 00001A60: 45 4E 47 45 20 3D 22 C3 28 54 42 24 29 00 9A 22 |ENGE =".(TB$).."| 00001A70: 74 1D 99 22 11 CD 4F 45 43 48 54 45 4E 20 D3 49 |t.."..OECHTEN .I| 00001A80: 45 20 45 53 20 41 45 4E 44 45 52 4E 20 22 3B 3A |E ES AENDERN ";:| 00001A90: 8D 38 30 35 30 3A 8B 49 A7 8E 00 BB 22 7E 1D 99 |.8050:.I...."~..| 00001AA0: 22 93 C5 49 4E 2D 5A 45 49 4C 49 47 20 20 22 3B |"..IN-ZEILIG ";| 00001AB0: 3A 8D 38 30 35 30 3A 53 32 B2 49 00 EB 22 88 1D |:.8050:S2.I.."..| 00001AC0: 85 22 11 DA 45 49 43 48 45 4E 20 50 52 4F 20 DA |."..EICHEN PRO .| 00001AD0: 45 49 4C 45 20 20 20 28 32 30 2D 38 30 29 20 20 |EILE (20-80) | 00001AE0: 37 32 20 9D 9D 9D 9D 9D 22 3B 4E 00 06 23 92 1D |72 .....";N..#..| 00001AF0: 8B 4E B3 32 30 B0 4E B1 38 30 A7 99 22 91 91 22 |.N.20.N.80..".."| 00001B00: 3A 89 37 35 36 30 00 44 23 9C 1D 99 22 11 DA 45 |:.7560.D#..."..E| 00001B10: 49 4C 45 4E 20 50 52 4F 20 D3 45 49 54 45 20 22 |ILEN PRO .EITE "| 00001B20: 4C 4C 22 9D 20 20 9D 9D 9D 9D 9D 9D 22 3B 3A 85 |LL". ......";:.| 00001B30: 4C 4C 3A 8B 4C 4C B3 31 A7 99 22 91 91 22 3A 89 |LL:.LL.1.."..":.| 00001B40: 37 35 38 30 00 7F 23 A1 1D 99 22 11 CC 41 45 4E |7580..#..."..AEN| 00001B50: 47 45 20 44 45 52 20 D4 41 42 2E 22 3B 3A 58 24 |GE DER .AB.";:X$| 00001B60: B2 22 30 31 32 33 34 35 36 37 38 39 22 3A 8D 38 |."0123456789":.8| 00001B70: 30 36 30 3A 54 42 24 B2 C8 28 42 24 2C 49 29 00 |060:TB$..(B$,I).| 00001B80: 85 23 A6 1D 8E 00 97 23 14 1E 8F 20 45 4E 48 41 |.#.....#... ENHA| 00001B90: 4E 43 45 4D 45 4E 54 00 DD 23 28 1E 4B B2 4B AA |NCEMENT..#(.K.K.| 00001BA0: 31 3A 58 B2 31 3A 4A B2 49 3A 8B 43 B2 39 31 B0 |1:X.1:J.I:.C.91.| 00001BB0: 43 B2 39 33 A7 58 B2 30 3A 45 B2 28 43 B2 39 31 |C.93.X.0:E.(C.91| 00001BC0: 29 3A 5A 24 B2 42 24 3A 59 24 B2 22 92 22 3A 8B |):Z$.B$:Y$.".":.| 00001BD0: 45 A7 5A 24 B2 4B 24 3A 59 24 B2 22 12 00 FB 23 |E.Z$.K$:Y$."...#| 00001BE0: 32 1E 4C 24 B2 C8 28 4C 24 2C 49 AB 31 29 AA 59 |2.L$..(L$,I.1).Y| 00001BF0: 24 AA CA 28 4C 24 2C 49 AA 31 29 00 2F 24 46 1E |$..(L$,I.1)./$F.| 00001C00: 50 24 B2 C8 28 50 24 2C 49 AB 4B 29 AA CA 28 4C |P$..(P$,I.K)..(L| 00001C10: 24 2C 49 AA 31 29 3A 4D 24 B2 C8 28 4D 24 2C 49 |$,I.1):M$..(M$,I| 00001C20: AB 4B 29 AA CA 28 5A 24 2C 49 AA 31 29 3A 8E 00 |.K)..(Z$,I.1):..| 00001C30: 3E 24 DC 1E 8F 20 4C 49 4E 45 20 4F 55 54 00 52 |>$... LINE OUT.R| 00001C40: 24 E6 1E 8B 50 24 B1 22 22 A7 50 24 B2 53 24 AA |$...P$."".P$.S$.| 00001C50: 50 24 00 6D 24 F0 1E 99 4C 24 3B 3A 8D 37 39 33 |P$.m$...L$;:.793| 00001C60: 30 3A 8B 4A B1 30 B0 53 32 B2 30 A7 8E 00 8F 24 |0:.J.0.S2.0....$| 00001C70: FA 1E 8B 46 A7 99 3A 98 31 2C 50 24 3B 3A 8B 4D |...F..:.1,P$;:.M| 00001C80: 24 B1 42 24 A7 98 31 2C 51 24 53 24 4D 24 3B 00 |$.B$..1,Q$S$M$;.| 00001C90: B6 24 04 1F 98 31 3A 50 24 B2 22 22 3A 4C 24 B2 |.$...1:P$."":L$.| 00001CA0: 22 22 3A 4D 24 B2 22 22 3A 4C B2 4C AA 31 3A 8B |"":M$."":L.L.1:.| 00001CB0: 4C B3 4C 4C A7 8E 00 CB 24 0E 1F 8B 46 B2 30 A7 |L.LL....$...F.0.| 00001CC0: 8D 38 30 30 30 3A 4C B2 30 3A 8E 00 F8 24 18 1F |.8000:L.0:...$..| 00001CD0: 8B 4C A7 81 49 B2 4C A4 4C 50 AB 31 3A 98 31 3A |.L..I.L.LP.1:.1:| 00001CE0: 82 3A 4C B2 30 3A 8F 20 50 41 47 45 20 57 49 54 |.:L.0:. PAGE WIT| 00001CF0: 48 20 42 4C 41 4E 4B 53 00 03 25 22 1F 99 22 93 |H BLANKS..%"..".| 00001D00: 22 3A 8E 00 30 25 36 1F 4A B2 31 3A 99 22 11 DA |":..0%6.J.1:."..| 00001D10: 45 49 4C 45 20 46 55 45 52 20 C4 52 55 43 4B 20 |EILE FUER .RUCK | 00001D20: 5A 55 20 4C 41 4E 47 22 3A 8D 37 39 35 30 3A 8E |ZU LANG":.7950:.| 00001D30: 00 40 25 40 1F 8F 20 55 54 49 4C 49 54 49 45 53 |.@%@.. UTILITIES| 00001D40: 00 74 25 4A 1F 99 22 11 12 20 D7 45 49 54 45 52 |.t%J..".. .EITER| 00001D50: 20 4D 49 54 20 42 45 4C 49 45 42 49 47 45 52 20 | MIT BELIEBIGER | 00001D60: D4 41 53 54 45 22 3B 3A 8D 32 30 3A 99 3A 99 22 |.ASTE";:.20:.:."| 00001D70: 93 22 3A 8E 00 7F 25 72 1F 58 24 B2 22 4A 4E 00 |.":...%r.X$."JN.| 00001D80: 8A 25 7C 1F 99 22 3F 20 22 3B 00 B4 25 86 1F 8D |.%|.."? ";..%...| 00001D90: 32 30 3A 81 49 B2 31 A4 C3 28 58 24 29 3A 8B 43 |20:.I.1..(X$):.C| 00001DA0: 24 B3 B1 CA 28 58 24 2C 49 2C 31 29 A7 82 3A 89 |$...(X$,I,1)..:.| 00001DB0: 38 30 37 30 00 C3 25 8B 1F 49 B2 49 AB 31 3A 99 |8070..%..I.I.1:.| 00001DC0: 43 24 3B 00 DF 25 90 1F A1 57 24 3A 8B 57 24 B2 |C$;..%...W$:.W$.| 00001DD0: 22 22 A7 99 22 A4 9D 22 3B 3A 89 38 30 38 30 00 |"".."..";:.8080.| 00001DE0: F5 25 95 1F 99 22 20 9D 22 3B 3A 8B 57 24 B2 52 |.%..." .";:.W$.R| 00001DF0: 24 A7 99 3A 8E 00 0E 26 9A 1F 8B 57 24 B2 C7 28 |$..:...&...W$..(| 00001E00: 32 30 29 A7 99 57 24 3B 3A 89 38 30 37 30 00 18 |20)..W$;:.8070..| 00001E10: 26 9F 1F 89 38 30 38 30 00 33 26 08 20 58 24 B2 |&...8080.3&. X$.| 00001E20: 22 22 3A 8F 20 49 4E 50 55 54 20 41 20 53 54 52 |"":. INPUT A STR| 00001E30: 49 4E 47 00 44 26 12 20 A1 43 24 3A 8B 43 24 89 |ING.D&. .C$:.C$.| 00001E40: 38 32 31 30 00 5C 26 1C 20 8D 32 35 3A 8B 43 B2 |8210.\&. .25:.C.| 00001E50: 31 33 B0 43 B2 39 32 89 38 32 39 30 00 8B 26 26 |13.C.92.8290..&&| 00001E60: 20 8B 43 B2 32 30 AF 58 24 B1 22 22 A7 99 43 24 | .C.20.X$.""..C$| 00001E70: 3B 3A 58 24 B2 C8 28 58 24 2C C3 28 58 24 29 AB |;:X$..(X$,.(X$).| 00001E80: 31 29 3A 8F 20 44 45 4C 45 54 45 00 AB 26 30 20 |1):. DELETE..&0 | 00001E90: 8B 43 B2 32 30 89 38 32 32 30 3A 8F 20 44 45 4C |.C.20.8220:. DEL| 00001EA0: 45 54 45 20 4F 4E 20 4E 55 4C 4C 00 DC 26 3A 20 |ETE ON NULL..&: | 00001EB0: 8B 28 31 32 37 AF 43 29 B3 33 32 89 38 32 32 30 |.(127.C).32.8220| 00001EC0: 3A 8F 20 43 55 52 53 4F 52 20 43 4F 4E 54 52 4F |:. CURSOR CONTRO| 00001ED0: 4C 20 43 48 41 52 41 43 54 45 52 53 00 F5 26 44 |L CHARACTERS..&D| 00001EE0: 20 99 43 24 3B 3A 8B 43 B2 33 34 A7 99 43 24 C7 | .C$;:.C.34..C$.| 00001EF0: 28 32 30 29 3B 00 10 27 4E 20 58 24 B2 58 24 AA |(20);..'N X$.X$.| 00001F00: 43 24 3A 8B C3 28 58 24 29 B3 4D 89 38 32 32 30 |C$:..(X$).M.8220| 00001F10: 00 16 27 62 20 8E 00 2D 27 FC 21 8F 20 51 55 49 |..'b ..-'.!. QUI| 00001F20: 54 20 54 48 45 20 50 52 4F 47 52 41 4D 00 63 27 |T THE PROGRAM.c'| 00001F30: 10 22 99 22 93 11 D3 45 49 54 45 4E 56 4F 52 53 |."."...EITENVORS| 00001F40: 43 48 55 42 20 41 4D 20 C4 52 55 43 4B 45 52 20 |CHUB AM .RUCKER | 00001F50: 20 20 20 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 38 | ";:.8050:.I.8| 00001F60: 37 34 30 00 8B 27 1A 22 9F 31 2C 30 34 3A 46 B2 |740..'.".1,04:F.| 00001F70: 31 3A 4C B2 2E 31 3A 8D 37 39 35 30 3A 8F 20 45 |1:L..1:.7950:. E| 00001F80: 58 50 45 4C 20 41 20 50 41 47 45 00 A3 27 24 22 |XPEL A PAGE..'$"| 00001F90: 8B 4F 46 B2 30 B0 54 24 28 30 29 B2 22 22 89 38 |.OF.0.T$(0)."".8| 00001FA0: 37 36 30 00 E4 27 2E 22 99 22 11 C4 4F 4B 55 4D |760..'."."..OKUM| 00001FB0: 45 4E 54 20 4E 49 43 48 54 20 47 45 53 49 43 48 |ENT NICHT GESICH| 00001FC0: 45 52 54 3B 20 53 50 45 49 43 48 45 52 4E 22 3B |ERT; SPEICHERN";| 00001FD0: 3A 8D 38 30 35 30 3A 8B 49 B2 30 A7 A0 31 3A 8D |:.8050:.I.0..1:.| 00001FE0: 33 30 32 30 00 FB 27 38 22 A0 31 3A 99 22 93 D4 |3020..'8".1:."..| 00001FF0: 53 43 48 55 45 53 53 21 22 3A A2 00 23 28 C4 22 |SCHUESS!":..#(."| 00002000: 9F 31 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 3A 89 |.1,04:F.1:L..1:.| 00002010: 37 39 35 30 3A 8F 20 45 58 50 45 4C 20 41 20 50 |7950:. EXPEL A P| 00002020: 41 47 45 00 34 28 28 23 8F 20 49 4E 49 54 49 41 |AGE.4((#. INITIA| 00002030: 4C 49 5A 45 00 64 28 2D 23 4C 50 B2 37 32 3A 4C |LIZE.d(-#LP.72:L| 00002040: 30 B2 36 30 3A 4D 30 B2 31 36 30 3A 51 24 B2 C7 |0.60:M0.160:Q$..| 00002050: 28 31 34 31 29 3A 52 24 B2 C7 28 31 33 29 3A 4B |(141):R$..(13):K| 00002060: 24 B2 22 A4 00 83 28 32 23 56 B2 B5 28 28 B8 28 |$."...(2#V..((.(| 00002070: 30 29 AB 32 30 30 30 29 AD 4D 30 29 3A 86 54 24 |0).2000).M0):.T$| 00002080: 28 56 29 00 C4 28 3C 23 99 22 93 8E 13 13 0F 11 |(V)..(<#."......| 00002090: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000020A0: 11 11 11 11 11 11 11 11 22 A6 33 39 29 22 8F 05 |........".39)"..| 000020B0: 22 3A 97 35 39 34 36 38 2C 31 34 3A 8F 20 46 4F |":.59468,14:. FO| 000020C0: 52 4D 41 54 00 F9 28 41 23 97 35 33 32 37 32 2C |RMAT..(A#.53272,| 000020D0: 32 B0 C2 28 35 33 32 37 32 29 3A 99 22 93 20 20 |2..(53272):.". | 000020E0: 20 20 20 12 20 C3 4F 4D 4D 4F 44 4F 52 45 20 D4 | . .OMMODORE .| 000020F0: C5 D8 D4 20 36 34 20 20 92 00 14 29 43 23 8D 36 |... 64 ...)C#.6| 00002100: 31 30 30 30 3A 20 8F 20 43 4F 4C 4F 52 20 43 48 |1000: . COLOR CH| 00002110: 41 4E 47 45 00 58 29 46 23 99 22 11 12 CB 92 41 |ANGE.X)F#."....A| 00002120: 53 53 45 54 54 45 2C 20 12 C4 92 49 53 4B 45 54 |SSETTE, ...ISKET| 00002130: 54 45 20 4F 44 45 52 20 12 42 92 45 49 44 45 53 |TE ODER .B.EIDES| 00002140: 22 3B 3A 58 24 B2 22 44 4B 42 22 3A 8D 38 30 36 |";:X$."DKB":.806| 00002150: 30 3A 43 46 B2 49 AA 31 00 82 29 50 23 42 24 B2 |0:CF.I.1..)P#B$.| 00002160: 22 20 20 20 20 20 22 3A 81 49 B2 31 A4 35 3A 42 |" ":.I.1.5:B| 00002170: 24 B2 42 24 AA 42 24 3A 82 3A 9F 38 2C 30 38 2C |$.B$.B$:.:.8,08,| 00002180: 31 35 00 A9 29 55 23 99 22 11 D4 41 47 45 53 44 |15..)U#."..AGESD| 00002190: 41 54 55 4D 20 20 3F 22 3A 4D B2 32 30 3A 8D 38 |ATUM ?":M.20:.8| 000021A0: 32 30 30 3A 44 24 B2 58 24 00 C3 29 5A 23 4B 24 |200:D$.X$..)Z#K$| 000021B0: B2 22 20 22 3A 8F 20 31 35 32 35 20 50 52 49 4E |." ":. 1525 PRIN| 000021C0: 54 45 52 00 F4 29 64 23 8F 20 4B 24 3D 22 5F 22 |TER..)d#. K$="_"| 000021D0: 3A 51 24 3D 52 24 2B 43 48 52 24 28 32 37 29 2B |:Q$=R$+CHR$(27)+| 000021E0: 22 0A 22 3A 52 45 4D 20 38 33 30 30 20 50 52 49 |".":REM 8300 PRI| 000021F0: 4E 54 45 52 00 0F 2A 78 23 81 49 B2 31 A4 37 3A |NTER..*x#.I.1.7:| 00002200: 4B 24 B2 4B 24 AA 4B 24 3A 82 3A 89 31 30 30 00 |K$.K$.K$:.:.100.| 00002210: 18 2A 8C 23 89 31 30 30 00 37 2A 10 27 8F 20 4C |.*.#.100.7*.'. L| 00002220: 45 54 54 45 52 48 45 41 44 20 44 41 54 41 2C 20 |ETTERHEAD DATA, | 00002230: 44 45 4C 45 54 45 44 00 3F 2A 1A 27 83 22 22 00 |DELETED.?*.'."".| 00002240: 47 2A 24 27 83 22 22 00 4F 2A 2E 27 83 22 22 00 |G*$'."".O*.'."".| 00002250: 74 2A 60 EA 99 51 39 24 22 20 4E 49 43 48 54 20 |t*`..Q9$" NICHT | 00002260: 47 45 46 55 4E 44 45 4E 22 3A 8D 38 30 30 30 3A |GEFUNDEN":.8000:| 00002270: 89 31 30 30 00 8F 2A 48 EE 8F 20 43 4F 4C 4F 52 |.100..*H.. COLOR| 00002280: 20 43 48 41 4E 47 45 20 52 4F 55 54 49 4E 45 00 | CHANGE ROUTINE.| 00002290: B3 2A 49 EE 96 A5 43 28 58 29 B2 C2 28 58 29 AA |.*I...C(X)..(X).| 000022A0: 31 AA 31 36 AC 28 28 C2 28 58 29 AF 31 35 29 B2 |1.16.((.(X).15).| 000022B0: 31 35 29 00 D9 2A 4A EE 99 3A 99 22 13 11 11 11 |15)..*J..:."....| 000022C0: 11 11 12 C6 31 92 3D 20 C6 41 52 42 45 20 44 45 |....1.= .ARBE DE| 000022D0: 53 20 D2 41 4E 44 45 53 22 00 F9 2A 4B EE 99 22 |S .ANDES"..*K.."| 000022E0: 11 12 C6 33 92 3D 20 C8 49 4E 54 45 52 47 52 55 |...3.= .INTERGRU| 000022F0: 4E 44 2D C6 41 52 42 45 22 00 19 2B 4C EE 99 22 |ND-.ARBE"..+L.."| 00002300: 11 12 C6 35 92 3D 20 C6 41 52 42 45 20 44 45 52 |...5.= .ARBE DER| 00002310: 20 DA 45 49 43 48 45 4E 22 00 32 2B 4D EE 99 22 | .EICHEN".2+M.."| 00002320: 11 12 D2 C5 D4 D5 D2 CE 92 3D 20 D7 45 49 54 45 |.........= .EITE| 00002330: 52 22 00 44 2B 52 EE A1 43 24 3A 8B 43 24 89 36 |R".D+R..C$:.C$.6| 00002340: 31 30 31 30 00 59 2B 5C EE A1 43 24 3A 8B 43 24 |1010.Y+\..C$:.C$| 00002350: B2 22 22 89 36 31 30 32 30 00 80 2B 66 EE 43 B2 |."".61020..+f.C.| 00002360: C6 28 43 24 29 3A 8B 43 B2 31 33 35 A7 97 36 34 |.(C$):.C.135..64| 00002370: 36 2C A5 43 28 36 34 36 29 3A 89 36 31 30 30 32 |6,.C(646):.61002| 00002380: 00 AC 2B 7A EE 43 B2 C6 28 43 24 29 3A 8B 43 B2 |..+z.C..(C$):.C.| 00002390: 31 33 33 B0 43 B2 31 33 34 A7 58 B2 35 33 31 34 |133.C.134.X.5314| 000023A0: 37 AA 43 3A 97 58 2C A5 43 28 58 29 00 BD 2B 84 |7.C:.X,.C(X)..+.| 000023B0: EE 8B 43 B3 B1 31 33 89 36 31 30 31 30 00 C3 2B |..C..13.61010..+| 000023C0: 8E EE 8E 00 00 00 91 |....... |
.......G(14):.657,128:.788,52.W....9000: . (C) 1982 BY COMMODORE BUSINESS MACHINE S, INC..F....C$:.C$.20......C$:.C$.." ." ;:C.F(C$):......."..";:.25......C$:.C$." ".30.Y. .X.F(C$):C.X.127:.C.13.C.17.C.19 .C.20.C.29.C.31....."..30...(.X$.""...*. .#1,C$:.C$.R$.C$.G(141).....,.X$.X$.C$:. 42.3.D.L.0:LL.L0: 1:. ENTRY.\.N..". . COMMODORE TEXT 64 ...R.X..,"FUNK TIONEN:.."...}..,".E.RSTELLEN EINES DOKU MENTES......,".S.PEICHERN EINES DOKUMENT ES......,".A.UFRUFEN EINES DOKUMENTES... ...,".D.RUCKEN EINES DOKUMENTES.$....,". V.ERAENDERN EINES DOKUMENTES.J. ..,".G.L OBALES SUCHEN UND TAUSCHEN.O....,".B.S-A NZEIGE EINES DOKUMENTES......,".R.UNDSCH REIBEN ERSTELLEN......,".P.ROGRAMMENDE.X ...X$."PBVGDSRAE":.".WELCHE ";:.8060:. I.0.8700...C.J.I:.J.4.250...H..".":. GET SUBJECT.F.R..H$."".."DOKUMENT: ."H$:.". (RETURN LAESST DEN NAMEN UNVERAENDERT).S ...M.61:.".DOKUMENT-NAME:":.8200:.C..13. 200......:.X$."".H$.X$......H$."".200.P. ...J.7.T$(0).""..".KEIN DOKUMENT IM SPEI CHER":.8000:.100......OF.0.J.7.T$(0)."". 280.2....".DOKUMENT NICHT GESPEICHERT .. . SPEICHER LOESCHEN";:.8050:.I.100._.... J.400,1000,6000,7000,3000,4000,2000,500. T.... READ TO SCREEN.....N.39:F.0:LL.20: TB$."":.1,3:.7080:.100.....OF.1:T.0:. WR ITE NEW TEXT......".."H$:.:."........... ...................................C$:.C $.510.$...M.M0:.I.T.V:T$(I)."":X$."".A.. ..8220:.C.13..:.X$."".530.W...T$(I).X$:. C..92...T.&..I.V..I.I.1.V:T$(I)."":....X .T.0:L$."":.610:.100:. PACK THE STRINGS. ..B..:.I.T.V:.T$(I)."".630...G.X$.T$(I): M.M0.C(L$):L$.L$.H(X$,M)...L.X$.J(X$,M.1 ):.C(L$).M0.T$(T).L$:."*";:L$.X$:T.T.1.. .V...D....:T$(T).L$:.T.V..I.T.1.V:T$(I). "":..J.....^.... EDIT THE TEXT......".WI EVIEL % TEXT UEBERSPRINGEN (0-100) 0... ";T:T..(T):.T.99.T.100.B...OF.1:.I.0.V:. T$(I)."".......I.I.1:T..(T.I.100..5).... .L.0:.T.V.100.....X$.T$(T):.X$."".1900.$ .$.P$.H(H$,20):.T.P$.T$(T.1).H....".."I( P$,20):.".".29)".BLOCK"T.}.8.."......... ........................................ B..C$:.C$.1090...L.. & SET CURSOR (A,D). S.V.."..."H(X$,L):."...".L)" .."J(X$,L.1 ,1)...J.."...".L.1)J(X$,L.2)H(B$,M0.C(X$ )):."...!....30:.X.92.T$(T).X$:.600:. EN D.P....X.29.L.L.(L.1.C(X$)):.1100:. CURS OR RIGHT.X.D..C.29.L.L.(L.0):.1100:. CUR SOR LEFT...N..X.17.L.L.40.(L.40.C(X$)):. 1100:. CURSOR DOWN.T.X..C.17.L.L.40.(L.3 9):.1100:. CURSOR UP......X.19.L.0:.1100 :. CURSOR HOME.0....C.19..I.T.V.1:T$(I). T$(I.1):.:T$(V)."":.1040:. CLEAR.\....X. 13.T$(T).X$:T.T.1:.1040:. NEXT BLOCK.... ..C.13.T$(T).X$:T.T.(T.0):.1040:. PRIOR BLOCK. ....L..C(X$).1100.D...L$.H(X$,L): .X.148.1350:. INSERT.....M$.J(X$,L.2):.C ..20.X$.L$.C$.M$:X.29:.1210:. REPLACE CH ARACTER.3.2.X$.L$.M$:.X$."".C.19:.1260:. NULL BLOCK.=.<..1100.N.F.M$.J(X$,L.1):. "................."M$:."..."L$...K.."... ".C(L$));:M.M0:.8200...P.M.M0.C(L$):L$.L $.H(X$,M):M$.J(X$,M.1).M$...Z.M.M0.C(L$) :T$(T).L$.H(M$,M):L$.J(M$,M.1):M$."":.L$ ."".1050...D.X.T:T.T.1:.610:T.X:.1050.*. L.. ADD TO THE END.=.V..T.0.600:. END.E. ..X$.T$(T.1):."."X$:.".".C(X$));:.510.V. P.. INPUT FILE...U.Q9$."DOKUMENT": . FOR ERROR MSG IN 60000.J....CF.2..".VON DER DATASETTE";:.8050......CF.2.(CF.2.I.0). .1,1,0,H$:.2100......1,08,2,H(H$,16):.8, X,X$:.X.60000.L.4.OF.0:.40:.".LIEST : . "X$:H$.X$:.40:.X$:.:. HEADER.S...X$.G(31 ):.I.0.V:L$."":. INPUT FILE......J.1.M0: .#1,C$:.ST.J.M0:.2230.A....C$.X$.L$.L$.C $:. ONLY LEGAL CHARACTERS......J:T$(I).L $:.L$;:.ST.0..I:I.I.1...J.T.I:.650:.8000 :.100......3020:.100:. OUTPUT FILE.=.L.. CF.2..".AUF DATASETTE";:.8050.B.V..CF.2. (CF.3.I.0)..1,1,1,H$:.3100.....L$."0:".H (H$,16):.1,08,2,L$:.8,X,X$: 1:.X.3080.O. ...".DOKUMENT EXISTIERT - UEBERSCHREIBEN ";:.8050:.I........8,"S"L$:.8,"I0..... .1,08,3,L$.",S,W":.8,X,X$:.X.Q9$."SPACE" :.60000.....OF.0:.1,H$G(141)D$.U.N..I.0. V:.T$(I).""..1,T$(I);:."*";:..C.X..1,"\" ;:..Z. .. BATCH PROCESSING.....Q9$."FILE ": . FOR ERROR MSG IN 60000.G....".";:.C F.4100,4050:. ELSE BOTH......"VON DATASE TTE";:.8050:.I.4100...R.. FROM CASSETTE. .....2,1:.4150...... FROM DISC.T....".AD RESSEN 64: DATEI-NAME -...";X$:.X$."-". 4110.X....2,08,2,X$:.8,X,X$:.X. 2:.60000 ...6.. PREPARE FOR OUTPUT.D.@.TB$."":S2. 0:N.72:F.1:.1,04:S$.".".H(B$,40.N.2)...J ..".STANDARD-FORMAT";:.8050:.I..7500...H .. GET THE NAME AND SALUTATION.:.R..2,Z$ :.ST.0.C(Z$).2.4900:. NO LAST NAME.Z.|.L $."":.7450:X$."":Y$."":M$."SEHR GEEHRTE DAMEN UND HERREN,"......2,X$:.C(X$).2.X$ ."":.4250:. NO FIRST NAME.L...M$."LIEBE/ R ".X$.",":X$.X$." "......2,Y$:.C(Y$).2. Y$."":.4270:. NO TITLE.....Y$.Y$." ":M$. "LIEBE/R ".Y$.Z$.",.H...L$.Y$.X$.Z$:.2,X $:.C(X$).2.L$.L$.", ".X$.Q...Z$.M$:M$."" :P$.L$:.7900:. PRINT NAME...L.. GET ADDR ESS...V..2,L$:.C(L$).1.P$.L$:.7900:. LIN E 2.S....2,L$:.C(L$).1.P$.L$:.7900:. LIN E 3......2,L$:.2,Y$:.C(Y$).1.L$.L$.", ". Y$:. STATE, ZIP. ....C(L$).1.P$.L$:.7900 .L....I.L.14:.7900:.:L$.Z$:P$.L$:.7090:. 4200.X.$. 2:.100.Q.P.. SEARCH AND REPLAC E...Z.."..SUCHEN NACH?":M.40:.8200:Z$.X$ :L.C(X$):.L.0.L.M.6010.X....:.".ERSETZEN DURCH?":.8200:Y$.X$:.:......X$."":M$."" :L$."":T.0:U.0:F.0:OF.1...8.. ATTACH T$ TO X$.(.B..C(X$)..L.6250.F.L..T.V.6400:. ALL T$'S READ.K.V.X$.X$.T$(T):T$(T)."": T.T.1:.6200...J.. SEARCH FOR MATCH...T.. I.1.C(X$).L.1:.J(X$,I,L)..Z$..:J.I:.6300 .F.~.M$.Y$:J.I.L:.".";.Z.... SPLIT STRIN GS.....M$.H(X$,I.1).M$:X$.J(X$,J):.6500: .F.6900:.6200. .... STOW LAST L$.=....65 00:.F.6900:. CLEAR M$.I...M$.X$:.6500:.F .6900:. M$_X$; CLEAR BOTH. ....U..V.T.U: .650:.100:. STOW L$, CLEAR HIGHER BLOCKS ...(..6900.M.D.. CLEAR M$ - STOW L$ IF N EEDED...N.M.M0.C(L$):L$.L$.H(M$,M):M$.J( M$,M.1):.C(L$).M0.....X..U..V.6550.?.... U.T.T$(U).L$:."*.";:U.U.1:L$.M$:M$."":.. Y....T.V..I.V.T.1..1:T$(I).T$(I.1):.:T$( T)."":T.T.1:.6530.....F.1:....... ERROR EXIT.E....:.".OUT OF ROOM - DATA IMPAIRE D":.8000:.100...X.. FORMAT AND PRINT...B ..7020:.100...L..1,04:F.1:. PRINTER.4.V. S2.1:N.60:TB$."":X$."FID":. DEFAULTS (DR AFT).H...."..F.ORMAL, .I.NFORMAL, OR .D. RAFT";:.8060:J.I......J.2.S2.0:N.72:.750 0.....S$.".".H(B$,40.N.2):.J.0.7400:. FO RMAL.O...L$.".".H$:P$.H$:M$.H(K$,C(H$)). ....J.0:.".":.7900:.7900:.J.......T.0:X$ ."]".TB$:E.0:Z$.B$:. PRINT TEXT.N.F..C(X $)..N.X$.X$.T$(T):T.T.1:.C(X$)..N.T.V.X$ .X$."\.~.K..F(X$).32.X$.J(X$,2):.7110:. LEADING BLANKS...P..E.X$."[".X$.L.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$.. .X.C :.7900:.J.0.X.94.X.92..7950:.J.0.X.92... . *..7110.F ... FORMAL.. ..L$."":.7450:. ".VIER ADRESS-ZEILEN":M.N:.I.1.4.*!..."Z EILE"I:.8200:.:.C(X$).M..".ZU LANG ":.74 20.H!..P$.X$:.7900:.:.7900:.7900.L!..."A NREDE ":.8200:P$.X$:.7090..!...:M$."" :Y$.S$:.I.1.3:.P$:.7490:.:P$.D$:.7490..! ...I.1.5:.7900:.:S$.Y$:...!B.K.C(P$):S$. ".".H(B$,40.K.2):.7900..!L.. FORMAT VARI ATIONS.."V..".STANDARD-FORMAT:":.," EIN- ZEILIG.Q"`..,N"ZEICHEN PRO ZEILE ":.,LL "ZEILEN PRO SEITE.M"J..," TAB-LAENGE ="C (TB$).."T..".MOECHTEN SIE ES AENDERN ";: .8050:.I...."~..".EIN-ZEILIG ";:.8050:S 2.I.."...".ZEICHEN PRO ZEILE (20-80) 72 .....";N..#...N.20.N.80.."..":.7560.D #...".ZEILEN PRO SEITE "LL". ......";:. LL:.LL.1.."..":.7580.#...".LAENGE DER T AB.";:X$."0123456789":.8060:TB$.H(B$,I). .#.....#... 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.R$...P$." ".P$.S$.P$.M$...L$;:.7930:.J.0.S2.0....$ ...F..:.1,P$;:.M$.B$..1,Q$S$M$;..$...1:P $."":L$."":M$."":L.L.1:.L.LL...K$...F.0. .8000:L.0:...$...L..I.L.LP.1:.1:.:L.0:. PAGE WITH BLANKS..%"..".":..0%6.J.1:.".Z EILE FUER DRUCK ZU LANG":.7950:..@%@.. U TILITIES.T%J..".. WEITER MIT BELIEBIGER TASTE";:.20:.:.".":..%R.X$."JN..%|.."? ";..%...20:.I.1.C(X$):.C$..J(X$,I,1)..:. 8070.C%..I.I.1:.C$;..%...W$:.W$.""..".." ;:.8080..%..." .";:.W$.R$..:...&...W$.G( 20)..W$;:.8070..&...8080.3&. X$."":. INP UT A STRING.D&. .C$:.C$.8210.\&. .25:.C. 13.C.92.8290..&& .C.20.X$.""..C$;:X$.H(X $,C(X$).1):. DELETE..&0 .C.20.8220:. DEL ETE ON NULL..&: .(127.C).32.8220:. CURSO R CONTROL CHARACTERS..&D .C$;:.C.34..C$G (20);..'N X$.X$.C$:.C(X$).M.8220..'B ..- '.!. QUIT THE PROGRAM.C'."."..SEITENVORS CHUB AM DRUCKER ";:.8050:.I.8740..'." .1,04:F.1:L..1:.7950:. EXPEL A PAGE..'$" .OF.0.T$(0)."".8760..'.".".DOKUMENT NICH T GESICHERT; SPEICHERN";:.8050:.I.0. 1:. 3020..'8" 1:.".TSCHUESS!":..#(D".1,04:F. 1:L..1:.7950:. EXPEL A PAGE.4((#. INITIA LIZE.D(-#LP.72:L0.60:M0.160:Q$.G(141):R$ .G(13):K$."...(2#V..((.(0).2000).M0):.T$ (V).D(<#.".............................. ".39)"..":.59468,14:. FORMAT..(A#.53272, 2.B(53272):.". . COMMODORE TEXT 64 ...)C#.61000: . COLOR CHANGE.X)F#."..K.A SSETTE, .D.ISKETTE ODER .B.EIDES";:X$."D KB":.8060:CF.I.1..)P#B$." ":.I.1.5:B $.B$.B$:.:.8,08,15..)U#.".TAGESDATUM ?" :M.20:.8200:D$.X$.C)Z#K$." ":. 1525 PRIN TER..)D#. K$="_":Q$=R$+CHR$(27)+".":REM 8300 PRINTER..*X#.I.1.7:K$.K$.K$:.:.100. .*.#.100.7*.'. LETTERHEAD DATA, DELETED. ?*.'."".G*$'."".O*.'."".T*`..Q9$" NICHT GEFUNDEN":.8000:.100..*H.. COLOR CHANGE ROUTINE..*I...C(X).B(X).1.16.((B(X).15). 15).Y*J..:.".......F1.= FARBE DES RANDES "..*K.."..F3.= HINTERGRUND-FARBE"..+L.." ..F5.= FARBE DER ZEICHEN".2+M.."..RETURN .= WEITER".D+R..C$:.C$.61010.Y+\..C$:.C$ ."".61020..+F.C.F(C$):.C.135..646,.C(646 ):.61002..+Z.C.F(C$):.C.133.C.134.X.5314 7.C:.X,.C(X)..+...C..13.61010.C+.......
> CLICK IMAGE PREVIEW FOR FULL MODAL