Multiple names: TEKST 64, TEXT 64, TEXT EDITOR, TEXT64

00000000: 01 08 1D 08 05 00 99 C7  28 31 34 29 3A 97 36 35  |........(14):.65|
00000010: 37 2C 31 32 38 3A 97 37  38 38 2C 35 32 00 57 08  |7,128:.788,52.W.|
00000020: 0A 00 89 39 30 30 30 3A  8F 20 28 43 29 20 31 39  |...9000:. (C) 19|
00000030: 38 32 20 42 59 20 43 4F  4D 4D 4F 44 4F 52 45 20  |82 BY COMMODORE |
00000040: 42 55 53 49 4E 45 53 53  20 4D 41 43 48 49 4E 45  |BUSINESS MACHINE|
00000050: 53 2C 20 49 4E 43 2E 00  66 08 14 00 A1 43 24 3A  |S, INC..f....C$:|
00000060: 8B 43 24 89 32 30 00 83  08 19 00 A1 43 24 3A 8B  |.C$.20......C$:.|
00000070: 43 24 A7 99 22 20 9D 22  3B 3A 43 B2 C6 28 43 24  |C$.." .";:C..(C$|
00000080: 29 3A 8E 00 92 08 1B 00  99 22 A4 9D 22 3B 3A 89  |):......."..";:.|
00000090: 32 35 00 A4 08 1E 00 A1  43 24 3A 8B 43 24 B2 22  |25......C$:.C$."|
000000A0: 22 89 33 30 00 D9 08 20  00 58 B2 C6 28 43 24 29  |".30... .X..(C$)|
000000B0: 3A 43 B2 58 AF 31 32 37  3A 8B 43 B2 31 33 B0 43  |:C.X.127:.C.13.C|
000000C0: B2 31 37 B0 43 B2 31 39  B0 43 B2 32 30 B0 43 B2  |.17.C.19.C.20.C.|
000000D0: 32 39 B0 43 B1 33 31 A7  8E 00 E1 08 22 00 89 33  |29.C.31....."..3|
000000E0: 30 00 EB 08 28 00 58 24  B2 22 22 00 09 09 2A 00  |0...(.X$.""...*.|
000000F0: A1 23 31 2C 43 24 3A 8B  43 24 B2 52 24 B0 43 24  |.#1,C$:.C$.R$.C$|
00000100: B2 C7 28 31 34 31 29 A7  8E 00 1A 09 2C 00 58 24  |..(141).....,.X$|
00000110: B2 58 24 AA 43 24 3A 89  34 32 00 33 09 64 00 4C  |.X$.C$:.42.3.d.L|
00000120: B2 30 3A 4C 4C B2 4C 30  3A A0 31 3A 8F 20 45 4E  |.0:LL.L0:.1:. EN|
00000130: 54 52 59 00 5C 09 6E 00  99 22 93 20 20 20 20 20  |TRY.\.n..".     |
00000140: 20 12 20 C3 4F 4D 4D 4F  44 4F 52 45 20 D4 C5 D8  | . .OMMODORE ...|
00000150: D4 20 36 34 20 20 20 20  20 20 11 11 00 72 09 78  |. 64      ...r.x|
00000160: 00 99 2C 22 C6 55 4E 4B  54 49 4F 4E 45 4E 3A 11  |..,".UNKTIONEN:.|
00000170: 11 22 00 96 09 7D 00 99  2C 22 12 C5 92 52 53 54  |."...}..,"...RST|
00000180: 45 4C 4C 45 4E 20 45 49  4E 45 53 20 C4 4F 4B 55  |ELLEN EINES .OKU|
00000190: 4D 45 4E 54 45 53 00 BA  09 82 00 99 2C 22 12 D3  |MENTES......,"..|
000001A0: 92 50 45 49 43 48 45 52  4E 20 45 49 4E 45 53 20  |.PEICHERN EINES |
000001B0: C4 4F 4B 55 4D 45 4E 54  45 53 00 DD 09 87 00 99  |.OKUMENTES......|
000001C0: 2C 22 12 C1 92 55 46 52  55 46 45 4E 20 45 49 4E  |,"...UFRUFEN EIN|
000001D0: 45 53 20 C4 4F 4B 55 4D  45 4E 54 45 53 00 FF 09  |ES .OKUMENTES...|
000001E0: 8C 00 99 2C 22 12 C4 92  52 55 43 4B 45 4E 20 45  |...,"...RUCKEN E|
000001F0: 49 4E 45 53 20 C4 4F 4B  55 4D 45 4E 54 45 53 00  |INES .OKUMENTES.|
00000200: 24 0A 96 00 99 2C 22 12  D6 92 45 52 41 45 4E 44  |$....,"...ERAEND|
00000210: 45 52 4E 20 45 49 4E 45  53 20 C4 4F 4B 55 4D 45  |ERN EINES .OKUME|
00000220: 4E 54 45 53 00 4A 0A A0  00 99 2C 22 12 C7 92 4C  |NTES.J....,"...L|
00000230: 4F 42 41 4C 45 53 20 D3  55 43 48 45 4E 20 55 4E  |OBALES .UCHEN UN|
00000240: 44 20 D4 41 55 53 43 48  45 4E 00 6F 0A A5 00 99  |D .AUSCHEN.o....|
00000250: 2C 22 12 C2 92 D3 2D C1  4E 5A 45 49 47 45 20 45  |,"....-.NZEIGE E|
00000260: 49 4E 45 53 20 C4 4F 4B  55 4D 45 4E 54 45 53 00  |INES .OKUMENTES.|
00000270: 90 0A AA 00 99 2C 22 12  D2 92 55 4E 44 53 43 48  |.....,"...UNDSCH|
00000280: 52 45 49 42 45 4E 20 C5  52 53 54 45 4C 4C 45 4E  |REIBEN .RSTELLEN|
00000290: 00 A6 0A B9 00 99 2C 22  12 D0 92 52 4F 47 52 41  |......,"...ROGRA|
000002A0: 4D 4D 45 4E 44 45 00 D8  0A BE 00 58 24 B2 22 50  |MMENDE.....X$."P|
000002B0: 42 56 47 44 53 52 41 45  22 3A 99 22 11 D7 45 4C  |BVGDSRAE":."..EL|
000002C0: 43 48 45 20 20 20 22 3B  3A 8D 38 30 36 30 3A 8B  |CHE   ";:.8060:.|
000002D0: 49 B2 30 89 38 37 30 30  00 E9 0A C3 00 4A B2 49  |I.0.8700.....J.I|
000002E0: 3A 8B 4A B3 34 89 32 35  30 00 00 0B C8 00 99 22  |:.J.4.250......"|
000002F0: 93 22 3A 8F 20 47 45 54  20 53 55 42 4A 45 43 54  |.":. GET SUBJECT|
00000300: 00 46 0B D2 00 8B 48 24  B1 22 22 A7 99 22 C4 4F  |.F....H$.""..".O|
00000310: 4B 55 4D 45 4E 54 3A 20  12 22 48 24 3A 99 22 11  |KUMENT: ."H$:.".|
00000320: 28 D2 C5 D4 D5 D2 CE 20  4C 41 45 53 53 54 20 44  |(...... LAESST D|
00000330: 45 4E 20 CE 41 4D 45 4E  20 55 4E 56 45 52 41 45  |EN .AMEN UNVERAE|
00000340: 4E 44 45 52 54 29 00 73  0B DC 00 4D B2 36 31 3A  |NDERT).s...M.61:|
00000350: 99 22 11 C4 4F 4B 55 4D  45 4E 54 2D CE 41 4D 45  |."..OKUMENT-.AME|
00000360: 3A 22 3A 8D 38 32 30 30  3A 8B 43 B3 B1 31 33 89  |:":.8200:.C..13.|
00000370: 32 30 30 00 86 0B E6 00  99 3A 8B 58 24 B1 22 22  |200......:.X$.""|
00000380: A7 48 24 B2 58 24 00 95  0B F0 00 8B 48 24 B2 22  |.H$.X$......H$."|
00000390: 22 89 32 30 30 00 D0 0B  FA 00 8B 4A B3 37 AF 54  |".200......J.7.T|
000003A0: 24 28 30 29 B2 22 22 A7  99 22 11 CB 45 49 4E 20  |$(0)."".."..EIN |
000003B0: C4 4F 4B 55 4D 45 4E 54  20 49 4D 20 D3 50 45 49  |.OKUMENT IM .PEI|
000003C0: 43 48 45 52 22 3A 8D 38  30 30 30 3A 89 31 30 30  |CHER":.8000:.100|
000003D0: 00 EB 0B 04 01 8B 4F 46  B2 30 B0 4A B3 37 B0 54  |......OF.0.J.7.T|
000003E0: 24 28 30 29 B2 22 22 89  32 38 30 00 32 0C 0E 01  |$(0)."".280.2...|
000003F0: 99 22 11 C4 4F 4B 55 4D  45 4E 54 20 4E 49 43 48  |."..OKUMENT NICH|
00000400: 54 20 47 45 53 50 45 49  43 48 45 52 54 20 2E 2E  |T GESPEICHERT ..|
00000410: 2E 20 D3 50 45 49 43 48  45 52 20 4C 4F 45 53 43  |. .PEICHER LOESC|
00000420: 48 45 4E 22 3B 3A 8D 38  30 35 30 3A 8B 49 89 31  |HEN";:.8050:.I.1|
00000430: 30 30 00 5F 0C 18 01 91  4A 89 34 30 30 2C 31 30  |00._....J.400,10|
00000440: 30 30 2C 36 30 30 30 2C  37 30 30 30 2C 33 30 30  |00,6000,7000,300|
00000450: 30 2C 34 30 30 30 2C 32  30 30 30 2C 35 30 30 00  |0,4000,2000,500.|
00000460: 74 0C 90 01 8F 20 52 45  41 44 20 54 4F 20 53 43  |t.... READ TO SC|
00000470: 52 45 45 4E 00 9E 0C 9A  01 4E B2 33 39 3A 46 B2  |REEN.....N.39:F.|
00000480: 30 3A 4C 4C B2 32 30 3A  54 42 24 B2 22 22 3A 9F  |0:LL.20:TB$."":.|
00000490: 31 2C 33 3A 8D 37 30 38  30 3A 89 31 30 30 00 BC  |1,3:.7080:.100..|
000004A0: 0C F4 01 4F 46 B2 31 3A  54 B2 30 3A 8F 20 57 52  |...OF.1:T.0:. WR|
000004B0: 49 54 45 20 4E 45 57 20  54 45 58 54 00 F5 0C F9  |ITE NEW TEXT....|
000004C0: 01 99 22 93 12 22 48 24  3A 99 3A 99 22 A4 A4 A4  |..".."H$:.:."...|
000004D0: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
000004E0: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
000004F0: A4 A4 A4 A4 A4 00 05 0D  FE 01 A1 43 24 3A 8B 43  |...........C$:.C|
00000500: 24 89 35 31 30 00 24 0D  08 02 4D B2 4D 30 3A 81  |$.510.$...M.M0:.|
00000510: 49 B2 54 A4 56 3A 54 24  28 49 29 B2 22 22 3A 58  |I.T.V:T$(I)."":X|
00000520: 24 B2 22 22 00 41 0D 12  02 8D 38 32 32 30 3A 8B  |$."".A....8220:.|
00000530: 43 B2 31 33 A7 99 3A 8B  58 24 B2 22 22 89 35 33  |C.13..:.X$."".53|
00000540: 30 00 57 0D 1C 02 54 24  28 49 29 B2 58 24 3A 8B  |0.W...T$(I).X$:.|
00000550: 43 B3 B1 39 32 A7 82 00  74 0D 26 02 8B 49 B3 56  |C..92...t.&..I.V|
00000560: A7 81 49 B2 49 AA 31 A4  56 3A 54 24 28 49 29 B2  |..I.I.1.V:T$(I).|
00000570: 22 22 3A 82 00 9F 0D 58  02 54 B2 30 3A 4C 24 B2  |"":....X.T.0:L$.|
00000580: 22 22 3A 8D 36 31 30 3A  89 31 30 30 3A 8F 20 50  |"":.610:.100:. P|
00000590: 41 43 4B 20 54 48 45 20  53 54 52 49 4E 47 53 00  |ACK THE STRINGS.|
000005A0: BA 0D 62 02 99 3A 81 49  B2 54 A4 56 3A 8B 54 24  |..b..:.I.T.V:.T$|
000005B0: 28 49 29 B2 22 22 89 36  33 30 00 E0 0D 67 02 58  |(I)."".630...g.X|
000005C0: 24 B2 54 24 28 49 29 3A  4D B2 4D 30 AB C3 28 4C  |$.T$(I):M.M0..(L|
000005D0: 24 29 3A 4C 24 B2 4C 24  AA C8 28 58 24 2C 4D 29  |$):L$.L$..(X$,M)|
000005E0: 00 16 0E 6C 02 58 24 B2  CA 28 58 24 2C 4D AA 31  |...l.X$..(X$,M.1|
000005F0: 29 3A 8B C3 28 4C 24 29  B2 4D 30 A7 54 24 28 54  |):..(L$).M0.T$(T|
00000600: 29 B2 4C 24 3A 99 22 2A  22 3B 3A 4C 24 B2 58 24  |).L$:."*";:L$.X$|
00000610: 3A 54 B2 54 AA 31 00 1C  0E 76 02 82 00 44 0E 8A  |:T.T.1...v...D..|
00000620: 02 99 3A 54 24 28 54 29  B2 4C 24 3A 8B 54 B3 56  |..:T$(T).L$:.T.V|
00000630: A7 81 49 B2 54 AA 31 A4  56 3A 54 24 28 49 29 B2  |..I.T.1.V:T$(I).|
00000640: 22 22 3A 82 00 4A 0E 94  02 8E 00 5E 0E E8 03 8F  |"":..J.....^....|
00000650: 20 45 44 49 54 20 54 48  45 20 54 45 58 54 00 A6  | EDIT THE TEXT..|
00000660: 0E F2 03 85 22 93 D7 49  45 56 49 45 4C 20 25 20  |...."..IEVIEL % |
00000670: D4 45 58 54 20 55 45 42  45 52 53 50 52 49 4E 47  |.EXT UEBERSPRING|
00000680: 45 4E 20 28 30 2D 31 30  30 29 20 20 30 9D 9D 9D  |EN (0-100)  0...|
00000690: 22 3B 54 3A 54 B2 B6 28  54 29 3A 8B 54 B1 39 39  |";T:T..(T):.T.99|
000006A0: A7 54 B2 31 30 30 00 C2  0E FC 03 4F 46 B2 31 3A  |.T.100.....OF.1:|
000006B0: 81 49 B2 30 A4 56 3A 8B  54 24 28 49 29 B1 22 22  |.I.0.V:.T$(I).""|
000006C0: A7 82 00 DC 0E 06 04 49  B2 49 AB 31 3A 54 B2 B5  |.......I.I.1:T..|
000006D0: 28 54 AC 49 AD 31 30 30  AA 2E 35 29 00 ED 0E 10  |(T.I.100..5)....|
000006E0: 04 4C B2 30 3A 8B 54 B1  56 89 31 30 30 00 06 0F  |.L.0:.T.V.100...|
000006F0: 1A 04 58 24 B2 54 24 28  54 29 3A 8B 58 24 B2 22  |..X$.T$(T):.X$."|
00000700: 22 89 31 39 30 30 00 24  0F 24 04 50 24 B2 C8 28  |".1900.$.$.P$..(|
00000710: 48 24 2C 32 30 29 3A 8B  54 A7 50 24 B2 54 24 28  |H$,20):.T.P$.T$(|
00000720: 54 AB 31 29 00 48 0F 2E  04 99 22 93 12 22 C9 28  |T.1).H...."..".(|
00000730: 50 24 2C 32 30 29 3A 99  22 13 22 A6 32 39 29 22  |P$,20):.".".29)"|
00000740: 92 C2 4C 4F 43 4B 22 54  00 7D 0F 38 04 99 22 11  |..LOCK"T.}.8..".|
00000750: 11 11 11 11 11 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
00000760: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
00000770: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 00 8E 0F  |................|
00000780: 42 04 A1 43 24 3A 8B 43  24 89 31 30 39 30 00 A7  |B..C$:.C$.1090..|
00000790: 0F 4C 04 8F 20 26 20 53  45 54 20 43 55 52 53 4F  |.L.. & SET CURSO|
000007A0: 52 20 28 41 2C 44 29 00  D3 0F 56 04 99 22 13 11  |R (A,D)...V.."..|
000007B0: 11 22 C8 28 58 24 2C 4C  29 3A 99 22 13 11 11 22  |.".(X$,L):."..."|
000007C0: A6 4C 29 22 20 9D 12 22  CA 28 58 24 2C 4C AA 31  |.L)" ..".(X$,L.1|
000007D0: 2C 31 29 00 FF 0F 6A 04  99 22 13 11 11 22 A6 4C  |,1)...j.."...".L|
000007E0: AA 31 29 CA 28 58 24 2C  4C AA 32 29 C8 28 42 24  |.1).(X$,L.2).(B$|
000007F0: 2C 4D 30 AB C3 28 58 24  29 29 3A 99 22 11 11 00  |,M0..(X$)):."...|
00000800: 21 10 B0 04 8D 33 30 3A  8B 58 B2 39 32 A7 54 24  |!....30:.X.92.T$|
00000810: 28 54 29 B2 58 24 3A 89  36 30 30 3A 8F 20 45 4E  |(T).X$:.600:. EN|
00000820: 44 00 50 10 BA 04 8B 58  B2 32 39 A7 4C B2 4C AB  |D.P....X.29.L.L.|
00000830: 28 4C AA 31 B3 C3 28 58  24 29 29 3A 89 31 31 30  |(L.1..(X$)):.110|
00000840: 30 3A 8F 20 43 55 52 53  4F 52 20 52 49 47 48 54  |0:. CURSOR RIGHT|
00000850: 00 78 10 C4 04 8B 43 B2  32 39 A7 4C B2 4C AA 28  |.x....C.29.L.L.(|
00000860: 4C B1 30 29 3A 89 31 31  30 30 3A 8F 20 43 55 52  |L.0):.1100:. CUR|
00000870: 53 4F 52 20 4C 45 46 54  00 AA 10 CE 04 8B 58 B2  |SOR LEFT......X.|
00000880: 31 37 A7 4C B2 4C AB 34  30 AC 28 4C AA 34 30 B3  |17.L.L.40.(L.40.|
00000890: C3 28 58 24 29 29 3A 89  31 31 30 30 3A 8F 20 43  |.(X$)):.1100:. C|
000008A0: 55 52 53 4F 52 20 44 4F  57 4E 00 D4 10 D8 04 8B  |URSOR DOWN......|
000008B0: 43 B2 31 37 A7 4C B2 4C  AA 34 30 AC 28 4C B1 33  |C.17.L.L.40.(L.3|
000008C0: 39 29 3A 89 31 31 30 30  3A 8F 20 43 55 52 53 4F  |9):.1100:. CURSO|
000008D0: 52 20 55 50 00 F6 10 E2  04 8B 58 B2 31 39 A7 4C  |R UP......X.19.L|
000008E0: B2 30 3A 89 31 31 30 30  3A 8F 20 43 55 52 53 4F  |.0:.1100:. CURSO|
000008F0: 52 20 48 4F 4D 45 00 30  11 EC 04 8B 43 B2 31 39  |R HOME.0....C.19|
00000900: A7 81 49 B2 54 A4 56 AB  31 3A 54 24 28 49 29 B2  |..I.T.V.1:T$(I).|
00000910: 54 24 28 49 AA 31 29 3A  82 3A 54 24 28 56 29 B2  |T$(I.1):.:T$(V).|
00000920: 22 22 3A 89 31 30 34 30  3A 8F 20 43 4C 45 41 52  |"":.1040:. CLEAR|
00000930: 00 5C 11 F6 04 8B 58 B2  31 33 A7 54 24 28 54 29  |.\....X.13.T$(T)|
00000940: B2 58 24 3A 54 B2 54 AA  31 3A 89 31 30 34 30 3A  |.X$:T.T.1:.1040:|
00000950: 8F 20 4E 45 58 54 20 42  4C 4F 43 4B 00 8D 11 00  |. NEXT BLOCK....|
00000960: 05 8B 43 B2 31 33 A7 54  24 28 54 29 B2 58 24 3A  |..C.13.T$(T).X$:|
00000970: 54 B2 54 AA 28 54 B1 30  29 3A 89 31 30 34 30 3A  |T.T.(T.0):.1040:|
00000980: 8F 20 50 52 49 4F 52 20  42 4C 4F 43 4B 00 A0 11  |. PRIOR BLOCK...|
00000990: 0A 05 8B 4C B1 B2 C3 28  58 24 29 89 31 31 30 30  |...L...(X$).1100|
000009A0: 00 C4 11 14 05 4C 24 B2  C8 28 58 24 2C 4C 29 3A  |.....L$..(X$,L):|
000009B0: 8B 58 B2 31 34 38 89 31  33 35 30 3A 8F 20 49 4E  |.X.148.1350:. IN|
000009C0: 53 45 52 54 00 07 12 1E  05 4D 24 B2 CA 28 58 24  |SERT.....M$..(X$|
000009D0: 2C 4C AA 32 29 3A 8B 43  B3 B1 32 30 A7 58 24 B2  |,L.2):.C..20.X$.|
000009E0: 4C 24 AA 43 24 AA 4D 24  3A 58 B2 32 39 3A 89 31  |L$.C$.M$:X.29:.1|
000009F0: 32 31 30 3A 8F 20 52 45  50 4C 41 43 45 20 43 48  |210:. REPLACE CH|
00000A00: 41 52 41 43 54 45 52 00  33 12 32 05 58 24 B2 4C  |ARACTER.3.2.X$.L|
00000A10: 24 AA 4D 24 3A 8B 58 24  B2 22 22 A7 43 B2 31 39  |$.M$:.X$."".C.19|
00000A20: 3A 89 31 32 36 30 3A 8F  20 4E 55 4C 4C 20 42 4C  |:.1260:. NULL BL|
00000A30: 4F 43 4B 00 3D 12 3C 05  89 31 31 30 30 00 6E 12  |OCK.=.<..1100.n.|
00000A40: 46 05 4D 24 B2 CA 28 58  24 2C 4C AA 31 29 3A 99  |F.M$..(X$,L.1):.|
00000A50: 22 93 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
00000A60: 11 12 22 4D 24 3A 99 22  13 11 11 22 4C 24 00 8C  |.."M$:."..."L$..|
00000A70: 12 4B 05 99 22 13 11 11  22 A3 C3 28 4C 24 29 29  |.K.."..."..(L$))|
00000A80: 3B 3A 4D B2 4D 30 3A 8D  38 32 30 30 00 B9 12 50  |;:M.M0:.8200...P|
00000A90: 05 4D B2 4D 30 AB C3 28  4C 24 29 3A 4C 24 B2 4C  |.M.M0..(L$):L$.L|
00000AA0: 24 AA C8 28 58 24 2C 4D  29 3A 4D 24 B2 CA 28 58  |$..(X$,M):M$..(X|
00000AB0: 24 2C 4D AA 31 29 AA 4D  24 00 F8 12 5A 05 4D B2  |$,M.1).M$...Z.M.|
00000AC0: 4D 30 AB C3 28 4C 24 29  3A 54 24 28 54 29 B2 4C  |M0..(L$):T$(T).L|
00000AD0: 24 AA C8 28 4D 24 2C 4D  29 3A 4C 24 B2 CA 28 4D  |$..(M$,M):L$..(M|
00000AE0: 24 2C 4D AA 31 29 3A 4D  24 B2 22 22 3A 8B 4C 24  |$,M.1):M$."":.L$|
00000AF0: B2 22 22 89 31 30 35 30  00 15 13 64 05 58 B2 54  |."".1050...d.X.T|
00000B00: 3A 54 B2 54 AA 31 3A 8D  36 31 30 3A 54 B2 58 3A  |:T.T.1:.610:T.X:|
00000B10: 89 31 30 35 30 00 2A 13  6C 07 8F 20 41 44 44 20  |.1050.*.l.. ADD |
00000B20: 54 4F 20 54 48 45 20 45  4E 44 00 3D 13 76 07 8B  |TO THE END.=.v..|
00000B30: 54 B2 30 89 36 30 30 3A  8F 20 45 4E 44 00 65 13  |T.0.600:. END.e.|
00000B40: 80 07 58 24 B2 54 24 28  54 AB 31 29 3A 99 22 93  |..X$.T$(T.1):.".|
00000B50: 22 58 24 3A 99 22 13 22  A6 C3 28 58 24 29 29 3B  |"X$:."."..(X$));|
00000B60: 3A 89 35 31 30 00 76 13  D0 07 8F 20 49 4E 50 55  |:.510.v.... INPU|
00000B70: 54 20 46 49 4C 45 00 A3  13 D5 07 51 39 24 B2 22  |T FILE.....Q9$."|
00000B80: C4 4F 4B 55 4D 45 4E 54  22 3A 20 8F 20 46 4F 52  |.OKUMENT": . FOR|
00000B90: 20 45 52 52 4F 52 20 4D  53 47 20 49 4E 20 36 30  | ERROR MSG IN 60|
00000BA0: 30 30 30 00 CA 13 EE 07  8B 43 46 B1 32 A7 99 22  |000......CF.2.."|
00000BB0: 11 D6 4F 4E 20 44 45 52  20 C4 41 54 41 53 45 54  |..ON DER .ATASET|
00000BC0: 54 45 22 3B 3A 8D 38 30  35 30 00 EF 13 F8 07 8B  |TE";:.8050......|
00000BD0: 43 46 B2 32 B0 28 43 46  B1 32 AF 49 B2 30 29 A7  |CF.2.(CF.2.I.0).|
00000BE0: 9F 31 2C 31 2C 30 2C 48  24 3A 89 32 31 30 30 00  |.1,1,0,H$:.2100.|
00000BF0: 15 14 02 08 9F 31 2C 30  38 2C 32 2C C8 28 48 24  |.....1,08,2,.(H$|
00000C00: 2C 31 36 29 3A 84 38 2C  58 2C 58 24 3A 8B 58 89  |,16):.8,X,X$:.X.|
00000C10: 36 30 30 30 30 00 4C 14  34 08 4F 46 B2 30 3A 8D  |60000.L.4.OF.0:.|
00000C20: 34 30 3A 99 22 11 CC 49  45 53 54 20 20 3A 20 12  |40:."..IEST  : .|
00000C30: 22 58 24 3A 48 24 B2 58  24 3A 8D 34 30 3A 99 58  |"X$:H$.X$:.40:.X|
00000C40: 24 3A 99 3A 8F 20 48 45  41 44 45 52 00 73 14 98  |$:.:. HEADER.s..|
00000C50: 08 58 24 B2 C7 28 33 31  29 3A 81 49 B2 30 A4 56  |.X$..(31):.I.0.V|
00000C60: 3A 4C 24 B2 22 22 3A 8F  20 49 4E 50 55 54 20 46  |:L$."":. INPUT F|
00000C70: 49 4C 45 00 95 14 A2 08  81 4A B2 31 A4 4D 30 3A  |ILE......J.1.M0:|
00000C80: A1 23 31 2C 43 24 3A 8B  53 54 A7 4A B2 4D 30 3A  |.#1,C$:.ST.J.M0:|
00000C90: 89 32 32 33 30 00 C1 14  AC 08 8B 43 24 B1 58 24  |.2230......C$.X$|
00000CA0: A7 4C 24 B2 4C 24 AA 43  24 3A 8F 20 4F 4E 4C 59  |.L$.L$.C$:. ONLY|
00000CB0: 20 4C 45 47 41 4C 20 43  48 41 52 41 43 54 45 52  | LEGAL CHARACTER|
00000CC0: 53 00 E5 14 B6 08 82 4A  3A 54 24 28 49 29 B2 4C  |S......J:T$(I).L|
00000CD0: 24 3A 99 4C 24 3B 3A 8B  53 54 B2 30 A7 82 49 3A  |$:.L$;:.ST.0..I:|
00000CE0: 49 B2 49 AB 31 00 FD 14  CA 08 54 B2 49 3A 8D 36  |I.I.1.....T.I:.6|
00000CF0: 35 30 3A 8D 38 30 30 30  3A 89 31 30 30 00 1A 15  |50:.8000:.100...|
00000D00: B8 0B 8D 33 30 32 30 3A  89 31 30 30 3A 8F 20 4F  |...3020:.100:. O|
00000D10: 55 54 50 55 54 20 46 49  4C 45 00 3D 15 CC 0B 8B  |UTPUT FILE.=....|
00000D20: 43 46 B1 32 A7 99 22 93  C1 55 46 20 C4 41 54 41  |CF.2.."..UF .ATA|
00000D30: 53 45 54 54 45 22 3B 3A  8D 38 30 35 30 00 62 15  |SETTE";:.8050.b.|
00000D40: D6 0B 8B 43 46 B2 32 B0  28 43 46 B2 33 AF 49 B2  |...CF.2.(CF.3.I.|
00000D50: 30 29 A7 9F 31 2C 31 2C  31 2C 48 24 3A 89 33 31  |0)..1,1,1,H$:.31|
00000D60: 30 30 00 95 15 E0 0B 4C  24 B2 22 30 3A 22 AA C8  |00.....L$."0:"..|
00000D70: 28 48 24 2C 31 36 29 3A  9F 31 2C 30 38 2C 32 2C  |(H$,16):.1,08,2,|
00000D80: 4C 24 3A 84 38 2C 58 2C  58 24 3A A0 31 3A 8B 58  |L$:.8,X,X$:.1:.X|
00000D90: 89 33 30 38 30 00 CF 15  EA 0B 99 22 11 C4 4F 4B  |.3080......"..OK|
00000DA0: 55 4D 45 4E 54 20 45 58  49 53 54 49 45 52 54 20  |UMENT EXISTIERT |
00000DB0: 2D 20 55 45 42 45 52 53  43 48 52 45 49 42 45 4E  |- UEBERSCHREIBEN|
00000DC0: 20 20 22 3B 3A 8D 38 30  35 30 3A 8B 49 A7 8E 00  |  ";:.8050:.I...|
00000DD0: E3 15 F4 0B 98 38 2C 22  53 22 4C 24 3A 98 38 2C  |.....8,"S"L$:.8,|
00000DE0: 22 49 30 00 17 16 08 0C  9F 31 2C 30 38 2C 33 2C  |"I0......1,08,3,|
00000DF0: 4C 24 AA 22 2C 53 2C 57  22 3A 84 38 2C 58 2C 58  |L$.",S,W":.8,X,X|
00000E00: 24 3A 8B 58 A7 51 39 24  B2 22 53 50 41 43 45 22  |$:.X.Q9$."SPACE"|
00000E10: 3A 8D 36 30 30 30 30 00  2E 16 1C 0C 4F 46 B2 30  |:.60000.....OF.0|
00000E20: 3A 98 31 2C 48 24 C7 28  31 34 31 29 44 24 00 55  |:.1,H$.(141)D$.U|
00000E30: 16 4E 0C 81 49 B2 30 A4  56 3A 8B 54 24 28 49 29  |.N..I.0.V:.T$(I)|
00000E40: B1 22 22 A7 98 31 2C 54  24 28 49 29 3B 3A 99 22  |.""..1,T$(I);:."|
00000E50: 2A 22 3B 3A 82 00 63 16  58 0C 98 31 2C 22 5C 22  |*";:..c.X..1,"\"|
00000E60: 3B 3A 8E 00 7A 16 A0 0F  8F 20 42 41 54 43 48 20  |;:..z.... BATCH |
00000E70: 50 52 4F 43 45 53 53 49  4E 47 00 A3 16 A5 0F 51  |PROCESSING.....Q|
00000E80: 39 24 B2 22 46 49 4C 45  22 3A 20 8F 20 46 4F 52  |9$."FILE": . FOR|
00000E90: 20 45 52 52 4F 52 20 4D  53 47 20 49 4E 20 36 30  | ERROR MSG IN 60|
00000EA0: 30 30 30 00 C7 16 AA 0F  99 22 93 22 3B 3A 91 43  |000......".";:.C|
00000EB0: 46 89 34 31 30 30 2C 34  30 35 30 3A 8F 20 45 4C  |F.4100,4050:. EL|
00000EC0: 53 45 20 42 4F 54 48 00  EB 16 B4 0F 99 22 D6 4F  |SE BOTH......".O|
00000ED0: 4E 20 C4 41 54 41 53 45  54 54 45 22 3B 3A 8D 38  |N .ATASETTE";:.8|
00000EE0: 30 35 30 3A 8B 49 89 34  31 30 30 00 FF 16 D2 0F  |050:.I.4100.....|
00000EF0: 8F 20 46 52 4F 4D 20 43  41 53 53 45 54 54 45 00  |. FROM CASSETTE.|
00000F00: 0E 17 DC 0F 9F 32 2C 31  3A 89 34 31 35 30 00 1E  |.....2,1:.4150..|
00000F10: 17 04 10 8F 20 46 52 4F  4D 20 44 49 53 43 00 54  |.... FROM DISC.T|
00000F20: 17 0E 10 85 22 93 C1 C4  D2 C5 D3 D3 C5 CE 20 36  |...."......... 6|
00000F30: 34 3A 20 C4 41 54 45 49  2D CE 41 4D 45 20 20 2D  |4: .ATEI-.AME  -|
00000F40: 9D 9D 9D 22 3B 58 24 3A  8B 58 24 B2 22 2D 22 89  |...";X$:.X$."-".|
00000F50: 34 31 31 30 00 78 17 18  10 9F 32 2C 30 38 2C 32  |4110.x....2,08,2|
00000F60: 2C 58 24 3A 84 38 2C 58  2C 58 24 3A 8B 58 A7 A0  |,X$:.8,X,X$:.X..|
00000F70: 32 3A 89 36 30 30 30 30  00 91 17 36 10 8F 20 50  |2:.60000...6.. P|
00000F80: 52 45 50 41 52 45 20 46  4F 52 20 4F 55 54 50 55  |REPARE FOR OUTPU|
00000F90: 54 00 C4 17 40 10 54 42  24 B2 22 22 3A 53 32 B2  |T...@.TB$."":S2.|
00000FA0: 30 3A 4E B2 37 32 3A 46  B2 31 3A 9F 31 2C 30 34  |0:N.72:F.1:.1,04|
00000FB0: 3A 53 24 B2 22 11 22 AA  C8 28 42 24 2C 34 30 AB  |:S$."."..(B$,40.|
00000FC0: 4E AD 32 29 00 EC 17 4A  10 99 22 11 D3 54 41 4E  |N.2)...J.."..TAN|
00000FD0: 44 41 52 44 2D C6 4F 52  4D 41 54 22 3B 3A 8D 38  |DARD-.ORMAT";:.8|
00000FE0: 30 35 30 3A 8B 49 A7 8D  37 35 30 30 00 0E 18 68  |050:.I..7500...h|
00000FF0: 10 8F 20 47 45 54 20 54  48 45 20 4E 41 4D 45 20  |.. GET THE NAME |
00001000: 41 4E 44 20 53 41 4C 55  54 41 54 49 4F 4E 00 3A  |AND SALUTATION.:|
00001010: 18 72 10 84 32 2C 5A 24  3A 8B 53 54 B1 30 B0 C3  |.r..2,Z$:.ST.0..|
00001020: 28 5A 24 29 B3 32 89 34  39 30 30 3A 8F 20 4E 4F  |(Z$).2.4900:. NO|
00001030: 20 4C 41 53 54 20 4E 41  4D 45 00 7A 18 7C 10 4C  | LAST NAME.z.|.L|
00001040: 24 B2 22 22 3A 8D 37 34  35 30 3A 58 24 B2 22 22  |$."":.7450:X$.""|
00001050: 3A 59 24 B2 22 22 3A 4D  24 B2 22 D3 45 48 52 20  |:Y$."":M$.".EHR |
00001060: 47 45 45 48 52 54 45 20  C4 41 4D 45 4E 20 55 4E  |GEEHRTE .AMEN UN|
00001070: 44 20 C8 45 52 52 45 4E  2C 22 00 A9 18 86 10 84  |D .ERREN,"......|
00001080: 32 2C 58 24 3A 8B C3 28  58 24 29 B3 32 A7 58 24  |2,X$:..(X$).2.X$|
00001090: B2 22 22 3A 89 34 32 35  30 3A 8F 20 4E 4F 20 46  |."":.4250:. NO F|
000010A0: 49 52 53 54 20 4E 41 4D  45 00 CC 18 90 10 4D 24  |IRST NAME.....M$|
000010B0: B2 22 CC 49 45 42 45 2F  52 20 22 AA 58 24 AA 22  |.".IEBE/R ".X$."|
000010C0: 2C 22 3A 58 24 B2 58 24  AA 22 20 22 00 F6 18 9A  |,":X$.X$." "....|
000010D0: 10 84 32 2C 59 24 3A 8B  C3 28 59 24 29 B3 32 A7  |..2,Y$:..(Y$).2.|
000010E0: 59 24 B2 22 22 3A 89 34  32 37 30 3A 8F 20 4E 4F  |Y$."":.4270:. NO|
000010F0: 20 54 49 54 4C 45 00 1B  19 A4 10 59 24 B2 59 24  | TITLE.....Y$.Y$|
00001100: AA 22 20 22 3A 4D 24 B2  22 CC 49 45 42 45 2F 52  |." ":M$.".IEBE/R|
00001110: 20 22 AA 59 24 AA 5A 24  AA 22 2C 00 48 19 AE 10  | ".Y$.Z$.",.H...|
00001120: 4C 24 B2 59 24 AA 58 24  AA 5A 24 3A 84 32 2C 58  |L$.Y$.X$.Z$:.2,X|
00001130: 24 3A 8B C3 28 58 24 29  B1 32 A7 4C 24 B2 4C 24  |$:..(X$).2.L$.L$|
00001140: AA 22 2C 20 22 AA 58 24  00 71 19 B8 10 5A 24 B2  |.", ".X$.q...Z$.|
00001150: 4D 24 3A 4D 24 B2 22 22  3A 50 24 B2 4C 24 3A 8D  |M$:M$."":P$.L$:.|
00001160: 37 39 30 30 3A 8F 20 50  52 49 4E 54 20 4E 41 4D  |7900:. PRINT NAM|
00001170: 45 00 83 19 CC 10 8F 20  47 45 54 20 41 44 44 52  |E...... GET ADDR|
00001180: 45 53 53 00 AB 19 D6 10  84 32 2C 4C 24 3A 8B C3  |ESS......2,L$:..|
00001190: 28 4C 24 29 B1 31 A7 50  24 B2 4C 24 3A 8D 37 39  |(L$).1.P$.L$:.79|
000011A0: 30 30 3A 8F 20 4C 49 4E  45 20 32 00 D3 19 E0 10  |00:. LINE 2.....|
000011B0: 84 32 2C 4C 24 3A 8B C3  28 4C 24 29 B1 31 A7 50  |.2,L$:..(L$).1.P|
000011C0: 24 B2 4C 24 3A 8D 37 39  30 30 3A 8F 20 4C 49 4E  |$.L$:.7900:. LIN|
000011D0: 45 20 33 00 07 1A EA 10  84 32 2C 4C 24 3A 84 32  |E 3......2,L$:.2|
000011E0: 2C 59 24 3A 8B C3 28 59  24 29 B1 31 A7 4C 24 B2  |,Y$:..(Y$).1.L$.|
000011F0: 4C 24 AA 22 2C 20 22 AA  59 24 3A 8F 20 53 54 41  |L$.", ".Y$:. STA|
00001200: 54 45 2C 20 5A 49 50 00  20 1A F4 10 8B C3 28 4C  |TE, ZIP. .....(L|
00001210: 24 29 B1 31 A7 50 24 B2  4C 24 3A 8D 37 39 30 30  |$).1.P$.L$:.7900|
00001220: 00 4C 1A FE 10 81 49 B2  4C A4 31 34 3A 8D 37 39  |.L....I.L.14:.79|
00001230: 30 30 3A 82 3A 4C 24 B2  5A 24 3A 50 24 B2 4C 24  |00:.:L$.Z$:P$.L$|
00001240: 3A 8D 37 30 39 30 3A 89  34 32 30 30 00 58 1A 24  |:.7090:.4200.X.$|
00001250: 13 A0 32 3A 89 31 30 30  00 71 1A 70 17 8F 20 53  |..2:.100.q.p.. S|
00001260: 45 41 52 43 48 20 41 4E  44 20 52 45 50 4C 41 43  |EARCH AND REPLAC|
00001270: 45 00 AE 1A 7A 17 99 22  93 11 D3 55 43 48 45 4E  |E...z.."...UCHEN|
00001280: 20 4E 41 43 48 3F 22 3A  4D B2 34 30 3A 8D 38 32  | NACH?":M.40:.82|
00001290: 30 30 3A 5A 24 B2 58 24  3A 4C B2 C3 28 58 24 29  |00:Z$.X$:L..(X$)|
000012A0: 3A 8B 4C B2 30 B0 4C B2  4D 89 36 30 31 30 00 D8  |:.L.0.L.M.6010..|
000012B0: 1A 84 17 99 3A 99 22 11  C5 52 53 45 54 5A 45 4E  |....:."..RSETZEN|
000012C0: 20 44 55 52 43 48 3F 22  3A 8D 38 32 30 30 3A 59  | DURCH?":.8200:Y|
000012D0: 24 B2 58 24 3A 99 3A 99  00 FF 1A 8E 17 58 24 B2  |$.X$:.:......X$.|
000012E0: 22 22 3A 4D 24 B2 22 22  3A 4C 24 B2 22 22 3A 54  |"":M$."":L$."":T|
000012F0: B2 30 3A 55 B2 30 3A 46  B2 30 3A 4F 46 B2 31 00  |.0:U.0:F.0:OF.1.|
00001300: 15 1B 38 18 8F 20 41 54  54 41 43 48 20 54 24 20  |..8.. ATTACH T$ |
00001310: 54 4F 20 58 24 00 28 1B  42 18 8B C3 28 58 24 29  |TO X$.(.B...(X$)|
00001320: B1 B2 4C 89 36 32 35 30  00 46 1B 4C 18 8B 54 B1  |..L.6250.F.L..T.|
00001330: 56 89 36 34 30 30 3A 8F  20 41 4C 4C 20 54 24 27  |V.6400:. ALL T$'|
00001340: 53 20 52 45 41 44 00 6B  1B 56 18 58 24 B2 58 24  |S READ.k.V.X$.X$|
00001350: AA 54 24 28 54 29 3A 54  24 28 54 29 B2 22 22 3A  |.T$(T):T$(T)."":|
00001360: 54 B2 54 AA 31 3A 89 36  32 30 30 00 82 1B 6A 18  |T.T.1:.6200...j.|
00001370: 8F 20 53 45 41 52 43 48  20 46 4F 52 20 4D 41 54  |. SEARCH FOR MAT|
00001380: 43 48 00 B0 1B 74 18 81  49 B2 31 A4 C3 28 58 24  |CH...t..I.1..(X$|
00001390: 29 AB 4C AA 31 3A 8B CA  28 58 24 2C 49 2C 4C 29  |).L.1:..(X$,I,L)|
000013A0: B3 B1 5A 24 A7 82 3A 4A  B2 49 3A 89 36 33 30 30  |..Z$..:J.I:.6300|
000013B0: 00 C6 1B 7E 18 4D 24 B2  59 24 3A 4A B2 49 AA 4C  |...~.M$.Y$:J.I.L|
000013C0: 3A 99 22 12 22 3B 00 DA  1B 9C 18 8F 20 53 50 4C  |:.".";...... SPL|
000013D0: 49 54 20 53 54 52 49 4E  47 53 00 0D 1C A6 18 4D  |IT STRINGS.....M|
000013E0: 24 B2 C8 28 58 24 2C 49  AB 31 29 AA 4D 24 3A 58  |$..(X$,I.1).M$:X|
000013F0: 24 B2 CA 28 58 24 2C 4A  29 3A 8D 36 35 30 30 3A  |$..(X$,J):.6500:|
00001400: 91 46 89 36 39 30 30 3A  89 36 32 30 30 00 20 1C  |.F.6900:.6200. .|
00001410: 00 19 8F 20 53 54 4F 57  20 4C 41 53 54 20 4C 24  |... STOW LAST L$|
00001420: 00 3D 1C 0A 19 8D 36 35  30 30 3A 8B 46 89 36 39  |.=....6500:.F.69|
00001430: 30 30 3A 8F 20 43 4C 45  41 52 20 4D 24 00 69 1C  |00:. CLEAR M$.i.|
00001440: 14 19 4D 24 B2 58 24 3A  8D 36 35 30 30 3A 8B 46  |..M$.X$:.6500:.F|
00001450: 89 36 39 30 30 3A 8F 20  4D 24 5F 58 24 3B 20 43  |.6900:. M$_X$; C|
00001460: 4C 45 41 52 20 42 4F 54  48 00 A0 1C 1E 19 8B 55  |LEAR BOTH......U|
00001470: B3 B2 56 A7 54 B2 55 3A  8D 36 35 30 3A 89 31 30  |..V.T.U:.650:.10|
00001480: 30 3A 8F 20 53 54 4F 57  20 4C 24 2C 20 43 4C 45  |0:. STOW L$, CLE|
00001490: 41 52 20 48 49 47 48 45  52 20 42 4C 4F 43 4B 53  |AR HIGHER BLOCKS|
000014A0: 00 AA 1C 28 19 89 36 39  30 30 00 CD 1C 64 19 8F  |...(..6900...d..|
000014B0: 20 43 4C 45 41 52 20 4D  24 20 2D 20 53 54 4F 57  | CLEAR M$ - STOW|
000014C0: 20 4C 24 20 49 46 20 4E  45 45 44 45 44 00 03 1D  | L$ IF NEEDED...|
000014D0: 6E 19 4D B2 4D 30 AB C3  28 4C 24 29 3A 4C 24 B2  |n.M.M0..(L$):L$.|
000014E0: 4C 24 AA C8 28 4D 24 2C  4D 29 3A 4D 24 B2 CA 28  |L$..(M$,M):M$..(|
000014F0: 4D 24 2C 4D AA 31 29 3A  8B C3 28 4C 24 29 B3 4D  |M$,M.1):..(L$).M|
00001500: 30 A7 8E 00 12 1D 78 19  8B 55 B1 B2 56 89 36 35  |0.....x..U..V.65|
00001510: 35 30 00 3F 1D 82 19 8B  55 B3 54 A7 54 24 28 55  |50.?....U.T.T$(U|
00001520: 29 B2 4C 24 3A 99 22 2A  92 22 3B 3A 55 B2 55 AA  |).L$:."*.";:U.U.|
00001530: 31 3A 4C 24 B2 4D 24 3A  4D 24 B2 22 22 3A 8E 00  |1:L$.M$:M$."":..|
00001540: 79 1D 8C 19 8B 54 B3 56  A7 81 49 B2 56 A4 54 AA  |y....T.V..I.V.T.|
00001550: 31 A9 AB 31 3A 54 24 28  49 29 B2 54 24 28 49 AB  |1..1:T$(I).T$(I.|
00001560: 31 29 3A 82 3A 54 24 28  54 29 B2 22 22 3A 54 B2  |1):.:T$(T)."":T.|
00001570: 54 AA 31 3A 89 36 35 33  30 00 83 1D 96 19 46 B2  |T.1:.6530.....F.|
00001580: 31 3A 8E 00 94 1D F4 1A  8F 20 45 52 52 4F 52 20  |1:....... ERROR |
00001590: 45 58 49 54 00 C5 1D FE  1A 99 3A 99 22 11 CF 55  |EXIT......:."..U|
000015A0: 54 20 4F 46 20 52 4F 4F  4D 20 2D 20 44 41 54 41  |T OF ROOM - DATA|
000015B0: 20 49 4D 50 41 49 52 45  44 22 3A 8D 38 30 30 30  | IMPAIRED":.8000|
000015C0: 3A 89 31 30 30 00 DC 1D  58 1B 8F 20 46 4F 52 4D  |:.100...X.. FORM|
000015D0: 41 54 20 41 4E 44 20 50  52 49 4E 54 00 EB 1D 62  |AT AND PRINT...b|
000015E0: 1B 8D 37 30 32 30 3A 89  31 30 30 00 03 1E 6C 1B  |..7020:.100...l.|
000015F0: 9F 31 2C 30 34 3A 46 B2  31 3A 8F 20 50 52 49 4E  |.1,04:F.1:. PRIN|
00001600: 54 45 52 00 34 1E 76 1B  53 32 B2 31 3A 4E B2 36  |TER.4.v.S2.1:N.6|
00001610: 30 3A 54 42 24 B2 22 22  3A 58 24 B2 22 46 49 44  |0:TB$."":X$."FID|
00001620: 22 3A 8F 20 44 45 46 41  55 4C 54 53 20 28 44 52  |":. DEFAULTS (DR|
00001630: 41 46 54 29 00 68 1E 80  1B 99 22 11 12 C6 92 4F  |AFT).h...."....O|
00001640: 52 4D 41 4C 2C 20 12 C9  92 4E 46 4F 52 4D 41 4C  |RMAL, ...NFORMAL|
00001650: 2C 20 4F 52 20 12 C4 92  52 41 46 54 22 3B 3A 8D  |, OR ...RAFT";:.|
00001660: 38 30 36 30 3A 4A B2 49  00 81 1E 94 1B 8B 4A B3  |8060:J.I......J.|
00001670: 32 A7 53 32 B2 30 3A 4E  B2 37 32 3A 8D 37 35 30  |2.S2.0:N.72:.750|
00001680: 30 00 AC 1E 9E 1B 53 24  B2 22 11 22 AA C8 28 42  |0.....S$."."..(B|
00001690: 24 2C 34 30 AB 4E AD 32  29 3A 8B 4A B2 30 89 37  |$,40.N.2):.J.0.7|
000016A0: 34 30 30 3A 8F 20 46 4F  52 4D 41 4C 00 CF 1E A8  |400:. FORMAL....|
000016B0: 1B 4C 24 B2 22 12 22 AA  48 24 3A 50 24 B2 48 24  |.L$.".".H$:P$.H$|
000016C0: 3A 4D 24 B2 C8 28 4B 24  2C C3 28 48 24 29 29 00  |:M$..(K$,.(H$)).|
000016D0: ED 1E B2 1B 4A B2 30 3A  99 22 93 22 3A 8D 37 39  |....J.0:.".":.79|
000016E0: 30 30 3A 8D 37 39 30 30  3A 8B 4A A7 8E 00 17 1F  |00:.7900:.J.....|
000016F0: BC 1B 54 B2 30 3A 58 24  B2 22 5D 22 AA 54 42 24  |..T.0:X$."]".TB$|
00001700: 3A 45 B2 30 3A 5A 24 B2  42 24 3A 8F 20 50 52 49  |:E.0:Z$.B$:. PRI|
00001710: 4E 54 20 54 45 58 54 00  4E 1F C6 1B 8B C3 28 58  |NT TEXT.N.....(X|
00001720: 24 29 B3 B2 4E A7 58 24  B2 58 24 AA 54 24 28 54  |$)..N.X$.X$.T$(T|
00001730: 29 3A 54 B2 54 AA 31 3A  8B C3 28 58 24 29 B3 B2  |):T.T.1:..(X$)..|
00001740: 4E B0 54 B1 56 A7 58 24  B2 58 24 AA 22 5C 00 7E  |N.T.V.X$.X$."\.~|
00001750: 1F CB 1B 8B C6 28 58 24  29 B2 33 32 A7 58 24 B2  |.....(X$).32.X$.|
00001760: CA 28 58 24 2C 32 29 3A  89 37 31 31 30 3A 8F 20  |.(X$,2):.7110:. |
00001770: 4C 45 41 44 49 4E 47 20  42 4C 41 4E 4B 53 00 8F  |LEADING BLANKS..|
00001780: 1F D0 1B 8B 45 A7 58 24  B2 22 5B 22 AA 58 24 00  |....E.X$."[".X$.|
00001790: CC 1F DA 1B 4C 24 B2 C8  28 58 24 2C 4E AA 31 29  |....L$..(X$,N.1)|
000017A0: 3A 50 24 B2 4C 24 3A 4A  B2 30 3A 4B B2 30 3A 4D  |:P$.L$:J.0:K.0:M|
000017B0: 24 B2 42 24 3A 81 49 B2  31 A4 C3 28 4C 24 29 3A  |$.B$:.I.1..(L$):|
000017C0: 43 B2 C6 28 CA 28 4C 24  2C 49 29 29 00 EE 1F E4  |C..(.(L$,I))....|
000017D0: 1B 8B 43 B1 39 30 AF 43  B3 39 36 A7 8D 37 37 30  |..C.90.C.96..770|
000017E0: 30 3A 8B 58 A7 49 B2 4A  3A 89 37 31 36 30 00 23  |0:.X.I.J:.7160.#|
000017F0: 20 EE 1B 82 3A 81 49 B2  C3 28 4C 24 29 A4 4A AA  | ...:.I..(L$).J.|
00001800: 31 A9 AB 31 3A 8B CA 28  4C 24 2C 49 2C 31 29 B1  |1..1:..(L$,I,1).|
00001810: 22 20 22 A7 82 3A 49 B2  4A 3A 8B 4A B2 30 89 37  |" "..:I.J:.J.0.7|
00001820: 39 39 30 00 5F 20 F8 1B  4A B2 30 3A 58 24 B2 CA  |990._ ..J.0:X$..|
00001830: 28 58 24 2C 49 AA 31 29  3A 4C 24 B2 C8 28 4C 24  |(X$,I.1):L$..(L$|
00001840: 2C 49 AB 31 29 3A 50 24  B2 C8 28 50 24 2C 49 AB  |,I.1):P$..(P$,I.|
00001850: 4B 29 3A 4D 24 B2 C8 28  4D 24 2C 49 AB 4B 29 00  |K):M$..(M$,I.K).|
00001860: 80 20 16 1C 8B 43 B2 39  34 B0 43 B2 39 35 A7 45  |. ...C.94.C.95.E|
00001870: B2 30 3A 58 24 B2 22 5D  22 AA 54 42 24 AA 58 24  |.0:X$."]".TB$.X$|
00001880: 00 AF 20 20 1C 58 B2 43  3A 8D 37 39 30 30 3A 8B  |..  .X.C:.7900:.|
00001890: 4A B1 30 B0 58 B2 39 34  B0 58 B2 39 32 A7 8D 37  |J.0.X.94.X.92..7|
000018A0: 39 35 30 3A 8B 4A B1 30  B0 58 B2 39 32 A7 8E 00  |950:.J.0.X.92...|
000018B0: B9 20 2A 1C 89 37 31 31  30 00 C6 20 E8 1C 8F 20  |. *..7110.. ... |
000018C0: 46 4F 52 4D 41 4C 00 F8  20 F2 1C 4C 24 B2 22 22  |FORMAL.. ..L$.""|
000018D0: 3A 8D 37 34 35 30 3A 99  22 93 D6 49 45 52 20 C1  |:.7450:."..IER .|
000018E0: 44 52 45 53 53 2D DA 45  49 4C 45 4E 22 3A 4D B2  |DRESS-.EILEN":M.|
000018F0: 4E 3A 81 49 B2 31 A4 34  00 2A 21 FC 1C 99 22 DA  |N:.I.1.4.*!...".|
00001900: 45 49 4C 45 22 49 3A 8D  38 32 30 30 3A 99 3A 8B  |EILE"I:.8200:.:.|
00001910: C3 28 58 24 29 B2 4D A7  99 22 12 DA 55 20 4C 41  |.(X$).M.."..U LA|
00001920: 4E 47 20 22 3A 89 37 34  32 30 00 48 21 06 1D 50  |NG ":.7420.H!..P|
00001930: 24 B2 58 24 3A 8D 37 39  30 30 3A 82 3A 8D 37 39  |$.X$:.7900:.:.79|
00001940: 30 30 3A 8D 37 39 30 30  00 6C 21 10 1D 99 22 C1  |00:.7900.l!...".|
00001950: 4E 52 45 44 45 20 20 20  20 22 3A 8D 38 32 30 30  |NREDE    ":.8200|
00001960: 3A 50 24 B2 58 24 3A 89  37 30 39 30 00 9D 21 1A  |:P$.X$:.7090..!.|
00001970: 1D 8C 3A 4D 24 B2 22 22  3A 59 24 B2 53 24 3A 81  |..:M$."":Y$.S$:.|
00001980: 49 B2 31 A4 33 3A 87 50  24 3A 8D 37 34 39 30 3A  |I.1.3:.P$:.7490:|
00001990: 82 3A 50 24 B2 44 24 3A  8D 37 34 39 30 00 B8 21  |.:P$.D$:.7490..!|
000019A0: 2E 1D 81 49 B2 31 A4 35  3A 8D 37 39 30 30 3A 82  |...I.1.5:.7900:.|
000019B0: 3A 53 24 B2 59 24 3A 8E  00 DE 21 42 1D 4B B2 C3  |:S$.Y$:...!B.K..|
000019C0: 28 50 24 29 3A 53 24 B2  22 11 22 AA C8 28 42 24  |(P$):S$."."..(B$|
000019D0: 2C 34 30 AB 4B AD 32 29  3A 89 37 39 30 30 00 F6  |,40.K.2):.7900..|
000019E0: 21 4C 1D 8F 20 46 4F 52  4D 41 54 20 56 41 52 49  |!L.. FORMAT VARI|
000019F0: 41 54 49 4F 4E 53 00 1E  22 56 1D 99 22 11 D3 54  |ATIONS.."V.."..T|
00001A00: 41 4E 44 41 52 44 2D C6  4F 52 4D 41 54 3A 22 3A  |ANDARD-.ORMAT:":|
00001A10: 99 2C 22 20 C5 49 4E 2D  5A 45 49 4C 49 47 00 51  |.," .IN-ZEILIG.Q|
00001A20: 22 60 1D 99 2C 4E 22 DA  45 49 43 48 45 4E 20 50  |"`..,N".EICHEN P|
00001A30: 52 4F 20 DA 45 49 4C 45  20 20 22 3A 99 2C 4C 4C  |RO .EILE  ":.,LL|
00001A40: 22 DA 45 49 4C 45 4E 20  50 52 4F 20 D3 45 49 54  |".EILEN PRO .EIT|
00001A50: 45 00 6D 22 6A 1D 99 2C  22 20 D4 41 42 2D CC 41  |E.m"j..," .AB-.A|
00001A60: 45 4E 47 45 20 3D 22 C3  28 54 42 24 29 00 9A 22  |ENGE =".(TB$).."|
00001A70: 74 1D 99 22 11 CD 4F 45  43 48 54 45 4E 20 D3 49  |t.."..OECHTEN .I|
00001A80: 45 20 45 53 20 41 45 4E  44 45 52 4E 20 22 3B 3A  |E ES AENDERN ";:|
00001A90: 8D 38 30 35 30 3A 8B 49  A7 8E 00 BB 22 7E 1D 99  |.8050:.I...."~..|
00001AA0: 22 93 C5 49 4E 2D 5A 45  49 4C 49 47 20 20 22 3B  |"..IN-ZEILIG  ";|
00001AB0: 3A 8D 38 30 35 30 3A 53  32 B2 49 00 EB 22 88 1D  |:.8050:S2.I.."..|
00001AC0: 85 22 11 DA 45 49 43 48  45 4E 20 50 52 4F 20 DA  |."..EICHEN PRO .|
00001AD0: 45 49 4C 45 20 20 20 28  32 30 2D 38 30 29 20 20  |EILE   (20-80)  |
00001AE0: 37 32 20 9D 9D 9D 9D 9D  22 3B 4E 00 06 23 92 1D  |72 .....";N..#..|
00001AF0: 8B 4E B3 32 30 B0 4E B1  38 30 A7 99 22 91 91 22  |.N.20.N.80..".."|
00001B00: 3A 89 37 35 36 30 00 44  23 9C 1D 99 22 11 DA 45  |:.7560.D#..."..E|
00001B10: 49 4C 45 4E 20 50 52 4F  20 D3 45 49 54 45 20 22  |ILEN PRO .EITE "|
00001B20: 4C 4C 22 9D 20 20 9D 9D  9D 9D 9D 9D 22 3B 3A 85  |LL".  ......";:.|
00001B30: 4C 4C 3A 8B 4C 4C B3 31  A7 99 22 91 91 22 3A 89  |LL:.LL.1.."..":.|
00001B40: 37 35 38 30 00 7F 23 A1  1D 99 22 11 CC 41 45 4E  |7580..#..."..AEN|
00001B50: 47 45 20 44 45 52 20 D4  41 42 2E 22 3B 3A 58 24  |GE DER .AB.";:X$|
00001B60: B2 22 30 31 32 33 34 35  36 37 38 39 22 3A 8D 38  |."0123456789":.8|
00001B70: 30 36 30 3A 54 42 24 B2  C8 28 42 24 2C 49 29 00  |060:TB$..(B$,I).|
00001B80: 85 23 A6 1D 8E 00 97 23  14 1E 8F 20 45 4E 48 41  |.#.....#... ENHA|
00001B90: 4E 43 45 4D 45 4E 54 00  DD 23 28 1E 4B B2 4B AA  |NCEMENT..#(.K.K.|
00001BA0: 31 3A 58 B2 31 3A 4A B2  49 3A 8B 43 B2 39 31 B0  |1:X.1:J.I:.C.91.|
00001BB0: 43 B2 39 33 A7 58 B2 30  3A 45 B2 28 43 B2 39 31  |C.93.X.0:E.(C.91|
00001BC0: 29 3A 5A 24 B2 42 24 3A  59 24 B2 22 92 22 3A 8B  |):Z$.B$:Y$.".":.|
00001BD0: 45 A7 5A 24 B2 4B 24 3A  59 24 B2 22 12 00 FB 23  |E.Z$.K$:Y$."...#|
00001BE0: 32 1E 4C 24 B2 C8 28 4C  24 2C 49 AB 31 29 AA 59  |2.L$..(L$,I.1).Y|
00001BF0: 24 AA CA 28 4C 24 2C 49  AA 31 29 00 2F 24 46 1E  |$..(L$,I.1)./$F.|
00001C00: 50 24 B2 C8 28 50 24 2C  49 AB 4B 29 AA CA 28 4C  |P$..(P$,I.K)..(L|
00001C10: 24 2C 49 AA 31 29 3A 4D  24 B2 C8 28 4D 24 2C 49  |$,I.1):M$..(M$,I|
00001C20: AB 4B 29 AA CA 28 5A 24  2C 49 AA 31 29 3A 8E 00  |.K)..(Z$,I.1):..|
00001C30: 3E 24 DC 1E 8F 20 4C 49  4E 45 20 4F 55 54 00 52  |>$... LINE OUT.R|
00001C40: 24 E6 1E 8B 50 24 B1 22  22 A7 50 24 B2 53 24 AA  |$...P$."".P$.S$.|
00001C50: 50 24 00 6D 24 F0 1E 99  4C 24 3B 3A 8D 37 39 33  |P$.m$...L$;:.793|
00001C60: 30 3A 8B 4A B1 30 B0 53  32 B2 30 A7 8E 00 8F 24  |0:.J.0.S2.0....$|
00001C70: FA 1E 8B 46 A7 99 3A 98  31 2C 50 24 3B 3A 8B 4D  |...F..:.1,P$;:.M|
00001C80: 24 B1 42 24 A7 98 31 2C  51 24 53 24 4D 24 3B 00  |$.B$..1,Q$S$M$;.|
00001C90: B6 24 04 1F 98 31 3A 50  24 B2 22 22 3A 4C 24 B2  |.$...1:P$."":L$.|
00001CA0: 22 22 3A 4D 24 B2 22 22  3A 4C B2 4C AA 31 3A 8B  |"":M$."":L.L.1:.|
00001CB0: 4C B3 4C 4C A7 8E 00 CB  24 0E 1F 8B 46 B2 30 A7  |L.LL....$...F.0.|
00001CC0: 8D 38 30 30 30 3A 4C B2  30 3A 8E 00 F8 24 18 1F  |.8000:L.0:...$..|
00001CD0: 8B 4C A7 81 49 B2 4C A4  4C 50 AB 31 3A 98 31 3A  |.L..I.L.LP.1:.1:|
00001CE0: 82 3A 4C B2 30 3A 8F 20  50 41 47 45 20 57 49 54  |.:L.0:. PAGE WIT|
00001CF0: 48 20 42 4C 41 4E 4B 53  00 03 25 22 1F 99 22 93  |H BLANKS..%"..".|
00001D00: 22 3A 8E 00 30 25 36 1F  4A B2 31 3A 99 22 11 DA  |":..0%6.J.1:."..|
00001D10: 45 49 4C 45 20 46 55 45  52 20 C4 52 55 43 4B 20  |EILE FUER .RUCK |
00001D20: 5A 55 20 4C 41 4E 47 22  3A 8D 37 39 35 30 3A 8E  |ZU LANG":.7950:.|
00001D30: 00 40 25 40 1F 8F 20 55  54 49 4C 49 54 49 45 53  |.@%@.. UTILITIES|
00001D40: 00 74 25 4A 1F 99 22 11  12 20 D7 45 49 54 45 52  |.t%J..".. .EITER|
00001D50: 20 4D 49 54 20 42 45 4C  49 45 42 49 47 45 52 20  | MIT BELIEBIGER |
00001D60: D4 41 53 54 45 22 3B 3A  8D 32 30 3A 99 3A 99 22  |.ASTE";:.20:.:."|
00001D70: 93 22 3A 8E 00 7F 25 72  1F 58 24 B2 22 4A 4E 00  |.":...%r.X$."JN.|
00001D80: 8A 25 7C 1F 99 22 3F 20  22 3B 00 B4 25 86 1F 8D  |.%|.."? ";..%...|
00001D90: 32 30 3A 81 49 B2 31 A4  C3 28 58 24 29 3A 8B 43  |20:.I.1..(X$):.C|
00001DA0: 24 B3 B1 CA 28 58 24 2C  49 2C 31 29 A7 82 3A 89  |$...(X$,I,1)..:.|
00001DB0: 38 30 37 30 00 C3 25 8B  1F 49 B2 49 AB 31 3A 99  |8070..%..I.I.1:.|
00001DC0: 43 24 3B 00 DF 25 90 1F  A1 57 24 3A 8B 57 24 B2  |C$;..%...W$:.W$.|
00001DD0: 22 22 A7 99 22 A4 9D 22  3B 3A 89 38 30 38 30 00  |"".."..";:.8080.|
00001DE0: F5 25 95 1F 99 22 20 9D  22 3B 3A 8B 57 24 B2 52  |.%..." .";:.W$.R|
00001DF0: 24 A7 99 3A 8E 00 0E 26  9A 1F 8B 57 24 B2 C7 28  |$..:...&...W$..(|
00001E00: 32 30 29 A7 99 57 24 3B  3A 89 38 30 37 30 00 18  |20)..W$;:.8070..|
00001E10: 26 9F 1F 89 38 30 38 30  00 33 26 08 20 58 24 B2  |&...8080.3&. X$.|
00001E20: 22 22 3A 8F 20 49 4E 50  55 54 20 41 20 53 54 52  |"":. INPUT A STR|
00001E30: 49 4E 47 00 44 26 12 20  A1 43 24 3A 8B 43 24 89  |ING.D&. .C$:.C$.|
00001E40: 38 32 31 30 00 5C 26 1C  20 8D 32 35 3A 8B 43 B2  |8210.\&. .25:.C.|
00001E50: 31 33 B0 43 B2 39 32 89  38 32 39 30 00 8B 26 26  |13.C.92.8290..&&|
00001E60: 20 8B 43 B2 32 30 AF 58  24 B1 22 22 A7 99 43 24  | .C.20.X$.""..C$|
00001E70: 3B 3A 58 24 B2 C8 28 58  24 2C C3 28 58 24 29 AB  |;:X$..(X$,.(X$).|
00001E80: 31 29 3A 8F 20 44 45 4C  45 54 45 00 AB 26 30 20  |1):. DELETE..&0 |
00001E90: 8B 43 B2 32 30 89 38 32  32 30 3A 8F 20 44 45 4C  |.C.20.8220:. DEL|
00001EA0: 45 54 45 20 4F 4E 20 4E  55 4C 4C 00 DC 26 3A 20  |ETE ON NULL..&: |
00001EB0: 8B 28 31 32 37 AF 43 29  B3 33 32 89 38 32 32 30  |.(127.C).32.8220|
00001EC0: 3A 8F 20 43 55 52 53 4F  52 20 43 4F 4E 54 52 4F  |:. CURSOR CONTRO|
00001ED0: 4C 20 43 48 41 52 41 43  54 45 52 53 00 F5 26 44  |L CHARACTERS..&D|
00001EE0: 20 99 43 24 3B 3A 8B 43  B2 33 34 A7 99 43 24 C7  | .C$;:.C.34..C$.|
00001EF0: 28 32 30 29 3B 00 10 27  4E 20 58 24 B2 58 24 AA  |(20);..'N X$.X$.|
00001F00: 43 24 3A 8B C3 28 58 24  29 B3 4D 89 38 32 32 30  |C$:..(X$).M.8220|
00001F10: 00 16 27 62 20 8E 00 2D  27 FC 21 8F 20 51 55 49  |..'b ..-'.!. QUI|
00001F20: 54 20 54 48 45 20 50 52  4F 47 52 41 4D 00 63 27  |T THE PROGRAM.c'|
00001F30: 10 22 99 22 93 11 D3 45  49 54 45 4E 56 4F 52 53  |."."...EITENVORS|
00001F40: 43 48 55 42 20 41 4D 20  C4 52 55 43 4B 45 52 20  |CHUB AM .RUCKER |
00001F50: 20 20 20 22 3B 3A 8D 38  30 35 30 3A 8B 49 89 38  |   ";:.8050:.I.8|
00001F60: 37 34 30 00 8B 27 1A 22  9F 31 2C 30 34 3A 46 B2  |740..'.".1,04:F.|
00001F70: 31 3A 4C B2 2E 31 3A 8D  37 39 35 30 3A 8F 20 45  |1:L..1:.7950:. E|
00001F80: 58 50 45 4C 20 41 20 50  41 47 45 00 A3 27 24 22  |XPEL A PAGE..'$"|
00001F90: 8B 4F 46 B2 30 B0 54 24  28 30 29 B2 22 22 89 38  |.OF.0.T$(0)."".8|
00001FA0: 37 36 30 00 E4 27 2E 22  99 22 11 C4 4F 4B 55 4D  |760..'."."..OKUM|
00001FB0: 45 4E 54 20 4E 49 43 48  54 20 47 45 53 49 43 48  |ENT NICHT GESICH|
00001FC0: 45 52 54 3B 20 53 50 45  49 43 48 45 52 4E 22 3B  |ERT; SPEICHERN";|
00001FD0: 3A 8D 38 30 35 30 3A 8B  49 B2 30 A7 A0 31 3A 8D  |:.8050:.I.0..1:.|
00001FE0: 33 30 32 30 00 FB 27 38  22 A0 31 3A 99 22 93 D4  |3020..'8".1:."..|
00001FF0: 53 43 48 55 45 53 53 21  22 3A A2 00 23 28 C4 22  |SCHUESS!":..#(."|
00002000: 9F 31 2C 30 34 3A 46 B2  31 3A 4C B2 2E 31 3A 89  |.1,04:F.1:L..1:.|
00002010: 37 39 35 30 3A 8F 20 45  58 50 45 4C 20 41 20 50  |7950:. EXPEL A P|
00002020: 41 47 45 00 34 28 28 23  8F 20 49 4E 49 54 49 41  |AGE.4((#. INITIA|
00002030: 4C 49 5A 45 00 64 28 2D  23 4C 50 B2 37 32 3A 4C  |LIZE.d(-#LP.72:L|
00002040: 30 B2 36 30 3A 4D 30 B2  31 36 30 3A 51 24 B2 C7  |0.60:M0.160:Q$..|
00002050: 28 31 34 31 29 3A 52 24  B2 C7 28 31 33 29 3A 4B  |(141):R$..(13):K|
00002060: 24 B2 22 A4 00 83 28 32  23 56 B2 B5 28 28 B8 28  |$."...(2#V..((.(|
00002070: 30 29 AB 32 30 30 30 29  AD 4D 30 29 3A 86 54 24  |0).2000).M0):.T$|
00002080: 28 56 29 00 C4 28 3C 23  99 22 93 8E 13 13 0F 11  |(V)..(<#."......|
00002090: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000020A0: 11 11 11 11 11 11 11 11  22 A6 33 39 29 22 8F 05  |........".39)"..|
000020B0: 22 3A 97 35 39 34 36 38  2C 31 34 3A 8F 20 46 4F  |":.59468,14:. FO|
000020C0: 52 4D 41 54 00 F9 28 41  23 97 35 33 32 37 32 2C  |RMAT..(A#.53272,|
000020D0: 32 B0 C2 28 35 33 32 37  32 29 3A 99 22 93 20 20  |2..(53272):.".  |
000020E0: 20 20 20 12 20 C3 4F 4D  4D 4F 44 4F 52 45 20 D4  |   . .OMMODORE .|
000020F0: C5 D8 D4 20 36 34 20 20  92 00 14 29 43 23 8D 36  |... 64  ...)C#.6|
00002100: 31 30 30 30 3A 20 8F 20  43 4F 4C 4F 52 20 43 48  |1000: . COLOR CH|
00002110: 41 4E 47 45 00 58 29 46  23 99 22 11 12 CB 92 41  |ANGE.X)F#."....A|
00002120: 53 53 45 54 54 45 2C 20  12 C4 92 49 53 4B 45 54  |SSETTE, ...ISKET|
00002130: 54 45 20 4F 44 45 52 20  12 42 92 45 49 44 45 53  |TE ODER .B.EIDES|
00002140: 22 3B 3A 58 24 B2 22 44  4B 42 22 3A 8D 38 30 36  |";:X$."DKB":.806|
00002150: 30 3A 43 46 B2 49 AA 31  00 82 29 50 23 42 24 B2  |0:CF.I.1..)P#B$.|
00002160: 22 20 20 20 20 20 22 3A  81 49 B2 31 A4 35 3A 42  |"     ":.I.1.5:B|
00002170: 24 B2 42 24 AA 42 24 3A  82 3A 9F 38 2C 30 38 2C  |$.B$.B$:.:.8,08,|
00002180: 31 35 00 A9 29 55 23 99  22 11 D4 41 47 45 53 44  |15..)U#."..AGESD|
00002190: 41 54 55 4D 20 20 3F 22  3A 4D B2 32 30 3A 8D 38  |ATUM  ?":M.20:.8|
000021A0: 32 30 30 3A 44 24 B2 58  24 00 C3 29 5A 23 4B 24  |200:D$.X$..)Z#K$|
000021B0: B2 22 20 22 3A 8F 20 31  35 32 35 20 50 52 49 4E  |." ":. 1525 PRIN|
000021C0: 54 45 52 00 F4 29 64 23  8F 20 4B 24 3D 22 5F 22  |TER..)d#. K$="_"|
000021D0: 3A 51 24 3D 52 24 2B 43  48 52 24 28 32 37 29 2B  |:Q$=R$+CHR$(27)+|
000021E0: 22 0A 22 3A 52 45 4D 20  38 33 30 30 20 50 52 49  |".":REM 8300 PRI|
000021F0: 4E 54 45 52 00 0F 2A 78  23 81 49 B2 31 A4 37 3A  |NTER..*x#.I.1.7:|
00002200: 4B 24 B2 4B 24 AA 4B 24  3A 82 3A 89 31 30 30 00  |K$.K$.K$:.:.100.|
00002210: 18 2A 8C 23 89 31 30 30  00 37 2A 10 27 8F 20 4C  |.*.#.100.7*.'. L|
00002220: 45 54 54 45 52 48 45 41  44 20 44 41 54 41 2C 20  |ETTERHEAD DATA, |
00002230: 44 45 4C 45 54 45 44 00  3F 2A 1A 27 83 22 22 00  |DELETED.?*.'."".|
00002240: 47 2A 24 27 83 22 22 00  4F 2A 2E 27 83 22 22 00  |G*$'."".O*.'."".|
00002250: 74 2A 60 EA 99 51 39 24  22 20 4E 49 43 48 54 20  |t*`..Q9$" NICHT |
00002260: 47 45 46 55 4E 44 45 4E  22 3A 8D 38 30 30 30 3A  |GEFUNDEN":.8000:|
00002270: 89 31 30 30 00 8F 2A 48  EE 8F 20 43 4F 4C 4F 52  |.100..*H.. COLOR|
00002280: 20 43 48 41 4E 47 45 20  52 4F 55 54 49 4E 45 00  | CHANGE ROUTINE.|
00002290: B3 2A 49 EE 96 A5 43 28  58 29 B2 C2 28 58 29 AA  |.*I...C(X)..(X).|
000022A0: 31 AA 31 36 AC 28 28 C2  28 58 29 AF 31 35 29 B2  |1.16.((.(X).15).|
000022B0: 31 35 29 00 D9 2A 4A EE  99 3A 99 22 13 11 11 11  |15)..*J..:."....|
000022C0: 11 11 12 C6 31 92 3D 20  C6 41 52 42 45 20 44 45  |....1.= .ARBE DE|
000022D0: 53 20 D2 41 4E 44 45 53  22 00 F9 2A 4B EE 99 22  |S .ANDES"..*K.."|
000022E0: 11 12 C6 33 92 3D 20 C8  49 4E 54 45 52 47 52 55  |...3.= .INTERGRU|
000022F0: 4E 44 2D C6 41 52 42 45  22 00 19 2B 4C EE 99 22  |ND-.ARBE"..+L.."|
00002300: 11 12 C6 35 92 3D 20 C6  41 52 42 45 20 44 45 52  |...5.= .ARBE DER|
00002310: 20 DA 45 49 43 48 45 4E  22 00 32 2B 4D EE 99 22  | .EICHEN".2+M.."|
00002320: 11 12 D2 C5 D4 D5 D2 CE  92 3D 20 D7 45 49 54 45  |.........= .EITE|
00002330: 52 22 00 44 2B 52 EE A1  43 24 3A 8B 43 24 89 36  |R".D+R..C$:.C$.6|
00002340: 31 30 31 30 00 59 2B 5C  EE A1 43 24 3A 8B 43 24  |1010.Y+\..C$:.C$|
00002350: B2 22 22 89 36 31 30 32  30 00 80 2B 66 EE 43 B2  |."".61020..+f.C.|
00002360: C6 28 43 24 29 3A 8B 43  B2 31 33 35 A7 97 36 34  |.(C$):.C.135..64|
00002370: 36 2C A5 43 28 36 34 36  29 3A 89 36 31 30 30 32  |6,.C(646):.61002|
00002380: 00 AC 2B 7A EE 43 B2 C6  28 43 24 29 3A 8B 43 B2  |..+z.C..(C$):.C.|
00002390: 31 33 33 B0 43 B2 31 33  34 A7 58 B2 35 33 31 34  |133.C.134.X.5314|
000023A0: 37 AA 43 3A 97 58 2C A5  43 28 58 29 00 BD 2B 84  |7.C:.X,.C(X)..+.|
000023B0: EE 8B 43 B3 B1 31 33 89  36 31 30 31 30 00 C3 2B  |..C..13.61010..+|
000023C0: 8E EE 8E 00 00 00                                 |......          |

.......G(14):.657,128:.788,52.W....9000:
. (C) 1982 BY COMMODORE BUSINESS MACHINE
S, INC..F....C$:.C$.20......C$:.C$.." ."
;:C.F(C$):......."..";:.25......C$:.C$."
".30.Y. .X.F(C$):C.X.127:.C.13.C.17.C.19
.C.20.C.29.C.31....."..30...(.X$.""...*.
.#1,C$:.C$.R$.C$.G(141).....,.X$.X$.C$:.
42.3.D.L.0:LL.L0: 1:. ENTRY.\.N..".     
 . COMMODORE TEXT 64      ...R.X..,"FUNK
TIONEN:.."...}..,".E.RSTELLEN EINES DOKU
MENTES......,".S.PEICHERN EINES DOKUMENT
ES......,".A.UFRUFEN EINES DOKUMENTES...
...,".D.RUCKEN EINES DOKUMENTES.$....,".
V.ERAENDERN EINES DOKUMENTES.J. ..,".G.L
OBALES SUCHEN UND TAUSCHEN.O....,".B.S-A
NZEIGE EINES DOKUMENTES......,".R.UNDSCH
REIBEN ERSTELLEN......,".P.ROGRAMMENDE.X
...X$."PBVGDSRAE":.".WELCHE   ";:.8060:.
I.0.8700...C.J.I:.J.4.250...H..".":. GET
 SUBJECT.F.R..H$."".."DOKUMENT: ."H$:.".
(RETURN LAESST DEN NAMEN UNVERAENDERT).S
...M.61:.".DOKUMENT-NAME:":.8200:.C..13.
200......:.X$."".H$.X$......H$."".200.P.
...J.7.T$(0).""..".KEIN DOKUMENT IM SPEI
CHER":.8000:.100......OF.0.J.7.T$(0)."".
280.2....".DOKUMENT NICHT GESPEICHERT ..
. SPEICHER LOESCHEN";:.8050:.I.100._....
J.400,1000,6000,7000,3000,4000,2000,500.
T.... READ TO SCREEN.....N.39:F.0:LL.20:
TB$."":.1,3:.7080:.100.....OF.1:T.0:. WR
ITE NEW TEXT......".."H$:.:."...........
...................................C$:.C
$.510.$...M.M0:.I.T.V:T$(I)."":X$."".A..
..8220:.C.13..:.X$."".530.W...T$(I).X$:.
C..92...T.&..I.V..I.I.1.V:T$(I)."":....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...D....:T$(T).L$:.T.V..I.T.1.V:T$(I).
"":..J.....^.... EDIT THE TEXT......".WI
EVIEL % TEXT UEBERSPRINGEN (0-100)  0...
";T:T..(T):.T.99.T.100.B...OF.1:.I.0.V:.
T$(I)."".......I.I.1:T..(T.I.100..5)....
.L.0:.T.V.100.....X$.T$(T):.X$."".1900.$
.$.P$.H(H$,20):.T.P$.T$(T.1).H....".."I(
P$,20):.".".29)".BLOCK"T.}.8..".........
........................................
B..C$:.C$.1090...L.. & SET CURSOR (A,D).
S.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:. EN
D.P....X.29.L.L.(L.1.C(X$)):.1100:. CURS
OR RIGHT.X.D..C.29.L.L.(L.0):.1100:. CUR
SOR LEFT...N..X.17.L.L.40.(L.40.C(X$)):.
1100:. CURSOR DOWN.T.X..C.17.L.L.40.(L.3
9):.1100:. CURSOR UP......X.19.L.0:.1100
:. CURSOR HOME.0....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....
..C.13.T$(T).X$:T.T.(T.0):.1040:. PRIOR 
BLOCK. ....L..C(X$).1100.D...L$.H(X$,L):
.X.148.1350:. INSERT.....M$.J(X$,L.2):.C
..20.X$.L$.C$.M$:X.29:.1210:. REPLACE CH
ARACTER.3.2.X$.L$.M$:.X$."".C.19:.1260:.
 NULL BLOCK.=.<..1100.N.F.M$.J(X$,L.1):.
"................."M$:."..."L$...K.."...
".C(L$));:M.M0:.8200...P.M.M0.C(L$):L$.L
$.H(X$,M):M$.J(X$,M.1).M$...Z.M.M0.C(L$)
:T$(T).L$.H(M$,M):L$.J(M$,M.1):M$."":.L$
."".1050...D.X.T:T.T.1:.610:T.X:.1050.*.
L.. ADD TO THE END.=.V..T.0.600:. END.E.
..X$.T$(T.1):."."X$:.".".C(X$));:.510.V.
P.. INPUT FILE...U.Q9$."DOKUMENT": . FOR
 ERROR MSG IN 60000.J....CF.2..".VON DER
 DATASETTE";:.8050......CF.2.(CF.2.I.0).
.1,1,0,H$:.2100......1,08,2,H(H$,16):.8,
X,X$:.X.60000.L.4.OF.0:.40:.".LIEST  : .
"X$:H$.X$:.40:.X$:.:. HEADER.S...X$.G(31
):.I.0.V:L$."":. INPUT FILE......J.1.M0:
.#1,C$:.ST.J.M0:.2230.A....C$.X$.L$.L$.C
$:. ONLY LEGAL CHARACTERS......J:T$(I).L
$:.L$;:.ST.0..I:I.I.1...J.T.I:.650:.8000
:.100......3020:.100:. OUTPUT FILE.=.L..
CF.2..".AUF DATASETTE";:.8050.B.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.O.
...".DOKUMENT EXISTIERT - 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$.U.N..I.0.
V:.T$(I).""..1,T$(I);:."*";:..C.X..1,"\"
;:..Z. .. BATCH PROCESSING.....Q9$."FILE
": . FOR ERROR MSG IN 60000.G....".";:.C
F.4100,4050:. ELSE BOTH......"VON DATASE
TTE";:.8050:.I.4100...R.. FROM CASSETTE.
.....2,1:.4150...... FROM DISC.T....".AD
RESSEN 64: DATEI-NAME  -...";X$:.X$."-".
4110.X....2,08,2,X$:.8,X,X$:.X. 2:.60000
...6.. PREPARE FOR OUTPUT.D.@.TB$."":S2.
0:N.72:F.1:.1,04:S$.".".H(B$,40.N.2)...J
..".STANDARD-FORMAT";:.8050:.I..7500...H
.. GET THE NAME AND SALUTATION.:.R..2,Z$
:.ST.0.C(Z$).2.4900:. NO LAST NAME.Z.|.L
$."":.7450:X$."":Y$."":M$."SEHR GEEHRTE 
DAMEN UND HERREN,"......2,X$:.C(X$).2.X$
."":.4250:. NO FIRST NAME.L...M$."LIEBE/
R ".X$.",":X$.X$." "......2,Y$:.C(Y$).2.
Y$."":.4270:. NO TITLE.....Y$.Y$." ":M$.
"LIEBE/R ".Y$.Z$.",.H...L$.Y$.X$.Z$:.2,X
$:.C(X$).2.L$.L$.", ".X$.Q...Z$.M$:M$.""
:P$.L$:.7900:. PRINT NAME...L.. GET ADDR
ESS...V..2,L$:.C(L$).1.P$.L$:.7900:. LIN
E 2.S....2,L$:.C(L$).1.P$.L$:.7900:. LIN
E 3......2,L$:.2,Y$:.C(Y$).1.L$.L$.", ".
Y$:. STATE, ZIP. ....C(L$).1.P$.L$:.7900
.L....I.L.14:.7900:.:L$.Z$:P$.L$:.7090:.
4200.X.$. 2:.100.Q.P.. SEARCH AND REPLAC
E...Z.."..SUCHEN NACH?":M.40:.8200:Z$.X$
:L.C(X$):.L.0.L.M.6010.X....:.".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.F.L..T.V.6400:.
 ALL T$'S READ.K.V.X$.X$.T$(T):T$(T)."":
T.T.1:.6200...J.. SEARCH FOR MATCH...T..
I.1.C(X$).L.1:.J(X$,I,L)..Z$..:J.I:.6300
.F.~.M$.Y$:J.I.L:.".";.Z.... SPLIT STRIN
GS.....M$.H(X$,I.1).M$:X$.J(X$,J):.6500:
.F.6900:.6200. .... STOW LAST L$.=....65
00:.F.6900:. CLEAR M$.I...M$.X$:.6500:.F
.6900:. M$_X$; CLEAR BOTH. ....U..V.T.U:
.650:.100:. STOW L$, CLEAR HIGHER BLOCKS
...(..6900.M.D.. CLEAR M$ - STOW L$ IF N
EEDED...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$."":..
Y....T.V..I.V.T.1..1:T$(I).T$(I.1):.:T$(
T)."":T.T.1:.6530.....F.1:....... ERROR 
EXIT.E....:.".OUT OF ROOM - DATA IMPAIRE
D":.8000:.100...X.. FORMAT AND PRINT...B
..7020:.100...L..1,04:F.1:. PRINTER.4.V.
S2.1:N.60:TB$."":X$."FID":. DEFAULTS (DR
AFT).H...."..F.ORMAL, .I.NFORMAL, OR .D.
RAFT";:.8060:J.I......J.2.S2.0:N.72:.750
0.....S$.".".H(B$,40.N.2):.J.0.7400:. FO
RMAL.O...L$.".".H$:P$.H$:M$.H(K$,C(H$)).
....J.0:.".":.7900:.7900:.J.......T.0:X$
."]".TB$:E.0:Z$.B$:. PRINT TEXT.N.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$.L.Z.L$.H
(X$,N.1):P$.L$:J.0:K.0:M$.B$:.I.1.C(L$):
C.F(J(L$,I))......C.90.C.96..7700:.X.I.J
:.7160.# ...:.I.C(L$).J.1..1:.J(L$,I,1).
" "..:I.J:.J.0.7990._ ..J.0:X$.J(X$,I.1)
:L$.H(L$,I.1):P$.H(P$,I.K):M$.H(M$,I.K).
. ...C.94.C.95.E.0:X$."]".TB$.X$..  .X.C
:.7900:.J.0.X.94.X.92..7950:.J.0.X.92...
. *..7110.F ... FORMAL.. ..L$."":.7450:.
".VIER ADRESS-ZEILEN":M.N:.I.1.4.*!..."Z
EILE"I:.8200:.:.C(X$).M..".ZU LANG ":.74
20.H!..P$.X$:.7900:.:.7900:.7900.L!..."A
NREDE    ":.8200:P$.X$:.7090..!...:M$.""
:Y$.S$:.I.1.3:.P$:.7490:.:P$.D$:.7490..!
...I.1.5:.7900:.:S$.Y$:...!B.K.C(P$):S$.
".".H(B$,40.K.2):.7900..!L.. FORMAT VARI
ATIONS.."V..".STANDARD-FORMAT:":.," EIN-
ZEILIG.Q"`..,N"ZEICHEN PRO ZEILE  ":.,LL
"ZEILEN PRO SEITE.M"J..," TAB-LAENGE ="C
(TB$).."T..".MOECHTEN SIE ES AENDERN ";:
.8050:.I...."~..".EIN-ZEILIG  ";:.8050:S
2.I.."...".ZEICHEN PRO ZEILE   (20-80)  
72 .....";N..#...N.20.N.80.."..":.7560.D
#...".ZEILEN PRO SEITE "LL".  ......";:.
LL:.LL.1.."..":.7580.#...".LAENGE DER T
AB.";:X$."0123456789":.8060:TB$.H(B$,I).
.#.....#... 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.R$...P$."
".P$.S$.P$.M$...L$;:.7930:.J.0.S2.0....$
...F..:.1,P$;:.M$.B$..1,Q$S$M$;..$...1:P
$."":L$."":M$."":L.L.1:.L.LL...K$...F.0.
.8000:L.0:...$...L..I.L.LP.1:.1:.:L.0:. 
PAGE WITH BLANKS..%"..".":..0%6.J.1:.".Z
EILE FUER DRUCK ZU LANG":.7950:..@%@.. U
TILITIES.T%J..".. WEITER MIT BELIEBIGER 
TASTE";:.20:.:.".":..%R.X$."JN..%|.."? 
";..%...20:.I.1.C(X$):.C$..J(X$,I,1)..:.
8070.C%..I.I.1:.C$;..%...W$:.W$.""..".."
;:.8080..%..." .";:.W$.R$..:...&...W$.G(
20)..W$;:.8070..&...8080.3&. X$."":. INP
UT A STRING.D&. .C$:.C$.8210.\&. .25:.C.
13.C.92.8290..&& .C.20.X$.""..C$;:X$.H(X
$,C(X$).1):. DELETE..&0 .C.20.8220:. DEL
ETE ON NULL..&: .(127.C).32.8220:. CURSO
R CONTROL CHARACTERS..&D .C$;:.C.34..C$G
(20);..'N X$.X$.C$:.C(X$).M.8220..'B ..-
'.!. QUIT THE PROGRAM.C'."."..SEITENVORS
CHUB AM DRUCKER    ";:.8050:.I.8740..'."
.1,04:F.1:L..1:.7950:. EXPEL A PAGE..'$"
.OF.0.T$(0)."".8760..'.".".DOKUMENT NICH
T GESICHERT; SPEICHERN";:.8050:.I.0. 1:.
3020..'8" 1:.".TSCHUESS!":..#(D".1,04:F.
1:L..1:.7950:. EXPEL A PAGE.4((#. INITIA
LIZE.D(-#LP.72:L0.60:M0.160:Q$.G(141):R$
.G(13):K$."...(2#V..((.(0).2000).M0):.T$
(V).D(<#."..............................
".39)"..":.59468,14:. FORMAT..(A#.53272,
2.B(53272):.".     . COMMODORE TEXT 64  
...)C#.61000: . COLOR CHANGE.X)F#."..K.A
SSETTE, .D.ISKETTE ODER .B.EIDES";:X$."D
KB":.8060:CF.I.1..)P#B$."     ":.I.1.5:B
$.B$.B$:.:.8,08,15..)U#.".TAGESDATUM  ?"
:M.20:.8200:D$.X$.C)Z#K$." ":. 1525 PRIN
TER..)D#. K$="_":Q$=R$+CHR$(27)+".":REM 
8300 PRINTER..*X#.I.1.7:K$.K$.K$:.:.100.
.*.#.100.7*.'. LETTERHEAD DATA, DELETED.
?*.'."".G*$'."".O*.'."".T*`..Q9$" NICHT 
GEFUNDEN":.8000:.100..*H.. COLOR CHANGE 
ROUTINE..*I...C(X).B(X).1.16.((B(X).15).
15).Y*J..:.".......F1.= FARBE DES RANDES
"..*K.."..F3.= HINTERGRUND-FARBE"..+L.."
..F5.= FARBE DER ZEICHEN".2+M.."..RETURN
.= WEITER".D+R..C$:.C$.61010.Y+\..C$:.C$
."".61020..+F.C.F(C$):.C.135..646,.C(646
):.61002..+Z.C.F(C$):.C.133.C.134.X.5314
7.C:.X,.C(X)..+...C..13.61010.C+......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL