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