TEXT 64
FILE INFORMATION
FILENAME(S): TEXT 64
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-10-20 00:37:05
APPEARS ON: 1 disk(s)
FILE HASH
bbc98a5cbf1453ad8edf771f2b341a2b68385c3af814bed01831b2cf15fc9337
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VP SPIELE 4 | TEXT 64 | PRG | Treasure Chest - Holger | 30 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3B 08 0A 00 89 39 30 30 30 3A 8F 20 28 43 |..;....9000:. (C|
00000010: 29 20 31 39 38 32 20 42 59 20 43 4F 4D 4D 4F 44 |) 1982 BY COMMOD|
00000020: 4F 52 45 20 42 55 53 49 4E 45 53 53 20 4D 41 43 |ORE BUSINESS MAC|
00000030: 48 49 4E 45 53 2C 20 49 4E 43 2E 00 4A 08 14 00 |HINES, INC..J...|
00000040: A1 43 24 3A 8B 43 24 89 32 30 00 67 08 19 00 A1 |.C$:.C$.20.g....|
00000050: 43 24 3A 8B 43 24 A7 99 22 20 9D 22 3B 3A 43 B2 |C$:.C$.." .";:C.|
00000060: C6 28 43 24 29 3A 8E 00 76 08 1B 00 99 22 A4 9D |.(C$):..v...."..|
00000070: 22 3B 3A 89 32 35 00 88 08 1E 00 A1 43 24 3A 8B |";:.25......C$:.|
00000080: 43 24 B2 22 22 89 33 30 00 BD 08 20 00 58 B2 C6 |C$."".30... .X..|
00000090: 28 43 24 29 3A 43 B2 58 AF 31 32 37 3A 8B 43 B2 |(C$):C.X.127:.C.|
000000A0: 31 33 B0 43 B2 31 37 B0 43 B2 31 39 B0 43 B2 32 |13.C.17.C.19.C.2|
000000B0: 30 B0 43 B2 32 39 B0 43 B1 33 31 A7 8E 00 C5 08 |0.C.29.C.31.....|
000000C0: 22 00 89 33 30 00 CF 08 28 00 58 24 B2 22 22 00 |"..30...(.X$."".|
000000D0: ED 08 2A 00 A1 23 31 2C 43 24 3A 8B 43 24 B2 52 |..*..#1,C$:.C$.R|
000000E0: 24 B0 43 24 B2 C7 28 31 34 31 29 A7 8E 00 FE 08 |$.C$..(141).....|
000000F0: 2C 00 58 24 B2 58 24 AA 43 24 3A 89 34 32 00 17 |,.X$.X$.C$:.42..|
00000100: 09 64 00 4C B2 30 3A 4C 4C B2 4C 30 3A A0 31 3A |.d.L.0:LL.L0:.1:|
00000110: 8F 20 45 4E 54 52 59 00 3E 09 6E 00 99 22 93 20 |. ENTRY.>.n..". |
00000120: 20 20 20 20 20 20 20 20 12 20 C3 4F 4D 4D 4F 44 | . .OMMOD|
00000130: 4F 52 45 20 D4 C5 D8 D4 20 36 34 20 11 11 00 53 |ORE .... 64 ...S|
00000140: 09 78 00 99 22 C6 55 4E 4B 54 49 4F 4E 45 4E 3A |.x..".UNKTIONEN:|
00000150: 11 11 22 00 77 09 7D 00 99 2C 22 12 C5 92 52 53 |..".w.}..,"...RS|
00000160: 54 45 4C 4C 45 4E 20 45 49 4E 45 53 20 C4 4F 4B |TELLEN EINES .OK|
00000170: 55 4D 45 4E 54 45 53 00 9B 09 82 00 99 2C 22 12 |UMENTES......,".|
00000180: D3 92 50 45 49 43 48 45 52 4E 20 45 49 4E 45 53 |..PEICHERN EINES|
00000190: 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 BE 09 87 00 | .OKUMENTES.....|
000001A0: 99 2C 22 12 C1 92 55 46 52 55 46 45 4E 20 45 49 |.,"...UFRUFEN EI|
000001B0: 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 E0 |NES .OKUMENTES..|
000001C0: 09 8C 00 99 2C 22 12 C4 92 52 55 43 4B 45 4E 20 |....,"...RUCKEN |
000001D0: 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 |EINES .OKUMENTES|
000001E0: 00 05 0A 96 00 99 2C 22 12 D6 92 45 52 41 45 4E |......,"...ERAEN|
000001F0: 44 45 52 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D |DERN EINES .OKUM|
00000200: 45 4E 54 45 53 00 2B 0A A0 00 99 2C 22 12 C7 92 |ENTES.+....,"...|
00000210: 4C 4F 42 41 4C 45 53 20 D3 55 43 48 45 4E 20 55 |LOBALES .UCHEN U|
00000220: 4E 44 20 D4 41 55 53 43 48 45 4E 00 50 0A A5 00 |ND .AUSCHEN.P...|
00000230: 99 2C 22 12 C2 92 D3 2D C1 4E 5A 45 49 47 45 20 |.,"....-.NZEIGE |
00000240: 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 |EINES .OKUMENTES|
00000250: 00 71 0A AA 00 99 2C 22 12 D2 92 55 4E 44 53 43 |.q....,"...UNDSC|
00000260: 48 52 45 49 42 45 4E 20 C5 52 53 54 45 4C 4C 45 |HREIBEN .RSTELLE|
00000270: 4E 00 87 0A B9 00 99 2C 22 12 D0 92 52 4F 47 52 |N......,"...ROGR|
00000280: 41 4D 4D 45 4E 44 45 00 BF 0A BE 00 58 24 B2 22 |AMMENDE.....X$."|
00000290: 50 42 56 47 44 53 52 41 45 22 3A 99 22 11 D7 45 |PBVGDSRAE":."..E|
000002A0: 4C 43 48 45 20 C6 55 4E 4B 54 49 4F 4E 22 3B 3A |LCHE .UNKTION";:|
000002B0: 8D 38 30 36 30 3A 8B 49 B2 30 89 38 37 30 30 00 |.8060:.I.0.8700.|
000002C0: D0 0A C3 00 4A B2 49 3A 8B 4A B3 34 89 32 35 30 |....J.I:.J.4.250|
000002D0: 00 E7 0A C8 00 99 22 93 22 3A 8F 20 47 45 54 20 |......".":. GET |
000002E0: 53 55 42 4A 45 43 54 00 29 0B D2 00 8B 48 24 B1 |SUBJECT.)....H$.|
000002F0: 22 22 A7 99 22 C4 4F 4B 55 4D 45 4E 54 3A 20 12 |""..".OKUMENT: .|
00000300: 22 48 24 3A 99 22 11 28 D2 C5 D4 D5 D2 CE 20 4C |"H$:.".(...... L|
00000310: 41 45 53 53 54 20 CE 41 4D 45 4E 20 55 4E 56 45 |AESST .AMEN UNVE|
00000320: 52 41 45 4E 44 45 52 54 29 00 5B 0B DC 00 4D B2 |RAENDERT).[...M.|
00000330: 36 31 3A 99 22 11 CE 41 4D 45 20 44 45 53 20 C4 |61:."..AME DES .|
00000340: 4F 4B 55 4D 45 4E 54 53 3A 22 3A 8D 38 32 30 30 |OKUMENTS:":.8200|
00000350: 3A 8B 43 B3 B1 31 33 89 32 30 30 00 6E 0B E6 00 |:.C..13.200.n...|
00000360: 99 3A 8B 58 24 B1 22 22 A7 48 24 B2 58 24 00 7D |.:.X$."".H$.X$.}|
00000370: 0B F0 00 8B 48 24 B2 22 22 89 32 30 30 00 B8 0B |....H$."".200...|
00000380: FA 00 8B 4A B3 37 AF 54 24 28 30 29 B2 22 22 A7 |...J.7.T$(0)."".|
00000390: 99 22 11 CB 45 49 4E 20 C4 4F 4B 55 4D 45 4E 54 |."..EIN .OKUMENT|
000003A0: 20 49 4D 20 D3 50 45 49 43 48 45 52 22 3A 8D 38 | IM .PEICHER":.8|
000003B0: 30 30 30 3A 89 31 30 30 00 D3 0B 04 01 8B 4F 46 |000:.100......OF|
000003C0: B2 30 B0 4A B3 37 B0 54 24 28 30 29 B2 22 22 89 |.0.J.7.T$(0)."".|
000003D0: 32 38 30 00 16 0C 0E 01 99 22 11 C4 4F 4B 55 4D |280......"..OKUM|
000003E0: 45 4E 54 20 4E 49 43 48 54 20 41 42 47 45 53 50 |ENT NICHT ABGESP|
000003F0: 45 49 43 48 45 52 54 2C 20 49 4E 49 54 49 41 4C |EICHERT, INITIAL|
00000400: 49 53 49 45 52 45 4E 22 3B 3A 8D 38 30 35 30 3A |ISIEREN";:.8050:|
00000410: 8B 49 89 31 30 30 00 43 0C 18 01 91 4A 89 34 30 |.I.100.C....J.40|
00000420: 30 2C 31 30 30 30 2C 36 30 30 30 2C 37 30 30 30 |0,1000,6000,7000|
00000430: 2C 33 30 30 30 2C 34 30 30 30 2C 32 30 30 30 2C |,3000,4000,2000,|
00000440: 35 30 30 00 58 0C 90 01 8F 20 52 45 41 44 20 54 |500.X.... READ T|
00000450: 4F 20 53 43 52 45 45 4E 00 82 0C 9A 01 4E B2 33 |O SCREEN.....N.3|
00000460: 39 3A 46 B2 30 3A 4C 4C B2 32 30 3A 54 42 24 B2 |9:F.0:LL.20:TB$.|
00000470: 22 22 3A 9F 31 2C 33 3A 8D 37 30 38 30 3A 89 31 |"":.1,3:.7080:.1|
00000480: 30 30 00 A0 0C F4 01 4F 46 B2 31 3A 54 B2 30 3A |00.....OF.1:T.0:|
00000490: 8F 20 57 52 49 54 45 20 4E 45 57 20 54 45 58 54 |. WRITE NEW TEXT|
000004A0: 00 D9 0C F9 01 99 22 93 12 22 48 24 3A 99 3A 99 |......".."H$:.:.|
000004B0: 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |"...............|
000004C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 00 E9 0C FE 01 A1 43 |...............C|
000004E0: 24 3A 8B 43 24 89 35 31 30 00 08 0D 08 02 4D B2 |$:.C$.510.....M.|
000004F0: 4D 30 3A 81 49 B2 54 A4 56 3A 54 24 28 49 29 B2 |M0:.I.T.V:T$(I).|
00000500: 22 22 3A 58 24 B2 22 22 00 25 0D 12 02 8D 38 32 |"":X$."".%....82|
00000510: 32 30 3A 8B 43 B2 31 33 A7 99 3A 8B 58 24 B2 22 |20:.C.13..:.X$."|
00000520: 22 89 35 33 30 00 3B 0D 1C 02 54 24 28 49 29 B2 |".530.;...T$(I).|
00000530: 58 24 3A 8B 43 B3 B1 39 32 A7 82 00 58 0D 26 02 |X$:.C..92...X.&.|
00000540: 8B 49 B3 56 A7 81 49 B2 49 AA 31 A4 56 3A 54 24 |.I.V..I.I.1.V:T$|
00000550: 28 49 29 B2 22 22 3A 82 00 83 0D 58 02 54 B2 30 |(I)."":....X.T.0|
00000560: 3A 4C 24 B2 22 22 3A 8D 36 31 30 3A 89 31 30 30 |:L$."":.610:.100|
00000570: 3A 8F 20 50 41 43 4B 20 54 48 45 20 53 54 52 49 |:. PACK THE STRI|
00000580: 4E 47 53 00 9E 0D 62 02 99 3A 81 49 B2 54 A4 56 |NGS...b..:.I.T.V|
00000590: 3A 8B 54 24 28 49 29 B2 22 22 89 36 33 30 00 C4 |:.T$(I)."".630..|
000005A0: 0D 67 02 58 24 B2 54 24 28 49 29 3A 4D B2 4D 30 |.g.X$.T$(I):M.M0|
000005B0: AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 58 |..(L$):L$.L$..(X|
000005C0: 24 2C 4D 29 00 FA 0D 6C 02 58 24 B2 CA 28 58 24 |$,M)...l.X$..(X$|
000005D0: 2C 4D AA 31 29 3A 8B C3 28 4C 24 29 B2 4D 30 A7 |,M.1):..(L$).M0.|
000005E0: 54 24 28 54 29 B2 4C 24 3A 99 22 2A 22 3B 3A 4C |T$(T).L$:."*";:L|
000005F0: 24 B2 58 24 3A 54 B2 54 AA 31 00 00 0E 76 02 82 |$.X$:T.T.1...v..|
00000600: 00 28 0E 8A 02 99 3A 54 24 28 54 29 B2 4C 24 3A |.(....:T$(T).L$:|
00000610: 8B 54 B3 56 A7 81 49 B2 54 AA 31 A4 56 3A 54 24 |.T.V..I.T.1.V:T$|
00000620: 28 49 29 B2 22 22 3A 82 00 2E 0E 94 02 8E 00 42 |(I)."":........B|
00000630: 0E E8 03 8F 20 45 44 49 54 20 54 48 45 20 54 45 |.... EDIT THE TE|
00000640: 58 54 00 88 0E F2 03 85 22 93 D7 49 45 56 49 45 |XT......"..IEVIE|
00000650: 4C 20 25 20 49 4E 20 D4 45 58 54 20 53 50 52 49 |L % IN .EXT SPRI|
00000660: 4E 47 45 4E 20 28 30 2D 31 30 30 29 20 20 30 9D |NGEN (0-100) 0.|
00000670: 9D 9D 22 3B 54 3A 54 B2 B6 28 54 29 3A 8B 54 B1 |..";T:T..(T):.T.|
00000680: 39 39 A7 54 B2 31 30 30 00 A4 0E FC 03 4F 46 B2 |99.T.100.....OF.|
00000690: 31 3A 81 49 B2 30 A4 56 3A 8B 54 24 28 49 29 B1 |1:.I.0.V:.T$(I).|
000006A0: 22 22 A7 82 00 BE 0E 06 04 49 B2 49 AB 31 3A 54 |"".......I.I.1:T|
000006B0: B2 B5 28 54 AC 49 AD 31 30 30 AA 2E 35 29 00 CF |..(T.I.100..5)..|
000006C0: 0E 10 04 4C B2 30 3A 8B 54 B1 56 89 31 30 30 00 |...L.0:.T.V.100.|
000006D0: E8 0E 1A 04 58 24 B2 54 24 28 54 29 3A 8B 58 24 |....X$.T$(T):.X$|
000006E0: B2 22 22 89 31 39 30 30 00 06 0F 24 04 50 24 B2 |."".1900...$.P$.|
000006F0: C8 28 48 24 2C 32 30 29 3A 8B 54 A7 50 24 B2 54 |.(H$,20):.T.P$.T|
00000700: 24 28 54 AB 31 29 00 2A 0F 2E 04 99 22 93 12 22 |$(T.1).*....".."|
00000710: C9 28 50 24 2C 32 30 29 3A 99 22 13 22 A6 32 39 |.(P$,20):.".".29|
00000720: 29 22 92 C2 4C 4F 43 4B 22 54 00 5F 0F 38 04 99 |)"..LOCK"T._.8..|
00000730: 22 11 11 11 11 11 11 A4 A4 A4 A4 A4 A4 A4 A4 A4 |"...............|
00000740: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000750: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 |................|
00000760: 70 0F 42 04 A1 43 24 3A 8B 43 24 89 31 30 39 30 |p.B..C$:.C$.1090|
00000770: 00 89 0F 4C 04 8F 20 26 20 53 45 54 20 43 55 52 |...L.. & SET CUR|
00000780: 53 4F 52 20 28 41 2C 44 29 00 B5 0F 56 04 99 22 |SOR (A,D)...V.."|
00000790: 13 11 11 22 C8 28 58 24 2C 4C 29 3A 99 22 13 11 |...".(X$,L):."..|
000007A0: 11 22 A6 4C 29 22 20 9D 12 22 CA 28 58 24 2C 4C |.".L)" ..".(X$,L|
000007B0: AA 31 2C 31 29 00 E1 0F 6A 04 99 22 13 11 11 22 |.1,1)...j.."..."|
000007C0: A6 4C AA 31 29 CA 28 58 24 2C 4C AA 32 29 C8 28 |.L.1).(X$,L.2).(|
000007D0: 42 24 2C 4D 30 AB C3 28 58 24 29 29 3A 99 22 11 |B$,M0..(X$)):.".|
000007E0: 11 00 03 10 B0 04 8D 33 30 3A 8B 58 B2 39 32 A7 |.......30:.X.92.|
000007F0: 54 24 28 54 29 B2 58 24 3A 89 36 30 30 3A 8F 20 |T$(T).X$:.600:. |
00000800: 45 4E 44 00 32 10 BA 04 8B 58 B2 32 39 A7 4C B2 |END.2....X.29.L.|
00000810: 4C AB 28 4C AA 31 B3 C3 28 58 24 29 29 3A 89 31 |L.(L.1..(X$)):.1|
00000820: 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 52 49 47 |100:. CURSOR RIG|
00000830: 48 54 00 5A 10 C4 04 8B 43 B2 32 39 A7 4C B2 4C |HT.Z....C.29.L.L|
00000840: AA 28 4C B1 30 29 3A 89 31 31 30 30 3A 8F 20 43 |.(L.0):.1100:. C|
00000850: 55 52 53 4F 52 20 4C 45 46 54 00 8C 10 CE 04 8B |URSOR LEFT......|
00000860: 58 B2 31 37 A7 4C B2 4C AB 34 30 AC 28 4C AA 34 |X.17.L.L.40.(L.4|
00000870: 30 B3 C3 28 58 24 29 29 3A 89 31 31 30 30 3A 8F |0..(X$)):.1100:.|
00000880: 20 43 55 52 53 4F 52 20 44 4F 57 4E 00 B6 10 D8 | CURSOR DOWN....|
00000890: 04 8B 43 B2 31 37 A7 4C B2 4C AA 34 30 AC 28 4C |..C.17.L.L.40.(L|
000008A0: B1 33 39 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 |.39):.1100:. CUR|
000008B0: 53 4F 52 20 55 50 00 D8 10 E2 04 8B 58 B2 31 39 |SOR UP......X.19|
000008C0: A7 4C B2 30 3A 89 31 31 30 30 3A 8F 20 43 55 52 |.L.0:.1100:. CUR|
000008D0: 53 4F 52 20 48 4F 4D 45 00 12 11 EC 04 8B 43 B2 |SOR HOME......C.|
000008E0: 31 39 A7 81 49 B2 54 A4 56 AB 31 3A 54 24 28 49 |19..I.T.V.1:T$(I|
000008F0: 29 B2 54 24 28 49 AA 31 29 3A 82 3A 54 24 28 56 |).T$(I.1):.:T$(V|
00000900: 29 B2 22 22 3A 89 31 30 34 30 3A 8F 20 43 4C 45 |)."":.1040:. CLE|
00000910: 41 52 00 3E 11 F6 04 8B 58 B2 31 33 A7 54 24 28 |AR.>....X.13.T$(|
00000920: 54 29 B2 58 24 3A 54 B2 54 AA 31 3A 89 31 30 34 |T).X$:T.T.1:.104|
00000930: 30 3A 8F 20 4E 45 58 54 20 42 4C 4F 43 4B 00 6F |0:. NEXT BLOCK.o|
00000940: 11 00 05 8B 43 B2 31 33 A7 54 24 28 54 29 B2 58 |....C.13.T$(T).X|
00000950: 24 3A 54 B2 54 AA 28 54 B1 30 29 3A 89 31 30 34 |$:T.T.(T.0):.104|
00000960: 30 3A 8F 20 50 52 49 4F 52 20 42 4C 4F 43 4B 00 |0:. PRIOR BLOCK.|
00000970: 82 11 0A 05 8B 4C B1 B2 C3 28 58 24 29 89 31 31 |.....L...(X$).11|
00000980: 30 30 00 A6 11 14 05 4C 24 B2 C8 28 58 24 2C 4C |00.....L$..(X$,L|
00000990: 29 3A 8B 58 B2 31 34 38 89 31 33 35 30 3A 8F 20 |):.X.148.1350:. |
000009A0: 49 4E 53 45 52 54 00 E9 11 1E 05 4D 24 B2 CA 28 |INSERT.....M$..(|
000009B0: 58 24 2C 4C AA 32 29 3A 8B 43 B3 B1 32 30 A7 58 |X$,L.2):.C..20.X|
000009C0: 24 B2 4C 24 AA 43 24 AA 4D 24 3A 58 B2 32 39 3A |$.L$.C$.M$:X.29:|
000009D0: 89 31 32 31 30 3A 8F 20 52 45 50 4C 41 43 45 20 |.1210:. REPLACE |
000009E0: 43 48 41 52 41 43 54 45 52 00 15 12 32 05 58 24 |CHARACTER...2.X$|
000009F0: B2 4C 24 AA 4D 24 3A 8B 58 24 B2 22 22 A7 43 B2 |.L$.M$:.X$."".C.|
00000A00: 31 39 3A 89 31 32 36 30 3A 8F 20 4E 55 4C 4C 20 |19:.1260:. NULL |
00000A10: 42 4C 4F 43 4B 00 1F 12 3C 05 89 31 31 30 30 00 |BLOCK...<..1100.|
00000A20: 50 12 46 05 4D 24 B2 CA 28 58 24 2C 4C AA 31 29 |P.F.M$..(X$,L.1)|
00000A30: 3A 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 |:.".............|
00000A40: 11 11 11 12 22 4D 24 3A 99 22 13 11 11 22 4C 24 |...."M$:."..."L$|
00000A50: 00 6E 12 4B 05 99 22 13 11 11 22 A3 C3 28 4C 24 |.n.K.."..."..(L$|
00000A60: 29 29 3B 3A 4D B2 4D 30 3A 8D 38 32 30 30 00 9B |));:M.M0:.8200..|
00000A70: 12 50 05 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 |.P.M.M0..(L$):L$|
00000A80: B2 4C 24 AA C8 28 58 24 2C 4D 29 3A 4D 24 B2 CA |.L$..(X$,M):M$..|
00000A90: 28 58 24 2C 4D AA 31 29 AA 4D 24 00 DA 12 5A 05 |(X$,M.1).M$...Z.|
00000AA0: 4D B2 4D 30 AB C3 28 4C 24 29 3A 54 24 28 54 29 |M.M0..(L$):T$(T)|
00000AB0: B2 4C 24 AA C8 28 4D 24 2C 4D 29 3A 4C 24 B2 CA |.L$..(M$,M):L$..|
00000AC0: 28 4D 24 2C 4D AA 31 29 3A 4D 24 B2 22 22 3A 8B |(M$,M.1):M$."":.|
00000AD0: 4C 24 B2 22 22 89 31 30 35 30 00 F7 12 64 05 58 |L$."".1050...d.X|
00000AE0: B2 54 3A 54 B2 54 AA 31 3A 8D 36 31 30 3A 54 B2 |.T:T.T.1:.610:T.|
00000AF0: 58 3A 89 31 30 35 30 00 0C 13 6C 07 8F 20 41 44 |X:.1050...l.. AD|
00000B00: 44 20 54 4F 20 54 48 45 20 45 4E 44 00 1F 13 76 |D TO THE END...v|
00000B10: 07 8B 54 B2 30 89 36 30 30 3A 8F 20 45 4E 44 00 |..T.0.600:. END.|
00000B20: 47 13 80 07 58 24 B2 54 24 28 54 AB 31 29 3A 99 |G...X$.T$(T.1):.|
00000B30: 22 93 22 58 24 3A 99 22 13 22 A6 C3 28 58 24 29 |"."X$:."."..(X$)|
00000B40: 29 3B 3A 89 35 31 30 00 58 13 D0 07 8F 20 49 4E |);:.510.X.... IN|
00000B50: 50 55 54 20 46 49 4C 45 00 84 13 D5 07 51 39 24 |PUT FILE.....Q9$|
00000B60: B2 22 C4 4F 4B 55 4D 45 4E 54 22 3A 8F 20 46 4F |.".OKUMENT":. FO|
00000B70: 52 20 45 52 52 4F 52 20 4D 53 47 20 49 4E 20 36 |R ERROR MSG IN 6|
00000B80: 30 30 30 30 00 A7 13 EE 07 8B 43 46 B1 32 A7 99 |0000......CF.2..|
00000B90: 22 11 D6 4F 4E 20 C4 41 54 41 53 45 54 54 45 22 |"..ON .ATASETTE"|
00000BA0: 3B 3A 8D 38 30 35 30 00 CC 13 F8 07 8B 43 46 B2 |;:.8050......CF.|
00000BB0: 32 B0 28 43 46 B1 32 AF 49 B2 30 29 A7 9F 31 2C |2.(CF.2.I.0)..1,|
00000BC0: 31 2C 30 2C 48 24 3A 89 32 31 30 30 00 F2 13 02 |1,0,H$:.2100....|
00000BD0: 08 9F 31 2C 30 38 2C 32 2C C8 28 48 24 2C 31 36 |..1,08,2,.(H$,16|
00000BE0: 29 3A 84 38 2C 58 2C 58 24 3A 8B 58 89 36 30 30 |):.8,X,X$:.X.600|
00000BF0: 30 30 00 27 14 34 08 4F 46 B2 30 3A 8D 34 30 3A |00.'.4.OF.0:.40:|
00000C00: 99 22 11 CC 45 53 45 4E 3A 20 12 22 58 24 3A 48 |."..ESEN: ."X$:H|
00000C10: 24 B2 58 24 3A 8D 34 30 3A 99 58 24 3A 99 3A 8F |$.X$:.40:.X$:.:.|
00000C20: 20 48 45 41 44 45 52 00 4E 14 98 08 58 24 B2 C7 | HEADER.N...X$..|
00000C30: 28 33 31 29 3A 81 49 B2 30 A4 56 3A 4C 24 B2 22 |(31):.I.0.V:L$."|
00000C40: 22 3A 8F 20 49 4E 50 55 54 20 46 49 4C 45 00 70 |":. INPUT FILE.p|
00000C50: 14 A2 08 81 4A B2 31 A4 4D 30 3A A1 23 31 2C 43 |....J.1.M0:.#1,C|
00000C60: 24 3A 8B 53 54 A7 4A B2 4D 30 3A 89 32 32 33 30 |$:.ST.J.M0:.2230|
00000C70: 00 9C 14 AC 08 8B 43 24 B1 58 24 A7 4C 24 B2 4C |......C$.X$.L$.L|
00000C80: 24 AA 43 24 3A 8F 20 4F 4E 4C 59 20 4C 45 47 41 |$.C$:. ONLY LEGA|
00000C90: 4C 20 43 48 41 52 41 43 54 45 52 53 00 C0 14 B6 |L CHARACTERS....|
00000CA0: 08 82 4A 3A 54 24 28 49 29 B2 4C 24 3A 99 4C 24 |..J:T$(I).L$:.L$|
00000CB0: 3B 3A 8B 53 54 B2 30 A7 82 49 3A 49 B2 49 AB 31 |;:.ST.0..I:I.I.1|
00000CC0: 00 D8 14 CA 08 54 B2 49 3A 8D 36 35 30 3A 8D 38 |.....T.I:.650:.8|
00000CD0: 30 30 30 3A 89 31 30 30 00 F5 14 B8 0B 8D 33 30 |000:.100......30|
00000CE0: 32 30 3A 89 31 30 30 3A 8F 20 4F 55 54 50 55 54 |20:.100:. OUTPUT|
00000CF0: 20 46 49 4C 45 00 18 15 CC 0B 8B 43 46 B1 32 A7 | FILE......CF.2.|
00000D00: 99 22 93 C1 55 46 20 C4 41 54 41 53 45 54 54 45 |."..UF .ATASETTE|
00000D10: 22 3B 3A 8D 38 30 35 30 00 3D 15 D6 0B 8B 43 46 |";:.8050.=....CF|
00000D20: B2 32 B0 28 43 46 B2 33 AF 49 B2 30 29 A7 9F 31 |.2.(CF.3.I.0)..1|
00000D30: 2C 31 2C 31 2C 48 24 3A 89 33 31 30 30 00 70 15 |,1,1,H$:.3100.p.|
00000D40: E0 0B 4C 24 B2 22 30 3A 22 AA C8 28 48 24 2C 31 |..L$."0:"..(H$,1|
00000D50: 36 29 3A 9F 31 2C 30 38 2C 32 2C 4C 24 3A 84 38 |6):.1,08,2,L$:.8|
00000D60: 2C 58 2C 58 24 3A A0 31 3A 8B 58 89 33 30 38 30 |,X,X$:.1:.X.3080|
00000D70: 00 A7 15 EA 0B 99 22 11 C4 4F 4B 55 4D 45 4E 54 |......"..OKUMENT|
00000D80: 20 45 58 49 53 54 49 45 52 54 2C 20 55 45 42 45 | EXISTIERT, UEBE|
00000D90: 52 53 43 48 52 45 49 42 45 4E 22 3B 3A 8D 38 30 |RSCHREIBEN";:.80|
00000DA0: 35 30 3A 8B 49 A7 8E 00 BB 15 F4 0B 98 38 2C 22 |50:.I........8,"|
00000DB0: 53 22 4C 24 3A 98 38 2C 22 49 30 00 EF 15 08 0C |S"L$:.8,"I0.....|
00000DC0: 9F 31 2C 30 38 2C 33 2C 4C 24 AA 22 2C 53 2C 57 |.1,08,3,L$.",S,W|
00000DD0: 22 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 51 39 24 |":.8,X,X$:.X.Q9$|
00000DE0: B2 22 53 50 41 43 45 22 3A 8D 36 30 30 30 30 00 |."SPACE":.60000.|
00000DF0: 06 16 1C 0C 4F 46 B2 30 3A 98 31 2C 48 24 C7 28 |....OF.0:.1,H$.(|
00000E00: 31 34 31 29 44 24 00 2D 16 4E 0C 81 49 B2 30 A4 |141)D$.-.N..I.0.|
00000E10: 56 3A 8B 54 24 28 49 29 B1 22 22 A7 98 31 2C 54 |V:.T$(I).""..1,T|
00000E20: 24 28 49 29 3B 3A 99 22 2A 22 3B 3A 82 00 3B 16 |$(I);:."*";:..;.|
00000E30: 58 0C 98 31 2C 22 5C 22 3B 3A 8E 00 52 16 A0 0F |X..1,"\";:..R...|
00000E40: 8F 20 42 41 54 43 48 20 50 52 4F 43 45 53 53 49 |. BATCH PROCESSI|
00000E50: 4E 47 00 7B 16 A5 0F 51 39 24 B2 22 C4 41 54 45 |NG.{...Q9$.".ATE|
00000E60: 49 22 3A 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D |I":. FOR ERROR M|
00000E70: 53 47 20 49 4E 20 36 30 30 30 30 00 9F 16 AA 0F |SG IN 60000.....|
00000E80: 99 22 93 22 3B 3A 91 43 46 89 34 31 30 30 2C 34 |.".";:.CF.4100,4|
00000E90: 30 35 30 3A 8F 20 45 4C 53 45 20 42 4F 54 48 00 |050:. ELSE BOTH.|
00000EA0: C3 16 B4 0F 99 22 D6 4F 4E 20 C4 41 54 41 53 45 |.....".ON .ATASE|
00000EB0: 54 54 45 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 34 |TTE";:.8050:.I.4|
00000EC0: 31 30 30 00 D7 16 D2 0F 8F 20 46 52 4F 4D 20 43 |100...... FROM C|
00000ED0: 41 53 53 45 54 54 45 00 E6 16 DC 0F 9F 32 2C 31 |ASSETTE......2,1|
00000EE0: 3A 89 34 31 35 30 00 F6 16 04 10 8F 20 46 52 4F |:.4150...... FRO|
00000EF0: 4D 20 44 49 53 43 00 2B 17 0E 10 85 22 93 C1 C4 |M DISC.+...."...|
00000F00: D2 C5 D3 D3 20 36 34 20 C4 41 54 45 49 20 CE 41 |.... 64 .ATEI .A|
00000F10: 4D 45 20 20 20 20 2D 9D 9D 9D 22 3B 58 24 3A 8B |ME -...";X$:.|
00000F20: 58 24 B2 22 2D 22 89 34 31 31 30 00 4F 17 18 10 |X$."-".4110.O...|
00000F30: 9F 32 2C 30 38 2C 32 2C 58 24 3A 84 38 2C 58 2C |.2,08,2,X$:.8,X,|
00000F40: 58 24 3A 8B 58 A7 A0 32 3A 89 36 30 30 30 30 00 |X$:.X..2:.60000.|
00000F50: 68 17 36 10 8F 20 50 52 45 50 41 52 45 20 46 4F |h.6.. PREPARE FO|
00000F60: 52 20 4F 55 54 50 55 54 00 9B 17 40 10 54 42 24 |R OUTPUT...@.TB$|
00000F70: B2 22 22 3A 53 32 B2 30 3A 4E B2 37 32 3A 46 B2 |."":S2.0:N.72:F.|
00000F80: 31 3A 9F 31 2C 30 34 3A 53 24 B2 22 11 22 AA C8 |1:.1,04:S$."."..|
00000F90: 28 42 24 2C 34 30 AB 4E AD 32 29 00 C3 17 4A 10 |(B$,40.N.2)...J.|
00000FA0: 99 22 11 D3 54 41 4E 44 41 52 44 2D C6 4F 52 4D |."..TANDARD-.ORM|
00000FB0: 41 54 22 3B 3A 8D 38 30 35 30 3A 8B 49 A7 8D 37 |AT";:.8050:.I..7|
00000FC0: 35 30 30 00 E5 17 68 10 8F 20 47 45 54 20 54 48 |500...h.. GET TH|
00000FD0: 45 20 4E 41 4D 45 20 41 4E 44 20 53 41 4C 55 54 |E NAME AND SALUT|
00000FE0: 41 54 49 4F 4E 00 11 18 72 10 84 32 2C 5A 24 3A |ATION...r..2,Z$:|
00000FF0: 8B 53 54 B1 30 B0 C3 28 5A 24 29 B3 32 89 34 39 |.ST.0..(Z$).2.49|
00001000: 30 30 3A 8F 20 4E 4F 20 4C 41 53 54 20 4E 41 4D |00:. NO LAST NAM|
00001010: 45 00 50 18 7C 10 4C 24 B2 22 22 3A 8D 37 34 35 |E.P.|.L$."":.745|
00001020: 30 3A 58 24 B2 22 22 3A 59 24 B2 22 22 3A 4D 24 |0:X$."":Y$."":M$|
00001030: B2 22 D3 45 48 52 20 47 45 45 48 52 54 45 20 C4 |.".EHR GEEHRTE .|
00001040: 41 4D 45 4E 20 55 4E 44 20 C8 45 52 52 45 4E 2C |AMEN UND .ERREN,|
00001050: 00 7F 18 86 10 84 32 2C 58 24 3A 8B C3 28 58 24 |......2,X$:..(X$|
00001060: 29 B3 32 A7 58 24 B2 22 22 3A 89 34 32 35 30 3A |).2.X$."":.4250:|
00001070: 8F 20 4E 4F 20 46 49 52 53 54 20 4E 41 4D 45 00 |. NO FIRST NAME.|
00001080: A8 18 90 10 4D 24 B2 22 D3 45 48 52 20 47 45 45 |....M$.".EHR GEE|
00001090: 48 52 54 45 52 20 22 AA 58 24 AA 22 2C 22 3A 58 |HRTER ".X$.",":X|
000010A0: 24 B2 58 24 AA 22 20 22 00 D2 18 9A 10 84 32 2C |$.X$." "......2,|
000010B0: 59 24 3A 8B C3 28 59 24 29 B3 32 A7 59 24 B2 22 |Y$:..(Y$).2.Y$."|
000010C0: 22 3A 89 34 32 37 30 3A 8F 20 4E 4F 20 54 49 54 |":.4270:. NO TIT|
000010D0: 4C 45 00 F6 18 A4 10 59 24 B2 59 24 AA 22 20 22 |LE.....Y$.Y$." "|
000010E0: 3A 4D 24 B2 22 CC 49 45 42 45 52 20 22 AA 59 24 |:M$.".IEBER ".Y$|
000010F0: AA 5A 24 AA 22 2C 00 23 19 AE 10 4C 24 B2 59 24 |.Z$.",.#...L$.Y$|
00001100: AA 58 24 AA 5A 24 3A 84 32 2C 58 24 3A 8B C3 28 |.X$.Z$:.2,X$:..(|
00001110: 58 24 29 B1 32 A7 4C 24 B2 4C 24 AA 22 2C 20 22 |X$).2.L$.L$.", "|
00001120: AA 58 24 00 4C 19 B8 10 5A 24 B2 4D 24 3A 4D 24 |.X$.L...Z$.M$:M$|
00001130: B2 22 22 3A 50 24 B2 4C 24 3A 8D 37 39 30 30 3A |."":P$.L$:.7900:|
00001140: 8F 20 50 52 49 4E 54 20 4E 41 4D 45 00 5E 19 CC |. PRINT NAME.^..|
00001150: 10 8F 20 47 45 54 20 41 44 44 52 45 53 53 00 86 |.. GET ADDRESS..|
00001160: 19 D6 10 84 32 2C 4C 24 3A 8B C3 28 4C 24 29 B1 |....2,L$:..(L$).|
00001170: 31 A7 50 24 B2 4C 24 3A 8D 37 39 30 30 3A 8F 20 |1.P$.L$:.7900:. |
00001180: 4C 49 4E 45 20 32 00 AE 19 E0 10 84 32 2C 4C 24 |LINE 2......2,L$|
00001190: 3A 8B C3 28 4C 24 29 B1 31 A7 50 24 B2 4C 24 3A |:..(L$).1.P$.L$:|
000011A0: 8D 37 39 30 30 3A 8F 20 4C 49 4E 45 20 33 00 E2 |.7900:. LINE 3..|
000011B0: 19 EA 10 84 32 2C 4C 24 3A 84 32 2C 59 24 3A 8B |....2,L$:.2,Y$:.|
000011C0: C3 28 59 24 29 B1 31 A7 4C 24 B2 4C 24 AA 22 2C |.(Y$).1.L$.L$.",|
000011D0: 20 22 AA 59 24 3A 8F 20 53 54 41 54 45 2C 20 5A | ".Y$:. STATE, Z|
000011E0: 49 50 00 FB 19 F4 10 8B C3 28 4C 24 29 B1 31 A7 |IP.......(L$).1.|
000011F0: 50 24 B2 4C 24 3A 8D 37 39 30 30 00 27 1A FE 10 |P$.L$:.7900.'...|
00001200: 81 49 B2 4C A4 31 34 3A 8D 37 39 30 30 3A 82 3A |.I.L.14:.7900:.:|
00001210: 4C 24 B2 5A 24 3A 50 24 B2 4C 24 3A 8D 37 30 39 |L$.Z$:P$.L$:.709|
00001220: 30 3A 89 34 32 30 30 00 33 1A 24 13 A0 32 3A 89 |0:.4200.3.$..2:.|
00001230: 31 30 30 00 4C 1A 70 17 8F 20 53 45 41 52 43 48 |100.L.p.. SEARCH|
00001240: 20 41 4E 44 20 52 45 50 4C 41 43 45 00 89 1A 7A | AND REPLACE...z|
00001250: 17 99 22 93 11 D3 55 43 48 45 4E 20 4E 41 43 48 |.."...UCHEN NACH|
00001260: 3F 22 3A 4D B2 34 30 3A 8D 38 32 30 30 3A 5A 24 |?":M.40:.8200:Z$|
00001270: B2 58 24 3A 4C B2 C3 28 58 24 29 3A 8B 4C B2 30 |.X$:L..(X$):.L.0|
00001280: B0 4C B2 4D 89 36 30 31 30 00 B3 1A 84 17 99 3A |.L.M.6010......:|
00001290: 99 22 11 C5 52 53 45 54 5A 45 4E 20 44 55 52 43 |."..RSETZEN DURC|
000012A0: 48 3F 22 3A 8D 38 32 30 30 3A 59 24 B2 58 24 3A |H?":.8200:Y$.X$:|
000012B0: 99 3A 99 00 DA 1A 8E 17 58 24 B2 22 22 3A 4D 24 |.:......X$."":M$|
000012C0: B2 22 22 3A 4C 24 B2 22 22 3A 54 B2 30 3A 55 B2 |."":L$."":T.0:U.|
000012D0: 30 3A 46 B2 30 3A 4F 46 B2 31 00 F0 1A 38 18 8F |0:F.0:OF.1...8..|
000012E0: 20 41 54 54 41 43 48 20 54 24 20 54 4F 20 58 24 | ATTACH T$ TO X$|
000012F0: 00 03 1B 42 18 8B C3 28 58 24 29 B1 B2 4C 89 36 |...B...(X$)..L.6|
00001300: 32 35 30 00 21 1B 4C 18 8B 54 B1 56 89 36 34 30 |250.!.L..T.V.640|
00001310: 30 3A 8F 20 41 4C 4C 20 54 24 27 53 20 52 45 41 |0:. ALL T$'S REA|
00001320: 44 00 46 1B 56 18 58 24 B2 58 24 AA 54 24 28 54 |D.F.V.X$.X$.T$(T|
00001330: 29 3A 54 24 28 54 29 B2 22 22 3A 54 B2 54 AA 31 |):T$(T)."":T.T.1|
00001340: 3A 89 36 32 30 30 00 5D 1B 6A 18 8F 20 53 45 41 |:.6200.].j.. SEA|
00001350: 52 43 48 20 46 4F 52 20 4D 41 54 43 48 00 8B 1B |RCH FOR MATCH...|
00001360: 74 18 81 49 B2 31 A4 C3 28 58 24 29 AB 4C AA 31 |t..I.1..(X$).L.1|
00001370: 3A 8B CA 28 58 24 2C 49 2C 4C 29 B3 B1 5A 24 A7 |:..(X$,I,L)..Z$.|
00001380: 82 3A 4A B2 49 3A 89 36 33 30 30 00 A1 1B 7E 18 |.:J.I:.6300...~.|
00001390: 4D 24 B2 59 24 3A 4A B2 49 AA 4C 3A 99 22 12 22 |M$.Y$:J.I.L:."."|
000013A0: 3B 00 B5 1B 9C 18 8F 20 53 50 4C 49 54 20 53 54 |;...... SPLIT ST|
000013B0: 52 49 4E 47 53 00 E8 1B A6 18 4D 24 B2 C8 28 58 |RINGS.....M$..(X|
000013C0: 24 2C 49 AB 31 29 AA 4D 24 3A 58 24 B2 CA 28 58 |$,I.1).M$:X$..(X|
000013D0: 24 2C 4A 29 3A 8D 36 35 30 30 3A 91 46 89 36 39 |$,J):.6500:.F.69|
000013E0: 30 30 3A 89 36 32 30 30 00 FB 1B 00 19 8F 20 53 |00:.6200...... S|
000013F0: 54 4F 57 20 4C 41 53 54 20 4C 24 00 18 1C 0A 19 |TOW LAST L$.....|
00001400: 8D 36 35 30 30 3A 8B 46 89 36 39 30 30 3A 8F 20 |.6500:.F.6900:. |
00001410: 43 4C 45 41 52 20 4D 24 00 44 1C 14 19 4D 24 B2 |CLEAR M$.D...M$.|
00001420: 58 24 3A 8D 36 35 30 30 3A 8B 46 89 36 39 30 30 |X$:.6500:.F.6900|
00001430: 3A 8F 20 4D 24 5F 58 24 3B 20 43 4C 45 41 52 20 |:. M$_X$; CLEAR |
00001440: 42 4F 54 48 00 7B 1C 1E 19 8B 55 B3 B2 56 A7 54 |BOTH.{....U..V.T|
00001450: B2 55 3A 8D 36 35 30 3A 89 31 30 30 3A 8F 20 53 |.U:.650:.100:. S|
00001460: 54 4F 57 20 4C 24 2C 20 43 4C 45 41 52 20 48 49 |TOW L$, CLEAR HI|
00001470: 47 48 45 52 20 42 4C 4F 43 4B 53 00 85 1C 28 19 |GHER BLOCKS...(.|
00001480: 89 36 39 30 30 00 A8 1C 64 19 8F 20 43 4C 45 41 |.6900...d.. CLEA|
00001490: 52 20 4D 24 20 2D 20 53 54 4F 57 20 4C 24 20 49 |R M$ - STOW L$ I|
000014A0: 46 20 4E 45 45 44 45 44 00 DE 1C 6E 19 4D B2 4D |F NEEDED...n.M.M|
000014B0: 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 |0..(L$):L$.L$..(|
000014C0: 4D 24 2C 4D 29 3A 4D 24 B2 CA 28 4D 24 2C 4D AA |M$,M):M$..(M$,M.|
000014D0: 31 29 3A 8B C3 28 4C 24 29 B3 4D 30 A7 8E 00 ED |1):..(L$).M0....|
000014E0: 1C 78 19 8B 55 B1 B2 56 89 36 35 35 30 00 1A 1D |.x..U..V.6550...|
000014F0: 82 19 8B 55 B3 54 A7 54 24 28 55 29 B2 4C 24 3A |...U.T.T$(U).L$:|
00001500: 99 22 2A 92 22 3B 3A 55 B2 55 AA 31 3A 4C 24 B2 |."*.";:U.U.1:L$.|
00001510: 4D 24 3A 4D 24 B2 22 22 3A 8E 00 54 1D 8C 19 8B |M$:M$."":..T....|
00001520: 54 B3 56 A7 81 49 B2 56 A4 54 AA 31 A9 AB 31 3A |T.V..I.V.T.1..1:|
00001530: 54 24 28 49 29 B2 54 24 28 49 AB 31 29 3A 82 3A |T$(I).T$(I.1):.:|
00001540: 54 24 28 54 29 B2 22 22 3A 54 B2 54 AA 31 3A 89 |T$(T)."":T.T.1:.|
00001550: 36 35 33 30 00 5E 1D 96 19 46 B2 31 3A 8E 00 6F |6530.^...F.1:..o|
00001560: 1D F4 1A 8F 20 45 52 52 4F 52 20 45 58 49 54 00 |.... ERROR EXIT.|
00001570: 93 1D FE 1A 99 3A 99 22 11 D3 50 45 49 43 48 45 |.....:."..PEICHE|
00001580: 52 20 56 4F 4C 4C 20 22 3A 8D 38 30 30 30 3A 89 |R VOLL ":.8000:.|
00001590: 31 30 30 00 AA 1D 58 1B 8F 20 46 4F 52 4D 41 54 |100...X.. FORMAT|
000015A0: 20 41 4E 44 20 50 52 49 4E 54 00 B9 1D 62 1B 8D | AND PRINT...b..|
000015B0: 37 30 32 30 3A 89 31 30 30 00 D1 1D 6C 1B 9F 31 |7020:.100...l..1|
000015C0: 2C 30 34 3A 46 B2 31 3A 8F 20 50 52 49 4E 54 45 |,04:F.1:. PRINTE|
000015D0: 52 00 02 1E 76 1B 53 32 B2 31 3A 4E B2 36 30 3A |R...v.S2.1:N.60:|
000015E0: 54 42 24 B2 22 22 3A 58 24 B2 22 46 49 44 22 3A |TB$."":X$."FID":|
000015F0: 8F 20 44 45 46 41 55 4C 54 53 20 28 44 52 41 46 |. DEFAULTS (DRAF|
00001600: 54 29 00 36 1E 80 1B 99 22 11 12 C6 92 4F 52 4D |T).6...."....ORM|
00001610: 41 4C 2C 20 12 C9 92 4E 46 4F 52 4D 41 4C 2C 20 |AL, ...NFORMAL, |
00001620: 4F 52 20 12 C4 92 52 41 46 54 22 3B 3A 8D 38 30 |OR ...RAFT";:.80|
00001630: 36 30 3A 4A B2 49 00 4F 1E 94 1B 8B 4A B3 32 A7 |60:J.I.O....J.2.|
00001640: 53 32 B2 30 3A 4E B2 37 32 3A 8D 37 35 30 30 00 |S2.0:N.72:.7500.|
00001650: 7A 1E 9E 1B 53 24 B2 22 11 22 AA C8 28 42 24 2C |z...S$."."..(B$,|
00001660: 34 30 AB 4E AD 32 29 3A 8B 4A B2 30 89 37 34 30 |40.N.2):.J.0.740|
00001670: 30 3A 8F 20 46 4F 52 4D 41 4C 00 9D 1E A8 1B 4C |0:. FORMAL.....L|
00001680: 24 B2 22 12 22 AA 48 24 3A 50 24 B2 48 24 3A 4D |$.".".H$:P$.H$:M|
00001690: 24 B2 C8 28 4B 24 2C C3 28 48 24 29 29 00 BB 1E |$..(K$,.(H$))...|
000016A0: B2 1B 4A B2 30 3A 99 22 93 22 3A 8D 37 39 30 30 |..J.0:.".":.7900|
000016B0: 3A 8D 37 39 30 30 3A 8B 4A A7 8E 00 E5 1E BC 1B |:.7900:.J.......|
000016C0: 54 B2 30 3A 58 24 B2 22 5D 22 AA 54 42 24 3A 45 |T.0:X$."]".TB$:E|
000016D0: B2 30 3A 5A 24 B2 42 24 3A 8F 20 50 52 49 4E 54 |.0:Z$.B$:. PRINT|
000016E0: 20 54 45 58 54 00 1C 1F C6 1B 8B C3 28 58 24 29 | TEXT.......(X$)|
000016F0: B3 B2 4E A7 58 24 B2 58 24 AA 54 24 28 54 29 3A |..N.X$.X$.T$(T):|
00001700: 54 B2 54 AA 31 3A 8B C3 28 58 24 29 B3 B2 4E B0 |T.T.1:..(X$)..N.|
00001710: 54 B1 56 A7 58 24 B2 58 24 AA 22 5C 00 4C 1F CB |T.V.X$.X$."\.L..|
00001720: 1B 8B C6 28 58 24 29 B2 33 32 A7 58 24 B2 CA 28 |...(X$).32.X$..(|
00001730: 58 24 2C 32 29 3A 89 37 31 31 30 3A 8F 20 4C 45 |X$,2):.7110:. LE|
00001740: 41 44 49 4E 47 20 42 4C 41 4E 4B 53 00 5D 1F D0 |ADING BLANKS.]..|
00001750: 1B 8B 45 A7 58 24 B2 22 5B 22 AA 58 24 00 9A 1F |..E.X$."[".X$...|
00001760: DA 1B 4C 24 B2 C8 28 58 24 2C 4E AA 31 29 3A 50 |..L$..(X$,N.1):P|
00001770: 24 B2 4C 24 3A 4A B2 30 3A 4B B2 30 3A 4D 24 B2 |$.L$:J.0:K.0:M$.|
00001780: 42 24 3A 81 49 B2 31 A4 C3 28 4C 24 29 3A 43 B2 |B$:.I.1..(L$):C.|
00001790: C6 28 CA 28 4C 24 2C 49 29 29 00 BC 1F E4 1B 8B |.(.(L$,I))......|
000017A0: 43 B1 39 30 AF 43 B3 39 36 A7 8D 37 37 30 30 3A |C.90.C.96..7700:|
000017B0: 8B 58 A7 49 B2 4A 3A 89 37 31 36 30 00 F1 1F EE |.X.I.J:.7160....|
000017C0: 1B 82 3A 81 49 B2 C3 28 4C 24 29 A4 4A AA 31 A9 |..:.I..(L$).J.1.|
000017D0: AB 31 3A 8B CA 28 4C 24 2C 49 2C 31 29 B1 22 20 |.1:..(L$,I,1)." |
000017E0: 22 A7 82 3A 49 B2 4A 3A 8B 4A B2 30 89 37 39 39 |"..:I.J:.J.0.799|
000017F0: 30 00 2D 20 F8 1B 4A B2 30 3A 58 24 B2 CA 28 58 |0.- ..J.0:X$..(X|
00001800: 24 2C 49 AA 31 29 3A 4C 24 B2 C8 28 4C 24 2C 49 |$,I.1):L$..(L$,I|
00001810: AB 31 29 3A 50 24 B2 C8 28 50 24 2C 49 AB 4B 29 |.1):P$..(P$,I.K)|
00001820: 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 00 4E 20 |:M$..(M$,I.K).N |
00001830: 16 1C 8B 43 B2 39 34 B0 43 B2 39 35 A7 45 B2 30 |...C.94.C.95.E.0|
00001840: 3A 58 24 B2 22 5D 22 AA 54 42 24 AA 58 24 00 7D |:X$."]".TB$.X$.}|
00001850: 20 20 1C 58 B2 43 3A 8D 37 39 30 30 3A 8B 4A B1 | .X.C:.7900:.J.|
00001860: 30 B0 58 B2 39 34 B0 58 B2 39 32 A7 8D 37 39 35 |0.X.94.X.92..795|
00001870: 30 3A 8B 4A B1 30 B0 58 B2 39 32 A7 8E 00 87 20 |0:.J.0.X.92.... |
00001880: 2A 1C 89 37 31 31 30 00 94 20 E8 1C 8F 20 46 4F |*..7110.. ... FO|
00001890: 52 4D 41 4C 00 C8 20 F2 1C 4C 24 B2 22 22 3A 8D |RMAL.. ..L$."":.|
000018A0: 37 34 35 30 3A 99 22 93 D6 49 45 52 20 C1 44 52 |7450:."..IER .DR|
000018B0: 45 53 53 45 4E 20 DA 45 49 4C 45 4E 22 3A 4D B2 |ESSEN .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 D4 4F 4F 20 4C |.(X$).M.."..OO L|
000018F0: 4F 4E 47 22 3A 89 37 34 32 30 00 18 21 06 1D 50 |ONG":.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 38 21 10 1D 99 22 C1 |00:.7900.8!...".|
00001920: 4E 52 45 44 45 22 3A 8D 38 32 30 30 3A 50 24 B2 |NREDE":.8200:P$.|
00001930: 58 24 3A 89 37 30 39 30 00 69 21 1A 1D 8C 3A 4D |X$:.7090.i!...:M|
00001940: 24 B2 22 22 3A 59 24 B2 53 24 3A 81 49 B2 31 A4 |$."":Y$.S$:.I.1.|
00001950: 33 3A 87 50 24 3A 8D 37 34 39 30 3A 82 3A 50 24 |3:.P$:.7490:.:P$|
00001960: B2 44 24 3A 8D 37 34 39 30 00 84 21 2E 1D 81 49 |.D$:.7490..!...I|
00001970: B2 31 A4 35 3A 8D 37 39 30 30 3A 82 3A 53 24 B2 |.1.5:.7900:.:S$.|
00001980: 59 24 3A 8E 00 AA 21 42 1D 4B B2 C3 28 50 24 29 |Y$:...!B.K..(P$)|
00001990: 3A 53 24 B2 22 11 22 AA C8 28 42 24 2C 34 30 AB |:S$."."..(B$,40.|
000019A0: 4B AD 32 29 3A 89 37 39 30 30 00 C2 21 4C 1D 8F |K.2):.7900..!L..|
000019B0: 20 46 4F 52 4D 41 54 20 56 41 52 49 41 54 49 4F | FORMAT VARIATIO|
000019C0: 4E 53 00 EA 21 56 1D 99 22 11 D3 54 41 4E 44 41 |NS..!V.."..TANDA|
000019D0: 52 44 20 C6 4F 52 4D 41 54 3A 22 3A 99 2C 22 20 |RD .ORMAT:":.," |
000019E0: C5 49 4E 2D 5A 45 49 4C 49 47 00 1B 22 60 1D 99 |.IN-ZEILIG.."`..|
000019F0: 2C 4E 22 DA 45 49 43 48 45 4E 20 50 52 4F 20 DA |,N".EICHEN PRO .|
00001A00: 45 49 4C 45 22 3A 99 2C 4C 4C 22 DA 45 49 4C 45 |EILE":.,LL".EILE|
00001A10: 4E 20 50 52 4F 20 D3 45 49 54 45 00 3C 22 6A 1D |N PRO .EITE.<"j.|
00001A20: 99 2C 22 20 D4 41 42 55 4C 41 54 4F 52 4C 41 45 |.," .ABULATORLAE|
00001A30: 4E 47 45 20 3D 22 C3 28 54 42 24 29 00 58 22 74 |NGE =".(TB$).X"t|
00001A40: 1D 99 22 11 C1 45 4E 44 45 52 4E 22 3B 3A 8D 38 |.."..ENDERN";:.8|
00001A50: 30 35 30 3A 8B 49 A7 8E 00 77 22 7E 1D 99 22 93 |050:.I...w"~..".|
00001A60: C5 49 4E 2D 5A 45 49 4C 49 47 22 3B 3A 8D 38 30 |.IN-ZEILIG";:.80|
00001A70: 35 30 3A 53 32 B2 49 00 A7 22 88 1D 85 22 11 DA |50:S2.I.."..."..|
00001A80: 45 49 43 48 45 4E 20 50 52 4F 20 DA 45 49 4C 45 |EICHEN PRO .EILE|
00001A90: 20 20 20 28 32 30 2D 38 30 29 20 20 37 32 20 9D | (20-80) 72 .|
00001AA0: 9D 9D 9D 9D 22 3B 4E 00 C2 22 92 1D 8B 4E B3 32 |....";N.."...N.2|
00001AB0: 30 B0 4E B1 38 30 A7 99 22 91 91 22 3A 89 37 35 |0.N.80.."..":.75|
00001AC0: 36 30 00 FF 22 9C 1D 99 22 11 DA 45 49 4C 45 4E |60.."..."..EILEN|
00001AD0: 20 50 52 4F 20 D3 45 49 54 45 22 4C 4C 22 9D 20 | PRO .EITE"LL". |
00001AE0: 20 9D 9D 9D 9D 9D 9D 22 3B 3A 85 4C 4C 3A 8B 4C | ......";:.LL:.L|
00001AF0: 4C B3 31 A7 99 22 91 91 22 3A 89 37 35 38 30 00 |L.1.."..":.7580.|
00001B00: 3A 23 A1 1D 99 22 11 D4 41 42 55 4C 41 54 4F 52 |:#..."..ABULATOR|
00001B10: 4C 41 45 4E 47 45 22 3B 3A 58 24 B2 22 30 31 32 |LAENGE";:X$."012|
00001B20: 33 34 35 36 37 38 39 22 3A 8D 38 30 36 30 3A 54 |3456789":.8060:T|
00001B30: 42 24 B2 C8 28 42 24 2C 49 29 00 40 23 A6 1D 8E |B$..(B$,I).@#...|
00001B40: 00 52 23 14 1E 8F 20 45 4E 48 41 4E 43 45 4D 45 |.R#... ENHANCEME|
00001B50: 4E 54 00 98 23 28 1E 4B B2 4B AA 31 3A 58 B2 31 |NT..#(.K.K.1:X.1|
00001B60: 3A 4A B2 49 3A 8B 43 B2 39 31 B0 43 B2 39 33 A7 |:J.I:.C.91.C.93.|
00001B70: 58 B2 30 3A 45 B2 28 43 B2 39 31 29 3A 5A 24 B2 |X.0:E.(C.91):Z$.|
00001B80: 42 24 3A 59 24 B2 22 92 22 3A 8B 45 A7 5A 24 B2 |B$:Y$.".":.E.Z$.|
00001B90: 4B 24 3A 59 24 B2 22 12 00 B6 23 32 1E 4C 24 B2 |K$:Y$."...#2.L$.|
00001BA0: C8 28 4C 24 2C 49 AB 31 29 AA 59 24 AA CA 28 4C |.(L$,I.1).Y$..(L|
00001BB0: 24 2C 49 AA 31 29 00 EA 23 46 1E 50 24 B2 C8 28 |$,I.1)..#F.P$..(|
00001BC0: 50 24 2C 49 AB 4B 29 AA CA 28 4C 24 2C 49 AA 31 |P$,I.K)..(L$,I.1|
00001BD0: 29 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 AA CA |):M$..(M$,I.K)..|
00001BE0: 28 5A 24 2C 49 AA 31 29 3A 8E 00 F9 23 DC 1E 8F |(Z$,I.1):...#...|
00001BF0: 20 4C 49 4E 45 20 4F 55 54 00 0D 24 E6 1E 8B 50 | LINE OUT..$...P|
00001C00: 24 B1 22 22 A7 50 24 B2 53 24 AA 50 24 00 28 24 |$."".P$.S$.P$.($|
00001C10: F0 1E 99 4C 24 3B 3A 8D 37 39 33 30 3A 8B 4A B1 |...L$;:.7930:.J.|
00001C20: 30 B0 53 32 B2 30 A7 8E 00 4A 24 FA 1E 8B 46 A7 |0.S2.0...J$...F.|
00001C30: 99 3A 98 31 2C 50 24 3B 3A 8B 4D 24 B1 42 24 A7 |.:.1,P$;:.M$.B$.|
00001C40: 98 31 2C 51 24 53 24 4D 24 3B 00 71 24 04 1F 98 |.1,Q$S$M$;.q$...|
00001C50: 31 3A 50 24 B2 22 22 3A 4C 24 B2 22 22 3A 4D 24 |1:P$."":L$."":M$|
00001C60: B2 22 22 3A 4C B2 4C AA 31 3A 8B 4C B3 4C 4C A7 |."":L.L.1:.L.LL.|
00001C70: 8E 00 86 24 0E 1F 8B 46 B2 30 A7 8D 38 30 30 30 |...$...F.0..8000|
00001C80: 3A 4C B2 30 3A 8E 00 B3 24 18 1F 8B 4C A7 81 49 |:L.0:...$...L..I|
00001C90: B2 4C A4 4C 50 AB 31 3A 98 31 3A 82 3A 4C B2 30 |.L.LP.1:.1:.:L.0|
00001CA0: 3A 8F 20 50 41 47 45 20 57 49 54 48 20 42 4C 41 |:. PAGE WITH BLA|
00001CB0: 4E 4B 53 00 BE 24 22 1F 99 22 93 22 3A 8E 00 ED |NKS..$"..".":...|
00001CC0: 24 36 1F 4A B2 31 3A 99 22 11 DA 45 49 4C 45 20 |$6.J.1:."..EILE |
00001CD0: 5A 55 20 4C 41 4E 47 20 5A 55 4D 20 C1 55 53 44 |ZU LANG ZUM .USD|
00001CE0: 52 55 43 4B 22 3A 8D 37 39 35 30 3A 8E 00 FD 24 |RUCK":.7950:...$|
00001CF0: 40 1F 8F 20 55 54 49 4C 49 54 49 45 53 00 24 25 |@.. UTILITIES.$%|
00001D00: 4A 1F 99 22 11 12 20 D4 41 53 54 45 20 44 52 55 |J..".. .ASTE DRU|
00001D10: 45 43 4B 45 4E 22 3B 3A 8D 32 30 3A 99 3A 99 22 |ECKEN";:.20:.:."|
00001D20: 93 22 3A 8E 00 2F 25 72 1F 58 24 B2 22 4A 4E 00 |.":../%r.X$."JN.|
00001D30: 3A 25 7C 1F 99 22 3F 20 22 3B 00 64 25 86 1F 8D |:%|.."? ";.d%...|
00001D40: 32 30 3A 81 49 B2 31 A4 C3 28 58 24 29 3A 8B 43 |20:.I.1..(X$):.C|
00001D50: 24 B3 B1 CA 28 58 24 2C 49 2C 31 29 A7 82 3A 89 |$...(X$,I,1)..:.|
00001D60: 38 30 37 30 00 73 25 8B 1F 49 B2 49 AB 31 3A 99 |8070.s%..I.I.1:.|
00001D70: 43 24 3B 00 8F 25 90 1F A1 57 24 3A 8B 57 24 B2 |C$;..%...W$:.W$.|
00001D80: 22 22 A7 99 22 A4 9D 22 3B 3A 89 38 30 38 30 00 |"".."..";:.8080.|
00001D90: A5 25 95 1F 99 22 20 9D 22 3B 3A 8B 57 24 B2 52 |.%..." .";:.W$.R|
00001DA0: 24 A7 99 3A 8E 00 BE 25 9A 1F 8B 57 24 B2 C7 28 |$..:...%...W$..(|
00001DB0: 32 30 29 A7 99 57 24 3B 3A 89 38 30 37 30 00 C8 |20)..W$;:.8070..|
00001DC0: 25 9F 1F 89 38 30 38 30 00 E3 25 08 20 58 24 B2 |%...8080..%. X$.|
00001DD0: 22 22 3A 8F 20 49 4E 50 55 54 20 41 20 53 54 52 |"":. INPUT A STR|
00001DE0: 49 4E 47 00 F4 25 12 20 A1 43 24 3A 8B 43 24 89 |ING..%. .C$:.C$.|
00001DF0: 38 32 31 30 00 0C 26 1C 20 8D 32 35 3A 8B 43 B2 |8210..&. .25:.C.|
00001E00: 31 33 B0 43 B2 39 32 89 38 32 39 30 00 3B 26 26 |13.C.92.8290.;&&|
00001E10: 20 8B 43 B2 32 30 AF 58 24 B1 22 22 A7 99 43 24 | .C.20.X$.""..C$|
00001E20: 3B 3A 58 24 B2 C8 28 58 24 2C C3 28 58 24 29 AB |;:X$..(X$,.(X$).|
00001E30: 31 29 3A 8F 20 44 45 4C 45 54 45 00 5B 26 30 20 |1):. DELETE.[&0 |
00001E40: 8B 43 B2 32 30 89 38 32 32 30 3A 8F 20 44 45 4C |.C.20.8220:. DEL|
00001E50: 45 54 45 20 4F 4E 20 4E 55 4C 4C 00 8C 26 3A 20 |ETE ON NULL..&: |
00001E60: 8B 28 31 32 37 AF 43 29 B3 33 32 89 38 32 32 30 |.(127.C).32.8220|
00001E70: 3A 8F 20 43 55 52 53 4F 52 20 43 4F 4E 54 52 4F |:. CURSOR CONTRO|
00001E80: 4C 20 43 48 41 52 41 43 54 45 52 53 00 A5 26 44 |L CHARACTERS..&D|
00001E90: 20 99 43 24 3B 3A 8B 43 B2 33 34 A7 99 43 24 C7 | .C$;:.C.34..C$.|
00001EA0: 28 32 30 29 3B 00 C0 26 4E 20 58 24 B2 58 24 AA |(20);..&N X$.X$.|
00001EB0: 43 24 3A 8B C3 28 58 24 29 B3 4D 89 38 32 32 30 |C$:..(X$).M.8220|
00001EC0: 00 C6 26 62 20 8E 00 DD 26 FC 21 8F 20 51 55 49 |..&b ...&.!. QUI|
00001ED0: 54 20 54 48 45 20 50 52 4F 47 52 41 4D 00 04 27 |T THE PROGRAM..'|
00001EE0: 10 22 99 22 93 11 D0 41 50 49 45 52 56 4F 52 53 |."."...APIERVORS|
00001EF0: 43 48 55 42 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 |CHUB";:.8050:.I.|
00001F00: 38 37 34 30 00 2C 27 1A 22 9F 31 2C 30 34 3A 46 |8740.,'.".1,04:F|
00001F10: B2 31 3A 4C B2 2E 31 3A 8D 37 39 35 30 3A 8F 20 |.1:L..1:.7950:. |
00001F20: 45 58 50 45 4C 20 41 20 50 41 47 45 00 44 27 24 |EXPEL A PAGE.D'$|
00001F30: 22 8B 4F 46 B2 30 B0 54 24 28 30 29 B2 22 22 89 |".OF.0.T$(0)."".|
00001F40: 38 37 36 30 00 7B 27 2E 22 99 22 11 C4 4F 4B 55 |8760.{'."."..OKU|
00001F50: 4D 45 4E 54 20 4E 4F 43 48 20 41 42 53 50 45 49 |MENT NOCH ABSPEI|
00001F60: 43 48 45 52 4E 22 3B 3A 8D 38 30 35 30 3A 8B 49 |CHERN";:.8050:.I|
00001F70: B2 30 A7 A0 31 3A 8D 33 30 32 30 00 92 27 38 22 |.0..1:.3020..'8"|
00001F80: A0 31 3A 99 22 93 D4 53 43 48 55 45 53 53 21 22 |.1:."..SCHUESS!"|
00001F90: 3A 80 00 BA 27 C4 22 9F 31 2C 30 34 3A 46 B2 31 |:...'.".1,04:F.1|
00001FA0: 3A 4C B2 2E 31 3A 89 37 39 35 30 3A 8F 20 45 58 |:L..1:.7950:. EX|
00001FB0: 50 45 4C 20 41 20 50 41 47 45 00 CB 27 28 23 8F |PEL A PAGE..'(#.|
00001FC0: 20 49 4E 49 54 49 41 4C 49 5A 45 00 FB 27 2D 23 | INITIALIZE..'-#|
00001FD0: 4C 50 B2 37 32 3A 4C 30 B2 36 38 3A 4D 30 B2 31 |LP.72:L0.68:M0.1|
00001FE0: 36 30 3A 51 24 B2 C7 28 31 34 31 29 3A 52 24 B2 |60:Q$..(141):R$.|
00001FF0: C7 28 31 33 29 3A 4B 24 B2 22 A4 00 1A 28 32 23 |.(13):K$."...(2#|
00002000: 56 B2 B5 28 28 B8 28 30 29 AB 32 30 30 30 29 AD |V..((.(0).2000).|
00002010: 4D 30 29 3A 86 54 24 28 56 29 00 5B 28 3C 23 99 |M0):.T$(V).[(<#.|
00002020: 22 93 8E 13 13 0F 11 11 11 11 11 11 11 11 11 11 |"...............|
00002030: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00002040: A6 33 39 29 22 8F 05 22 3A 97 35 39 34 36 38 2C |.39)"..":.59468,|
00002050: 31 34 3A 8F 20 46 4F 52 4D 41 54 00 92 28 41 23 |14:. FORMAT..(A#|
00002060: 97 35 33 32 37 32 2C 32 B0 C2 28 35 33 32 37 32 |.53272,2..(53272|
00002070: 29 3A 99 22 93 20 20 20 20 20 20 20 20 12 20 C3 |):.". . .|
00002080: 4F 4D 4D 4F 44 4F 52 45 20 D4 C5 D8 D4 20 36 34 |OMMODORE .... 64|
00002090: 20 92 00 AD 28 43 23 8D 36 31 30 30 30 3A 20 8F | ...(C#.61000: .|
000020A0: 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 00 F0 28 | COLOR CHANGE..(|
000020B0: 46 23 99 22 11 12 CB 92 41 53 53 45 54 54 45 2C |F#."....ASSETTE,|
000020C0: 20 12 C4 92 49 53 4B 45 54 54 45 2C 20 4F 52 20 | ...ISKETTE, OR |
000020D0: 12 C2 92 45 49 44 45 53 22 3B 3A 58 24 B2 22 44 |...EIDES";:X$."D|
000020E0: 4B 42 22 3A 8D 38 30 36 30 3A 43 46 B2 49 AA 31 |KB":.8060:CF.I.1|
000020F0: 00 1A 29 50 23 42 24 B2 22 20 20 20 20 20 22 3A |..)P#B$." ":|
00002100: 81 49 B2 31 A4 35 3A 42 24 B2 42 24 AA 42 24 3A |.I.1.5:B$.B$.B$:|
00002110: 82 3A 9F 38 2C 30 38 2C 31 35 00 3F 29 55 23 99 |.:.8,08,15.?)U#.|
00002120: 22 11 D4 41 47 45 53 44 41 54 55 4D 3F 22 3A 4D |"..AGESDATUM?":M|
00002130: B2 32 30 3A 8D 38 32 30 30 3A 44 24 B2 58 24 00 |.20:.8200:D$.X$.|
00002140: 59 29 5A 23 4B 24 B2 22 20 22 3A 8F 20 31 35 32 |Y)Z#K$." ":. 152|
00002150: 35 20 50 52 49 4E 54 45 52 00 8A 29 64 23 8F 20 |5 PRINTER..)d#. |
00002160: 4B 24 3D 22 5F 22 3A 51 24 3D 52 24 2B 43 48 52 |K$="_":Q$=R$+CHR|
00002170: 24 28 32 37 29 2B 22 0A 22 3A 52 45 4D 20 38 33 |$(27)+".":REM 83|
00002180: 30 30 20 50 52 49 4E 54 45 52 00 A5 29 78 23 81 |00 PRINTER..)x#.|
00002190: 49 B2 31 A4 37 3A 4B 24 B2 4B 24 AA 4B 24 3A 82 |I.1.7:K$.K$.K$:.|
000021A0: 3A 89 31 30 30 00 AE 29 8C 23 89 31 30 30 00 CD |:.100..).#.100..|
000021B0: 29 10 27 8F 20 4C 45 54 54 45 52 48 45 41 44 20 |).'. LETTERHEAD |
000021C0: 44 41 54 41 2C 20 44 45 4C 45 54 45 44 00 D5 29 |DATA, DELETED..)|
000021D0: 1A 27 83 22 22 00 DD 29 24 27 83 22 22 00 E5 29 |.'.""..)$'.""..)|
000021E0: 2E 27 83 22 22 00 0B 2A 60 EA 99 51 39 24 22 20 |.'.""..*`..Q9$" |
000021F0: 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 20 22 |NICHT GEFUNDEN "|
00002200: 3A 8D 38 30 30 30 3A 89 31 30 30 00 26 2A 48 EE |:.8000:.100.&*H.|
00002210: 8F 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 20 52 |. COLOR CHANGE R|
00002220: 4F 55 54 49 4E 45 00 4A 2A 49 EE 96 A5 43 28 58 |OUTINE.J*I...C(X|
00002230: 29 B2 C2 28 58 29 AA 31 AA 31 36 AC 28 28 C2 28 |)..(X).1.16.((.(|
00002240: 58 29 AF 31 35 29 B2 31 35 29 00 64 2A 4A EE 99 |X).15).15).d*J..|
00002250: 22 13 11 11 11 C6 41 52 42 57 45 43 48 53 45 4C |".....ARBWECHSEL|
00002260: 2E 2E 2E 22 00 9A 2A 4B EE 99 22 11 11 12 C6 31 |..."..*K.."....1|
00002270: 92 3D C6 41 52 42 45 20 44 45 53 20 D2 41 4E 44 |.=.ARBE DES .AND|
00002280: 45 53 20 12 C6 33 92 3D C8 49 4E 54 45 52 47 52 |ES ..3.=.INTERGR|
00002290: 55 4E 44 20 C6 41 52 42 45 22 00 CC 2A 4D EE 99 |UND .ARBE"..*M..|
000022A0: 22 11 12 C6 35 92 3D DA 45 49 43 48 45 4E 46 41 |"...5.=.EICHENFA|
000022B0: 52 42 45 20 20 20 20 20 12 D2 C5 D4 D5 D2 CE 92 |RBE ........|
000022C0: 3D D7 45 49 54 45 52 20 11 11 11 22 00 DE 2A 52 |=.EITER ..."..*R|
000022D0: EE A1 43 24 3A 8B 43 24 89 36 31 30 31 30 00 F3 |..C$:.C$.61010..|
000022E0: 2A 5C EE A1 43 24 3A 8B 43 24 B2 22 22 89 36 31 |*\..C$:.C$."".61|
000022F0: 30 32 30 00 1A 2B 66 EE 43 B2 C6 28 43 24 29 3A |020..+f.C..(C$):|
00002300: 8B 43 B2 31 33 35 A7 97 36 34 36 2C A5 43 28 36 |.C.135..646,.C(6|
00002310: 34 36 29 3A 89 36 31 30 30 32 00 46 2B 7A EE 43 |46):.61002.F+z.C|
00002320: B2 C6 28 43 24 29 3A 8B 43 B2 31 33 33 B0 43 B2 |..(C$):.C.133.C.|
00002330: 31 33 34 A7 58 B2 35 33 31 34 37 AA 43 3A 97 58 |134.X.53147.C:.X|
00002340: 2C A5 43 28 58 29 00 57 2B 84 EE 8B 43 B3 B1 31 |,.C(X).W+...C..1|
00002350: 33 89 36 31 30 31 30 00 5D 2B 8E EE 8E 00 00 00 |3.61010.]+......|
..;....9000:. (C) 1982 BY COMMODORE BUSI
NESS MACHINES, INC..J....C$:.C$.20.G....
C$:.C$.." .";:C.F(C$):..V...."..";:.25..
....C$:.C$."".30... .X.F(C$):C.X.127:.C.
13.C.17.C.19.C.20.C.29.C.31...E."..30.O.
(.X$.""...*..#1,C$:.C$.R$.C$.G(141).....
,.X$.X$.C$:.42...D.L.0:LL.L0: 1:. ENTRY.
>.N..". . COMMODORE TEXT 64 ...S
.X.."FUNKTIONEN:..".W.}..,".E.RSTELLEN E
INES DOKUMENTES......,".S.PEICHERN EINES
DOKUMENTES......,".A.UFRUFEN EINES DOKU
MENTES......,".D.RUCKEN EINES DOKUMENTES
......,".V.ERAENDERN EINES DOKUMENTES.+.
..,".G.LOBALES SUCHEN UND TAUSCHEN.P...
.,".B.S-ANZEIGE EINES DOKUMENTES.Q....,"
.R.UNDSCHREIBEN ERSTELLEN......,".P.ROGR
AMMENDE.....X$."PBVGDSRAE":.".WELCHE FUN
KTION";:.8060:.I.0.8700.P.C.J.I:.J.4.250
...H..".":. GET SUBJECT.).R..H$."".."DOK
UMENT: ."H$:.".(RETURN LAESST NAMEN UNVE
RAENDERT).[...M.61:.".NAME DES DOKUMENTS
:":.8200:.C..13.200.N....:.X$."".H$.X$.}
....H$."".200......J.7.T$(0).""..".KEIN
DOKUMENT IM SPEICHER":.8000:.100.S....OF
.0.J.7.T$(0)."".280......".DOKUMENT NICH
T ABGESPEICHERT, INITIALISIEREN";:.8050:
.I.100.C....J.400,1000,6000,7000,3000,40
00,2000,500.X.... READ TO SCREEN.....N.3
9:F.0:LL.20:TB$."":.1,3:.7080:.100. ...O
F.1:T.0:. WRITE NEW TEXT.Y....".."H$:.:.
".......................................
.......C$:.C$.510.....M.M0:.I.T.V:T$(I).
"":X$."".%....8220:.C.13..:.X$."".530.;.
..T$(I).X$:.C..92...X.&..I.V..I.I.1.V:T$
(I)."":....X.T.0:L$."":.610:.100:. PACK
THE STRINGS...B..:.I.T.V:.T$(I)."".630.D
.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)."":........B.... EDIT THE TE
XT......".WIEVIEL % IN TEXT SPRINGEN (0-
100) 0...";T:T..(T):.T.99.T.100.....OF.
1:.I.0.V:.T$(I)."".......I.I.1:T..(T.I.1
00..5).O...L.0:.T.V.100.....X$.T$(T):.X$
."".1900...$.P$.H(H$,20):.T.P$.T$(T.1).*
....".."I(P$,20):.".".29)".BLOCK"T._.8..
".......................................
........P.B..C$:.C$.1090...L.. & SET CUR
SOR (A,D)...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:. END.2....X.29.L.L.(L.1.C(X$)):.1
100:. CURSOR RIGHT.Z.D..C.29.L.L.(L.0):.
1100:. CURSOR LEFT...N..X.17.L.L.40.(L.4
0.C(X$)):.1100:. CURSOR DOWN...X..C.17.L
.L.40.(L.39):.1100:. CURSOR UP.X....X.19
.L.0:.1100:. CURSOR HOME......C.19..I.T.
V.1:T$(I).T$(I.1):.:T$(V)."":.1040:. CLE
AR.>....X.13.T$(T).X$:T.T.1:.1040:. NEXT
BLOCK.O....C.13.T$(T).X$:T.T.(T.0):.104
0:. PRIOR BLOCK......L..C(X$).1100.....L
$.H(X$,L):.X.148.1350:. INSERT.....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 BLOCK...<..1100.P.F.M$.J
(X$,L.1):."................."M$:."..."L$
.N.K.."...".C(L$));:M.M0:.8200...P.M.M0.
C(L$):L$.L$.H(X$,M):M$.J(X$,M.1).M$.Z.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.60
0:. END.G...X$.T$(T.1):."."X$:.".".C(X$)
);:.510.X.P.. INPUT FILE...U.Q9$."DOKUME
NT":. FOR ERROR MSG IN 60000......CF.2..
".VON DATASETTE";:.8050.L....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:.".LESEN
: ."X$:H$.X$:.40:.X$:.:. HEADER.N...X$.G
(31):.I.0.V:L$."":. INPUT FILE.P....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.X.J.T.I:.650:.8
000:.100......3020:.100:. OUTPUT FILE...
L..CF.2..".AUF DATASETTE";:.8050.=.V..CF
.2.(CF.3.I.0)..1,1,1,H$:.3100.P...L$."0:
".H(H$,16):.1,08,2,L$:.8,X,X$: 1:.X.3080
......".DOKUMENT EXISTIERT, UEBERSCHREIB
EN";:.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$.-.N..I.0.
V:.T$(I).""..1,T$(I);:."*";:..;.X..1,"\"
;:..R. .. BATCH PROCESSING.{...Q9$."DATE
I":. FOR ERROR MSG IN 60000......".";:.C
F.4100,4050:. ELSE BOTH.C...."VON DATASE
TTE";:.8050:.I.4100.W.R.. FROM CASSETTE.
.....2,1:.4150...... FROM DISC.+....".AD
RESS 64 DATEI NAME -...";X$:.X$."-".4
110.O....2,08,2,X$:.8,X,X$:.X. 2:.60000.
H.6.. PREPARE FOR OUTPUT...@.TB$."":S2.0
:N.72:F.1:.1,04:S$.".".H(B$,40.N.2).C.J.
.".STANDARD-FORMAT";:.8050:.I..7500...H.
. GET THE NAME AND SALUTATION...R..2,Z$:
.ST.0.C(Z$).2.4900:. NO LAST NAME.P.|.L$
."":.7450:X$."":Y$."":M$."SEHR GEEHRTE D
AMEN UND HERREN,.....2,X$:.C(X$).2.X$."
":.4250:. NO FIRST NAME.....M$."SEHR GEE
HRTER ".X$.",":X$.X$." ".R....2,Y$:.C(Y$
).2.Y$."":.4270:. NO TITLE.....Y$.Y$." "
:M$."LIEBER ".Y$.Z$.",.#...L$.Y$.X$.Z$:.
2,X$:.C(X$).2.L$.L$.", ".X$.L...Z$.M$:M$
."":P$.L$:.7900:. PRINT NAME.^.L.. GET A
DDRESS...V..2,L$:.C(L$).1.P$.L$:.7900:.
LINE 2......2,L$:.C(L$).1.P$.L$:.7900:.
LINE 3......2,L$:.2,Y$:.C(Y$).1.L$.L$.",
".Y$:. STATE, ZIP......C(L$).1.P$.L$:.7
900.'....I.L.14:.7900:.:L$.Z$:P$.L$:.709
0:.4200.3.$. 2:.100.L.P.. SEARCH AND REP
LACE...Z.."..SUCHEN NACH?":M.40:.8200:Z$
.X$:L.C(X$):.L.0.L.M.6010......:.".ERSET
ZEN DURCH?":.8200:Y$.X$:.:..Z...X$."":M$
."":L$."":T.0:U.0:F.0:OF.1...8.. ATTACH
T$ TO X$...B..C(X$)..L.6250.!.L..T.V.640
0:. ALL T$'S READ.F.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:.6
300...~.M$.Y$:J.I.L:.".";...... SPLIT ST
RINGS.....M$.H(X$,I.1).M$:X$.J(X$,J):.65
00:.F.6900:.6200...... STOW LAST L$.....
.6500:.F.6900:. CLEAR M$.D...M$.X$:.6500
:.F.6900:. M$_X$; CLEAR BOTH.{....U..V.T
.U:.650:.100:. STOW L$, CLEAR HIGHER BLO
CKS...(..6900...D.. CLEAR M$ - STOW L$ I
F NEEDED...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$.""
:..T....T.V..I.V.T.1..1:T$(I).T$(I.1):.:
T$(T)."":T.T.1:.6530.^...F.1:..O.... ERR
OR EXIT......:.".SPEICHER VOLL ":.8000:.
100...X.. FORMAT AND PRINT...B..7020:.10
0.Q.L..1,04:F.1:. PRINTER...V.S2.1:N.60:
TB$."":X$."FID":. DEFAULTS (DRAFT).6....
"..F.ORMAL, .I.NFORMAL, OR .D.RAFT";:.80
60:J.I.O....J.2.S2.0:N.72:.7500.Z...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$."\.L.K
..F(X$).32.X$.J(X$,2):.7110:. LEADING BL
ANKS.].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).N ...C.94.
C.95.E.0:X$."]".TB$.X$.} .X.C:.7900:.J.
0.X.94.X.92..7950:.J.0.X.92.... *..7110.
. ... FORMAL.H ..L$."":.7450:.".VIER ADR
ESSEN ZEILEN":M.N:.I.1.4.. ..."ZEILE"I:.
8200:.:.C(X$).M..".TOO LONG":.7420..!..P
$.X$:.7900:.:.7900:.7900.8!..."ANREDE":.
8200:P$.X$:.7090.I!...:M$."":Y$.S$:.I.1.
3:.P$:.7490:.:P$.D$:.7490..!...I.1.5:.79
00:.:S$.Y$:...!B.K.C(P$):S$.".".H(B$,40.
K.2):.7900.B!L.. FORMAT VARIATIONS..!V..
".STANDARD FORMAT:":.," EIN-ZEILIG.."`..
,N"ZEICHEN PRO ZEILE":.,LL"ZEILEN PRO SE
ITE.<"J..," TABULATORLAENGE ="C(TB$).X"T
..".AENDERN";:.8050:.I...W"~..".EIN-ZEIL
IG";:.8050:S2.I.."...".ZEICHEN PRO ZEILE
(20-80) 72 .....";N.B"...N.20.N.80..
"..":.7560.."...".ZEILEN PRO SEITE"LL".
......";:.LL:.LL.1.."..":.7580.:#...".T
ABULATORLAENGE";:X$."0123456789":.8060:T
B$.H(B$,I).@#....R#... 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 OU
T..$...P$."".P$.S$.P$.($...L$;:.7930:.J.
0.S2.0...J$...F..:.1,P$;:.M$.B$..1,Q$S$M
$;.Q$...1:P$."":L$."":M$."":L.L.1:.L.LL.
...$...F.0..8000:L.0:...$...L..I.L.LP.1:
.1:.:L.0:. PAGE WITH BLANKS..$"..".":...
$6.J.1:.".ZEILE ZU LANG ZUM AUSDRUCK":.7
950:...$@.. UTILITIES.$%J..".. TASTE DRU
ECKEN";:.20:.:.".":../%R.X$."JN.:%|.."?
";.D%...20:.I.1.C(X$):.C$..J(X$,I,1)..:.
8070.S%..I.I.1:.C$;..%...W$:.W$.""..".."
;:.8080..%..." .";:.W$.R$..:...%...W$.G(
20)..W$;:.8070.H%...8080..%. X$."":. INP
UT A STRING..%. .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.F&B ...
&.!. QUIT THE PROGRAM..'."."..PAPIERVORS
CHUB";:.8050:.I.8740.,'.".1,04:F.1:L..1:
.7950:. EXPEL A PAGE.D'$".OF.0.T$(0)."".
8760.{'.".".DOKUMENT NOCH ABSPEICHERN";:
.8050:.I.0. 1:.3020..'8" 1:.".TSCHUESS!"
:...'D".1,04:F.1:L..1:.7950:. EXPEL A PA
GE.K'(#. INITIALIZE..'-#LP.72:L0.68:M0.1
60:Q$.G(141):R$.G(13):K$."...(2#V..((.(0
).2000).M0):.T$(V).[(<#."...............
...............".39)"..":.59468,14:. FOR
MAT..(A#.53272,2.B(53272):.". . C
OMMODORE TEXT 64 ...(C#.61000: . COLOR C
HANGE..(F#."..K.ASSETTE, .D.ISKETTE, OR
.B.EIDES";:X$."DKB":.8060:CF.I.1..)P#B$.
" ":.I.1.5:B$.B$.B$:.:.8,08,15.?)U#.
".TAGESDATUM?":M.20:.8200:D$.X$.Y)Z#K$."
":. 1525 PRINTER..)D#. K$="_":Q$=R$+CHR
$(27)+".":REM 8300 PRINTER..)X#.I.1.7:K$
.K$.K$:.:.100..).#.100.M).'. LETTERHEAD
DATA, DELETED.U).'.""..)$'.""..).'.""..*
`..Q9$" NICHT GEFUNDEN ":.8000:.100.&*H.
. COLOR CHANGE ROUTINE.J*I...C(X).B(X).1
.16.((B(X).15).15).D*J.."....FARBWECHSEL
..."..*K.."...F1.=FARBE DES RANDES .F3.=
HINTERGRUND FARBE".L*M.."..F5.=ZEICHENFA
RBE .RETURN.=WEITER ..."..*R..C$:.C$
.61010..*\..C$:.C$."".61020..+F.C.F(C$):
.C.135..646,.C(646):.61002.F+Z.C.F(C$):.
C.133.C.134.X.53147.C:.X,.C(X).W+...C..1
3.61010.]+......
> CLICK IMAGE PREVIEW FOR FULL MODAL