TEXT-64
FILE INFORMATION
FILENAME(S): TEXT-64
FILE TYPE(S): PRG
FILE SIZE: 8.7K
FIRST SEEN: 2025-12-02 00:01:54
APPEARS ON: 1 disk(s)
FILE HASH
ddb09881bebb7ac6a07c73eaec294e50f4160d9216e18b3323db9e057de752ba
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | TEXT-64 | PRG | earthshaker | 14 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 01 00 8F 20 54 45 58 54 20 36 34 00 |....... TEXT 64.|
00000010: 2B 08 02 00 99 C7 28 31 34 29 3A 97 36 35 37 2C |+.....(14):.657,|
00000020: 31 32 38 3A 97 37 38 38 2C 35 32 00 34 08 03 00 |128:.788,52.4...|
00000030: 89 32 34 30 00 42 08 04 00 A1 43 24 3A 8B 43 24 |.240.B....C$:.C$|
00000040: 89 34 00 5F 08 05 00 A1 43 24 3A 8B 43 24 A7 99 |.4._....C$:.C$..|
00000050: 22 20 9D 22 3B 3A 43 B2 C6 28 43 24 29 3A 8E 00 |" .";:C..(C$):..|
00000060: 6D 08 06 00 99 22 A4 9D 22 3B 3A 89 35 00 7E 08 |m...."..";:.5.~.|
00000070: 07 00 A1 43 24 3A 8B 43 24 B2 22 22 89 37 00 B3 |...C$:.C$."".7..|
00000080: 08 08 00 58 B2 C6 28 43 24 29 3A 43 B2 58 AF 31 |...X..(C$):C.X.1|
00000090: 32 37 3A 8B 43 B2 31 33 B0 43 B2 31 37 B0 43 B2 |27:.C.13.C.17.C.|
000000A0: 31 39 B0 43 B2 32 30 B0 43 B2 32 39 B0 43 B1 33 |19.C.20.C.29.C.3|
000000B0: 31 A7 8E 00 BA 08 09 00 89 37 00 C4 08 0A 00 58 |1........7.....X|
000000C0: 24 B2 22 22 00 E2 08 0B 00 A1 23 31 2C 43 24 3A |$.""......#1,C$:|
000000D0: 8B 43 24 B2 52 24 B0 43 24 B2 C7 28 31 34 31 29 |.C$.R$.C$..(141)|
000000E0: A7 8E 00 F3 08 0C 00 58 24 B2 58 24 AA 43 24 3A |.......X$.X$.C$:|
000000F0: 89 31 31 00 0C 09 0D 00 4C B2 30 3A 4C 4C B2 4C |.11.....L.0:LL.L|
00000100: 30 3A A0 31 3A 8F 20 45 4E 54 52 59 00 37 09 0E |0:.1:. ENTRY.7..|
00000110: 00 99 22 93 20 20 20 20 20 20 12 20 20 20 20 20 |..". . |
00000120: 20 20 20 20 D4 C5 D8 D4 20 36 34 20 20 20 20 20 | .... 64 |
00000130: 20 20 20 20 20 11 11 00 4D 09 0F 00 99 2C 22 C6 | ...M....,".|
00000140: 55 4E 4B 54 49 4F 4E 45 4E 3A 11 11 22 00 71 09 |UNKTIONEN:..".q.|
00000150: 10 00 99 2C 22 12 C5 92 52 53 54 45 4C 4C 45 4E |...,"...RSTELLEN|
00000160: 20 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 | EINES .OKUMENTE|
00000170: 53 00 95 09 11 00 99 2C 22 12 D3 92 50 45 49 43 |S......,"...PEIC|
00000180: 48 45 52 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D |HERN EINES .OKUM|
00000190: 45 4E 54 45 53 00 B8 09 12 00 99 2C 22 12 C1 92 |ENTES......,"...|
000001A0: 55 46 52 55 46 45 4E 20 45 49 4E 45 53 20 C4 4F |UFRUFEN EINES .O|
000001B0: 4B 55 4D 45 4E 54 45 53 00 DA 09 13 00 99 2C 22 |KUMENTES......,"|
000001C0: 12 C4 92 52 55 43 4B 45 4E 20 45 49 4E 45 53 20 |...RUCKEN EINES |
000001D0: C4 4F 4B 55 4D 45 4E 54 45 53 00 FF 09 14 00 99 |.OKUMENTES......|
000001E0: 2C 22 12 D6 92 45 52 41 45 4E 44 45 52 4E 20 45 |,"...ERAENDERN E|
000001F0: 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 |INES .OKUMENTES.|
00000200: 25 0A 15 00 99 2C 22 12 C7 92 4C 4F 42 41 4C 45 |%....,"...LOBALE|
00000210: 53 20 D3 55 43 48 45 4E 20 55 4E 44 20 D4 41 55 |S .UCHEN UND .AU|
00000220: 53 43 48 45 4E 00 4A 0A 16 00 99 2C 22 12 C2 92 |SCHEN.J....,"...|
00000230: D3 2D C1 4E 5A 45 49 47 45 20 45 49 4E 45 53 20 |.-.NZEIGE EINES |
00000240: C4 4F 4B 55 4D 45 4E 54 45 53 00 6B 0A 17 00 99 |.OKUMENTES.k....|
00000250: 2C 22 12 D2 92 55 4E 44 53 43 48 52 45 49 42 45 |,"...UNDSCHREIBE|
00000260: 4E 20 C5 52 53 54 45 4C 4C 45 4E 00 81 0A 18 00 |N .RSTELLEN.....|
00000270: 99 2C 22 12 D0 92 52 4F 47 52 41 4D 4D 45 4E 44 |.,"...ROGRAMMEND|
00000280: 45 00 B1 0A 19 00 58 24 B2 22 50 42 56 47 44 53 |E.....X$."PBVGDS|
00000290: 52 41 45 22 3A 99 22 11 D7 45 4C 43 48 45 20 20 |RAE":."..ELCHE |
000002A0: 20 22 3B 3A 8D 32 31 37 3A 8B 49 B2 30 89 32 33 | ";:.217:.I.0.23|
000002B0: 33 00 C1 0A 1A 00 4A B2 49 3A 8B 4A B3 34 89 33 |3.....J.I:.J.4.3|
000002C0: 32 00 D8 0A 1B 00 99 22 93 22 3A 8F 20 47 45 54 |2......".":. GET|
000002D0: 20 53 55 42 4A 45 43 54 00 1E 0B 1C 00 8B 48 24 | SUBJECT......H$|
000002E0: B1 22 22 A7 99 22 C4 4F 4B 55 4D 45 4E 54 3A 20 |.""..".OKUMENT: |
000002F0: 12 22 48 24 3A 99 22 11 28 D2 C5 D4 D5 D2 CE 20 |."H$:.".(...... |
00000300: 4C 41 45 53 53 54 20 44 45 4E 20 CE 41 4D 45 4E |LAESST DEN .AMEN|
00000310: 20 55 4E 56 45 52 41 45 4E 44 45 52 54 29 00 49 | UNVERAENDERT).I|
00000320: 0B 1D 00 4D B2 36 31 3A 99 22 11 C4 4F 4B 55 4D |...M.61:."..OKUM|
00000330: 45 4E 54 2D CE 41 4D 45 3A 22 3A 8D 32 32 34 3A |ENT-.AME:":.224:|
00000340: 8B 43 B3 B1 31 33 89 32 37 00 5C 0B 1E 00 99 3A |.C..13.27.\....:|
00000350: 8B 58 24 B1 22 22 A7 48 24 B2 58 24 00 6A 0B 1F |.X$."".H$.X$.j..|
00000360: 00 8B 48 24 B2 22 22 89 32 37 00 A3 0B 20 00 8B |..H$."".27... ..|
00000370: 4A B3 37 AF 54 24 28 30 29 B2 22 22 A7 99 22 11 |J.7.T$(0).""..".|
00000380: CB 45 49 4E 20 C4 4F 4B 55 4D 45 4E 54 20 49 4D |.EIN .OKUMENT IM|
00000390: 20 D3 50 45 49 43 48 45 52 22 3A 8D 32 31 34 3A | .PEICHER":.214:|
000003A0: 89 31 33 00 BD 0B 21 00 8B 4F 46 B2 30 B0 4A B3 |.13...!..OF.0.J.|
000003B0: 37 B0 54 24 28 30 29 B2 22 22 89 33 35 00 02 0C |7.T$(0)."".35...|
000003C0: 22 00 99 22 11 C4 4F 4B 55 4D 45 4E 54 20 4E 49 |".."..OKUMENT NI|
000003D0: 43 48 54 20 47 45 53 50 45 49 43 48 45 52 54 20 |CHT GESPEICHERT |
000003E0: 2E 2E 2E 20 D3 50 45 49 43 48 45 52 20 4C 4F 45 |... .PEICHER LOE|
000003F0: 53 43 48 45 4E 22 3B 3A 8D 32 31 36 3A 8B 49 89 |SCHEN";:.216:.I.|
00000400: 31 33 00 24 0C 23 00 91 4A 89 33 36 2C 35 32 2C |13.$.#..J.36,52,|
00000410: 31 33 36 2C 31 36 32 2C 39 38 2C 31 30 38 2C 38 |136,162,98,108,8|
00000420: 37 2C 33 38 00 39 0C 24 00 8F 20 52 45 41 44 20 |7,38.9.$.. READ |
00000430: 54 4F 20 53 43 52 45 45 4E 00 61 0C 25 00 4E B2 |TO SCREEN.a.%.N.|
00000440: 33 39 3A 46 B2 30 3A 4C 4C B2 32 30 3A 54 42 24 |39:F.0:LL.20:TB$|
00000450: B2 22 22 3A 9F 31 2C 33 3A 8D 31 36 39 3A 89 31 |."":.1,3:.169:.1|
00000460: 33 00 7F 0C 26 00 4F 46 B2 31 3A 54 B2 30 3A 8F |3...&.OF.1:T.0:.|
00000470: 20 57 52 49 54 45 20 4E 45 57 20 54 45 58 54 00 | WRITE NEW TEXT.|
00000480: B8 0C 27 00 99 22 93 12 22 48 24 3A 99 3A 99 22 |..'..".."H$:.:."|
00000490: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004A0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004B0: A4 A4 A4 A4 A4 A4 A4 A4 00 C7 0C 28 00 A1 43 24 |...........(..C$|
000004C0: 3A 8B 43 24 89 34 30 00 E6 0C 29 00 4D B2 4D 30 |:.C$.40...).M.M0|
000004D0: 3A 81 49 B2 54 A4 56 3A 54 24 28 49 29 B2 22 22 |:.I.T.V:T$(I).""|
000004E0: 3A 58 24 B2 22 22 00 01 0D 2A 00 8D 32 32 36 3A |:X$.""...*..226:|
000004F0: 8B 43 B2 31 33 A7 99 3A 8B 58 24 B2 22 22 89 34 |.C.13..:.X$."".4|
00000500: 32 00 17 0D 2B 00 54 24 28 49 29 B2 58 24 3A 8B |2...+.T$(I).X$:.|
00000510: 43 B3 B1 39 32 A7 82 00 34 0D 2C 00 8B 49 B3 56 |C..92...4.,..I.V|
00000520: A7 81 49 B2 49 AA 31 A4 56 3A 54 24 28 49 29 B2 |..I.I.1.V:T$(I).|
00000530: 22 22 3A 82 00 5D 0D 2D 00 54 B2 30 3A 4C 24 B2 |"":..].-.T.0:L$.|
00000540: 22 22 3A 8D 34 36 3A 89 31 33 3A 8F 20 50 41 43 |"":.46:.13:. PAC|
00000550: 4B 20 54 48 45 20 53 54 52 49 4E 47 53 00 77 0D |K THE STRINGS.w.|
00000560: 2E 00 99 3A 81 49 B2 54 A4 56 3A 8B 54 24 28 49 |...:.I.T.V:.T$(I|
00000570: 29 B2 22 22 89 34 39 00 9D 0D 2F 00 58 24 B2 54 |)."".49.../.X$.T|
00000580: 24 28 49 29 3A 4D B2 4D 30 AB C3 28 4C 24 29 3A |$(I):M.M0..(L$):|
00000590: 4C 24 B2 4C 24 AA C8 28 58 24 2C 4D 29 00 D3 0D |L$.L$..(X$,M)...|
000005A0: 30 00 58 24 B2 CA 28 58 24 2C 4D AA 31 29 3A 8B |0.X$..(X$,M.1):.|
000005B0: C3 28 4C 24 29 B2 4D 30 A7 54 24 28 54 29 B2 4C |.(L$).M0.T$(T).L|
000005C0: 24 3A 99 22 2A 22 3B 3A 4C 24 B2 58 24 3A 54 B2 |$:."*";:L$.X$:T.|
000005D0: 54 AA 31 00 D9 0D 31 00 82 00 01 0E 32 00 99 3A |T.1...1.....2..:|
000005E0: 54 24 28 54 29 B2 4C 24 3A 8B 54 B3 56 A7 81 49 |T$(T).L$:.T.V..I|
000005F0: B2 54 AA 31 A4 56 3A 54 24 28 49 29 B2 22 22 3A |.T.1.V:T$(I)."":|
00000600: 82 00 07 0E 33 00 8E 00 1B 0E 34 00 8F 20 45 44 |....3.....4.. ED|
00000610: 49 54 20 54 48 45 20 54 45 58 54 00 63 0E 35 00 |IT THE TEXT.c.5.|
00000620: 85 22 93 D7 49 45 56 49 45 4C 20 25 20 D4 45 58 |."..IEVIEL % .EX|
00000630: 54 20 55 45 42 45 52 53 50 52 49 4E 47 45 4E 20 |T UEBERSPRINGEN |
00000640: 28 30 2D 31 30 30 29 20 20 30 9D 9D 9D 22 3B 54 |(0-100) 0...";T|
00000650: 3A 54 B2 B6 28 54 29 3A 8B 54 B1 39 39 A7 54 B2 |:T..(T):.T.99.T.|
00000660: 31 30 30 00 7F 0E 36 00 4F 46 B2 31 3A 81 49 B2 |100...6.OF.1:.I.|
00000670: 30 A4 56 3A 8B 54 24 28 49 29 B1 22 22 A7 82 00 |0.V:.T$(I).""...|
00000680: 99 0E 37 00 49 B2 49 AB 31 3A 54 B2 B5 28 54 AC |..7.I.I.1:T..(T.|
00000690: 49 AD 31 30 30 AA 2E 35 29 00 A9 0E 38 00 4C B2 |I.100..5)...8.L.|
000006A0: 30 3A 8B 54 B1 56 89 31 33 00 C0 0E 39 00 58 24 |0:.T.V.13...9.X$|
000006B0: B2 54 24 28 54 29 3A 8B 58 24 B2 22 22 89 38 34 |.T$(T):.X$."".84|
000006C0: 00 DE 0E 3A 00 50 24 B2 C8 28 48 24 2C 32 30 29 |...:.P$..(H$,20)|
000006D0: 3A 8B 54 A7 50 24 B2 54 24 28 54 AB 31 29 00 02 |:.T.P$.T$(T.1)..|
000006E0: 0F 3B 00 99 22 93 12 22 C9 28 50 24 2C 32 30 29 |.;.."..".(P$,20)|
000006F0: 3A 99 22 13 22 A6 32 39 29 22 92 C2 4C 4F 43 4B |:.".".29)"..LOCK|
00000700: 22 54 00 37 0F 3C 00 99 22 11 11 11 11 11 11 A4 |"T.7.<..".......|
00000710: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000720: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000730: A4 A4 A4 A4 A4 A4 A4 00 46 0F 3D 00 A1 43 24 3A |........F.=..C$:|
00000740: 8B 43 24 89 36 31 00 5F 0F 3E 00 8F 20 26 20 53 |.C$.61._.>.. & S|
00000750: 45 54 20 43 55 52 53 4F 52 20 28 41 2C 44 29 00 |ET CURSOR (A,D).|
00000760: 8B 0F 3F 00 99 22 13 11 11 22 C8 28 58 24 2C 4C |..?.."...".(X$,L|
00000770: 29 3A 99 22 13 11 11 22 A6 4C 29 22 20 9D 12 22 |):."...".L)" .."|
00000780: CA 28 58 24 2C 4C AA 31 2C 31 29 00 B7 0F 40 00 |.(X$,L.1,1)...@.|
00000790: 99 22 13 11 11 22 A6 4C AA 31 29 CA 28 58 24 2C |."...".L.1).(X$,|
000007A0: 4C AA 32 29 C8 28 42 24 2C 4D 30 AB C3 28 58 24 |L.2).(B$,M0..(X$|
000007B0: 29 29 3A 99 22 11 11 00 D7 0F 41 00 8D 37 3A 8B |)):.".....A..7:.|
000007C0: 58 B2 39 32 A7 54 24 28 54 29 B2 58 24 3A 89 34 |X.92.T$(T).X$:.4|
000007D0: 35 3A 8F 20 45 4E 44 00 04 10 42 00 8B 58 B2 32 |5:. END...B..X.2|
000007E0: 39 A7 4C B2 4C AB 28 4C AA 31 B3 C3 28 58 24 29 |9.L.L.(L.1..(X$)|
000007F0: 29 3A 89 36 32 3A 8F 20 43 55 52 53 4F 52 20 52 |):.62:. CURSOR R|
00000800: 49 47 48 54 00 2A 10 43 00 8B 43 B2 32 39 A7 4C |IGHT.*.C..C.29.L|
00000810: B2 4C AA 28 4C B1 30 29 3A 89 36 32 3A 8F 20 43 |.L.(L.0):.62:. C|
00000820: 55 52 53 4F 52 20 4C 45 46 54 00 5A 10 44 00 8B |URSOR LEFT.Z.D..|
00000830: 58 B2 31 37 A7 4C B2 4C AB 34 30 AC 28 4C AA 34 |X.17.L.L.40.(L.4|
00000840: 30 B3 C3 28 58 24 29 29 3A 89 36 32 3A 8F 20 43 |0..(X$)):.62:. C|
00000850: 55 52 53 4F 52 20 44 4F 57 4E 00 82 10 45 00 8B |URSOR DOWN...E..|
00000860: 43 B2 31 37 A7 4C B2 4C AA 34 30 AC 28 4C B1 33 |C.17.L.L.40.(L.3|
00000870: 39 29 3A 89 36 32 3A 8F 20 43 55 52 53 4F 52 20 |9):.62:. CURSOR |
00000880: 55 50 00 A2 10 46 00 8B 58 B2 31 39 A7 4C B2 30 |UP...F..X.19.L.0|
00000890: 3A 89 36 32 3A 8F 20 43 55 52 53 4F 52 20 48 4F |:.62:. CURSOR HO|
000008A0: 4D 45 00 DA 10 47 00 8B 43 B2 31 39 A7 81 49 B2 |ME...G..C.19..I.|
000008B0: 54 A4 56 AB 31 3A 54 24 28 49 29 B2 54 24 28 49 |T.V.1:T$(I).T$(I|
000008C0: AA 31 29 3A 82 3A 54 24 28 56 29 B2 22 22 3A 89 |.1):.:T$(V)."":.|
000008D0: 35 36 3A 8F 20 43 4C 45 41 52 00 04 11 48 00 8B |56:. CLEAR...H..|
000008E0: 58 B2 31 33 A7 54 24 28 54 29 B2 58 24 3A 54 B2 |X.13.T$(T).X$:T.|
000008F0: 54 AA 31 3A 89 35 36 3A 8F 20 4E 45 58 54 20 42 |T.1:.56:. NEXT B|
00000900: 4C 4F 43 4B 00 33 11 49 00 8B 43 B2 31 33 A7 54 |LOCK.3.I..C.13.T|
00000910: 24 28 54 29 B2 58 24 3A 54 B2 54 AA 28 54 B1 30 |$(T).X$:T.T.(T.0|
00000920: 29 3A 89 35 36 3A 8F 20 50 52 49 4F 52 20 42 4C |):.56:. PRIOR BL|
00000930: 4F 43 4B 00 44 11 4A 00 8B 4C B1 B2 C3 28 58 24 |OCK.D.J..L...(X$|
00000940: 29 89 36 32 00 66 11 4B 00 4C 24 B2 C8 28 58 24 |).62.f.K.L$..(X$|
00000950: 2C 4C 29 3A 8B 58 B2 31 34 38 89 37 39 3A 8F 20 |,L):.X.148.79:. |
00000960: 49 4E 53 45 52 54 00 A7 11 4C 00 4D 24 B2 CA 28 |INSERT...L.M$..(|
00000970: 58 24 2C 4C AA 32 29 3A 8B 43 B3 B1 32 30 A7 58 |X$,L.2):.C..20.X|
00000980: 24 B2 4C 24 AA 43 24 AA 4D 24 3A 58 B2 32 39 3A |$.L$.C$.M$:X.29:|
00000990: 89 36 36 3A 8F 20 52 45 50 4C 41 43 45 20 43 48 |.66:. REPLACE CH|
000009A0: 41 52 41 43 54 45 52 00 D1 11 4D 00 58 24 B2 4C |ARACTER...M.X$.L|
000009B0: 24 AA 4D 24 3A 8B 58 24 B2 22 22 A7 43 B2 31 39 |$.M$:.X$."".C.19|
000009C0: 3A 89 37 31 3A 8F 20 4E 55 4C 4C 20 42 4C 4F 43 |:.71:. NULL BLOC|
000009D0: 4B 00 D9 11 4E 00 89 36 32 00 0A 12 4F 00 4D 24 |K...N..62...O.M$|
000009E0: B2 CA 28 58 24 2C 4C AA 31 29 3A 99 22 93 11 11 |..(X$,L.1):."...|
000009F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 22 4D |.............."M|
00000A00: 24 3A 99 22 13 11 11 22 4C 24 00 27 12 50 00 99 |$:."..."L$.'.P..|
00000A10: 22 13 11 11 22 A3 C3 28 4C 24 29 29 3B 3A 4D B2 |"..."..(L$));:M.|
00000A20: 4D 30 3A 8D 32 32 34 00 54 12 51 00 4D B2 4D 30 |M0:.224.T.Q.M.M0|
00000A30: AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 58 |..(L$):L$.L$..(X|
00000A40: 24 2C 4D 29 3A 4D 24 B2 CA 28 58 24 2C 4D AA 31 |$,M):M$..(X$,M.1|
00000A50: 29 AA 4D 24 00 91 12 52 00 4D B2 4D 30 AB C3 28 |).M$...R.M.M0..(|
00000A60: 4C 24 29 3A 54 24 28 54 29 B2 4C 24 AA C8 28 4D |L$):T$(T).L$..(M|
00000A70: 24 2C 4D 29 3A 4C 24 B2 CA 28 4D 24 2C 4D AA 31 |$,M):L$..(M$,M.1|
00000A80: 29 3A 4D 24 B2 22 22 3A 8B 4C 24 B2 22 22 89 35 |):M$."":.L$."".5|
00000A90: 37 00 AB 12 53 00 58 B2 54 3A 54 B2 54 AA 31 3A |7...S.X.T:T.T.1:|
00000AA0: 8D 34 36 3A 54 B2 58 3A 89 35 37 00 C0 12 54 00 |.46:T.X:.57...T.|
00000AB0: 8F 20 41 44 44 20 54 4F 20 54 48 45 20 45 4E 44 |. ADD TO THE END|
00000AC0: 00 D2 12 55 00 8B 54 B2 30 89 34 35 3A 8F 20 45 |...U..T.0.45:. E|
00000AD0: 4E 44 00 F9 12 56 00 58 24 B2 54 24 28 54 AB 31 |ND...V.X$.T$(T.1|
00000AE0: 29 3A 99 22 93 22 58 24 3A 99 22 13 22 A6 C3 28 |):."."X$:."."..(|
00000AF0: 58 24 29 29 3B 3A 89 34 30 00 0A 13 57 00 8F 20 |X$));:.40...W.. |
00000B00: 49 4E 50 55 54 20 46 49 4C 45 00 36 13 58 00 51 |INPUT FILE.6.X.Q|
00000B10: 39 24 B2 22 C4 4F 4B 55 4D 45 4E 54 22 3A 8F 20 |9$.".OKUMENT":. |
00000B20: 46 4F 52 20 45 52 52 4F 52 20 4D 53 47 20 49 4E |FOR ERROR MSG IN|
00000B30: 20 36 30 30 30 30 00 5C 13 59 00 8B 43 46 B1 32 | 60000.\.Y..CF.2|
00000B40: A7 99 22 11 D6 4F 4E 20 44 45 52 20 C4 41 54 41 |.."..ON DER .ATA|
00000B50: 53 45 54 54 45 22 3B 3A 8D 32 31 36 00 7F 13 5A |SETTE";:.216...Z|
00000B60: 00 8B 43 46 B2 32 B0 28 43 46 B1 32 AF 49 B2 30 |..CF.2.(CF.2.I.0|
00000B70: 29 A7 9F 31 2C 31 2C 30 2C 48 24 3A 89 39 32 00 |)..1,1,0,H$:.92.|
00000B80: A3 13 5B 00 9F 31 2C 30 38 2C 32 2C C8 28 48 24 |..[..1,08,2,.(H$|
00000B90: 2C 31 36 29 3A 84 38 2C 58 2C 58 24 3A 8B 58 89 |,16):.8,X,X$:.X.|
00000BA0: 32 35 37 00 DA 13 5C 00 4F 46 B2 30 3A 8D 31 30 |257...\.OF.0:.10|
00000BB0: 3A 99 22 11 CC 49 45 53 54 20 20 3A 20 12 22 58 |:."..IEST : ."X|
00000BC0: 24 3A 48 24 B2 58 24 3A 8D 31 30 3A 99 58 24 3A |$:H$.X$:.10:.X$:|
00000BD0: 99 3A 8F 20 48 45 41 44 45 52 00 01 14 5D 00 58 |.:. HEADER...].X|
00000BE0: 24 B2 C7 28 33 31 29 3A 81 49 B2 30 A4 56 3A 4C |$..(31):.I.0.V:L|
00000BF0: 24 B2 22 22 3A 8F 20 49 4E 50 55 54 20 46 49 4C |$."":. INPUT FIL|
00000C00: 45 00 21 14 5E 00 81 4A B2 31 A4 4D 30 3A A1 23 |E.!.^..J.1.M0:.#|
00000C10: 31 2C 43 24 3A 8B 53 54 A7 4A B2 4D 30 3A 89 39 |1,C$:.ST.J.M0:.9|
00000C20: 36 00 4D 14 5F 00 8B 43 24 B1 58 24 A7 4C 24 B2 |6.M._..C$.X$.L$.|
00000C30: 4C 24 AA 43 24 3A 8F 20 4F 4E 4C 59 20 4C 45 47 |L$.C$:. ONLY LEG|
00000C40: 41 4C 20 43 48 41 52 41 43 54 45 52 53 00 71 14 |AL CHARACTERS.q.|
00000C50: 60 00 82 4A 3A 54 24 28 49 29 B2 4C 24 3A 99 4C |`..J:T$(I).L$:.L|
00000C60: 24 3B 3A 8B 53 54 B2 30 A7 82 49 3A 49 B2 49 AB |$;:.ST.0..I:I.I.|
00000C70: 31 00 86 14 61 00 54 B2 49 3A 8D 35 30 3A 8D 32 |1...a.T.I:.50:.2|
00000C80: 31 34 3A 89 31 33 00 A0 14 62 00 8D 39 39 3A 89 |14:.13...b..99:.|
00000C90: 31 33 3A 8F 20 4F 55 54 50 55 54 20 46 49 4C 45 |13:. OUTPUT FILE|
00000CA0: 00 C2 14 63 00 8B 43 46 B1 32 A7 99 22 93 C1 55 |...c..CF.2.."..U|
00000CB0: 46 20 C4 41 54 41 53 45 54 54 45 22 3B 3A 8D 32 |F .ATASETTE";:.2|
00000CC0: 31 36 00 E6 14 64 00 8B 43 46 B2 32 B0 28 43 46 |16...d..CF.2.(CF|
00000CD0: B2 33 AF 49 B2 30 29 A7 9F 31 2C 31 2C 31 2C 48 |.3.I.0)..1,1,1,H|
00000CE0: 24 3A 89 31 30 35 00 18 15 65 00 4C 24 B2 22 30 |$:.105...e.L$."0|
00000CF0: 3A 22 AA C8 28 48 24 2C 31 36 29 3A 9F 31 2C 30 |:"..(H$,16):.1,0|
00000D00: 38 2C 32 2C 4C 24 3A 84 38 2C 58 2C 58 24 3A A0 |8,2,L$:.8,X,X$:.|
00000D10: 31 3A 8B 58 89 31 30 34 00 51 15 66 00 99 22 11 |1:.X.104.Q.f..".|
00000D20: C4 4F 4B 55 4D 45 4E 54 20 45 58 49 53 54 49 45 |.OKUMENT EXISTIE|
00000D30: 52 54 20 2D 20 55 45 42 45 52 53 43 48 52 45 49 |RT - UEBERSCHREI|
00000D40: 42 45 4E 20 20 22 3B 3A 8D 32 31 36 3A 8B 49 A7 |BEN ";:.216:.I.|
00000D50: 8E 00 65 15 67 00 98 38 2C 22 53 22 4C 24 3A 98 |..e.g..8,"S"L$:.|
00000D60: 38 2C 22 49 30 00 97 15 68 00 9F 31 2C 30 38 2C |8,"I0...h..1,08,|
00000D70: 33 2C 4C 24 AA 22 2C 53 2C 57 22 3A 84 38 2C 58 |3,L$.",S,W":.8,X|
00000D80: 2C 58 24 3A 8B 58 A7 51 39 24 B2 22 53 50 41 43 |,X$:.X.Q9$."SPAC|
00000D90: 45 22 3A 8D 32 35 37 00 AE 15 69 00 4F 46 B2 30 |E":.257...i.OF.0|
00000DA0: 3A 98 31 2C 48 24 C7 28 31 34 31 29 44 24 00 D5 |:.1,H$.(141)D$..|
00000DB0: 15 6A 00 81 49 B2 30 A4 56 3A 8B 54 24 28 49 29 |.j..I.0.V:.T$(I)|
00000DC0: B1 22 22 A7 98 31 2C 54 24 28 49 29 3B 3A 99 22 |.""..1,T$(I);:."|
00000DD0: 2A 22 3B 3A 82 00 E3 15 6B 00 98 31 2C 22 5C 22 |*";:....k..1,"\"|
00000DE0: 3B 3A 8E 00 FA 15 6C 00 8F 20 42 41 54 43 48 20 |;:....l.. BATCH |
00000DF0: 50 52 4F 43 45 53 53 49 4E 47 00 22 16 6D 00 51 |PROCESSING.".m.Q|
00000E00: 39 24 B2 22 46 49 4C 45 22 3A 8F 20 46 4F 52 20 |9$."FILE":. FOR |
00000E10: 45 52 52 4F 52 20 4D 53 47 20 49 4E 20 36 30 30 |ERROR MSG IN 600|
00000E20: 30 30 00 44 16 6E 00 99 22 93 22 3B 3A 91 43 46 |00.D.n..".";:.CF|
00000E30: 89 31 31 34 2C 31 31 32 3A 8F 20 45 4C 53 45 20 |.114,112:. ELSE |
00000E40: 42 4F 54 48 00 66 16 6F 00 99 22 D6 4F 4E 20 C4 |BOTH.f.o..".ON .|
00000E50: 41 54 41 53 45 54 54 45 22 3B 3A 8D 32 31 36 3A |ATASETTE";:.216:|
00000E60: 8B 49 89 31 31 34 00 7A 16 70 00 8F 20 46 52 4F |.I.114.z.p.. FRO|
00000E70: 4D 20 43 41 53 53 45 54 54 45 00 88 16 71 00 9F |M CASSETTE...q..|
00000E80: 32 2C 31 3A 89 31 31 37 00 98 16 72 00 8F 20 46 |2,1:.117...r.. F|
00000E90: 52 4F 4D 20 44 49 53 43 00 CD 16 73 00 85 22 93 |ROM DISC...s..".|
00000EA0: C1 C4 D2 C5 D3 D3 C5 CE 20 36 34 3A 20 C4 41 54 |........ 64: .AT|
00000EB0: 45 49 2D CE 41 4D 45 20 20 2D 9D 9D 9D 22 3B 58 |EI-.AME -...";X|
00000EC0: 24 3A 8B 58 24 B2 22 2D 22 89 31 31 35 00 EF 16 |$:.X$."-".115...|
00000ED0: 74 00 9F 32 2C 30 38 2C 32 2C 58 24 3A 84 38 2C |t..2,08,2,X$:.8,|
00000EE0: 58 2C 58 24 3A 8B 58 A7 A0 32 3A 89 32 35 37 00 |X,X$:.X..2:.257.|
00000EF0: 08 17 75 00 8F 20 50 52 45 50 41 52 45 20 46 4F |..u.. PREPARE FO|
00000F00: 52 20 4F 55 54 50 55 54 00 3B 17 76 00 54 42 24 |R OUTPUT.;.v.TB$|
00000F10: B2 22 22 3A 53 32 B2 30 3A 4E B2 37 32 3A 46 B2 |."":S2.0:N.72:F.|
00000F20: 31 3A 9F 31 2C 30 34 3A 53 24 B2 22 11 22 AA C8 |1:.1,04:S$."."..|
00000F30: 28 42 24 2C 34 30 AB 4E AD 32 29 00 61 17 77 00 |(B$,40.N.2).a.w.|
00000F40: 99 22 11 D3 54 41 4E 44 41 52 44 2D C6 4F 52 4D |."..TANDARD-.ORM|
00000F50: 41 54 22 3B 3A 8D 32 31 36 3A 8B 49 A7 8D 31 39 |AT";:.216:.I..19|
00000F60: 30 00 83 17 78 00 8F 20 47 45 54 20 54 48 45 20 |0...x.. GET THE |
00000F70: 4E 41 4D 45 20 41 4E 44 20 53 41 4C 55 54 41 54 |NAME AND SALUTAT|
00000F80: 49 4F 4E 00 AE 17 79 00 84 32 2C 5A 24 3A 8B 53 |ION...y..2,Z$:.S|
00000F90: 54 B1 30 B0 C3 28 5A 24 29 B3 32 89 31 33 35 3A |T.0..(Z$).2.135:|
00000FA0: 8F 20 4E 4F 20 4C 41 53 54 20 4E 41 4D 45 00 ED |. NO LAST NAME..|
00000FB0: 17 7A 00 4C 24 B2 22 22 3A 8D 31 38 37 3A 58 24 |.z.L$."":.187:X$|
00000FC0: B2 22 22 3A 59 24 B2 22 22 3A 4D 24 B2 22 D3 45 |."":Y$."":M$.".E|
00000FD0: 48 52 20 47 45 45 48 52 54 45 20 C4 41 4D 45 4E |HR GEEHRTE .AMEN|
00000FE0: 20 55 4E 44 20 C8 45 52 52 45 4E 2C 22 00 1B 18 | UND .ERREN,"...|
00000FF0: 7B 00 84 32 2C 58 24 3A 8B C3 28 58 24 29 B3 32 |{..2,X$:..(X$).2|
00001000: A7 58 24 B2 22 22 3A 89 31 32 35 3A 8F 20 4E 4F |.X$."":.125:. NO|
00001010: 20 46 49 52 53 54 20 4E 41 4D 45 00 3E 18 7C 00 | FIRST NAME.>.|.|
00001020: 4D 24 B2 22 CC 49 45 42 45 2F 52 20 22 AA 58 24 |M$.".IEBE/R ".X$|
00001030: AA 22 2C 22 3A 58 24 B2 58 24 AA 22 20 22 00 67 |.",":X$.X$." ".g|
00001040: 18 7D 00 84 32 2C 59 24 3A 8B C3 28 59 24 29 B3 |.}..2,Y$:..(Y$).|
00001050: 32 A7 59 24 B2 22 22 3A 89 31 32 37 3A 8F 20 4E |2.Y$."":.127:. N|
00001060: 4F 20 54 49 54 4C 45 00 8C 18 7E 00 59 24 B2 59 |O TITLE...~.Y$.Y|
00001070: 24 AA 22 20 22 3A 4D 24 B2 22 CC 49 45 42 45 2F |$." ":M$.".IEBE/|
00001080: 52 20 22 AA 59 24 AA 5A 24 AA 22 2C 00 B9 18 7F |R ".Y$.Z$.",....|
00001090: 00 4C 24 B2 59 24 AA 58 24 AA 5A 24 3A 84 32 2C |.L$.Y$.X$.Z$:.2,|
000010A0: 58 24 3A 8B C3 28 58 24 29 B1 32 A7 4C 24 B2 4C |X$:..(X$).2.L$.L|
000010B0: 24 AA 22 2C 20 22 AA 58 24 00 E1 18 80 00 5A 24 |$.", ".X$.....Z$|
000010C0: B2 4D 24 3A 4D 24 B2 22 22 3A 50 24 B2 4C 24 3A |.M$:M$."":P$.L$:|
000010D0: 8D 32 30 35 3A 8F 20 50 52 49 4E 54 20 4E 41 4D |.205:. PRINT NAM|
000010E0: 45 00 F3 18 81 00 8F 20 47 45 54 20 41 44 44 52 |E...... GET ADDR|
000010F0: 45 53 53 00 1A 19 82 00 84 32 2C 4C 24 3A 8B C3 |ESS......2,L$:..|
00001100: 28 4C 24 29 B1 31 A7 50 24 B2 4C 24 3A 8D 32 30 |(L$).1.P$.L$:.20|
00001110: 35 3A 8F 20 4C 49 4E 45 20 32 00 41 19 83 00 84 |5:. LINE 2.A....|
00001120: 32 2C 4C 24 3A 8B C3 28 4C 24 29 B1 31 A7 50 24 |2,L$:..(L$).1.P$|
00001130: B2 4C 24 3A 8D 32 30 35 3A 8F 20 4C 49 4E 45 20 |.L$:.205:. LINE |
00001140: 33 00 75 19 84 00 84 32 2C 4C 24 3A 84 32 2C 59 |3.u....2,L$:.2,Y|
00001150: 24 3A 8B C3 28 59 24 29 B1 31 A7 4C 24 B2 4C 24 |$:..(Y$).1.L$.L$|
00001160: AA 22 2C 20 22 AA 59 24 3A 8F 20 53 54 41 54 45 |.", ".Y$:. STATE|
00001170: 2C 20 5A 49 50 00 8D 19 85 00 8B C3 28 4C 24 29 |, ZIP.......(L$)|
00001180: B1 31 A7 50 24 B2 4C 24 3A 8D 32 30 35 00 B6 19 |.1.P$.L$:.205...|
00001190: 86 00 81 49 B2 4C A4 31 34 3A 8D 32 30 35 3A 82 |...I.L.14:.205:.|
000011A0: 3A 4C 24 B2 5A 24 3A 50 24 B2 4C 24 3A 8D 31 37 |:L$.Z$:P$.L$:.17|
000011B0: 30 3A 89 31 32 30 00 C1 19 87 00 A0 32 3A 89 31 |0:.120......2:.1|
000011C0: 33 00 DA 19 88 00 8F 20 53 45 41 52 43 48 20 41 |3...... SEARCH A|
000011D0: 4E 44 20 52 45 50 4C 41 43 45 00 15 1A 89 00 99 |ND REPLACE......|
000011E0: 22 93 11 D3 55 43 48 45 4E 20 4E 41 43 48 3F 22 |"...UCHEN NACH?"|
000011F0: 3A 4D B2 34 30 3A 8D 32 32 34 3A 5A 24 B2 58 24 |:M.40:.224:Z$.X$|
00001200: 3A 4C B2 C3 28 58 24 29 3A 8B 4C B2 30 B0 4C B2 |:L..(X$):.L.0.L.|
00001210: 4D 89 31 33 37 00 3E 1A 8A 00 99 3A 99 22 11 C5 |M.137.>....:."..|
00001220: 52 53 45 54 5A 45 4E 20 44 55 52 43 48 3F 22 3A |RSETZEN DURCH?":|
00001230: 8D 32 32 34 3A 59 24 B2 58 24 3A 99 3A 99 00 65 |.224:Y$.X$:.:..e|
00001240: 1A 8B 00 58 24 B2 22 22 3A 4D 24 B2 22 22 3A 4C |...X$."":M$."":L|
00001250: 24 B2 22 22 3A 54 B2 30 3A 55 B2 30 3A 46 B2 30 |$."":T.0:U.0:F.0|
00001260: 3A 4F 46 B2 31 00 7B 1A 8C 00 8F 20 41 54 54 41 |:OF.1.{.... ATTA|
00001270: 43 48 20 54 24 20 54 4F 20 58 24 00 8D 1A 8D 00 |CH T$ TO X$.....|
00001280: 8B C3 28 58 24 29 B1 B2 4C 89 31 34 34 00 AA 1A |..(X$)..L.144...|
00001290: 8E 00 8B 54 B1 56 89 31 34 39 3A 8F 20 41 4C 4C |...T.V.149:. ALL|
000012A0: 20 54 24 27 53 20 52 45 41 44 00 CE 1A 8F 00 58 | T$'S READ.....X|
000012B0: 24 B2 58 24 AA 54 24 28 54 29 3A 54 24 28 54 29 |$.X$.T$(T):T$(T)|
000012C0: B2 22 22 3A 54 B2 54 AA 31 3A 89 31 34 30 00 E5 |."":T.T.1:.140..|
000012D0: 1A 90 00 8F 20 53 45 41 52 43 48 20 46 4F 52 20 |.... SEARCH FOR |
000012E0: 4D 41 54 43 48 00 12 1B 91 00 81 49 B2 31 A4 C3 |MATCH......I.1..|
000012F0: 28 58 24 29 AB 4C AA 31 3A 8B CA 28 58 24 2C 49 |(X$).L.1:..(X$,I|
00001300: 2C 4C 29 B3 B1 5A 24 A7 82 3A 4A B2 49 3A 89 31 |,L)..Z$..:J.I:.1|
00001310: 34 37 00 28 1B 92 00 4D 24 B2 59 24 3A 4A B2 49 |47.(...M$.Y$:J.I|
00001320: AA 4C 3A 99 22 12 22 3B 00 3C 1B 93 00 8F 20 53 |.L:.".";.<.... S|
00001330: 50 4C 49 54 20 53 54 52 49 4E 47 53 00 6C 1B 94 |PLIT STRINGS.l..|
00001340: 00 4D 24 B2 C8 28 58 24 2C 49 AB 31 29 AA 4D 24 |.M$..(X$,I.1).M$|
00001350: 3A 58 24 B2 CA 28 58 24 2C 4A 29 3A 8D 31 35 34 |:X$..(X$,J):.154|
00001360: 3A 91 46 89 31 36 30 3A 89 31 34 30 00 7F 1B 95 |:.F.160:.140....|
00001370: 00 8F 20 53 54 4F 57 20 4C 41 53 54 20 4C 24 00 |.. STOW LAST L$.|
00001380: 9A 1B 96 00 8D 31 35 34 3A 8B 46 89 31 36 30 3A |.....154:.F.160:|
00001390: 8F 20 43 4C 45 41 52 20 4D 24 00 C4 1B 97 00 4D |. CLEAR M$.....M|
000013A0: 24 B2 58 24 3A 8D 31 35 34 3A 8B 46 89 31 36 30 |$.X$:.154:.F.160|
000013B0: 3A 8F 20 4D 24 5F 58 24 3B 20 43 4C 45 41 52 20 |:. M$_X$; CLEAR |
000013C0: 42 4F 54 48 00 F9 1B 98 00 8B 55 B3 B2 56 A7 54 |BOTH......U..V.T|
000013D0: B2 55 3A 8D 35 30 3A 89 31 33 3A 8F 20 53 54 4F |.U:.50:.13:. STO|
000013E0: 57 20 4C 24 2C 20 43 4C 45 41 52 20 48 49 47 48 |W L$, CLEAR HIGH|
000013F0: 45 52 20 42 4C 4F 43 4B 53 00 02 1C 99 00 89 31 |ER BLOCKS......1|
00001400: 36 30 00 25 1C 9A 00 8F 20 43 4C 45 41 52 20 4D |60.%.... CLEAR M|
00001410: 24 20 2D 20 53 54 4F 57 20 4C 24 20 49 46 20 4E |$ - STOW L$ IF N|
00001420: 45 45 44 45 44 00 5B 1C 9B 00 4D B2 4D 30 AB C3 |EEDED.[...M.M0..|
00001430: 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 4D 24 2C |(L$):L$.L$..(M$,|
00001440: 4D 29 3A 4D 24 B2 CA 28 4D 24 2C 4D AA 31 29 3A |M):M$..(M$,M.1):|
00001450: 8B C3 28 4C 24 29 B3 4D 30 A7 8E 00 69 1C 9C 00 |..(L$).M0...i...|
00001460: 8B 55 B1 B2 56 89 31 35 39 00 96 1C 9D 00 8B 55 |.U..V.159......U|
00001470: B3 54 A7 54 24 28 55 29 B2 4C 24 3A 99 22 2A 92 |.T.T$(U).L$:."*.|
00001480: 22 3B 3A 55 B2 55 AA 31 3A 4C 24 B2 4D 24 3A 4D |";:U.U.1:L$.M$:M|
00001490: 24 B2 22 22 3A 8E 00 CF 1C 9E 00 8B 54 B3 56 A7 |$."":.......T.V.|
000014A0: 81 49 B2 56 A4 54 AA 31 A9 AB 31 3A 54 24 28 49 |.I.V.T.1..1:T$(I|
000014B0: 29 B2 54 24 28 49 AB 31 29 3A 82 3A 54 24 28 54 |).T$(I.1):.:T$(T|
000014C0: 29 B2 22 22 3A 54 B2 54 AA 31 3A 89 31 35 37 00 |)."":T.T.1:.157.|
000014D0: D9 1C 9F 00 46 B2 31 3A 8E 00 EA 1C A0 00 8F 20 |....F.1:....... |
000014E0: 45 52 52 4F 52 20 45 58 49 54 00 19 1D A1 00 99 |ERROR EXIT......|
000014F0: 3A 99 22 11 CF 55 54 20 4F 46 20 52 4F 4F 4D 20 |:."..UT OF ROOM |
00001500: 2D 20 44 41 54 41 20 49 4D 50 41 49 52 45 44 22 |- DATA IMPAIRED"|
00001510: 3A 8D 32 31 34 3A 89 31 33 00 30 1D A2 00 8F 20 |:.214:.13.0.... |
00001520: 46 4F 52 4D 41 54 20 41 4E 44 20 50 52 49 4E 54 |FORMAT AND PRINT|
00001530: 00 3D 1D A3 00 8D 31 36 34 3A 89 31 33 00 55 1D |.=....164:.13.U.|
00001540: A4 00 9F 31 2C 30 34 3A 46 B2 31 3A 8F 20 50 52 |...1,04:F.1:. PR|
00001550: 49 4E 54 45 52 00 86 1D A5 00 53 32 B2 31 3A 4E |INTER.....S2.1:N|
00001560: B2 36 30 3A 54 42 24 B2 22 22 3A 58 24 B2 22 46 |.60:TB$."":X$."F|
00001570: 49 44 22 3A 8F 20 44 45 46 41 55 4C 54 53 20 28 |ID":. DEFAULTS (|
00001580: 44 52 41 46 54 29 00 B9 1D A6 00 99 22 11 12 C6 |DRAFT)......"...|
00001590: 92 4F 52 4D 41 4C 2C 20 12 C9 92 4E 46 4F 52 4D |.ORMAL, ...NFORM|
000015A0: 41 4C 2C 20 4F 52 20 12 C4 92 52 41 46 54 22 3B |AL, OR ...RAFT";|
000015B0: 3A 8D 32 31 37 3A 4A B2 49 00 D1 1D A7 00 8B 4A |:.217:J.I......J|
000015C0: B3 32 A7 53 32 B2 30 3A 4E B2 37 32 3A 8D 31 39 |.2.S2.0:N.72:.19|
000015D0: 30 00 FB 1D A8 00 53 24 B2 22 11 22 AA C8 28 42 |0.....S$."."..(B|
000015E0: 24 2C 34 30 AB 4E AD 32 29 3A 8B 4A B2 30 89 31 |$,40.N.2):.J.0.1|
000015F0: 38 32 3A 8F 20 46 4F 52 4D 41 4C 00 1E 1E A9 00 |82:. FORMAL.....|
00001600: 4C 24 B2 22 12 22 AA 48 24 3A 50 24 B2 48 24 3A |L$.".".H$:P$.H$:|
00001610: 4D 24 B2 C8 28 4B 24 2C C3 28 48 24 29 29 00 3A |M$..(K$,.(H$)).:|
00001620: 1E AA 00 4A B2 30 3A 99 22 93 22 3A 8D 32 30 35 |...J.0:.".":.205|
00001630: 3A 8D 32 30 35 3A 8B 4A A7 8E 00 64 1E AB 00 54 |:.205:.J...d...T|
00001640: B2 30 3A 58 24 B2 22 5D 22 AA 54 42 24 3A 45 B2 |.0:X$."]".TB$:E.|
00001650: 30 3A 5A 24 B2 42 24 3A 8F 20 50 52 49 4E 54 20 |0:Z$.B$:. PRINT |
00001660: 54 45 58 54 00 9B 1E AC 00 8B C3 28 58 24 29 B3 |TEXT.......(X$).|
00001670: B2 4E A7 58 24 B2 58 24 AA 54 24 28 54 29 3A 54 |.N.X$.X$.T$(T):T|
00001680: B2 54 AA 31 3A 8B C3 28 58 24 29 B3 B2 4E B0 54 |.T.1:..(X$)..N.T|
00001690: B1 56 A7 58 24 B2 58 24 AA 22 5C 00 CA 1E AD 00 |.V.X$.X$."\.....|
000016A0: 8B C6 28 58 24 29 B2 33 32 A7 58 24 B2 CA 28 58 |..(X$).32.X$..(X|
000016B0: 24 2C 32 29 3A 89 31 37 32 3A 8F 20 4C 45 41 44 |$,2):.172:. LEAD|
000016C0: 49 4E 47 20 42 4C 41 4E 4B 53 00 DB 1E AE 00 8B |ING BLANKS......|
000016D0: 45 A7 58 24 B2 22 5B 22 AA 58 24 00 18 1F AF 00 |E.X$."[".X$.....|
000016E0: 4C 24 B2 C8 28 58 24 2C 4E AA 31 29 3A 50 24 B2 |L$..(X$,N.1):P$.|
000016F0: 4C 24 3A 4A B2 30 3A 4B B2 30 3A 4D 24 B2 42 24 |L$:J.0:K.0:M$.B$|
00001700: 3A 81 49 B2 31 A4 C3 28 4C 24 29 3A 43 B2 C6 28 |:.I.1..(L$):C..(|
00001710: CA 28 4C 24 2C 49 29 29 00 38 1F B0 00 8B 43 B1 |.(L$,I)).8....C.|
00001720: 39 30 AF 43 B3 39 36 A7 8D 32 30 31 3A 8B 58 A7 |90.C.96..201:.X.|
00001730: 49 B2 4A 3A 89 31 37 38 00 6C 1F B1 00 82 3A 81 |I.J:.178.l....:.|
00001740: 49 B2 C3 28 4C 24 29 A4 4A AA 31 A9 AB 31 3A 8B |I..(L$).J.1..1:.|
00001750: CA 28 4C 24 2C 49 2C 31 29 B1 22 20 22 A7 82 3A |.(L$,I,1)." "..:|
00001760: 49 B2 4A 3A 8B 4A B2 30 89 32 31 33 00 A8 1F B2 |I.J:.J.0.213....|
00001770: 00 4A B2 30 3A 58 24 B2 CA 28 58 24 2C 49 AA 31 |.J.0:X$..(X$,I.1|
00001780: 29 3A 4C 24 B2 C8 28 4C 24 2C 49 AB 31 29 3A 50 |):L$..(L$,I.1):P|
00001790: 24 B2 C8 28 50 24 2C 49 AB 4B 29 3A 4D 24 B2 C8 |$..(P$,I.K):M$..|
000017A0: 28 4D 24 2C 49 AB 4B 29 00 C9 1F B3 00 8B 43 B2 |(M$,I.K)......C.|
000017B0: 39 34 B0 43 B2 39 35 A7 45 B2 30 3A 58 24 B2 22 |94.C.95.E.0:X$."|
000017C0: 5D 22 AA 54 42 24 AA 58 24 00 F6 1F B4 00 58 B2 |]".TB$.X$.....X.|
000017D0: 43 3A 8D 32 30 35 3A 8B 4A B1 30 B0 58 B2 39 34 |C:.205:.J.0.X.94|
000017E0: B0 58 B2 39 32 A7 8D 32 31 30 3A 8B 4A B1 30 B0 |.X.92..210:.J.0.|
000017F0: 58 B2 39 32 A7 8E 00 FF 1F B5 00 89 31 37 32 00 |X.92........172.|
00001800: 0C 20 B6 00 8F 20 46 4F 52 4D 41 4C 00 3D 20 B7 |. ... FORMAL.= .|
00001810: 00 4C 24 B2 22 22 3A 8D 31 38 37 3A 99 22 93 D6 |.L$."":.187:."..|
00001820: 49 45 52 20 C1 44 52 45 53 53 2D DA 45 49 4C 45 |IER .DRESS-.EILE|
00001830: 4E 22 3A 4D B2 4E 3A 81 49 B2 31 A4 34 00 6D 20 |N":M.N:.I.1.4.m |
00001840: B8 00 99 22 DA 45 49 4C 45 22 49 3A 8D 32 32 34 |...".EILE"I:.224|
00001850: 3A 99 3A 8B C3 28 58 24 29 B2 4D A7 99 22 12 DA |:.:..(X$).M.."..|
00001860: 55 20 4C 41 4E 47 20 22 3A 89 31 38 34 00 88 20 |U LANG ":.184.. |
00001870: B9 00 50 24 B2 58 24 3A 8D 32 30 35 3A 82 3A 8D |..P$.X$:.205:.:.|
00001880: 32 30 35 3A 8D 32 30 35 00 AA 20 BA 00 99 22 C1 |205:.205.. ...".|
00001890: 4E 52 45 44 45 20 20 20 20 22 3A 8D 32 32 34 3A |NREDE ":.224:|
000018A0: 50 24 B2 58 24 3A 89 31 37 30 00 D9 20 BB 00 8C |P$.X$:.170.. ...|
000018B0: 3A 4D 24 B2 22 22 3A 59 24 B2 53 24 3A 81 49 B2 |:M$."":Y$.S$:.I.|
000018C0: 31 A4 33 3A 87 50 24 3A 8D 31 38 39 3A 82 3A 50 |1.3:.P$:.189:.:P|
000018D0: 24 B2 44 24 3A 8D 31 38 39 00 F3 20 BC 00 81 49 |$.D$:.189.. ...I|
000018E0: B2 31 A4 35 3A 8D 32 30 35 3A 82 3A 53 24 B2 59 |.1.5:.205:.:S$.Y|
000018F0: 24 3A 8E 00 18 21 BD 00 4B B2 C3 28 50 24 29 3A |$:...!..K..(P$):|
00001900: 53 24 B2 22 11 22 AA C8 28 42 24 2C 34 30 AB 4B |S$."."..(B$,40.K|
00001910: AD 32 29 3A 89 32 30 35 00 30 21 BE 00 8F 20 46 |.2):.205.0!... F|
00001920: 4F 52 4D 41 54 20 56 41 52 49 41 54 49 4F 4E 53 |ORMAT VARIATIONS|
00001930: 00 58 21 BF 00 99 22 11 D3 54 41 4E 44 41 52 44 |.X!..."..TANDARD|
00001940: 2D C6 4F 52 4D 41 54 3A 22 3A 99 2C 22 20 C5 49 |-.ORMAT:":.," .I|
00001950: 4E 2D 5A 45 49 4C 49 47 00 8B 21 C0 00 99 2C 4E |N-ZEILIG..!...,N|
00001960: 22 DA 45 49 43 48 45 4E 20 50 52 4F 20 DA 45 49 |".EICHEN PRO .EI|
00001970: 4C 45 20 20 22 3A 99 2C 4C 4C 22 DA 45 49 4C 45 |LE ":.,LL".EILE|
00001980: 4E 20 50 52 4F 20 D3 45 49 54 45 00 A7 21 C1 00 |N PRO .EITE..!..|
00001990: 99 2C 22 20 D4 41 42 2D CC 41 45 4E 47 45 20 3D |.," .AB-.AENGE =|
000019A0: 22 C3 28 54 42 24 29 00 D3 21 C2 00 99 22 11 CD |".(TB$)..!..."..|
000019B0: 4F 45 43 48 54 45 4E 20 D3 49 45 20 45 53 20 41 |OECHTEN .IE ES A|
000019C0: 45 4E 44 45 52 4E 20 22 3B 3A 8D 32 31 36 3A 8B |ENDERN ";:.216:.|
000019D0: 49 A7 8E 00 F3 21 C3 00 99 22 93 C5 49 4E 2D 5A |I....!..."..IN-Z|
000019E0: 45 49 4C 49 47 20 20 22 3B 3A 8D 32 31 36 3A 53 |EILIG ";:.216:S|
000019F0: 32 B2 49 00 23 22 C4 00 85 22 11 DA 45 49 43 48 |2.I.#"..."..EICH|
00001A00: 45 4E 20 50 52 4F 20 DA 45 49 4C 45 20 20 20 28 |EN PRO .EILE (|
00001A10: 32 30 2D 38 30 29 20 20 37 32 20 9D 9D 9D 9D 9D |20-80) 72 .....|
00001A20: 22 3B 4E 00 3D 22 C5 00 8B 4E B3 32 30 B0 4E B1 |";N.="...N.20.N.|
00001A30: 38 30 A7 99 22 91 91 22 3A 89 31 39 36 00 7A 22 |80.."..":.196.z"|
00001A40: C6 00 99 22 11 DA 45 49 4C 45 4E 20 50 52 4F 20 |..."..EILEN PRO |
00001A50: D3 45 49 54 45 20 22 4C 4C 22 9D 20 20 9D 9D 9D |.EITE "LL". ...|
00001A60: 9D 9D 9D 22 3B 3A 85 4C 4C 3A 8B 4C 4C B3 31 A7 |...";:.LL:.LL.1.|
00001A70: 99 22 91 91 22 3A 89 31 39 38 00 B4 22 C7 00 99 |."..":.198.."...|
00001A80: 22 11 CC 41 45 4E 47 45 20 44 45 52 20 D4 41 42 |"..AENGE DER .AB|
00001A90: 2E 22 3B 3A 58 24 B2 22 30 31 32 33 34 35 36 37 |.";:X$."01234567|
00001AA0: 38 39 22 3A 8D 32 31 37 3A 54 42 24 B2 C8 28 42 |89":.217:TB$..(B|
00001AB0: 24 2C 49 29 00 BA 22 C8 00 8E 00 CC 22 C9 00 8F |$,I).."....."...|
00001AC0: 20 45 4E 48 41 4E 43 45 4D 45 4E 54 00 12 23 CA | ENHANCEMENT..#.|
00001AD0: 00 4B B2 4B AA 31 3A 58 B2 31 3A 4A B2 49 3A 8B |.K.K.1:X.1:J.I:.|
00001AE0: 43 B2 39 31 B0 43 B2 39 33 A7 58 B2 30 3A 45 B2 |C.91.C.93.X.0:E.|
00001AF0: 28 43 B2 39 31 29 3A 5A 24 B2 42 24 3A 59 24 B2 |(C.91):Z$.B$:Y$.|
00001B00: 22 92 22 3A 8B 45 A7 5A 24 B2 4B 24 3A 59 24 B2 |".":.E.Z$.K$:Y$.|
00001B10: 22 12 00 30 23 CB 00 4C 24 B2 C8 28 4C 24 2C 49 |"..0#..L$..(L$,I|
00001B20: AB 31 29 AA 59 24 AA CA 28 4C 24 2C 49 AA 31 29 |.1).Y$..(L$,I.1)|
00001B30: 00 64 23 CC 00 50 24 B2 C8 28 50 24 2C 49 AB 4B |.d#..P$..(P$,I.K|
00001B40: 29 AA CA 28 4C 24 2C 49 AA 31 29 3A 4D 24 B2 C8 |)..(L$,I.1):M$..|
00001B50: 28 4D 24 2C 49 AB 4B 29 AA CA 28 5A 24 2C 49 AA |(M$,I.K)..(Z$,I.|
00001B60: 31 29 3A 8E 00 73 23 CD 00 8F 20 4C 49 4E 45 20 |1):..s#... LINE |
00001B70: 4F 55 54 00 87 23 CE 00 8B 50 24 B1 22 22 A7 50 |OUT..#...P$."".P|
00001B80: 24 B2 53 24 AA 50 24 00 A1 23 CF 00 99 4C 24 3B |$.S$.P$..#...L$;|
00001B90: 3A 8D 32 30 38 3A 8B 4A B1 30 B0 53 32 B2 30 A7 |:.208:.J.0.S2.0.|
00001BA0: 8E 00 C3 23 D0 00 8B 46 A7 99 3A 98 31 2C 50 24 |...#...F..:.1,P$|
00001BB0: 3B 3A 8B 4D 24 B1 42 24 A7 98 31 2C 51 24 53 24 |;:.M$.B$..1,Q$S$|
00001BC0: 4D 24 3B 00 EA 23 D1 00 98 31 3A 50 24 B2 22 22 |M$;..#...1:P$.""|
00001BD0: 3A 4C 24 B2 22 22 3A 4D 24 B2 22 22 3A 4C B2 4C |:L$."":M$."":L.L|
00001BE0: AA 31 3A 8B 4C B3 4C 4C A7 8E 00 FE 23 D2 00 8B |.1:.L.LL....#...|
00001BF0: 46 B2 30 A7 8D 32 31 34 3A 4C B2 30 3A 8E 00 2B |F.0..214:L.0:..+|
00001C00: 24 D3 00 8B 4C A7 81 49 B2 4C A4 4C 50 AB 31 3A |$...L..I.L.LP.1:|
00001C10: 98 31 3A 82 3A 4C B2 30 3A 8F 20 50 41 47 45 20 |.1:.:L.0:. PAGE |
00001C20: 57 49 54 48 20 42 4C 41 4E 4B 53 00 36 24 D4 00 |WITH BLANKS.6$..|
00001C30: 99 22 93 22 3A 8E 00 62 24 D5 00 4A B2 31 3A 99 |.".":..b$..J.1:.|
00001C40: 22 11 DA 45 49 4C 45 20 46 55 45 52 20 C4 52 55 |"..EILE FUER .RU|
00001C50: 43 4B 20 5A 55 20 4C 41 4E 47 22 3A 8D 32 31 30 |CK ZU LANG":.210|
00001C60: 3A 8E 00 72 24 D6 00 8F 20 55 54 49 4C 49 54 49 |:..r$... UTILITI|
00001C70: 45 53 00 A5 24 D7 00 99 22 11 12 20 D7 45 49 54 |ES..$...".. .EIT|
00001C80: 45 52 20 4D 49 54 20 42 45 4C 49 45 42 49 47 45 |ER MIT BELIEBIGE|
00001C90: 52 20 D4 41 53 54 45 22 3B 3A 8D 34 3A 99 3A 99 |R .ASTE";:.4:.:.|
00001CA0: 22 93 22 3A 8E 00 B0 24 D8 00 58 24 B2 22 4A 4E |".":...$..X$."JN|
00001CB0: 00 BB 24 D9 00 99 22 3F 20 22 3B 00 E3 24 DA 00 |..$..."? ";..$..|
00001CC0: 8D 34 3A 81 49 B2 31 A4 C3 28 58 24 29 3A 8B 43 |.4:.I.1..(X$):.C|
00001CD0: 24 B3 B1 CA 28 58 24 2C 49 2C 31 29 A7 82 3A 89 |$...(X$,I,1)..:.|
00001CE0: 32 31 38 00 F2 24 DB 00 49 B2 49 AB 31 3A 99 43 |218..$..I.I.1:.C|
00001CF0: 24 3B 00 0D 25 DC 00 A1 57 24 3A 8B 57 24 B2 22 |$;..%...W$:.W$."|
00001D00: 22 A7 99 22 A4 9D 22 3B 3A 89 32 32 30 00 23 25 |".."..";:.220.#%|
00001D10: DD 00 99 22 20 9D 22 3B 3A 8B 57 24 B2 52 24 A7 |..." .";:.W$.R$.|
00001D20: 99 3A 8E 00 3B 25 DE 00 8B 57 24 B2 C7 28 32 30 |.:..;%...W$..(20|
00001D30: 29 A7 99 57 24 3B 3A 89 32 31 38 00 44 25 DF 00 |)..W$;:.218.D%..|
00001D40: 89 32 32 30 00 5F 25 E0 00 58 24 B2 22 22 3A 8F |.220._%..X$."":.|
00001D50: 20 49 4E 50 55 54 20 41 20 53 54 52 49 4E 47 00 | INPUT A STRING.|
00001D60: 6F 25 E1 00 A1 43 24 3A 8B 43 24 89 32 32 35 00 |o%...C$:.C$.225.|
00001D70: 85 25 E2 00 8D 35 3A 8B 43 B2 31 33 B0 43 B2 39 |.%...5:.C.13.C.9|
00001D80: 32 89 32 33 32 00 B4 25 E3 00 8B 43 B2 32 30 AF |2.232..%...C.20.|
00001D90: 58 24 B1 22 22 A7 99 43 24 3B 3A 58 24 B2 C8 28 |X$.""..C$;:X$..(|
00001DA0: 58 24 2C C3 28 58 24 29 AB 31 29 3A 8F 20 44 45 |X$,.(X$).1):. DE|
00001DB0: 4C 45 54 45 00 D3 25 E4 00 8B 43 B2 32 30 89 32 |LETE..%...C.20.2|
00001DC0: 32 36 3A 8F 20 44 45 4C 45 54 45 20 4F 4E 20 4E |26:. DELETE ON N|
00001DD0: 55 4C 4C 00 03 26 E5 00 8B 28 31 32 37 AF 43 29 |ULL..&...(127.C)|
00001DE0: B3 33 32 89 32 32 36 3A 8F 20 43 55 52 53 4F 52 |.32.226:. CURSOR|
00001DF0: 20 43 4F 4E 54 52 4F 4C 20 43 48 41 52 41 43 54 | CONTROL CHARACT|
00001E00: 45 52 53 00 1C 26 E6 00 99 43 24 3B 3A 8B 43 B2 |ERS..&...C$;:.C.|
00001E10: 33 34 A7 99 43 24 C7 28 32 30 29 3B 00 36 26 E7 |34..C$.(20);.6&.|
00001E20: 00 58 24 B2 58 24 AA 43 24 3A 8B C3 28 58 24 29 |.X$.X$.C$:..(X$)|
00001E30: B3 4D 89 32 32 36 00 3C 26 E8 00 8E 00 53 26 E9 |.M.226.<&....S&.|
00001E40: 00 8F 20 51 55 49 54 20 54 48 45 20 50 52 4F 47 |.. QUIT THE PROG|
00001E50: 52 41 4D 00 87 26 EA 00 99 22 93 11 D3 45 49 54 |RAM..&..."...EIT|
00001E60: 45 4E 56 4F 52 53 43 48 55 42 20 41 4D 20 C4 52 |ENVORSCHUB AM .R|
00001E70: 55 43 4B 45 52 20 20 20 20 22 3B 3A 8D 32 31 36 |UCKER ";:.216|
00001E80: 3A 8B 49 89 32 33 36 00 AE 26 EB 00 9F 31 2C 30 |:.I.236..&...1,0|
00001E90: 34 3A 46 B2 31 3A 4C B2 2E 31 3A 8D 32 31 30 3A |4:F.1:L..1:.210:|
00001EA0: 8F 20 45 58 50 45 4C 20 41 20 50 41 47 45 00 C5 |. EXPEL A PAGE..|
00001EB0: 26 EC 00 8B 4F 46 B2 30 B0 54 24 28 30 29 B2 22 |&...OF.0.T$(0)."|
00001EC0: 22 89 32 33 38 00 03 27 ED 00 99 22 11 C4 4F 4B |".238..'..."..OK|
00001ED0: 55 4D 45 4E 54 20 4E 49 43 48 54 20 47 45 53 49 |UMENT NICHT GESI|
00001EE0: 43 48 45 52 54 3B 20 53 50 45 49 43 48 45 52 4E |CHERT; SPEICHERN|
00001EF0: 22 3B 3A 8D 32 31 36 3A 8B 49 B2 30 A7 A0 31 3A |";:.216:.I.0..1:|
00001F00: 8D 39 39 00 1A 27 EE 00 A0 31 3A 99 22 93 D4 53 |.99..'...1:."..S|
00001F10: 43 48 55 45 53 53 21 22 3A A2 00 41 27 EF 00 9F |CHUESS!":..A'...|
00001F20: 31 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 3A 89 32 |1,04:F.1:L..1:.2|
00001F30: 31 30 3A 8F 20 45 58 50 45 4C 20 41 20 50 41 47 |10:. EXPEL A PAG|
00001F40: 45 00 52 27 F0 00 8F 20 49 4E 49 54 49 41 4C 49 |E.R'... INITIALI|
00001F50: 5A 45 00 82 27 F1 00 4C 50 B2 37 32 3A 4C 30 B2 |ZE..'..LP.72:L0.|
00001F60: 36 30 3A 4D 30 B2 31 36 30 3A 51 24 B2 C7 28 31 |60:M0.160:Q$..(1|
00001F70: 34 31 29 3A 52 24 B2 C7 28 31 33 29 3A 4B 24 B2 |41):R$..(13):K$.|
00001F80: 22 A4 00 A1 27 F2 00 56 B2 B5 28 28 B8 28 30 29 |"...'..V..((.(0)|
00001F90: AB 32 30 30 30 29 AD 4D 30 29 3A 86 54 24 28 56 |.2000).M0):.T$(V|
00001FA0: 29 00 E2 27 F3 00 99 22 93 8E 13 13 0F 11 11 11 |)..'..."........|
00001FB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001FC0: 11 11 11 11 11 11 22 A6 33 39 29 22 8F 05 22 3A |......".39)"..":|
00001FD0: 97 35 39 34 36 38 2C 31 34 3A 8F 20 46 4F 52 4D |.59468,14:. FORM|
00001FE0: 41 54 00 17 28 F4 00 97 35 33 32 37 32 2C 32 B0 |AT..(...53272,2.|
00001FF0: C2 28 35 33 32 37 32 29 3A 99 22 93 20 20 20 20 |.(53272):.". |
00002000: 20 12 20 20 20 20 20 20 D4 C5 D8 D4 20 36 34 20 | . .... 64 |
00002010: 20 20 20 20 20 20 92 00 2F 28 F5 00 8D 32 35 38 | ../(...258|
00002020: 3A 8F 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 00 |:. COLOR CHANGE.|
00002030: 72 28 F6 00 99 22 11 12 CB 92 41 53 53 45 54 54 |r(..."....ASSETT|
00002040: 45 2C 20 12 C4 92 49 53 4B 45 54 54 45 20 4F 44 |E, ...ISKETTE OD|
00002050: 45 52 20 12 42 92 45 49 44 45 53 22 3B 3A 58 24 |ER .B.EIDES";:X$|
00002060: B2 22 44 4B 42 22 3A 8D 32 31 37 3A 43 46 B2 49 |."DKB":.217:CF.I|
00002070: AA 31 00 9C 28 F7 00 42 24 B2 22 20 20 20 20 20 |.1..(..B$." |
00002080: 22 3A 81 49 B2 31 A4 35 3A 42 24 B2 42 24 AA 42 |":.I.1.5:B$.B$.B|
00002090: 24 3A 82 3A 9F 38 2C 30 38 2C 31 35 00 C2 28 F8 |$:.:.8,08,15..(.|
000020A0: 00 99 22 11 D4 41 47 45 53 44 41 54 55 4D 20 20 |.."..AGESDATUM |
000020B0: 3F 22 3A 4D B2 32 30 3A 8D 32 32 34 3A 44 24 B2 |?":M.20:.224:D$.|
000020C0: 58 24 00 DC 28 F9 00 4B 24 B2 22 20 22 3A 8F 20 |X$..(..K$." ":. |
000020D0: 31 35 32 35 20 50 52 49 4E 54 45 52 00 0D 29 FA |1525 PRINTER..).|
000020E0: 00 8F 20 4B 24 3D 22 5F 22 3A 51 24 3D 52 24 2B |.. K$="_":Q$=R$+|
000020F0: 43 48 52 24 28 32 37 29 2B 22 0A 22 3A 52 45 4D |CHR$(27)+".":REM|
00002100: 20 38 33 30 30 20 50 52 49 4E 54 45 52 00 27 29 | 8300 PRINTER.')|
00002110: FB 00 81 49 B2 31 A4 37 3A 4B 24 B2 4B 24 AA 4B |...I.1.7:K$.K$.K|
00002120: 24 3A 82 3A 89 31 33 00 2F 29 FC 00 89 31 33 00 |$:.:.13./)...13.|
00002130: 4E 29 FD 00 8F 20 4C 45 54 54 45 52 48 45 41 44 |N)... LETTERHEAD|
00002140: 20 44 41 54 41 2C 20 44 45 4C 45 54 45 44 00 56 | DATA, DELETED.V|
00002150: 29 FE 00 83 22 22 00 5E 29 FF 00 83 22 22 00 66 |)..."".^)..."".f|
00002160: 29 00 01 83 22 22 00 89 29 01 01 99 51 39 24 22 |)...""..)...Q9$"|
00002170: 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 22 | NICHT GEFUNDEN"|
00002180: 3A 8D 32 31 34 3A 89 31 33 00 A4 29 02 01 8F 20 |:.214:.13..)... |
00002190: 43 4F 4C 4F 52 20 43 48 41 4E 47 45 20 52 4F 55 |COLOR CHANGE ROU|
000021A0: 54 49 4E 45 00 C8 29 03 01 96 A5 43 28 58 29 B2 |TINE..)....C(X).|
000021B0: C2 28 58 29 AA 31 AA 31 36 AC 28 28 C2 28 58 29 |.(X).1.16.((.(X)|
000021C0: AF 31 35 29 B2 31 35 29 00 EE 29 04 01 99 3A 99 |.15).15)..)...:.|
000021D0: 22 13 11 11 11 11 11 12 C6 31 92 3D 20 C6 41 52 |"........1.= .AR|
000021E0: 42 45 20 44 45 53 20 D2 41 4E 44 45 53 22 00 0E |BE DES .ANDES"..|
000021F0: 2A 05 01 99 22 11 12 C6 33 92 3D 20 C8 49 4E 54 |*..."...3.= .INT|
00002200: 45 52 47 52 55 4E 44 2D C6 41 52 42 45 22 00 2E |ERGRUND-.ARBE"..|
00002210: 2A 06 01 99 22 11 12 C6 35 92 3D 20 C6 41 52 42 |*..."...5.= .ARB|
00002220: 45 20 44 45 52 20 DA 45 49 43 48 45 4E 22 00 47 |E DER .EICHEN".G|
00002230: 2A 07 01 99 22 11 12 D2 C5 D4 D5 D2 CE 92 3D 20 |*...".........= |
00002240: D7 45 49 54 45 52 22 00 57 2A 08 01 A1 43 24 3A |.EITER".W*...C$:|
00002250: 8B 43 24 89 32 36 34 00 6A 2A 09 01 A1 43 24 3A |.C$.264.j*...C$:|
00002260: 8B 43 24 B2 22 22 89 32 36 35 00 8F 2A 0A 01 43 |.C$."".265..*..C|
00002270: B2 C6 28 43 24 29 3A 8B 43 B2 31 33 35 A7 97 36 |..(C$):.C.135..6|
00002280: 34 36 2C A5 43 28 36 34 36 29 3A 89 32 36 30 00 |46,.C(646):.260.|
00002290: BB 2A 0B 01 43 B2 C6 28 43 24 29 3A 8B 43 B2 31 |.*..C..(C$):.C.1|
000022A0: 33 33 B0 43 B2 31 33 34 A7 58 B2 35 33 31 34 37 |33.C.134.X.53147|
000022B0: AA 43 3A 97 58 2C A5 43 28 58 29 00 CA 2A 0C 01 |.C:.X,.C(X)..*..|
000022C0: 8B 43 B3 B1 31 33 89 32 36 34 00 D0 2A 0D 01 8E |.C..13.264..*...|
000022D0: 00 00 00 E3 |.... |
....... TEXT 64.+....G(14):.657,128:.788
,52.4....240.B....C$:.C$.4._....C$:.C$..
" .";:C.F(C$):..M...."..";:.5.~....C$:.C
$."".7.....X.F(C$):C.X.127:.C.13.C.17.C.
19.C.20.C.29.C.31........7.D...X$.""....
..#1,C$:.C$.R$.C$.G(141).......X$.X$.C$:
.11.....L.0:LL.L0: 1:. ENTRY.7....".
. TEXT 64 ...M....,"F
UNKTIONEN:..".Q....,".E.RSTELLEN EINES D
OKUMENTES......,".S.PEICHERN EINES DOKUM
ENTES......,".A.UFRUFEN EINES DOKUMENTES
.Z....,".D.RUCKEN EINES DOKUMENTES......
,".V.ERAENDERN EINES DOKUMENTES.%....,".
G.LOBALES SUCHEN UND TAUSCHEN.J....,".B.
S-ANZEIGE EINES DOKUMENTES.K....,".R.UND
SCHREIBEN ERSTELLEN......,".P.ROGRAMMEND
E.....X$."PBVGDSRAE":.".WELCHE ";:.217
:.I.0.233.A...J.I:.J.4.32.X....".":. GET
SUBJECT......H$."".."DOKUMENT: ."H$:.".
(RETURN LAESST DEN NAMEN UNVERAENDERT).I
...M.61:.".DOKUMENT-NAME:":.224:.C..13.2
7.\....:.X$."".H$.X$.J....H$."".27... ..
J.7.T$(0).""..".KEIN DOKUMENT IM SPEICHE
R":.214:.13...!..OF.0.J.7.T$(0)."".35...
"..".DOKUMENT NICHT GESPEICHERT ... SPEI
CHER LOESCHEN";:.216:.I.13.$.#..J.36,52,
136,162,98,108,87,38.9.$.. READ TO SCREE
N.A.%.N.39:F.0:LL.20:TB$."":.1,3:.169:.1
3..&.OF.1:T.0:. WRITE NEW TEXT...'.."..
"H$:.:."................................
.........G.(..C$:.C$.40...).M.M0:.I.T.V:
T$(I)."":X$.""...*..226:.C.13..:.X$."".4
2...+.T$(I).X$:.C..92...4.,..I.V..I.I.1.
V:T$(I)."":..].-.T.0:L$."":.46:.13:. PAC
K THE STRINGS.W....:.I.T.V:.T$(I)."".49.
../.X$.T$(I):M.M0.C(L$):L$.L$.H(X$,M).S.
0.X$.J(X$,M.1):.C(L$).M0.T$(T).L$:."*";:
L$.X$:T.T.1.Y.1.....2..:T$(T).L$:.T.V..I
.T.1.V:T$(I)."":....3.....4.. EDIT THE T
EXT.C.5..".WIEVIEL % TEXT UEBERSPRINGEN
(0-100) 0...";T:T..(T):.T.99.T.100..6.
OF.1:.I.0.V:.T$(I)."".....7.I.I.1:T..(T.
I.100..5)...8.L.0:.T.V.13...9.X$.T$(T):.
X$."".84...:.P$.H(H$,20):.T.P$.T$(T.1)..
.;..".."I(P$,20):.".".29)".BLOCK"T.7.<..
".......................................
........F.=..C$:.C$.61._.>.. & SET CURSO
R (A,D)...?.."..."H(X$,L):."...".L)" .."
J(X$,L.1,1)...@.."...".L.1)J(X$,L.2)H(B$
,M0.C(X$)):."...W.A..7:.X.92.T$(T).X$:.4
5:. END...B..X.29.L.L.(L.1.C(X$)):.62:.
CURSOR RIGHT.*.C..C.29.L.L.(L.0):.62:. C
URSOR LEFT.Z.D..X.17.L.L.40.(L.40.C(X$))
:.62:. CURSOR DOWN...E..C.17.L.L.40.(L.3
9):.62:. CURSOR UP...F..X.19.L.0:.62:. C
URSOR HOME.Z.G..C.19..I.T.V.1:T$(I).T$(I
.1):.:T$(V)."":.56:. CLEAR...H..X.13.T$(
T).X$:T.T.1:.56:. NEXT BLOCK.3.I..C.13.T
$(T).X$:T.T.(T.0):.56:. PRIOR BLOCK.D.J.
.L..C(X$).62.F.K.L$.H(X$,L):.X.148.79:.
INSERT...L.M$.J(X$,L.2):.C..20.X$.L$.C$.
M$:X.29:.66:. REPLACE CHARACTER.Q.M.X$.L
$.M$:.X$."".C.19:.71:. NULL BLOCK.Y.N..6
2...O.M$.J(X$,L.1):."................."M
$:."..."L$.'.P.."...".C(L$));:M.M0:.224.
T.Q.M.M0.C(L$):L$.L$.H(X$,M):M$.J(X$,M.1
).M$...R.M.M0.C(L$):T$(T).L$.H(M$,M):L$.
J(M$,M.1):M$."":.L$."".57...S.X.T:T.T.1:
.46:T.X:.57...T.. ADD TO THE END.R.U..T.
0.45:. END...V.X$.T$(T.1):."."X$:.".".C(
X$));:.40...W.. INPUT FILE.6.X.Q9$."DOKU
MENT":. FOR ERROR MSG IN 60000.\.Y..CF.2
..".VON DER DATASETTE";:.216..Z..CF.2.(
CF.2.I.0)..1,1,0,H$:.92...[..1,08,2,H(H$
,16):.8,X,X$:.X.257.Z.\.OF.0:.10:.".LIES
T : ."X$:H$.X$:.10:.X$:.:. HEADER...].X
$.G(31):.I.0.V:L$."":. INPUT FILE.!.^..J
.1.M0:.#1,C$:.ST.J.M0:.96.M._..C$.X$.L$.
L$.C$:. ONLY LEGAL CHARACTERS.Q.`..J:T$(
I).L$:.L$;:.ST.0..I:I.I.1...A.T.I:.50:.2
14:.13. .B..99:.13:. OUTPUT FILE.B.C..CF
.2..".AUF DATASETTE";:.216...D..CF.2.(CF
.3.I.0)..1,1,1,H$:.105...E.L$."0:".H(H$,
16):.1,08,2,L$:.8,X,X$: 1:.X.104.Q.F..".
DOKUMENT EXISTIERT - UEBERSCHREIBEN ";:
.216:.I...E.G..8,"S"L$:.8,"I0...H..1,08,
3,L$.",S,W":.8,X,X$:.X.Q9$."SPACE":.257.
..I.OF.0:.1,H$G(141)D$.U.J..I.0.V:.T$(I)
.""..1,T$(I);:."*";:....K..1,"\";:....L.
. BATCH PROCESSING.".M.Q9$."FILE":. FOR
ERROR MSG IN 60000.D.N..".";:.CF.114,112
:. ELSE BOTH.F.O.."VON DATASETTE";:.216:
.I.114.Z.P.. FROM CASSETTE...Q..2,1:.117
...R.. FROM DISC.M.S..".ADRESSEN 64: DAT
EI-NAME -...";X$:.X$."-".115...T..2,08,
2,X$:.8,X,X$:.X. 2:.257...U.. PREPARE FO
R OUTPUT.;.V.TB$."":S2.0:N.72:F.1:.1,04:
S$.".".H(B$,40.N.2).A.W..".STANDARD-FORM
AT";:.216:.I..190...X.. GET THE NAME AND
SALUTATION...Y..2,Z$:.ST.0.C(Z$).2.135:
. NO LAST NAME...Z.L$."":.187:X$."":Y$."
":M$."SEHR GEEHRTE DAMEN UND HERREN,"...
{..2,X$:.C(X$).2.X$."":.125:. NO FIRST N
AME.>.|.M$."LIEBE/R ".X$.",":X$.X$." ".G
.}..2,Y$:.C(Y$).2.Y$."":.127:. NO TITLE.
..~.Y$.Y$." ":M$."LIEBE/R ".Y$.Z$.",...
.L$.Y$.X$.Z$:.2,X$:.C(X$).2.L$.L$.", ".X
$.....Z$.M$:M$."":P$.L$:.205:. PRINT NAM
E...... GET ADDRESS......2,L$:.C(L$).1.P
$.L$:.205:. LINE 2.A....2,L$:.C(L$).1.P$
.L$:.205:. LINE 3.U....2,L$:.2,Y$:.C(Y$)
.1.L$.L$.", ".Y$:. STATE, ZIP......C(L$)
.1.P$.L$:.205......I.L.14:.205:.:L$.Z$:P
$.L$:.170:.120.A... 2:.13.Z.... SEARCH A
ND REPLACE......"..SUCHEN NACH?":M.40:.2
24:Z$.X$:L.C(X$):.L.0.L.M.137.>....:.".E
RSETZEN DURCH?":.224:Y$.X$:.:..E...X$.""
:M$."":L$."":T.0:U.0:F.0:OF.1.{.... ATTA
CH T$ TO X$......C(X$)..L.144......T.V.1
49:. ALL T$'S READ.N...X$.X$.T$(T):T$(T)
."":T.T.1:.140...... SEARCH FOR MATCH...
...I.1.C(X$).L.1:.J(X$,I,L)..Z$..:J.I:.1
47.(...M$.Y$:J.I.L:.".";.<.... SPLIT STR
INGS.L...M$.H(X$,I.1).M$:X$.J(X$,J):.154
:.F.160:.140..... STOW LAST L$......154
:.F.160:. CLEAR M$.D...M$.X$:.154:.F.160
:. M$_X$; CLEAR BOTH......U..V.T.U:.50:.
13:. STOW L$, CLEAR HIGHER BLOCKS......1
60.%.... CLEAR M$ - STOW L$ IF NEEDED.[.
..M.M0.C(L$):L$.L$.H(M$,M):M$.J(M$,M.1):
.C(L$).M0...I....U..V.159......U.T.T$(U)
.L$:."*.";:U.U.1:L$.M$:M$."":..O....T.V.
.I.V.T.1..1:T$(I).T$(I.1):.:T$(T)."":T.T
.1:.157.Y...F.1:.... .. ERROR EXIT......
:.".OUT OF ROOM - DATA IMPAIRED":.214:.1
3.0.... FORMAT AND PRINT.=....164:.13.U.
...1,04:F.1:. PRINTER.....S2.1:N.60:TB$.
"":X$."FID":. DEFAULTS (DRAFT)......"..F
.ORMAL, .I.NFORMAL, OR .D.RAFT";:.217:J.
I.Q....J.2.S2.0:N.72:.190.....S$.".".H(B
$,40.N.2):.J.0.182:. FORMAL.....L$.".".H
$:P$.H$:M$.H(K$,C(H$)).:...J.0:.".":.205
:.205:.J...D...T.0:X$."]".TB$:E.0:Z$.B$:
. PRINT TEXT......C(X$)..N.X$.X$.T$(T):T
.T.1:.C(X$)..N.T.V.X$.X$."\.J....F(X$).3
2.X$.J(X$,2):.172:. LEADING BLANKS......
E.X$."[".X$.....L$.H(X$,N.1):P$.L$:J.0:K
.0:M$.B$:.I.1.C(L$):C.F(J(L$,I)).8....C.
90.C.96..201:.X.I.J:.178.L....:.I.C(L$).
J.1..1:.J(L$,I,1)." "..:I.J:.J.0.213....
.J.0:X$.J(X$,I.1):L$.H(L$,I.1):P$.H(P$,I
.K):M$.H(M$,I.K).I....C.94.C.95.E.0:X$."
]".TB$.X$.....X.C:.205:.J.0.X.94.X.92..2
10:.J.0.X.92........172.. ... FORMAL.= .
.L$."":.187:.".VIER ADRESS-ZEILEN":M.N:.
I.1.4.M ..."ZEILE"I:.224:.:.C(X$).M..".Z
U LANG ":.184.. ..P$.X$:.205:.:.205:.205
.. ..."ANREDE ":.224:P$.X$:.170.Y ...
:M$."":Y$.S$:.I.1.3:.P$:.189:.:P$.D$:.18
9.. ...I.1.5:.205:.:S$.Y$:...!..K.C(P$):
S$.".".H(B$,40.K.2):.205.0!... FORMAT VA
RIATIONS.X!...".STANDARD-FORMAT:":.," EI
N-ZEILIG..!...,N"ZEICHEN PRO ZEILE ":.,
LL"ZEILEN PRO SEITE..!A..," TAB-LAENGE =
"C(TB$).S!B..".MOECHTEN SIE ES AENDERN "
;:.216:.I....!C..".EIN-ZEILIG ";:.216:S
2.I.#"D..".ZEICHEN PRO ZEILE (20-80)
72 .....";N.="E..N.20.N.80.."..":.196.Z"
F..".ZEILEN PRO SEITE "LL". ......";:.L
L:.LL.1.."..":.198.."G..".LAENGE DER TAB
.";:X$."0123456789":.217:TB$.H(B$,I).."H
...L"I.. ENHANCEMENT..#J.K.K.1:X.1:J.I:.
C.91.C.93.X.0:E.(C.91):Z$.B$:Y$.".":.E.Z
$.K$:Y$."..0#K.L$.H(L$,I.1).Y$.J(L$,I.1)
.D#L.P$.H(P$,I.K).J(L$,I.1):M$.H(M$,I.K)
.J(Z$,I.1):..S#M.. LINE OUT..#N..P$."".P
$.S$.P$..#O..L$;:.208:.J.0.S2.0...C#P..F
..:.1,P$;:.M$.B$..1,Q$S$M$;..#Q..1:P$.""
:L$."":M$."":L.L.1:.L.LL....#R..F.0..214
:L.0:..+$S..L..I.L.LP.1:.1:.:L.0:. PAGE
WITH BLANKS.6$T..".":..B$U.J.1:.".ZEILE
FUER DRUCK ZU LANG":.210:..R$V.. UTILITI
ES..$W..".. WEITER MIT BELIEBIGER TASTE"
;:.4:.:.".":...$X.X$."JN..$Y.."? ";..$Z.
.4:.I.1.C(X$):.C$..J(X$,I,1)..:.218..$..
I.I.1:.C$;..%...W$:.W$."".."..";:.220.#%
..." .";:.W$.R$..:..;%...W$.G(20)..W$;:.
218.D%...220._%..X$."":. INPUT A STRING.
O%...C$:.C$.225..%...5:.C.13.C.92.232..%
...C.20.X$.""..C$;:X$.H(X$,C(X$).1):. DE
LETE.S%...C.20.226:. DELETE ON NULL..&..
.(127.C).32.226:. CURSOR CONTROL CHARACT
ERS..&...C$;:.C.34..C$G(20);.6&..X$.X$.C
$:.C(X$).M.226.<&....S&... QUIT THE PROG
RAM..&..."..SEITENVORSCHUB AM DRUCKER
";:.216:.I.236..&...1,04:F.1:L..1:.210:
. EXPEL A PAGE.E&...OF.0.T$(0)."".238..'
...".DOKUMENT NICHT GESICHERT; SPEICHERN
";:.216:.I.0. 1:.99..'.. 1:.".TSCHUESS!"
:..A'...1,04:F.1:L..1:.210:. EXPEL A PAG
E.R'... INITIALIZE..'..LP.72:L0.60:M0.16
0:Q$.G(141):R$.G(13):K$."...'..V..((.(0)
.2000).M0):.T$(V)..'..."................
..............".39)"..":.59468,14:. FORM
AT..(...53272,2.B(53272):.". .
TEXT 64 ../(...258:. COLOR CHANGE.
R(..."..K.ASSETTE, .D.ISKETTE ODER .B.EI
DES";:X$."DKB":.217:CF.I.1..(..B$."
":.I.1.5:B$.B$.B$:.:.8,08,15.B(...".TAGE
SDATUM ?":M.20:.224:D$.X$..(..K$." ":.
1525 PRINTER..)... K$="_":Q$=R$+CHR$(27)
+".":REM 8300 PRINTER.')...I.1.7:K$.K$.K
$:.:.13./)...13.N)... LETTERHEAD DATA, D
ELETED.V)..."".^)..."".F)...""..)...Q9$"
NICHT GEFUNDEN":.214:.13..)... COLOR CH
ANGE ROUTINE.H)....C(X).B(X).1.16.((B(X)
.15).15)..)...:.".......F1.= FARBE DES R
ANDES"..*..."..F3.= HINTERGRUND-FARBE"..
*..."..F5.= FARBE DER ZEICHEN".G*..."..R
ETURN.= WEITER".W*...C$:.C$.264.J*...C$:
.C$."".265..*..C.F(C$):.C.135..646,.C(64
6):.260..*..C.F(C$):.C.133.C.134.X.53147
.C:.X,.C(X).J*...C..13.264.P*.......
> CLICK IMAGE PREVIEW FOR FULL MODAL