TEXT
FILE INFORMATION
FILENAME(S): TEXT
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 16:18:13
APPEARS ON: 1 disk(s)
FILE HASH
703c05850b8a884964e585f2b301da9d45bbd81fc065d6d01833b9899710b2f0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE | TEXT | PRG | BrainSkull, Leopold Zyka | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 05 00 99 C7 28 31 34 29 3A 97 36 35 |........(14):.65|
00000010: 37 2C 31 32 38 00 4F 08 0A 00 89 39 30 30 30 3A |7,128.O....9000:|
00000020: 8F 20 28 43 29 20 31 39 38 32 20 42 59 20 43 4F |. (C) 1982 BY CO|
00000030: 4D 4D 4F 44 4F 52 45 20 42 55 53 49 4E 45 53 53 |MMODORE BUSINESS|
00000040: 20 4D 41 43 48 49 4E 45 53 2C 20 49 4E 43 2E 00 | MACHINES, INC..|
00000050: 5E 08 14 00 A1 43 24 3A 8B 43 24 89 32 30 00 7B |^....C$:.C$.20.{|
00000060: 08 19 00 A1 43 24 3A 8B 43 24 A7 99 22 20 9D 22 |....C$:.C$.." ."|
00000070: 3B 3A 43 B2 C6 28 43 24 29 3A 8E 00 8A 08 1B 00 |;:C..(C$):......|
00000080: 99 22 A4 9D 22 3B 3A 89 32 35 00 9C 08 1E 00 A1 |."..";:.25......|
00000090: 43 24 3A 8B 43 24 B2 22 22 89 33 30 00 D1 08 20 |C$:.C$."".30... |
000000A0: 00 58 B2 C6 28 43 24 29 3A 43 B2 58 AF 31 32 37 |.X..(C$):C.X.127|
000000B0: 3A 8B 43 B2 31 33 B0 43 B2 31 37 B0 43 B2 31 39 |:.C.13.C.17.C.19|
000000C0: B0 43 B2 32 30 B0 43 B2 32 39 B0 43 B1 33 31 A7 |.C.20.C.29.C.31.|
000000D0: 8E 00 D9 08 22 00 89 33 30 00 E3 08 28 00 58 24 |...."..30...(.X$|
000000E0: B2 22 22 00 01 09 2A 00 A1 23 31 2C 43 24 3A 8B |.""...*..#1,C$:.|
000000F0: 43 24 B2 52 24 B0 43 24 B2 C7 28 31 34 31 29 A7 |C$.R$.C$..(141).|
00000100: 8E 00 12 09 2C 00 58 24 B2 58 24 AA 43 24 3A 89 |....,.X$.X$.C$:.|
00000110: 34 32 00 2B 09 64 00 4C B2 30 3A 4C 4C B2 4C 30 |42.+.d.L.0:LL.L0|
00000120: 3A A0 31 3A 8F 20 45 4E 54 52 59 00 54 09 6E 00 |:.1:. ENTRY.T.n.|
00000130: 99 22 93 20 20 20 20 20 20 12 20 C3 4F 4D 4D 4F |.". . .OMMO|
00000140: 44 4F 52 45 20 D4 C5 D8 D4 20 36 34 20 20 20 20 |DORE .... 64 |
00000150: 20 20 11 11 00 6A 09 78 00 99 2C 22 C6 55 4E 4B | ...j.x..,".UNK|
00000160: 54 49 4F 4E 45 4E 3A 11 11 22 00 8E 09 7D 00 99 |TIONEN:.."...}..|
00000170: 2C 22 12 C5 92 52 53 54 45 4C 4C 45 4E 20 45 49 |,"...RSTELLEN EI|
00000180: 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 B2 |NES .OKUMENTES..|
00000190: 09 82 00 99 2C 22 12 D3 92 50 45 49 43 48 45 52 |....,"...PEICHER|
000001A0: 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 |N EINES .OKUMENT|
000001B0: 45 53 00 D5 09 87 00 99 2C 22 12 C1 92 55 46 52 |ES......,"...UFR|
000001C0: 55 46 45 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D |UFEN EINES .OKUM|
000001D0: 45 4E 54 45 53 00 F7 09 8C 00 99 2C 22 12 C4 92 |ENTES......,"...|
000001E0: 52 55 43 4B 45 4E 20 45 49 4E 45 53 20 C4 4F 4B |RUCKEN EINES .OK|
000001F0: 55 4D 45 4E 54 45 53 00 1C 0A 96 00 99 2C 22 12 |UMENTES......,".|
00000200: D6 92 45 52 41 45 4E 44 45 52 4E 20 45 49 4E 45 |..ERAENDERN EINE|
00000210: 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 42 0A A0 |S .OKUMENTES.B..|
00000220: 00 99 2C 22 12 C7 92 4C 4F 42 41 4C 45 53 20 D3 |..,"...LOBALES .|
00000230: 55 43 48 45 4E 20 55 4E 44 20 D4 41 55 53 43 48 |UCHEN UND .AUSCH|
00000240: 45 4E 00 67 0A A5 00 99 2C 22 12 C2 92 D3 2D C1 |EN.g....,"....-.|
00000250: 4E 5A 45 49 47 45 20 45 49 4E 45 53 20 C4 4F 4B |NZEIGE EINES .OK|
00000260: 55 4D 45 4E 54 45 53 00 88 0A AA 00 99 2C 22 12 |UMENTES......,".|
00000270: D2 92 55 4E 44 53 43 48 52 45 49 42 45 4E 20 C5 |..UNDSCHREIBEN .|
00000280: 52 53 54 45 4C 4C 45 4E 00 9E 0A B9 00 99 2C 22 |RSTELLEN......,"|
00000290: 12 D0 92 52 4F 47 52 41 4D 4D 45 4E 44 45 00 D0 |...ROGRAMMENDE..|
000002A0: 0A BE 00 58 24 B2 22 50 42 56 47 44 53 52 41 45 |...X$."PBVGDSRAE|
000002B0: 22 3A 99 22 11 D7 45 4C 43 48 45 20 20 20 22 3B |":."..ELCHE ";|
000002C0: 3A 8D 38 30 36 30 3A 8B 49 B2 30 89 38 37 30 30 |:.8060:.I.0.8700|
000002D0: 00 E1 0A C3 00 4A B2 49 3A 8B 4A B3 34 89 32 35 |.....J.I:.J.4.25|
000002E0: 30 00 F8 0A C8 00 99 22 93 22 3A 8F 20 47 45 54 |0......".":. GET|
000002F0: 20 53 55 42 4A 45 43 54 00 3E 0B D2 00 8B 48 24 | SUBJECT.>....H$|
00000300: B1 22 22 A7 99 22 C4 4F 4B 55 4D 45 4E 54 3A 20 |.""..".OKUMENT: |
00000310: 12 22 48 24 3A 99 22 11 28 D2 C5 D4 D5 D2 CE 20 |."H$:.".(...... |
00000320: 4C 41 45 53 53 54 20 44 45 4E 20 CE 41 4D 45 4E |LAESST DEN .AMEN|
00000330: 20 55 4E 56 45 52 41 45 4E 44 45 52 54 29 00 6B | UNVERAENDERT).k|
00000340: 0B DC 00 4D B2 36 31 3A 99 22 11 C4 4F 4B 55 4D |...M.61:."..OKUM|
00000350: 45 4E 54 2D CE 41 4D 45 3A 22 3A 8D 38 32 30 30 |ENT-.AME:":.8200|
00000360: 3A 8B 43 B3 B1 31 33 89 32 30 30 00 7E 0B E6 00 |:.C..13.200.~...|
00000370: 99 3A 8B 58 24 B1 22 22 A7 48 24 B2 58 24 00 8D |.:.X$."".H$.X$..|
00000380: 0B F0 00 8B 48 24 B2 22 22 89 32 30 30 00 C8 0B |....H$."".200...|
00000390: FA 00 8B 4A B3 37 AF 54 24 28 30 29 B2 22 22 A7 |...J.7.T$(0)."".|
000003A0: 99 22 11 CB 45 49 4E 20 C4 4F 4B 55 4D 45 4E 54 |."..EIN .OKUMENT|
000003B0: 20 49 4D 20 D3 50 45 49 43 48 45 52 22 3A 8D 38 | IM .PEICHER":.8|
000003C0: 30 30 30 3A 89 31 30 30 00 E3 0B 04 01 8B 4F 46 |000:.100......OF|
000003D0: B2 30 B0 4A B3 37 B0 54 24 28 30 29 B2 22 22 89 |.0.J.7.T$(0)."".|
000003E0: 32 38 30 00 2A 0C 0E 01 99 22 11 C4 4F 4B 55 4D |280.*...."..OKUM|
000003F0: 45 4E 54 20 4E 49 43 48 54 20 47 45 53 50 45 49 |ENT NICHT GESPEI|
00000400: 43 48 45 52 54 20 2E 2E 2E 20 D3 50 45 49 43 48 |CHERT ... .PEICH|
00000410: 45 52 20 4C 4F 45 53 43 48 45 4E 22 3B 3A 8D 38 |ER LOESCHEN";:.8|
00000420: 30 35 30 3A 8B 49 89 31 30 30 00 57 0C 18 01 91 |050:.I.100.W....|
00000430: 4A 89 34 30 30 2C 31 30 30 30 2C 36 30 30 30 2C |J.400,1000,6000,|
00000440: 37 30 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 32 |7000,3000,4000,2|
00000450: 30 30 30 2C 35 30 30 00 6C 0C 90 01 8F 20 52 45 |000,500.l.... RE|
00000460: 41 44 20 54 4F 20 53 43 52 45 45 4E 00 96 0C 9A |AD TO SCREEN....|
00000470: 01 4E B2 33 39 3A 46 B2 30 3A 4C 4C B2 32 30 3A |.N.39:F.0:LL.20:|
00000480: 54 42 24 B2 22 22 3A 9F 31 2C 33 3A 8D 37 30 38 |TB$."":.1,3:.708|
00000490: 30 3A 89 31 30 30 00 B4 0C F4 01 4F 46 B2 31 3A |0:.100.....OF.1:|
000004A0: 54 B2 30 3A 8F 20 57 52 49 54 45 20 4E 45 57 20 |T.0:. WRITE NEW |
000004B0: 54 45 58 54 00 ED 0C F9 01 99 22 93 12 22 48 24 |TEXT......".."H$|
000004C0: 3A 99 3A 99 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |:.:."...........|
000004D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 FD 0C |................|
000004F0: FE 01 A1 43 24 3A 8B 43 24 89 35 31 30 00 1C 0D |...C$:.C$.510...|
00000500: 08 02 4D B2 4D 30 3A 81 49 B2 54 A4 56 3A 54 24 |..M.M0:.I.T.V:T$|
00000510: 28 49 29 B2 22 22 3A 58 24 B2 22 22 00 39 0D 12 |(I)."":X$."".9..|
00000520: 02 8D 38 32 32 30 3A 8B 43 B2 31 33 A7 99 3A 8B |..8220:.C.13..:.|
00000530: 58 24 B2 22 22 89 35 33 30 00 4F 0D 1C 02 54 24 |X$."".530.O...T$|
00000540: 28 49 29 B2 58 24 3A 8B 43 B3 B1 39 32 A7 82 00 |(I).X$:.C..92...|
00000550: 6C 0D 26 02 8B 49 B3 56 A7 81 49 B2 49 AA 31 A4 |l.&..I.V..I.I.1.|
00000560: 56 3A 54 24 28 49 29 B2 22 22 3A 82 00 97 0D 58 |V:T$(I)."":....X|
00000570: 02 54 B2 30 3A 4C 24 B2 22 22 3A 8D 36 31 30 3A |.T.0:L$."":.610:|
00000580: 89 31 30 30 3A 8F 20 50 41 43 4B 20 54 48 45 20 |.100:. PACK THE |
00000590: 53 54 52 49 4E 47 53 00 B2 0D 62 02 99 3A 81 49 |STRINGS...b..:.I|
000005A0: B2 54 A4 56 3A 8B 54 24 28 49 29 B2 22 22 89 36 |.T.V:.T$(I)."".6|
000005B0: 33 30 00 D8 0D 67 02 58 24 B2 54 24 28 49 29 3A |30...g.X$.T$(I):|
000005C0: 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 |M.M0..(L$):L$.L$|
000005D0: AA C8 28 58 24 2C 4D 29 00 0E 0E 6C 02 58 24 B2 |..(X$,M)...l.X$.|
000005E0: CA 28 58 24 2C 4D AA 31 29 3A 8B C3 28 4C 24 29 |.(X$,M.1):..(L$)|
000005F0: B2 4D 30 A7 54 24 28 54 29 B2 4C 24 3A 99 22 2A |.M0.T$(T).L$:."*|
00000600: 22 3B 3A 4C 24 B2 58 24 3A 54 B2 54 AA 31 00 14 |";:L$.X$:T.T.1..|
00000610: 0E 76 02 82 00 3C 0E 8A 02 99 3A 54 24 28 54 29 |.v...<....:T$(T)|
00000620: B2 4C 24 3A 8B 54 B3 56 A7 81 49 B2 54 AA 31 A4 |.L$:.T.V..I.T.1.|
00000630: 56 3A 54 24 28 49 29 B2 22 22 3A 82 00 42 0E 94 |V:T$(I)."":..B..|
00000640: 02 8E 00 56 0E E8 03 8F 20 45 44 49 54 20 54 48 |...V.... EDIT TH|
00000650: 45 20 54 45 58 54 00 9E 0E F2 03 85 22 93 D7 49 |E TEXT......"..I|
00000660: 45 56 49 45 4C 20 25 20 D4 45 58 54 20 55 45 42 |EVIEL % .EXT UEB|
00000670: 45 52 53 50 52 49 4E 47 45 4E 20 28 30 2D 31 30 |ERSPRINGEN (0-10|
00000680: 30 29 20 20 30 9D 9D 9D 22 3B 54 3A 54 B2 B6 28 |0) 0...";T:T..(|
00000690: 54 29 3A 8B 54 B1 39 39 A7 54 B2 31 30 30 00 BA |T):.T.99.T.100..|
000006A0: 0E FC 03 4F 46 B2 31 3A 81 49 B2 30 A4 56 3A 8B |...OF.1:.I.0.V:.|
000006B0: 54 24 28 49 29 B1 22 22 A7 82 00 D4 0E 06 04 49 |T$(I)."".......I|
000006C0: B2 49 AB 31 3A 54 B2 B5 28 54 AC 49 AD 31 30 30 |.I.1:T..(T.I.100|
000006D0: AA 2E 35 29 00 E5 0E 10 04 4C B2 30 3A 8B 54 B1 |..5).....L.0:.T.|
000006E0: 56 89 31 30 30 00 FE 0E 1A 04 58 24 B2 54 24 28 |V.100.....X$.T$(|
000006F0: 54 29 3A 8B 58 24 B2 22 22 89 31 39 30 30 00 1C |T):.X$."".1900..|
00000700: 0F 24 04 50 24 B2 C8 28 48 24 2C 32 30 29 3A 8B |.$.P$..(H$,20):.|
00000710: 54 A7 50 24 B2 54 24 28 54 AB 31 29 00 40 0F 2E |T.P$.T$(T.1).@..|
00000720: 04 99 22 93 12 22 C9 28 50 24 2C 32 30 29 3A 99 |.."..".(P$,20):.|
00000730: 22 13 22 A6 32 39 29 22 92 C2 4C 4F 43 4B 22 54 |".".29)"..LOCK"T|
00000740: 00 75 0F 38 04 99 22 11 11 11 11 11 11 A4 A4 A4 |.u.8..".........|
00000750: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000760: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000770: A4 A4 A4 A4 A4 00 86 0F 42 04 A1 43 24 3A 8B 43 |........B..C$:.C|
00000780: 24 89 31 30 39 30 00 9F 0F 4C 04 8F 20 26 20 53 |$.1090...L.. & S|
00000790: 45 54 20 43 55 52 53 4F 52 20 28 41 2C 44 29 00 |ET CURSOR (A,D).|
000007A0: CB 0F 56 04 99 22 13 11 11 22 C8 28 58 24 2C 4C |..V.."...".(X$,L|
000007B0: 29 3A 99 22 13 11 11 22 A6 4C 29 22 20 9D 12 22 |):."...".L)" .."|
000007C0: CA 28 58 24 2C 4C AA 31 2C 31 29 00 F7 0F 6A 04 |.(X$,L.1,1)...j.|
000007D0: 99 22 13 11 11 22 A6 4C AA 31 29 CA 28 58 24 2C |."...".L.1).(X$,|
000007E0: 4C AA 32 29 C8 28 42 24 2C 4D 30 AB C3 28 58 24 |L.2).(B$,M0..(X$|
000007F0: 29 29 3A 99 22 11 11 00 19 10 B0 04 8D 33 30 3A |)):."........30:|
00000800: 8B 58 B2 39 32 A7 54 24 28 54 29 B2 58 24 3A 89 |.X.92.T$(T).X$:.|
00000810: 36 30 30 3A 8F 20 45 4E 44 00 48 10 BA 04 8B 58 |600:. END.H....X|
00000820: B2 32 39 A7 4C B2 4C AB 28 4C AA 31 B3 C3 28 58 |.29.L.L.(L.1..(X|
00000830: 24 29 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 |$)):.1100:. CURS|
00000840: 4F 52 20 52 49 47 48 54 00 70 10 C4 04 8B 43 B2 |OR RIGHT.p....C.|
00000850: 32 39 A7 4C B2 4C AA 28 4C B1 30 29 3A 89 31 31 |29.L.L.(L.0):.11|
00000860: 30 30 3A 8F 20 43 55 52 53 4F 52 20 4C 45 46 54 |00:. CURSOR LEFT|
00000870: 00 A2 10 CE 04 8B 58 B2 31 37 A7 4C B2 4C AB 34 |......X.17.L.L.4|
00000880: 30 AC 28 4C AA 34 30 B3 C3 28 58 24 29 29 3A 89 |0.(L.40..(X$)):.|
00000890: 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 44 4F |1100:. CURSOR DO|
000008A0: 57 4E 00 CC 10 D8 04 8B 43 B2 31 37 A7 4C B2 4C |WN......C.17.L.L|
000008B0: AA 34 30 AC 28 4C B1 33 39 29 3A 89 31 31 30 30 |.40.(L.39):.1100|
000008C0: 3A 8F 20 43 55 52 53 4F 52 20 55 50 00 EE 10 E2 |:. CURSOR UP....|
000008D0: 04 8B 58 B2 31 39 A7 4C B2 30 3A 89 31 31 30 30 |..X.19.L.0:.1100|
000008E0: 3A 8F 20 43 55 52 53 4F 52 20 48 4F 4D 45 00 28 |:. CURSOR HOME.(|
000008F0: 11 EC 04 8B 43 B2 31 39 A7 81 49 B2 54 A4 56 AB |....C.19..I.T.V.|
00000900: 31 3A 54 24 28 49 29 B2 54 24 28 49 AA 31 29 3A |1:T$(I).T$(I.1):|
00000910: 82 3A 54 24 28 56 29 B2 22 22 3A 89 31 30 34 30 |.:T$(V)."":.1040|
00000920: 3A 8F 20 43 4C 45 41 52 00 54 11 F6 04 8B 58 B2 |:. CLEAR.T....X.|
00000930: 31 33 A7 54 24 28 54 29 B2 58 24 3A 54 B2 54 AA |13.T$(T).X$:T.T.|
00000940: 31 3A 89 31 30 34 30 3A 8F 20 4E 45 58 54 20 42 |1:.1040:. NEXT B|
00000950: 4C 4F 43 4B 00 85 11 00 05 8B 43 B2 31 33 A7 54 |LOCK......C.13.T|
00000960: 24 28 54 29 B2 58 24 3A 54 B2 54 AA 28 54 B1 30 |$(T).X$:T.T.(T.0|
00000970: 29 3A 89 31 30 34 30 3A 8F 20 50 52 49 4F 52 20 |):.1040:. PRIOR |
00000980: 42 4C 4F 43 4B 00 98 11 0A 05 8B 4C B1 B2 C3 28 |BLOCK......L...(|
00000990: 58 24 29 89 31 31 30 30 00 BC 11 14 05 4C 24 B2 |X$).1100.....L$.|
000009A0: C8 28 58 24 2C 4C 29 3A 8B 58 B2 31 34 38 89 31 |.(X$,L):.X.148.1|
000009B0: 33 35 30 3A 8F 20 49 4E 53 45 52 54 00 FF 11 1E |350:. INSERT....|
000009C0: 05 4D 24 B2 CA 28 58 24 2C 4C AA 32 29 3A 8B 43 |.M$..(X$,L.2):.C|
000009D0: B3 B1 32 30 A7 58 24 B2 4C 24 AA 43 24 AA 4D 24 |..20.X$.L$.C$.M$|
000009E0: 3A 58 B2 32 39 3A 89 31 32 31 30 3A 8F 20 52 45 |:X.29:.1210:. RE|
000009F0: 50 4C 41 43 45 20 43 48 41 52 41 43 54 45 52 00 |PLACE CHARACTER.|
00000A00: 2B 12 32 05 58 24 B2 4C 24 AA 4D 24 3A 8B 58 24 |+.2.X$.L$.M$:.X$|
00000A10: B2 22 22 A7 43 B2 31 39 3A 89 31 32 36 30 3A 8F |."".C.19:.1260:.|
00000A20: 20 4E 55 4C 4C 20 42 4C 4F 43 4B 00 35 12 3C 05 | NULL BLOCK.5.<.|
00000A30: 89 31 31 30 30 00 66 12 46 05 4D 24 B2 CA 28 58 |.1100.f.F.M$..(X|
00000A40: 24 2C 4C AA 31 29 3A 99 22 93 11 11 11 11 11 11 |$,L.1):.".......|
00000A50: 11 11 11 11 11 11 11 11 11 12 22 4D 24 3A 99 22 |.........."M$:."|
00000A60: 13 11 11 22 4C 24 00 84 12 4B 05 99 22 13 11 11 |..."L$...K.."...|
00000A70: 22 A3 C3 28 4C 24 29 29 3B 3A 4D B2 4D 30 3A 8D |"..(L$));:M.M0:.|
00000A80: 38 32 30 30 00 B1 12 50 05 4D B2 4D 30 AB C3 28 |8200...P.M.M0..(|
00000A90: 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 58 24 2C 4D |L$):L$.L$..(X$,M|
00000AA0: 29 3A 4D 24 B2 CA 28 58 24 2C 4D AA 31 29 AA 4D |):M$..(X$,M.1).M|
00000AB0: 24 00 F0 12 5A 05 4D B2 4D 30 AB C3 28 4C 24 29 |$...Z.M.M0..(L$)|
00000AC0: 3A 54 24 28 54 29 B2 4C 24 AA C8 28 4D 24 2C 4D |:T$(T).L$..(M$,M|
00000AD0: 29 3A 4C 24 B2 CA 28 4D 24 2C 4D AA 31 29 3A 4D |):L$..(M$,M.1):M|
00000AE0: 24 B2 22 22 3A 8B 4C 24 B2 22 22 89 31 30 35 30 |$."":.L$."".1050|
00000AF0: 00 0D 13 64 05 58 B2 54 3A 54 B2 54 AA 31 3A 8D |...d.X.T:T.T.1:.|
00000B00: 36 31 30 3A 54 B2 58 3A 89 31 30 35 30 00 22 13 |610:T.X:.1050.".|
00000B10: 6C 07 8F 20 41 44 44 20 54 4F 20 54 48 45 20 45 |l.. ADD TO THE E|
00000B20: 4E 44 00 35 13 76 07 8B 54 B2 30 89 36 30 30 3A |ND.5.v..T.0.600:|
00000B30: 8F 20 45 4E 44 00 5D 13 80 07 58 24 B2 54 24 28 |. END.]...X$.T$(|
00000B40: 54 AB 31 29 3A 99 22 93 22 58 24 3A 99 22 13 22 |T.1):."."X$:."."|
00000B50: A6 C3 28 58 24 29 29 3B 3A 89 35 31 30 00 6E 13 |..(X$));:.510.n.|
00000B60: D0 07 8F 20 49 4E 50 55 54 20 46 49 4C 45 00 9B |... INPUT FILE..|
00000B70: 13 D5 07 51 39 24 B2 22 C4 4F 4B 55 4D 45 4E 54 |...Q9$.".OKUMENT|
00000B80: 22 3A 20 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D |": . FOR ERROR M|
00000B90: 53 47 20 49 4E 20 36 30 30 30 30 00 C2 13 EE 07 |SG IN 60000.....|
00000BA0: 8B 43 46 B1 32 A7 99 22 11 D6 4F 4E 20 44 45 52 |.CF.2.."..ON DER|
00000BB0: 20 C4 41 54 41 53 45 54 54 45 22 3B 3A 8D 38 30 | .ATASETTE";:.80|
00000BC0: 35 30 00 E7 13 F8 07 8B 43 46 B2 32 B0 28 43 46 |50......CF.2.(CF|
00000BD0: B1 32 AF 49 B2 30 29 A7 9F 31 2C 31 2C 30 2C 48 |.2.I.0)..1,1,0,H|
00000BE0: 24 3A 89 32 31 30 30 00 0D 14 02 08 9F 31 2C 30 |$:.2100......1,0|
00000BF0: 38 2C 32 2C C8 28 48 24 2C 31 36 29 3A 84 38 2C |8,2,.(H$,16):.8,|
00000C00: 58 2C 58 24 3A 8B 58 89 36 30 30 30 30 00 44 14 |X,X$:.X.60000.D.|
00000C10: 34 08 4F 46 B2 30 3A 8D 34 30 3A 99 22 11 CC 49 |4.OF.0:.40:."..I|
00000C20: 45 53 54 20 20 3A 20 12 22 58 24 3A 48 24 B2 58 |EST : ."X$:H$.X|
00000C30: 24 3A 8D 34 30 3A 99 58 24 3A 99 3A 8F 20 48 45 |$:.40:.X$:.:. HE|
00000C40: 41 44 45 52 00 6B 14 98 08 58 24 B2 C7 28 33 31 |ADER.k...X$..(31|
00000C50: 29 3A 81 49 B2 30 A4 56 3A 4C 24 B2 22 22 3A 8F |):.I.0.V:L$."":.|
00000C60: 20 49 4E 50 55 54 20 46 49 4C 45 00 8D 14 A2 08 | INPUT FILE.....|
00000C70: 81 4A B2 31 A4 4D 30 3A A1 23 31 2C 43 24 3A 8B |.J.1.M0:.#1,C$:.|
00000C80: 53 54 A7 4A B2 4D 30 3A 89 32 32 33 30 00 B9 14 |ST.J.M0:.2230...|
00000C90: AC 08 8B 43 24 B1 58 24 A7 4C 24 B2 4C 24 AA 43 |...C$.X$.L$.L$.C|
00000CA0: 24 3A 8F 20 4F 4E 4C 59 20 4C 45 47 41 4C 20 43 |$:. ONLY LEGAL C|
00000CB0: 48 41 52 41 43 54 45 52 53 00 DD 14 B6 08 82 4A |HARACTERS......J|
00000CC0: 3A 54 24 28 49 29 B2 4C 24 3A 99 4C 24 3B 3A 8B |:T$(I).L$:.L$;:.|
00000CD0: 53 54 B2 30 A7 82 49 3A 49 B2 49 AB 31 00 F5 14 |ST.0..I:I.I.1...|
00000CE0: CA 08 54 B2 49 3A 8D 36 35 30 3A 8D 38 30 30 30 |..T.I:.650:.8000|
00000CF0: 3A 89 31 30 30 00 12 15 B8 0B 8D 33 30 32 30 3A |:.100......3020:|
00000D00: 89 31 30 30 3A 8F 20 4F 55 54 50 55 54 20 46 49 |.100:. OUTPUT FI|
00000D10: 4C 45 00 35 15 CC 0B 8B 43 46 B1 32 A7 99 22 93 |LE.5....CF.2..".|
00000D20: C1 55 46 20 C4 41 54 41 53 45 54 54 45 22 3B 3A |.UF .ATASETTE";:|
00000D30: 8D 38 30 35 30 00 5A 15 D6 0B 8B 43 46 B2 32 B0 |.8050.Z....CF.2.|
00000D40: 28 43 46 B2 33 AF 49 B2 30 29 A7 9F 31 2C 31 2C |(CF.3.I.0)..1,1,|
00000D50: 31 2C 48 24 3A 89 33 31 30 30 00 8D 15 E0 0B 4C |1,H$:.3100.....L|
00000D60: 24 B2 22 30 3A 22 AA C8 28 48 24 2C 31 36 29 3A |$."0:"..(H$,16):|
00000D70: 9F 31 2C 30 38 2C 32 2C 4C 24 3A 84 38 2C 58 2C |.1,08,2,L$:.8,X,|
00000D80: 58 24 3A A0 31 3A 8B 58 89 33 30 38 30 00 C7 15 |X$:.1:.X.3080...|
00000D90: EA 0B 99 22 11 C4 4F 4B 55 4D 45 4E 54 20 45 58 |..."..OKUMENT EX|
00000DA0: 49 53 54 49 45 52 54 20 2D 20 55 45 42 45 52 53 |ISTIERT - UEBERS|
00000DB0: 43 48 52 45 49 42 45 4E 20 20 22 3B 3A 8D 38 30 |CHREIBEN ";:.80|
00000DC0: 35 30 3A 8B 49 A7 8E 00 DB 15 F4 0B 98 38 2C 22 |50:.I........8,"|
00000DD0: 53 22 4C 24 3A 98 38 2C 22 49 30 00 0F 16 08 0C |S"L$:.8,"I0.....|
00000DE0: 9F 31 2C 30 38 2C 33 2C 4C 24 AA 22 2C 53 2C 57 |.1,08,3,L$.",S,W|
00000DF0: 22 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 51 39 24 |":.8,X,X$:.X.Q9$|
00000E00: B2 22 53 50 41 43 45 22 3A 8D 36 30 30 30 30 00 |."SPACE":.60000.|
00000E10: 26 16 1C 0C 4F 46 B2 30 3A 98 31 2C 48 24 C7 28 |&...OF.0:.1,H$.(|
00000E20: 31 34 31 29 44 24 00 4D 16 4E 0C 81 49 B2 30 A4 |141)D$.M.N..I.0.|
00000E30: 56 3A 8B 54 24 28 49 29 B1 22 22 A7 98 31 2C 54 |V:.T$(I).""..1,T|
00000E40: 24 28 49 29 3B 3A 99 22 2A 22 3B 3A 82 00 5B 16 |$(I);:."*";:..[.|
00000E50: 58 0C 98 31 2C 22 5C 22 3B 3A 8E 00 72 16 A0 0F |X..1,"\";:..r...|
00000E60: 8F 20 42 41 54 43 48 20 50 52 4F 43 45 53 53 49 |. BATCH PROCESSI|
00000E70: 4E 47 00 9B 16 A5 0F 51 39 24 B2 22 46 49 4C 45 |NG.....Q9$."FILE|
00000E80: 22 3A 20 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D |": . FOR ERROR M|
00000E90: 53 47 20 49 4E 20 36 30 30 30 30 00 BF 16 AA 0F |SG IN 60000.....|
00000EA0: 99 22 93 22 3B 3A 91 43 46 89 34 31 30 30 2C 34 |.".";:.CF.4100,4|
00000EB0: 30 35 30 3A 8F 20 45 4C 53 45 20 42 4F 54 48 00 |050:. ELSE BOTH.|
00000EC0: E3 16 B4 0F 99 22 D6 4F 4E 20 C4 41 54 41 53 45 |.....".ON .ATASE|
00000ED0: 54 54 45 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 34 |TTE";:.8050:.I.4|
00000EE0: 31 30 30 00 F7 16 D2 0F 8F 20 46 52 4F 4D 20 43 |100...... FROM C|
00000EF0: 41 53 53 45 54 54 45 00 06 17 DC 0F 9F 32 2C 31 |ASSETTE......2,1|
00000F00: 3A 89 34 31 35 30 00 16 17 04 10 8F 20 46 52 4F |:.4150...... FRO|
00000F10: 4D 20 44 49 53 43 00 4C 17 0E 10 85 22 93 C1 C4 |M DISC.L...."...|
00000F20: D2 C5 D3 D3 C5 CE 20 36 34 3A 20 C4 41 54 45 49 |...... 64: .ATEI|
00000F30: 2D CE 41 4D 45 20 20 2D 9D 9D 9D 22 3B 58 24 3A |-.AME -...";X$:|
00000F40: 8B 58 24 B2 22 2D 22 89 34 31 31 30 00 70 17 18 |.X$."-".4110.p..|
00000F50: 10 9F 32 2C 30 38 2C 32 2C 58 24 3A 84 38 2C 58 |..2,08,2,X$:.8,X|
00000F60: 2C 58 24 3A 8B 58 A7 A0 32 3A 89 36 30 30 30 30 |,X$:.X..2:.60000|
00000F70: 00 89 17 36 10 8F 20 50 52 45 50 41 52 45 20 46 |...6.. PREPARE F|
00000F80: 4F 52 20 4F 55 54 50 55 54 00 BC 17 40 10 54 42 |OR OUTPUT...@.TB|
00000F90: 24 B2 22 22 3A 53 32 B2 30 3A 4E B2 37 32 3A 46 |$."":S2.0:N.72:F|
00000FA0: B2 31 3A 9F 31 2C 30 34 3A 53 24 B2 22 11 22 AA |.1:.1,04:S$.".".|
00000FB0: C8 28 42 24 2C 34 30 AB 4E AD 32 29 00 E4 17 4A |.(B$,40.N.2)...J|
00000FC0: 10 99 22 11 D3 54 41 4E 44 41 52 44 2D C6 4F 52 |.."..TANDARD-.OR|
00000FD0: 4D 41 54 22 3B 3A 8D 38 30 35 30 3A 8B 49 A7 8D |MAT";:.8050:.I..|
00000FE0: 37 35 30 30 00 06 18 68 10 8F 20 47 45 54 20 54 |7500...h.. GET T|
00000FF0: 48 45 20 4E 41 4D 45 20 41 4E 44 20 53 41 4C 55 |HE NAME AND SALU|
00001000: 54 41 54 49 4F 4E 00 32 18 72 10 84 32 2C 5A 24 |TATION.2.r..2,Z$|
00001010: 3A 8B 53 54 B1 30 B0 C3 28 5A 24 29 B3 32 89 34 |:.ST.0..(Z$).2.4|
00001020: 39 30 30 3A 8F 20 4E 4F 20 4C 41 53 54 20 4E 41 |900:. NO LAST NA|
00001030: 4D 45 00 72 18 7C 10 4C 24 B2 22 22 3A 8D 37 34 |ME.r.|.L$."":.74|
00001040: 35 30 3A 58 24 B2 22 22 3A 59 24 B2 22 22 3A 4D |50:X$."":Y$."":M|
00001050: 24 B2 22 D3 45 48 52 20 47 45 45 48 52 54 45 20 |$.".EHR GEEHRTE |
00001060: C4 41 4D 45 4E 20 55 4E 44 20 C8 45 52 52 45 4E |.AMEN UND .ERREN|
00001070: 2C 22 00 A1 18 86 10 84 32 2C 58 24 3A 8B C3 28 |,"......2,X$:..(|
00001080: 58 24 29 B3 32 A7 58 24 B2 22 22 3A 89 34 32 35 |X$).2.X$."":.425|
00001090: 30 3A 8F 20 4E 4F 20 46 49 52 53 54 20 4E 41 4D |0:. NO FIRST NAM|
000010A0: 45 00 C4 18 90 10 4D 24 B2 22 CC 49 45 42 45 2F |E.....M$.".IEBE/|
000010B0: 52 20 22 AA 58 24 AA 22 2C 22 3A 58 24 B2 58 24 |R ".X$.",":X$.X$|
000010C0: AA 22 20 22 00 EE 18 9A 10 84 32 2C 59 24 3A 8B |." "......2,Y$:.|
000010D0: C3 28 59 24 29 B3 32 A7 59 24 B2 22 22 3A 89 34 |.(Y$).2.Y$."":.4|
000010E0: 32 37 30 3A 8F 20 4E 4F 20 54 49 54 4C 45 00 13 |270:. NO TITLE..|
000010F0: 19 A4 10 59 24 B2 59 24 AA 22 20 22 3A 4D 24 B2 |...Y$.Y$." ":M$.|
00001100: 22 CC 49 45 42 45 2F 52 20 22 AA 59 24 AA 5A 24 |".IEBE/R ".Y$.Z$|
00001110: AA 22 2C 00 40 19 AE 10 4C 24 B2 59 24 AA 58 24 |.",.@...L$.Y$.X$|
00001120: AA 5A 24 3A 84 32 2C 58 24 3A 8B C3 28 58 24 29 |.Z$:.2,X$:..(X$)|
00001130: B1 32 A7 4C 24 B2 4C 24 AA 22 2C 20 22 AA 58 24 |.2.L$.L$.", ".X$|
00001140: 00 69 19 B8 10 5A 24 B2 4D 24 3A 4D 24 B2 22 22 |.i...Z$.M$:M$.""|
00001150: 3A 50 24 B2 4C 24 3A 8D 37 39 30 30 3A 8F 20 50 |:P$.L$:.7900:. P|
00001160: 52 49 4E 54 20 4E 41 4D 45 00 7B 19 CC 10 8F 20 |RINT NAME.{.... |
00001170: 47 45 54 20 41 44 44 52 45 53 53 00 A3 19 D6 10 |GET ADDRESS.....|
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 32 00 CB 19 E0 10 84 32 2C 4C 24 3A 8B C3 |E 2......2,L$:..|
000011B0: 28 4C 24 29 B1 31 A7 50 24 B2 4C 24 3A 8D 37 39 |(L$).1.P$.L$:.79|
000011C0: 30 30 3A 8F 20 4C 49 4E 45 20 33 00 FF 19 EA 10 |00:. LINE 3.....|
000011D0: 84 32 2C 4C 24 3A 84 32 2C 59 24 3A 8B C3 28 59 |.2,L$:.2,Y$:..(Y|
000011E0: 24 29 B1 31 A7 4C 24 B2 4C 24 AA 22 2C 20 22 AA |$).1.L$.L$.", ".|
000011F0: 59 24 3A 8F 20 53 54 41 54 45 2C 20 5A 49 50 00 |Y$:. STATE, ZIP.|
00001200: 18 1A F4 10 8B C3 28 4C 24 29 B1 31 A7 50 24 B2 |......(L$).1.P$.|
00001210: 4C 24 3A 8D 37 39 30 30 00 44 1A FE 10 81 49 B2 |L$:.7900.D....I.|
00001220: 4C A4 31 34 3A 8D 37 39 30 30 3A 82 3A 4C 24 B2 |L.14:.7900:.:L$.|
00001230: 5A 24 3A 50 24 B2 4C 24 3A 8D 37 30 39 30 3A 89 |Z$:P$.L$:.7090:.|
00001240: 34 32 30 30 00 50 1A 24 13 A0 32 3A 89 31 30 30 |4200.P.$..2:.100|
00001250: 00 69 1A 70 17 8F 20 53 45 41 52 43 48 20 41 4E |.i.p.. SEARCH AN|
00001260: 44 20 52 45 50 4C 41 43 45 00 A6 1A 7A 17 99 22 |D REPLACE...z.."|
00001270: 93 11 D3 55 43 48 45 4E 20 4E 41 43 48 3F 22 3A |...UCHEN NACH?":|
00001280: 4D B2 34 30 3A 8D 38 32 30 30 3A 5A 24 B2 58 24 |M.40:.8200:Z$.X$|
00001290: 3A 4C B2 C3 28 58 24 29 3A 8B 4C B2 30 B0 4C B2 |:L..(X$):.L.0.L.|
000012A0: 4D 89 36 30 31 30 00 D0 1A 84 17 99 3A 99 22 11 |M.6010......:.".|
000012B0: C5 52 53 45 54 5A 45 4E 20 44 55 52 43 48 3F 22 |.RSETZEN DURCH?"|
000012C0: 3A 8D 38 32 30 30 3A 59 24 B2 58 24 3A 99 3A 99 |:.8200:Y$.X$:.:.|
000012D0: 00 F7 1A 8E 17 58 24 B2 22 22 3A 4D 24 B2 22 22 |.....X$."":M$.""|
000012E0: 3A 4C 24 B2 22 22 3A 54 B2 30 3A 55 B2 30 3A 46 |:L$."":T.0:U.0:F|
000012F0: B2 30 3A 4F 46 B2 31 00 0D 1B 38 18 8F 20 41 54 |.0:OF.1...8.. AT|
00001300: 54 41 43 48 20 54 24 20 54 4F 20 58 24 00 20 1B |TACH T$ TO X$. .|
00001310: 42 18 8B C3 28 58 24 29 B1 B2 4C 89 36 32 35 30 |B...(X$)..L.6250|
00001320: 00 3E 1B 4C 18 8B 54 B1 56 89 36 34 30 30 3A 8F |.>.L..T.V.6400:.|
00001330: 20 41 4C 4C 20 54 24 27 53 20 52 45 41 44 00 63 | ALL T$'S READ.c|
00001340: 1B 56 18 58 24 B2 58 24 AA 54 24 28 54 29 3A 54 |.V.X$.X$.T$(T):T|
00001350: 24 28 54 29 B2 22 22 3A 54 B2 54 AA 31 3A 89 36 |$(T)."":T.T.1:.6|
00001360: 32 30 30 00 7A 1B 6A 18 8F 20 53 45 41 52 43 48 |200.z.j.. SEARCH|
00001370: 20 46 4F 52 20 4D 41 54 43 48 00 A8 1B 74 18 81 | FOR MATCH...t..|
00001380: 49 B2 31 A4 C3 28 58 24 29 AB 4C AA 31 3A 8B CA |I.1..(X$).L.1:..|
00001390: 28 58 24 2C 49 2C 4C 29 B3 B1 5A 24 A7 82 3A 4A |(X$,I,L)..Z$..:J|
000013A0: B2 49 3A 89 36 33 30 30 00 BE 1B 7E 18 4D 24 B2 |.I:.6300...~.M$.|
000013B0: 59 24 3A 4A B2 49 AA 4C 3A 99 22 12 22 3B 00 D2 |Y$:J.I.L:.".";..|
000013C0: 1B 9C 18 8F 20 53 50 4C 49 54 20 53 54 52 49 4E |.... SPLIT STRIN|
000013D0: 47 53 00 05 1C A6 18 4D 24 B2 C8 28 58 24 2C 49 |GS.....M$..(X$,I|
000013E0: AB 31 29 AA 4D 24 3A 58 24 B2 CA 28 58 24 2C 4A |.1).M$:X$..(X$,J|
000013F0: 29 3A 8D 36 35 30 30 3A 91 46 89 36 39 30 30 3A |):.6500:.F.6900:|
00001400: 89 36 32 30 30 00 18 1C 00 19 8F 20 53 54 4F 57 |.6200...... STOW|
00001410: 20 4C 41 53 54 20 4C 24 00 35 1C 0A 19 8D 36 35 | LAST L$.5....65|
00001420: 30 30 3A 8B 46 89 36 39 30 30 3A 8F 20 43 4C 45 |00:.F.6900:. CLE|
00001430: 41 52 20 4D 24 00 61 1C 14 19 4D 24 B2 58 24 3A |AR M$.a...M$.X$:|
00001440: 8D 36 35 30 30 3A 8B 46 89 36 39 30 30 3A 8F 20 |.6500:.F.6900:. |
00001450: 4D 24 5F 58 24 3B 20 43 4C 45 41 52 20 42 4F 54 |M$_X$; CLEAR BOT|
00001460: 48 00 98 1C 1E 19 8B 55 B3 B2 56 A7 54 B2 55 3A |H......U..V.T.U:|
00001470: 8D 36 35 30 3A 89 31 30 30 3A 8F 20 53 54 4F 57 |.650:.100:. STOW|
00001480: 20 4C 24 2C 20 43 4C 45 41 52 20 48 49 47 48 45 | L$, CLEAR HIGHE|
00001490: 52 20 42 4C 4F 43 4B 53 00 A2 1C 28 19 89 36 39 |R BLOCKS...(..69|
000014A0: 30 30 00 C5 1C 64 19 8F 20 43 4C 45 41 52 20 4D |00...d.. CLEAR M|
000014B0: 24 20 2D 20 53 54 4F 57 20 4C 24 20 49 46 20 4E |$ - STOW L$ IF N|
000014C0: 45 45 44 45 44 00 FB 1C 6E 19 4D B2 4D 30 AB C3 |EEDED...n.M.M0..|
000014D0: 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 4D 24 2C |(L$):L$.L$..(M$,|
000014E0: 4D 29 3A 4D 24 B2 CA 28 4D 24 2C 4D AA 31 29 3A |M):M$..(M$,M.1):|
000014F0: 8B C3 28 4C 24 29 B3 4D 30 A7 8E 00 0A 1D 78 19 |..(L$).M0.....x.|
00001500: 8B 55 B1 B2 56 89 36 35 35 30 00 37 1D 82 19 8B |.U..V.6550.7....|
00001510: 55 B3 54 A7 54 24 28 55 29 B2 4C 24 3A 99 22 2A |U.T.T$(U).L$:."*|
00001520: 92 22 3B 3A 55 B2 55 AA 31 3A 4C 24 B2 4D 24 3A |.";:U.U.1:L$.M$:|
00001530: 4D 24 B2 22 22 3A 8E 00 71 1D 8C 19 8B 54 B3 56 |M$."":..q....T.V|
00001540: A7 81 49 B2 56 A4 54 AA 31 A9 AB 31 3A 54 24 28 |..I.V.T.1..1:T$(|
00001550: 49 29 B2 54 24 28 49 AB 31 29 3A 82 3A 54 24 28 |I).T$(I.1):.:T$(|
00001560: 54 29 B2 22 22 3A 54 B2 54 AA 31 3A 89 36 35 33 |T)."":T.T.1:.653|
00001570: 30 00 7B 1D 96 19 46 B2 31 3A 8E 00 8C 1D F4 1A |0.{...F.1:......|
00001580: 8F 20 45 52 52 4F 52 20 45 58 49 54 00 BD 1D FE |. ERROR EXIT....|
00001590: 1A 99 3A 99 22 11 CF 55 54 20 4F 46 20 52 4F 4F |..:."..UT OF ROO|
000015A0: 4D 20 2D 20 44 41 54 41 20 49 4D 50 41 49 52 45 |M - DATA IMPAIRE|
000015B0: 44 22 3A 8D 38 30 30 30 3A 89 31 30 30 00 D4 1D |D":.8000:.100...|
000015C0: 58 1B 8F 20 46 4F 52 4D 41 54 20 41 4E 44 20 50 |X.. FORMAT AND P|
000015D0: 52 49 4E 54 00 E3 1D 62 1B 8D 37 30 32 30 3A 89 |RINT...b..7020:.|
000015E0: 31 30 30 00 FB 1D 6C 1B 9F 31 2C 30 34 3A 46 B2 |100...l..1,04:F.|
000015F0: 31 3A 8F 20 50 52 49 4E 54 45 52 00 2C 1E 76 1B |1:. PRINTER.,.v.|
00001600: 53 32 B2 31 3A 4E B2 36 30 3A 54 42 24 B2 22 22 |S2.1:N.60:TB$.""|
00001610: 3A 58 24 B2 22 46 49 44 22 3A 8F 20 44 45 46 41 |:X$."FID":. DEFA|
00001620: 55 4C 54 53 20 28 44 52 41 46 54 29 00 60 1E 80 |ULTS (DRAFT).`..|
00001630: 1B 99 22 11 12 C6 92 4F 52 4D 41 4C 2C 20 12 C9 |.."....ORMAL, ..|
00001640: 92 4E 46 4F 52 4D 41 4C 2C 20 4F 52 20 12 C4 92 |.NFORMAL, OR ...|
00001650: 52 41 46 54 22 3B 3A 8D 38 30 36 30 3A 4A B2 49 |RAFT";:.8060:J.I|
00001660: 00 79 1E 94 1B 8B 4A B3 32 A7 53 32 B2 30 3A 4E |.y....J.2.S2.0:N|
00001670: B2 37 32 3A 8D 37 35 30 30 00 A4 1E 9E 1B 53 24 |.72:.7500.....S$|
00001680: B2 22 11 22 AA C8 28 42 24 2C 34 30 AB 4E AD 32 |."."..(B$,40.N.2|
00001690: 29 3A 8B 4A B2 30 89 37 34 30 30 3A 8F 20 46 4F |):.J.0.7400:. FO|
000016A0: 52 4D 41 4C 00 C7 1E A8 1B 4C 24 B2 22 12 22 AA |RMAL.....L$.".".|
000016B0: 48 24 3A 50 24 B2 48 24 3A 4D 24 B2 C8 28 4B 24 |H$:P$.H$:M$..(K$|
000016C0: 2C C3 28 48 24 29 29 00 E5 1E B2 1B 4A B2 30 3A |,.(H$)).....J.0:|
000016D0: 99 22 93 22 3A 8D 37 39 30 30 3A 8D 37 39 30 30 |.".":.7900:.7900|
000016E0: 3A 8B 4A A7 8E 00 0F 1F BC 1B 54 B2 30 3A 58 24 |:.J.......T.0:X$|
000016F0: B2 22 5D 22 AA 54 42 24 3A 45 B2 30 3A 5A 24 B2 |."]".TB$:E.0:Z$.|
00001700: 42 24 3A 8F 20 50 52 49 4E 54 20 54 45 58 54 00 |B$:. PRINT TEXT.|
00001710: 46 1F C6 1B 8B C3 28 58 24 29 B3 B2 4E A7 58 24 |F.....(X$)..N.X$|
00001720: B2 58 24 AA 54 24 28 54 29 3A 54 B2 54 AA 31 3A |.X$.T$(T):T.T.1:|
00001730: 8B C3 28 58 24 29 B3 B2 4E B0 54 B1 56 A7 58 24 |..(X$)..N.T.V.X$|
00001740: B2 58 24 AA 22 5C 00 76 1F CB 1B 8B C6 28 58 24 |.X$."\.v.....(X$|
00001750: 29 B2 33 32 A7 58 24 B2 CA 28 58 24 2C 32 29 3A |).32.X$..(X$,2):|
00001760: 89 37 31 31 30 3A 8F 20 4C 45 41 44 49 4E 47 20 |.7110:. LEADING |
00001770: 42 4C 41 4E 4B 53 00 87 1F D0 1B 8B 45 A7 58 24 |BLANKS......E.X$|
00001780: B2 22 5B 22 AA 58 24 00 C4 1F DA 1B 4C 24 B2 C8 |."[".X$.....L$..|
00001790: 28 58 24 2C 4E AA 31 29 3A 50 24 B2 4C 24 3A 4A |(X$,N.1):P$.L$:J|
000017A0: B2 30 3A 4B B2 30 3A 4D 24 B2 42 24 3A 81 49 B2 |.0:K.0:M$.B$:.I.|
000017B0: 31 A4 C3 28 4C 24 29 3A 43 B2 C6 28 CA 28 4C 24 |1..(L$):C..(.(L$|
000017C0: 2C 49 29 29 00 E6 1F E4 1B 8B 43 B1 39 30 AF 43 |,I))......C.90.C|
000017D0: B3 39 36 A7 8D 37 37 30 30 3A 8B 58 A7 49 B2 4A |.96..7700:.X.I.J|
000017E0: 3A 89 37 31 36 30 00 1B 20 EE 1B 82 3A 81 49 B2 |:.7160.. ...:.I.|
000017F0: C3 28 4C 24 29 A4 4A AA 31 A9 AB 31 3A 8B CA 28 |.(L$).J.1..1:..(|
00001800: 4C 24 2C 49 2C 31 29 B1 22 20 22 A7 82 3A 49 B2 |L$,I,1)." "..:I.|
00001810: 4A 3A 8B 4A B2 30 89 37 39 39 30 00 57 20 F8 1B |J:.J.0.7990.W ..|
00001820: 4A B2 30 3A 58 24 B2 CA 28 58 24 2C 49 AA 31 29 |J.0:X$..(X$,I.1)|
00001830: 3A 4C 24 B2 C8 28 4C 24 2C 49 AB 31 29 3A 50 24 |:L$..(L$,I.1):P$|
00001840: B2 C8 28 50 24 2C 49 AB 4B 29 3A 4D 24 B2 C8 28 |..(P$,I.K):M$..(|
00001850: 4D 24 2C 49 AB 4B 29 00 78 20 16 1C 8B 43 B2 39 |M$,I.K).x ...C.9|
00001860: 34 B0 43 B2 39 35 A7 45 B2 30 3A 58 24 B2 22 5D |4.C.95.E.0:X$."]|
00001870: 22 AA 54 42 24 AA 58 24 00 A7 20 20 1C 58 B2 43 |".TB$.X$.. .X.C|
00001880: 3A 8D 37 39 30 30 3A 8B 4A B1 30 B0 58 B2 39 34 |:.7900:.J.0.X.94|
00001890: B0 58 B2 39 32 A7 8D 37 39 35 30 3A 8B 4A B1 30 |.X.92..7950:.J.0|
000018A0: B0 58 B2 39 32 A7 8E 00 B1 20 2A 1C 89 37 31 31 |.X.92.... *..711|
000018B0: 30 00 BE 20 E8 1C 8F 20 46 4F 52 4D 41 4C 00 F0 |0.. ... FORMAL..|
000018C0: 20 F2 1C 4C 24 B2 22 22 3A 8D 37 34 35 30 3A 99 | ..L$."":.7450:.|
000018D0: 22 93 D6 49 45 52 20 C1 44 52 45 53 53 2D DA 45 |"..IER .DRESS-.E|
000018E0: 49 4C 45 4E 22 3A 4D B2 4E 3A 81 49 B2 31 A4 34 |ILEN":M.N:.I.1.4|
000018F0: 00 22 21 FC 1C 99 22 DA 45 49 4C 45 22 49 3A 8D |."!...".EILE"I:.|
00001900: 38 32 30 30 3A 99 3A 8B C3 28 58 24 29 B2 4D A7 |8200:.:..(X$).M.|
00001910: 99 22 12 DA 55 20 4C 41 4E 47 20 22 3A 89 37 34 |."..U LANG ":.74|
00001920: 32 30 00 40 21 06 1D 50 24 B2 58 24 3A 8D 37 39 |20.@!..P$.X$:.79|
00001930: 30 30 3A 82 3A 8D 37 39 30 30 3A 8D 37 39 30 30 |00:.:.7900:.7900|
00001940: 00 64 21 10 1D 99 22 C1 4E 52 45 44 45 20 20 20 |.d!...".NREDE |
00001950: 20 22 3A 8D 38 32 30 30 3A 50 24 B2 58 24 3A 89 | ":.8200:P$.X$:.|
00001960: 37 30 39 30 00 95 21 1A 1D 8C 3A 4D 24 B2 22 22 |7090..!...:M$.""|
00001970: 3A 59 24 B2 53 24 3A 81 49 B2 31 A4 33 3A 87 50 |:Y$.S$:.I.1.3:.P|
00001980: 24 3A 8D 37 34 39 30 3A 82 3A 50 24 B2 44 24 3A |$:.7490:.:P$.D$:|
00001990: 8D 37 34 39 30 00 B0 21 2E 1D 81 49 B2 31 A4 35 |.7490..!...I.1.5|
000019A0: 3A 8D 37 39 30 30 3A 82 3A 53 24 B2 59 24 3A 8E |:.7900:.:S$.Y$:.|
000019B0: 00 D6 21 42 1D 4B B2 C3 28 50 24 29 3A 53 24 B2 |..!B.K..(P$):S$.|
000019C0: 22 11 22 AA C8 28 42 24 2C 34 30 AB 4B AD 32 29 |"."..(B$,40.K.2)|
000019D0: 3A 89 37 39 30 30 00 EE 21 4C 1D 8F 20 46 4F 52 |:.7900..!L.. FOR|
000019E0: 4D 41 54 20 56 41 52 49 41 54 49 4F 4E 53 00 16 |MAT VARIATIONS..|
000019F0: 22 56 1D 99 22 11 D3 54 41 4E 44 41 52 44 2D C6 |"V.."..TANDARD-.|
00001A00: 4F 52 4D 41 54 3A 22 3A 99 2C 22 20 C5 49 4E 2D |ORMAT:":.," .IN-|
00001A10: 5A 45 49 4C 49 47 00 49 22 60 1D 99 2C 4E 22 DA |ZEILIG.I"`..,N".|
00001A20: 45 49 43 48 45 4E 20 50 52 4F 20 DA 45 49 4C 45 |EICHEN PRO .EILE|
00001A30: 20 20 22 3A 99 2C 4C 4C 22 DA 45 49 4C 45 4E 20 | ":.,LL".EILEN |
00001A40: 50 52 4F 20 D3 45 49 54 45 00 65 22 6A 1D 99 2C |PRO .EITE.e"j..,|
00001A50: 22 20 D4 41 42 2D CC 41 45 4E 47 45 20 3D 22 C3 |" .AB-.AENGE =".|
00001A60: 28 54 42 24 29 00 92 22 74 1D 99 22 11 CD 4F 45 |(TB$).."t.."..OE|
00001A70: 43 48 54 45 4E 20 D3 49 45 20 45 53 20 41 45 4E |CHTEN .IE ES AEN|
00001A80: 44 45 52 4E 20 22 3B 3A 8D 38 30 35 30 3A 8B 49 |DERN ";:.8050:.I|
00001A90: A7 8E 00 B3 22 7E 1D 99 22 93 C5 49 4E 2D 5A 45 |...."~.."..IN-ZE|
00001AA0: 49 4C 49 47 20 20 22 3B 3A 8D 38 30 35 30 3A 53 |ILIG ";:.8050:S|
00001AB0: 32 B2 49 00 E3 22 88 1D 85 22 11 DA 45 49 43 48 |2.I.."..."..EICH|
00001AC0: 45 4E 20 50 52 4F 20 DA 45 49 4C 45 20 20 20 28 |EN PRO .EILE (|
00001AD0: 32 30 2D 38 30 29 20 20 37 32 20 9D 9D 9D 9D 9D |20-80) 72 .....|
00001AE0: 22 3B 4E 00 FE 22 92 1D 8B 4E B3 32 30 B0 4E B1 |";N.."...N.20.N.|
00001AF0: 38 30 A7 99 22 91 91 22 3A 89 37 35 36 30 00 3A |80.."..":.7560.:|
00001B00: 23 9C 1D 99 22 11 DA 45 49 4C 45 4E 20 50 52 4F |#..."..EILEN PRO|
00001B10: 20 D3 45 49 54 45 20 22 4C 4C 22 9D 20 20 9D 9D | .EITE "LL". ..|
00001B20: 9D 9D 9D 9D 22 3B 3A 85 4C 4C 3A 8B 4C 4C B3 31 |....";:.LL:.LL.1|
00001B30: A7 99 22 91 91 22 3A 89 37 35 00 75 23 A1 1D 99 |.."..":.75.u#...|
00001B40: 22 11 CC 41 45 4E 47 45 20 44 45 52 20 D4 41 42 |"..AENGE DER .AB|
00001B50: 2E 22 3B 3A 58 24 B2 22 30 31 32 33 34 35 36 37 |.";:X$."01234567|
00001B60: 38 39 22 3A 8D 38 30 36 30 3A 54 42 24 B2 C8 28 |89":.8060:TB$..(|
00001B70: 42 24 2C 49 29 00 7B 23 A6 1D 8E 00 8D 23 14 1E |B$,I).{#.....#..|
00001B80: 8F 20 45 4E 48 41 4E 43 45 4D 45 4E 54 00 D3 23 |. ENHANCEMENT..#|
00001B90: 28 1E 4B B2 4B AA 31 3A 58 B2 31 3A 4A B2 49 3A |(.K.K.1:X.1:J.I:|
00001BA0: 8B 43 B2 39 31 B0 43 B2 39 33 A7 58 B2 30 3A 45 |.C.91.C.93.X.0:E|
00001BB0: B2 28 43 B2 39 31 29 3A 5A 24 B2 42 24 3A 59 24 |.(C.91):Z$.B$:Y$|
00001BC0: B2 22 92 22 3A 8B 45 A7 5A 24 B2 4B 24 3A 59 24 |.".":.E.Z$.K$:Y$|
00001BD0: B2 22 12 00 F1 23 32 1E 4C 24 B2 C8 28 4C 24 2C |."...#2.L$..(L$,|
00001BE0: 49 AB 31 29 AA 59 24 AA CA 28 4C 24 2C 49 AA 31 |I.1).Y$..(L$,I.1|
00001BF0: 29 00 25 24 46 1E 50 24 B2 C8 28 50 24 2C 49 AB |).%$F.P$..(P$,I.|
00001C00: 4B 29 AA CA 28 4C 24 2C 49 AA 31 29 3A 4D 24 B2 |K)..(L$,I.1):M$.|
00001C10: C8 28 4D 24 2C 49 AB 4B 29 AA CA 28 5A 24 2C 49 |.(M$,I.K)..(Z$,I|
00001C20: AA 31 29 3A 8E 00 34 24 DC 1E 8F 20 4C 49 4E 45 |.1):..4$... LINE|
00001C30: 20 4F 55 54 00 48 24 E6 1E 8B 50 24 B1 22 22 A7 | OUT.H$...P$."".|
00001C40: 50 24 B2 53 24 AA 50 24 00 63 24 F0 1E 99 4C 24 |P$.S$.P$.c$...L$|
00001C50: 3B 3A 8D 37 39 33 30 3A 8B 4A B1 30 B0 53 32 B2 |;:.7930:.J.0.S2.|
00001C60: 30 A7 8E 00 85 24 FA 1E 8B 46 A7 99 3A 98 31 2C |0....$...F..:.1,|
00001C70: 50 24 3B 3A 8B 4D 24 B1 42 24 A7 98 31 2C 51 24 |P$;:.M$.B$..1,Q$|
00001C80: 53 24 4D 24 3B 00 AC 24 04 1F 98 31 3A 50 24 B2 |S$M$;..$...1:P$.|
00001C90: 22 22 3A 4C 24 B2 22 22 3A 4D 24 B2 22 22 3A 4C |"":L$."":M$."":L|
00001CA0: B2 4C AA 31 3A 8B 4C B3 4C 4C A7 8E 00 C1 24 0E |.L.1:.L.LL....$.|
00001CB0: 1F 8B 46 B2 30 A7 8D 38 30 30 30 3A 4C B2 30 3A |..F.0..8000:L.0:|
00001CC0: 8E 00 EE 24 18 1F 8B 4C A7 81 49 B2 4C A4 4C 50 |...$...L..I.L.LP|
00001CD0: AB 31 3A 98 31 3A 82 3A 4C B2 30 3A 8F 20 50 41 |.1:.1:.:L.0:. PA|
00001CE0: 47 45 20 57 49 54 48 20 42 4C 41 4E 4B 53 00 F9 |GE WITH BLANKS..|
00001CF0: 24 22 1F 99 22 93 22 3A 8E 00 26 25 36 1F 4A B2 |$"..".":..&%6.J.|
00001D00: 31 3A 99 22 11 DA 45 49 4C 45 20 46 55 45 52 20 |1:."..EILE FUER |
00001D10: C4 52 55 43 4B 20 5A 55 20 4C 41 4E 47 22 3A 8D |.RUCK ZU LANG":.|
00001D20: 37 39 35 30 3A 8E 00 36 25 40 1F 8F 20 55 54 49 |7950:..6%@.. UTI|
00001D30: 4C 49 54 49 45 53 00 6A 25 4A 1F 99 22 11 12 20 |LITIES.j%J..".. |
00001D40: D7 45 49 54 45 52 20 4D 49 54 20 42 45 4C 49 45 |.EITER MIT BELIE|
00001D50: 42 49 47 45 52 20 D4 41 53 54 45 22 3B 3A 8D 32 |BIGER .ASTE";:.2|
00001D60: 30 3A 99 3A 99 22 93 22 3A 8E 00 75 25 72 1F 58 |0:.:.".":..u%r.X|
00001D70: 24 B2 22 4A 4E 00 80 25 7C 1F 99 22 3F 20 22 3B |$."JN..%|.."? ";|
00001D80: 00 AA 25 86 1F 8D 32 30 3A 81 49 B2 31 A4 C3 28 |..%...20:.I.1..(|
00001D90: 58 24 29 3A 8B 43 24 B3 B1 CA 28 58 24 2C 49 2C |X$):.C$...(X$,I,|
00001DA0: 31 29 A7 82 3A 89 38 30 37 30 00 B9 25 8B 1F 49 |1)..:.8070..%..I|
00001DB0: B2 49 AB 31 3A 99 43 24 3B 00 D5 25 90 1F A1 57 |.I.1:.C$;..%...W|
00001DC0: 24 3A 8B 57 24 B2 22 22 A7 99 22 A4 9D 22 3B 3A |$:.W$."".."..";:|
00001DD0: 89 38 30 38 30 00 EB 25 95 1F 99 22 20 9D 22 3B |.8080..%..." .";|
00001DE0: 3A 8B 57 24 B2 52 24 A7 99 3A 8E 00 04 26 9A 1F |:.W$.R$..:...&..|
00001DF0: 8B 57 24 B2 C7 28 32 30 29 A7 99 57 24 3B 3A 89 |.W$..(20)..W$;:.|
00001E00: 38 30 37 30 00 0E 26 9F 1F 89 38 30 38 30 00 29 |8070..&...8080.)|
00001E10: 26 08 20 58 24 B2 22 22 3A 8F 20 49 4E 50 55 54 |&. X$."":. INPUT|
00001E20: 20 41 20 53 54 52 49 4E 47 00 3A 26 12 20 A1 43 | A STRING.:&. .C|
00001E30: 24 3A 8B 43 24 89 38 32 31 30 00 52 26 1C 20 8D |$:.C$.8210.R&. .|
00001E40: 32 35 3A 8B 43 B2 31 33 B0 43 B2 39 32 89 38 32 |25:.C.13.C.92.82|
00001E50: 39 30 00 81 26 26 20 8B 43 B2 32 30 AF 58 24 B1 |90..&& .C.20.X$.|
00001E60: 22 22 A7 99 43 24 3B 3A 58 24 B2 C8 28 58 24 2C |""..C$;:X$..(X$,|
00001E70: C3 28 58 24 29 AB 31 29 3A 8F 20 44 45 4C 45 54 |.(X$).1):. DELET|
00001E80: 45 00 A1 26 30 20 8B 43 B2 32 30 89 38 32 32 30 |E..&0 .C.20.8220|
00001E90: 3A 8F 20 44 45 4C 45 54 45 20 4F 4E 20 4E 55 4C |:. DELETE ON NUL|
00001EA0: 4C 00 D2 26 3A 20 8B 28 31 32 37 AF 43 29 B3 33 |L..&: .(127.C).3|
00001EB0: 32 89 38 32 32 30 3A 8F 20 43 55 52 53 4F 52 20 |2.8220:. CURSOR |
00001EC0: 43 4F 4E 54 52 4F 4C 20 43 48 41 52 41 43 54 45 |CONTROL CHARACTE|
00001ED0: 52 53 00 EB 26 44 20 99 43 24 3B 3A 8B 43 B2 33 |RS..&D .C$;:.C.3|
00001EE0: 34 A7 99 43 24 C7 28 32 30 29 3B 00 06 27 4E 20 |4..C$.(20);..'N |
00001EF0: 58 24 B2 58 24 AA 43 24 3A 8B C3 28 58 24 29 B3 |X$.X$.C$:..(X$).|
00001F00: 4D 89 38 32 32 30 00 0C 27 62 20 8E 00 23 27 FC |M.8220..'b ..#'.|
00001F10: 21 8F 20 51 55 49 54 20 54 48 45 20 50 52 4F 47 |!. QUIT THE PROG|
00001F20: 52 41 4D 00 59 27 10 22 99 22 93 11 D3 45 49 54 |RAM.Y'."."...EIT|
00001F30: 45 4E 56 4F 52 53 43 48 55 42 20 41 4D 20 C4 52 |ENVORSCHUB AM .R|
00001F40: 55 43 4B 45 52 20 20 20 20 22 3B 3A 8D 38 30 35 |UCKER ";:.805|
00001F50: 30 3A 8B 49 89 38 37 34 30 00 81 27 1A 22 9F 31 |0:.I.8740..'.".1|
00001F60: 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 3A 8D 37 39 |,04:F.1:L..1:.79|
00001F70: 35 30 3A 8F 20 45 58 50 45 4C 20 41 20 50 41 47 |50:. EXPEL A PAG|
00001F80: 45 00 99 27 24 22 8B 4F 46 B2 30 B0 54 24 28 30 |E..'$".OF.0.T$(0|
00001F90: 29 B2 22 22 89 38 37 36 30 00 DA 27 2E 22 99 22 |)."".8760..'."."|
00001FA0: 11 C4 4F 4B 55 4D 45 4E 54 20 4E 49 43 48 54 20 |..OKUMENT NICHT |
00001FB0: 47 45 53 49 43 48 45 52 54 3B 20 53 50 45 49 43 |GESICHERT; SPEIC|
00001FC0: 48 45 52 4E 22 3B 3A 8D 38 30 35 30 3A 8B 49 B2 |HERN";:.8050:.I.|
00001FD0: 30 A7 A0 31 3A 8D 33 30 32 30 00 F1 27 38 22 A0 |0..1:.3020..'8".|
00001FE0: 31 3A 99 22 93 D4 53 43 48 55 45 53 53 21 22 3A |1:."..SCHUESS!":|
00001FF0: A2 00 19 28 C4 22 9F 31 2C 30 34 3A 46 B2 31 3A |...(.".1,04:F.1:|
00002000: 4C B2 2E 31 3A 89 37 39 35 30 3A 8F 20 45 58 50 |L..1:.7950:. EXP|
00002010: 45 4C 20 41 20 50 41 47 45 00 2A 28 28 23 8F 20 |EL A PAGE.*((#. |
00002020: 49 4E 49 54 49 41 4C 49 5A 45 00 5A 28 2D 23 4C |INITIALIZE.Z(-#L|
00002030: 50 B2 37 32 3A 4C 30 B2 36 30 3A 4D 30 B2 31 36 |P.72:L0.60:M0.16|
00002040: 30 3A 51 24 B2 C7 28 31 34 31 29 3A 52 24 B2 C7 |0:Q$..(141):R$..|
00002050: 28 31 33 29 3A 4B 24 B2 22 A4 00 79 28 32 23 56 |(13):K$."..y(2#V|
00002060: B2 B5 28 28 B8 28 30 29 AB 32 30 30 30 29 AD 4D |..((.(0).2000).M|
00002070: 30 29 3A 86 54 24 28 56 29 00 BA 28 3C 23 99 22 |0):.T$(V)..(<#."|
00002080: 93 8E 13 13 0F 11 11 11 11 11 11 11 11 11 11 11 |................|
00002090: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 A6 |..............".|
000020A0: 33 39 29 22 8F 05 22 3A 97 35 39 34 36 38 2C 31 |39)"..":.59468,1|
000020B0: 34 3A 8F 20 46 4F 52 4D 41 54 00 EF 28 41 23 97 |4:. FORMAT..(A#.|
000020C0: 35 33 32 37 32 2C 32 B0 C2 28 35 33 32 37 32 29 |53272,2..(53272)|
000020D0: 3A 99 22 93 20 20 20 20 20 12 20 C3 4F 4D 4D 4F |:.". . .OMMO|
000020E0: 44 4F 52 45 20 D4 C5 D8 D4 20 36 34 20 20 92 00 |DORE .... 64 ..|
000020F0: 0A 29 43 23 8D 36 31 30 30 30 3A 20 8F 20 43 4F |.)C#.61000: . CO|
00002100: 4C 4F 52 20 43 48 41 4E 47 45 00 4E 29 46 23 99 |LOR CHANGE.N)F#.|
00002110: 22 11 12 CB 92 41 53 53 45 54 54 45 2C 20 12 C4 |"....ASSETTE, ..|
00002120: 92 49 53 4B 45 54 54 45 20 4F 44 45 52 20 12 42 |.ISKETTE ODER .B|
00002130: 92 45 49 44 45 53 22 3B 3A 58 24 B2 22 44 4B 42 |.EIDES";:X$."DKB|
00002140: 22 3A 8D 38 30 36 30 3A 43 46 B2 49 AA 31 00 78 |":.8060:CF.I.1.x|
00002150: 29 50 23 42 24 B2 22 20 20 20 20 20 22 3A 81 49 |)P#B$." ":.I|
00002160: B2 31 A4 35 3A 42 24 B2 42 24 AA 42 24 3A 82 3A |.1.5:B$.B$.B$:.:|
00002170: 9F 38 2C 30 38 2C 31 35 00 9F 29 55 23 99 22 11 |.8,08,15..)U#.".|
00002180: D4 41 47 45 53 44 41 54 55 4D 20 20 3F 22 3A 4D |.AGESDATUM ?":M|
00002190: B2 32 30 3A 8D 38 32 30 30 3A 44 24 B2 58 24 00 |.20:.8200:D$.X$.|
000021A0: B9 29 5A 23 4B 24 B2 22 20 22 3A 8F 20 31 35 32 |.)Z#K$." ":. 152|
000021B0: 35 20 50 52 49 4E 54 45 52 00 EA 29 64 23 8F 20 |5 PRINTER..)d#. |
000021C0: 4B 24 3D 22 5F 22 3A 51 24 3D 52 24 2B 43 48 52 |K$="_":Q$=R$+CHR|
000021D0: 24 28 32 37 29 2B 22 0A 22 3A 52 45 4D 20 38 33 |$(27)+".":REM 83|
000021E0: 30 30 20 50 52 49 4E 54 45 52 00 05 2A 78 23 81 |00 PRINTER..*x#.|
000021F0: 49 B2 31 A4 37 3A 4B 24 B2 4B 24 AA 4B 24 3A 82 |I.1.7:K$.K$.K$:.|
00002200: 3A 89 31 30 30 00 0E 2A 8C 23 89 31 30 30 00 2D |:.100..*.#.100.-|
00002210: 2A 10 27 8F 20 4C 45 54 54 45 52 48 45 41 44 20 |*.'. LETTERHEAD |
00002220: 44 41 54 41 2C 20 44 45 4C 45 54 45 44 00 35 2A |DATA, DELETED.5*|
00002230: 1A 27 83 22 22 00 3D 2A 24 27 83 22 22 00 45 2A |.'."".=*$'."".E*|
00002240: 2E 27 83 22 22 00 6A 2A 60 EA 99 51 39 24 22 20 |.'."".j*`..Q9$" |
00002250: 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 22 3A |NICHT GEFUNDEN":|
00002260: 8D 38 30 30 30 3A 89 31 30 30 00 85 2A 48 EE 8F |.8000:.100..*H..|
00002270: 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 20 52 4F | COLOR CHANGE RO|
00002280: 55 54 49 4E 45 00 A9 2A 49 EE 96 A5 43 28 58 29 |UTINE..*I...C(X)|
00002290: B2 C2 28 58 29 AA 31 AA 31 36 AC 28 28 C2 28 58 |..(X).1.16.((.(X|
000022A0: 29 AF 31 35 29 B2 31 35 29 00 CF 2A 4A EE 99 3A |).15).15)..*J..:|
000022B0: 99 22 13 11 11 11 11 11 12 C6 31 92 3D 20 C6 41 |."........1.= .A|
000022C0: 52 42 45 20 44 45 53 20 D2 41 4E 44 45 53 22 00 |RBE DES .ANDES".|
000022D0: EF 2A 4B EE 99 22 11 12 C6 33 92 3D 20 C8 49 4E |.*K.."...3.= .IN|
000022E0: 54 45 52 47 52 55 4E 44 2D C6 41 52 42 45 22 00 |TERGRUND-.ARBE".|
000022F0: 0F 2B 4C EE 99 22 11 12 C6 35 92 3D 20 C6 41 52 |.+L.."...5.= .AR|
00002300: 42 45 20 44 45 52 20 DA 45 49 43 48 45 4E 22 00 |BE DER .EICHEN".|
00002310: 28 2B 4D EE 99 22 11 12 D2 C5 D4 D5 D2 CE 92 3D |(+M..".........=|
00002320: 20 D7 45 49 54 45 52 22 00 3A 2B 52 EE A1 43 24 | .EITER".:+R..C$|
00002330: 3A 8B 43 24 89 36 31 30 31 30 00 4F 2B 5C EE A1 |:.C$.61010.O+\..|
00002340: 43 24 3A 8B 43 24 B2 22 22 89 36 31 30 32 30 00 |C$:.C$."".61020.|
00002350: 76 2B 66 EE 43 B2 C6 28 43 24 29 3A 8B 43 B2 31 |v+f.C..(C$):.C.1|
00002360: 33 35 A7 97 36 34 36 2C A5 43 28 36 34 36 29 3A |35..646,.C(646):|
00002370: 89 36 31 30 30 32 00 A2 2B 7A EE 43 B2 C6 28 43 |.61002..+z.C..(C|
00002380: 24 29 3A 8B 43 B2 31 33 33 B0 43 B2 31 33 34 A7 |$):.C.133.C.134.|
00002390: 58 B2 35 33 31 34 37 AA 43 3A 97 58 2C A5 43 28 |X.53147.C:.X,.C(|
000023A0: 58 29 00 B3 2B 84 EE 8B 43 B3 B1 31 33 89 36 31 |X)..+...C..13.61|
000023B0: 30 31 30 00 B9 2B 8E EE 8E 00 00 00 |010..+...... |
.......G(14):.657,128.O....9000:. (C) 19
82 BY COMMODORE BUSINESS MACHINES, INC..
^....C$:.C$.20.{....C$:.C$.." .";:C.F(C$
):......."..";:.25......C$:.C$."".30.Q.
.X.F(C$):C.X.127:.C.13.C.17.C.19.C.20.C.
29.C.31...Y."..30...(.X$.""...*..#1,C$:.
C$.R$.C$.G(141).....,.X$.X$.C$:.42.+.D.L
.0:LL.L0: 1:. ENTRY.T.N..". . COMMO
DORE TEXT 64 ...J.X..,"FUNKTIONEN:.
."...}..,".E.RSTELLEN EINES DOKUMENTES..
....,".S.PEICHERN EINES DOKUMENTES.U....
,".A.UFRUFEN EINES DOKUMENTES......,".D.
RUCKEN EINES DOKUMENTES......,".V.ERAEND
ERN EINES DOKUMENTES.B. ..,".G.LOBALES S
UCHEN UND TAUSCHEN.G....,".B.S-ANZEIGE E
INES DOKUMENTES......,".R.UNDSCHREIBEN E
RSTELLEN......,".P.ROGRAMMENDE.P...X$."P
BVGDSRAE":.".WELCHE ";:.8060:.I.0.8700
...C.J.I:.J.4.250...H..".":. GET SUBJECT
.>.R..H$."".."DOKUMENT: ."H$:.".(RETURN
LAESST DEN NAMEN UNVERAENDERT).K...M.61:
.".DOKUMENT-NAME:":.8200:.C..13.200.~...
.:.X$."".H$.X$......H$."".200.H....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.W....J.400,10
00,6000,7000,3000,4000,2000,500.L.... RE
AD TO SCREEN.....N.39:F.0:LL.20:TB$."":.
1,3:.7080:.100.....OF.1:T.0:. WRITE NEW
TEXT......".."H$:.:."...................
...........................C$:.C$.510...
..M.M0:.I.T.V:T$(I)."":X$."".9....8220:.
C.13..:.X$."".530.O...T$(I).X$:.C..92...
L.&..I.V..I.I.1.V:T$(I)."":....X.T.0:L$.
"":.610:.100:. PACK THE STRINGS...B..:.I
.T.V:.T$(I)."".630.X.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..
...V.... EDIT THE TEXT......".WIEVIEL %
TEXT UEBERSPRINGEN (0-100) 0...";T:T..(
T):.T.99.T.100.....OF.1:.I.0.V:.T$(I).""
...T...I.I.1:T..(T.I.100..5).....L.0:.T.
V.100.....X$.T$(T):.X$."".1900...$.P$.H(
H$,20):.T.P$.T$(T.1).@....".."I(P$,20):.
".".29)".BLOCK"T.U.8..".................
................................B..C$:.C
$.1090...L.. & SET CURSOR (A,D).K.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.H....X
.29.L.L.(L.1.C(X$)):.1100:. CURSOR RIGHT
.P.D..C.29.L.L.(L.0):.1100:. CURSOR LEFT
...N..X.17.L.L.40.(L.40.C(X$)):.1100:. C
URSOR DOWN.L.X..C.17.L.L.40.(L.39):.1100
:. CURSOR UP......X.19.L.0:.1100:. CURSO
R HOME.(....C.19..I.T.V.1:T$(I).T$(I.1):
.:T$(V)."":.1040:. CLEAR.T....X.13.T$(T)
.X$:T.T.1:.1040:. NEXT BLOCK......C.13.T
$(T).X$:T.T.(T.0):.1040:. PRIOR BLOCK...
...L..C(X$).1100.....L$.H(X$,L):.X.148.1
350:. 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 BL
OCK.5.<..1100.F.F.M$.J(X$,L.1):.".......
.........."M$:."..."L$...K.."...".C(L$))
;:M.M0:.8200...P.M.M0.C(L$):L$.L$.H(X$,M
):M$.J(X$,M.1).M$...Z.M.M0.C(L$):T$(T).L
$.H(M$,M):L$.J(M$,M.1):M$."":.L$."".1050
...D.X.T:T.T.1:.610:T.X:.1050.".L.. ADD
TO THE END.5.V..T.0.600:. END.]...X$.T$(
T.1):."."X$:.".".C(X$));:.510.N.P.. INPU
T FILE...U.Q9$."DOKUMENT": . FOR ERROR M
SG IN 60000.B....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.D.4.OF.0:.40:.".LIEST : ."X$:H$.X
$:.40:.X$:.:. HEADER.K...X$.G(31):.I.0.V
:L$."":. INPUT FILE......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...J.T.I:.650:.8000:.100...
...3020:.100:. OUTPUT FILE.5.L..CF.2..".
AUF DATASETTE";:.8050.Z.V..CF.2.(CF.3.I.
0)..1,1,1,H$:.3100.....L$."0:".H(H$,16):
.1,08,2,L$:.8,X,X$: 1:.X.3080.G....".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$.M.N..I.0.V:.T$(I)
.""..1,T$(I);:."*";:..[.X..1,"\";:..R. .
. BATCH PROCESSING.....Q9$."FILE": . FOR
ERROR MSG IN 60000......".";:.CF.4100,4
050:. ELSE BOTH......"VON DATASETTE";:.8
050:.I.4100...R.. FROM CASSETTE......2,1
:.4150...... FROM DISC.L....".ADRESSEN 6
4: DATEI-NAME -...";X$:.X$."-".4110.P..
..2,08,2,X$:.8,X,X$:.X. 2:.60000...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.2.R..2,Z$:.ST.0.C
(Z$).2.4900:. NO LAST NAME.R.|.L$."":.74
50:X$."":Y$."":M$."SEHR GEEHRTE DAMEN UN
D HERREN,"......2,X$:.C(X$).2.X$."":.425
0:. NO FIRST NAME.D...M$."LIEBE/R ".X$."
,":X$.X$." "......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$.I...Z$.M$:M$."":P$.L$:.
7900:. PRINT NAME.{.L.. GET ADDRESS...V.
.2,L$:.C(L$).1.P$.L$:.7900:. LINE 2.K...
.2,L$:.C(L$).1.P$.L$:.7900:. LINE 3.....
.2,L$:.2,Y$:.C(Y$).1.L$.L$.", ".Y$:. STA
TE, ZIP......C(L$).1.P$.L$:.7900.D....I.
L.14:.7900:.:L$.Z$:P$.L$:.7090:.4200.P.$
. 2:.100.I.P.. SEARCH AND REPLACE...Z.."
..SUCHEN NACH?":M.40:.8200:Z$.X$:L.C(X$)
:.L.0.L.M.6010.P....:.".ERSETZEN DURCH?"
:.8200:Y$.X$:.:......X$."":M$."":L$."":T
.0:U.0:F.0:OF.1...8.. ATTACH T$ TO X$. .
B..C(X$)..L.6250.>.L..T.V.6400:. ALL T$'
S READ.C.V.X$.X$.T$(T):T$(T)."":T.T.1:.6
200.Z.J.. SEARCH FOR MATCH...T..I.1.C(X$
).L.1:.J(X$,I,L)..Z$..:J.I:.6300...~.M$.
Y$:J.I.L:.".";.R.... SPLIT STRINGS.....M
$.H(X$,I.1).M$:X$.J(X$,J):.6500:.F.6900:
.6200...... STOW LAST L$.5....6500:.F.69
00:. CLEAR M$.A...M$.X$:.6500:.F.6900:.
M$_X$; CLEAR BOTH......U..V.T.U:.650:.10
0:. STOW L$, CLEAR HIGHER BLOCKS...(..69
00.E.D.. CLEAR M$ - STOW L$ IF NEEDED...
N.M.M0.C(L$):L$.L$.H(M$,M):M$.J(M$,M.1):
.C(L$).M0.....X..U..V.6550.7....U.T.T$(U
).L$:."*.";:U.U.1:L$.M$:M$."":..Q....T.V
..I.V.T.1..1:T$(I).T$(I.1):.:T$(T)."":T.
T.1:.6530.{...F.1:....... ERROR EXIT....
..:.".OUT OF ROOM - DATA IMPAIRED":.8000
:.100.T.X.. FORMAT AND PRINT...B..7020:.
100...L..1,04:F.1:. PRINTER.,.V.S2.1:N.6
0:TB$."":X$."FID":. DEFAULTS (DRAFT).`..
.."..F.ORMAL, .I.NFORMAL, OR .D.RAFT";:.
8060:J.I.Y....J.2.S2.0:N.72:.7500.....S$
.".".H(B$,40.N.2):.J.0.7400:. FORMAL.G..
.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.F..C(X$)..N.X$
.X$.T$(T):T.T.1:.C(X$)..N.T.V.X$.X$."\.V
.K..F(X$).32.X$.J(X$,2):.7110:. LEADING
BLANKS...P..E.X$."[".X$.D.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.W ..J.0:X$.J(X$,I.1):L$.H(L$
,I.1):P$.H(P$,I.K):M$.H(M$,I.K).X ...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.. ..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.D!..."ANREDE
":.8200:P$.X$:.7090..!...:M$."":Y$.S$:.
I.1.3:.P$:.7490:.:P$.D$:.7490..!...I.1.5
:.7900:.:S$.Y$:..V!B.K.C(P$):S$.".".H(B$
,40.K.2):.7900..!L.. FORMAT VARIATIONS..
"V..".STANDARD-FORMAT:":.," EIN-ZEILIG.I
"`..,N"ZEICHEN PRO ZEILE ":.,LL"ZEILEN
PRO SEITE.E"J..," TAB-LAENGE ="C(TB$).."
T..".MOECHTEN SIE ES AENDERN ";:.8050:.I
...."~..".EIN-ZEILIG ";:.8050:S2.I.."..
.".ZEICHEN PRO ZEILE (20-80) 72 .....
";N.."...N.20.N.80.."..":.7560.:#...".ZE
ILEN PRO SEITE "LL". ......";:.LL:.LL.1
.."..":.75.U#...".LAENGE DER TAB.";:X$."
0123456789":.8060:TB$.H(B$,I).{#.....#..
. ENHANCEMENT.S#(.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):..4$... LINE OUT.H$...P$."".P$.S$.P$
.C$...L$;:.7930:.J.0.S2.0....$...F..:.1,
P$;:.M$.B$..1,Q$S$M$;..$...1:P$."":L$.""
:M$."":L.L.1:.L.LL...A$...F.0..8000:L.0:
...$...L..I.L.LP.1:.1:.:L.0:. PAGE WITH
BLANKS..$"..".":..&%6.J.1:.".ZEILE FUER
DRUCK ZU LANG":.7950:..6%@.. UTILITIES.J
%J..".. WEITER MIT BELIEBIGER TASTE";:.2
0:.:.".":..U%R.X$."JN..%|.."? ";..%...20
:.I.1.C(X$):.C$..J(X$,I,1)..:.8070..%..I
.I.1:.C$;.U%...W$:.W$."".."..";:.8080..%
..." .";:.W$.R$..:...&...W$.G(20)..W$;:.
8070..&...8080.)&. X$."":. INPUT A STRIN
G.:&. .C$:.C$.8210.R&. .25:.C.13.C.92.82
90..&& .C.20.X$.""..C$;:X$.H(X$,C(X$).1)
:. DELETE..&0 .C.20.8220:. DELETE ON NUL
L.R&: .(127.C).32.8220:. CURSOR CONTROL
CHARACTERS..&D .C$;:.C.34..C$G(20);..'N
X$.X$.C$:.C(X$).M.8220..'B ..#'.!. QUIT
THE PROGRAM.Y'."."..SEITENVORSCHUB AM DR
UCKER ";:.8050:.I.8740..'.".1,04:F.1:
L..1:.7950:. EXPEL A PAGE..'$".OF.0.T$(0
)."".8760.Z'.".".DOKUMENT NICHT GESICHER
T; SPEICHERN";:.8050:.I.0. 1:.3020..'8"
1:.".TSCHUESS!":...(D".1,04:F.1:L..1:.79
50:. EXPEL A PAGE.*((#. INITIALIZE.Z(-#L
P.72:L0.60:M0.160:Q$.G(141):R$.G(13):K$.
"..Y(2#V..((.(0).2000).M0):.T$(V)..(<#."
..............................".39)"..":
.59468,14:. FORMAT..(A#.53272,2.B(53272)
:.". . COMMODORE TEXT 64 ...)C#.610
00: . COLOR CHANGE.N)F#."..K.ASSETTE, .D
.ISKETTE ODER .B.EIDES";:X$."DKB":.8060:
CF.I.1.X)P#B$." ":.I.1.5:B$.B$.B$:.:
.8,08,15..)U#.".TAGESDATUM ?":M.20:.820
0:D$.X$..)Z#K$." ":. 1525 PRINTER..)D#.
K$="_":Q$=R$+CHR$(27)+".":REM 8300 PRINT
ER..*X#.I.1.7:K$.K$.K$:.:.100..*.#.100.-
*.'. LETTERHEAD DATA, DELETED.5*.'."".=*
$'."".E*.'."".J*`..Q9$" NICHT GEFUNDEN":
.8000:.100..*H.. COLOR CHANGE ROUTINE..*
I...C(X).B(X).1.16.((B(X).15).15).O*J..:
.".......F1.= FARBE DES RANDES"..*K.."..
F3.= HINTERGRUND-FARBE"..+L.."..F5.= FAR
BE DER ZEICHEN".(+M.."..RETURN.= WEITER"
.:+R..C$:.C$.61010.O+\..C$:.C$."".61020.
V+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..+......
> CLICK IMAGE PREVIEW FOR FULL MODAL