TEX
FILE INFORMATION
FILENAME(S): TEX
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-11-30 21:12:47
APPEARS ON: 1 disk(s)
FILE HASH
99da95b2ddbb95bffdb402b2255b66ef5db08096c21e2e3bcf36d9ee03006dec
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE 64 IP1 | TEX | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 05 00 9F 37 2C 34 2C 37 3A 98 37 3A |.......7,4,7:.7:|
00000010: A0 37 00 4C 08 0A 00 89 39 30 30 30 3A 8F 20 28 |.7.L....9000:. (|
00000020: 43 29 20 31 39 38 32 20 42 59 20 43 4F 4D 4D 4F |C) 1982 BY COMMO|
00000030: 44 4F 52 45 20 42 55 53 49 4E 45 53 53 20 4D 41 |DORE BUSINESS MA|
00000040: 43 48 49 4E 45 53 2C 20 49 4E 43 2E 00 5B 08 14 |CHINES, INC..[..|
00000050: 00 A1 43 24 3A 8B 43 24 89 32 30 00 78 08 19 00 |..C$:.C$.20.x...|
00000060: A1 43 24 3A 8B 43 24 A7 99 22 20 9D 22 3B 3A 43 |.C$:.C$.." .";:C|
00000070: B2 C6 28 43 24 29 3A 8E 00 87 08 1B 00 99 22 A4 |..(C$):.......".|
00000080: 9D 22 3B 3A 89 32 35 00 99 08 1E 00 A1 43 24 3A |.";:.25......C$:|
00000090: 8B 43 24 B2 22 22 89 33 30 00 CE 08 20 00 58 B2 |.C$."".30... .X.|
000000A0: C6 28 43 24 29 3A 43 B2 58 AF 31 32 37 3A 8B 43 |.(C$):C.X.127:.C|
000000B0: B2 31 33 B0 43 B2 31 37 B0 43 B2 31 39 B0 43 B2 |.13.C.17.C.19.C.|
000000C0: 32 30 B0 43 B2 32 39 B0 43 B1 33 31 A7 8E 00 D6 |20.C.29.C.31....|
000000D0: 08 22 00 89 33 30 00 E0 08 28 00 58 24 B2 22 22 |."..30...(.X$.""|
000000E0: 00 FE 08 2A 00 A1 23 31 2C 43 24 3A 8B 43 24 B2 |...*..#1,C$:.C$.|
000000F0: 52 24 B0 43 24 B2 C7 28 31 34 31 29 A7 8E 00 0F |R$.C$..(141)....|
00000100: 09 2C 00 58 24 B2 58 24 AA 43 24 3A 89 34 32 00 |.,.X$.X$.C$:.42.|
00000110: 28 09 64 00 4C B2 30 3A 4C 4C B2 4C 30 3A A0 31 |(.d.L.0:LL.L0:.1|
00000120: 3A 8F 20 45 4E 54 52 59 00 51 09 6E 00 99 22 93 |:. ENTRY.Q.n..".|
00000130: 20 20 20 20 20 20 12 20 C3 4F 4D 4D 4F 44 4F 52 | . .OMMODOR|
00000140: 45 20 D7 CF D2 C4 A0 CD C1 C3 C8 C9 CE C5 20 11 |E ............ .|
00000150: 11 00 5C 09 73 00 8D 36 32 30 30 30 00 64 09 74 |..\.s..62000.d.t|
00000160: 00 99 3A 99 00 85 09 78 00 99 22 CF 50 54 49 4F |..:....x..".PTIO|
00000170: 4E 45 4E 3A 20 12 C3 92 D3 43 48 52 45 49 42 45 |NEN: ....CHREIBE|
00000180: 20 D4 45 58 54 00 A6 09 82 00 99 2C 22 12 D3 92 | .EXT......,"...|
00000190: D3 50 45 49 43 48 45 52 4E 20 45 49 4E 45 53 20 |.PEICHERN EINES |
000001A0: D4 45 58 54 45 53 00 CB 09 87 00 99 2C 22 12 D2 |.EXTES......,"..|
000001B0: 92 C8 4F 4C 45 4E 20 45 49 4E 45 53 20 D4 45 58 |..OLEN EINES .EX|
000001C0: 54 45 53 28 C6 4C 4F 50 50 59 29 00 E8 09 8C 00 |TES(.LOPPY).....|
000001D0: 99 2C 22 12 D0 92 C4 52 55 43 4B 45 4E 20 44 45 |.,"....RUCKEN DE|
000001E0: 53 20 D4 45 58 54 45 53 00 05 0A 96 00 99 2C 22 |S .EXTES......,"|
000001F0: 12 C5 92 C1 45 4E 44 45 52 4E 20 44 45 53 20 D4 |....ENDERN DES .|
00000200: 45 58 54 45 53 00 2B 0A A0 00 99 2C 22 12 C7 92 |EXTES.+....,"...|
00000210: 4C 4F 42 41 4C 45 53 20 D3 55 43 48 45 4E 20 55 |LOBALES .UCHEN U|
00000220: 4E 44 20 C5 52 53 45 54 5A 45 4E 00 47 0A A5 00 |ND .RSETZEN.G...|
00000230: 99 2C 22 12 C4 92 C2 49 4C 44 53 43 48 49 52 4D |.,"....ILDSCHIRM|
00000240: 41 55 53 47 41 42 45 00 6C 0A AA 00 99 2C 22 12 |AUSGABE.l....,".|
00000250: C6 92 C6 4F 52 4D 42 52 49 45 46 20 4D 49 54 20 |...ORMBRIEF MIT |
00000260: CE 41 4D 45 20 CD 41 43 48 49 4E 45 00 8A 0A B9 |.AME .ACHINE....|
00000270: 00 99 2C 22 12 D1 92 C2 45 45 4E 44 45 20 44 41 |..,"....EENDE DA|
00000280: 53 20 D0 52 4F 47 52 41 4D 4D 00 BC 0A BE 00 58 |S .ROGRAMM.....X|
00000290: 24 B2 22 51 44 45 47 50 53 46 52 43 22 3A 99 22 |$."QDEGPSFRC":."|
000002A0: 11 D7 41 45 48 4C 45 20 20 20 22 3B 3A 8D 38 30 |..AEHLE ";:.80|
000002B0: 36 30 3A 8B 49 B2 30 89 38 37 30 30 00 CD 0A C3 |60:.I.0.8700....|
000002C0: 00 4A B2 49 3A 8B 4A B3 34 89 32 35 30 00 E4 0A |.J.I:.J.4.250...|
000002D0: C8 00 99 22 93 22 3A 8F 20 47 45 54 20 53 55 42 |...".":. GET SUB|
000002E0: 4A 45 43 54 00 22 0B D2 00 8B 48 24 B1 22 22 A7 |JECT."....H$."".|
000002F0: 99 22 D4 45 58 54 3A 20 12 22 48 24 3A 99 22 11 |.".EXT: ."H$:.".|
00000300: 28 D2 C5 D4 D5 D2 CE 20 42 45 4C 41 45 53 53 54 |(...... BELAESST|
00000310: 20 44 45 4E 20 CE 41 4D 45 4E 20 47 4C 45 49 43 | DEN .AMEN GLEIC|
00000320: 48 29 00 51 0B DC 00 4D B2 36 31 3A 99 22 11 CE |H).Q...M.61:."..|
00000330: 41 4D 45 20 44 45 53 20 D4 45 58 54 45 53 3A 22 |AME DES .EXTES:"|
00000340: 3A 8D 38 32 30 30 3A 8B 43 B3 B1 31 33 89 32 30 |:.8200:.C..13.20|
00000350: 30 00 64 0B E6 00 99 3A 8B 58 24 B1 22 22 A7 48 |0.d....:.X$."".H|
00000360: 24 B2 58 24 00 73 0B F0 00 8B 48 24 B2 22 22 89 |$.X$.s....H$."".|
00000370: 32 30 30 00 AA 0B FA 00 8B 4A B3 37 AF 54 24 28 |200......J.7.T$(|
00000380: 30 29 B2 22 22 A7 99 22 11 CB 45 49 4E 20 D4 45 |0)."".."..EIN .E|
00000390: 58 54 20 49 4D 20 D3 50 45 49 43 48 45 52 22 3A |XT IM .PEICHER":|
000003A0: 8D 38 30 30 30 3A 89 31 30 30 00 C5 0B 04 01 8B |.8000:.100......|
000003B0: 4F 46 B2 30 B0 4A B3 37 B0 54 24 28 30 29 B2 22 |OF.0.J.7.T$(0)."|
000003C0: 22 89 32 38 30 00 01 0C 0E 01 99 22 11 D4 45 58 |".280......"..EX|
000003D0: 54 20 4E 49 43 48 54 20 47 45 53 50 45 49 43 48 |T NICHT GESPEICH|
000003E0: 45 52 54 2E 2E 20 4C 4F 45 53 43 48 45 4E 20 20 |ERT.. LOESCHEN |
000003F0: 20 20 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 31 30 | ";:.8050:.I.10|
00000400: 30 00 2E 0C 18 01 91 4A 89 34 30 30 2C 31 30 30 |0......J.400,100|
00000410: 30 2C 36 30 30 30 2C 37 30 30 30 2C 33 30 30 30 |0,6000,7000,3000|
00000420: 2C 34 30 30 30 2C 32 30 30 30 2C 35 30 30 00 43 |,4000,2000,500.C|
00000430: 0C 90 01 8F 20 52 45 41 44 20 54 4F 20 53 43 52 |.... READ TO SCR|
00000440: 45 45 4E 00 6D 0C 9A 01 4E B2 33 39 3A 46 B2 30 |EEN.m...N.39:F.0|
00000450: 3A 4C 4C B2 32 30 3A 54 42 24 B2 22 22 3A 9F 31 |:LL.20:TB$."":.1|
00000460: 2C 33 3A 8D 37 30 38 30 3A 89 31 30 30 00 8B 0C |,3:.7080:.100...|
00000470: F4 01 4F 46 B2 31 3A 54 B2 30 3A 8F 20 57 52 49 |..OF.1:T.0:. WRI|
00000480: 54 45 20 4E 45 57 20 54 45 58 54 00 C4 0C F9 01 |TE NEW TEXT.....|
00000490: 99 22 93 12 22 48 24 3A 99 3A 99 22 A4 A4 A4 A4 |.".."H$:.:."....|
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 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004C0: A4 A4 A4 A4 00 D4 0C FE 01 A1 43 24 3A 8B 43 24 |..........C$:.C$|
000004D0: 89 35 31 30 00 F3 0C 08 02 4D B2 4D 30 3A 81 49 |.510.....M.M0:.I|
000004E0: B2 54 A4 56 3A 54 24 28 49 29 B2 22 22 3A 58 24 |.T.V:T$(I)."":X$|
000004F0: B2 22 22 00 10 0D 12 02 8D 38 32 32 30 3A 8B 43 |.""......8220:.C|
00000500: B2 31 33 A7 99 3A 8B 58 24 B2 22 22 89 35 33 30 |.13..:.X$."".530|
00000510: 00 26 0D 1C 02 54 24 28 49 29 B2 58 24 3A 8B 43 |.&...T$(I).X$:.C|
00000520: B3 B1 39 32 A7 82 00 43 0D 26 02 8B 49 B3 56 A7 |..92...C.&..I.V.|
00000530: 81 49 B2 49 AA 31 A4 56 3A 54 24 28 49 29 B2 22 |.I.I.1.V:T$(I)."|
00000540: 22 3A 82 00 6E 0D 58 02 54 B2 30 3A 4C 24 B2 22 |":..n.X.T.0:L$."|
00000550: 22 3A 8D 36 31 30 3A 89 31 30 30 3A 8F 20 50 41 |":.610:.100:. PA|
00000560: 43 4B 20 54 48 45 20 53 54 52 49 4E 47 53 00 89 |CK THE STRINGS..|
00000570: 0D 62 02 99 3A 81 49 B2 54 A4 56 3A 8B 54 24 28 |.b..:.I.T.V:.T$(|
00000580: 49 29 B2 22 22 89 36 33 30 00 AF 0D 67 02 58 24 |I)."".630...g.X$|
00000590: B2 54 24 28 49 29 3A 4D B2 4D 30 AB C3 28 4C 24 |.T$(I):M.M0..(L$|
000005A0: 29 3A 4C 24 B2 4C 24 AA C8 28 58 24 2C 4D 29 00 |):L$.L$..(X$,M).|
000005B0: E5 0D 6C 02 58 24 B2 CA 28 58 24 2C 4D AA 31 29 |..l.X$..(X$,M.1)|
000005C0: 3A 8B C3 28 4C 24 29 B2 4D 30 A7 54 24 28 54 29 |:..(L$).M0.T$(T)|
000005D0: B2 4C 24 3A 99 22 2A 22 3B 3A 4C 24 B2 58 24 3A |.L$:."*";:L$.X$:|
000005E0: 54 B2 54 AA 31 00 EB 0D 76 02 82 00 13 0E 8A 02 |T.T.1...v.......|
000005F0: 99 3A 54 24 28 54 29 B2 4C 24 3A 8B 54 B3 56 A7 |.:T$(T).L$:.T.V.|
00000600: 81 49 B2 54 AA 31 A4 56 3A 54 24 28 49 29 B2 22 |.I.T.1.V:T$(I)."|
00000610: 22 3A 82 00 19 0E 94 02 8E 00 2D 0E E8 03 8F 20 |":........-.... |
00000620: 45 44 49 54 20 54 48 45 20 54 45 58 54 00 71 0E |EDIT THE TEXT.q.|
00000630: F2 03 85 22 93 D7 49 45 56 49 45 4C 20 25 20 D4 |..."..IEVIEL % .|
00000640: 45 58 54 20 50 52 4F 20 D3 45 49 54 45 20 28 30 |EXT PRO .EITE (0|
00000650: 2D 31 30 30 29 20 20 30 9D 9D 9D 22 3B 54 3A 54 |-100) 0...";T:T|
00000660: B2 B6 28 54 29 3A 8B 54 B1 39 39 A7 54 B2 31 30 |..(T):.T.99.T.10|
00000670: 30 00 8D 0E FC 03 4F 46 B2 31 3A 81 49 B2 30 A4 |0.....OF.1:.I.0.|
00000680: 56 3A 8B 54 24 28 49 29 B1 22 22 A7 82 00 A7 0E |V:.T$(I)."".....|
00000690: 06 04 49 B2 49 AB 31 3A 54 B2 B5 28 54 AC 49 AD |..I.I.1:T..(T.I.|
000006A0: 31 30 30 AA 2E 35 29 00 B8 0E 10 04 4C B2 30 3A |100..5).....L.0:|
000006B0: 8B 54 B1 56 89 31 30 30 00 D1 0E 1A 04 58 24 B2 |.T.V.100.....X$.|
000006C0: 54 24 28 54 29 3A 8B 58 24 B2 22 22 89 31 39 30 |T$(T):.X$."".190|
000006D0: 30 00 EF 0E 24 04 50 24 B2 C8 28 48 24 2C 32 30 |0...$.P$..(H$,20|
000006E0: 29 3A 8B 54 A7 50 24 B2 54 24 28 54 AB 31 29 00 |):.T.P$.T$(T.1).|
000006F0: 13 0F 2E 04 99 22 93 12 22 C9 28 50 24 2C 32 30 |....."..".(P$,20|
00000700: 29 3A 99 22 13 22 A6 32 39 29 22 92 C2 4C 4F 43 |):.".".29)"..LOC|
00000710: 4B 22 54 00 48 0F 38 04 99 22 11 11 11 11 11 11 |K"T.H.8.."......|
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 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000740: A4 A4 A4 A4 A4 A4 A4 A4 00 59 0F 42 04 A1 43 24 |.........Y.B..C$|
00000750: 3A 8B 43 24 89 31 30 39 30 00 72 0F 4C 04 8F 20 |:.C$.1090.r.L.. |
00000760: 26 20 53 45 54 20 43 55 52 53 4F 52 20 28 41 2C |& SET CURSOR (A,|
00000770: 44 29 00 9E 0F 56 04 99 22 13 11 11 22 C8 28 58 |D)...V.."...".(X|
00000780: 24 2C 4C 29 3A 99 22 13 11 11 22 A6 4C 29 22 20 |$,L):."...".L)" |
00000790: 9D 12 22 CA 28 58 24 2C 4C AA 31 2C 31 29 00 CA |..".(X$,L.1,1)..|
000007A0: 0F 6A 04 99 22 13 11 11 22 A6 4C AA 31 29 CA 28 |.j.."...".L.1).(|
000007B0: 58 24 2C 4C AA 32 29 C8 28 42 24 2C 4D 30 AB C3 |X$,L.2).(B$,M0..|
000007C0: 28 58 24 29 29 3A 99 22 11 11 00 EC 0F B0 04 8D |(X$)):."........|
000007D0: 33 30 3A 8B 58 B2 39 32 A7 54 24 28 54 29 B2 58 |30:.X.92.T$(T).X|
000007E0: 24 3A 89 36 30 30 3A 8F 20 45 4E 44 00 1B 10 BA |$:.600:. END....|
000007F0: 04 8B 58 B2 32 39 A7 4C B2 4C AB 28 4C AA 31 B3 |..X.29.L.L.(L.1.|
00000800: C3 28 58 24 29 29 3A 89 31 31 30 30 3A 8F 20 43 |.(X$)):.1100:. C|
00000810: 55 52 53 4F 52 20 52 49 47 48 54 00 43 10 C4 04 |URSOR RIGHT.C...|
00000820: 8B 43 B2 32 39 A7 4C B2 4C AA 28 4C B1 30 29 3A |.C.29.L.L.(L.0):|
00000830: 89 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 4C |.1100:. CURSOR L|
00000840: 45 46 54 00 75 10 CE 04 8B 58 B2 31 37 A7 4C B2 |EFT.u....X.17.L.|
00000850: 4C AB 34 30 AC 28 4C AA 34 30 B3 C3 28 58 24 29 |L.40.(L.40..(X$)|
00000860: 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 |):.1100:. CURSOR|
00000870: 20 44 4F 57 4E 00 9F 10 D8 04 8B 43 B2 31 37 A7 | DOWN......C.17.|
00000880: 4C B2 4C AA 34 30 AC 28 4C B1 33 39 29 3A 89 31 |L.L.40.(L.39):.1|
00000890: 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 55 50 00 |100:. CURSOR UP.|
000008A0: C1 10 E2 04 8B 58 B2 31 39 A7 4C B2 30 3A 89 31 |.....X.19.L.0:.1|
000008B0: 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 48 4F 4D |100:. CURSOR HOM|
000008C0: 45 00 FB 10 EC 04 8B 43 B2 31 39 A7 81 49 B2 54 |E......C.19..I.T|
000008D0: A4 56 AB 31 3A 54 24 28 49 29 B2 54 24 28 49 AA |.V.1:T$(I).T$(I.|
000008E0: 31 29 3A 82 3A 54 24 28 56 29 B2 22 22 3A 89 31 |1):.:T$(V)."":.1|
000008F0: 30 34 30 3A 8F 20 43 4C 45 41 52 00 27 11 F6 04 |040:. CLEAR.'...|
00000900: 8B 58 B2 31 33 A7 54 24 28 54 29 B2 58 24 3A 54 |.X.13.T$(T).X$:T|
00000910: B2 54 AA 31 3A 89 31 30 34 30 3A 8F 20 4E 45 58 |.T.1:.1040:. NEX|
00000920: 54 20 42 4C 4F 43 4B 00 58 11 00 05 8B 43 B2 31 |T BLOCK.X....C.1|
00000930: 33 A7 54 24 28 54 29 B2 58 24 3A 54 B2 54 AA 28 |3.T$(T).X$:T.T.(|
00000940: 54 B1 30 29 3A 89 31 30 34 30 3A 8F 20 50 52 49 |T.0):.1040:. PRI|
00000950: 4F 52 20 42 4C 4F 43 4B 00 6B 11 0A 05 8B 4C B1 |OR BLOCK.k....L.|
00000960: B2 C3 28 58 24 29 89 31 31 30 30 00 8F 11 14 05 |..(X$).1100.....|
00000970: 4C 24 B2 C8 28 58 24 2C 4C 29 3A 8B 58 B2 31 34 |L$..(X$,L):.X.14|
00000980: 38 89 31 33 35 30 3A 8F 20 49 4E 53 45 52 54 00 |8.1350:. INSERT.|
00000990: D2 11 1E 05 4D 24 B2 CA 28 58 24 2C 4C AA 32 29 |....M$..(X$,L.2)|
000009A0: 3A 8B 43 B3 B1 32 30 A7 58 24 B2 4C 24 AA 43 24 |:.C..20.X$.L$.C$|
000009B0: AA 4D 24 3A 58 B2 32 39 3A 89 31 32 31 30 3A 8F |.M$:X.29:.1210:.|
000009C0: 20 52 45 50 4C 41 43 45 20 43 48 41 52 41 43 54 | REPLACE CHARACT|
000009D0: 45 52 00 FE 11 32 05 58 24 B2 4C 24 AA 4D 24 3A |ER...2.X$.L$.M$:|
000009E0: 8B 58 24 B2 22 22 A7 43 B2 31 39 3A 89 31 32 36 |.X$."".C.19:.126|
000009F0: 30 3A 8F 20 4E 55 4C 4C 20 42 4C 4F 43 4B 00 08 |0:. NULL BLOCK..|
00000A00: 12 3C 05 89 31 31 30 30 00 39 12 46 05 4D 24 B2 |.<..1100.9.F.M$.|
00000A10: CA 28 58 24 2C 4C AA 31 29 3A 99 22 93 11 11 11 |.(X$,L.1):."....|
00000A20: 11 11 11 11 11 11 11 11 11 11 11 11 12 22 4D 24 |............."M$|
00000A30: 3A 99 22 13 11 11 22 4C 24 00 57 12 4B 05 99 22 |:."..."L$.W.K.."|
00000A40: 13 11 11 22 A3 C3 28 4C 24 29 29 3B 3A 4D B2 4D |..."..(L$));:M.M|
00000A50: 30 3A 8D 38 32 30 30 00 84 12 50 05 4D B2 4D 30 |0:.8200...P.M.M0|
00000A60: AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 58 |..(L$):L$.L$..(X|
00000A70: 24 2C 4D 29 3A 4D 24 B2 CA 28 58 24 2C 4D AA 31 |$,M):M$..(X$,M.1|
00000A80: 29 AA 4D 24 00 C3 12 5A 05 4D B2 4D 30 AB C3 28 |).M$...Z.M.M0..(|
00000A90: 4C 24 29 3A 54 24 28 54 29 B2 4C 24 AA C8 28 4D |L$):T$(T).L$..(M|
00000AA0: 24 2C 4D 29 3A 4C 24 B2 CA 28 4D 24 2C 4D AA 31 |$,M):L$..(M$,M.1|
00000AB0: 29 3A 4D 24 B2 22 22 3A 8B 4C 24 B2 22 22 89 31 |):M$."":.L$."".1|
00000AC0: 30 35 30 00 E0 12 64 05 58 B2 54 3A 54 B2 54 AA |050...d.X.T:T.T.|
00000AD0: 31 3A 8D 36 31 30 3A 54 B2 58 3A 89 31 30 35 30 |1:.610:T.X:.1050|
00000AE0: 00 F5 12 6C 07 8F 20 41 44 44 20 54 4F 20 54 48 |...l.. ADD TO TH|
00000AF0: 45 20 45 4E 44 00 08 13 76 07 8B 54 B2 30 89 36 |E END...v..T.0.6|
00000B00: 30 30 3A 8F 20 45 4E 44 00 30 13 80 07 58 24 B2 |00:. END.0...X$.|
00000B10: 54 24 28 54 AB 31 29 3A 99 22 93 22 58 24 3A 99 |T$(T.1):."."X$:.|
00000B20: 22 13 22 A6 C3 28 58 24 29 29 3B 3A 89 35 31 30 |"."..(X$));:.510|
00000B30: 00 41 13 D0 07 8F 20 49 4E 50 55 54 20 46 49 4C |.A.... INPUT FIL|
00000B40: 45 00 6B 13 D5 07 51 39 24 B2 22 D4 45 58 54 20 |E.k...Q9$.".EXT |
00000B50: 22 3A 20 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D |": . FOR ERROR M|
00000B60: 53 47 20 49 4E 20 36 30 30 30 30 00 8E 13 EE 07 |SG IN 60000.....|
00000B70: 8B 43 46 B1 32 A7 99 22 11 D6 4F 4E 20 C4 41 54 |.CF.2.."..ON .AT|
00000B80: 41 53 45 54 54 45 22 3B 3A 8D 38 30 35 30 00 B3 |ASETTE";:.8050..|
00000B90: 13 F8 07 8B 43 46 B2 32 B0 28 43 46 B1 32 AF 49 |....CF.2.(CF.2.I|
00000BA0: B2 30 29 A7 9F 31 2C 31 2C 30 2C 48 24 3A 89 32 |.0)..1,1,0,H$:.2|
00000BB0: 31 30 30 00 D9 13 02 08 9F 31 2C 30 38 2C 32 2C |100......1,08,2,|
00000BC0: C8 28 48 24 2C 31 36 29 3A 84 38 2C 58 2C 58 24 |.(H$,16):.8,X,X$|
00000BD0: 3A 8B 58 89 36 30 30 30 30 00 10 14 34 08 4F 46 |:.X.60000...4.OF|
00000BE0: B2 30 3A 8D 34 30 3A 99 22 11 CC 45 53 45 20 20 |.0:.40:."..ESE |
00000BF0: 20 3A 20 12 22 58 24 3A 48 24 B2 58 24 3A 8D 34 | : ."X$:H$.X$:.4|
00000C00: 30 3A 99 58 24 3A 99 3A 8F 20 48 45 41 44 45 52 |0:.X$:.:. HEADER|
00000C10: 00 37 14 98 08 58 24 B2 C7 28 33 31 29 3A 81 49 |.7...X$..(31):.I|
00000C20: B2 30 A4 56 3A 4C 24 B2 22 22 3A 8F 20 49 4E 50 |.0.V:L$."":. INP|
00000C30: 55 54 20 46 49 4C 45 00 59 14 A2 08 81 4A B2 31 |UT FILE.Y....J.1|
00000C40: A4 4D 30 3A A1 23 31 2C 43 24 3A 8B 53 54 A7 4A |.M0:.#1,C$:.ST.J|
00000C50: B2 4D 30 3A 89 32 32 33 30 00 85 14 AC 08 8B 43 |.M0:.2230......C|
00000C60: 24 B1 58 24 A7 4C 24 B2 4C 24 AA 43 24 3A 8F 20 |$.X$.L$.L$.C$:. |
00000C70: 4F 4E 4C 59 20 4C 45 47 41 4C 20 43 48 41 52 41 |ONLY LEGAL CHARA|
00000C80: 43 54 45 52 53 00 A9 14 B6 08 82 4A 3A 54 24 28 |CTERS......J:T$(|
00000C90: 49 29 B2 4C 24 3A 99 4C 24 3B 3A 8B 53 54 B2 30 |I).L$:.L$;:.ST.0|
00000CA0: A7 82 49 3A 49 B2 49 AB 31 00 C1 14 CA 08 54 B2 |..I:I.I.1.....T.|
00000CB0: 49 3A 8D 36 35 30 3A 8D 38 30 30 30 3A 89 31 30 |I:.650:.8000:.10|
00000CC0: 30 00 DE 14 B8 0B 8D 33 30 32 30 3A 89 31 30 30 |0......3020:.100|
00000CD0: 3A 8F 20 4F 55 54 50 55 54 20 46 49 4C 45 00 01 |:. OUTPUT FILE..|
00000CE0: 15 CC 0B 8B 43 46 B1 32 A7 99 22 93 C1 55 46 20 |....CF.2.."..UF |
00000CF0: C4 41 54 41 53 45 54 54 45 22 3B 3A 8D 38 30 35 |.ATASETTE";:.805|
00000D00: 30 00 26 15 D6 0B 8B 43 46 B2 32 B0 28 43 46 B2 |0.&....CF.2.(CF.|
00000D10: 33 AF 49 B2 30 29 A7 9F 31 2C 31 2C 31 2C 48 24 |3.I.0)..1,1,1,H$|
00000D20: 3A 89 33 31 30 30 00 59 15 E0 0B 4C 24 B2 22 30 |:.3100.Y...L$."0|
00000D30: 3A 22 AA C8 28 48 24 2C 31 36 29 3A 9F 31 2C 30 |:"..(H$,16):.1,0|
00000D40: 38 2C 32 2C 4C 24 3A 84 38 2C 58 2C 58 24 3A A0 |8,2,L$:.8,X,X$:.|
00000D50: 31 3A 8B 58 89 33 30 38 30 00 97 15 EA 0B 99 22 |1:.X.3080......"|
00000D60: 11 D4 45 58 54 20 45 58 49 53 54 49 45 52 54 20 |..EXT EXISTIERT |
00000D70: 42 45 52 45 49 54 53 20 20 2D 20 55 45 42 45 52 |BEREITS - UEBER|
00000D80: 53 43 48 52 45 49 42 45 4E 3F 22 3B 3A 8D 38 30 |SCHREIBEN?";:.80|
00000D90: 35 30 3A 8B 49 A7 8E 00 AB 15 F4 0B 98 38 2C 22 |50:.I........8,"|
00000DA0: 53 22 4C 24 3A 98 38 2C 22 49 30 00 DF 15 08 0C |S"L$:.8,"I0.....|
00000DB0: 9F 31 2C 30 38 2C 33 2C 4C 24 AA 22 2C 53 2C 57 |.1,08,3,L$.",S,W|
00000DC0: 22 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 51 39 24 |":.8,X,X$:.X.Q9$|
00000DD0: B2 22 D3 50 41 43 45 22 3A 8D 36 30 30 30 30 00 |.".PACE":.60000.|
00000DE0: F6 15 1C 0C 4F 46 B2 30 3A 98 31 2C 48 24 C7 28 |....OF.0:.1,H$.(|
00000DF0: 31 34 31 29 44 24 00 1D 16 4E 0C 81 49 B2 30 A4 |141)D$...N..I.0.|
00000E00: 56 3A 8B 54 24 28 49 29 B1 22 22 A7 98 31 2C 54 |V:.T$(I).""..1,T|
00000E10: 24 28 49 29 3B 3A 99 22 2A 22 3B 3A 82 00 2B 16 |$(I);:."*";:..+.|
00000E20: 58 0C 98 31 2C 22 5C 22 3B 3A 8E 00 42 16 A0 0F |X..1,"\";:..B...|
00000E30: 8F 20 42 41 54 43 48 20 50 52 4F 43 45 53 53 49 |. BATCH PROCESSI|
00000E40: 4E 47 00 6B 16 A5 0F 51 39 24 B2 22 46 49 4C 45 |NG.k...Q9$."FILE|
00000E50: 22 3A 20 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D |": . FOR ERROR M|
00000E60: 53 47 20 49 4E 20 36 30 30 30 30 00 8F 16 AA 0F |SG IN 60000.....|
00000E70: 99 22 93 22 3B 3A 91 43 46 89 34 31 30 30 2C 34 |.".";:.CF.4100,4|
00000E80: 30 35 30 3A 8F 20 45 4C 53 45 20 42 4F 54 48 00 |050:. ELSE BOTH.|
00000E90: B4 16 B4 0F 99 22 D6 4F 4E 20 20 C4 41 54 41 53 |.....".ON .ATAS|
00000EA0: 45 54 54 45 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 |ETTE";:.8050:.I.|
00000EB0: 34 31 30 30 00 C8 16 D2 0F 8F 20 46 52 4F 4D 20 |4100...... FROM |
00000EC0: 43 41 53 53 45 54 54 45 00 D7 16 DC 0F 9F 32 2C |CASSETTE......2,|
00000ED0: 31 3A 89 34 31 35 30 00 E7 16 04 10 8F 20 46 52 |1:.4150...... FR|
00000EE0: 4F 4D 20 44 49 53 43 00 1B 17 0E 10 85 22 93 CE |OM DISC......"..|
00000EF0: C1 CD C5 20 CD C1 C3 C8 C9 CE C5 20 C6 49 4C 45 |... ....... .ILE|
00000F00: 4E 41 4D 45 20 20 2D 9D 9D 9D 22 3B 58 24 3A 8B |NAME -...";X$:.|
00000F10: 58 24 B2 22 2D 22 89 34 31 31 30 00 3F 17 18 10 |X$."-".4110.?...|
00000F20: 9F 32 2C 30 38 2C 32 2C 58 24 3A 84 38 2C 58 2C |.2,08,2,X$:.8,X,|
00000F30: 58 24 3A 8B 58 A7 A0 32 3A 89 36 30 30 30 30 00 |X$:.X..2:.60000.|
00000F40: 58 17 36 10 8F 20 50 52 45 50 41 52 45 20 46 4F |X.6.. PREPARE FO|
00000F50: 52 20 4F 55 54 50 55 54 00 8B 17 40 10 54 42 24 |R OUTPUT...@.TB$|
00000F60: B2 22 22 3A 53 32 B2 30 3A 4E B2 37 32 3A 46 B2 |."":S2.0:N.72:F.|
00000F70: 31 3A 9F 31 2C 30 34 3A 53 24 B2 22 11 22 AA C8 |1:.1,04:S$."."..|
00000F80: 28 42 24 2C 34 30 AB 4E AD 32 29 00 B3 17 4A 10 |(B$,40.N.2)...J.|
00000F90: 99 22 11 D3 54 41 4E 44 41 52 44 20 C6 4F 52 4D |."..TANDARD .ORM|
00000FA0: 41 54 22 3B 3A 8D 38 30 35 30 3A 8B 49 A7 8D 37 |AT";:.8050:.I..7|
00000FB0: 35 30 30 00 D5 17 68 10 8F 20 47 45 54 20 54 48 |500...h.. GET TH|
00000FC0: 45 20 4E 41 4D 45 20 41 4E 44 20 53 41 4C 55 54 |E NAME AND SALUT|
00000FD0: 41 54 49 4F 4E 00 01 18 72 10 84 32 2C 5A 24 3A |ATION...r..2,Z$:|
00000FE0: 8B 53 54 B1 30 B0 C3 28 5A 24 29 B3 32 89 34 39 |.ST.0..(Z$).2.49|
00000FF0: 30 30 3A 8F 20 4E 4F 20 4C 41 53 54 20 4E 41 4D |00:. NO LAST NAM|
00001000: 45 00 2C 18 7C 10 4C 24 B2 22 22 3A 8D 37 34 35 |E.,.|.L$."":.745|
00001010: 30 3A 58 24 B2 22 22 3A 59 24 B2 22 22 3A 4D 24 |0:X$."":Y$."":M$|
00001020: B2 22 C7 45 4E 54 4C 45 4D 45 4E 3A 00 5B 18 86 |.".ENTLEMEN:.[..|
00001030: 10 84 32 2C 58 24 3A 8B C3 28 58 24 29 B3 32 A7 |..2,X$:..(X$).2.|
00001040: 58 24 B2 22 22 3A 89 34 32 35 30 3A 8F 20 4E 4F |X$."":.4250:. NO|
00001050: 20 46 49 52 53 54 20 4E 41 4D 45 00 7B 18 90 10 | FIRST NAME.{...|
00001060: 4D 24 B2 22 C4 45 41 52 20 22 AA 58 24 AA 22 2C |M$.".EAR ".X$.",|
00001070: 22 3A 58 24 B2 58 24 AA 22 20 22 00 A5 18 9A 10 |":X$.X$." ".....|
00001080: 84 32 2C 59 24 3A 8B C3 28 59 24 29 B3 32 A7 59 |.2,Y$:..(Y$).2.Y|
00001090: 24 B2 22 22 3A 89 34 32 37 30 3A 8F 20 4E 4F 20 |$."":.4270:. NO |
000010A0: 54 49 54 4C 45 00 C7 18 A4 10 59 24 B2 59 24 AA |TITLE.....Y$.Y$.|
000010B0: 22 20 22 3A 4D 24 B2 22 C4 45 41 52 20 22 AA 59 |" ":M$.".EAR ".Y|
000010C0: 24 AA 5A 24 AA 22 2C 00 F4 18 AE 10 4C 24 B2 59 |$.Z$.",.....L$.Y|
000010D0: 24 AA 58 24 AA 5A 24 3A 84 32 2C 58 24 3A 8B C3 |$.X$.Z$:.2,X$:..|
000010E0: 28 58 24 29 B1 32 A7 4C 24 B2 4C 24 AA 22 2C 20 |(X$).2.L$.L$.", |
000010F0: 22 AA 58 24 00 1D 19 B8 10 5A 24 B2 4D 24 3A 4D |".X$.....Z$.M$:M|
00001100: 24 B2 22 22 3A 50 24 B2 4C 24 3A 8D 37 39 30 30 |$."":P$.L$:.7900|
00001110: 3A 8F 20 50 52 49 4E 54 20 4E 41 4D 45 00 2F 19 |:. PRINT NAME./.|
00001120: CC 10 8F 20 47 45 54 20 41 44 44 52 45 53 53 00 |... GET ADDRESS.|
00001130: 57 19 D6 10 84 32 2C 4C 24 3A 8B C3 28 4C 24 29 |W....2,L$:..(L$)|
00001140: B1 31 A7 50 24 B2 4C 24 3A 8D 37 39 30 30 3A 8F |.1.P$.L$:.7900:.|
00001150: 20 4C 49 4E 45 20 32 00 7F 19 E0 10 84 32 2C 4C | LINE 2......2,L|
00001160: 24 3A 8B C3 28 4C 24 29 B1 31 A7 50 24 B2 4C 24 |$:..(L$).1.P$.L$|
00001170: 3A 8D 37 39 30 30 3A 8F 20 4C 49 4E 45 20 33 00 |:.7900:. LINE 3.|
00001180: B3 19 EA 10 84 32 2C 4C 24 3A 84 32 2C 59 24 3A |.....2,L$:.2,Y$:|
00001190: 8B C3 28 59 24 29 B1 31 A7 4C 24 B2 4C 24 AA 22 |..(Y$).1.L$.L$."|
000011A0: 2C 20 22 AA 59 24 3A 8F 20 53 54 41 54 45 2C 20 |, ".Y$:. STATE, |
000011B0: 5A 49 50 00 CC 19 F4 10 8B C3 28 4C 24 29 B1 31 |ZIP.......(L$).1|
000011C0: A7 50 24 B2 4C 24 3A 8D 37 39 30 30 00 F8 19 FE |.P$.L$:.7900....|
000011D0: 10 81 49 B2 4C A4 31 34 3A 8D 37 39 30 30 3A 82 |..I.L.14:.7900:.|
000011E0: 3A 4C 24 B2 5A 24 3A 50 24 B2 4C 24 3A 8D 37 30 |:L$.Z$:P$.L$:.70|
000011F0: 39 30 3A 89 34 32 30 30 00 04 1A 24 13 A0 32 3A |90:.4200...$..2:|
00001200: 89 31 30 30 00 1D 1A 70 17 8F 20 53 45 41 52 43 |.100...p.. SEARC|
00001210: 48 20 41 4E 44 20 52 45 50 4C 41 43 45 00 59 1A |H AND REPLACE.Y.|
00001220: 7A 17 99 22 93 11 D3 55 43 48 45 20 4E 41 43 48 |z.."...UCHE NACH|
00001230: 3F 22 3A 4D B2 34 30 3A 8D 38 32 30 30 3A 5A 24 |?":M.40:.8200:Z$|
00001240: B2 58 24 3A 4C B2 C3 28 58 24 29 3A 8B 4C B2 30 |.X$:L..(X$):.L.0|
00001250: B0 4C B2 4D 89 36 30 31 30 00 81 1A 84 17 99 3A |.L.M.6010......:|
00001260: 99 22 11 D4 41 55 53 43 48 45 20 4D 49 54 20 3F |."..AUSCHE MIT ?|
00001270: 22 3A 8D 38 32 30 30 3A 59 24 B2 58 24 3A 99 3A |":.8200:Y$.X$:.:|
00001280: 99 00 A8 1A 8E 17 58 24 B2 22 22 3A 4D 24 B2 22 |......X$."":M$."|
00001290: 22 3A 4C 24 B2 22 22 3A 54 B2 30 3A 55 B2 30 3A |":L$."":T.0:U.0:|
000012A0: 46 B2 30 3A 4F 46 B2 31 00 BE 1A 38 18 8F 20 41 |F.0:OF.1...8.. A|
000012B0: 54 54 41 43 48 20 54 24 20 54 4F 20 58 24 00 D1 |TTACH T$ TO X$..|
000012C0: 1A 42 18 8B C3 28 58 24 29 B1 B2 4C 89 36 32 35 |.B...(X$)..L.625|
000012D0: 30 00 D9 1A 48 18 99 3A 99 00 F7 1A 4C 18 8B 54 |0...H..:....L..T|
000012E0: B1 56 89 36 34 30 30 3A 8F 20 41 4C 4C 20 54 24 |.V.6400:. ALL T$|
000012F0: 27 53 20 52 45 41 44 00 1C 1B 56 18 58 24 B2 58 |'S READ...V.X$.X|
00001300: 24 AA 54 24 28 54 29 3A 54 24 28 54 29 B2 22 22 |$.T$(T):T$(T).""|
00001310: 3A 54 B2 54 AA 31 3A 89 36 32 30 30 00 33 1B 6A |:T.T.1:.6200.3.j|
00001320: 18 8F 20 53 45 41 52 43 48 20 46 4F 52 20 4D 41 |.. SEARCH FOR MA|
00001330: 54 43 48 00 61 1B 74 18 81 49 B2 31 A4 C3 28 58 |TCH.a.t..I.1..(X|
00001340: 24 29 AB 4C AA 31 3A 8B CA 28 58 24 2C 49 2C 4C |$).L.1:..(X$,I,L|
00001350: 29 B3 B1 5A 24 A7 82 3A 4A B2 49 3A 89 36 33 30 |)..Z$..:J.I:.630|
00001360: 30 00 77 1B 7E 18 4D 24 B2 59 24 3A 4A B2 49 AA |0.w.~.M$.Y$:J.I.|
00001370: 4C 3A 99 22 12 22 3B 00 8B 1B 9C 18 8F 20 53 50 |L:.".";...... SP|
00001380: 4C 49 54 20 53 54 52 49 4E 47 53 00 BE 1B A6 18 |LIT STRINGS.....|
00001390: 4D 24 B2 C8 28 58 24 2C 49 AB 31 29 AA 4D 24 3A |M$..(X$,I.1).M$:|
000013A0: 58 24 B2 CA 28 58 24 2C 4A 29 3A 8D 36 35 30 30 |X$..(X$,J):.6500|
000013B0: 3A 91 46 89 36 39 30 30 3A 89 36 32 30 30 00 D1 |:.F.6900:.6200..|
000013C0: 1B 00 19 8F 20 53 54 4F 57 20 4C 41 53 54 20 4C |.... STOW LAST L|
000013D0: 24 00 EE 1B 0A 19 8D 36 35 30 30 3A 8B 46 89 36 |$......6500:.F.6|
000013E0: 39 30 30 3A 8F 20 43 4C 45 41 52 20 4D 24 00 1A |900:. CLEAR M$..|
000013F0: 1C 14 19 4D 24 B2 58 24 3A 8D 36 35 30 30 3A 8B |...M$.X$:.6500:.|
00001400: 46 89 36 39 30 30 3A 8F 20 4D 24 5F 58 24 3B 20 |F.6900:. M$_X$; |
00001410: 43 4C 45 41 52 20 42 4F 54 48 00 51 1C 1E 19 8B |CLEAR BOTH.Q....|
00001420: 55 B3 B2 56 A7 54 B2 55 3A 8D 36 35 30 3A 89 31 |U..V.T.U:.650:.1|
00001430: 30 30 3A 8F 20 53 54 4F 57 20 4C 24 2C 20 43 4C |00:. STOW L$, CL|
00001440: 45 41 52 20 48 49 47 48 45 52 20 42 4C 4F 43 4B |EAR HIGHER BLOCK|
00001450: 53 00 5B 1C 28 19 89 36 39 30 30 00 7E 1C 64 19 |S.[.(..6900.~.d.|
00001460: 8F 20 43 4C 45 41 52 20 4D 24 20 2D 20 53 54 4F |. CLEAR M$ - STO|
00001470: 57 20 4C 24 20 49 46 20 4E 45 45 44 45 44 00 B4 |W L$ IF NEEDED..|
00001480: 1C 6E 19 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 |.n.M.M0..(L$):L$|
00001490: B2 4C 24 AA C8 28 4D 24 2C 4D 29 3A 4D 24 B2 CA |.L$..(M$,M):M$..|
000014A0: 28 4D 24 2C 4D AA 31 29 3A 8B C3 28 4C 24 29 B3 |(M$,M.1):..(L$).|
000014B0: 4D 30 A7 8E 00 C3 1C 78 19 8B 55 B1 B2 56 89 36 |M0.....x..U..V.6|
000014C0: 35 35 30 00 F0 1C 82 19 8B 55 B3 54 A7 54 24 28 |550......U.T.T$(|
000014D0: 55 29 B2 4C 24 3A 99 22 2A 92 22 3B 3A 55 B2 55 |U).L$:."*.";:U.U|
000014E0: AA 31 3A 4C 24 B2 4D 24 3A 4D 24 B2 22 22 3A 8E |.1:L$.M$:M$."":.|
000014F0: 00 2A 1D 8C 19 8B 54 B3 56 A7 81 49 B2 56 A4 54 |.*....T.V..I.V.T|
00001500: AA 31 A9 AB 31 3A 54 24 28 49 29 B2 54 24 28 49 |.1..1:T$(I).T$(I|
00001510: AB 31 29 3A 82 3A 54 24 28 54 29 B2 22 22 3A 54 |.1):.:T$(T)."":T|
00001520: B2 54 AA 31 3A 89 36 35 33 30 00 34 1D 96 19 46 |.T.1:.6530.4...F|
00001530: B2 31 3A 8E 00 45 1D F4 1A 8F 20 45 52 52 4F 52 |.1:..E.... ERROR|
00001540: 20 45 58 49 54 00 78 1D FE 1A 99 3A 99 22 11 CB | EXIT.x....:."..|
00001550: 45 49 4E 20 D0 4C 41 54 5A 20 2D 20 C4 41 54 45 |EIN .LATZ - .ATE|
00001560: 4E 20 56 45 52 4D 49 4E 44 45 52 4E 22 3A 8D 38 |N VERMINDERN":.8|
00001570: 30 30 30 3A 89 31 30 30 00 8F 1D 58 1B 8F 20 46 |000:.100...X.. F|
00001580: 4F 52 4D 41 54 20 41 4E 44 20 50 52 49 4E 54 00 |ORMAT AND PRINT.|
00001590: 9E 1D 62 1B 8D 37 30 32 30 3A 89 31 30 30 00 B6 |..b..7020:.100..|
000015A0: 1D 6C 1B 9F 31 2C 30 34 3A 46 B2 31 3A 8F 20 50 |.l..1,04:F.1:. P|
000015B0: 52 49 4E 54 45 52 00 E7 1D 76 1B 53 32 B2 31 3A |RINTER...v.S2.1:|
000015C0: 4E B2 36 30 3A 54 42 24 B2 22 22 3A 58 24 B2 22 |N.60:TB$."":X$."|
000015D0: 46 49 44 22 3A 8F 20 44 45 46 41 55 4C 54 53 20 |FID":. DEFAULTS |
000015E0: 28 44 52 41 46 54 29 00 1D 1E 80 1B 99 22 11 12 |(DRAFT)......"..|
000015F0: C6 92 4F 52 4D 42 52 49 45 46 2C 12 C9 92 4E 46 |..ORMBRIEF,...NF|
00001600: 4F 52 4D 41 54 2C 20 4F 52 20 12 C4 92 52 41 46 |ORMAT, OR ...RAF|
00001610: 54 22 3B 3A 8D 38 30 36 30 3A 4A B2 49 00 36 1E |T";:.8060:J.I.6.|
00001620: 94 1B 8B 4A B3 32 A7 53 32 B2 30 3A 4E B2 37 32 |...J.2.S2.0:N.72|
00001630: 3A 8D 37 35 30 30 00 5D 1E 9E 1B 53 24 B2 C8 28 |:.7500.]...S$..(|
00001640: 42 24 2C 34 30 AB 4E AD 32 29 3A 8B 4A B2 30 89 |B$,40.N.2):.J.0.|
00001650: 37 34 30 30 3A 8F 20 46 4F 52 4D 41 4C 00 80 1E |7400:. FORMAL...|
00001660: A8 1B 4C 24 B2 22 12 22 AA 48 24 3A 50 24 B2 48 |..L$.".".H$:P$.H|
00001670: 24 3A 4D 24 B2 C8 28 4B 24 2C C3 28 48 24 29 29 |$:M$..(K$,.(H$))|
00001680: 00 9E 1E B2 1B 4A B2 30 3A 99 22 93 22 3A 8D 37 |.....J.0:.".":.7|
00001690: 39 30 30 3A 8D 37 39 30 30 3A 8B 4A A7 8E 00 C8 |900:.7900:.J....|
000016A0: 1E BC 1B 54 B2 30 3A 58 24 B2 22 5D 22 AA 54 42 |...T.0:X$."]".TB|
000016B0: 24 3A 45 B2 30 3A 5A 24 B2 42 24 3A 8F 20 50 52 |$:E.0:Z$.B$:. PR|
000016C0: 49 4E 54 20 54 45 58 54 00 FF 1E C6 1B 8B C3 28 |INT TEXT.......(|
000016D0: 58 24 29 B3 B2 4E A7 58 24 B2 58 24 AA 54 24 28 |X$)..N.X$.X$.T$(|
000016E0: 54 29 3A 54 B2 54 AA 31 3A 8B C3 28 58 24 29 B3 |T):T.T.1:..(X$).|
000016F0: B2 4E B0 54 B1 56 A7 58 24 B2 58 24 AA 22 5C 00 |.N.T.V.X$.X$."\.|
00001700: 2F 1F CB 1B 8B C6 28 58 24 29 B2 33 32 A7 58 24 |/.....(X$).32.X$|
00001710: B2 CA 28 58 24 2C 32 29 3A 89 37 31 31 30 3A 8F |..(X$,2):.7110:.|
00001720: 20 4C 45 41 44 49 4E 47 20 42 4C 41 4E 4B 53 00 | LEADING BLANKS.|
00001730: 40 1F D0 1B 8B 45 A7 58 24 B2 22 5B 22 AA 58 24 |@....E.X$."[".X$|
00001740: 00 7D 1F DA 1B 4C 24 B2 C8 28 58 24 2C 4E AA 31 |.}...L$..(X$,N.1|
00001750: 29 3A 50 24 B2 4C 24 3A 4A B2 30 3A 4B B2 30 3A |):P$.L$:J.0:K.0:|
00001760: 4D 24 B2 42 24 3A 81 49 B2 31 A4 C3 28 4C 24 29 |M$.B$:.I.1..(L$)|
00001770: 3A 43 B2 C6 28 CA 28 4C 24 2C 49 29 29 00 9F 1F |:C..(.(L$,I))...|
00001780: E4 1B 8B 43 B1 39 30 AF 43 B3 39 36 A7 8D 37 37 |...C.90.C.96..77|
00001790: 30 30 3A 8B 58 A7 49 B2 4A 3A 89 37 31 36 30 00 |00:.X.I.J:.7160.|
000017A0: D4 1F EE 1B 82 3A 81 49 B2 C3 28 4C 24 29 A4 4A |.....:.I..(L$).J|
000017B0: AA 31 A9 AB 31 3A 8B CA 28 4C 24 2C 49 2C 31 29 |.1..1:..(L$,I,1)|
000017C0: B1 22 20 22 A7 82 3A 49 B2 4A 3A 8B 4A B2 30 89 |." "..:I.J:.J.0.|
000017D0: 37 39 39 30 00 10 20 F8 1B 4A B2 30 3A 58 24 B2 |7990.. ..J.0:X$.|
000017E0: CA 28 58 24 2C 49 AA 31 29 3A 4C 24 B2 C8 28 4C |.(X$,I.1):L$..(L|
000017F0: 24 2C 49 AB 31 29 3A 50 24 B2 C8 28 50 24 2C 49 |$,I.1):P$..(P$,I|
00001800: AB 4B 29 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 |.K):M$..(M$,I.K)|
00001810: 00 31 20 16 1C 8B 43 B2 39 34 B0 43 B2 39 35 A7 |.1 ...C.94.C.95.|
00001820: 45 B2 30 3A 58 24 B2 22 5D 22 AA 54 42 24 AA 58 |E.0:X$."]".TB$.X|
00001830: 24 00 60 20 20 1C 58 B2 43 3A 8D 37 39 30 30 3A |$.` .X.C:.7900:|
00001840: 8B 4A B1 30 B0 58 B2 39 34 B0 58 B2 39 32 A7 8D |.J.0.X.94.X.92..|
00001850: 37 39 35 30 3A 8B 4A B1 30 B0 58 B2 39 32 A7 8E |7950:.J.0.X.92..|
00001860: 00 6A 20 2A 1C 89 37 31 31 30 00 77 20 E8 1C 8F |.j *..7110.w ...|
00001870: 20 46 4F 52 4D 41 4C 00 A9 20 F2 1C 4C 24 B2 22 | FORMAL.. ..L$."|
00001880: 22 3A 8D 37 34 35 30 3A 99 22 93 D6 49 45 52 20 |":.7450:."..IER |
00001890: C1 44 52 45 53 53 5A 45 49 4C 45 4E 20 22 3A 4D |.DRESSZEILEN ":M|
000018A0: B2 4E 3A 81 49 B2 31 A4 34 00 DB 20 FC 1C 99 22 |.N:.I.1.4.. ..."|
000018B0: DA 45 49 4C 45 22 49 3A 8D 38 32 30 30 3A 99 3A |.EILE"I:.8200:.:|
000018C0: 8B C3 28 58 24 29 B2 4D A7 99 22 12 DA 55 20 4C |..(X$).M.."..U L|
000018D0: 41 4E 47 20 22 3A 89 37 34 32 30 00 F9 20 06 1D |ANG ":.7420.. ..|
000018E0: 50 24 B2 58 24 3A 8D 37 39 30 30 3A 82 3A 8D 37 |P$.X$:.7900:.:.7|
000018F0: 39 30 30 3A 8D 37 39 30 30 00 1E 21 10 1D 99 22 |900:.7900..!..."|
00001900: C2 45 47 52 55 45 53 53 55 4E 47 22 3A 8D 38 32 |.EGRUESSUNG":.82|
00001910: 30 30 3A 50 24 B2 58 24 3A 89 37 30 39 30 00 4F |00:P$.X$:.7090.O|
00001920: 21 1A 1D 8C 3A 4D 24 B2 22 22 3A 59 24 B2 53 24 |!...:M$."":Y$.S$|
00001930: 3A 81 49 B2 31 A4 33 3A 87 50 24 3A 8D 37 34 39 |:.I.1.3:.P$:.749|
00001940: 30 3A 82 3A 50 24 B2 44 24 3A 8D 37 34 39 30 00 |0:.:P$.D$:.7490.|
00001950: 6A 21 2E 1D 81 49 B2 31 A4 35 3A 8D 37 39 30 30 |j!...I.1.5:.7900|
00001960: 3A 82 3A 53 24 B2 59 24 3A 8E 00 90 21 42 1D 4B |:.:S$.Y$:...!B.K|
00001970: B2 C3 28 50 24 29 3A 53 24 B2 22 11 22 AA C8 28 |..(P$):S$."."..(|
00001980: 42 24 2C 34 30 AB 4B AD 32 29 3A 89 37 39 30 30 |B$,40.K.2):.7900|
00001990: 00 A8 21 4C 1D 8F 20 46 4F 52 4D 41 54 20 56 41 |..!L.. FORMAT VA|
000019A0: 52 49 41 54 49 4F 4E 53 00 D3 21 56 1D 99 22 11 |RIATIONS..!V..".|
000019B0: D3 54 41 4E 44 41 52 44 20 C6 4F 52 4D 41 54 3A |.TANDARD .ORMAT:|
000019C0: 22 3A 99 2C 22 20 C5 49 4E 5A 45 4C 41 42 53 54 |":.," .INZELABST|
000019D0: 41 4E 44 00 07 22 60 1D 99 2C 4E 22 C2 55 43 48 |AND.."`..,N".UCH|
000019E0: 53 54 41 42 45 4E 20 50 52 4F 20 DA 45 49 4C 45 |STABEN PRO .EILE|
000019F0: 22 3A 99 2C 4C 4C 22 DA 45 49 4C 45 4E 20 50 52 |":.,LL".EILEN PR|
00001A00: 4F 20 D3 45 49 54 45 00 26 22 6A 1D 99 2C 22 CC |O .EITE.&"j..,".|
00001A10: 41 45 4E 47 45 20 44 45 53 20 D4 41 42 53 3D 22 |AENGE DES .ABS="|
00001A20: C3 28 54 42 24 29 00 54 22 74 1D 99 22 11 D7 4F |.(TB$).T"t.."..O|
00001A30: 4C 4C 45 4E 20 D3 49 45 20 45 53 20 41 55 53 57 |LLEN .IE ES AUSW|
00001A40: 45 43 48 53 45 4C 4E 22 3B 3A 8D 38 30 35 30 3A |ECHSELN";:.8050:|
00001A50: 8B 49 A7 8E 00 76 22 7E 1D 99 22 93 C5 49 4E 5A |.I...v"~.."..INZ|
00001A60: 45 4C 41 42 53 54 41 4E 44 22 3B 3A 8D 38 30 35 |ELABSTAND";:.805|
00001A70: 30 3A 53 32 B2 49 00 A6 22 88 1D 85 22 11 C2 55 |0:S2.I.."..."..U|
00001A80: 43 48 53 54 41 42 45 4E 20 50 52 4F 20 DA 45 49 |CHSTABEN PRO .EI|
00001A90: 4C 45 28 32 30 2D 38 30 29 20 20 37 32 20 9D 9D |LE(20-80) 72 ..|
00001AA0: 9D 9D 9D 22 3B 4E 00 C1 22 92 1D 8B 4E B3 32 30 |...";N.."...N.20|
00001AB0: B0 4E B1 38 30 A7 99 22 91 91 22 3A 89 37 35 36 |.N.80.."..":.756|
00001AC0: 30 00 FE 22 9C 1D 99 22 11 DA 45 49 4C 45 4E 20 |0.."..."..EILEN |
00001AD0: 50 52 4F 20 D3 45 49 54 45 22 4C 4C 22 9D 20 20 |PRO .EITE"LL". |
00001AE0: 9D 9D 9D 9D 9D 9D 22 3B 3A 85 4C 4C 3A 8B 4C 4C |......";:.LL:.LL|
00001AF0: B3 31 A7 99 22 91 91 22 3A 89 37 35 38 30 00 39 |.1.."..":.7580.9|
00001B00: 23 A1 1D 99 22 11 CC 41 45 4E 47 45 20 44 45 53 |#..."..AENGE DES|
00001B10: 20 D4 41 42 53 22 3B 3A 58 24 B2 22 30 31 32 33 | .ABS";:X$."0123|
00001B20: 34 35 36 37 38 39 22 3A 8D 38 30 36 30 3A 54 42 |456789":.8060:TB|
00001B30: 24 B2 C8 28 42 24 2C 49 29 00 3F 23 A6 1D 8E 00 |$..(B$,I).?#....|
00001B40: 51 23 14 1E 8F 20 45 4E 48 41 4E 43 45 4D 45 4E |Q#... ENHANCEMEN|
00001B50: 54 00 97 23 28 1E 4B B2 4B AA 31 3A 58 B2 31 3A |T..#(.K.K.1:X.1:|
00001B60: 4A B2 49 3A 8B 43 B2 39 31 B0 43 B2 39 33 A7 58 |J.I:.C.91.C.93.X|
00001B70: B2 30 3A 45 B2 28 43 B2 39 31 29 3A 5A 24 B2 42 |.0:E.(C.91):Z$.B|
00001B80: 24 3A 59 24 B2 22 92 22 3A 8B 45 A7 5A 24 B2 4B |$:Y$.".":.E.Z$.K|
00001B90: 24 3A 59 24 B2 22 12 00 B5 23 32 1E 4C 24 B2 C8 |$:Y$."...#2.L$..|
00001BA0: 28 4C 24 2C 49 AB 31 29 AA 59 24 AA CA 28 4C 24 |(L$,I.1).Y$..(L$|
00001BB0: 2C 49 AA 31 29 00 E9 23 46 1E 50 24 B2 C8 28 50 |,I.1)..#F.P$..(P|
00001BC0: 24 2C 49 AB 4B 29 AA CA 28 4C 24 2C 49 AA 31 29 |$,I.K)..(L$,I.1)|
00001BD0: 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 AA CA 28 |:M$..(M$,I.K)..(|
00001BE0: 5A 24 2C 49 AA 31 29 3A 8E 00 F8 23 DC 1E 8F 20 |Z$,I.1):...#... |
00001BF0: 4C 49 4E 45 20 4F 55 54 00 0C 24 E6 1E 8B 50 24 |LINE OUT..$...P$|
00001C00: B1 22 22 A7 50 24 B2 53 24 AA 50 24 00 27 24 F0 |."".P$.S$.P$.'$.|
00001C10: 1E 99 4C 24 3B 3A 8D 37 39 33 30 3A 8B 4A B1 30 |..L$;:.7930:.J.0|
00001C20: B0 53 32 B2 30 A7 8E 00 49 24 FA 1E 8B 46 A7 99 |.S2.0...I$...F..|
00001C30: 3A 98 31 2C 50 24 3B 3A 8B 4D 24 B1 42 24 A7 98 |:.1,P$;:.M$.B$..|
00001C40: 31 2C 51 24 53 24 4D 24 3B 00 70 24 04 1F 98 31 |1,Q$S$M$;.p$...1|
00001C50: 3A 50 24 B2 22 22 3A 4C 24 B2 22 22 3A 4D 24 B2 |:P$."":L$."":M$.|
00001C60: 22 22 3A 4C B2 4C AA 31 3A 8B 4C B3 4C 4C A7 8E |"":L.L.1:.L.LL..|
00001C70: 00 85 24 0E 1F 8B 46 B2 30 A7 8D 38 30 30 30 3A |..$...F.0..8000:|
00001C80: 4C B2 30 3A 8E 00 B2 24 18 1F 8B 4C A7 81 49 B2 |L.0:...$...L..I.|
00001C90: 4C A4 4C 50 AB 31 3A 98 31 3A 82 3A 4C B2 30 3A |L.LP.1:.1:.:L.0:|
00001CA0: 8F 20 50 41 47 45 20 57 49 54 48 20 42 4C 41 4E |. PAGE WITH BLAN|
00001CB0: 4B 53 00 BD 24 22 1F 99 22 93 22 3A 8E 00 E8 24 |KS..$"..".":...$|
00001CC0: 36 1F 4A B2 31 3A 99 22 11 CC 49 4E 45 20 54 4F |6.J.1:."..INE TO|
00001CD0: 4F 20 4C 4F 4E 47 20 54 4F 20 50 52 49 4E 54 22 |O LONG TO PRINT"|
00001CE0: 3A 8D 37 39 35 30 3A 8E 00 F8 24 40 1F 8F 20 55 |:.7950:...$@.. U|
00001CF0: 54 49 4C 49 54 49 45 53 00 26 25 4A 1F 99 22 11 |TILITIES.&%J..".|
00001D00: 12 20 C4 52 55 45 43 4B 45 20 45 49 4E 45 20 D4 |. .RUECKE EINE .|
00001D10: 41 53 54 45 20 20 20 22 3B 3A 8D 32 30 3A 99 3A |ASTE ";:.20:.:|
00001D20: 99 22 93 22 3A 8E 00 31 25 72 1F 58 24 B2 22 59 |.".":..1%r.X$."Y|
00001D30: 4E 00 3C 25 7C 1F 99 22 3F 20 22 3B 00 66 25 86 |N.<%|.."? ";.f%.|
00001D40: 1F 8D 32 30 3A 81 49 B2 31 A4 C3 28 58 24 29 3A |..20:.I.1..(X$):|
00001D50: 8B 43 24 B3 B1 CA 28 58 24 2C 49 2C 31 29 A7 82 |.C$...(X$,I,1)..|
00001D60: 3A 89 38 30 37 30 00 75 25 8B 1F 49 B2 49 AB 31 |:.8070.u%..I.I.1|
00001D70: 3A 99 43 24 3B 00 91 25 90 1F A1 57 24 3A 8B 57 |:.C$;..%...W$:.W|
00001D80: 24 B2 22 22 A7 99 22 A4 9D 22 3B 3A 89 38 30 38 |$."".."..";:.808|
00001D90: 30 00 A7 25 95 1F 99 22 20 9D 22 3B 3A 8B 57 24 |0..%..." .";:.W$|
00001DA0: B2 52 24 A7 99 3A 8E 00 C0 25 9A 1F 8B 57 24 B2 |.R$..:...%...W$.|
00001DB0: C7 28 32 30 29 A7 99 57 24 3B 3A 89 38 30 37 30 |.(20)..W$;:.8070|
00001DC0: 00 CA 25 9F 1F 89 38 30 38 30 00 E5 25 08 20 58 |..%...8080..%. X|
00001DD0: 24 B2 22 22 3A 8F 20 49 4E 50 55 54 20 41 20 53 |$."":. INPUT A S|
00001DE0: 54 52 49 4E 47 00 F6 25 12 20 A1 43 24 3A 8B 43 |TRING..%. .C$:.C|
00001DF0: 24 89 38 32 31 30 00 0E 26 1C 20 8D 32 35 3A 8B |$.8210..&. .25:.|
00001E00: 43 B2 31 33 B0 43 B2 39 32 89 38 32 39 30 00 3D |C.13.C.92.8290.=|
00001E10: 26 26 20 8B 43 B2 32 30 AF 58 24 B1 22 22 A7 99 |&& .C.20.X$.""..|
00001E20: 43 24 3B 3A 58 24 B2 C8 28 58 24 2C C3 28 58 24 |C$;:X$..(X$,.(X$|
00001E30: 29 AB 31 29 3A 8F 20 44 45 4C 45 54 45 00 5D 26 |).1):. DELETE.]&|
00001E40: 30 20 8B 43 B2 32 30 89 38 32 32 30 3A 8F 20 44 |0 .C.20.8220:. D|
00001E50: 45 4C 45 54 45 20 4F 4E 20 4E 55 4C 4C 00 8E 26 |ELETE ON NULL..&|
00001E60: 3A 20 8B 28 31 32 37 AF 43 29 B3 33 32 89 38 32 |: .(127.C).32.82|
00001E70: 32 30 3A 8F 20 43 55 52 53 4F 52 20 43 4F 4E 54 |20:. CURSOR CONT|
00001E80: 52 4F 4C 20 43 48 41 52 41 43 54 45 52 53 00 A7 |ROL CHARACTERS..|
00001E90: 26 44 20 99 43 24 3B 3A 8B 43 B2 33 34 A7 99 43 |&D .C$;:.C.34..C|
00001EA0: 24 C7 28 32 30 29 3B 00 C2 26 4E 20 58 24 B2 58 |$.(20);..&N X$.X|
00001EB0: 24 AA 43 24 3A 8B C3 28 58 24 29 B3 4D 89 38 32 |$.C$:..(X$).M.82|
00001EC0: 32 30 00 C8 26 62 20 8E 00 DF 26 FC 21 8F 20 51 |20..&b ...&.!. Q|
00001ED0: 55 49 54 20 54 48 45 20 50 52 4F 47 52 41 4D 00 |UIT THE PROGRAM.|
00001EE0: 15 27 10 22 99 22 93 11 D7 4F 4C 4C 45 4E 20 D3 |.'."."...OLLEN .|
00001EF0: 49 45 20 45 49 4E 45 4E 20 C1 55 53 44 52 55 43 |IE EINEN .USDRUC|
00001F00: 4B 20 20 20 20 22 3B 3A 8D 38 30 35 30 3A 8B 49 |K ";:.8050:.I|
00001F10: 89 38 37 34 30 00 3D 27 1A 22 9F 31 2C 30 34 3A |.8740.='.".1,04:|
00001F20: 46 B2 31 3A 4C B2 2E 31 3A 8D 37 39 35 30 3A 8F |F.1:L..1:.7950:.|
00001F30: 20 45 58 50 45 4C 20 41 20 50 41 47 45 00 55 27 | EXPEL A PAGE.U'|
00001F40: 24 22 8B 4F 46 B2 30 B0 54 24 28 30 29 B2 22 22 |$".OF.0.T$(0).""|
00001F50: 89 38 37 36 30 00 91 27 2E 22 99 22 11 D4 45 58 |.8760..'."."..EX|
00001F60: 54 45 20 57 55 52 44 45 4E 20 4E 49 43 48 54 20 |TE WURDEN NICHT |
00001F70: 47 45 53 50 45 49 43 48 45 52 54 22 3B 3A 8D 38 |GESPEICHERT";:.8|
00001F80: 30 35 30 3A 8B 49 B2 30 A7 A0 31 3A 8D 33 30 32 |050:.I.0..1:.302|
00001F90: 30 00 AC 27 38 22 A0 31 3A 9A 22 93 D3 45 52 56 |0..'8".1:."..ERV|
00001FA0: 55 53 20 21 22 3A 8A 36 33 30 30 30 00 D4 27 C4 |US !":.63000..'.|
00001FB0: 22 9F 31 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 3A |".1,04:F.1:L..1:|
00001FC0: 89 37 39 35 30 3A 8F 20 45 58 50 45 4C 20 41 20 |.7950:. EXPEL A |
00001FD0: 50 41 47 45 00 E5 27 28 23 8F 20 49 4E 49 54 49 |PAGE..'(#. INITI|
00001FE0: 41 4C 49 5A 45 00 15 28 2D 23 4C 50 B2 36 36 3A |ALIZE..(-#LP.66:|
00001FF0: 4C 30 B2 36 30 3A 4D 30 B2 31 36 30 3A 51 24 B2 |L0.60:M0.160:Q$.|
00002000: C7 28 31 34 31 29 3A 52 24 B2 C7 28 31 33 29 3A |.(141):R$..(13):|
00002010: 4B 24 B2 22 A4 00 34 28 32 23 56 B2 B5 28 28 B8 |K$."..4(2#V..((.|
00002020: 28 30 29 AB 32 30 30 30 29 AD 4D 30 29 3A 86 54 |(0).2000).M0):.T|
00002030: 24 28 56 29 00 75 28 3C 23 99 22 93 8E 13 13 0F |$(V).u(<#.".....|
00002040: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002050: 11 11 11 11 11 11 11 11 11 22 A6 33 39 29 22 8F |.........".39)".|
00002060: 05 22 3A 97 35 39 34 36 38 2C 31 34 3A 8F 20 46 |.":.59468,14:. F|
00002070: 4F 52 4D 41 54 00 AE 28 41 23 97 35 33 32 37 32 |ORMAT..(A#.53272|
00002080: 2C 32 B0 C2 28 35 33 32 37 32 29 3A 99 22 93 20 |,2..(53272):.". |
00002090: 20 20 20 20 12 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | . .OMMODORE |
000020A0: D7 CF D2 C4 A0 CD C1 C3 C8 C9 CE C5 20 92 00 C9 |............ ...|
000020B0: 28 43 23 8D 36 31 30 30 30 3A 20 8F 20 43 4F 4C |(C#.61000: . COL|
000020C0: 4F 52 20 43 48 41 4E 47 45 00 04 29 46 23 99 22 |OR CHANGE..)F#."|
000020D0: 11 12 D4 92 41 50 45 2C 20 12 C4 92 49 53 43 2C |....APE, ...ISC,|
000020E0: 4F 44 45 52 20 12 C2 92 45 49 44 45 22 3B 3A 58 |ODER ...EIDE";:X|
000020F0: 24 B2 22 44 54 42 22 3A 8D 38 30 36 30 3A 43 46 |$."DTB":.8060:CF|
00002100: B2 49 AA 31 00 2E 29 50 23 42 24 B2 22 20 20 20 |.I.1..)P#B$." |
00002110: 20 20 22 3A 81 49 B2 31 A4 35 3A 42 24 B2 42 24 | ":.I.1.5:B$.B$|
00002120: AA 42 24 3A 82 3A 9F 38 2C 30 38 2C 31 35 00 57 |.B$:.:.8,08,15.W|
00002130: 29 55 23 99 22 11 C8 45 55 54 49 47 45 53 20 C4 |)U#."..EUTIGES .|
00002140: 41 54 55 4D 3F 22 3A 4D B2 32 30 3A 8D 38 32 30 |ATUM?":M.20:.820|
00002150: 30 3A 44 24 B2 58 24 00 71 29 5A 23 4B 24 B2 22 |0:D$.X$.q)Z#K$."|
00002160: 20 22 3A 8F 20 31 35 32 35 20 50 52 49 4E 54 45 | ":. 1525 PRINTE|
00002170: 52 00 A2 29 64 23 8F 20 4B 24 3D 22 5F 22 3A 51 |R..)d#. K$="_":Q|
00002180: 24 3D 52 24 2B 43 48 52 24 28 32 37 29 2B 22 0A |$=R$+CHR$(27)+".|
00002190: 22 3A 52 45 4D 20 38 33 30 30 20 50 52 49 4E 54 |":REM 8300 PRINT|
000021A0: 45 52 00 BD 29 78 23 81 49 B2 31 A4 37 3A 4B 24 |ER..)x#.I.1.7:K$|
000021B0: B2 4B 24 AA 4B 24 3A 82 3A 89 31 30 30 00 C6 29 |.K$.K$:.:.100..)|
000021C0: 8C 23 89 31 30 30 00 E5 29 10 27 8F 20 4C 45 54 |.#.100..).'. LET|
000021D0: 54 45 52 48 45 41 44 20 44 41 54 41 2C 20 44 45 |TERHEAD DATA, DE|
000021E0: 4C 45 54 45 44 00 ED 29 1A 27 83 22 22 00 F5 29 |LETED..).'.""..)|
000021F0: 24 27 83 22 22 00 FD 29 2E 27 83 22 22 00 21 2A |$'.""..).'."".!*|
00002200: 60 EA 99 51 39 24 22 4E 49 43 48 54 20 47 45 46 |`..Q9$"NICHT GEF|
00002210: 55 4E 44 45 4E 22 3A 8D 38 30 30 30 3A 89 31 30 |UNDEN":.8000:.10|
00002220: 30 00 3C 2A 48 EE 8F 20 43 4F 4C 4F 52 20 43 48 |0.<*H.. COLOR CH|
00002230: 41 4E 47 45 20 52 4F 55 54 49 4E 45 00 60 2A 49 |ANGE ROUTINE.`*I|
00002240: EE 96 A5 43 28 58 29 B2 C2 28 58 29 AA 31 AA 31 |...C(X)..(X).1.1|
00002250: 36 AC 28 28 C2 28 58 29 AF 31 35 29 B2 31 35 29 |6.((.(X).15).15)|
00002260: 00 7F 2A 4A EE 99 22 13 11 11 11 D7 41 45 48 4C |..*J..".....AEHL|
00002270: 45 20 44 45 49 4E 45 20 C6 41 52 42 45 4E 22 00 |E DEINE .ARBEN".|
00002280: B5 2A 4B EE 99 22 11 11 12 C6 31 92 3D D2 41 48 |.*K.."....1.=.AH|
00002290: 4D 45 4E 46 41 52 42 45 20 20 20 20 20 20 20 12 |MENFARBE .|
000022A0: C6 33 92 3D C8 49 4E 54 45 52 47 52 55 4E 44 46 |.3.=.INTERGRUNDF|
000022B0: 41 52 42 45 22 00 E7 2A 4D EE 99 22 11 12 C6 35 |ARBE"..*M.."...5|
000022C0: 92 3D C2 55 43 48 53 54 41 42 45 4E 46 41 52 42 |.=.UCHSTABENFARB|
000022D0: 45 20 20 20 12 D2 C5 D4 D5 D2 CE 92 3D D7 45 49 |E ........=.EI|
000022E0: 54 45 52 11 11 11 22 00 F9 2A 52 EE A1 43 24 3A |TER..."..*R..C$:|
000022F0: 8B 43 24 89 36 31 30 31 30 00 0E 2B 5C EE A1 43 |.C$.61010..+\..C|
00002300: 24 3A 8B 43 24 B2 22 22 89 36 31 30 32 30 00 35 |$:.C$."".61020.5|
00002310: 2B 66 EE 43 B2 C6 28 43 24 29 3A 8B 43 B2 31 33 |+f.C..(C$):.C.13|
00002320: 35 A7 97 36 34 36 2C A5 43 28 36 34 36 29 3A 89 |5..646,.C(646):.|
00002330: 36 31 30 30 32 00 61 2B 7A EE 43 B2 C6 28 43 24 |61002.a+z.C..(C$|
00002340: 29 3A 8B 43 B2 31 33 33 B0 43 B2 31 33 34 A7 58 |):.C.133.C.134.X|
00002350: B2 35 33 31 34 37 AA 43 3A 97 58 2C A5 43 28 58 |.53147.C:.X,.C(X|
00002360: 29 00 71 2B 7F EE 8B 43 B2 39 35 89 36 31 30 37 |).q+...C.95.6107|
00002370: 30 00 82 2B 84 EE 8B 43 B3 B1 31 33 89 36 31 30 |0..+...C..13.610|
00002380: 31 30 00 88 2B 8E EE 8E 00 B4 2B 30 F2 99 22 C2 |10..+.....+0..".|
00002390: 45 45 4E 44 45 20 4A 45 44 45 20 DA 45 49 4C 45 |EENDE JEDE .EILE|
000023A0: 20 4D 49 54 20 20 5F 20 28 4C 49 4E 45 20 46 45 | MIT _ (LINE FE|
000023B0: 45 44 29 22 00 D4 2B 3A F2 99 22 C2 45 45 4E 44 |ED)"..+:..".EEND|
000023C0: 45 20 45 49 4E 45 20 D3 45 49 54 45 20 4D 49 54 |E EINE .EITE MIT|
000023D0: 20 20 5E 22 00 FF 2B 3F F2 99 22 CD 49 54 20 20 | ^"..+?..".IT |
000023E0: 5C 20 20 4B 4F 4D 4D 45 4E 20 D3 49 45 20 57 49 |\ KOMMEN .IE WI|
000023F0: 45 44 45 52 20 49 4E 53 20 CD 45 4E 55 45 22 00 |EDER INS .ENUE".|
00002400: 05 2C 44 F2 8E 00 12 2C 18 F6 8C 3A 8F 20 45 4E |.,D....,...:. EN|
00002410: 44 45 00 33 2C 22 F6 83 41 4E 46 41 4E 47 2C 31 |DE.3,"..ANFANG,1|
00002420: 39 2C 31 33 2C 31 33 2C 38 32 2C 38 35 2C 37 38 |9,13,13,82,85,78|
00002430: 2C 31 33 00 54 2C 2C F6 9C 3A 99 C7 28 31 34 32 |,13.T,,..:..(142|
00002440: 29 3A 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 |):.53280,14:.532|
00002450: 38 31 2C 36 00 61 2C 36 F6 99 22 93 1F 4E 45 57 |81,6.a,6.."..NEW|
00002460: 22 00 88 2C 40 F6 99 22 11 11 4C 4F 41 44 22 AA |"..,@.."..LOAD".|
00002470: C7 28 33 34 29 AA 22 4D 45 4E 55 45 22 AA C7 28 |.(34)."MENUE"..(|
00002480: 33 34 29 AA 22 2C 38 22 00 B3 2C 4A F6 99 22 11 |34).",8"..,J..".|
00002490: 11 11 11 11 11 11 11 11 05 20 20 20 20 20 20 20 |......... |
000024A0: 20 20 20 42 49 54 54 45 20 57 41 52 54 45 4E 20 | BITTE WARTEN |
000024B0: 21 1F 22 00 CE 2C 4F F6 87 41 24 3A 8B 41 24 B2 |!."..,O..A$:.A$.|
000024C0: 22 41 4E 46 41 4E 47 22 A7 36 33 30 36 30 00 D9 |"ANFANG".63060..|
000024D0: 2C 51 F6 89 36 33 30 35 35 00 E4 2C 54 F6 97 31 |,Q..63055..,T..1|
000024E0: 39 38 2C 37 00 FE 2C 5E F6 81 49 B2 31 A4 37 3A |98,7..,^..I.1.7:|
000024F0: 87 58 3A 97 36 33 30 AA 49 2C 58 3A 82 49 00 04 |.X:.630.I,X:.I..|
00002500: 2D 68 F6 80 00 00 00 |-h..... |
.......7,4,7:.7: 7.L....9000:. (C) 1982
BY COMMODORE BUSINESS MACHINES, INC..[..
..C$:.C$.20.X....C$:.C$.." .";:C.F(C$):.
......"..";:.25......C$:.C$."".30.N. .X.
F(C$):C.X.127:.C.13.C.17.C.19.C.20.C.29.
C.31...V."..30...(.X$.""...*..#1,C$:.C$.
R$.C$.G(141).....,.X$.X$.C$:.42.(.D.L.0:
LL.L0: 1:. ENTRY.Q.N..". . COMMODOR
E WORD MACHINE ...\.S..62000.D.T..:....X
.."OPTIONEN: .C.SCHREIBE TEXT......,".S.
SPEICHERN EINES TEXTES.K....,".R.HOLEN E
INES TEXTES(FLOPPY)......,".P.DRUCKEN DE
S TEXTES......,".E.AENDERN DES TEXTES.+.
..,".G.LOBALES SUCHEN UND ERSETZEN.G...
.,".D.BILDSCHIRMAUSGABE.L....,".F.FORMBR
IEF MIT NAME MACHINE......,".Q.BEENDE DA
S PROGRAMM.....X$."QDEGPSFRC":.".WAEHLE
";:.8060:.I.0.8700.M.C.J.I:.J.4.250...
H..".":. GET SUBJECT.".R..H$."".."TEXT:
."H$:.".(RETURN BELAESST DEN NAMEN GLEIC
H).Q...M.61:.".NAME DES TEXTES:":.8200:.
C..13.200.D....:.X$."".H$.X$.S....H$."".
200......J.7.T$(0).""..".KEIN TEXT IM SP
EICHER":.8000:.100.E....OF.0.J.7.T$(0)."
".280......".TEXT NICHT GESPEICHERT.. LO
ESCHEN ";:.8050:.I.100......J.400,100
0,6000,7000,3000,4000,2000,500.C.... REA
D TO SCREEN.M...N.39:F.0:LL.20:TB$."":.1
,3:.7080:.100.....OF.1:T.0:. WRITE NEW T
EXT.D....".."H$:.:."....................
.....................T....C$:.C$.510....
.M.M0:.I.T.V:T$(I)."":X$.""......8220:.C
.13..:.X$."".530.&...T$(I).X$:.C..92...C
.&..I.V..I.I.1.V:T$(I)."":..N.X.T.0:L$."
":.610:.100:. PACK THE STRINGS...B..:.I.
T.V:.T$(I)."".630...G.X$.T$(I):M.M0.C(L$
):L$.L$.H(X$,M)...L.X$.J(X$,M.1):.C(L$).
M0.T$(T).L$:."*";:L$.X$:T.T.1...V.......
.:T$(T).L$:.T.V..I.T.1.V:T$(I)."":......
..-.... EDIT THE TEXT.Q....".WIEVIEL % T
EXT PRO SEITE (0-100) 0...";T:T..(T):.T
.99.T.100.....OF.1:.I.0.V:.T$(I)."".....
..I.I.1:T..(T.I.100..5).....L.0:.T.V.100
.Q...X$.T$(T):.X$."".1900...$.P$.H(H$,20
):.T.P$.T$(T.1)......".."I(P$,20):.".".2
9)".BLOCK"T.H.8.."......................
.........................Y.B..C$:.C$.109
0.R.L.. & SET CURSOR (A,D)...V.."..."H(X
$,L):."...".L)" .."J(X$,L.1,1).J.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.C.D.
.C.29.L.L.(L.0):.1100:. CURSOR LEFT.U.N.
.X.17.L.L.40.(L.40.C(X$)):.1100:. CURSOR
DOWN...X..C.17.L.L.40.(L.39):.1100:. CU
RSOR UP.A....X.19.L.0:.1100:. CURSOR HOM
E......C.19..I.T.V.1:T$(I).T$(I.1):.:T$(
V)."":.1040:. CLEAR.'....X.13.T$(T).X$:T
.T.1:.1040:. NEXT BLOCK.X....C.13.T$(T).
X$:T.T.(T.0):.1040:. PRIOR BLOCK.K....L.
.C(X$).1100.....L$.H(X$,L):.X.148.1350:.
INSERT.R...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.9.F.M$.J(X$,L.1):."............
....."M$:."..."L$.W.K.."...".C(L$));:M.M
0:.8200...P.M.M0.C(L$):L$.L$.H(X$,M):M$.
J(X$,M.1).M$.C.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 TH
E END...V..T.0.600:. END.0...X$.T$(T.1):
."."X$:.".".C(X$));:.510.A.P.. INPUT FIL
E.K.U.Q9$."TEXT ": . FOR ERROR MSG IN 60
000......CF.2..".VON DATASETTE";:.8050..
....CF.2.(CF.2.I.0)..1,1,0,H$:.2100.Y...
.1,08,2,H(H$,16):.8,X,X$:.X.60000...4.OF
.0:.40:.".LESE : ."X$:H$.X$:.40:.X$:.:
. HEADER.7...X$.G(31):.I.0.V:L$."":. INP
UT FILE.Y....J.1.M0:.#1,C$:.ST.J.M0:.223
0......C$.X$.L$.L$.C$:. ONLY LEGAL CHARA
CTERS......J:T$(I).L$:.L$;:.ST.0..I:I.I.
1.A.J.T.I:.650:.8000:.100......3020:.100
:. OUTPUT FILE...L..CF.2..".AUF DATASETT
E";:.8050.&.V..CF.2.(CF.3.I.0)..1,1,1,H$
:.3100.Y...L$."0:".H(H$,16):.1,08,2,L$:.
8,X,X$: 1:.X.3080......".TEXT EXISTIERT
BEREITS - UEBERSCHREIBEN?";:.8050:.I...
.....8,"S"L$:.8,"I0......1,08,3,L$.",S,W
":.8,X,X$:.X.Q9$."SPACE":.60000.....OF.0
:.1,H$G(141)D$...N..I.0.V:.T$(I).""..1,T
$(I);:."*";:..+.X..1,"\";:..B. .. BATCH
PROCESSING.K...Q9$."FILE": . FOR ERROR M
SG IN 60000......".";:.CF.4100,4050:. EL
SE BOTH......"VON DATASETTE";:.8050:.I.
4100.H.R.. FROM CASSETTE.W....2,1:.4150.
..... FROM DISC......".NAME MACHINE FILE
NAME -...";X$:.X$."-".4110.?....2,08,2,
X$:.8,X,X$:.X. 2:.60000.X.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.U.H.. GET THE NAME A
ND SALUTATION...R..2,Z$:.ST.0.C(Z$).2.49
00:. NO LAST NAME.,.|.L$."":.7450:X$."":
Y$."":M$."GENTLEMEN:.[....2,X$:.C(X$).2.
X$."":.4250:. NO FIRST NAME.{...M$."DEAR
".X$.",":X$.X$." "......2,Y$:.C(Y$).2.Y
$."":.4270:. NO TITLE.G...Y$.Y$." ":M$."
DEAR ".Y$.Z$.",.....L$.Y$.X$.Z$:.2,X$:.C
(X$).2.L$.L$.", ".X$.....Z$.M$:M$."":P$.
L$:.7900:. PRINT NAME./.L.. GET ADDRESS.
W.V..2,L$:.C(L$).1.P$.L$:.7900:. LINE 2.
....2,L$:.C(L$).1.P$.L$:.7900:. LINE 3.
.....2,L$:.2,Y$:.C(Y$).1.L$.L$.", ".Y$:.
STATE, ZIP.L....C(L$).1.P$.L$:.7900....
..I.L.14:.7900:.:L$.Z$:P$.L$:.7090:.4200
...$. 2:.100...P.. SEARCH AND REPLACE.Y.
Z.."..SUCHE NACH?":M.40:.8200:Z$.X$:L.C(
X$):.L.0.L.M.6010......:.".TAUSCHE MIT ?
":.8200:Y$.X$:.:......X$."":M$."":L$."":
T.0:U.0:F.0:OF.1...8.. ATTACH T$ TO X$.Q
.B..C(X$)..L.6250.Y.H..:....L..T.V.6400:
. ALL T$'S READ...V.X$.X$.T$(T):T$(T).""
:T.T.1:.6200.3.J.. SEARCH FOR MATCH.A.T.
.I.1.C(X$).L.1:.J(X$,I,L)..Z$..:J.I:.630
0.W.~.M$.Y$:J.I.L:.".";...... SPLIT STRI
NGS.....M$.H(X$,I.1).M$:X$.J(X$,J):.6500
:.F.6900:.6200.Q.... STOW LAST L$......6
500:.F.6900:. CLEAR M$.....M$.X$:.6500:.
F.6900:. M$_X$; CLEAR BOTH.Q....U..V.T.U
:.650:.100:. STOW L$, CLEAR HIGHER BLOCK
S.[.(..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...C.X..U..V.6550.....
.U.T.T$(U).L$:."*.";:U.U.1:L$.M$:M$."":.
.*....T.V..I.V.T.1..1:T$(I).T$(I.1):.:T$
(T)."":T.T.1:.6530.4...F.1:..E.... ERROR
EXIT.X....:.".KEIN PLATZ - DATEN VERMIN
DERN":.8000:.100...X.. FORMAT AND PRINT.
..B..7020:.100...L..1,04:F.1:. PRINTER..
.V.S2.1:N.60:TB$."":X$."FID":. DEFAULTS
(DRAFT)......"..F.ORMBRIEF,.I.NFORMAT, O
R .D.RAFT";:.8060:J.I.6....J.2.S2.0:N.72
:.7500.]...S$.H(B$,40.N.2):.J.0.7400:. F
ORMAL.....L$.".".H$:P$.H$:M$.H(K$,C(H$))
.....J.0:.".":.7900:.7900:.J...H...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$."\./.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.T....:.I.C(L$).J.1..1:.J(L$,I,1)
." "..:I.J:.J.0.7990.. ..J.0:X$.J(X$,I.1
):L$.H(L$,I.1):P$.H(P$,I.K):M$.H(M$,I.K)
.1 ...C.94.C.95.E.0:X$."]".TB$.X$.` .X.
C:.7900:.J.0.X.94.X.92..7950:.J.0.X.92..
.J *..7110.W ... FORMAL.. ..L$."":.7450:
.".VIER ADRESSZEILEN ":M.N:.I.1.4.. ..."
ZEILE"I:.8200:.:.C(X$).M..".ZU LANG ":.7
420.. ..P$.X$:.7900:.:.7900:.7900..!..."
BEGRUESSUNG":.8200:P$.X$:.7090.O!...:M$.
"":Y$.S$:.I.1.3:.P$:.7490:.:P$.D$:.7490.
J!...I.1.5:.7900:.:S$.Y$:...!B.K.C(P$):S
$.".".H(B$,40.K.2):.7900..!L.. FORMAT VA
RIATIONS.S!V..".STANDARD FORMAT:":.," EI
NZELABSTAND.."`..,N"BUCHSTABEN PRO ZEILE
":.,LL"ZEILEN PRO SEITE.&"J..,"LAENGE DE
S TABS="C(TB$).T"T..".WOLLEN SIE ES AUSW
ECHSELN";:.8050:.I...V"~..".EINZELABSTAN
D";:.8050:S2.I.."...".BUCHSTABEN PRO ZEI
LE(20-80) 72 .....";N.A"...N.20.N.80.."
..":.7560.."...".ZEILEN PRO SEITE"LL".
......";:.LL:.LL.1.."..":.7580.9#...".LA
ENGE DES TABS";:X$."0123456789":.8060:TB
$.H(B$,I).?#....Q#... ENHANCEMENT..#(.K.
K.1:X.1:J.I:.C.91.C.93.X.0:E.(C.91):Z$.B
$:Y$.".":.E.Z$.K$:Y$."...#2.L$.H(L$,I.1)
.Y$.J(L$,I.1)..#F.P$.H(P$,I.K).J(L$,I.1)
:M$.H(M$,I.K).J(Z$,I.1):...#... LINE OUT
..$...P$."".P$.S$.P$.'$...L$;:.7930:.J.0
.S2.0...I$...F..:.1,P$;:.M$.B$..1,Q$S$M$
;.P$...1:P$."":L$."":M$."":L.L.1:.L.LL..
..$...F.0..8000:L.0:...$...L..I.L.LP.1:.
1:.:L.0:. PAGE WITH BLANKS..$"..".":...$
6.J.1:.".LINE TOO LONG TO PRINT":.7950:.
..$@.. UTILITIES.&%J..".. DRUECKE EINE T
ASTE ";:.20:.:.".":..1%R.X$."YN.<%|.."
? ";.F%...20:.I.1.C(X$):.C$..J(X$,I,1)..
:.8070.U%..I.I.1:.C$;..%...W$:.W$.""..".
.";:.8080..%..." .";:.W$.R$..:...%...W$.
G(20)..W$;:.8070.J%...8080..%. X$."":. I
NPUT A STRING..%. .C$:.C$.8210..&. .25:.
C.13.C.92.8290.=&& .C.20.X$.""..C$;:X$.H
(X$,C(X$).1):. DELETE.]&0 .C.20.8220:. D
ELETE ON NULL..&: .(127.C).32.8220:. CUR
SOR CONTROL CHARACTERS..&D .C$;:.C.34..C
$G(20);.B&N X$.X$.C$:.C(X$).M.8220.H&B .
..&.!. QUIT THE PROGRAM..'."."..WOLLEN S
IE EINEN AUSDRUCK ";:.8050:.I.8740.='
.".1,04:F.1:L..1:.7950:. EXPEL A PAGE.U'
$".OF.0.T$(0)."".8760..'.".".TEXTE WURDE
N NICHT GESPEICHERT";:.8050:.I.0. 1:.302
0..'8" 1:.".SERVUS !":.63000.T'D".1,04:F
.1:L..1:.7950:. EXPEL A PAGE..'(#. INITI
ALIZE..(-#LP.66:L0.60:M0.160:Q$.G(141):R
$.G(13):K$."..4(2#V..((.(0).2000).M0):.T
$(V).U(<#.".............................
.".39)"..":.59468,14:. FORMAT..(A#.53272
,2.B(53272):.". . COMMODORE WORD MAC
HINE ..I(C#.61000: . COLOR CHANGE..)F#."
..T.APE, .D.ISC,ODER .B.EIDE";:X$."DTB":
.8060:CF.I.1..)P#B$." ":.I.1.5:B$.B$
.B$:.:.8,08,15.W)U#.".HEUTIGES DATUM?":M
.20:.8200:D$.X$.Q)Z#K$." ":. 1525 PRINTE
R..)D#. K$="_":Q$=R$+CHR$(27)+".":REM 83
00 PRINTER..)X#.I.1.7:K$.K$.K$:.:.100.F)
.#.100..).'. LETTERHEAD DATA, DELETED..)
.'.""..)$'.""..).'."".!*`..Q9$"NICHT GEF
UNDEN":.8000:.100.<*H.. COLOR CHANGE ROU
TINE.`*I...C(X).B(X).1.16.((B(X).15).15)
.*J.."....WAEHLE DEINE FARBEN"..*K.."..
.F1.=RAHMENFARBE .F3.=HINTERGRUNDF
ARBE"..*M.."..F5.=BUCHSTABENFARBE .RET
URN.=WEITER..."..*R..C$:.C$.61010..+\..C
$:.C$."".61020.5+F.C.F(C$):.C.135..646,.
C(646):.61002.A+Z.C.F(C$):.C.133.C.134.X
.53147.C:.X,.C(X).Q+..C.95.61070..+...C
..13.61010..+.....+0.."BEENDE JEDE ZEILE
MIT _ (LINE FEED)".T+:.."BEENDE EINE S
EITE MIT ^"..+?.."MIT \ KOMMEN SIE WI
EDER INS MENUE"..,D....,...:. ENDE.3,"..
ANFANG,19,13,13,82,85,78,13.T,,..:.G(142
):.53280,14:.53281,6.A,6.."..NEW"..,@.."
..LOAD".G(34)."MENUE".G(34).",8"..,J..".
......... BITTE WARTEN !.".N,O.
.A$:.A$."ANFANG".63060.Y,Q..63055..,T..1
98,7..,^..I.1.7:.X:.630.I,X:.I..-H.....
> CLICK IMAGE PREVIEW FOR FULL MODAL