TEXTVERARBEITUNG
FILE INFORMATION
FILENAME(S): TEXTVERARBEITUNG
FILE TYPE(S): PRG
FILE SIZE: 9.1K
FIRST SEEN: 2025-10-20 14:31:52
APPEARS ON: 2 disk(s)
FILE HASH
4abd11cf18cfae55dd6653b6af153ece3e46a78f48197c08f4a90d0f15e1c0ed
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | TEXTVERARBEITUNG | PRG | Treasure Chest - Klaus Der Suhler | 11 | 1 | DOWNLOAD FILE |
| PUBLIC DOMAIN | TEXTVERARBEITUNG | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 05 00 99 C7 28 31 34 29 3A 97 36 35 |........(14):.65|
00000010: 37 2C 31 32 38 3A 97 37 38 38 2C 35 32 00 27 08 |7,128:.788,52.'.|
00000020: 08 00 89 39 30 30 30 00 4E 08 0A 00 8F 20 2A 2A |...9000.N.... **|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 75 |**************.u|
00000050: 08 0C 00 8F 20 2A 2A 2A 20 20 28 43 29 20 31 39 |.... *** (C) 19|
00000060: 38 32 20 42 59 20 43 4F 4D 4D 4F 44 4F 52 45 20 |82 BY COMMODORE |
00000070: 20 20 2A 2A 2A 00 9C 08 0E 00 8F 20 2A 2A 2A 20 | ***...... *** |
00000080: 20 42 55 53 49 4E 45 53 53 20 4D 41 43 48 49 4E | BUSINESS MACHIN|
00000090: 45 53 2C 20 49 4E 43 2E 20 2A 2A 2A 00 C3 08 10 |ES, INC. ***....|
000000A0: 00 8F 20 2A 2A 2A 20 20 47 45 41 45 4E 44 45 52 |.. *** GEAENDER|
000000B0: 54 45 20 56 45 52 53 49 4F 4E 20 56 4F 4E 20 20 |TE VERSION VON |
000000C0: 2A 2A 2A 00 EA 08 12 00 8F 20 2A 2A 2A 20 20 41 |***...... *** A|
000000D0: 4C 41 4E 20 41 52 4E 4F 4C 44 20 48 41 4D 42 55 |LAN ARNOLD HAMBU|
000000E0: 52 47 20 20 20 20 20 2A 2A 2A 00 11 09 13 00 8F |RG ***......|
000000F0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 00 20 09 14 00 A1 43 24 3A 8B 43 24 89 32 30 |*. ....C$:.C$.20|
00000120: 00 3D 09 19 00 A1 43 24 3A 8B 43 24 A7 99 22 20 |.=....C$:.C$.." |
00000130: 9D 22 3B 3A 43 B2 C6 28 43 24 29 3A 8E 00 4C 09 |.";:C..(C$):..L.|
00000140: 1B 00 99 22 A4 9D 22 3B 3A 89 32 35 00 5E 09 1E |..."..";:.25.^..|
00000150: 00 A1 43 24 3A 8B 43 24 B2 22 22 89 33 30 00 93 |..C$:.C$."".30..|
00000160: 09 20 00 58 B2 C6 28 43 24 29 3A 43 B2 58 AF 31 |. .X..(C$):C.X.1|
00000170: 32 37 3A 8B 43 B2 31 33 B0 43 B2 31 37 B0 43 B2 |27:.C.13.C.17.C.|
00000180: 31 39 B0 43 B2 32 30 B0 43 B2 32 39 B0 43 B1 33 |19.C.20.C.29.C.3|
00000190: 31 A7 8E 00 9B 09 22 00 89 33 30 00 A5 09 28 00 |1....."..30...(.|
000001A0: 58 24 B2 22 22 00 C3 09 2A 00 A1 23 31 2C 43 24 |X$.""...*..#1,C$|
000001B0: 3A 8B 43 24 B2 52 24 B0 43 24 B2 C7 28 31 34 31 |:.C$.R$.C$..(141|
000001C0: 29 A7 8E 00 D4 09 2C 00 58 24 B2 58 24 AA 43 24 |).....,.X$.X$.C$|
000001D0: 3A 89 34 32 00 ED 09 64 00 4C B2 30 3A 4C 4C B2 |:.42...d.L.0:LL.|
000001E0: 4C 30 3A A0 31 3A 8F 20 45 4E 54 52 59 00 16 0A |L0:.1:. ENTRY...|
000001F0: 6E 00 99 22 93 20 20 20 20 20 20 12 20 C3 4F 4D |n..". . .OM|
00000200: 4D 4F 44 4F 52 45 20 D4 C5 D8 D4 20 36 34 20 20 |MODORE .... 64 |
00000210: 20 20 20 20 11 11 00 2C 0A 78 00 99 2C 22 C6 55 | ...,.x..,".U|
00000220: 4E 4B 54 49 4F 4E 45 4E 3A 11 11 22 00 50 0A 7D |NKTIONEN:..".P.}|
00000230: 00 99 2C 22 12 C5 92 52 53 54 45 4C 4C 45 4E 20 |..,"...RSTELLEN |
00000240: 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 |EINES .OKUMENTES|
00000250: 00 74 0A 82 00 99 2C 22 12 D3 92 50 45 49 43 48 |.t....,"...PEICH|
00000260: 45 52 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 |ERN EINES .OKUME|
00000270: 4E 54 45 53 00 97 0A 87 00 99 2C 22 12 C1 92 55 |NTES......,"...U|
00000280: 46 52 55 46 45 4E 20 45 49 4E 45 53 20 C4 4F 4B |FRUFEN EINES .OK|
00000290: 55 4D 45 4E 54 45 53 00 B9 0A 8C 00 99 2C 22 12 |UMENTES......,".|
000002A0: C4 92 52 55 43 4B 45 4E 20 45 49 4E 45 53 20 C4 |..RUCKEN EINES .|
000002B0: 4F 4B 55 4D 45 4E 54 45 53 00 DE 0A 96 00 99 2C |OKUMENTES......,|
000002C0: 22 12 D6 92 45 52 41 45 4E 44 45 52 4E 20 45 49 |"...ERAENDERN EI|
000002D0: 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 04 |NES .OKUMENTES..|
000002E0: 0B A0 00 99 2C 22 12 C7 92 4C 4F 42 41 4C 45 53 |....,"...LOBALES|
000002F0: 20 D3 55 43 48 45 4E 20 55 4E 44 20 D4 41 55 53 | .UCHEN UND .AUS|
00000300: 43 48 45 4E 00 29 0B A5 00 99 2C 22 12 C2 92 D3 |CHEN.)....,"....|
00000310: 2D C1 4E 5A 45 49 47 45 20 45 49 4E 45 53 20 C4 |-.NZEIGE EINES .|
00000320: 4F 4B 55 4D 45 4E 54 45 53 00 4A 0B AA 00 99 2C |OKUMENTES.J....,|
00000330: 22 12 D2 92 55 4E 44 53 43 48 52 45 49 42 45 4E |"...UNDSCHREIBEN|
00000340: 20 C5 52 53 54 45 4C 4C 45 4E 00 60 0B B9 00 99 | .RSTELLEN.`....|
00000350: 2C 22 12 D0 92 52 4F 47 52 41 4D 4D 45 4E 44 45 |,"...ROGRAMMENDE|
00000360: 00 92 0B BE 00 58 24 B2 22 50 42 56 47 44 53 52 |.....X$."PBVGDSR|
00000370: 41 45 22 3A 99 22 11 D7 45 4C 43 48 45 20 20 20 |AE":."..ELCHE |
00000380: 22 3B 3A 8D 38 30 36 30 3A 8B 49 B2 30 89 38 37 |";:.8060:.I.0.87|
00000390: 30 30 00 A3 0B C3 00 4A B2 49 3A 8B 4A B3 34 89 |00.....J.I:.J.4.|
000003A0: 32 35 30 00 BA 0B C8 00 99 22 93 22 3A 8F 20 47 |250......".":. G|
000003B0: 45 54 20 53 55 42 4A 45 43 54 00 00 0C D2 00 8B |ET SUBJECT......|
000003C0: 48 24 B1 22 22 A7 99 22 C4 4F 4B 55 4D 45 4E 54 |H$.""..".OKUMENT|
000003D0: 3A 20 12 22 48 24 3A 99 22 11 28 D2 C5 D4 D5 D2 |: ."H$:.".(.....|
000003E0: CE 20 4C 41 45 53 53 54 20 44 45 4E 20 CE 41 4D |. LAESST DEN .AM|
000003F0: 45 4E 20 55 4E 56 45 52 41 45 4E 44 45 52 54 29 |EN UNVERAENDERT)|
00000400: 00 2D 0C DC 00 4D B2 36 31 3A 99 22 11 C4 4F 4B |.-...M.61:."..OK|
00000410: 55 4D 45 4E 54 2D CE 41 4D 45 3A 22 3A 8D 38 32 |UMENT-.AME:":.82|
00000420: 30 30 3A 8B 43 B3 B1 31 33 89 32 30 30 00 40 0C |00:.C..13.200.@.|
00000430: E6 00 99 3A 8B 58 24 B1 22 22 A7 48 24 B2 58 24 |...:.X$."".H$.X$|
00000440: 00 4F 0C F0 00 8B 48 24 B2 22 22 89 32 30 30 00 |.O....H$."".200.|
00000450: 8A 0C FA 00 8B 4A B3 37 AF 54 24 28 30 29 B2 22 |.....J.7.T$(0)."|
00000460: 22 A7 99 22 11 CB 45 49 4E 20 C4 4F 4B 55 4D 45 |".."..EIN .OKUME|
00000470: 4E 54 20 49 4D 20 D3 50 45 49 43 48 45 52 22 3A |NT IM .PEICHER":|
00000480: 8D 38 30 30 30 3A 89 31 30 30 00 A5 0C 04 01 8B |.8000:.100......|
00000490: 4F 46 B2 30 B0 4A B3 37 B0 54 24 28 30 29 B2 22 |OF.0.J.7.T$(0)."|
000004A0: 22 89 32 38 30 00 EC 0C 0E 01 99 22 11 C4 4F 4B |".280......"..OK|
000004B0: 55 4D 45 4E 54 20 4E 49 43 48 54 20 47 45 53 50 |UMENT NICHT GESP|
000004C0: 45 49 43 48 45 52 54 20 2E 2E 2E 20 D3 50 45 49 |EICHERT ... .PEI|
000004D0: 43 48 45 52 20 4C 4F 45 53 43 48 45 4E 22 3B 3A |CHER LOESCHEN";:|
000004E0: 8D 38 30 35 30 3A 8B 49 89 31 30 30 00 19 0D 18 |.8050:.I.100....|
000004F0: 01 91 4A 89 34 30 30 2C 31 30 30 30 2C 36 30 30 |..J.400,1000,600|
00000500: 30 2C 37 30 30 30 2C 33 30 30 30 2C 34 30 30 30 |0,7000,3000,4000|
00000510: 2C 32 30 30 30 2C 35 30 30 00 2E 0D 90 01 8F 20 |,2000,500...... |
00000520: 52 45 41 44 20 54 4F 20 53 43 52 45 45 4E 00 58 |READ TO SCREEN.X|
00000530: 0D 9A 01 4E B2 33 39 3A 46 B2 30 3A 4C 4C B2 32 |...N.39:F.0:LL.2|
00000540: 30 3A 54 42 24 B2 22 22 3A 9F 31 2C 33 3A 8D 37 |0:TB$."":.1,3:.7|
00000550: 30 38 30 3A 89 31 30 30 00 76 0D F4 01 4F 46 B2 |080:.100.v...OF.|
00000560: 31 3A 54 B2 30 3A 8F 20 57 52 49 54 45 20 4E 45 |1:T.0:. WRITE NE|
00000570: 57 20 54 45 58 54 00 AF 0D F9 01 99 22 93 12 22 |W TEXT......".."|
00000580: 48 24 3A 99 3A 99 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 |H$:.:.".........|
00000590: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000005A0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 |................|
000005B0: BF 0D FE 01 A1 43 24 3A 8B 43 24 89 35 31 30 00 |.....C$:.C$.510.|
000005C0: DE 0D 08 02 4D B2 4D 30 3A 81 49 B2 54 A4 56 3A |....M.M0:.I.T.V:|
000005D0: 54 24 28 49 29 B2 22 22 3A 58 24 B2 22 22 00 FB |T$(I)."":X$.""..|
000005E0: 0D 12 02 8D 38 32 32 30 3A 8B 43 B2 31 33 A7 99 |....8220:.C.13..|
000005F0: 3A 8B 58 24 B2 22 22 89 35 33 30 00 11 0E 1C 02 |:.X$."".530.....|
00000600: 54 24 28 49 29 B2 58 24 3A 8B 43 B3 B1 39 32 A7 |T$(I).X$:.C..92.|
00000610: 82 00 2E 0E 26 02 8B 49 B3 56 A7 81 49 B2 49 AA |....&..I.V..I.I.|
00000620: 31 A4 56 3A 54 24 28 49 29 B2 22 22 3A 82 00 59 |1.V:T$(I)."":..Y|
00000630: 0E 58 02 54 B2 30 3A 4C 24 B2 22 22 3A 8D 36 31 |.X.T.0:L$."":.61|
00000640: 30 3A 89 31 30 30 3A 8F 20 50 41 43 4B 20 54 48 |0:.100:. PACK TH|
00000650: 45 20 53 54 52 49 4E 47 53 00 74 0E 62 02 99 3A |E STRINGS.t.b..:|
00000660: 81 49 B2 54 A4 56 3A 8B 54 24 28 49 29 B2 22 22 |.I.T.V:.T$(I).""|
00000670: 89 36 33 30 00 9A 0E 67 02 58 24 B2 54 24 28 49 |.630...g.X$.T$(I|
00000680: 29 3A 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 |):M.M0..(L$):L$.|
00000690: 4C 24 AA C8 28 58 24 2C 4D 29 00 D0 0E 6C 02 58 |L$..(X$,M)...l.X|
000006A0: 24 B2 CA 28 58 24 2C 4D AA 31 29 3A 8B C3 28 4C |$..(X$,M.1):..(L|
000006B0: 24 29 B2 4D 30 A7 54 24 28 54 29 B2 4C 24 3A 99 |$).M0.T$(T).L$:.|
000006C0: 22 2A 22 3B 3A 4C 24 B2 58 24 3A 54 B2 54 AA 31 |"*";:L$.X$:T.T.1|
000006D0: 00 D6 0E 76 02 82 00 FE 0E 8A 02 99 3A 54 24 28 |...v........:T$(|
000006E0: 54 29 B2 4C 24 3A 8B 54 B3 56 A7 81 49 B2 54 AA |T).L$:.T.V..I.T.|
000006F0: 31 A4 56 3A 54 24 28 49 29 B2 22 22 3A 82 00 04 |1.V:T$(I)."":...|
00000700: 0F 94 02 8E 00 18 0F E8 03 8F 20 45 44 49 54 20 |.......... EDIT |
00000710: 54 48 45 20 54 45 58 54 00 60 0F F2 03 85 22 93 |THE TEXT.`....".|
00000720: D7 49 45 56 49 45 4C 20 25 20 D4 45 58 54 20 55 |.IEVIEL % .EXT U|
00000730: 45 42 45 52 53 50 52 49 4E 47 45 4E 20 28 30 2D |EBERSPRINGEN (0-|
00000740: 31 30 30 29 20 20 30 9D 9D 9D 22 3B 54 3A 54 B2 |100) 0...";T:T.|
00000750: B6 28 54 29 3A 8B 54 B1 39 39 A7 54 B2 31 30 30 |.(T):.T.99.T.100|
00000760: 00 7C 0F FC 03 4F 46 B2 31 3A 81 49 B2 30 A4 56 |.|...OF.1:.I.0.V|
00000770: 3A 8B 54 24 28 49 29 B1 22 22 A7 82 00 96 0F 06 |:.T$(I).""......|
00000780: 04 49 B2 49 AB 31 3A 54 B2 B5 28 54 AC 49 AD 31 |.I.I.1:T..(T.I.1|
00000790: 30 30 AA 2E 35 29 00 A7 0F 10 04 4C B2 30 3A 8B |00..5).....L.0:.|
000007A0: 54 B1 56 89 31 30 30 00 C0 0F 1A 04 58 24 B2 54 |T.V.100.....X$.T|
000007B0: 24 28 54 29 3A 8B 58 24 B2 22 22 89 31 39 30 30 |$(T):.X$."".1900|
000007C0: 00 DE 0F 24 04 50 24 B2 C8 28 48 24 2C 32 30 29 |...$.P$..(H$,20)|
000007D0: 3A 8B 54 A7 50 24 B2 54 24 28 54 AB 31 29 00 02 |:.T.P$.T$(T.1)..|
000007E0: 10 2E 04 99 22 93 12 22 C9 28 50 24 2C 32 30 29 |...."..".(P$,20)|
000007F0: 3A 99 22 13 22 A6 32 39 29 22 92 C2 4C 4F 43 4B |:.".".29)"..LOCK|
00000800: 22 54 00 37 10 38 04 99 22 11 11 11 11 11 11 A4 |"T.7.8..".......|
00000810: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000820: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000830: A4 A4 A4 A4 A4 A4 A4 00 48 10 42 04 A1 43 24 3A |........H.B..C$:|
00000840: 8B 43 24 89 31 30 39 30 00 61 10 4C 04 8F 20 26 |.C$.1090.a.L.. &|
00000850: 20 53 45 54 20 43 55 52 53 4F 52 20 28 41 2C 44 | SET CURSOR (A,D|
00000860: 29 00 8D 10 56 04 99 22 13 11 11 22 C8 28 58 24 |)...V.."...".(X$|
00000870: 2C 4C 29 3A 99 22 13 11 11 22 A6 4C 29 22 20 9D |,L):."...".L)" .|
00000880: 12 22 CA 28 58 24 2C 4C AA 31 2C 31 29 00 B9 10 |.".(X$,L.1,1)...|
00000890: 6A 04 99 22 13 11 11 22 A6 4C AA 31 29 CA 28 58 |j.."...".L.1).(X|
000008A0: 24 2C 4C AA 32 29 C8 28 42 24 2C 4D 30 AB C3 28 |$,L.2).(B$,M0..(|
000008B0: 58 24 29 29 3A 99 22 11 11 00 DB 10 B0 04 8D 33 |X$)):."........3|
000008C0: 30 3A 8B 58 B2 39 32 A7 54 24 28 54 29 B2 58 24 |0:.X.92.T$(T).X$|
000008D0: 3A 89 36 30 30 3A 8F 20 45 4E 44 00 0A 11 BA 04 |:.600:. END.....|
000008E0: 8B 58 B2 32 39 A7 4C B2 4C AB 28 4C AA 31 B3 C3 |.X.29.L.L.(L.1..|
000008F0: 28 58 24 29 29 3A 89 31 31 30 30 3A 8F 20 43 55 |(X$)):.1100:. CU|
00000900: 52 53 4F 52 20 52 49 47 48 54 00 32 11 C4 04 8B |RSOR RIGHT.2....|
00000910: 43 B2 32 39 A7 4C B2 4C AA 28 4C B1 30 29 3A 89 |C.29.L.L.(L.0):.|
00000920: 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 4C 45 |1100:. CURSOR LE|
00000930: 46 54 00 64 11 CE 04 8B 58 B2 31 37 A7 4C B2 4C |FT.d....X.17.L.L|
00000940: AB 34 30 AC 28 4C AA 34 30 B3 C3 28 58 24 29 29 |.40.(L.40..(X$))|
00000950: 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 |:.1100:. CURSOR |
00000960: 44 4F 57 4E 00 8E 11 D8 04 8B 43 B2 31 37 A7 4C |DOWN......C.17.L|
00000970: B2 4C AA 34 30 AC 28 4C B1 33 39 29 3A 89 31 31 |.L.40.(L.39):.11|
00000980: 30 30 3A 8F 20 43 55 52 53 4F 52 20 55 50 00 B0 |00:. CURSOR UP..|
00000990: 11 E2 04 8B 58 B2 31 39 A7 4C B2 30 3A 89 31 31 |....X.19.L.0:.11|
000009A0: 30 30 3A 8F 20 43 55 52 53 4F 52 20 48 4F 4D 45 |00:. CURSOR HOME|
000009B0: 00 EA 11 EC 04 8B 43 B2 31 39 A7 81 49 B2 54 A4 |......C.19..I.T.|
000009C0: 56 AB 31 3A 54 24 28 49 29 B2 54 24 28 49 AA 31 |V.1:T$(I).T$(I.1|
000009D0: 29 3A 82 3A 54 24 28 56 29 B2 22 22 3A 89 31 30 |):.:T$(V)."":.10|
000009E0: 34 30 3A 8F 20 43 4C 45 41 52 00 16 12 F6 04 8B |40:. CLEAR......|
000009F0: 58 B2 31 33 A7 54 24 28 54 29 B2 58 24 3A 54 B2 |X.13.T$(T).X$:T.|
00000A00: 54 AA 31 3A 89 31 30 34 30 3A 8F 20 4E 45 58 54 |T.1:.1040:. NEXT|
00000A10: 20 42 4C 4F 43 4B 00 47 12 00 05 8B 43 B2 31 33 | BLOCK.G....C.13|
00000A20: A7 54 24 28 54 29 B2 58 24 3A 54 B2 54 AA 28 54 |.T$(T).X$:T.T.(T|
00000A30: B1 30 29 3A 89 31 30 34 30 3A 8F 20 50 52 49 4F |.0):.1040:. PRIO|
00000A40: 52 20 42 4C 4F 43 4B 00 5A 12 0A 05 8B 4C B1 B2 |R BLOCK.Z....L..|
00000A50: C3 28 58 24 29 89 31 31 30 30 00 7E 12 14 05 4C |.(X$).1100.~...L|
00000A60: 24 B2 C8 28 58 24 2C 4C 29 3A 8B 58 B2 31 34 38 |$..(X$,L):.X.148|
00000A70: 89 31 33 35 30 3A 8F 20 49 4E 53 45 52 54 00 C1 |.1350:. INSERT..|
00000A80: 12 1E 05 4D 24 B2 CA 28 58 24 2C 4C AA 32 29 3A |...M$..(X$,L.2):|
00000A90: 8B 43 B3 B1 32 30 A7 58 24 B2 4C 24 AA 43 24 AA |.C..20.X$.L$.C$.|
00000AA0: 4D 24 3A 58 B2 32 39 3A 89 31 32 31 30 3A 8F 20 |M$:X.29:.1210:. |
00000AB0: 52 45 50 4C 41 43 45 20 43 48 41 52 41 43 54 45 |REPLACE CHARACTE|
00000AC0: 52 00 ED 12 32 05 58 24 B2 4C 24 AA 4D 24 3A 8B |R...2.X$.L$.M$:.|
00000AD0: 58 24 B2 22 22 A7 43 B2 31 39 3A 89 31 32 36 30 |X$."".C.19:.1260|
00000AE0: 3A 8F 20 4E 55 4C 4C 20 42 4C 4F 43 4B 00 F7 12 |:. NULL BLOCK...|
00000AF0: 3C 05 89 31 31 30 30 00 28 13 46 05 4D 24 B2 CA |<..1100.(.F.M$..|
00000B00: 28 58 24 2C 4C AA 31 29 3A 99 22 93 11 11 11 11 |(X$,L.1):.".....|
00000B10: 11 11 11 11 11 11 11 11 11 11 11 12 22 4D 24 3A |............"M$:|
00000B20: 99 22 13 11 11 22 4C 24 00 46 13 4B 05 99 22 13 |."..."L$.F.K..".|
00000B30: 11 11 22 A3 C3 28 4C 24 29 29 3B 3A 4D B2 4D 30 |.."..(L$));:M.M0|
00000B40: 3A 8D 38 32 30 30 00 73 13 50 05 4D B2 4D 30 AB |:.8200.s.P.M.M0.|
00000B50: C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 58 24 |.(L$):L$.L$..(X$|
00000B60: 2C 4D 29 3A 4D 24 B2 CA 28 58 24 2C 4D AA 31 29 |,M):M$..(X$,M.1)|
00000B70: AA 4D 24 00 B2 13 5A 05 4D B2 4D 30 AB C3 28 4C |.M$...Z.M.M0..(L|
00000B80: 24 29 3A 54 24 28 54 29 B2 4C 24 AA C8 28 4D 24 |$):T$(T).L$..(M$|
00000B90: 2C 4D 29 3A 4C 24 B2 CA 28 4D 24 2C 4D AA 31 29 |,M):L$..(M$,M.1)|
00000BA0: 3A 4D 24 B2 22 22 3A 8B 4C 24 B2 22 22 89 31 30 |:M$."":.L$."".10|
00000BB0: 35 30 00 CF 13 64 05 58 B2 54 3A 54 B2 54 AA 31 |50...d.X.T:T.T.1|
00000BC0: 3A 8D 36 31 30 3A 54 B2 58 3A 89 31 30 35 30 00 |:.610:T.X:.1050.|
00000BD0: E4 13 6C 07 8F 20 41 44 44 20 54 4F 20 54 48 45 |..l.. ADD TO THE|
00000BE0: 20 45 4E 44 00 F7 13 76 07 8B 54 B2 30 89 36 30 | END...v..T.0.60|
00000BF0: 30 3A 8F 20 45 4E 44 00 1F 14 80 07 58 24 B2 54 |0:. END.....X$.T|
00000C00: 24 28 54 AB 31 29 3A 99 22 93 22 58 24 3A 99 22 |$(T.1):."."X$:."|
00000C10: 13 22 A6 C3 28 58 24 29 29 3B 3A 89 35 31 30 00 |."..(X$));:.510.|
00000C20: 30 14 D0 07 8F 20 49 4E 50 55 54 20 46 49 4C 45 |0.... INPUT FILE|
00000C30: 00 5D 14 D5 07 51 39 24 B2 22 C4 4F 4B 55 4D 45 |.]...Q9$.".OKUME|
00000C40: 4E 54 22 3A 20 8F 20 46 4F 52 20 45 52 52 4F 52 |NT": . FOR ERROR|
00000C50: 20 4D 53 47 20 49 4E 20 36 30 30 30 30 00 84 14 | MSG IN 60000...|
00000C60: EE 07 8B 43 46 B1 32 A7 99 22 11 D6 4F 4E 20 44 |...CF.2.."..ON D|
00000C70: 45 52 20 C4 41 54 41 53 45 54 54 45 22 3B 3A 8D |ER .ATASETTE";:.|
00000C80: 38 30 35 30 00 A9 14 F8 07 8B 43 46 B2 32 B0 28 |8050......CF.2.(|
00000C90: 43 46 B1 32 AF 49 B2 30 29 A7 9F 31 2C 31 2C 30 |CF.2.I.0)..1,1,0|
00000CA0: 2C 48 24 3A 89 32 31 30 30 00 CF 14 02 08 9F 31 |,H$:.2100......1|
00000CB0: 2C 30 38 2C 32 2C C8 28 48 24 2C 31 36 29 3A 84 |,08,2,.(H$,16):.|
00000CC0: 38 2C 58 2C 58 24 3A 8B 58 89 36 30 30 30 30 00 |8,X,X$:.X.60000.|
00000CD0: 06 15 34 08 4F 46 B2 30 3A 8D 34 30 3A 99 22 11 |..4.OF.0:.40:.".|
00000CE0: CC 49 45 53 54 20 20 3A 20 12 22 58 24 3A 48 24 |.IEST : ."X$:H$|
00000CF0: B2 58 24 3A 8D 34 30 3A 99 58 24 3A 99 3A 8F 20 |.X$:.40:.X$:.:. |
00000D00: 48 45 41 44 45 52 00 2D 15 98 08 58 24 B2 C7 28 |HEADER.-...X$..(|
00000D10: 33 31 29 3A 81 49 B2 30 A4 56 3A 4C 24 B2 22 22 |31):.I.0.V:L$.""|
00000D20: 3A 8F 20 49 4E 50 55 54 20 46 49 4C 45 00 4F 15 |:. INPUT FILE.O.|
00000D30: A2 08 81 4A B2 31 A4 4D 30 3A A1 23 31 2C 43 24 |...J.1.M0:.#1,C$|
00000D40: 3A 8B 53 54 A7 4A B2 4D 30 3A 89 32 32 33 30 00 |:.ST.J.M0:.2230.|
00000D50: 7B 15 AC 08 8B 43 24 B1 58 24 A7 4C 24 B2 4C 24 |{....C$.X$.L$.L$|
00000D60: AA 43 24 3A 8F 20 4F 4E 4C 59 20 4C 45 47 41 4C |.C$:. ONLY LEGAL|
00000D70: 20 43 48 41 52 41 43 54 45 52 53 00 9F 15 B6 08 | CHARACTERS.....|
00000D80: 82 4A 3A 54 24 28 49 29 B2 4C 24 3A 99 4C 24 3B |.J:T$(I).L$:.L$;|
00000D90: 3A 8B 53 54 B2 30 A7 82 49 3A 49 B2 49 AB 31 00 |:.ST.0..I:I.I.1.|
00000DA0: B7 15 CA 08 54 B2 49 3A 8D 36 35 30 3A 8D 38 30 |....T.I:.650:.80|
00000DB0: 30 30 3A 89 31 30 30 00 D4 15 B8 0B 8D 33 30 32 |00:.100......302|
00000DC0: 30 3A 89 31 30 30 3A 8F 20 4F 55 54 50 55 54 20 |0:.100:. OUTPUT |
00000DD0: 46 49 4C 45 00 F7 15 CC 0B 8B 43 46 B1 32 A7 99 |FILE......CF.2..|
00000DE0: 22 93 C1 55 46 20 C4 41 54 41 53 45 54 54 45 22 |"..UF .ATASETTE"|
00000DF0: 3B 3A 8D 38 30 35 30 00 1C 16 D6 0B 8B 43 46 B2 |;:.8050......CF.|
00000E00: 32 B0 28 43 46 B2 33 AF 49 B2 30 29 A7 9F 31 2C |2.(CF.3.I.0)..1,|
00000E10: 31 2C 31 2C 48 24 3A 89 33 31 30 30 00 4F 16 E0 |1,1,H$:.3100.O..|
00000E20: 0B 4C 24 B2 22 30 3A 22 AA C8 28 48 24 2C 31 36 |.L$."0:"..(H$,16|
00000E30: 29 3A 9F 31 2C 30 38 2C 32 2C 4C 24 3A 84 38 2C |):.1,08,2,L$:.8,|
00000E40: 58 2C 58 24 3A A0 31 3A 8B 58 89 33 30 38 30 00 |X,X$:.1:.X.3080.|
00000E50: 89 16 EA 0B 99 22 11 C4 4F 4B 55 4D 45 4E 54 20 |....."..OKUMENT |
00000E60: 45 58 49 53 54 49 45 52 54 20 2D 20 55 45 42 45 |EXISTIERT - UEBE|
00000E70: 52 53 43 48 52 45 49 42 45 4E 20 20 22 3B 3A 8D |RSCHREIBEN ";:.|
00000E80: 38 30 35 30 3A 8B 49 A7 8E 00 9D 16 F4 0B 98 38 |8050:.I........8|
00000E90: 2C 22 53 22 4C 24 3A 98 38 2C 22 49 30 00 D1 16 |,"S"L$:.8,"I0...|
00000EA0: 08 0C 9F 31 2C 30 38 2C 33 2C 4C 24 AA 22 2C 53 |...1,08,3,L$.",S|
00000EB0: 2C 57 22 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 51 |,W":.8,X,X$:.X.Q|
00000EC0: 39 24 B2 22 53 50 41 43 45 22 3A 8D 36 30 30 30 |9$."SPACE":.6000|
00000ED0: 30 00 E8 16 1C 0C 4F 46 B2 30 3A 98 31 2C 48 24 |0.....OF.0:.1,H$|
00000EE0: C7 28 31 34 31 29 44 24 00 0F 17 4E 0C 81 49 B2 |.(141)D$...N..I.|
00000EF0: 30 A4 56 3A 8B 54 24 28 49 29 B1 22 22 A7 98 31 |0.V:.T$(I).""..1|
00000F00: 2C 54 24 28 49 29 3B 3A 99 22 2A 22 3B 3A 82 00 |,T$(I);:."*";:..|
00000F10: 1D 17 58 0C 98 31 2C 22 5C 22 3B 3A 8E 00 34 17 |..X..1,"\";:..4.|
00000F20: A0 0F 8F 20 42 41 54 43 48 20 50 52 4F 43 45 53 |... BATCH PROCES|
00000F30: 53 49 4E 47 00 5D 17 A5 0F 51 39 24 B2 22 46 49 |SING.]...Q9$."FI|
00000F40: 4C 45 22 3A 20 8F 20 46 4F 52 20 45 52 52 4F 52 |LE": . FOR ERROR|
00000F50: 20 4D 53 47 20 49 4E 20 36 30 30 30 30 00 81 17 | MSG IN 60000...|
00000F60: AA 0F 99 22 93 22 3B 3A 91 43 46 89 34 31 30 30 |...".";:.CF.4100|
00000F70: 2C 34 30 35 30 3A 8F 20 45 4C 53 45 20 42 4F 54 |,4050:. ELSE BOT|
00000F80: 48 00 A5 17 B4 0F 99 22 D6 4F 4E 20 C4 41 54 41 |H......".ON .ATA|
00000F90: 53 45 54 54 45 22 3B 3A 8D 38 30 35 30 3A 8B 49 |SETTE";:.8050:.I|
00000FA0: 89 34 31 30 30 00 B9 17 D2 0F 8F 20 46 52 4F 4D |.4100...... FROM|
00000FB0: 20 43 41 53 53 45 54 54 45 00 C8 17 DC 0F 9F 32 | CASSETTE......2|
00000FC0: 2C 31 3A 89 34 31 35 30 00 D8 17 04 10 8F 20 46 |,1:.4150...... F|
00000FD0: 52 4F 4D 20 44 49 53 43 00 0E 18 0E 10 85 22 93 |ROM DISC......".|
00000FE0: C1 C4 D2 C5 D3 D3 C5 CE 20 36 34 3A 20 C4 41 54 |........ 64: .AT|
00000FF0: 45 49 2D CE 41 4D 45 20 20 2D 9D 9D 9D 22 3B 58 |EI-.AME -...";X|
00001000: 24 3A 8B 58 24 B2 22 2D 22 89 34 31 31 30 00 32 |$:.X$."-".4110.2|
00001010: 18 18 10 9F 32 2C 30 38 2C 32 2C 58 24 3A 84 38 |....2,08,2,X$:.8|
00001020: 2C 58 2C 58 24 3A 8B 58 A7 A0 32 3A 89 36 30 30 |,X,X$:.X..2:.600|
00001030: 30 30 00 4B 18 36 10 8F 20 50 52 45 50 41 52 45 |00.K.6.. PREPARE|
00001040: 20 46 4F 52 20 4F 55 54 50 55 54 00 7E 18 40 10 | FOR OUTPUT.~.@.|
00001050: 54 42 24 B2 22 22 3A 53 32 B2 30 3A 4E B2 37 32 |TB$."":S2.0:N.72|
00001060: 3A 46 B2 31 3A 9F 31 2C 30 34 3A 53 24 B2 22 11 |:F.1:.1,04:S$.".|
00001070: 22 AA C8 28 42 24 2C 34 30 AB 4E AD 32 29 00 A6 |"..(B$,40.N.2)..|
00001080: 18 4A 10 99 22 11 D3 54 41 4E 44 41 52 44 2D C6 |.J.."..TANDARD-.|
00001090: 4F 52 4D 41 54 22 3B 3A 8D 38 30 35 30 3A 8B 49 |ORMAT";:.8050:.I|
000010A0: A7 8D 37 35 30 30 00 C8 18 68 10 8F 20 47 45 54 |..7500...h.. GET|
000010B0: 20 54 48 45 20 4E 41 4D 45 20 41 4E 44 20 53 41 | THE NAME AND SA|
000010C0: 4C 55 54 41 54 49 4F 4E 00 F4 18 72 10 84 32 2C |LUTATION...r..2,|
000010D0: 5A 24 3A 8B 53 54 B1 30 B0 C3 28 5A 24 29 B3 32 |Z$:.ST.0..(Z$).2|
000010E0: 89 34 39 30 30 3A 8F 20 4E 4F 20 4C 41 53 54 20 |.4900:. NO LAST |
000010F0: 4E 41 4D 45 00 34 19 7C 10 4C 24 B2 22 22 3A 8D |NAME.4.|.L$."":.|
00001100: 37 34 35 30 3A 58 24 B2 22 22 3A 59 24 B2 22 22 |7450:X$."":Y$.""|
00001110: 3A 4D 24 B2 22 D3 45 48 52 20 47 45 45 48 52 54 |:M$.".EHR GEEHRT|
00001120: 45 20 C4 41 4D 45 4E 20 55 4E 44 20 C8 45 52 52 |E .AMEN UND .ERR|
00001130: 45 4E 2C 22 00 63 19 86 10 84 32 2C 58 24 3A 8B |EN,".c....2,X$:.|
00001140: C3 28 58 24 29 B3 32 A7 58 24 B2 22 22 3A 89 34 |.(X$).2.X$."":.4|
00001150: 32 35 30 3A 8F 20 4E 4F 20 46 49 52 53 54 20 4E |250:. NO FIRST N|
00001160: 41 4D 45 00 86 19 90 10 4D 24 B2 22 CC 49 45 42 |AME.....M$.".IEB|
00001170: 45 2F 52 20 22 AA 58 24 AA 22 2C 22 3A 58 24 B2 |E/R ".X$.",":X$.|
00001180: 58 24 AA 22 20 22 00 B0 19 9A 10 84 32 2C 59 24 |X$." "......2,Y$|
00001190: 3A 8B C3 28 59 24 29 B3 32 A7 59 24 B2 22 22 3A |:..(Y$).2.Y$."":|
000011A0: 89 34 32 37 30 3A 8F 20 4E 4F 20 54 49 54 4C 45 |.4270:. NO TITLE|
000011B0: 00 D5 19 A4 10 59 24 B2 59 24 AA 22 20 22 3A 4D |.....Y$.Y$." ":M|
000011C0: 24 B2 22 CC 49 45 42 45 2F 52 20 22 AA 59 24 AA |$.".IEBE/R ".Y$.|
000011D0: 5A 24 AA 22 2C 00 02 1A AE 10 4C 24 B2 59 24 AA |Z$.",.....L$.Y$.|
000011E0: 58 24 AA 5A 24 3A 84 32 2C 58 24 3A 8B C3 28 58 |X$.Z$:.2,X$:..(X|
000011F0: 24 29 B1 32 A7 4C 24 B2 4C 24 AA 22 2C 20 22 AA |$).2.L$.L$.", ".|
00001200: 58 24 00 2B 1A B8 10 5A 24 B2 4D 24 3A 4D 24 B2 |X$.+...Z$.M$:M$.|
00001210: 22 22 3A 50 24 B2 4C 24 3A 8D 37 39 30 30 3A 8F |"":P$.L$:.7900:.|
00001220: 20 50 52 49 4E 54 20 4E 41 4D 45 00 3D 1A CC 10 | PRINT NAME.=...|
00001230: 8F 20 47 45 54 20 41 44 44 52 45 53 53 00 65 1A |. GET ADDRESS.e.|
00001240: D6 10 84 32 2C 4C 24 3A 8B C3 28 4C 24 29 B1 31 |...2,L$:..(L$).1|
00001250: A7 50 24 B2 4C 24 3A 8D 37 39 30 30 3A 8F 20 4C |.P$.L$:.7900:. L|
00001260: 49 4E 45 20 32 00 8D 1A E0 10 84 32 2C 4C 24 3A |INE 2......2,L$:|
00001270: 8B C3 28 4C 24 29 B1 31 A7 50 24 B2 4C 24 3A 8D |..(L$).1.P$.L$:.|
00001280: 37 39 30 30 3A 8F 20 4C 49 4E 45 20 33 00 C1 1A |7900:. LINE 3...|
00001290: EA 10 84 32 2C 4C 24 3A 84 32 2C 59 24 3A 8B C3 |...2,L$:.2,Y$:..|
000012A0: 28 59 24 29 B1 31 A7 4C 24 B2 4C 24 AA 22 2C 20 |(Y$).1.L$.L$.", |
000012B0: 22 AA 59 24 3A 8F 20 53 54 41 54 45 2C 20 5A 49 |".Y$:. STATE, ZI|
000012C0: 50 00 DA 1A F4 10 8B C3 28 4C 24 29 B1 31 A7 50 |P.......(L$).1.P|
000012D0: 24 B2 4C 24 3A 8D 37 39 30 30 00 06 1B FE 10 81 |$.L$:.7900......|
000012E0: 49 B2 4C A4 31 34 3A 8D 37 39 30 30 3A 82 3A 4C |I.L.14:.7900:.:L|
000012F0: 24 B2 5A 24 3A 50 24 B2 4C 24 3A 8D 37 30 39 30 |$.Z$:P$.L$:.7090|
00001300: 3A 89 34 32 30 30 00 12 1B 24 13 A0 32 3A 89 31 |:.4200...$..2:.1|
00001310: 30 30 00 2B 1B 70 17 8F 20 53 45 41 52 43 48 20 |00.+.p.. SEARCH |
00001320: 41 4E 44 20 52 45 50 4C 41 43 45 00 68 1B 7A 17 |AND REPLACE.h.z.|
00001330: 99 22 93 11 D3 55 43 48 45 4E 20 4E 41 43 48 3F |."...UCHEN NACH?|
00001340: 22 3A 4D B2 34 30 3A 8D 38 32 30 30 3A 5A 24 B2 |":M.40:.8200:Z$.|
00001350: 58 24 3A 4C B2 C3 28 58 24 29 3A 8B 4C B2 30 B0 |X$:L..(X$):.L.0.|
00001360: 4C B2 4D 89 36 30 31 30 00 92 1B 84 17 99 3A 99 |L.M.6010......:.|
00001370: 22 11 C5 52 53 45 54 5A 45 4E 20 44 55 52 43 48 |"..RSETZEN DURCH|
00001380: 3F 22 3A 8D 38 32 30 30 3A 59 24 B2 58 24 3A 99 |?":.8200:Y$.X$:.|
00001390: 3A 99 00 B9 1B 8E 17 58 24 B2 22 22 3A 4D 24 B2 |:......X$."":M$.|
000013A0: 22 22 3A 4C 24 B2 22 22 3A 54 B2 30 3A 55 B2 30 |"":L$."":T.0:U.0|
000013B0: 3A 46 B2 30 3A 4F 46 B2 31 00 CF 1B 38 18 8F 20 |:F.0:OF.1...8.. |
000013C0: 41 54 54 41 43 48 20 54 24 20 54 4F 20 58 24 00 |ATTACH T$ TO X$.|
000013D0: E2 1B 42 18 8B C3 28 58 24 29 B1 B2 4C 89 36 32 |..B...(X$)..L.62|
000013E0: 35 30 00 00 1C 4C 18 8B 54 B1 56 89 36 34 30 30 |50...L..T.V.6400|
000013F0: 3A 8F 20 41 4C 4C 20 54 24 27 53 20 52 45 41 44 |:. ALL T$'S READ|
00001400: 00 25 1C 56 18 58 24 B2 58 24 AA 54 24 28 54 29 |.%.V.X$.X$.T$(T)|
00001410: 3A 54 24 28 54 29 B2 22 22 3A 54 B2 54 AA 31 3A |:T$(T)."":T.T.1:|
00001420: 89 36 32 30 30 00 3C 1C 6A 18 8F 20 53 45 41 52 |.6200.<.j.. SEAR|
00001430: 43 48 20 46 4F 52 20 4D 41 54 43 48 00 6A 1C 74 |CH FOR MATCH.j.t|
00001440: 18 81 49 B2 31 A4 C3 28 58 24 29 AB 4C AA 31 3A |..I.1..(X$).L.1:|
00001450: 8B CA 28 58 24 2C 49 2C 4C 29 B3 B1 5A 24 A7 82 |..(X$,I,L)..Z$..|
00001460: 3A 4A B2 49 3A 89 36 33 30 30 00 80 1C 7E 18 4D |:J.I:.6300...~.M|
00001470: 24 B2 59 24 3A 4A B2 49 AA 4C 3A 99 22 12 22 3B |$.Y$:J.I.L:.".";|
00001480: 00 94 1C 9C 18 8F 20 53 50 4C 49 54 20 53 54 52 |...... SPLIT STR|
00001490: 49 4E 47 53 00 C7 1C A6 18 4D 24 B2 C8 28 58 24 |INGS.....M$..(X$|
000014A0: 2C 49 AB 31 29 AA 4D 24 3A 58 24 B2 CA 28 58 24 |,I.1).M$:X$..(X$|
000014B0: 2C 4A 29 3A 8D 36 35 30 30 3A 91 46 89 36 39 30 |,J):.6500:.F.690|
000014C0: 30 3A 89 36 32 30 30 00 DA 1C 00 19 8F 20 53 54 |0:.6200...... ST|
000014D0: 4F 57 20 4C 41 53 54 20 4C 24 00 F7 1C 0A 19 8D |OW LAST L$......|
000014E0: 36 35 30 30 3A 8B 46 89 36 39 30 30 3A 8F 20 43 |6500:.F.6900:. C|
000014F0: 4C 45 41 52 20 4D 24 00 23 1D 14 19 4D 24 B2 58 |LEAR M$.#...M$.X|
00001500: 24 3A 8D 36 35 30 30 3A 8B 46 89 36 39 30 30 3A |$:.6500:.F.6900:|
00001510: 8F 20 4D 24 5F 58 24 3B 20 43 4C 45 41 52 20 42 |. M$_X$; CLEAR B|
00001520: 4F 54 48 00 5A 1D 1E 19 8B 55 B3 B2 56 A7 54 B2 |OTH.Z....U..V.T.|
00001530: 55 3A 8D 36 35 30 3A 89 31 30 30 3A 8F 20 53 54 |U:.650:.100:. ST|
00001540: 4F 57 20 4C 24 2C 20 43 4C 45 41 52 20 48 49 47 |OW L$, CLEAR HIG|
00001550: 48 45 52 20 42 4C 4F 43 4B 53 00 64 1D 28 19 89 |HER BLOCKS.d.(..|
00001560: 36 39 30 30 00 87 1D 64 19 8F 20 43 4C 45 41 52 |6900...d.. CLEAR|
00001570: 20 4D 24 20 2D 20 53 54 4F 57 20 4C 24 20 49 46 | M$ - STOW L$ IF|
00001580: 20 4E 45 45 44 45 44 00 BD 1D 6E 19 4D B2 4D 30 | NEEDED...n.M.M0|
00001590: AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 4D |..(L$):L$.L$..(M|
000015A0: 24 2C 4D 29 3A 4D 24 B2 CA 28 4D 24 2C 4D AA 31 |$,M):M$..(M$,M.1|
000015B0: 29 3A 8B C3 28 4C 24 29 B3 4D 30 A7 8E 00 CC 1D |):..(L$).M0.....|
000015C0: 78 19 8B 55 B1 B2 56 89 36 35 35 30 00 F9 1D 82 |x..U..V.6550....|
000015D0: 19 8B 55 B3 54 A7 54 24 28 55 29 B2 4C 24 3A 99 |..U.T.T$(U).L$:.|
000015E0: 22 2A 92 22 3B 3A 55 B2 55 AA 31 3A 4C 24 B2 4D |"*.";:U.U.1:L$.M|
000015F0: 24 3A 4D 24 B2 22 22 3A 8E 00 33 1E 8C 19 8B 54 |$:M$."":..3....T|
00001600: B3 56 A7 81 49 B2 56 A4 54 AA 31 A9 AB 31 3A 54 |.V..I.V.T.1..1:T|
00001610: 24 28 49 29 B2 54 24 28 49 AB 31 29 3A 82 3A 54 |$(I).T$(I.1):.:T|
00001620: 24 28 54 29 B2 22 22 3A 54 B2 54 AA 31 3A 89 36 |$(T)."":T.T.1:.6|
00001630: 35 33 30 00 3D 1E 96 19 46 B2 31 3A 8E 00 4E 1E |530.=...F.1:..N.|
00001640: F4 1A 8F 20 45 52 52 4F 52 20 45 58 49 54 00 7F |... ERROR EXIT..|
00001650: 1E FE 1A 99 3A 99 22 11 CF 55 54 20 4F 46 20 52 |....:."..UT OF R|
00001660: 4F 4F 4D 20 2D 20 44 41 54 41 20 49 4D 50 41 49 |OOM - DATA IMPAI|
00001670: 52 45 44 22 3A 8D 38 30 30 30 3A 89 31 30 30 00 |RED":.8000:.100.|
00001680: 96 1E 58 1B 8F 20 46 4F 52 4D 41 54 20 41 4E 44 |..X.. FORMAT AND|
00001690: 20 50 52 49 4E 54 00 A5 1E 62 1B 8D 37 30 32 30 | PRINT...b..7020|
000016A0: 3A 89 31 30 30 00 BD 1E 6C 1B 9F 31 2C 30 34 3A |:.100...l..1,04:|
000016B0: 46 B2 31 3A 8F 20 50 52 49 4E 54 45 52 00 EE 1E |F.1:. PRINTER...|
000016C0: 76 1B 53 32 B2 31 3A 4E B2 36 30 3A 54 42 24 B2 |v.S2.1:N.60:TB$.|
000016D0: 22 22 3A 58 24 B2 22 46 49 44 22 3A 8F 20 44 45 |"":X$."FID":. DE|
000016E0: 46 41 55 4C 54 53 20 28 44 52 41 46 54 29 00 22 |FAULTS (DRAFT)."|
000016F0: 1F 80 1B 99 22 11 12 C6 92 4F 52 4D 41 4C 2C 20 |...."....ORMAL, |
00001700: 12 C9 92 4E 46 4F 52 4D 41 4C 2C 20 4F 52 20 12 |...NFORMAL, OR .|
00001710: C4 92 52 41 46 54 22 3B 3A 8D 38 30 36 30 3A 4A |..RAFT";:.8060:J|
00001720: B2 49 00 3B 1F 94 1B 8B 4A B3 32 A7 53 32 B2 30 |.I.;....J.2.S2.0|
00001730: 3A 4E B2 37 32 3A 8D 37 35 30 30 00 66 1F 9E 1B |:N.72:.7500.f...|
00001740: 53 24 B2 22 11 22 AA C8 28 42 24 2C 34 30 AB 4E |S$."."..(B$,40.N|
00001750: AD 32 29 3A 8B 4A B2 30 89 37 34 30 30 3A 8F 20 |.2):.J.0.7400:. |
00001760: 46 4F 52 4D 41 4C 00 89 1F A8 1B 4C 24 B2 22 12 |FORMAL.....L$.".|
00001770: 22 AA 48 24 3A 50 24 B2 48 24 3A 4D 24 B2 C8 28 |".H$:P$.H$:M$..(|
00001780: 4B 24 2C C3 28 48 24 29 29 00 A7 1F B2 1B 4A B2 |K$,.(H$)).....J.|
00001790: 30 3A 99 22 93 22 3A 8D 37 39 30 30 3A 8D 37 39 |0:.".":.7900:.79|
000017A0: 30 30 3A 8B 4A A7 8E 00 D1 1F BC 1B 54 B2 30 3A |00:.J.......T.0:|
000017B0: 58 24 B2 22 5D 22 AA 54 42 24 3A 45 B2 30 3A 5A |X$."]".TB$:E.0:Z|
000017C0: 24 B2 42 24 3A 8F 20 50 52 49 4E 54 20 54 45 58 |$.B$:. PRINT TEX|
000017D0: 54 00 08 20 C6 1B 8B C3 28 58 24 29 B3 B2 4E A7 |T.. ....(X$)..N.|
000017E0: 58 24 B2 58 24 AA 54 24 28 54 29 3A 54 B2 54 AA |X$.X$.T$(T):T.T.|
000017F0: 31 3A 8B C3 28 58 24 29 B3 B2 4E B0 54 B1 56 A7 |1:..(X$)..N.T.V.|
00001800: 58 24 B2 58 24 AA 22 5C 00 38 20 CB 1B 8B C6 28 |X$.X$."\.8 ....(|
00001810: 58 24 29 B2 33 32 A7 58 24 B2 CA 28 58 24 2C 32 |X$).32.X$..(X$,2|
00001820: 29 3A 89 37 31 31 30 3A 8F 20 4C 45 41 44 49 4E |):.7110:. LEADIN|
00001830: 47 20 42 4C 41 4E 4B 53 00 49 20 D0 1B 8B 45 A7 |G BLANKS.I ...E.|
00001840: 58 24 B2 22 5B 22 AA 58 24 00 86 20 DA 1B 4C 24 |X$."[".X$.. ..L$|
00001850: B2 C8 28 58 24 2C 4E AA 31 29 3A 50 24 B2 4C 24 |..(X$,N.1):P$.L$|
00001860: 3A 4A B2 30 3A 4B B2 30 3A 4D 24 B2 42 24 3A 81 |:J.0:K.0:M$.B$:.|
00001870: 49 B2 31 A4 C3 28 4C 24 29 3A 43 B2 C6 28 CA 28 |I.1..(L$):C..(.(|
00001880: 4C 24 2C 49 29 29 00 A8 20 E4 1B 8B 43 B1 39 30 |L$,I)).. ...C.90|
00001890: AF 43 B3 39 36 A7 8D 37 37 30 30 3A 8B 58 A7 49 |.C.96..7700:.X.I|
000018A0: B2 4A 3A 89 37 31 36 30 00 DD 20 EE 1B 82 3A 81 |.J:.7160.. ...:.|
000018B0: 49 B2 C3 28 4C 24 29 A4 4A AA 31 A9 AB 31 3A 8B |I..(L$).J.1..1:.|
000018C0: CA 28 4C 24 2C 49 2C 31 29 B1 22 20 22 A7 82 3A |.(L$,I,1)." "..:|
000018D0: 49 B2 4A 3A 8B 4A B2 30 89 37 39 39 30 00 19 21 |I.J:.J.0.7990..!|
000018E0: F8 1B 4A B2 30 3A 58 24 B2 CA 28 58 24 2C 49 AA |..J.0:X$..(X$,I.|
000018F0: 31 29 3A 4C 24 B2 C8 28 4C 24 2C 49 AB 31 29 3A |1):L$..(L$,I.1):|
00001900: 50 24 B2 C8 28 50 24 2C 49 AB 4B 29 3A 4D 24 B2 |P$..(P$,I.K):M$.|
00001910: C8 28 4D 24 2C 49 AB 4B 29 00 3A 21 16 1C 8B 43 |.(M$,I.K).:!...C|
00001920: B2 39 34 B0 43 B2 39 35 A7 45 B2 30 3A 58 24 B2 |.94.C.95.E.0:X$.|
00001930: 22 5D 22 AA 54 42 24 AA 58 24 00 69 21 20 1C 58 |"]".TB$.X$.i! .X|
00001940: B2 43 3A 8D 37 39 30 30 3A 8B 4A B1 30 B0 58 B2 |.C:.7900:.J.0.X.|
00001950: 39 34 B0 58 B2 39 32 A7 8D 37 39 35 30 3A 8B 4A |94.X.92..7950:.J|
00001960: B1 30 B0 58 B2 39 32 A7 8E 00 73 21 2A 1C 89 37 |.0.X.92...s!*..7|
00001970: 31 31 30 00 80 21 E8 1C 8F 20 46 4F 52 4D 41 4C |110..!... FORMAL|
00001980: 00 B2 21 F2 1C 4C 24 B2 22 22 3A 8D 37 34 35 30 |..!..L$."":.7450|
00001990: 3A 99 22 93 D6 49 45 52 20 C1 44 52 45 53 53 2D |:."..IER .DRESS-|
000019A0: DA 45 49 4C 45 4E 22 3A 4D B2 4E 3A 81 49 B2 31 |.EILEN":M.N:.I.1|
000019B0: A4 34 00 E4 21 FC 1C 99 22 DA 45 49 4C 45 22 49 |.4..!...".EILE"I|
000019C0: 3A 8D 38 32 30 30 3A 99 3A 8B C3 28 58 24 29 B2 |:.8200:.:..(X$).|
000019D0: 4D A7 99 22 12 DA 55 20 4C 41 4E 47 20 22 3A 89 |M.."..U LANG ":.|
000019E0: 37 34 32 30 00 02 22 06 1D 50 24 B2 58 24 3A 8D |7420.."..P$.X$:.|
000019F0: 37 39 30 30 3A 82 3A 8D 37 39 30 30 3A 8D 37 39 |7900:.:.7900:.79|
00001A00: 30 30 00 26 22 10 1D 99 22 C1 4E 52 45 44 45 20 |00.&"...".NREDE |
00001A10: 20 20 20 22 3A 8D 38 32 30 30 3A 50 24 B2 58 24 | ":.8200:P$.X$|
00001A20: 3A 89 37 30 39 30 00 57 22 1A 1D 8C 3A 4D 24 B2 |:.7090.W"...:M$.|
00001A30: 22 22 3A 59 24 B2 53 24 3A 81 49 B2 31 A4 33 3A |"":Y$.S$:.I.1.3:|
00001A40: 87 50 24 3A 8D 37 34 39 30 3A 82 3A 50 24 B2 44 |.P$:.7490:.:P$.D|
00001A50: 24 3A 8D 37 34 39 30 00 72 22 2E 1D 81 49 B2 31 |$:.7490.r"...I.1|
00001A60: A4 35 3A 8D 37 39 30 30 3A 82 3A 53 24 B2 59 24 |.5:.7900:.:S$.Y$|
00001A70: 3A 8E 00 98 22 42 1D 4B B2 C3 28 50 24 29 3A 53 |:..."B.K..(P$):S|
00001A80: 24 B2 22 11 22 AA C8 28 42 24 2C 34 30 AB 4B AD |$."."..(B$,40.K.|
00001A90: 32 29 3A 89 37 39 30 30 00 B0 22 4C 1D 8F 20 46 |2):.7900.."L.. F|
00001AA0: 4F 52 4D 41 54 20 56 41 52 49 41 54 49 4F 4E 53 |ORMAT VARIATIONS|
00001AB0: 00 D8 22 56 1D 99 22 11 D3 54 41 4E 44 41 52 44 |.."V.."..TANDARD|
00001AC0: 2D C6 4F 52 4D 41 54 3A 22 3A 99 2C 22 20 C5 49 |-.ORMAT:":.," .I|
00001AD0: 4E 2D 5A 45 49 4C 49 47 00 0B 23 60 1D 99 2C 4E |N-ZEILIG..#`..,N|
00001AE0: 22 DA 45 49 43 48 45 4E 20 50 52 4F 20 DA 45 49 |".EICHEN PRO .EI|
00001AF0: 4C 45 20 20 22 3A 99 2C 4C 4C 22 DA 45 49 4C 45 |LE ":.,LL".EILE|
00001B00: 4E 20 50 52 4F 20 D3 45 49 54 45 00 27 23 6A 1D |N PRO .EITE.'#j.|
00001B10: 99 2C 22 20 D4 41 42 2D CC 41 45 4E 47 45 20 3D |.," .AB-.AENGE =|
00001B20: 22 C3 28 54 42 24 29 00 54 23 74 1D 99 22 11 CD |".(TB$).T#t.."..|
00001B30: 4F 45 43 48 54 45 4E 20 D3 49 45 20 45 53 20 41 |OECHTEN .IE ES A|
00001B40: 45 4E 44 45 52 4E 20 22 3B 3A 8D 38 30 35 30 3A |ENDERN ";:.8050:|
00001B50: 8B 49 A7 8E 00 75 23 7E 1D 99 22 93 C5 49 4E 2D |.I...u#~.."..IN-|
00001B60: 5A 45 49 4C 49 47 20 20 22 3B 3A 8D 38 30 35 30 |ZEILIG ";:.8050|
00001B70: 3A 53 32 B2 49 00 A5 23 88 1D 85 22 11 DA 45 49 |:S2.I..#..."..EI|
00001B80: 43 48 45 4E 20 50 52 4F 20 DA 45 49 4C 45 20 20 |CHEN PRO .EILE |
00001B90: 20 28 32 30 2D 38 30 29 20 20 37 32 20 9D 9D 9D | (20-80) 72 ...|
00001BA0: 9D 9D 22 3B 4E 00 C0 23 92 1D 8B 4E B3 32 30 B0 |..";N..#...N.20.|
00001BB0: 4E B1 38 30 A7 99 22 91 91 22 3A 89 37 35 36 30 |N.80.."..":.7560|
00001BC0: 00 FE 23 9C 1D 99 22 11 DA 45 49 4C 45 4E 20 50 |..#..."..EILEN P|
00001BD0: 52 4F 20 D3 45 49 54 45 20 22 4C 4C 22 9D 20 20 |RO .EITE "LL". |
00001BE0: 9D 9D 9D 9D 9D 9D 22 3B 3A 85 4C 4C 3A 8B 4C 4C |......";:.LL:.LL|
00001BF0: B3 31 A7 99 22 91 91 22 3A 89 37 35 38 30 00 39 |.1.."..":.7580.9|
00001C00: 24 A1 1D 99 22 11 CC 41 45 4E 47 45 20 44 45 52 |$..."..AENGE DER|
00001C10: 20 D4 41 42 2E 22 3B 3A 58 24 B2 22 30 31 32 33 | .AB.";:X$."0123|
00001C20: 34 35 36 37 38 39 22 3A 8D 38 30 36 30 3A 54 42 |456789":.8060:TB|
00001C30: 24 B2 C8 28 42 24 2C 49 29 00 3F 24 A6 1D 8E 00 |$..(B$,I).?$....|
00001C40: 51 24 14 1E 8F 20 45 4E 48 41 4E 43 45 4D 45 4E |Q$... ENHANCEMEN|
00001C50: 54 00 97 24 28 1E 4B B2 4B AA 31 3A 58 B2 31 3A |T..$(.K.K.1:X.1:|
00001C60: 4A B2 49 3A 8B 43 B2 39 31 B0 43 B2 39 33 A7 58 |J.I:.C.91.C.93.X|
00001C70: B2 30 3A 45 B2 28 43 B2 39 31 29 3A 5A 24 B2 42 |.0:E.(C.91):Z$.B|
00001C80: 24 3A 59 24 B2 22 92 22 3A 8B 45 A7 5A 24 B2 4B |$:Y$.".":.E.Z$.K|
00001C90: 24 3A 59 24 B2 22 12 00 B5 24 32 1E 4C 24 B2 C8 |$:Y$."...$2.L$..|
00001CA0: 28 4C 24 2C 49 AB 31 29 AA 59 24 AA CA 28 4C 24 |(L$,I.1).Y$..(L$|
00001CB0: 2C 49 AA 31 29 00 E9 24 46 1E 50 24 B2 C8 28 50 |,I.1)..$F.P$..(P|
00001CC0: 24 2C 49 AB 4B 29 AA CA 28 4C 24 2C 49 AA 31 29 |$,I.K)..(L$,I.1)|
00001CD0: 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 AA CA 28 |:M$..(M$,I.K)..(|
00001CE0: 5A 24 2C 49 AA 31 29 3A 8E 00 F8 24 DC 1E 8F 20 |Z$,I.1):...$... |
00001CF0: 4C 49 4E 45 20 4F 55 54 00 0C 25 E6 1E 8B 50 24 |LINE OUT..%...P$|
00001D00: B1 22 22 A7 50 24 B2 53 24 AA 50 24 00 27 25 F0 |."".P$.S$.P$.'%.|
00001D10: 1E 99 4C 24 3B 3A 8D 37 39 33 30 3A 8B 4A B1 30 |..L$;:.7930:.J.0|
00001D20: B0 53 32 B2 30 A7 8E 00 49 25 FA 1E 8B 46 A7 99 |.S2.0...I%...F..|
00001D30: 3A 98 31 2C 50 24 3B 3A 8B 4D 24 B1 42 24 A7 98 |:.1,P$;:.M$.B$..|
00001D40: 31 2C 51 24 53 24 4D 24 3B 00 70 25 04 1F 98 31 |1,Q$S$M$;.p%...1|
00001D50: 3A 50 24 B2 22 22 3A 4C 24 B2 22 22 3A 4D 24 B2 |:P$."":L$."":M$.|
00001D60: 22 22 3A 4C B2 4C AA 31 3A 8B 4C B3 4C 4C A7 8E |"":L.L.1:.L.LL..|
00001D70: 00 85 25 0E 1F 8B 46 B2 30 A7 8D 38 30 30 30 3A |..%...F.0..8000:|
00001D80: 4C B2 30 3A 8E 00 B2 25 18 1F 8B 4C A7 81 49 B2 |L.0:...%...L..I.|
00001D90: 4C A4 4C 50 AB 31 3A 98 31 3A 82 3A 4C B2 30 3A |L.LP.1:.1:.:L.0:|
00001DA0: 8F 20 50 41 47 45 20 57 49 54 48 20 42 4C 41 4E |. PAGE WITH BLAN|
00001DB0: 4B 53 00 BD 25 22 1F 99 22 93 22 3A 8E 00 EA 25 |KS..%"..".":...%|
00001DC0: 36 1F 4A B2 31 3A 99 22 11 DA 45 49 4C 45 20 46 |6.J.1:."..EILE F|
00001DD0: 55 45 52 20 C4 52 55 43 4B 20 5A 55 20 4C 41 4E |UER .RUCK ZU LAN|
00001DE0: 47 22 3A 8D 37 39 35 30 3A 8E 00 FA 25 40 1F 8F |G":.7950:...%@..|
00001DF0: 20 55 54 49 4C 49 54 49 45 53 00 2E 26 4A 1F 99 | UTILITIES..&J..|
00001E00: 22 11 12 20 D7 45 49 54 45 52 20 4D 49 54 20 42 |".. .EITER MIT B|
00001E10: 45 4C 49 45 42 49 47 45 52 20 D4 41 53 54 45 22 |ELIEBIGER .ASTE"|
00001E20: 3B 3A 8D 32 30 3A 99 3A 99 22 93 22 3A 8E 00 39 |;:.20:.:.".":..9|
00001E30: 26 72 1F 58 24 B2 22 4A 4E 00 44 26 7C 1F 99 22 |&r.X$."JN.D&|.."|
00001E40: 3F 20 22 3B 00 6E 26 86 1F 8D 32 30 3A 81 49 B2 |? ";.n&...20:.I.|
00001E50: 31 A4 C3 28 58 24 29 3A 8B 43 24 B3 B1 CA 28 58 |1..(X$):.C$...(X|
00001E60: 24 2C 49 2C 31 29 A7 82 3A 89 38 30 37 30 00 7D |$,I,1)..:.8070.}|
00001E70: 26 8B 1F 49 B2 49 AB 31 3A 99 43 24 3B 00 99 26 |&..I.I.1:.C$;..&|
00001E80: 90 1F A1 57 24 3A 8B 57 24 B2 22 22 A7 99 22 A4 |...W$:.W$.""..".|
00001E90: 9D 22 3B 3A 89 38 30 38 30 00 AF 26 95 1F 99 22 |.";:.8080..&..."|
00001EA0: 20 9D 22 3B 3A 8B 57 24 B2 52 24 A7 99 3A 8E 00 | .";:.W$.R$..:..|
00001EB0: C8 26 9A 1F 8B 57 24 B2 C7 28 32 30 29 A7 99 57 |.&...W$..(20)..W|
00001EC0: 24 3B 3A 89 38 30 37 30 00 D2 26 9F 1F 89 38 30 |$;:.8070..&...80|
00001ED0: 38 30 00 ED 26 08 20 58 24 B2 22 22 3A 8F 20 49 |80..&. X$."":. I|
00001EE0: 4E 50 55 54 20 41 20 53 54 52 49 4E 47 00 FE 26 |NPUT A STRING..&|
00001EF0: 12 20 A1 43 24 3A 8B 43 24 89 38 32 31 30 00 16 |. .C$:.C$.8210..|
00001F00: 27 1C 20 8D 32 35 3A 8B 43 B2 31 33 B0 43 B2 39 |'. .25:.C.13.C.9|
00001F10: 32 89 38 32 39 30 00 45 27 26 20 8B 43 B2 32 30 |2.8290.E'& .C.20|
00001F20: AF 58 24 B1 22 22 A7 99 43 24 3B 3A 58 24 B2 C8 |.X$.""..C$;:X$..|
00001F30: 28 58 24 2C C3 28 58 24 29 AB 31 29 3A 8F 20 44 |(X$,.(X$).1):. D|
00001F40: 45 4C 45 54 45 00 65 27 30 20 8B 43 B2 32 30 89 |ELETE.e'0 .C.20.|
00001F50: 38 32 32 30 3A 8F 20 44 45 4C 45 54 45 20 4F 4E |8220:. DELETE ON|
00001F60: 20 4E 55 4C 4C 00 96 27 3A 20 8B 28 31 32 37 AF | NULL..': .(127.|
00001F70: 43 29 B3 33 32 89 38 32 32 30 3A 8F 20 43 55 52 |C).32.8220:. CUR|
00001F80: 53 4F 52 20 43 4F 4E 54 52 4F 4C 20 43 48 41 52 |SOR CONTROL CHAR|
00001F90: 41 43 54 45 52 53 00 AF 27 44 20 99 43 24 3B 3A |ACTERS..'D .C$;:|
00001FA0: 8B 43 B2 33 34 A7 99 43 24 C7 28 32 30 29 3B 00 |.C.34..C$.(20);.|
00001FB0: CA 27 4E 20 58 24 B2 58 24 AA 43 24 3A 8B C3 28 |.'N X$.X$.C$:..(|
00001FC0: 58 24 29 B3 4D 89 38 32 32 30 00 D0 27 62 20 8E |X$).M.8220..'b .|
00001FD0: 00 E7 27 FC 21 8F 20 51 55 49 54 20 54 48 45 20 |..'.!. QUIT THE |
00001FE0: 50 52 4F 47 52 41 4D 00 1D 28 10 22 99 22 93 11 |PROGRAM..(."."..|
00001FF0: D3 45 49 54 45 4E 56 4F 52 53 43 48 55 42 20 41 |.EITENVORSCHUB A|
00002000: 4D 20 C4 52 55 43 4B 45 52 20 20 20 20 22 3B 3A |M .RUCKER ";:|
00002010: 8D 38 30 35 30 3A 8B 49 89 38 37 34 30 00 45 28 |.8050:.I.8740.E(|
00002020: 1A 22 9F 31 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 |.".1,04:F.1:L..1|
00002030: 3A 8D 37 39 35 30 3A 8F 20 45 58 50 45 4C 20 41 |:.7950:. EXPEL A|
00002040: 20 50 41 47 45 00 5D 28 24 22 8B 4F 46 B2 30 B0 | PAGE.]($".OF.0.|
00002050: 54 24 28 30 29 B2 22 22 89 38 37 36 30 00 9E 28 |T$(0)."".8760..(|
00002060: 2E 22 99 22 11 C4 4F 4B 55 4D 45 4E 54 20 4E 49 |."."..OKUMENT NI|
00002070: 43 48 54 20 47 45 53 49 43 48 45 52 54 3B 20 53 |CHT GESICHERT; S|
00002080: 50 45 49 43 48 45 52 4E 22 3B 3A 8D 38 30 35 30 |PEICHERN";:.8050|
00002090: 3A 8B 49 B2 30 A7 A0 31 3A 8D 33 30 32 30 00 B5 |:.I.0..1:.3020..|
000020A0: 28 38 22 A0 31 3A 99 22 93 D4 53 43 48 55 45 53 |(8".1:."..SCHUES|
000020B0: 53 21 22 3A 80 00 DD 28 C4 22 9F 31 2C 30 34 3A |S!":...(.".1,04:|
000020C0: 46 B2 31 3A 4C B2 2E 31 3A 89 37 39 35 30 3A 8F |F.1:L..1:.7950:.|
000020D0: 20 45 58 50 45 4C 20 41 20 50 41 47 45 00 EE 28 | EXPEL A PAGE..(|
000020E0: 28 23 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 1E |(#. INITIALIZE..|
000020F0: 29 2D 23 4C 50 B2 37 32 3A 4C 30 B2 36 30 3A 4D |)-#LP.72:L0.60:M|
00002100: 30 B2 31 36 30 3A 51 24 B2 C7 28 31 34 31 29 3A |0.160:Q$..(141):|
00002110: 52 24 B2 C7 28 31 33 29 3A 4B 24 B2 22 A4 00 3D |R$..(13):K$."..=|
00002120: 29 32 23 56 B2 B5 28 28 B8 28 30 29 AB 32 30 30 |)2#V..((.(0).200|
00002130: 30 29 AD 4D 30 29 3A 86 54 24 28 56 29 00 7E 29 |0).M0):.T$(V).~)|
00002140: 3C 23 99 22 93 8E 13 13 0F 11 11 11 11 11 11 11 |<#."............|
00002150: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002160: 11 11 22 A6 33 39 29 22 8F 05 22 3A 97 35 39 34 |..".39)"..":.594|
00002170: 36 38 2C 31 34 3A 8F 20 46 4F 52 4D 41 54 00 B3 |68,14:. FORMAT..|
00002180: 29 41 23 97 35 33 32 37 32 2C 32 B0 C2 28 35 33 |)A#.53272,2..(53|
00002190: 32 37 32 29 3A 99 22 93 20 20 20 20 20 12 20 C3 |272):.". . .|
000021A0: 4F 4D 4D 4F 44 4F 52 45 20 D4 C5 D8 D4 20 36 34 |OMMODORE .... 64|
000021B0: 20 20 92 00 CE 29 43 23 8D 36 31 30 30 30 3A 20 | ...)C#.61000: |
000021C0: 8F 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 00 12 |. COLOR CHANGE..|
000021D0: 2A 46 23 99 22 11 12 CB 92 41 53 53 45 54 54 45 |*F#."....ASSETTE|
000021E0: 2C 20 12 C4 92 49 53 4B 45 54 54 45 20 4F 44 45 |, ...ISKETTE ODE|
000021F0: 52 20 12 42 92 45 49 44 45 53 22 3B 3A 58 24 B2 |R .B.EIDES";:X$.|
00002200: 22 44 4B 42 22 3A 8D 38 30 36 30 3A 43 46 B2 49 |"DKB":.8060:CF.I|
00002210: AA 31 00 3C 2A 50 23 42 24 B2 22 20 20 20 20 20 |.1.<*P#B$." |
00002220: 22 3A 81 49 B2 31 A4 35 3A 42 24 B2 42 24 AA 42 |":.I.1.5:B$.B$.B|
00002230: 24 3A 82 3A 9F 38 2C 30 38 2C 31 35 00 63 2A 55 |$:.:.8,08,15.c*U|
00002240: 23 99 22 11 D4 41 47 45 53 44 41 54 55 4D 20 20 |#."..AGESDATUM |
00002250: 3F 22 3A 4D B2 32 30 3A 8D 38 32 30 30 3A 44 24 |?":M.20:.8200:D$|
00002260: B2 58 24 00 7D 2A 5A 23 4B 24 B2 22 20 22 3A 8F |.X$.}*Z#K$." ":.|
00002270: 20 31 35 32 35 20 50 52 49 4E 54 45 52 00 AE 2A | 1525 PRINTER..*|
00002280: 64 23 8F 20 4B 24 3D 22 5F 22 3A 51 24 3D 52 24 |d#. K$="_":Q$=R$|
00002290: 2B 43 48 52 24 28 32 37 29 2B 22 0A 22 3A 52 45 |+CHR$(27)+".":RE|
000022A0: 4D 20 38 33 30 30 20 50 52 49 4E 54 45 52 00 C9 |M 8300 PRINTER..|
000022B0: 2A 78 23 81 49 B2 31 A4 37 3A 4B 24 B2 4B 24 AA |*x#.I.1.7:K$.K$.|
000022C0: 4B 24 3A 82 3A 89 31 30 30 00 D2 2A 8C 23 89 31 |K$:.:.100..*.#.1|
000022D0: 30 30 00 F1 2A 10 27 8F 20 4C 45 54 54 45 52 48 |00..*.'. LETTERH|
000022E0: 45 41 44 20 44 41 54 41 2C 20 44 45 4C 45 54 45 |EAD DATA, DELETE|
000022F0: 44 00 F9 2A 1A 27 83 22 22 00 01 2B 24 27 83 22 |D..*.'.""..+$'."|
00002300: 22 00 09 2B 2E 27 83 22 22 00 2E 2B 60 EA 99 51 |"..+.'.""..+`..Q|
00002310: 39 24 22 20 4E 49 43 48 54 20 47 45 46 55 4E 44 |9$" NICHT GEFUND|
00002320: 45 4E 22 3A 8D 38 30 30 30 3A 89 31 30 30 00 49 |EN":.8000:.100.I|
00002330: 2B 48 EE 8F 20 43 4F 4C 4F 52 20 43 48 41 4E 47 |+H.. COLOR CHANG|
00002340: 45 20 52 4F 55 54 49 4E 45 00 6D 2B 49 EE 96 A5 |E ROUTINE.m+I...|
00002350: 43 28 58 29 B2 C2 28 58 29 AA 31 AA 31 36 AC 28 |C(X)..(X).1.16.(|
00002360: 28 C2 28 58 29 AF 31 35 29 B2 31 35 29 00 93 2B |(.(X).15).15)..+|
00002370: 4A EE 99 3A 99 22 13 11 11 11 11 11 12 C6 31 92 |J..:."........1.|
00002380: 3D 20 C6 41 52 42 45 20 44 45 53 20 D2 41 4E 44 |= .ARBE DES .AND|
00002390: 45 53 22 00 B3 2B 4B EE 99 22 11 12 C6 33 92 3D |ES"..+K.."...3.=|
000023A0: 20 C8 49 4E 54 45 52 47 52 55 4E 44 2D C6 41 52 | .INTERGRUND-.AR|
000023B0: 42 45 22 00 D3 2B 4C EE 99 22 11 12 C6 35 92 3D |BE"..+L.."...5.=|
000023C0: 20 C6 41 52 42 45 20 44 45 52 20 DA 45 49 43 48 | .ARBE DER .EICH|
000023D0: 45 4E 22 00 EC 2B 4D EE 99 22 11 12 D2 C5 D4 D5 |EN"..+M.."......|
000023E0: D2 CE 92 3D 20 D7 45 49 54 45 52 22 00 FE 2B 52 |...= .EITER"..+R|
000023F0: EE A1 43 24 3A 8B 43 24 89 36 31 30 31 30 00 13 |..C$:.C$.61010..|
00002400: 2C 5C EE A1 43 24 3A 8B 43 24 B2 22 22 89 36 31 |,\..C$:.C$."".61|
00002410: 30 32 30 00 3A 2C 66 EE 43 B2 C6 28 43 24 29 3A |020.:,f.C..(C$):|
00002420: 8B 43 B2 31 33 35 A7 97 36 34 36 2C A5 43 28 36 |.C.135..646,.C(6|
00002430: 34 36 29 3A 89 36 31 30 30 32 00 66 2C 7A EE 43 |46):.61002.f,z.C|
00002440: B2 C6 28 43 24 29 3A 8B 43 B2 31 33 33 B0 43 B2 |..(C$):.C.133.C.|
00002450: 31 33 34 A7 58 B2 35 33 31 34 37 AA 43 3A 97 58 |134.X.53147.C:.X|
00002460: 2C A5 43 28 58 29 00 77 2C 84 EE 8B 43 B3 B1 31 |,.C(X).w,...C..1|
00002470: 33 89 36 31 30 31 30 00 7D 2C 8E EE 8E 00 00 00 |3.61010.},......|
00002480: 00 48 FF A0 58 8D |.H..X. |
.......G(14):.657,128:.788,52.'....9000.
N.... ********************************.U
.... *** (C) 1982 BY COMMODORE ***...
... *** BUSINESS MACHINES, INC. ***.C..
.. *** GEAENDERTE VERSION VON ***.....
. *** ALAN ARNOLD HAMBURG ***......
********************************. ....C
$:.C$.20.=....C$:.C$.." .";:C.F(C$):..L.
..."..";:.25.^....C$:.C$."".30... .X.F(C
$):C.X.127:.C.13.C.17.C.19.C.20.C.29.C.3
1....."..30...(.X$."".C.*..#1,C$:.C$.R$.
C$.G(141)...T.,.X$.X$.C$:.42...D.L.0:LL.
L0: 1:. ENTRY...N..". . COMMODORE T
EXT 64 ...,.X..,"FUNKTIONEN:..".P.}
..,".E.RSTELLEN EINES DOKUMENTES.T....,"
.S.PEICHERN EINES DOKUMENTES......,".A.U
FRUFEN EINES DOKUMENTES......,".D.RUCKEN
EINES DOKUMENTES......,".V.ERAENDERN EI
NES DOKUMENTES... ..,".G.LOBALES SUCHEN
UND TAUSCHEN.)....,".B.S-ANZEIGE EINES D
OKUMENTES.J....,".R.UNDSCHREIBEN ERSTELL
EN.`....,".P.ROGRAMMENDE.....X$."PBVGDSR
AE":.".WELCHE ";:.8060:.I.0.8700...C.J
.I:.J.4.250...H..".":. GET SUBJECT...R..
H$."".."DOKUMENT: ."H$:.".(RETURN LAESST
DEN NAMEN UNVERAENDERT).-...M.61:.".DOK
UMENT-NAME:":.8200:.C..13.200.@....:.X$.
"".H$.X$.O....H$."".200......J.7.T$(0)."
"..".KEIN DOKUMENT IM SPEICHER":.8000:.1
00......OF.0.J.7.T$(0)."".280......".DOK
UMENT NICHT GESPEICHERT ... SPEICHER LOE
SCHEN";:.8050:.I.100......J.400,1000,600
0,7000,3000,4000,2000,500...... READ TO
SCREEN.X...N.39:F.0:LL.20:TB$."":.1,3:.7
080:.100.V...OF.1:T.0:. WRITE NEW TEXT..
....".."H$:.:.".........................
.....................C$:.C$.510.....M.M0
:.I.T.V:T$(I)."":X$.""......8220:.C.13..
:.X$."".530.....T$(I).X$:.C..92.....&..I
.V..I.I.1.V:T$(I)."":..Y.X.T.0:L$."":.61
0:.100:. PACK THE STRINGS.T.B..:.I.T.V:.
T$(I)."".630...G.X$.T$(I):M.M0.C(L$):L$.
L$.H(X$,M).P.L.X$.J(X$,M.1):.C(L$).M0.T$
(T).L$:."*";:L$.X$:T.T.1.V.V........:T$(
T).L$:.T.V..I.T.1.V:T$(I)."":...........
.. EDIT THE TEXT.`....".WIEVIEL % TEXT U
EBERSPRINGEN (0-100) 0...";T:T..(T):.T.
99.T.100.|...OF.1:.I.0.V:.T$(I).""......
.I.I.1:T..(T.I.100..5).....L.0:.T.V.100.
....X$.T$(T):.X$."".1900...$.P$.H(H$,20)
:.T.P$.T$(T.1)......".."I(P$,20):.".".29
)".BLOCK"T.7.8..".......................
........................H.B..C$:.C$.1090
.A.L.. & SET CURSOR (A,D)...V.."..."H(X$
,L):."...".L)" .."J(X$,L.1,1)...J.."..."
.L.1)J(X$,L.2)H(B$,M0.C(X$)):."........3
0:.X.92.T$(T).X$:.600:. END......X.29.L.
L.(L.1.C(X$)):.1100:. CURSOR RIGHT.2.D..
C.29.L.L.(L.0):.1100:. CURSOR LEFT.D.N..
X.17.L.L.40.(L.40.C(X$)):.1100:. CURSOR
DOWN...X..C.17.L.L.40.(L.39):.1100:. CUR
SOR UP......X.19.L.0:.1100:. CURSOR HOME
......C.19..I.T.V.1:T$(I).T$(I.1):.:T$(V
)."":.1040:. CLEAR......X.13.T$(T).X$:T.
T.1:.1040:. NEXT BLOCK.G....C.13.T$(T).X
$:T.T.(T.0):.1040:. PRIOR BLOCK.Z....L..
C(X$).1100.~...L$.H(X$,L):.X.148.1350:.
INSERT.A...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.(.F.M$.J(X$,L.1):.".............
...."M$:."..."L$.F.K.."...".C(L$));:M.M0
:.8200.S.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.O.D.X
.T:T.T.1:.610:T.X:.1050...L.. ADD TO THE
END...V..T.0.600:. END.....X$.T$(T.1):.
"."X$:.".".C(X$));:.510.0.P.. INPUT FILE
.].U.Q9$."DOKUMENT": . FOR ERROR MSG IN
60000......CF.2..".VON DER DATASETTE";:.
8050......CF.2.(CF.2.I.0)..1,1,0,H$:.210
0.O....1,08,2,H(H$,16):.8,X,X$:.X.60000.
..4.OF.0:.40:.".LIEST : ."X$:H$.X$:.40:
.X$:.:. HEADER.-...X$.G(31):.I.0.V:L$.""
:. INPUT FILE.O....J.1.M0:.#1,C$:.ST.J.M
0:.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.T....302
0:.100:. OUTPUT FILE...L..CF.2..".AUF DA
TASETTE";:.8050...V..CF.2.(CF.3.I.0)..1,
1,1,H$:.3100.O...L$."0:".H(H$,16):.1,08,
2,L$:.8,X,X$: 1:.X.3080......".DOKUMENT
EXISTIERT - UEBERSCHREIBEN ";:.8050:.I.
.......8,"S"L$:.8,"I0.Q....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,"\";:..4. .. BATC
H PROCESSING.]...Q9$."FILE": . FOR ERROR
MSG IN 60000......".";:.CF.4100,4050:.
ELSE BOTH......"VON DATASETTE";:.8050:.I
.4100...R.. FROM CASSETTE.H....2,1:.4150
.X.... FROM DISC......".ADRESSEN 64: DAT
EI-NAME -...";X$:.X$."-".4110.2....2,08
,2,X$:.8,X,X$:.X. 2:.60000.K.6.. PREPARE
FOR OUTPUT.~.@.TB$."":S2.0:N.72:F.1:.1,
04:S$.".".H(B$,40.N.2)...J..".STANDARD-F
ORMAT";:.8050:.I..7500.H.H.. GET THE NAM
E AND SALUTATION...R..2,Z$:.ST.0.C(Z$).2
.4900:. NO LAST NAME.4.|.L$."":.7450:X$.
"":Y$."":M$."SEHR GEEHRTE DAMEN UND HERR
EN,".C....2,X$:.C(X$).2.X$."":.4250:. NO
FIRST NAME.....M$."LIEBE/R ".X$.",":X$.
X$." "......2,Y$:.C(Y$).2.Y$."":.4270:.
NO TITLE.U...Y$.Y$." ":M$."LIEBE/R ".Y$.
Z$.",.....L$.Y$.X$.Z$:.2,X$:.C(X$).2.L$.
L$.", ".X$.+...Z$.M$:M$."":P$.L$:.7900:.
PRINT NAME.=.L.. GET ADDRESS.E.V..2,L$:
.C(L$).1.P$.L$:.7900:. LINE 2......2,L$:
.C(L$).1.P$.L$:.7900:. LINE 3.A....2,L$:
.2,Y$:.C(Y$).1.L$.L$.", ".Y$:. STATE, ZI
P.Z....C(L$).1.P$.L$:.7900......I.L.14:.
7900:.:L$.Z$:P$.L$:.7090:.4200...$. 2:.1
00.+.P.. SEARCH AND REPLACE.H.Z.."..SUCH
EN NACH?":M.40:.8200:Z$.X$:L.C(X$):.L.0.
L.M.6010......:.".ERSETZEN DURCH?":.8200
:Y$.X$:.:......X$."":M$."":L$."":T.0:U.0
:F.0:OF.1.O.8.. ATTACH T$ TO X$...B..C(X
$)..L.6250...L..T.V.6400:. ALL T$'S READ
.%.V.X$.X$.T$(T):T$(T)."":T.T.1:.6200.<.
J.. SEARCH FOR MATCH.J.T..I.1.C(X$).L.1:
.J(X$,I,L)..Z$..:J.I:.6300...~.M$.Y$:J.I
.L:.".";...... SPLIT STRINGS.G...M$.H(X$
,I.1).M$:X$.J(X$,J):.6500:.F.6900:.6200.
Z.... STOW LAST L$......6500:.F.6900:. C
LEAR M$.#...M$.X$:.6500:.F.6900:. M$_X$;
CLEAR BOTH.Z....U..V.T.U:.650:.100:. ST
OW L$, CLEAR HIGHER BLOCKS.D.(..6900...D
.. CLEAR M$ - STOW L$ IF NEEDED...N.M.M0
.C(L$):L$.L$.H(M$,M):M$.J(M$,M.1):.C(L$)
.M0...L.X..U..V.6550......U.T.T$(U).L$:.
"*.";:U.U.1:L$.M$:M$."":..3....T.V..I.V.
T.1..1:T$(I).T$(I.1):.:T$(T)."":T.T.1:.6
530.=...F.1:..N.... ERROR EXIT.....:.".
OUT OF ROOM - DATA IMPAIRED":.8000:.100.
..X.. FORMAT AND PRINT...B..7020:.100...
L..1,04:F.1:. PRINTER...V.S2.1:N.60:TB$.
"":X$."FID":. DEFAULTS (DRAFT)."...."..F
.ORMAL, .I.NFORMAL, OR .D.RAFT";:.8060:J
.I.;....J.2.S2.0:N.72:.7500.F...S$.".".H
(B$,40.N.2):.J.0.7400:. FORMAL.....L$.".
".H$:P$.H$:M$.H(K$,C(H$)).....J.0:.".":.
7900:.7900:.J...Q...T.0:X$."]".TB$:E.0:Z
$.B$:. PRINT TEXT.. F..C(X$)..N.X$.X$.T$
(T):T.T.1:.C(X$)..N.T.V.X$.X$."\.8 K..F(
X$).32.X$.J(X$,2):.7110:. LEADING BLANKS
.I P..E.X$."[".X$.. Z.L$.H(X$,N.1):P$.L$
:J.0:K.0:M$.B$:.I.1.C(L$):C.F(J(L$,I))..
...C.90.C.96..7700:.X.I.J:.7160.. ...:.
I.C(L$).J.1..1:.J(L$,I,1)." "..:I.J:.J.0
.7990..!..J.0:X$.J(X$,I.1):L$.H(L$,I.1):
P$.H(P$,I.K):M$.H(M$,I.K).:!...C.94.C.95
.E.0:X$."]".TB$.X$.I! .X.C:.7900:.J.0.X.
94.X.92..7950:.J.0.X.92...S!*..7110..!..
. FORMAL..!..L$."":.7450:.".VIER ADRESS-
ZEILEN":M.N:.I.1.4..!..."ZEILE"I:.8200:.
:.C(X$).M..".ZU LANG ":.7420.."..P$.X$:.
7900:.:.7900:.7900.&"..."ANREDE ":.82
00:P$.X$:.7090.W"...:M$."":Y$.S$:.I.1.3:
.P$:.7490:.:P$.D$:.7490.R"...I.1.5:.7900
:.:S$.Y$:..."B.K.C(P$):S$.".".H(B$,40.K.
2):.7900.."L.. FORMAT VARIATIONS.X"V..".
STANDARD-FORMAT:":.," EIN-ZEILIG..#`..,N
"ZEICHEN PRO ZEILE ":.,LL"ZEILEN PRO SE
ITE.'#J..," TAB-LAENGE ="C(TB$).T#T..".M
OECHTEN SIE ES AENDERN ";:.8050:.I...U#~
..".EIN-ZEILIG ";:.8050:S2.I..#...".ZEI
CHEN PRO ZEILE (20-80) 72 .....";N..#
...N.20.N.80.."..":.7560..#...".ZEILEN P
RO SEITE "LL". ......";:.LL:.LL.1..".."
:.7580.9$...".LAENGE DER TAB.";:X$."0123
456789":.8060:TB$.H(B$,I).?$....Q$... EN
HANCEMENT..$(.K.K.1:X.1:J.I:.C.91.C.93.X
.0:E.(C.91):Z$.B$:Y$.".":.E.Z$.K$:Y$."..
.$2.L$.H(L$,I.1).Y$.J(L$,I.1)..$F.P$.H(P
$,I.K).J(L$,I.1):M$.H(M$,I.K).J(Z$,I.1):
...$... LINE OUT..%...P$."".P$.S$.P$.'%.
..L$;:.7930:.J.0.S2.0...I%...F..:.1,P$;:
.M$.B$..1,Q$S$M$;.P%...1:P$."":L$."":M$.
"":L.L.1:.L.LL....%...F.0..8000:L.0:...%
...L..I.L.LP.1:.1:.:L.0:. PAGE WITH BLAN
KS..%"..".":...%6.J.1:.".ZEILE FUER DRUC
K ZU LANG":.7950:...%@.. UTILITIES..&J..
".. WEITER MIT BELIEBIGER TASTE";:.20:.:
.".":..9&R.X$."JN.D&|.."? ";.N&...20:.I.
1.C(X$):.C$..J(X$,I,1)..:.8070.}&..I.I.1
:.C$;..&...W$:.W$."".."..";:.8080..&..."
.";:.W$.R$..:..H&...W$.G(20)..W$;:.8070
.R&...8080..&. X$."":. INPUT A STRING..&
. .C$:.C$.8210..'. .25:.C.13.C.92.8290.E
'& .C.20.X$.""..C$;:X$.H(X$,C(X$).1):. D
ELETE.E'0 .C.20.8220:. DELETE ON NULL..'
: .(127.C).32.8220:. CURSOR CONTROL CHAR
ACTERS..'D .C$;:.C.34..C$G(20);.J'N X$.X
$.C$:.C(X$).M.8220.P'B ...'.!. QUIT THE
PROGRAM..(."."..SEITENVORSCHUB AM DRUCKE
R ";:.8050:.I.8740.E(.".1,04:F.1:L..1
:.7950:. EXPEL A PAGE.]($".OF.0.T$(0).""
.8760..(.".".DOKUMENT NICHT GESICHERT; S
PEICHERN";:.8050:.I.0. 1:.3020..(8" 1:."
.TSCHUESS!":...(D".1,04:F.1:L..1:.7950:.
EXPEL A PAGE..((#. INITIALIZE..)-#LP.72
:L0.60:M0.160:Q$.G(141):R$.G(13):K$."..=
)2#V..((.(0).2000).M0):.T$(V).~)<#."....
..........................".39)"..":.594
68,14:. FORMAT..)A#.53272,2.B(53272):.".
. COMMODORE TEXT 64 ..N)C#.61000:
. COLOR CHANGE..*F#."..K.ASSETTE, .D.ISK
ETTE ODER .B.EIDES";:X$."DKB":.8060:CF.I
.1.<*P#B$." ":.I.1.5:B$.B$.B$:.:.8,0
8,15.C*U#.".TAGESDATUM ?":M.20:.8200:D$
.X$.}*Z#K$." ":. 1525 PRINTER..*D#. K$="
_":Q$=R$+CHR$(27)+".":REM 8300 PRINTER.I
*X#.I.1.7:K$.K$.K$:.:.100.R*.#.100..*.'.
LETTERHEAD DATA, DELETED..*.'.""..+$'."
"..+.'.""..+`..Q9$" NICHT GEFUNDEN":.800
0:.100.I+H.. COLOR CHANGE ROUTINE.M+I...
C(X).B(X).1.16.((B(X).15).15)..+J..:."..
.....F1.= FARBE DES RANDES"..+K.."..F3.=
HINTERGRUND-FARBE".S+L.."..F5.= FARBE D
ER ZEICHEN"..+M.."..RETURN.= WEITER"..+R
..C$:.C$.61010..,\..C$:.C$."".61020.:,F.
C.F(C$):.C.135..646,.C(646):.61002.F,Z.C
.F(C$):.C.133.C.134.X.53147.C:.X,.C(X).W
,...C..13.61010.},.......H. X.
> CLICK IMAGE PREVIEW FOR FULL MODAL