Multiple names: TEXT 64, GAZETTE TEXTER
FILE INFORMATION
FILENAME(S):
• TEXT 64<br>• GAZETTE TEXTER
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-10-20 14:29:49
APPEARS ON: 2 disk(s)
FILE HASH
19eb47f0c65deede6262d29c9a7bfed77e4fc140ae0c47d9f26d9fe76fcb17c9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 TOOLS | TEXT 64 | PRG | Treasure Chest - Klaus Der Suhler | 19 | 7 | DOWNLOAD FILE |
| AZETTE ISK | GAZETTE TEXTER | PRG | Treasure Chest - Klaus Der Suhler | 27 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 05 00 99 C7 28 31 34 29 3A 97 36 35 |..1.....(14):.65|
00000010: 37 2C 31 32 38 3A 97 36 35 30 2C 31 32 38 3A 97 |7,128:.650,128:.|
00000020: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 31 |53280,0:.53281,1|
00000030: 31 00 3C 08 08 00 8D 36 32 30 30 30 00 46 08 0A |1.<....62000.F..|
00000040: 00 89 39 30 30 30 00 55 08 14 00 A1 43 24 3A 8B |..9000.U....C$:.|
00000050: 43 24 89 32 30 00 72 08 18 00 A1 43 24 3A 8B 43 |C$.20.r....C$:.C|
00000060: 24 A7 99 22 20 9D 22 3B 3A 43 B2 C6 28 43 24 29 |$.." .";:C..(C$)|
00000070: 3A 8E 00 81 08 19 00 99 22 A4 9D 22 3B 3A 89 32 |:......."..";:.2|
00000080: 34 00 93 08 1E 00 A1 43 24 3A 8B 43 24 B2 22 22 |4......C$:.C$.""|
00000090: 89 33 30 00 C8 08 20 00 58 B2 C6 28 43 24 29 3A |.30... .X..(C$):|
000000A0: 43 B2 58 AF 31 32 37 3A 8B 43 B2 31 33 B0 43 B2 |C.X.127:.C.13.C.|
000000B0: 31 37 B0 43 B2 31 39 B0 43 B2 32 30 B0 43 B2 32 |17.C.19.C.20.C.2|
000000C0: 39 B0 43 B1 33 31 A7 8E 00 D0 08 22 00 89 33 30 |9.C.31....."..30|
000000D0: 00 DA 08 28 00 58 24 B2 22 22 00 F8 08 2A 00 A1 |...(.X$.""...*..|
000000E0: 23 31 2C 43 24 3A 8B 43 24 B2 52 24 B0 43 24 B2 |#1,C$:.C$.R$.C$.|
000000F0: C7 28 31 34 31 29 A7 8E 00 09 09 2C 00 58 24 B2 |.(141).....,.X$.|
00000100: 58 24 AA 43 24 3A 89 34 32 00 22 09 64 00 4C B2 |X$.C$:.42.".d.L.|
00000110: 30 3A 4C 4C B2 4C 30 3A A0 31 3A 8F 20 45 4E 54 |0:LL.L0:.1:. ENT|
00000120: 52 59 00 4B 09 6E 00 99 22 93 20 20 20 20 20 20 |RY.K.n..". |
00000130: 12 20 C3 4F 4D 4D 4F 44 4F 52 45 20 D4 C5 D8 D4 |. .OMMODORE ....|
00000140: 20 36 34 20 20 20 20 20 20 11 11 00 61 09 78 00 | 64 ...a.x.|
00000150: 99 2C 22 C6 55 4E 4B 54 49 4F 4E 45 4E 3A 11 11 |.,".UNKTIONEN:..|
00000160: 22 00 85 09 7D 00 99 2C 22 12 C5 92 52 53 54 45 |"...}..,"...RSTE|
00000170: 4C 4C 45 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D |LLEN EINES .OKUM|
00000180: 45 4E 54 45 53 00 A9 09 82 00 99 2C 22 12 D3 92 |ENTES......,"...|
00000190: 50 45 49 43 48 45 52 4E 20 45 49 4E 45 53 20 C4 |PEICHERN EINES .|
000001A0: 4F 4B 55 4D 45 4E 54 45 53 00 CC 09 87 00 99 2C |OKUMENTES......,|
000001B0: 22 12 C1 92 55 46 52 55 46 45 4E 20 45 49 4E 45 |"...UFRUFEN EINE|
000001C0: 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 EE 09 8C |S .OKUMENTES....|
000001D0: 00 99 2C 22 12 C4 92 52 55 43 4B 45 4E 20 45 49 |..,"...RUCKEN EI|
000001E0: 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 13 |NES .OKUMENTES..|
000001F0: 0A 96 00 99 2C 22 12 D6 92 45 52 41 45 4E 44 45 |....,"...ERAENDE|
00000200: 52 4E 20 45 49 4E 45 53 20 C4 4F 4B 55 4D 45 4E |RN EINES .OKUMEN|
00000210: 54 45 53 00 39 0A A0 00 99 2C 22 12 C7 92 4C 4F |TES.9....,"...LO|
00000220: 42 41 4C 45 53 20 D3 55 43 48 45 4E 20 55 4E 44 |BALES .UCHEN UND|
00000230: 20 D4 41 55 53 43 48 45 4E 00 5E 0A A5 00 99 2C | .AUSCHEN.^....,|
00000240: 22 12 C2 92 D3 2D C1 4E 5A 45 49 47 45 20 45 49 |"....-.NZEIGE EI|
00000250: 4E 45 53 20 C4 4F 4B 55 4D 45 4E 54 45 53 00 7F |NES .OKUMENTES..|
00000260: 0A AA 00 99 2C 22 12 D2 92 55 4E 44 53 43 48 52 |....,"...UNDSCHR|
00000270: 45 49 42 45 4E 20 C5 52 53 54 45 4C 4C 45 4E 00 |EIBEN .RSTELLEN.|
00000280: 95 0A B9 00 99 2C 22 12 D0 92 52 4F 47 52 41 4D |.....,"...ROGRAM|
00000290: 4D 45 4E 44 45 00 C7 0A BE 00 58 24 B2 22 50 42 |MENDE.....X$."PB|
000002A0: 56 47 44 53 52 41 45 22 3A 99 22 11 D7 45 4C 43 |VGDSRAE":."..ELC|
000002B0: 48 45 20 20 20 22 3B 3A 8D 38 30 36 30 3A 8B 49 |HE ";:.8060:.I|
000002C0: B2 30 89 38 37 30 30 00 D8 0A C3 00 4A B2 49 3A |.0.8700.....J.I:|
000002D0: 8B 4A B3 34 89 32 35 30 00 EF 0A C8 00 99 22 93 |.J.4.250......".|
000002E0: 22 3A 8F 20 47 45 54 20 53 55 42 4A 45 43 54 00 |":. GET SUBJECT.|
000002F0: 35 0B D2 00 8B 48 24 B1 22 22 A7 99 22 C4 4F 4B |5....H$.""..".OK|
00000300: 55 4D 45 4E 54 3A 20 12 22 48 24 3A 99 22 11 28 |UMENT: ."H$:.".(|
00000310: D2 C5 D4 D5 D2 CE 20 4C 41 45 53 53 54 20 44 45 |...... LAESST DE|
00000320: 4E 20 CE 41 4D 45 4E 20 55 4E 56 45 52 41 45 4E |N .AMEN UNVERAEN|
00000330: 44 45 52 54 29 00 62 0B DC 00 4D B2 36 31 3A 99 |DERT).b...M.61:.|
00000340: 22 11 C4 4F 4B 55 4D 45 4E 54 2D CE 41 4D 45 3A |"..OKUMENT-.AME:|
00000350: 22 3A 8D 38 32 30 30 3A 8B 43 B3 B1 31 33 89 32 |":.8200:.C..13.2|
00000360: 30 30 00 75 0B E6 00 99 3A 8B 58 24 B1 22 22 A7 |00.u....:.X$."".|
00000370: 48 24 B2 58 24 00 84 0B F0 00 8B 48 24 B2 22 22 |H$.X$......H$.""|
00000380: 89 32 30 30 00 BF 0B FA 00 8B 4A B3 37 AF 54 24 |.200......J.7.T$|
00000390: 28 30 29 B2 22 22 A7 99 22 11 CB 45 49 4E 20 C4 |(0)."".."..EIN .|
000003A0: 4F 4B 55 4D 45 4E 54 20 49 4D 20 D3 50 45 49 43 |OKUMENT IM .PEIC|
000003B0: 48 45 52 22 3A 8D 38 30 30 30 3A 89 31 30 30 00 |HER":.8000:.100.|
000003C0: DA 0B 04 01 8B 4F 46 B2 30 B0 4A B3 37 B0 54 24 |.....OF.0.J.7.T$|
000003D0: 28 30 29 B2 22 22 89 32 38 30 00 21 0C 0E 01 99 |(0)."".280.!....|
000003E0: 22 11 C4 4F 4B 55 4D 45 4E 54 20 4E 49 43 48 54 |"..OKUMENT NICHT|
000003F0: 20 47 45 53 50 45 49 43 48 45 52 54 20 2E 2E 2E | GESPEICHERT ...|
00000400: 20 D3 50 45 49 43 48 45 52 20 4C 4F 45 53 43 48 | .PEICHER LOESCH|
00000410: 45 4E 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 31 30 |EN";:.8050:.I.10|
00000420: 30 00 4E 0C 18 01 91 4A 89 34 30 30 2C 31 30 30 |0.N....J.400,100|
00000430: 30 2C 36 30 30 30 2C 37 30 30 30 2C 33 30 30 30 |0,6000,7000,3000|
00000440: 2C 34 30 30 30 2C 32 30 30 30 2C 35 30 30 00 63 |,4000,2000,500.c|
00000450: 0C 90 01 8F 20 52 45 41 44 20 54 4F 20 53 43 52 |.... READ TO SCR|
00000460: 45 45 4E 00 8D 0C 9A 01 4E B2 33 39 3A 46 B2 30 |EEN.....N.39:F.0|
00000470: 3A 4C 4C B2 32 30 3A 54 42 24 B2 22 22 3A 9F 31 |:LL.20:TB$."":.1|
00000480: 2C 33 3A 8D 37 30 38 30 3A 89 31 30 30 00 AB 0C |,3:.7080:.100...|
00000490: F4 01 4F 46 B2 31 3A 54 B2 30 3A 8F 20 57 52 49 |..OF.1:T.0:. WRI|
000004A0: 54 45 20 4E 45 57 20 54 45 58 54 00 E4 0C F9 01 |TE NEW TEXT.....|
000004B0: 99 22 93 12 22 48 24 3A 99 3A 99 22 A4 A4 A4 A4 |.".."H$:.:."....|
000004C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004E0: A4 A4 A4 A4 00 F4 0C FE 01 A1 43 24 3A 8B 43 24 |..........C$:.C$|
000004F0: 89 35 31 30 00 13 0D 08 02 4D B2 4D 30 3A 81 49 |.510.....M.M0:.I|
00000500: B2 54 A4 56 3A 54 24 28 49 29 B2 22 22 3A 58 24 |.T.V:T$(I)."":X$|
00000510: B2 22 22 00 30 0D 12 02 8D 38 32 32 30 3A 8B 43 |."".0....8220:.C|
00000520: B2 31 33 A7 99 3A 8B 58 24 B2 22 22 89 35 33 30 |.13..:.X$."".530|
00000530: 00 46 0D 1C 02 54 24 28 49 29 B2 58 24 3A 8B 43 |.F...T$(I).X$:.C|
00000540: B3 B1 39 32 A7 82 00 63 0D 26 02 8B 49 B3 56 A7 |..92...c.&..I.V.|
00000550: 81 49 B2 49 AA 31 A4 56 3A 54 24 28 49 29 B2 22 |.I.I.1.V:T$(I)."|
00000560: 22 3A 82 00 8E 0D 58 02 54 B2 30 3A 4C 24 B2 22 |":....X.T.0:L$."|
00000570: 22 3A 8D 36 31 30 3A 89 31 30 30 3A 8F 20 50 41 |":.610:.100:. PA|
00000580: 43 4B 20 54 48 45 20 53 54 52 49 4E 47 53 00 A9 |CK THE STRINGS..|
00000590: 0D 62 02 99 3A 81 49 B2 54 A4 56 3A 8B 54 24 28 |.b..:.I.T.V:.T$(|
000005A0: 49 29 B2 22 22 89 36 33 30 00 CF 0D 67 02 58 24 |I)."".630...g.X$|
000005B0: B2 54 24 28 49 29 3A 4D B2 4D 30 AB C3 28 4C 24 |.T$(I):M.M0..(L$|
000005C0: 29 3A 4C 24 B2 4C 24 AA C8 28 58 24 2C 4D 29 00 |):L$.L$..(X$,M).|
000005D0: 05 0E 6C 02 58 24 B2 CA 28 58 24 2C 4D AA 31 29 |..l.X$..(X$,M.1)|
000005E0: 3A 8B C3 28 4C 24 29 B2 4D 30 A7 54 24 28 54 29 |:..(L$).M0.T$(T)|
000005F0: B2 4C 24 3A 99 22 2A 22 3B 3A 4C 24 B2 58 24 3A |.L$:."*";:L$.X$:|
00000600: 54 B2 54 AA 31 00 0B 0E 76 02 82 00 33 0E 8A 02 |T.T.1...v...3...|
00000610: 99 3A 54 24 28 54 29 B2 4C 24 3A 8B 54 B3 56 A7 |.:T$(T).L$:.T.V.|
00000620: 81 49 B2 54 AA 31 A4 56 3A 54 24 28 49 29 B2 22 |.I.T.1.V:T$(I)."|
00000630: 22 3A 82 00 39 0E 94 02 8E 00 4D 0E E8 03 8F 20 |":..9.....M.... |
00000640: 45 44 49 54 20 54 48 45 20 54 45 58 54 00 95 0E |EDIT THE TEXT...|
00000650: F2 03 85 22 93 D7 49 45 56 49 45 4C 20 25 20 D4 |..."..IEVIEL % .|
00000660: 45 58 54 20 55 45 42 45 52 53 50 52 49 4E 47 45 |EXT UEBERSPRINGE|
00000670: 4E 20 28 30 2D 31 30 30 29 20 20 30 9D 9D 9D 22 |N (0-100) 0..."|
00000680: 3B 54 3A 54 B2 B6 28 54 29 3A 8B 54 B1 39 39 A7 |;T:T..(T):.T.99.|
00000690: 54 B2 31 30 30 00 B1 0E FC 03 4F 46 B2 31 3A 81 |T.100.....OF.1:.|
000006A0: 49 B2 30 A4 56 3A 8B 54 24 28 49 29 B1 22 22 A7 |I.0.V:.T$(I)."".|
000006B0: 82 00 CB 0E 06 04 49 B2 49 AB 31 3A 54 B2 B5 28 |......I.I.1:T..(|
000006C0: 54 AC 49 AD 31 30 30 AA 2E 35 29 00 DC 0E 10 04 |T.I.100..5).....|
000006D0: 4C B2 30 3A 8B 54 B1 56 89 31 30 30 00 F5 0E 1A |L.0:.T.V.100....|
000006E0: 04 58 24 B2 54 24 28 54 29 3A 8B 58 24 B2 22 22 |.X$.T$(T):.X$.""|
000006F0: 89 31 39 30 30 00 13 0F 24 04 50 24 B2 C8 28 48 |.1900...$.P$..(H|
00000700: 24 2C 32 30 29 3A 8B 54 A7 50 24 B2 54 24 28 54 |$,20):.T.P$.T$(T|
00000710: AB 31 29 00 37 0F 2E 04 99 22 93 12 22 C9 28 50 |.1).7...."..".(P|
00000720: 24 2C 32 30 29 3A 99 22 13 22 A6 32 39 29 22 92 |$,20):.".".29)".|
00000730: C2 4C 4F 43 4B 22 54 00 6C 0F 38 04 99 22 11 11 |.LOCK"T.l.8.."..|
00000740: 11 11 11 11 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000750: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000760: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 7D 0F 42 |.............}.B|
00000770: 04 A1 43 24 3A 8B 43 24 89 31 30 39 30 00 96 0F |..C$:.C$.1090...|
00000780: 4C 04 8F 20 26 20 53 45 54 20 43 55 52 53 4F 52 |L.. & SET CURSOR|
00000790: 20 28 41 2C 44 29 00 C2 0F 56 04 99 22 13 11 11 | (A,D)...V.."...|
000007A0: 22 C8 28 58 24 2C 4C 29 3A 99 22 13 11 11 22 A6 |".(X$,L):."...".|
000007B0: 4C 29 22 20 9D 12 22 CA 28 58 24 2C 4C AA 31 2C |L)" ..".(X$,L.1,|
000007C0: 31 29 00 EE 0F 6A 04 99 22 13 11 11 22 A6 4C AA |1)...j.."...".L.|
000007D0: 31 29 CA 28 58 24 2C 4C AA 32 29 C8 28 42 24 2C |1).(X$,L.2).(B$,|
000007E0: 4D 30 AB C3 28 58 24 29 29 3A 99 22 11 11 00 10 |M0..(X$)):."....|
000007F0: 10 B0 04 8D 33 30 3A 8B 58 B2 39 32 A7 54 24 28 |....30:.X.92.T$(|
00000800: 54 29 B2 58 24 3A 89 36 30 30 3A 8F 20 45 4E 44 |T).X$:.600:. END|
00000810: 00 3F 10 BA 04 8B 58 B2 32 39 A7 4C B2 4C AB 28 |.?....X.29.L.L.(|
00000820: 4C AA 31 B3 C3 28 58 24 29 29 3A 89 31 31 30 30 |L.1..(X$)):.1100|
00000830: 3A 8F 20 43 55 52 53 4F 52 20 52 49 47 48 54 00 |:. CURSOR RIGHT.|
00000840: 67 10 C4 04 8B 43 B2 32 39 A7 4C B2 4C AA 28 4C |g....C.29.L.L.(L|
00000850: B1 30 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 |.0):.1100:. CURS|
00000860: 4F 52 20 4C 45 46 54 00 99 10 CE 04 8B 58 B2 31 |OR LEFT......X.1|
00000870: 37 A7 4C B2 4C AB 34 30 AC 28 4C AA 34 30 B3 C3 |7.L.L.40.(L.40..|
00000880: 28 58 24 29 29 3A 89 31 31 30 30 3A 8F 20 43 55 |(X$)):.1100:. CU|
00000890: 52 53 4F 52 20 44 4F 57 4E 00 C3 10 D8 04 8B 43 |RSOR DOWN......C|
000008A0: B2 31 37 A7 4C B2 4C AA 34 30 AC 28 4C B1 33 39 |.17.L.L.40.(L.39|
000008B0: 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 |):.1100:. CURSOR|
000008C0: 20 55 50 00 E5 10 E2 04 8B 58 B2 31 39 A7 4C B2 | UP......X.19.L.|
000008D0: 30 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 |0:.1100:. CURSOR|
000008E0: 20 48 4F 4D 45 00 1F 11 EC 04 8B 43 B2 31 39 A7 | HOME......C.19.|
000008F0: 81 49 B2 54 A4 56 AB 31 3A 54 24 28 49 29 B2 54 |.I.T.V.1:T$(I).T|
00000900: 24 28 49 AA 31 29 3A 82 3A 54 24 28 56 29 B2 22 |$(I.1):.:T$(V)."|
00000910: 22 3A 89 31 30 34 30 3A 8F 20 43 4C 45 41 52 00 |":.1040:. CLEAR.|
00000920: 4B 11 F6 04 8B 58 B2 31 33 A7 54 24 28 54 29 B2 |K....X.13.T$(T).|
00000930: 58 24 3A 54 B2 54 AA 31 3A 89 31 30 34 30 3A 8F |X$:T.T.1:.1040:.|
00000940: 20 4E 45 58 54 20 42 4C 4F 43 4B 00 7C 11 00 05 | NEXT BLOCK.|...|
00000950: 8B 43 B2 31 33 A7 54 24 28 54 29 B2 58 24 3A 54 |.C.13.T$(T).X$:T|
00000960: B2 54 AA 28 54 B1 30 29 3A 89 31 30 34 30 3A 8F |.T.(T.0):.1040:.|
00000970: 20 50 52 49 4F 52 20 42 4C 4F 43 4B 00 8F 11 0A | PRIOR BLOCK....|
00000980: 05 8B 4C B1 B2 C3 28 58 24 29 89 31 31 30 30 00 |..L...(X$).1100.|
00000990: B3 11 14 05 4C 24 B2 C8 28 58 24 2C 4C 29 3A 8B |....L$..(X$,L):.|
000009A0: 58 B2 31 34 38 89 31 33 35 30 3A 8F 20 49 4E 53 |X.148.1350:. INS|
000009B0: 45 52 54 00 F6 11 1E 05 4D 24 B2 CA 28 58 24 2C |ERT.....M$..(X$,|
000009C0: 4C AA 32 29 3A 8B 43 B3 B1 32 30 A7 58 24 B2 4C |L.2):.C..20.X$.L|
000009D0: 24 AA 43 24 AA 4D 24 3A 58 B2 32 39 3A 89 31 32 |$.C$.M$:X.29:.12|
000009E0: 31 30 3A 8F 20 52 45 50 4C 41 43 45 20 43 48 41 |10:. REPLACE CHA|
000009F0: 52 41 43 54 45 52 00 22 12 32 05 58 24 B2 4C 24 |RACTER.".2.X$.L$|
00000A00: AA 4D 24 3A 8B 58 24 B2 22 22 A7 43 B2 31 39 3A |.M$:.X$."".C.19:|
00000A10: 89 31 32 36 30 3A 8F 20 4E 55 4C 4C 20 42 4C 4F |.1260:. NULL BLO|
00000A20: 43 4B 00 2C 12 3C 05 89 31 31 30 30 00 5D 12 46 |CK.,.<..1100.].F|
00000A30: 05 4D 24 B2 CA 28 58 24 2C 4C AA 31 29 3A 99 22 |.M$..(X$,L.1):."|
00000A40: 93 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000A50: 12 22 4D 24 3A 99 22 13 11 11 22 4C 24 00 7B 12 |."M$:."..."L$.{.|
00000A60: 4B 05 99 22 13 11 11 22 A3 C3 28 4C 24 29 29 3B |K.."..."..(L$));|
00000A70: 3A 4D B2 4D 30 3A 8D 38 32 30 30 00 A8 12 50 05 |:M.M0:.8200...P.|
00000A80: 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 |M.M0..(L$):L$.L$|
00000A90: AA C8 28 58 24 2C 4D 29 3A 4D 24 B2 CA 28 58 24 |..(X$,M):M$..(X$|
00000AA0: 2C 4D AA 31 29 AA 4D 24 00 E7 12 5A 05 4D B2 4D |,M.1).M$...Z.M.M|
00000AB0: 30 AB C3 28 4C 24 29 3A 54 24 28 54 29 B2 4C 24 |0..(L$):T$(T).L$|
00000AC0: AA C8 28 4D 24 2C 4D 29 3A 4C 24 B2 CA 28 4D 24 |..(M$,M):L$..(M$|
00000AD0: 2C 4D AA 31 29 3A 4D 24 B2 22 22 3A 8B 4C 24 B2 |,M.1):M$."":.L$.|
00000AE0: 22 22 89 31 30 35 30 00 04 13 64 05 58 B2 54 3A |"".1050...d.X.T:|
00000AF0: 54 B2 54 AA 31 3A 8D 36 31 30 3A 54 B2 58 3A 89 |T.T.1:.610:T.X:.|
00000B00: 31 30 35 30 00 19 13 6C 07 8F 20 41 44 44 20 54 |1050...l.. ADD T|
00000B10: 4F 20 54 48 45 20 45 4E 44 00 2C 13 76 07 8B 54 |O THE END.,.v..T|
00000B20: B2 30 89 36 30 30 3A 8F 20 45 4E 44 00 54 13 80 |.0.600:. END.T..|
00000B30: 07 58 24 B2 54 24 28 54 AB 31 29 3A 99 22 93 22 |.X$.T$(T.1):."."|
00000B40: 58 24 3A 99 22 13 22 A6 C3 28 58 24 29 29 3B 3A |X$:."."..(X$));:|
00000B50: 89 35 31 30 00 65 13 D0 07 8F 20 49 4E 50 55 54 |.510.e.... INPUT|
00000B60: 20 46 49 4C 45 00 92 13 D5 07 51 39 24 B2 22 C4 | FILE.....Q9$.".|
00000B70: 4F 4B 55 4D 45 4E 54 22 3A 20 8F 20 46 4F 52 20 |OKUMENT": . FOR |
00000B80: 45 52 52 4F 52 20 4D 53 47 20 49 4E 20 36 30 30 |ERROR MSG IN 600|
00000B90: 30 30 00 B9 13 EE 07 8B 43 46 B1 32 A7 99 22 11 |00......CF.2..".|
00000BA0: D6 4F 4E 20 44 45 52 20 C4 41 54 41 53 45 54 54 |.ON DER .ATASETT|
00000BB0: 45 22 3B 3A 8D 38 30 35 30 00 DE 13 F8 07 8B 43 |E";:.8050......C|
00000BC0: 46 B2 32 B0 28 43 46 B1 32 AF 49 B2 30 29 A7 9F |F.2.(CF.2.I.0)..|
00000BD0: 31 2C 31 2C 30 2C 48 24 3A 89 32 31 30 30 00 04 |1,1,0,H$:.2100..|
00000BE0: 14 02 08 9F 31 2C 30 38 2C 32 2C C8 28 48 24 2C |....1,08,2,.(H$,|
00000BF0: 31 36 29 3A 84 38 2C 58 2C 58 24 3A 8B 58 89 36 |16):.8,X,X$:.X.6|
00000C00: 30 30 30 30 00 3B 14 34 08 4F 46 B2 30 3A 8D 34 |0000.;.4.OF.0:.4|
00000C10: 30 3A 99 22 11 CC 49 45 53 54 20 20 3A 20 12 22 |0:."..IEST : ."|
00000C20: 58 24 3A 48 24 B2 58 24 3A 8D 34 30 3A 99 58 24 |X$:H$.X$:.40:.X$|
00000C30: 3A 99 3A 8F 20 48 45 41 44 45 52 00 62 14 98 08 |:.:. HEADER.b...|
00000C40: 58 24 B2 C7 28 33 31 29 3A 81 49 B2 30 A4 56 3A |X$..(31):.I.0.V:|
00000C50: 4C 24 B2 22 22 3A 8F 20 49 4E 50 55 54 20 46 49 |L$."":. INPUT FI|
00000C60: 4C 45 00 84 14 A2 08 81 4A B2 31 A4 4D 30 3A A1 |LE......J.1.M0:.|
00000C70: 23 31 2C 43 24 3A 8B 53 54 A7 4A B2 4D 30 3A 89 |#1,C$:.ST.J.M0:.|
00000C80: 32 32 33 30 00 B0 14 AC 08 8B 43 24 B1 58 24 A7 |2230......C$.X$.|
00000C90: 4C 24 B2 4C 24 AA 43 24 3A 8F 20 4F 4E 4C 59 20 |L$.L$.C$:. ONLY |
00000CA0: 4C 45 47 41 4C 20 43 48 41 52 41 43 54 45 52 53 |LEGAL CHARACTERS|
00000CB0: 00 D4 14 B6 08 82 4A 3A 54 24 28 49 29 B2 4C 24 |......J:T$(I).L$|
00000CC0: 3A 99 4C 24 3B 3A 8B 53 54 B2 30 A7 82 49 3A 49 |:.L$;:.ST.0..I:I|
00000CD0: B2 49 AB 31 00 EC 14 CA 08 54 B2 49 3A 8D 36 35 |.I.1.....T.I:.65|
00000CE0: 30 3A 8D 38 30 30 30 3A 89 31 30 30 00 09 15 B8 |0:.8000:.100....|
00000CF0: 0B 8D 33 30 32 30 3A 89 31 30 30 3A 8F 20 4F 55 |..3020:.100:. OU|
00000D00: 54 50 55 54 20 46 49 4C 45 00 2C 15 CC 0B 8B 43 |TPUT FILE.,....C|
00000D10: 46 B1 32 A7 99 22 93 C1 55 46 20 C4 41 54 41 53 |F.2.."..UF .ATAS|
00000D20: 45 54 54 45 22 3B 3A 8D 38 30 35 30 00 51 15 D6 |ETTE";:.8050.Q..|
00000D30: 0B 8B 43 46 B2 32 B0 28 43 46 B2 33 AF 49 B2 30 |..CF.2.(CF.3.I.0|
00000D40: 29 A7 9F 31 2C 31 2C 31 2C 48 24 3A 89 33 31 30 |)..1,1,1,H$:.310|
00000D50: 30 00 84 15 E0 0B 4C 24 B2 22 30 3A 22 AA C8 28 |0.....L$."0:"..(|
00000D60: 48 24 2C 31 36 29 3A 9F 31 2C 30 38 2C 32 2C 4C |H$,16):.1,08,2,L|
00000D70: 24 3A 84 38 2C 58 2C 58 24 3A A0 31 3A 8B 58 89 |$:.8,X,X$:.1:.X.|
00000D80: 33 30 38 30 00 BE 15 EA 0B 99 22 11 C4 4F 4B 55 |3080......"..OKU|
00000D90: 4D 45 4E 54 20 45 58 49 53 54 49 45 52 54 20 2D |MENT EXISTIERT -|
00000DA0: 20 55 45 42 45 52 53 43 48 52 45 49 42 45 4E 20 | UEBERSCHREIBEN |
00000DB0: 20 22 3B 3A 8D 38 30 35 30 3A 8B 49 A7 8E 00 D2 | ";:.8050:.I....|
00000DC0: 15 F4 0B 98 38 2C 22 53 22 4C 24 3A 98 38 2C 22 |....8,"S"L$:.8,"|
00000DD0: 49 30 00 06 16 08 0C 9F 31 2C 30 38 2C 33 2C 4C |I0......1,08,3,L|
00000DE0: 24 AA 22 2C 53 2C 57 22 3A 84 38 2C 58 2C 58 24 |$.",S,W":.8,X,X$|
00000DF0: 3A 8B 58 A7 51 39 24 B2 22 53 50 41 43 45 22 3A |:.X.Q9$."SPACE":|
00000E00: 8D 36 30 30 30 30 00 1D 16 1C 0C 4F 46 B2 30 3A |.60000.....OF.0:|
00000E10: 98 31 2C 48 24 C7 28 31 34 31 29 44 24 00 44 16 |.1,H$.(141)D$.D.|
00000E20: 4E 0C 81 49 B2 30 A4 56 3A 8B 54 24 28 49 29 B1 |N..I.0.V:.T$(I).|
00000E30: 22 22 A7 98 31 2C 54 24 28 49 29 3B 3A 99 22 2A |""..1,T$(I);:."*|
00000E40: 22 3B 3A 82 00 52 16 58 0C 98 31 2C 22 5C 22 3B |";:..R.X..1,"\";|
00000E50: 3A 8E 00 69 16 A0 0F 8F 20 42 41 54 43 48 20 50 |:..i.... BATCH P|
00000E60: 52 4F 43 45 53 53 49 4E 47 00 92 16 A5 0F 51 39 |ROCESSING.....Q9|
00000E70: 24 B2 22 46 49 4C 45 22 3A 20 8F 20 46 4F 52 20 |$."FILE": . FOR |
00000E80: 45 52 52 4F 52 20 4D 53 47 20 49 4E 20 36 30 30 |ERROR MSG IN 600|
00000E90: 30 30 00 B6 16 AA 0F 99 22 93 22 3B 3A 91 43 46 |00......".";:.CF|
00000EA0: 89 34 31 30 30 2C 34 30 35 30 3A 8F 20 45 4C 53 |.4100,4050:. ELS|
00000EB0: 45 20 42 4F 54 48 00 DA 16 B4 0F 99 22 D6 4F 4E |E BOTH......".ON|
00000EC0: 20 C4 41 54 41 53 45 54 54 45 22 3B 3A 8D 38 30 | .ATASETTE";:.80|
00000ED0: 35 30 3A 8B 49 89 34 31 30 30 00 EE 16 D2 0F 8F |50:.I.4100......|
00000EE0: 20 46 52 4F 4D 20 43 41 53 53 45 54 54 45 00 FD | FROM CASSETTE..|
00000EF0: 16 DC 0F 9F 32 2C 31 3A 89 34 31 35 30 00 0D 17 |....2,1:.4150...|
00000F00: 04 10 8F 20 46 52 4F 4D 20 44 49 53 43 00 43 17 |... FROM DISC.C.|
00000F10: 0E 10 85 22 93 C1 C4 D2 C5 D3 D3 C5 CE 20 36 34 |..."......... 64|
00000F20: 3A 20 C4 41 54 45 49 2D CE 41 4D 45 20 20 2D 9D |: .ATEI-.AME -.|
00000F30: 9D 9D 22 3B 58 24 3A 8B 58 24 B2 22 2D 22 89 34 |..";X$:.X$."-".4|
00000F40: 31 31 30 00 67 17 18 10 9F 32 2C 30 38 2C 32 2C |110.g....2,08,2,|
00000F50: 58 24 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 A0 32 |X$:.8,X,X$:.X..2|
00000F60: 3A 89 36 30 30 30 30 00 80 17 36 10 8F 20 50 52 |:.60000...6.. PR|
00000F70: 45 50 41 52 45 20 46 4F 52 20 4F 55 54 50 55 54 |EPARE FOR OUTPUT|
00000F80: 00 B3 17 40 10 54 42 24 B2 22 22 3A 53 32 B2 30 |...@.TB$."":S2.0|
00000F90: 3A 4E B2 37 32 3A 46 B2 31 3A 9F 31 2C 30 34 3A |:N.72:F.1:.1,04:|
00000FA0: 53 24 B2 22 11 22 AA C8 28 42 24 2C 34 30 AB 4E |S$."."..(B$,40.N|
00000FB0: AD 32 29 00 DB 17 4A 10 99 22 11 D3 54 41 4E 44 |.2)...J.."..TAND|
00000FC0: 41 52 44 2D C6 4F 52 4D 41 54 22 3B 3A 8D 38 30 |ARD-.ORMAT";:.80|
00000FD0: 35 30 3A 8B 49 A7 8D 37 35 30 30 00 FD 17 68 10 |50:.I..7500...h.|
00000FE0: 8F 20 47 45 54 20 54 48 45 20 4E 41 4D 45 20 41 |. GET THE NAME A|
00000FF0: 4E 44 20 53 41 4C 55 54 41 54 49 4F 4E 00 29 18 |ND SALUTATION.).|
00001000: 72 10 84 32 2C 5A 24 3A 8B 53 54 B1 30 B0 C3 28 |r..2,Z$:.ST.0..(|
00001010: 5A 24 29 B3 32 89 34 39 30 30 3A 8F 20 4E 4F 20 |Z$).2.4900:. NO |
00001020: 4C 41 53 54 20 4E 41 4D 45 00 69 18 7C 10 4C 24 |LAST NAME.i.|.L$|
00001030: B2 22 22 3A 8D 37 34 35 30 3A 58 24 B2 22 22 3A |."":.7450:X$."":|
00001040: 59 24 B2 22 22 3A 4D 24 B2 22 D3 45 48 52 20 47 |Y$."":M$.".EHR G|
00001050: 45 45 48 52 54 45 20 C4 41 4D 45 4E 20 55 4E 44 |EEHRTE .AMEN UND|
00001060: 20 C8 45 52 52 45 4E 2C 22 00 98 18 86 10 84 32 | .ERREN,"......2|
00001070: 2C 58 24 3A 8B C3 28 58 24 29 B3 32 A7 58 24 B2 |,X$:..(X$).2.X$.|
00001080: 22 22 3A 89 34 32 35 30 3A 8F 20 4E 4F 20 46 49 |"":.4250:. NO FI|
00001090: 52 53 54 20 4E 41 4D 45 00 BB 18 90 10 4D 24 B2 |RST NAME.....M$.|
000010A0: 22 CC 49 45 42 45 2F 52 20 22 AA 58 24 AA 22 2C |".IEBE/R ".X$.",|
000010B0: 22 3A 58 24 B2 58 24 AA 22 20 22 00 E5 18 9A 10 |":X$.X$." ".....|
000010C0: 84 32 2C 59 24 3A 8B C3 28 59 24 29 B3 32 A7 59 |.2,Y$:..(Y$).2.Y|
000010D0: 24 B2 22 22 3A 89 34 32 37 30 3A 8F 20 4E 4F 20 |$."":.4270:. NO |
000010E0: 54 49 54 4C 45 00 0A 19 A4 10 59 24 B2 59 24 AA |TITLE.....Y$.Y$.|
000010F0: 22 20 22 3A 4D 24 B2 22 CC 49 45 42 45 2F 52 20 |" ":M$.".IEBE/R |
00001100: 22 AA 59 24 AA 5A 24 AA 22 2C 00 37 19 AE 10 4C |".Y$.Z$.",.7...L|
00001110: 24 B2 59 24 AA 58 24 AA 5A 24 3A 84 32 2C 58 24 |$.Y$.X$.Z$:.2,X$|
00001120: 3A 8B C3 28 58 24 29 B1 32 A7 4C 24 B2 4C 24 AA |:..(X$).2.L$.L$.|
00001130: 22 2C 20 22 AA 58 24 00 60 19 B8 10 5A 24 B2 4D |", ".X$.`...Z$.M|
00001140: 24 3A 4D 24 B2 22 22 3A 50 24 B2 4C 24 3A 8D 37 |$:M$."":P$.L$:.7|
00001150: 39 30 30 3A 8F 20 50 52 49 4E 54 20 4E 41 4D 45 |900:. PRINT NAME|
00001160: 00 72 19 CC 10 8F 20 47 45 54 20 41 44 44 52 45 |.r.... GET ADDRE|
00001170: 53 53 00 9A 19 D6 10 84 32 2C 4C 24 3A 8B C3 28 |SS......2,L$:..(|
00001180: 4C 24 29 B1 31 A7 50 24 B2 4C 24 3A 8D 37 39 30 |L$).1.P$.L$:.790|
00001190: 30 3A 8F 20 4C 49 4E 45 20 32 00 C2 19 E0 10 84 |0:. LINE 2......|
000011A0: 32 2C 4C 24 3A 8B C3 28 4C 24 29 B1 31 A7 50 24 |2,L$:..(L$).1.P$|
000011B0: B2 4C 24 3A 8D 37 39 30 30 3A 8F 20 4C 49 4E 45 |.L$:.7900:. LINE|
000011C0: 20 33 00 F6 19 EA 10 84 32 2C 4C 24 3A 84 32 2C | 3......2,L$:.2,|
000011D0: 59 24 3A 8B C3 28 59 24 29 B1 31 A7 4C 24 B2 4C |Y$:..(Y$).1.L$.L|
000011E0: 24 AA 22 2C 20 22 AA 59 24 3A 8F 20 53 54 41 54 |$.", ".Y$:. STAT|
000011F0: 45 2C 20 5A 49 50 00 0F 1A F4 10 8B C3 28 4C 24 |E, ZIP.......(L$|
00001200: 29 B1 31 A7 50 24 B2 4C 24 3A 8D 37 39 30 30 00 |).1.P$.L$:.7900.|
00001210: 3B 1A FE 10 81 49 B2 4C A4 31 34 3A 8D 37 39 30 |;....I.L.14:.790|
00001220: 30 3A 82 3A 4C 24 B2 5A 24 3A 50 24 B2 4C 24 3A |0:.:L$.Z$:P$.L$:|
00001230: 8D 37 30 39 30 3A 89 34 32 30 30 00 47 1A 24 13 |.7090:.4200.G.$.|
00001240: A0 32 3A 89 31 30 30 00 60 1A 70 17 8F 20 53 45 |.2:.100.`.p.. SE|
00001250: 41 52 43 48 20 41 4E 44 20 52 45 50 4C 41 43 45 |ARCH AND REPLACE|
00001260: 00 9D 1A 7A 17 99 22 93 11 D3 55 43 48 45 4E 20 |...z.."...UCHEN |
00001270: 4E 41 43 48 3F 22 3A 4D B2 34 30 3A 8D 38 32 30 |NACH?":M.40:.820|
00001280: 30 3A 5A 24 B2 58 24 3A 4C B2 C3 28 58 24 29 3A |0:Z$.X$:L..(X$):|
00001290: 8B 4C B2 30 B0 4C B2 4D 89 36 30 31 30 00 C7 1A |.L.0.L.M.6010...|
000012A0: 84 17 99 3A 99 22 11 C5 52 53 45 54 5A 45 4E 20 |...:."..RSETZEN |
000012B0: 44 55 52 43 48 3F 22 3A 8D 38 32 30 30 3A 59 24 |DURCH?":.8200:Y$|
000012C0: B2 58 24 3A 99 3A 99 00 EE 1A 8E 17 58 24 B2 22 |.X$:.:......X$."|
000012D0: 22 3A 4D 24 B2 22 22 3A 4C 24 B2 22 22 3A 54 B2 |":M$."":L$."":T.|
000012E0: 30 3A 55 B2 30 3A 46 B2 30 3A 4F 46 B2 31 00 04 |0:U.0:F.0:OF.1..|
000012F0: 1B 38 18 8F 20 41 54 54 41 43 48 20 54 24 20 54 |.8.. ATTACH T$ T|
00001300: 4F 20 58 24 00 17 1B 42 18 8B C3 28 58 24 29 B1 |O X$...B...(X$).|
00001310: B2 4C 89 36 32 35 30 00 35 1B 4C 18 8B 54 B1 56 |.L.6250.5.L..T.V|
00001320: 89 36 34 30 30 3A 8F 20 41 4C 4C 20 54 24 27 53 |.6400:. ALL T$'S|
00001330: 20 52 45 41 44 00 5A 1B 56 18 58 24 B2 58 24 AA | READ.Z.V.X$.X$.|
00001340: 54 24 28 54 29 3A 54 24 28 54 29 B2 22 22 3A 54 |T$(T):T$(T)."":T|
00001350: B2 54 AA 31 3A 89 36 32 30 30 00 71 1B 6A 18 8F |.T.1:.6200.q.j..|
00001360: 20 53 45 41 52 43 48 20 46 4F 52 20 4D 41 54 43 | SEARCH FOR MATC|
00001370: 48 00 9F 1B 74 18 81 49 B2 31 A4 C3 28 58 24 29 |H...t..I.1..(X$)|
00001380: AB 4C AA 31 3A 8B CA 28 58 24 2C 49 2C 4C 29 B3 |.L.1:..(X$,I,L).|
00001390: B1 5A 24 A7 82 3A 4A B2 49 3A 89 36 33 30 30 00 |.Z$..:J.I:.6300.|
000013A0: B5 1B 7E 18 4D 24 B2 59 24 3A 4A B2 49 AA 4C 3A |..~.M$.Y$:J.I.L:|
000013B0: 99 22 12 22 3B 00 C9 1B 9C 18 8F 20 53 50 4C 49 |.".";...... SPLI|
000013C0: 54 20 53 54 52 49 4E 47 53 00 FC 1B A6 18 4D 24 |T STRINGS.....M$|
000013D0: B2 C8 28 58 24 2C 49 AB 31 29 AA 4D 24 3A 58 24 |..(X$,I.1).M$:X$|
000013E0: B2 CA 28 58 24 2C 4A 29 3A 8D 36 35 30 30 3A 91 |..(X$,J):.6500:.|
000013F0: 46 89 36 39 30 30 3A 89 36 32 30 30 00 0F 1C 00 |F.6900:.6200....|
00001400: 19 8F 20 53 54 4F 57 20 4C 41 53 54 20 4C 24 00 |.. STOW LAST L$.|
00001410: 2C 1C 0A 19 8D 36 35 30 30 3A 8B 46 89 36 39 30 |,....6500:.F.690|
00001420: 30 3A 8F 20 43 4C 45 41 52 20 4D 24 00 58 1C 14 |0:. CLEAR M$.X..|
00001430: 19 4D 24 B2 58 24 3A 8D 36 35 30 30 3A 8B 46 89 |.M$.X$:.6500:.F.|
00001440: 36 39 30 30 3A 8F 20 4D 24 5F 58 24 3B 20 43 4C |6900:. M$_X$; CL|
00001450: 45 41 52 20 42 4F 54 48 00 8F 1C 1E 19 8B 55 B3 |EAR BOTH......U.|
00001460: B2 56 A7 54 B2 55 3A 8D 36 35 30 3A 89 31 30 30 |.V.T.U:.650:.100|
00001470: 3A 8F 20 53 54 4F 57 20 4C 24 2C 20 43 4C 45 41 |:. STOW L$, CLEA|
00001480: 52 20 48 49 47 48 45 52 20 42 4C 4F 43 4B 53 00 |R HIGHER BLOCKS.|
00001490: 99 1C 28 19 89 36 39 30 30 00 BC 1C 64 19 8F 20 |..(..6900...d.. |
000014A0: 43 4C 45 41 52 20 4D 24 20 2D 20 53 54 4F 57 20 |CLEAR M$ - STOW |
000014B0: 4C 24 20 49 46 20 4E 45 45 44 45 44 00 F2 1C 6E |L$ IF NEEDED...n|
000014C0: 19 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C |.M.M0..(L$):L$.L|
000014D0: 24 AA C8 28 4D 24 2C 4D 29 3A 4D 24 B2 CA 28 4D |$..(M$,M):M$..(M|
000014E0: 24 2C 4D AA 31 29 3A 8B C3 28 4C 24 29 B3 4D 30 |$,M.1):..(L$).M0|
000014F0: A7 8E 00 01 1D 78 19 8B 55 B1 B2 56 89 36 35 35 |.....x..U..V.655|
00001500: 30 00 2E 1D 82 19 8B 55 B3 54 A7 54 24 28 55 29 |0......U.T.T$(U)|
00001510: B2 4C 24 3A 99 22 2A 92 22 3B 3A 55 B2 55 AA 31 |.L$:."*.";:U.U.1|
00001520: 3A 4C 24 B2 4D 24 3A 4D 24 B2 22 22 3A 8E 00 68 |:L$.M$:M$."":..h|
00001530: 1D 8C 19 8B 54 B3 56 A7 81 49 B2 56 A4 54 AA 31 |....T.V..I.V.T.1|
00001540: A9 AB 31 3A 54 24 28 49 29 B2 54 24 28 49 AB 31 |..1:T$(I).T$(I.1|
00001550: 29 3A 82 3A 54 24 28 54 29 B2 22 22 3A 54 B2 54 |):.:T$(T)."":T.T|
00001560: AA 31 3A 89 36 35 33 30 00 72 1D 96 19 46 B2 31 |.1:.6530.r...F.1|
00001570: 3A 8E 00 83 1D F4 1A 8F 20 45 52 52 4F 52 20 45 |:....... ERROR E|
00001580: 58 49 54 00 B4 1D FE 1A 99 3A 99 22 11 CF 55 54 |XIT......:."..UT|
00001590: 20 4F 46 20 52 4F 4F 4D 20 2D 20 44 41 54 41 20 | OF ROOM - DATA |
000015A0: 49 4D 50 41 49 52 45 44 22 3A 8D 38 30 30 30 3A |IMPAIRED":.8000:|
000015B0: 89 31 30 30 00 CB 1D 58 1B 8F 20 46 4F 52 4D 41 |.100...X.. FORMA|
000015C0: 54 20 41 4E 44 20 50 52 49 4E 54 00 DA 1D 62 1B |T AND PRINT...b.|
000015D0: 8D 37 30 32 30 3A 89 31 30 30 00 F2 1D 6C 1B 9F |.7020:.100...l..|
000015E0: 31 2C 30 34 3A 46 B2 31 3A 8F 20 50 52 49 4E 54 |1,04:F.1:. PRINT|
000015F0: 45 52 00 23 1E 76 1B 53 32 B2 31 3A 4E B2 36 30 |ER.#.v.S2.1:N.60|
00001600: 3A 54 42 24 B2 22 22 3A 58 24 B2 22 46 49 44 22 |:TB$."":X$."FID"|
00001610: 3A 8F 20 44 45 46 41 55 4C 54 53 20 28 44 52 41 |:. DEFAULTS (DRA|
00001620: 46 54 29 00 57 1E 80 1B 99 22 11 12 C6 92 4F 52 |FT).W...."....OR|
00001630: 4D 41 4C 2C 20 12 C9 92 4E 46 4F 52 4D 41 4C 2C |MAL, ...NFORMAL,|
00001640: 20 4F 52 20 12 C4 92 52 41 46 54 22 3B 3A 8D 38 | OR ...RAFT";:.8|
00001650: 30 36 30 3A 4A B2 49 00 70 1E 94 1B 8B 4A B3 32 |060:J.I.p....J.2|
00001660: A7 53 32 B2 30 3A 4E B2 37 32 3A 8D 37 35 30 30 |.S2.0:N.72:.7500|
00001670: 00 9B 1E 9E 1B 53 24 B2 22 11 22 AA C8 28 42 24 |.....S$."."..(B$|
00001680: 2C 34 30 AB 4E AD 32 29 3A 8B 4A B2 30 89 37 34 |,40.N.2):.J.0.74|
00001690: 30 30 3A 8F 20 46 4F 52 4D 41 4C 00 BE 1E A8 1B |00:. FORMAL.....|
000016A0: 4C 24 B2 22 12 22 AA 48 24 3A 50 24 B2 48 24 3A |L$.".".H$:P$.H$:|
000016B0: 4D 24 B2 C8 28 4B 24 2C C3 28 48 24 29 29 00 DC |M$..(K$,.(H$))..|
000016C0: 1E B2 1B 4A B2 30 3A 99 22 93 22 3A 8D 37 39 30 |...J.0:.".":.790|
000016D0: 30 3A 8D 37 39 30 30 3A 8B 4A A7 8E 00 06 1F BC |0:.7900:.J......|
000016E0: 1B 54 B2 30 3A 58 24 B2 22 5D 22 AA 54 42 24 3A |.T.0:X$."]".TB$:|
000016F0: 45 B2 30 3A 5A 24 B2 42 24 3A 8F 20 50 52 49 4E |E.0:Z$.B$:. PRIN|
00001700: 54 20 54 45 58 54 00 3D 1F C6 1B 8B C3 28 58 24 |T TEXT.=.....(X$|
00001710: 29 B3 B2 4E A7 58 24 B2 58 24 AA 54 24 28 54 29 |)..N.X$.X$.T$(T)|
00001720: 3A 54 B2 54 AA 31 3A 8B C3 28 58 24 29 B3 B2 4E |:T.T.1:..(X$)..N|
00001730: B0 54 B1 56 A7 58 24 B2 58 24 AA 22 5C 00 6D 1F |.T.V.X$.X$."\.m.|
00001740: CB 1B 8B C6 28 58 24 29 B2 33 32 A7 58 24 B2 CA |....(X$).32.X$..|
00001750: 28 58 24 2C 32 29 3A 89 37 31 31 30 3A 8F 20 4C |(X$,2):.7110:. L|
00001760: 45 41 44 49 4E 47 20 42 4C 41 4E 4B 53 00 7E 1F |EADING BLANKS.~.|
00001770: D0 1B 8B 45 A7 58 24 B2 22 5B 22 AA 58 24 00 BB |...E.X$."[".X$..|
00001780: 1F DA 1B 4C 24 B2 C8 28 58 24 2C 4E AA 31 29 3A |...L$..(X$,N.1):|
00001790: 50 24 B2 4C 24 3A 4A B2 30 3A 4B B2 30 3A 4D 24 |P$.L$:J.0:K.0:M$|
000017A0: B2 42 24 3A 81 49 B2 31 A4 C3 28 4C 24 29 3A 43 |.B$:.I.1..(L$):C|
000017B0: B2 C6 28 CA 28 4C 24 2C 49 29 29 00 DD 1F E4 1B |..(.(L$,I)).....|
000017C0: 8B 43 B1 39 30 AF 43 B3 39 36 A7 8D 37 37 30 30 |.C.90.C.96..7700|
000017D0: 3A 8B 58 A7 49 B2 4A 3A 89 37 31 36 30 00 12 20 |:.X.I.J:.7160.. |
000017E0: EE 1B 82 3A 81 49 B2 C3 28 4C 24 29 A4 4A AA 31 |...:.I..(L$).J.1|
000017F0: A9 AB 31 3A 8B CA 28 4C 24 2C 49 2C 31 29 B1 22 |..1:..(L$,I,1)."|
00001800: 20 22 A7 82 3A 49 B2 4A 3A 8B 4A B2 30 89 37 39 | "..:I.J:.J.0.79|
00001810: 39 30 00 4E 20 F8 1B 4A B2 30 3A 58 24 B2 CA 28 |90.N ..J.0:X$..(|
00001820: 58 24 2C 49 AA 31 29 3A 4C 24 B2 C8 28 4C 24 2C |X$,I.1):L$..(L$,|
00001830: 49 AB 31 29 3A 50 24 B2 C8 28 50 24 2C 49 AB 4B |I.1):P$..(P$,I.K|
00001840: 29 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 00 6F |):M$..(M$,I.K).o|
00001850: 20 16 1C 8B 43 B2 39 34 B0 43 B2 39 35 A7 45 B2 | ...C.94.C.95.E.|
00001860: 30 3A 58 24 B2 22 5D 22 AA 54 42 24 AA 58 24 00 |0:X$."]".TB$.X$.|
00001870: 9E 20 20 1C 58 B2 43 3A 8D 37 39 30 30 3A 8B 4A |. .X.C:.7900:.J|
00001880: B1 30 B0 58 B2 39 34 B0 58 B2 39 32 A7 8D 37 39 |.0.X.94.X.92..79|
00001890: 35 30 3A 8B 4A B1 30 B0 58 B2 39 32 A7 8E 00 A8 |50:.J.0.X.92....|
000018A0: 20 2A 1C 89 37 31 31 30 00 B5 20 E8 1C 8F 20 46 | *..7110.. ... F|
000018B0: 4F 52 4D 41 4C 00 E7 20 F2 1C 4C 24 B2 22 22 3A |ORMAL.. ..L$."":|
000018C0: 8D 37 34 35 30 3A 99 22 93 D6 49 45 52 20 C1 44 |.7450:."..IER .D|
000018D0: 52 45 53 53 2D DA 45 49 4C 45 4E 22 3A 4D B2 4E |RESS-.EILEN":M.N|
000018E0: 3A 81 49 B2 31 A4 34 00 19 21 FC 1C 99 22 DA 45 |:.I.1.4..!...".E|
000018F0: 49 4C 45 22 49 3A 8D 38 32 30 30 3A 99 3A 8B C3 |ILE"I:.8200:.:..|
00001900: 28 58 24 29 B2 4D A7 99 22 12 DA 55 20 4C 41 4E |(X$).M.."..U LAN|
00001910: 47 20 22 3A 89 37 34 32 30 00 37 21 06 1D 50 24 |G ":.7420.7!..P$|
00001920: B2 58 24 3A 8D 37 39 30 30 3A 82 3A 8D 37 39 30 |.X$:.7900:.:.790|
00001930: 30 3A 8D 37 39 30 30 00 5B 21 10 1D 99 22 C1 4E |0:.7900.[!...".N|
00001940: 52 45 44 45 20 20 20 20 22 3A 8D 38 32 30 30 3A |REDE ":.8200:|
00001950: 50 24 B2 58 24 3A 89 37 30 39 30 00 8C 21 1A 1D |P$.X$:.7090..!..|
00001960: 8C 3A 4D 24 B2 22 22 3A 59 24 B2 53 24 3A 81 49 |.:M$."":Y$.S$:.I|
00001970: B2 31 A4 33 3A 87 50 24 3A 8D 37 34 39 30 3A 82 |.1.3:.P$:.7490:.|
00001980: 3A 50 24 B2 44 24 3A 8D 37 34 39 30 00 A7 21 2E |:P$.D$:.7490..!.|
00001990: 1D 81 49 B2 31 A4 35 3A 8D 37 39 30 30 3A 82 3A |..I.1.5:.7900:.:|
000019A0: 53 24 B2 59 24 3A 8E 00 CD 21 42 1D 4B B2 C3 28 |S$.Y$:...!B.K..(|
000019B0: 50 24 29 3A 53 24 B2 22 11 22 AA C8 28 42 24 2C |P$):S$."."..(B$,|
000019C0: 34 30 AB 4B AD 32 29 3A 89 37 39 30 30 00 E5 21 |40.K.2):.7900..!|
000019D0: 4C 1D 8F 20 46 4F 52 4D 41 54 20 56 41 52 49 41 |L.. FORMAT VARIA|
000019E0: 54 49 4F 4E 53 00 0D 22 56 1D 99 22 11 D3 54 41 |TIONS.."V.."..TA|
000019F0: 4E 44 41 52 44 2D C6 4F 52 4D 41 54 3A 22 3A 99 |NDARD-.ORMAT:":.|
00001A00: 2C 22 20 C5 49 4E 2D 5A 45 49 4C 49 47 00 40 22 |," .IN-ZEILIG.@"|
00001A10: 60 1D 99 2C 4E 22 DA 45 49 43 48 45 4E 20 50 52 |`..,N".EICHEN PR|
00001A20: 4F 20 DA 45 49 4C 45 20 20 22 3A 99 2C 4C 4C 22 |O .EILE ":.,LL"|
00001A30: DA 45 49 4C 45 4E 20 50 52 4F 20 D3 45 49 54 45 |.EILEN PRO .EITE|
00001A40: 00 5C 22 6A 1D 99 2C 22 20 D4 41 42 2D CC 41 45 |.\"j..," .AB-.AE|
00001A50: 4E 47 45 20 3D 22 C3 28 54 42 24 29 00 89 22 74 |NGE =".(TB$).."t|
00001A60: 1D 99 22 11 CD 4F 45 43 48 54 45 4E 20 D3 49 45 |.."..OECHTEN .IE|
00001A70: 20 45 53 20 41 45 4E 44 45 52 4E 20 22 3B 3A 8D | ES AENDERN ";:.|
00001A80: 38 30 35 30 3A 8B 49 A7 8E 00 AA 22 7E 1D 99 22 |8050:.I...."~.."|
00001A90: 93 C5 49 4E 2D 5A 45 49 4C 49 47 20 20 22 3B 3A |..IN-ZEILIG ";:|
00001AA0: 8D 38 30 35 30 3A 53 32 B2 49 00 DA 22 88 1D 85 |.8050:S2.I.."...|
00001AB0: 22 11 DA 45 49 43 48 45 4E 20 50 52 4F 20 DA 45 |"..EICHEN PRO .E|
00001AC0: 49 4C 45 20 20 20 28 32 30 2D 38 30 29 20 20 37 |ILE (20-80) 7|
00001AD0: 32 20 9D 9D 9D 9D 9D 22 3B 4E 00 F5 22 92 1D 8B |2 .....";N.."...|
00001AE0: 4E B3 32 30 B0 4E B1 38 30 A7 99 22 91 91 22 3A |N.20.N.80.."..":|
00001AF0: 89 37 35 36 30 00 33 23 9C 1D 99 22 11 DA 45 49 |.7560.3#..."..EI|
00001B00: 4C 45 4E 20 50 52 4F 20 D3 45 49 54 45 20 22 4C |LEN PRO .EITE "L|
00001B10: 4C 22 9D 20 20 9D 9D 9D 9D 9D 9D 22 3B 3A 85 4C |L". ......";:.L|
00001B20: 4C 3A 8B 4C 4C B3 31 A7 99 22 91 91 22 3A 89 37 |L:.LL.1.."..":.7|
00001B30: 35 38 30 00 6E 23 A1 1D 99 22 11 CC 41 45 4E 47 |580.n#..."..AENG|
00001B40: 45 20 44 45 52 20 D4 41 42 2E 22 3B 3A 58 24 B2 |E DER .AB.";:X$.|
00001B50: 22 30 31 32 33 34 35 36 37 38 39 22 3A 8D 38 30 |"0123456789":.80|
00001B60: 36 30 3A 54 42 24 B2 C8 28 42 24 2C 49 29 00 74 |60:TB$..(B$,I).t|
00001B70: 23 A6 1D 8E 00 86 23 14 1E 8F 20 45 4E 48 41 4E |#.....#... ENHAN|
00001B80: 43 45 4D 45 4E 54 00 CC 23 28 1E 4B B2 4B AA 31 |CEMENT..#(.K.K.1|
00001B90: 3A 58 B2 31 3A 4A B2 49 3A 8B 43 B2 39 31 B0 43 |:X.1:J.I:.C.91.C|
00001BA0: B2 39 33 A7 58 B2 30 3A 45 B2 28 43 B2 39 31 29 |.93.X.0:E.(C.91)|
00001BB0: 3A 5A 24 B2 42 24 3A 59 24 B2 22 92 22 3A 8B 45 |:Z$.B$:Y$.".":.E|
00001BC0: A7 5A 24 B2 4B 24 3A 59 24 B2 22 12 00 EA 23 32 |.Z$.K$:Y$."...#2|
00001BD0: 1E 4C 24 B2 C8 28 4C 24 2C 49 AB 31 29 AA 59 24 |.L$..(L$,I.1).Y$|
00001BE0: AA CA 28 4C 24 2C 49 AA 31 29 00 1E 24 46 1E 50 |..(L$,I.1)..$F.P|
00001BF0: 24 B2 C8 28 50 24 2C 49 AB 4B 29 AA CA 28 4C 24 |$..(P$,I.K)..(L$|
00001C00: 2C 49 AA 31 29 3A 4D 24 B2 C8 28 4D 24 2C 49 AB |,I.1):M$..(M$,I.|
00001C10: 4B 29 AA CA 28 5A 24 2C 49 AA 31 29 3A 8E 00 2D |K)..(Z$,I.1):..-|
00001C20: 24 DC 1E 8F 20 4C 49 4E 45 20 4F 55 54 00 41 24 |$... LINE OUT.A$|
00001C30: E6 1E 8B 50 24 B1 22 22 A7 50 24 B2 53 24 AA 50 |...P$."".P$.S$.P|
00001C40: 24 00 5C 24 F0 1E 99 4C 24 3B 3A 8D 37 39 33 30 |$.\$...L$;:.7930|
00001C50: 3A 8B 4A B1 30 B0 53 32 B2 30 A7 8E 00 7E 24 FA |:.J.0.S2.0...~$.|
00001C60: 1E 8B 46 A7 99 3A 98 31 2C 50 24 3B 3A 8B 4D 24 |..F..:.1,P$;:.M$|
00001C70: B1 42 24 A7 98 31 2C 51 24 53 24 4D 24 3B 00 A5 |.B$..1,Q$S$M$;..|
00001C80: 24 04 1F 98 31 3A 50 24 B2 22 22 3A 4C 24 B2 22 |$...1:P$."":L$."|
00001C90: 22 3A 4D 24 B2 22 22 3A 4C B2 4C AA 31 3A 8B 4C |":M$."":L.L.1:.L|
00001CA0: B3 4C 4C A7 8E 00 BA 24 0E 1F 8B 46 B2 30 A7 8D |.LL....$...F.0..|
00001CB0: 38 30 30 30 3A 4C B2 30 3A 8E 00 E7 24 18 1F 8B |8000:L.0:...$...|
00001CC0: 4C A7 81 49 B2 4C A4 4C 50 AB 31 3A 98 31 3A 82 |L..I.L.LP.1:.1:.|
00001CD0: 3A 4C B2 30 3A 8F 20 50 41 47 45 20 57 49 54 48 |:L.0:. PAGE WITH|
00001CE0: 20 42 4C 41 4E 4B 53 00 F2 24 22 1F 99 22 93 22 | BLANKS..$".."."|
00001CF0: 3A 8E 00 1F 25 36 1F 4A B2 31 3A 99 22 11 DA 45 |:...%6.J.1:."..E|
00001D00: 49 4C 45 20 46 55 45 52 20 C4 52 55 43 4B 20 5A |ILE FUER .RUCK Z|
00001D10: 55 20 4C 41 4E 47 22 3A 8D 37 39 35 30 3A 8E 00 |U LANG":.7950:..|
00001D20: 2F 25 40 1F 8F 20 55 54 49 4C 49 54 49 45 53 00 |/%@.. UTILITIES.|
00001D30: 63 25 4A 1F 99 22 11 12 20 D7 45 49 54 45 52 20 |c%J..".. .EITER |
00001D40: 4D 49 54 20 42 45 4C 49 45 42 49 47 45 52 20 D4 |MIT BELIEBIGER .|
00001D50: 41 53 54 45 22 3B 3A 8D 32 30 3A 99 3A 99 22 93 |ASTE";:.20:.:.".|
00001D60: 22 3A 8E 00 6E 25 72 1F 58 24 B2 22 4A 4E 00 79 |":..n%r.X$."JN.y|
00001D70: 25 7C 1F 99 22 3F 20 22 3B 00 A3 25 86 1F 8D 32 |%|.."? ";..%...2|
00001D80: 30 3A 81 49 B2 31 A4 C3 28 58 24 29 3A 8B 43 24 |0:.I.1..(X$):.C$|
00001D90: B3 B1 CA 28 58 24 2C 49 2C 31 29 A7 82 3A 89 38 |...(X$,I,1)..:.8|
00001DA0: 30 37 30 00 B2 25 8B 1F 49 B2 49 AB 31 3A 99 43 |070..%..I.I.1:.C|
00001DB0: 24 3B 00 CE 25 90 1F A1 57 24 3A 8B 57 24 B2 22 |$;..%...W$:.W$."|
00001DC0: 22 A7 99 22 A4 9D 22 3B 3A 89 38 30 38 30 00 E4 |".."..";:.8080..|
00001DD0: 25 95 1F 99 22 20 9D 22 3B 3A 8B 57 24 B2 52 24 |%..." .";:.W$.R$|
00001DE0: A7 99 3A 8E 00 FD 25 9A 1F 8B 57 24 B2 C7 28 32 |..:...%...W$..(2|
00001DF0: 30 29 A7 99 57 24 3B 3A 89 38 30 37 30 00 07 26 |0)..W$;:.8070..&|
00001E00: 9F 1F 89 38 30 38 30 00 22 26 08 20 58 24 B2 22 |...8080."&. X$."|
00001E10: 22 3A 8F 20 49 4E 50 55 54 20 41 20 53 54 52 49 |":. INPUT A STRI|
00001E20: 4E 47 00 33 26 12 20 A1 43 24 3A 8B 43 24 89 38 |NG.3&. .C$:.C$.8|
00001E30: 32 31 30 00 4B 26 1C 20 8D 32 35 3A 8B 43 B2 31 |210.K&. .25:.C.1|
00001E40: 33 B0 43 B2 39 32 89 38 32 39 30 00 7A 26 26 20 |3.C.92.8290.z&& |
00001E50: 8B 43 B2 32 30 AF 58 24 B1 22 22 A7 99 43 24 3B |.C.20.X$.""..C$;|
00001E60: 3A 58 24 B2 C8 28 58 24 2C C3 28 58 24 29 AB 31 |:X$..(X$,.(X$).1|
00001E70: 29 3A 8F 20 44 45 4C 45 54 45 00 9A 26 30 20 8B |):. DELETE..&0 .|
00001E80: 43 B2 32 30 89 38 32 32 30 3A 8F 20 44 45 4C 45 |C.20.8220:. DELE|
00001E90: 54 45 20 4F 4E 20 4E 55 4C 4C 00 CB 26 3A 20 8B |TE ON NULL..&: .|
00001EA0: 28 31 32 37 AF 43 29 B3 33 32 89 38 32 32 30 3A |(127.C).32.8220:|
00001EB0: 8F 20 43 55 52 53 4F 52 20 43 4F 4E 54 52 4F 4C |. CURSOR CONTROL|
00001EC0: 20 43 48 41 52 41 43 54 45 52 53 00 E4 26 44 20 | CHARACTERS..&D |
00001ED0: 99 43 24 3B 3A 8B 43 B2 33 34 A7 99 43 24 C7 28 |.C$;:.C.34..C$.(|
00001EE0: 32 30 29 3B 00 FF 26 4E 20 58 24 B2 58 24 AA 43 |20);..&N X$.X$.C|
00001EF0: 24 3A 8B C3 28 58 24 29 B3 4D 89 38 32 32 30 00 |$:..(X$).M.8220.|
00001F00: 05 27 62 20 8E 00 1C 27 FC 21 8F 20 51 55 49 54 |.'b ...'.!. QUIT|
00001F10: 20 54 48 45 20 50 52 4F 47 52 41 4D 00 52 27 10 | THE PROGRAM.R'.|
00001F20: 22 99 22 93 11 D3 45 49 54 45 4E 56 4F 52 53 43 |"."...EITENVORSC|
00001F30: 48 55 42 20 41 4D 20 C4 52 55 43 4B 45 52 20 20 |HUB AM .RUCKER |
00001F40: 20 20 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 38 37 | ";:.8050:.I.87|
00001F50: 34 30 00 7A 27 1A 22 9F 31 2C 30 34 3A 46 B2 31 |40.z'.".1,04:F.1|
00001F60: 3A 4C B2 2E 31 3A 8D 37 39 35 30 3A 8F 20 45 58 |:L..1:.7950:. EX|
00001F70: 50 45 4C 20 41 20 50 41 47 45 00 92 27 24 22 8B |PEL A PAGE..'$".|
00001F80: 4F 46 B2 30 B0 54 24 28 30 29 B2 22 22 89 38 37 |OF.0.T$(0)."".87|
00001F90: 36 30 00 D3 27 2E 22 99 22 11 C4 4F 4B 55 4D 45 |60..'."."..OKUME|
00001FA0: 4E 54 20 4E 49 43 48 54 20 47 45 53 49 43 48 45 |NT NICHT GESICHE|
00001FB0: 52 54 3B 20 53 50 45 49 43 48 45 52 4E 22 3B 3A |RT; SPEICHERN";:|
00001FC0: 8D 38 30 35 30 3A 8B 49 B2 30 A7 A0 31 3A 8D 33 |.8050:.I.0..1:.3|
00001FD0: 30 32 30 00 EA 27 38 22 A0 31 3A 99 22 93 D4 53 |020..'8".1:."..S|
00001FE0: 43 48 55 45 53 53 21 22 3A A2 00 12 28 C4 22 9F |CHUESS!":...(.".|
00001FF0: 31 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 3A 89 37 |1,04:F.1:L..1:.7|
00002000: 39 35 30 3A 8F 20 45 58 50 45 4C 20 41 20 50 41 |950:. EXPEL A PA|
00002010: 47 45 00 23 28 28 23 8F 20 49 4E 49 54 49 41 4C |GE.#((#. INITIAL|
00002020: 49 5A 45 00 53 28 2D 23 4C 50 B2 37 32 3A 4C 30 |IZE.S(-#LP.72:L0|
00002030: B2 36 30 3A 4D 30 B2 31 36 30 3A 51 24 B2 C7 28 |.60:M0.160:Q$..(|
00002040: 31 34 31 29 3A 52 24 B2 C7 28 31 33 29 3A 4B 24 |141):R$..(13):K$|
00002050: B2 22 A4 00 72 28 32 23 56 B2 B5 28 28 B8 28 30 |."..r(2#V..((.(0|
00002060: 29 AB 32 30 30 30 29 AD 4D 30 29 3A 86 54 24 28 |).2000).M0):.T$(|
00002070: 56 29 00 B3 28 3C 23 99 22 93 8E 13 13 0F 11 11 |V)..(<#.".......|
00002080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002090: 11 11 11 11 11 11 11 22 A6 33 39 29 22 8F 05 22 |.......".39)".."|
000020A0: 3A 97 35 39 34 36 38 2C 31 34 3A 8F 20 46 4F 52 |:.59468,14:. FOR|
000020B0: 4D 41 54 00 E8 28 41 23 97 35 33 32 37 32 2C 32 |MAT..(A#.53272,2|
000020C0: B0 C2 28 35 33 32 37 32 29 3A 99 22 93 20 20 20 |..(53272):.". |
000020D0: 20 20 12 20 C3 4F 4D 4D 4F 44 4F 52 45 20 D4 C5 | . .OMMODORE ..|
000020E0: D8 D4 20 36 34 20 20 92 00 03 29 43 23 8D 36 31 |.. 64 ...)C#.61|
000020F0: 30 30 30 3A 20 8F 20 43 4F 4C 4F 52 20 43 48 41 |000: . COLOR CHA|
00002100: 4E 47 45 00 47 29 46 23 99 22 11 12 CB 92 41 53 |NGE.G)F#."....AS|
00002110: 53 45 54 54 45 2C 20 12 C4 92 49 53 4B 45 54 54 |SETTE, ...ISKETT|
00002120: 45 20 4F 44 45 52 20 12 42 92 45 49 44 45 53 22 |E ODER .B.EIDES"|
00002130: 3B 3A 58 24 B2 22 44 4B 42 22 3A 8D 38 30 36 30 |;:X$."DKB":.8060|
00002140: 3A 43 46 B2 49 AA 31 00 71 29 50 23 42 24 B2 22 |:CF.I.1.q)P#B$."|
00002150: 20 20 20 20 20 22 3A 81 49 B2 31 A4 35 3A 42 24 | ":.I.1.5:B$|
00002160: B2 42 24 AA 42 24 3A 82 3A 9F 38 2C 30 38 2C 31 |.B$.B$:.:.8,08,1|
00002170: 35 00 98 29 55 23 99 22 11 D4 41 47 45 53 44 41 |5..)U#."..AGESDA|
00002180: 54 55 4D 20 20 3F 22 3A 4D B2 32 30 3A 8D 38 32 |TUM ?":M.20:.82|
00002190: 30 30 3A 44 24 B2 58 24 00 B2 29 5A 23 4B 24 B2 |00:D$.X$..)Z#K$.|
000021A0: 22 20 22 3A 8F 20 31 35 32 35 20 50 52 49 4E 54 |" ":. 1525 PRINT|
000021B0: 45 52 00 E3 29 64 23 8F 20 4B 24 3D 22 5F 22 3A |ER..)d#. K$="_":|
000021C0: 51 24 3D 52 24 2B 43 48 52 24 28 32 37 29 2B 22 |Q$=R$+CHR$(27)+"|
000021D0: 0A 22 3A 52 45 4D 20 38 33 30 30 20 50 52 49 4E |.":REM 8300 PRIN|
000021E0: 54 45 52 00 FE 29 78 23 81 49 B2 31 A4 37 3A 4B |TER..)x#.I.1.7:K|
000021F0: 24 B2 4B 24 AA 4B 24 3A 82 3A 89 31 30 30 00 07 |$.K$.K$:.:.100..|
00002200: 2A 8C 23 89 31 30 30 00 26 2A 10 27 8F 20 4C 45 |*.#.100.&*.'. LE|
00002210: 54 54 45 52 48 45 41 44 20 44 41 54 41 2C 20 44 |TTERHEAD DATA, D|
00002220: 45 4C 45 54 45 44 00 2E 2A 1A 27 83 22 22 00 36 |ELETED..*.'."".6|
00002230: 2A 24 27 83 22 22 00 3E 2A 2E 27 83 22 22 00 63 |*$'."".>*.'."".c|
00002240: 2A 60 EA 99 51 39 24 22 20 4E 49 43 48 54 20 47 |*`..Q9$" NICHT G|
00002250: 45 46 55 4E 44 45 4E 22 3A 8D 38 30 30 30 3A 89 |EFUNDEN":.8000:.|
00002260: 31 30 30 00 7E 2A 48 EE 8F 20 43 4F 4C 4F 52 20 |100.~*H.. COLOR |
00002270: 43 48 41 4E 47 45 20 52 4F 55 54 49 4E 45 00 A2 |CHANGE ROUTINE..|
00002280: 2A 49 EE 96 A5 43 28 58 29 B2 C2 28 58 29 AA 31 |*I...C(X)..(X).1|
00002290: AA 31 36 AC 28 28 C2 28 58 29 AF 31 35 29 B2 31 |.16.((.(X).15).1|
000022A0: 35 29 00 C8 2A 4A EE 99 3A 99 22 13 11 11 11 11 |5)..*J..:.".....|
000022B0: 11 12 C6 31 92 3D 20 C6 41 52 42 45 20 44 45 53 |...1.= .ARBE DES|
000022C0: 20 D2 41 4E 44 45 53 22 00 E8 2A 4B EE 99 22 11 | .ANDES"..*K..".|
000022D0: 12 C6 33 92 3D 20 C8 49 4E 54 45 52 47 52 55 4E |..3.= .INTERGRUN|
000022E0: 44 2D C6 41 52 42 45 22 00 08 2B 4C EE 99 22 11 |D-.ARBE"..+L..".|
000022F0: 12 C6 35 92 3D 20 C6 41 52 42 45 20 44 45 52 20 |..5.= .ARBE DER |
00002300: DA 45 49 43 48 45 4E 22 00 21 2B 4D EE 99 22 11 |.EICHEN".!+M..".|
00002310: 12 D2 C5 D4 D5 D2 CE 92 3D 20 D7 45 49 54 45 52 |........= .EITER|
00002320: 22 00 33 2B 52 EE A1 43 24 3A 8B 43 24 89 36 31 |".3+R..C$:.C$.61|
00002330: 30 31 30 00 48 2B 5C EE A1 43 24 3A 8B 43 24 B2 |010.H+\..C$:.C$.|
00002340: 22 22 89 36 31 30 32 30 00 6F 2B 66 EE 43 B2 C6 |"".61020.o+f.C..|
00002350: 28 43 24 29 3A 8B 43 B2 31 33 35 A7 97 36 34 36 |(C$):.C.135..646|
00002360: 2C A5 43 28 36 34 36 29 3A 89 36 31 30 30 32 00 |,.C(646):.61002.|
00002370: 9B 2B 7A EE 43 B2 C6 28 43 24 29 3A 8B 43 B2 31 |.+z.C..(C$):.C.1|
00002380: 33 33 B0 43 B2 31 33 34 A7 58 B2 35 33 31 34 37 |33.C.134.X.53147|
00002390: AA 43 3A 97 58 2C A5 43 28 58 29 00 AC 2B 84 EE |.C:.X,.C(X)..+..|
000023A0: 8B 43 B3 B1 31 33 89 36 31 30 31 30 00 B2 2B 8E |.C..13.61010..+.|
000023B0: EE 8E 00 C7 2B 30 F2 8F 20 45 52 4C 41 45 55 54 |....+0.. ERLAEUT|
000023C0: 45 52 55 4E 47 45 4E 00 EB 2B 3A F2 99 22 93 20 |ERUNGEN..+:..". |
000023D0: 20 20 20 20 20 20 20 20 20 12 20 C5 52 4C 41 45 | . .RLAE|
000023E0: 55 54 45 52 55 4E 47 45 4E 20 22 00 0D 2C 44 F2 |UTERUNGEN "..,D.|
000023F0: 99 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 5F 20 42 45 |.".........._ BE|
00002400: 57 49 52 4B 54 20 C1 42 53 41 54 5A 22 00 33 2C |WIRKT .BSATZ".3,|
00002410: 4E F2 99 22 1D 1D 1D 1D 1D 1D 1D 5E 20 42 45 57 |N..".......^ BEW|
00002420: 49 52 4B 54 20 D0 41 50 49 45 52 41 55 53 57 55 |IRKT .APIERAUSWU|
00002430: 52 46 22 00 50 2C 58 F2 99 22 1D 1D 1D 5B 58 58 |RF".P,X.."...[XX|
00002440: 58 5D 20 42 45 57 49 52 4B 54 20 12 58 58 58 22 |X] BEWIRKT .XXX"|
00002450: 00 7A 2C 62 F2 99 22 1D 1D 1D 1D 1D 1D 1D 5C 20 |.z,b..".......\ |
00002460: 42 45 57 49 52 4B 54 20 5A 55 52 55 45 43 4B 20 |BEWIRKT ZURUECK |
00002470: 5A 55 4D 20 CD 45 4E 55 45 22 00 A8 2C 6C F2 99 |ZUM .ENUE"..,l..|
00002480: 22 11 11 D7 4F 45 52 54 45 52 20 4B 4F 45 4E 4E |"...OERTER KOENN|
00002490: 45 4E 20 4F 48 4E 45 20 D2 55 45 43 4B 53 49 43 |EN OHNE .UECKSIC|
000024A0: 48 54 20 41 55 46 20 22 00 CE 2C 76 F2 99 22 DA |HT AUF "..,v..".|
000024B0: 45 49 4C 45 4E 45 4E 44 45 20 47 45 53 43 48 52 |EILENENDE GESCHR|
000024C0: 49 45 42 45 4E 20 57 45 52 44 45 4E 2E 22 00 06 |IEBEN WERDEN."..|
000024D0: 2D 80 F2 99 22 11 11 C5 49 4E 20 D7 4F 52 54 20 |-..."...IN .ORT |
000024E0: 44 41 52 46 20 4E 49 43 48 54 20 4D 45 48 52 20 |DARF NICHT MEHR |
000024F0: 41 4C 53 20 34 30 20 DA 45 49 43 48 45 4E 20 48 |ALS 40 .EICHEN H|
00002500: 41 42 45 4E 2E 22 00 35 2D EE F2 99 22 11 11 11 |ABEN.".5-..."...|
00002510: 11 11 1D 1D 1D 1D 1D 12 D7 45 49 54 45 52 20 4D |.........EITER M|
00002520: 49 54 20 42 45 4C 49 45 42 49 47 45 52 20 D4 41 |IT BELIEBIGER .A|
00002530: 53 54 45 2E 22 00 49 2D F8 F2 97 31 39 38 2C 30 |STE.".I-...198,0|
00002540: 3A 92 31 39 38 2C 31 3A 8E 00 00 00 C5 |:.198,1:..... |
..1....G(14):.657,128:.650,128:.53280,0:
.53281,11.<....62000.F....9000.U....C$:.
C$.20.R....C$:.C$.." .";:C.F(C$):.......
"..";:.24......C$:.C$."".30.H. .X.F(C$):
C.X.127:.C.13.C.17.C.19.C.20.C.29.C.31..
.P."..30.Z.(.X$.""...*..#1,C$:.C$.R$.C$.
G(141).....,.X$.X$.C$:.42.".D.L.0:LL.L0:
1:. ENTRY.K.N..". . COMMODORE TEXT
64 ...A.X..,"FUNKTIONEN:.."...}..,
".E.RSTELLEN EINES DOKUMENTES......,".S.
PEICHERN EINES DOKUMENTES.L....,".A.UFRU
FEN EINES DOKUMENTES......,".D.RUCKEN EI
NES DOKUMENTES......,".V.ERAENDERN EINES
DOKUMENTES.9. ..,".G.LOBALES SUCHEN UND
TAUSCHEN.^....,".B.S-ANZEIGE EINES DOKU
MENTES.....,".R.UNDSCHREIBEN ERSTELLEN.
.....,".P.ROGRAMMENDE.G...X$."PBVGDSRAE"
:.".WELCHE ";:.8060:.I.0.8700.X.C.J.I:
.J.4.250...H..".":. GET SUBJECT.5.R..H$.
"".."DOKUMENT: ."H$:.".(RETURN LAESST DE
N NAMEN UNVERAENDERT).B...M.61:.".DOKUME
NT-NAME:":.8200:.C..13.200.U....:.X$."".
H$.X$......H$."".200......J.7.T$(0).""..
".KEIN DOKUMENT IM SPEICHER":.8000:.100.
Z....OF.0.J.7.T$(0)."".280.!....".DOKUME
NT NICHT GESPEICHERT ... SPEICHER LOESCH
EN";:.8050:.I.100.N....J.400,1000,6000,7
000,3000,4000,2000,500.C.... READ TO SCR
EEN.....N.39:F.0:LL.20:TB$."":.1,3:.7080
:.100.....OF.1:T.0:. WRITE NEW TEXT.....
.".."H$:.:."............................
..................C$:.C$.510.....M.M0:.I
.T.V:T$(I)."":X$."".0....8220:.C.13..:.X
$."".530.F...T$(I).X$:.C..92...C.&..I.V.
.I.I.1.V:T$(I)."":....X.T.0:L$."":.610:.
100:. PACK THE STRINGS...B..:.I.T.V:.T$(
I)."".630.O.G.X$.T$(I):M.M0.C(L$):L$.L$.
H(X$,M)...L.X$.J(X$,M.1):.C(L$).M0.T$(T)
.L$:."*";:L$.X$:T.T.1...V...3....:T$(T).
L$:.T.V..I.T.1.V:T$(I)."":..9.....M....
EDIT THE TEXT......".WIEVIEL % TEXT UEBE
RSPRINGEN (0-100) 0...";T:T..(T):.T.99.
T.100.....OF.1:.I.0.V:.T$(I).""...K...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).7....".."I(P$,20):.".".29)".
BLOCK"T.L.8.."..........................
.....................}.B..C$:.C$.1090...
L.. & SET CURSOR (A,D).B.V.."..."H(X$,L)
:."...".L)" .."J(X$,L.1,1)...J.."...".L.
1)J(X$,L.2)H(B$,M0.C(X$)):."........30:.
X.92.T$(T).X$:.600:. END.?....X.29.L.L.(
L.1.C(X$)):.1100:. CURSOR RIGHT.G.D..C.2
9.L.L.(L.0):.1100:. CURSOR LEFT...N..X.1
7.L.L.40.(L.40.C(X$)):.1100:. CURSOR DOW
N.C.X..C.17.L.L.40.(L.39):.1100:. CURSOR
UP......X.19.L.0:.1100:. CURSOR HOME...
...C.19..I.T.V.1:T$(I).T$(I.1):.:T$(V)."
":.1040:. CLEAR.K....X.13.T$(T).X$:T.T.1
:.1040:. NEXT BLOCK.|....C.13.T$(T).X$:T
.T.(T.0):.1040:. PRIOR BLOCK......L..C(X
$).1100.....L$.H(X$,L):.X.148.1350:. INS
ERT.....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$.{.K.."...".C(L$));:M.M0:.8
200...P.M.M0.C(L$):L$.L$.H(X$,M):M$.J(X$
,M.1).M$...Z.M.M0.C(L$):T$(T).L$.H(M$,M)
:L$.J(M$,M.1):M$."":.L$."".1050...D.X.T:
T.T.1:.610:T.X:.1050...L.. ADD TO THE EN
D.,.V..T.0.600:. END.T...X$.T$(T.1):."."
X$:.".".C(X$));:.510.E.P.. INPUT FILE...
U.Q9$."DOKUMENT": . FOR ERROR MSG IN 600
00......CF.2..".VON DER DATASETTE";:.805
0......CF.2.(CF.2.I.0)..1,1,0,H$:.2100..
....1,08,2,H(H$,16):.8,X,X$:.X.60000.;.4
.OF.0:.40:.".LIEST : ."X$:H$.X$:.40:.X$
:.:. HEADER.B...X$.G(31):.I.0.V:L$."":.
INPUT FILE......J.1.M0:.#1,C$:.ST.J.M0:.
2230......C$.X$.L$.L$.C$:. ONLY LEGAL CH
ARACTERS.T....J:T$(I).L$:.L$;:.ST.0..I:I
.I.1...J.T.I:.650:.8000:.100......3020:.
100:. OUTPUT FILE.,.L..CF.2..".AUF DATAS
ETTE";:.8050.Q.V..CF.2.(CF.3.I.0)..1,1,1
,H$:.3100.....L$."0:".H(H$,16):.1,08,2,L
$:.8,X,X$: 1:.X.3080......".DOKUMENT EXI
STIERT - UEBERSCHREIBEN ";:.8050:.I...R
....8,"S"L$:.8,"I0......1,08,3,L$.",S,W"
:.8,X,X$:.X.Q9$."SPACE":.60000.....OF.0:
.1,H$G(141)D$.D.N..I.0.V:.T$(I).""..1,T$
(I);:."*";:..R.X..1,"\";:..I. .. BATCH P
ROCESSING.....Q9$."FILE": . FOR ERROR MS
G IN 60000......".";:.CF.4100,4050:. ELS
E BOTH.Z...."VON DATASETTE";:.8050:.I.41
00...R.. FROM CASSETTE......2,1:.4150...
... FROM DISC.C....".ADRESSEN 64: DATEI-
NAME -...";X$:.X$."-".4110.G....2,08,2,
X$:.8,X,X$:.X. 2:.60000...6.. PREPARE FO
R OUTPUT...@.TB$."":S2.0:N.72:F.1:.1,04:
S$.".".H(B$,40.N.2)...J..".STANDARD-FORM
AT";:.8050:.I..7500...H.. GET THE NAME A
ND SALUTATION.).R..2,Z$:.ST.0.C(Z$).2.49
00:. NO LAST NAME.I.|.L$."":.7450:X$."":
Y$."":M$."SEHR GEEHRTE DAMEN UND HERREN,
"......2,X$:.C(X$).2.X$."":.4250:. NO FI
RST NAME.....M$."LIEBE/R ".X$.",":X$.X$.
" "......2,Y$:.C(Y$).2.Y$."":.4270:. NO
TITLE.....Y$.Y$." ":M$."LIEBE/R ".Y$.Z$.
",.7...L$.Y$.X$.Z$:.2,X$:.C(X$).2.L$.L$.
", ".X$.`...Z$.M$:M$."":P$.L$:.7900:. PR
INT NAME.R.L.. GET ADDRESS...V..2,L$:.C(
L$).1.P$.L$:.7900:. LINE 2.B....2,L$:.C(
L$).1.P$.L$:.7900:. LINE 3......2,L$:.2,
Y$:.C(Y$).1.L$.L$.", ".Y$:. STATE, ZIP..
....C(L$).1.P$.L$:.7900.;....I.L.14:.790
0:.:L$.Z$:P$.L$:.7090:.4200.G.$. 2:.100.
`.P.. SEARCH AND REPLACE...Z.."..SUCHEN
NACH?":M.40:.8200:Z$.X$:L.C(X$):.L.0.L.M
.6010.G....:.".ERSETZEN DURCH?":.8200:Y$
.X$:.:......X$."":M$."":L$."":T.0:U.0:F.
0:OF.1...8.. ATTACH T$ TO X$...B..C(X$).
.L.6250.5.L..T.V.6400:. ALL T$'S READ.Z.
V.X$.X$.T$(T):T$(T)."":T.T.1:.6200.Q.J..
SEARCH FOR MATCH...T..I.1.C(X$).L.1:.J(
X$,I,L)..Z$..:J.I:.6300...~.M$.Y$:J.I.L:
.".";.I.... SPLIT STRINGS.....M$.H(X$,I.
1).M$:X$.J(X$,J):.6500:.F.6900:.6200....
.. STOW LAST L$.,....6500:.F.6900:. CLEA
R M$.X...M$.X$:.6500:.F.6900:. M$_X$; CL
EAR BOTH......U..V.T.U:.650:.100:. STOW
L$, CLEAR HIGHER BLOCKS...(..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
.....X..U..V.6550......U.T.T$(U).L$:."*.
";:U.U.1:L$.M$:M$."":..H....T.V..I.V.T.1
..1:T$(I).T$(I.1):.:T$(T)."":T.T.1:.6530
.R...F.1:....... ERROR EXIT......:.".OUT
OF ROOM - DATA IMPAIRED":.8000:.100.K.X
.. FORMAT AND PRINT.Z.B..7020:.100...L..
1,04:F.1:. PRINTER.#.V.S2.1:N.60:TB$."":
X$."FID":. DEFAULTS (DRAFT).W...."..F.OR
MAL, .I.NFORMAL, OR .D.RAFT";:.8060:J.I.
P....J.2.S2.0:N.72:.7500.....S$.".".H(B$
,40.N.2):.J.0.7400:. FORMAL.....L$.".".H
$:P$.H$:M$.H(K$,C(H$)).....J.0:.".":.790
0:.7900:.J.......T.0:X$."]".TB$:E.0:Z$.B
$:. PRINT TEXT.=.F..C(X$)..N.X$.X$.T$(T)
:T.T.1:.C(X$)..N.T.V.X$.X$."\.M.K..F(X$)
.32.X$.J(X$,2):.7110:. LEADING BLANKS.~.
P..E.X$."[".X$...Z.L$.H(X$,N.1):P$.L$:J.
0:K.0:M$.B$:.I.1.C(L$):C.F(J(L$,I)).....
.C.90.C.96..7700:.X.I.J:.7160.. ...:.I.C
(L$).J.1..1:.J(L$,I,1)." "..:I.J:.J.0.79
90.N ..J.0:X$.J(X$,I.1):L$.H(L$,I.1):P$.
H(P$,I.K):M$.H(M$,I.K).O ...C.94.C.95.E.
0:X$."]".TB$.X$.. .X.C:.7900:.J.0.X.94.
X.92..7950:.J.0.X.92.... *..7110.. ... F
ORMAL.. ..L$."":.7450:.".VIER ADRESS-ZEI
LEN":M.N:.I.1.4..!..."ZEILE"I:.8200:.:.C
(X$).M..".ZU LANG ":.7420.7!..P$.X$:.790
0:.:.7900:.7900.[!..."ANREDE ":.8200:
P$.X$:.7090..!...:M$."":Y$.S$:.I.1.3:.P$
:.7490:.:P$.D$:.7490..!...I.1.5:.7900:.:
S$.Y$:..M!B.K.C(P$):S$.".".H(B$,40.K.2):
.7900..!L.. FORMAT VARIATIONS.."V..".STA
NDARD-FORMAT:":.," EIN-ZEILIG.@"`..,N"ZE
ICHEN PRO ZEILE ":.,LL"ZEILEN PRO SEITE
.\"J..," TAB-LAENGE ="C(TB$).."T..".MOEC
HTEN SIE ES AENDERN ";:.8050:.I...."~.."
.EIN-ZEILIG ";:.8050:S2.I.Z"...".ZEICHE
N PRO ZEILE (20-80) 72 .....";N.."...
N.20.N.80.."..":.7560.3#...".ZEILEN PRO
SEITE "LL". ......";:.LL:.LL.1.."..":.7
580.N#...".LAENGE DER TAB.";:X$."0123456
789":.8060:TB$.H(B$,I).T#.....#... ENHAN
CEMENT.L#(.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.A$...P$."".P$.S$.P$.\$...L
$;:.7930:.J.0.S2.0...~$...F..:.1,P$;:.M$
.B$..1,Q$S$M$;..$...1:P$."":L$."":M$."":
L.L.1:.L.LL....$...F.0..8000:L.0:...$...
L..I.L.LP.1:.1:.:L.0:. PAGE WITH BLANKS.
.$"..".":...%6.J.1:.".ZEILE FUER DRUCK Z
U LANG":.7950:../%@.. UTILITIES.C%J.."..
WEITER MIT BELIEBIGER TASTE";:.20:.:.".
":..N%R.X$."JN.Y%|.."? ";..%...20:.I.1.C
(X$):.C$..J(X$,I,1)..:.8070..%..I.I.1:.C
$;.N%...W$:.W$."".."..";:.8080..%..." ."
;:.W$.R$..:...%...W$.G(20)..W$;:.8070..&
...8080."&. X$."":. INPUT A STRING.3&. .
C$:.C$.8210.K&. .25:.C.13.C.92.8290.Z&&
.C.20.X$.""..C$;:X$.H(X$,C(X$).1):. DELE
TE..&0 .C.20.8220:. DELETE ON NULL.K&: .
(127.C).32.8220:. CURSOR CONTROL CHARACT
ERS..&D .C$;:.C.34..C$G(20);..&N X$.X$.C
$:.C(X$).M.8220..'B ...'.!. QUIT THE PRO
GRAM.R'."."..SEITENVORSCHUB AM DRUCKER
";:.8050:.I.8740.Z'.".1,04:F.1:L..1:.7
950:. EXPEL A PAGE..'$".OF.0.T$(0)."".87
60.S'.".".DOKUMENT NICHT GESICHERT; SPEI
CHERN";:.8050:.I.0. 1:.3020..'8" 1:.".TS
CHUESS!":...(D".1,04:F.1:L..1:.7950:. EX
PEL A PAGE.#((#. INITIALIZE.S(-#LP.72:L0
.60:M0.160:Q$.G(141):R$.G(13):K$."..R(2#
V..((.(0).2000).M0):.T$(V)..(<#.".......
.......................".39)"..":.59468,
14:. FORMAT..(A#.53272,2.B(53272):.".
. COMMODORE TEXT 64 ...)C#.61000: . C
OLOR CHANGE.G)F#."..K.ASSETTE, .D.ISKETT
E ODER .B.EIDES";:X$."DKB":.8060:CF.I.1.
Q)P#B$." ":.I.1.5:B$.B$.B$:.:.8,08,1
5..)U#.".TAGESDATUM ?":M.20:.8200:D$.X$
..)Z#K$." ":. 1525 PRINTER..)D#. K$="_":
Q$=R$+CHR$(27)+".":REM 8300 PRINTER..)X#
.I.1.7:K$.K$.K$:.:.100..*.#.100.&*.'. LE
TTERHEAD DATA, DELETED..*.'."".6*$'."".>
*.'."".C*`..Q9$" NICHT GEFUNDEN":.8000:.
100.~*H.. COLOR CHANGE ROUTINE..*I...C(X
).B(X).1.16.((B(X).15).15).H*J..:.".....
..F1.= FARBE DES RANDES"..*K.."..F3.= HI
NTERGRUND-FARBE"..+L.."..F5.= FARBE DER
ZEICHEN".!+M.."..RETURN.= WEITER".3+R..C
$:.C$.61010.H+\..C$:.C$."".61020.O+F.C.F
(C$):.C.135..646,.C(646):.61002..+Z.C.F(
C$):.C.133.C.134.X.53147.C:.X,.C(X)..+..
.C..13.61010..+....G+0.. ERLAEUTERUNGEN.
.+:..". . ERLAEUTERUNGEN "..,D.
.".........._ BEWIRKT ABSATZ".3,N.."....
...^ BEWIRKT PAPIERAUSWURF".P,X.."...[XX
X] BEWIRKT .XXX".Z,B..".......\ BEWIRKT
ZURUECK ZUM MENUE"..,L.."..WOERTER KOENN
EN OHNE RUECKSICHT AUF ".N,V.."ZEILENEND
E GESCHRIEBEN WERDEN."..-..."..EIN WORT
DARF NICHT MEHR ALS 40 ZEICHEN HABEN.".5
-..."...........WEITER MIT BELIEBIGER TA
STE.".I-...198,0:.198,1:....E
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL