WORD PROCESSOR
FILE INFORMATION
FILENAME(S): WORD PROCESSOR
FILE TYPE(S): PRG
FILE SIZE: 8.7K
FIRST SEEN: 2025-11-30 21:12:44
APPEARS ON: 1 disk(s)
FILE HASH
69d50af477a9f0550516a2650e8b3a7419103fd0c7355cf45143d53a9af4d9d1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D S COMPWARE | WORD PROCESSOR | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 0A 00 99 22 93 9E 22 3B C7 28 38 29 |......."..";.(8)|
00000010: 00 26 08 14 00 97 35 33 32 38 30 2C 36 3A 97 35 |.&....53280,6:.5|
00000020: 33 32 38 31 2C 30 00 44 08 1E 00 86 20 54 58 24 |3281,0.D.... TX$|
00000030: 28 35 30 31 29 3A 4F 57 B2 30 3A 45 4D B2 30 3A |(501):OW.0:EM.0:|
00000040: 44 4E B2 34 00 67 08 23 00 47 43 24 B2 22 13 11 |DN.4.g.#.GC$."..|
00000050: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000060: 11 11 11 11 11 11 22 00 AE 08 28 00 42 4C 24 B2 |......"...(.BL$.|
00000070: C7 28 31 36 30 29 3A 54 4C B2 31 3A 43 50 B2 31 |.(160):TL.1:CP.1|
00000080: 3A 4D 57 B2 38 30 3A 54 57 B2 36 30 3A 50 4C B2 |:MW.80:TW.60:PL.|
00000090: 36 30 3A 54 48 B2 34 30 3A 47 50 B2 31 30 3A 4C |60:TH.40:GP.10:L|
000000A0: 46 24 B2 C7 28 31 33 29 AA C7 28 31 33 29 00 C7 |F$..(13)..(13)..|
000000B0: 08 2A 00 4C 46 24 B2 4C 46 24 AA C7 28 31 33 29 |.*.LF$.LF$..(13)|
000000C0: 3A 8D 20 35 30 30 30 00 0B 09 32 00 54 58 24 28 |:. 5000...2.TX$(|
000000D0: 30 29 B2 22 9F 12 22 3A 53 57 24 B2 22 22 3A 81 |0)."..":SW$."":.|
000000E0: 20 46 B2 30 20 A4 20 33 39 3A 54 58 24 28 30 29 | F.0 . 39:TX$(0)|
000000F0: B2 54 58 24 28 30 29 AA 22 2B 22 3A 53 57 24 B2 |.TX$(0)."+":SW$.|
00000100: 53 57 24 AA 22 B7 22 3A 82 20 46 00 28 09 37 00 |SW$.".":. F.(.7.|
00000110: 81 20 5A B2 31 20 A4 20 34 30 3A 53 50 24 B2 53 |. Z.1 . 40:SP$.S|
00000120: 50 24 AA 22 20 22 3A 82 00 75 09 3C 00 54 58 24 |P$." ":..u.<.TX$|
00000130: 28 30 29 B2 54 58 24 28 30 29 AA 22 92 9E 22 3A |(0).TX$(0)."..":|
00000140: 54 58 24 28 31 29 B2 22 12 9F AF AF AF AF AF AF |TX$(1)."........|
00000150: AF AF AF 2E AF AF AF AF AF AF AF AF AF 2E AF AF |................|
00000160: AF AF AF AF AF AF AF 2E AF AF AF AF AF AF AF AF |................|
00000170: AF 2E 92 9E 22 00 81 09 46 00 99 C7 28 31 34 32 |...."...F...(142|
00000180: 29 00 B3 09 47 00 99 22 93 11 12 22 A3 31 35 29 |)...G.."...".15)|
00000190: 3B 22 9F 4D 41 49 4E 20 4D 45 4E 55 9E 22 3A 99 |;".MAIN MENU.":.|
000001A0: 22 11 11 22 3B A3 31 34 29 3B 22 12 4C 92 4F 41 |"..";.14);".L.OA|
000001B0: 44 11 22 00 DB 09 48 00 99 A3 31 34 29 22 12 53 |D."...H...14)".S|
000001C0: 92 41 56 45 11 22 3A 99 A3 31 34 29 22 12 49 92 |.AVE.":..14)".I.|
000001D0: 2F 4F 20 43 48 41 4E 47 45 11 22 00 0A 0A 50 00 |/O CHANGE."...P.|
000001E0: 99 A3 31 34 29 22 12 45 92 44 49 54 20 54 45 58 |..14)".E.DIT TEX|
000001F0: 54 11 22 3A 99 A3 31 34 29 22 12 43 92 4C 45 41 |T.":..14)".C.LEA|
00000200: 52 20 4D 45 4D 4F 52 59 11 22 00 22 0A 51 00 99 |R MEMORY.".".Q..|
00000210: A3 31 34 29 22 12 50 92 52 49 4E 54 20 4F 55 54 |.14)".P.RINT OUT|
00000220: 11 22 00 55 0A 52 00 99 A3 31 34 29 22 12 41 92 |.".U.R...14)".A.|
00000230: 4C 54 45 52 20 50 52 49 4E 54 45 52 11 22 3A 99 |LTER PRINTER.":.|
00000240: A3 31 34 29 22 12 51 92 55 49 54 20 50 52 4F 47 |.14)".Q.UIT PROG|
00000250: 52 41 4D 11 22 00 76 0A 55 00 99 A3 31 32 29 22 |RAM.".v.U...12)"|
00000260: 11 12 9F 20 20 53 45 4C 45 43 54 20 4F 50 54 49 |... SELECT OPTI|
00000270: 4F 4E 20 20 9E 22 00 8B 0A 5A 00 A1 20 42 24 3A |ON ."...Z.. B$:|
00000280: 8B 20 42 24 B2 22 22 A7 20 39 30 00 BF 0A 64 00 |. B$."". 90...d.|
00000290: 42 B2 30 3A 81 20 46 B2 31 20 A4 20 38 3A 8B 20 |B.0:. F.1 . 8:. |
000002A0: 42 24 B2 CA 28 22 4C 53 49 45 43 50 41 51 22 2C |B$..("LSIECPAQ",|
000002B0: 46 2C 31 29 A7 20 42 B2 46 3A 89 20 31 31 30 00 |F,1). B.F:. 110.|
000002C0: D2 0A 66 00 82 20 46 3A 8B 20 42 B2 30 20 A7 20 |..f.. F:. B.0 . |
000002D0: 39 30 00 01 0B 6E 00 91 20 42 20 8D 34 35 30 30 |90...n.. B .4500|
000002E0: 2C 34 30 30 30 2C 35 30 30 30 2C 31 30 30 30 2C |,4000,5000,1000,|
000002F0: 31 36 30 2C 33 30 30 30 2C 35 35 30 30 2C 31 33 |160,3000,5500,13|
00000300: 30 00 0A 0B 78 00 89 20 37 30 00 32 0B 82 00 99 |0...x.. 70.2....|
00000310: 20 51 44 24 3B A3 31 31 29 3B 22 91 12 9F 41 52 | QD$;.11);"...AR|
00000320: 45 20 59 4F 55 20 53 55 52 45 20 28 59 2F 4E 29 |E YOU SURE (Y/N)|
00000330: 3F 22 00 53 0B 8C 00 A1 20 52 24 3A 8B 20 52 24 |?".S.... R$:. R$|
00000340: B3 B1 22 59 22 AF 20 52 24 B3 B1 22 4E 22 A7 20 |.."Y". R$.."N". |
00000350: 31 34 30 00 68 0B 96 00 8B 20 52 24 B2 22 59 22 |140.h.... R$."Y"|
00000360: A7 20 99 22 93 22 3A 80 00 6E 0B 9B 00 8E 00 AC |. .".":..n......|
00000370: 0B A0 00 99 22 93 11 12 22 3B A3 31 33 29 3B 22 |...."...";.13);"|
00000380: 9F 43 4C 45 41 52 20 4D 45 4D 4F 52 59 9E 22 3A |.CLEAR MEMORY.":|
00000390: 99 A3 31 30 29 22 11 11 41 52 45 20 59 4F 55 20 |..10)"..ARE YOU |
000003A0: 53 55 52 45 20 28 59 2F 4E 29 3F 22 00 CD 0B AA |SURE (Y/N)?"....|
000003B0: 00 A1 20 42 24 3A 8B 20 42 24 B3 B1 22 59 22 AF |.. B$:. B$.."Y".|
000003C0: 20 42 24 B3 B1 22 4E 22 A7 20 31 37 30 00 DD 0B | B$.."N". 170...|
000003D0: B4 00 8B 20 42 24 B2 22 4E 22 A7 20 8E 00 EC 0B |... B$."N". ....|
000003E0: BE 00 8B 20 54 4C B2 31 20 A7 20 8E 00 2F 0C C3 |... TL.1 . ../..|
000003F0: 00 81 20 4B B2 31 20 A4 20 54 4C AB 31 3A 54 58 |.. K.1 . TL.1:TX|
00000400: 24 28 4B 29 B2 22 22 3A 82 3A 54 58 24 28 31 29 |$(K)."":.:TX$(1)|
00000410: B2 54 58 24 28 54 4C 29 3A 54 58 24 28 54 4C 29 |.TX$(TL):TX$(TL)|
00000420: B2 22 22 3A 54 4C B2 31 3A 43 50 B2 31 3A 8E 00 |."":TL.1:CP.1:..|
00000430: 68 0C E8 03 99 22 93 0E 11 12 22 3B A3 31 35 29 |h...."....";.15)|
00000440: 3B 22 9F C5 44 49 54 D4 45 58 54 9E 22 3A 99 22 |;"..DIT.EXT.":."|
00000450: 11 11 22 3B A3 31 34 29 3B 22 12 D4 92 4F 50 20 |..";.14);"...OP |
00000460: 4F 46 20 54 45 58 54 22 00 A1 0C EA 03 99 A3 31 |OF TEXT".......1|
00000470: 34 29 22 11 12 C2 92 4F 54 54 4F 4D 20 4F 46 20 |4)"....OTTOM OF |
00000480: 54 45 58 54 22 3A 99 A3 31 34 29 22 11 12 CE 92 |TEXT":..14)"....|
00000490: 45 58 54 20 4C 49 4E 45 20 4F 46 20 54 45 58 54 |EXT LINE OF TEXT|
000004A0: 22 00 B9 0C EC 03 99 A3 31 34 29 22 11 12 CD 92 |".......14)"....|
000004B0: 41 49 4E 20 4D 45 4E 55 22 00 D0 0C F2 03 A1 20 |AIN MENU"...... |
000004C0: 42 24 3A 8B 20 42 24 B2 22 22 A7 20 31 30 31 30 |B$:. B$."". 1010|
000004D0: 00 01 0D FC 03 42 B2 30 3A 81 20 46 B2 31 20 A4 |.....B.0:. F.1 .|
000004E0: 20 34 3A 8B 20 42 24 B2 CA 28 22 54 42 4E 4D 22 | 4:. B$..("TBNM"|
000004F0: 2C 46 2C 31 29 A7 20 42 B2 46 3A 89 20 31 30 33 |,F,1). B.F:. 103|
00000500: 30 00 10 0D FE 03 82 20 46 3A 89 20 31 30 31 30 |0...... F:. 1010|
00000510: 00 2E 0D 06 04 91 20 42 20 89 20 31 30 35 30 2C |...... B . 1050,|
00000520: 31 30 36 30 2C 31 30 37 30 2C 31 30 38 30 00 47 |1060,1070,1080.G|
00000530: 0D 10 04 8B 20 54 4C B2 33 20 B0 20 43 50 B2 31 |.... TL.3 . CP.1|
00000540: 20 A7 20 31 30 37 30 00 57 0D 1A 04 43 50 B2 31 | . 1070.W...CP.1|
00000550: 3A 89 20 31 30 37 30 00 61 0D 24 04 43 50 B2 54 |:. 1070.a.$.CP.T|
00000560: 4C 00 7F 0D 2E 04 99 22 93 22 3A 8D 20 32 30 39 |L......".":. 209|
00000570: 30 3A 8D 20 31 35 30 30 3A 89 20 31 30 30 30 00 |0:. 1500:. 1000.|
00000580: 85 0D 38 04 8E 00 94 0D DC 05 41 24 B2 22 20 22 |..8.......A$." "|
00000590: 3A 50 B2 30 00 A6 0D E1 05 8B 20 45 4D B2 31 20 |:P.0...... EM.1 |
000005A0: A7 20 32 35 30 30 00 B1 0D E6 05 97 31 39 38 2C |. 2500......198,|
000005B0: 30 00 C4 0D EB 05 99 20 C8 28 47 43 24 2C 32 33 |0...... .(GC$,23|
000005C0: 29 41 24 3B 00 DA 0D F0 05 43 48 B2 C2 28 31 39 |)A$;.....CH..(19|
000005D0: 30 34 AA 50 29 3A A1 20 54 24 00 03 0E F1 05 8B |04.P):. T$......|
000005E0: 20 C3 28 41 24 29 B2 38 31 20 B0 20 54 24 B2 C7 | .(A$).81 . T$..|
000005F0: 28 31 33 29 A7 20 8D 20 32 30 30 30 3A 89 20 31 |(13). . 2000:. 1|
00000600: 35 31 35 00 3F 0E F2 05 43 48 B2 28 43 48 AA 31 |515.?...CH.(CH.1|
00000610: 32 38 29 AF 20 32 35 35 3A 97 31 39 30 34 AA 50 |28). 255:.1904.P|
00000620: 2C 43 48 3A 43 48 B2 28 43 48 AA 31 32 38 29 AF |,CH:CH.(CH.128).|
00000630: 20 32 35 35 3A 97 31 39 30 34 AA 50 2C 43 48 00 | 255:.1904.P,CH.|
00000640: 5B 0E FA 05 8B 20 54 24 B2 22 22 B0 20 54 24 B2 |[.... T$."". T$.|
00000650: C7 28 33 34 29 A7 20 31 35 32 30 00 76 0E 04 06 |.(34). 1520.v...|
00000660: 8B 20 54 24 B2 22 91 22 B0 20 54 24 B2 22 11 22 |. T$.".". T$."."|
00000670: A7 20 31 35 32 30 00 AE 0E 0E 06 8B 20 50 B3 C3 |. 1520...... P..|
00000680: 28 41 24 29 AB 31 20 AF 20 54 24 B2 C7 28 31 30 |(A$).1 . T$..(10|
00000690: 29 A7 20 41 24 B2 C8 28 41 24 2C 50 29 AA CA 28 |). A$..(A$,P)..(|
000006A0: 41 24 2C 50 AA 32 29 3A 89 20 31 36 30 30 00 C3 |A$,P.2):. 1600..|
000006B0: 0E 0F 06 8B 20 54 24 B2 C7 28 31 30 29 A7 20 31 |.... T$..(10). 1|
000006C0: 35 32 30 00 D6 0E 13 06 8B 20 54 24 B2 C7 28 31 |520...... T$..(1|
000006D0: 33 36 29 A7 20 8E 00 F3 0E 18 06 8B 20 54 24 B2 |36). ....... T$.|
000006E0: C7 28 31 33 34 29 AF 20 43 50 B2 31 20 A7 20 31 |.(134). CP.1 . 1|
000006F0: 35 32 30 00 2D 0F 19 06 8B 20 54 24 B2 C7 28 31 |520.-.... T$..(1|
00000700: 33 34 29 A7 20 41 24 B2 54 58 24 28 43 50 AB 31 |34). A$.TX$(CP.1|
00000710: 29 AA 22 20 22 3A 54 24 B2 22 22 3A 50 B2 30 3A |)." ":T$."":P.0:|
00000720: 8D 20 32 30 39 30 3A 89 20 31 35 31 30 00 57 0F |. 2090:. 1510.W.|
00000730: 1A 06 8B 20 54 24 B2 C7 28 31 33 35 29 A7 20 4F |... T$..(135). O|
00000740: 57 B2 B6 28 31 AB 4F 57 29 3A 8D 20 32 30 39 30 |W..(1.OW):. 2090|
00000750: 3A 89 20 31 35 31 30 00 71 0F 1B 06 8B 20 54 24 |:. 1510.q.... T$|
00000760: B2 22 13 22 A7 20 43 50 B2 31 3A 8D 20 32 30 39 |.".". CP.1:. 209|
00000770: 30 00 9B 0F 1C 06 8B 20 54 24 B2 C7 28 31 33 33 |0...... T$..(133|
00000780: 29 A7 20 45 4D B2 31 3A 50 4D B2 43 50 3A 8D 20 |). EM.1:PM.CP:. |
00000790: 32 30 39 30 3A 89 20 31 35 30 35 00 B7 0F 1D 06 |2090:. 1505.....|
000007A0: 8B 20 54 24 B2 22 93 22 A7 20 8D 20 32 30 39 30 |. T$.".". . 2090|
000007B0: 3A 89 20 31 35 30 30 00 CD 0F 1F 06 8B 20 54 24 |:. 1500...... T$|
000007C0: B3 B1 C7 28 32 30 29 A7 20 31 35 38 30 00 DE 0F |...(20). 1580...|
000007D0: 22 06 8B 20 50 B2 30 20 A7 20 31 35 31 30 00 FF |".. P.0 . 1510..|
000007E0: 0F 24 06 41 24 B2 C8 28 41 24 2C 50 AB 31 29 AA |.$.A$..(A$,P.1).|
000007F0: CA 28 41 24 2C 50 AA 31 29 3A 50 B2 50 AB 31 00 |.(A$,P.1):P.P.1.|
00000800: 28 10 27 06 99 20 C8 28 47 43 24 2C 32 33 29 3B |(.'.. .(GC$,23);|
00000810: 3A 81 20 46 B2 31 20 A4 20 C3 28 41 24 29 AB 32 |:. F.1 . .(A$).2|
00000820: 3A 99 22 1D 22 3B 3A 82 00 39 10 29 06 99 22 20 |:.".";:..9.).." |
00000830: 20 22 3A 89 20 31 35 31 30 00 5B 10 2C 06 4B 4A | ":. 1510.[.,.KJ|
00000840: B2 30 3A 8B 20 54 24 B2 C7 28 31 34 38 29 A7 20 |.0:. T$..(148). |
00000850: 54 24 B2 22 20 22 3A 4B 4A B2 31 00 88 10 2E 06 |T$." ":KJ.1.....|
00000860: 8B 20 54 24 B3 B1 C7 28 31 35 37 29 AF 20 54 24 |. T$...(157). T$|
00000870: B3 B1 C7 28 32 39 29 AF 20 C6 28 54 24 29 B3 33 |...(29). .(T$).3|
00000880: 32 20 A7 20 31 35 31 30 00 A8 10 36 06 8B 20 54 |2 . 1510...6.. T|
00000890: 24 B2 C7 28 32 39 29 B0 20 54 24 B2 C7 28 31 35 |$..(29). T$..(15|
000008A0: 37 29 A7 20 31 36 31 30 00 C1 10 37 06 8B 20 4F |7). 1610...7.. O|
000008B0: 57 B2 31 20 AF 20 4A B3 B1 31 20 A7 20 31 35 39 |W.1 . J..1 . 159|
000008C0: 35 00 EA 10 39 06 41 24 B2 C8 28 41 24 2C 50 29 |5...9.A$..(A$,P)|
000008D0: AA 54 24 AA CA 28 41 24 2C 50 AA 31 29 3A 50 B2 |.T$..(A$,P.1):P.|
000008E0: 50 AA 31 3A 89 20 31 36 30 30 00 0C 11 3B 06 42 |P.1:. 1600...;.B|
000008F0: 24 B2 41 24 3A 41 24 B2 C8 28 41 24 2C 50 29 AA |$.A$:A$..(A$,P).|
00000900: 54 24 AA CA 28 41 24 2C 50 AA 32 29 00 20 11 3E |T$..(A$,P.2). .>|
00000910: 06 50 B2 50 AA 31 3A 41 24 B2 41 24 AA 22 20 22 |.P.P.1:A$.A$." "|
00000920: 00 33 11 40 06 99 20 C8 28 47 43 24 2C 32 33 29 |.3.@.. .(GC$,23)|
00000930: 41 24 3B 00 55 11 4A 06 8B 20 54 24 B2 C7 28 32 |A$;.U.J.. T$..(2|
00000940: 39 29 AF 20 50 B3 C3 28 41 24 29 AB 31 20 A7 20 |9). P..(A$).1 . |
00000950: 50 B2 50 AA 31 00 79 11 54 06 8B 28 54 24 B2 C7 |P.P.1.y.T..(T$..|
00000960: 28 31 35 37 29 AF 20 50 B1 30 29 B0 20 4B 4A B2 |(157). P.0). KJ.|
00000970: 31 20 A7 20 50 B2 50 AB 31 00 84 11 5E 06 89 20 |1 . P.P.1...^.. |
00000980: 31 35 32 30 00 96 11 A4 06 8B 20 43 50 B2 31 20 |1520...... CP.1 |
00000990: A7 20 31 35 31 30 00 C8 11 AE 06 43 50 B2 43 50 |. 1510.....CP.CP|
000009A0: AB 31 3A 81 20 46 B2 43 50 20 A4 20 54 4C 3A 54 |.1:. F.CP . TL:T|
000009B0: 58 24 28 46 29 B2 54 58 24 28 46 AA 31 29 3A 82 |X$(F).TX$(F.1):.|
000009C0: 3A 54 4C B2 54 4C AB 31 00 D3 11 B8 06 8D 20 32 |:TL.TL.1...... 2|
000009D0: 30 39 30 00 DE 11 C2 06 89 20 31 35 31 30 00 F2 |090...... 1510..|
000009E0: 11 08 07 8B 20 54 4C B1 34 39 39 20 A7 20 31 35 |.... TL.499 . 15|
000009F0: 31 30 00 2F 12 12 07 81 20 46 B2 54 4C AA 31 20 |10./.... F.TL.1 |
00000A00: A4 20 43 50 AA 31 20 A9 AB 31 3A 54 58 24 28 46 |. CP.1 ..1:TX$(F|
00000A10: 29 B2 54 58 24 28 46 AB 31 29 3A 82 3A 54 4C B2 |).TX$(F.1):.:TL.|
00000A20: 54 4C AA 31 3A 54 58 24 28 43 50 29 B2 22 22 00 |TL.1:TX$(CP)."".|
00000A30: 41 12 1C 07 8D 20 32 30 39 30 3A 89 20 31 35 31 |A.... 2090:. 151|
00000A40: 30 00 59 12 D0 07 58 B2 30 3A 8B 20 54 4C B1 34 |0.Y...X.0:. TL.4|
00000A50: 39 39 20 A7 20 32 30 36 30 00 8C 12 D1 07 8B 20 |99 . 2060...... |
00000A60: C3 28 41 24 29 B3 34 31 20 A7 20 54 54 24 28 58 |.(A$).41 . TT$(X|
00000A70: 29 B2 C8 28 41 24 2C C3 28 41 24 29 AB 31 29 3A |)..(A$,.(A$).1):|
00000A80: 41 24 B2 22 22 3A 89 20 32 30 33 30 00 B8 12 DA |A$."":. 2030....|
00000A90: 07 81 20 49 B2 34 31 20 A4 20 31 20 A9 AB 31 3A |.. I.41 . 1 ..1:|
00000AA0: 8B 20 CA 28 41 24 2C 49 2C 31 29 B3 B1 22 20 22 |. .(A$,I,1).." "|
00000AB0: A7 20 82 3A 49 B2 34 31 00 D8 12 E4 07 54 54 24 |. .:I.41.....TT$|
00000AC0: 28 58 29 B2 C8 28 41 24 2C 34 30 29 3A 41 24 B2 |(X)..(A$,40):A$.|
00000AD0: CA 28 41 24 2C 34 31 29 00 FA 12 EE 07 58 B2 58 |.(A$,41).....X.X|
00000AE0: AA 31 3A 8B 20 41 24 B3 B1 22 22 AF 20 41 24 B3 |.1:. A$.."". A$.|
00000AF0: B1 22 20 22 A7 20 32 30 30 31 00 26 13 F8 07 81 |." ". 2001.&....|
00000B00: 20 49 B2 54 4C AA 58 20 A4 20 43 50 AA 58 20 A9 | I.TL.X . CP.X .|
00000B10: AB 31 3A 54 58 24 28 49 29 B2 54 58 24 28 49 AB |.1:TX$(I).TX$(I.|
00000B20: 58 29 3A 82 20 49 00 49 13 02 08 81 20 49 B2 30 |X):. I.I.... I.0|
00000B30: 20 A4 20 58 AB 31 3A 54 58 24 28 43 50 AA 49 29 | . X.1:TX$(CP.I)|
00000B40: B2 54 54 24 28 49 29 3A 82 00 67 13 0C 08 41 24 |.TT$(I):..g...A$|
00000B50: B2 22 20 22 3A 50 B2 30 3A 99 20 C8 28 47 43 24 |." ":P.0:. .(GC$|
00000B60: 2C 32 33 29 41 24 3B 00 7B 13 20 08 54 4C B2 54 |,23)A$;.{. .TL.T|
00000B70: 4C AA 58 3A 43 50 B2 43 50 AA 58 00 95 13 2A 08 |L.X:CP.CP.X...*.|
00000B80: 8B 20 43 50 B3 31 35 20 A7 20 53 31 B2 30 3A 89 |. CP.15 . S1.0:.|
00000B90: 20 32 31 30 30 00 A2 13 2F 08 53 31 B2 43 50 AB | 2100.../.S1.CP.|
00000BA0: 31 35 00 D9 13 34 08 99 22 93 22 3B 3A 81 20 4B |15...4..".";:. K|
00000BB0: B2 53 31 A4 53 31 AA 31 35 3A 99 54 58 24 28 4B |.S1.S1.15:.TX$(K|
00000BC0: 29 3B 3A 8B 20 C3 28 54 58 24 28 4B 29 29 B3 34 |);:. .(TX$(K)).4|
00000BD0: 30 A7 99 C7 28 31 36 30 29 00 F1 13 3E 08 8B 20 |0...(160)...>.. |
00000BE0: 4B B2 43 50 AB 31 20 A7 20 99 22 9A 12 20 92 9E |K.CP.1 . .".. ..|
00000BF0: 22 00 F7 13 48 08 82 00 39 14 4A 08 99 22 12 1F |"...H...9.J.."..|
00000C00: 22 53 50 24 22 9F 30 9A 31 32 33 34 35 36 37 38 |"SP$".0.12345678|
00000C10: 39 9F 30 9A 31 32 33 34 35 36 37 38 39 9F 30 9A |9.0.123456789.0.|
00000C20: 31 32 33 34 35 36 37 38 39 9F 30 9A 31 32 33 34 |123456789.0.1234|
00000C30: 35 36 37 38 39 9E 92 22 3B 00 5F 14 52 08 99 22 |56789..";._.R.."|
00000C40: 9C 4D 45 4D 22 3B 42 4C 24 3B 22 46 52 45 45 3D |.MEM";BL$;"FREE=|
00000C50: 9D 22 3B 34 30 AC 28 35 30 31 AB 54 4C 29 3B 00 |.";40.(501.TL);.|
00000C60: 92 14 5C 08 99 22 9D 4F 2F 57 20 4D 4F 44 45 3D |..\..".O/W MODE=|
00000C70: 9D 22 4F 57 22 9D 45 44 49 54 20 4D 4F 44 45 3D |."OW".EDIT MODE=|
00000C80: 22 3B 45 4D 3A 99 22 1F 22 53 57 24 22 9E 22 3B |";EM:."."SW$".";|
00000C90: 3A 8E 00 A5 14 C4 09 8B 20 43 50 B3 35 20 A7 20 |:....... CP.5 . |
00000CA0: 50 4D B2 43 50 00 BD 14 CE 09 A1 54 42 24 3A 8B |PM.CP......TB$:.|
00000CB0: 20 54 42 24 B2 22 22 A7 20 32 35 31 30 00 D8 14 | TB$."". 2510...|
00000CC0: D0 09 8B 20 50 4D B2 31 20 AF 20 54 42 24 B2 22 |... PM.1 . TB$."|
00000CD0: 91 22 A7 20 32 35 31 30 00 03 15 D8 09 8B 20 50 |.". 2510...... P|
00000CE0: 4D B1 31 20 AF 20 54 42 24 B2 22 91 22 A7 20 50 |M.1 . TB$.".". P|
00000CF0: 4D B2 50 4D AB 31 3A 43 50 B2 50 4D 3A 89 20 32 |M.PM.1:CP.PM:. 2|
00000D00: 35 35 30 00 2F 15 DD 09 8B 20 50 4D B3 54 4C 20 |550./.... PM.TL |
00000D10: AF 20 54 42 24 B2 22 11 22 A7 20 50 4D B2 50 4D |. TB$.".". PM.PM|
00000D20: AA 31 3A 43 50 B2 50 4D 3A 89 20 32 35 35 30 00 |.1:CP.PM:. 2550.|
00000D30: 5A 15 E2 09 8B 20 50 4D B1 35 20 AF 20 54 42 24 |Z.... PM.5 . TB$|
00000D40: B2 22 5E 22 A7 20 50 4D B2 50 4D AB 35 3A 43 50 |."^". PM.PM.5:CP|
00000D50: B2 50 4D 3A 89 20 32 35 35 30 00 88 15 E7 09 8B |.PM:. 2550......|
00000D60: 20 50 4D B3 54 4C AB 35 20 AF 20 54 42 24 B2 22 | PM.TL.5 . TB$."|
00000D70: 5F 22 A7 20 50 4D B2 50 4D AA 35 3A 43 50 B2 50 |_". PM.PM.5:CP.P|
00000D80: 4D 3A 89 20 32 35 35 30 00 93 15 EC 09 89 20 32 |M:. 2550...... 2|
00000D90: 35 36 30 00 A5 15 F6 09 8D 20 32 30 39 30 3A 89 |560...... 2090:.|
00000DA0: 20 32 35 31 30 00 CA 15 00 0A 8B 20 54 42 24 B2 | 2510...... TB$.|
00000DB0: C7 28 31 33 36 29 A7 20 45 4D B2 30 3A 8D 20 32 |.(136). EM.0:. 2|
00000DC0: 30 39 30 3A 89 20 31 35 30 35 00 E2 15 0A 0A 8B |090:. 1505......|
00000DD0: 20 54 42 24 B3 B1 C7 28 31 34 38 29 A7 20 32 35 | TB$...(148). 25|
00000DE0: 38 30 00 F4 15 0B 0A 8B 20 43 50 B3 31 20 A7 20 |80...... CP.1 . |
00000DF0: 32 35 31 30 00 31 16 0C 0A 81 20 4B B2 54 4C AA |2510.1.... K.TL.|
00000E00: 31 20 A4 20 50 4D AA 31 20 A9 AB 31 3A 54 58 24 |1 . PM.1 ..1:TX$|
00000E10: 28 4B 29 B2 54 58 24 28 4B AB 31 29 3A 82 3A 54 |(K).TX$(K.1):.:T|
00000E20: 4C B2 54 4C AA 31 3A 54 58 24 28 50 4D 29 B2 22 |L.TL.1:TX$(PM)."|
00000E30: 22 00 43 16 0D 0A 8D 20 32 30 39 30 3A 89 20 32 |".C.... 2090:. 2|
00000E40: 35 31 30 00 5A 16 14 0A 8B 20 54 42 24 B3 B1 C7 |510.Z.... TB$...|
00000E50: 28 32 30 29 A7 20 32 35 39 30 00 6D 16 15 0A 8B |(20). 2590.m....|
00000E60: 20 50 4D B2 54 4C 20 A7 20 32 35 31 30 00 97 16 | PM.TL . 2510...|
00000E70: 16 0A 81 20 4B B2 50 4D 20 A4 20 54 4C 3A 54 58 |... K.PM . TL:TX|
00000E80: 24 28 4B 29 B2 54 58 24 28 4B AA 31 29 3A 82 3A |$(K).TX$(K.1):.:|
00000E90: 54 4C B2 54 4C AB 31 00 B6 16 17 0A 54 58 24 28 |TL.TL.1.....TX$(|
00000EA0: 54 4C AA 31 29 B2 22 22 3A 8D 20 32 30 39 30 3A |TL.1)."":. 2090:|
00000EB0: 89 20 32 35 39 30 00 C2 16 18 0A 43 50 B2 43 50 |. 2590.....CP.CP|
00000EC0: AB 31 00 EF 16 1E 0A 8B 20 54 42 24 B2 22 40 22 |.1...... TB$."@"|
00000ED0: A7 20 53 46 B2 53 46 AA 31 3A 8B 20 53 46 B2 31 |. SF.SF.1:. SF.1|
00000EE0: 20 A7 20 53 53 B2 43 50 3A 89 20 32 35 31 30 00 | . SS.CP:. 2510.|
00000EF0: 15 17 28 0A 8B 20 53 46 B2 32 20 A7 20 53 45 B2 |..(.. SF.2 . SE.|
00000F00: 43 50 3A 53 46 B2 30 3A 8D 20 35 31 33 30 3A 89 |CP:SF.0:. 5130:.|
00000F10: 20 32 35 31 30 00 2B 17 32 0A 8B 20 54 42 24 B2 | 2510.+.2.. TB$.|
00000F20: 22 53 22 A7 20 8D 20 35 30 37 30 00 36 17 3C 0A |"S". . 5070.6.<.|
00000F30: 89 20 32 35 31 30 00 48 17 B8 0B 8B 20 54 4C B3 |. 2510.H.... TL.|
00000F40: 32 20 A7 20 33 30 35 30 00 6D 17 C2 0B 99 22 93 |2 . 3050.m....".|
00000F50: 11 12 22 A3 31 32 29 22 9F 50 52 49 4E 54 45 52 |..".12)".PRINTER|
00000F60: 20 52 4F 55 54 49 4E 45 9E 22 3A A0 34 00 95 17 | ROUTINE.":.4...|
00000F70: CC 0B 99 22 11 11 1D 46 52 4F 4D 20 12 4D 92 45 |..."...FROM .M.E|
00000F80: 4D 4F 52 59 20 4F 52 20 46 52 4F 4D 20 12 46 92 |MORY OR FROM .F.|
00000F90: 49 4C 45 3F 22 00 B7 17 D6 0B A1 20 52 24 3A 8B |ILE?"...... R$:.|
00000FA0: 20 52 24 B3 B1 22 4D 22 AF 20 52 24 B3 B1 22 46 | R$.."M". R$.."F|
00000FB0: 22 A7 20 33 30 33 30 00 CA 17 E0 0B 8B 20 52 24 |". 3030...... R$|
00000FC0: B2 22 4D 22 A7 20 33 30 36 30 00 D5 17 EA 0B 8D |."M". 3060......|
00000FD0: 20 34 35 30 30 00 09 18 F4 0B 8B 20 54 4C B2 31 | 4500...... TL.1|
00000FE0: 20 A7 20 99 20 A3 31 31 29 22 11 11 11 12 9F 4E | . . .11)".....N|
00000FF0: 4F 20 46 49 4C 45 20 49 4E 20 4D 45 4D 4F 52 59 |O FILE IN MEMORY|
00001000: 9E 22 3A 89 20 33 35 37 30 00 32 18 FE 0B 4B 46 |.":. 3570.2...KF|
00001010: B2 30 3A 99 22 1D 11 46 49 4C 4C 20 56 41 52 49 |.0:."..FILL VARI|
00001020: 41 42 4C 45 20 42 4C 4F 43 4B 53 28 59 2F 4E 29 |ABLE BLOCKS(Y/N)|
00001030: 3F 22 00 54 18 08 0C A1 20 52 24 3A 8B 20 52 24 |?".T.... R$:. R$|
00001040: B3 B1 22 59 22 AF 20 52 24 B3 B1 22 4E 22 A7 20 |.."Y". R$.."N". |
00001050: 33 30 38 30 00 67 18 12 0C 8B 20 52 24 B2 22 4E |3080.g.... R$."N|
00001060: 22 A7 20 33 31 35 30 00 88 18 1C 0C 99 3A 99 22 |". 3150......:."|
00001070: 11 1D 12 4B 92 45 59 42 4F 41 52 44 20 4F 52 20 |...K.EYBOARD OR |
00001080: 12 46 92 49 4C 45 3F 22 00 AA 18 26 0C A1 20 52 |.F.ILE?"...&.. R|
00001090: 24 3A 8B 20 52 24 B3 B1 22 4B 22 AF 20 52 24 B3 |$:. R$.."K". R$.|
000010A0: B1 22 46 22 A7 20 33 31 31 30 00 C9 18 30 0C 4B |."F". 3110...0.K|
000010B0: 46 B2 32 3A 8B 20 52 24 B2 22 4B 22 A7 20 4B 46 |F.2:. R$."K". KF|
000010C0: B2 31 3A 89 20 33 31 35 30 00 F2 18 3A 0C 85 22 |.1:. 3150...:.."|
000010D0: 11 49 4E 50 55 54 20 46 49 4C 45 4E 41 4D 45 22 |.INPUT FILENAME"|
000010E0: 3B 56 42 24 3B 56 42 24 B2 C8 28 56 42 24 2C 31 |;VB$;VB$..(VB$,1|
000010F0: 36 29 00 19 19 44 0C 8B 20 C8 28 56 42 24 2C 31 |6)...D.. .(VB$,1|
00001100: 29 B3 22 41 22 B0 20 C8 28 56 42 24 2C 31 29 B1 |)."A". .(VB$,1).|
00001110: 22 5A 22 A7 20 33 31 33 30 00 49 19 4E 0C 99 22 |"Z". 3130.I.N.."|
00001120: 93 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |.DO YOU WISH TO |
00001130: 43 48 41 4E 47 45 20 54 48 45 20 50 52 49 4E 54 |CHANGE THE PRINT|
00001140: 45 52 28 59 2F 4E 29 3F 22 00 6B 19 58 0C A1 20 |ER(Y/N)?".k.X.. |
00001150: 52 24 3A 8B 20 52 24 B3 B1 22 59 22 AF 20 52 24 |R$:. R$.."Y". R$|
00001160: B3 B1 22 4E 22 A7 20 33 31 36 30 00 80 19 62 0C |.."N". 3160...b.|
00001170: 8B 20 52 24 B2 22 59 22 A7 20 8D 20 35 35 30 30 |. R$."Y". . 5500|
00001180: 00 89 19 6C 0C 99 22 93 22 00 D4 19 76 0C 56 42 |...l.."."...v.VB|
00001190: B2 30 3A 50 50 B2 30 3A 41 53 B2 30 3A 4C 43 B2 |.0:PP.0:AS.0:LC.|
000011A0: 31 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 |1:."DO YOU WISH |
000011B0: 46 4F 52 20 41 20 53 41 4D 50 4C 45 20 4F 55 54 |FOR A SAMPLE OUT|
000011C0: 50 55 54 20 54 4F 20 54 48 45 20 20 53 43 52 45 |PUT TO THE SCRE|
000011D0: 45 4E 22 3B 00 07 1A 77 0C 99 22 20 28 59 2F 4E |EN";...w.." (Y/N|
000011E0: 29 2E 3C 52 45 54 55 52 4E 3E 20 54 4F 20 52 45 |).<RETURN> TO RE|
000011F0: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E |TURN TO MAIN MEN|
00001200: 55 22 3A 42 4C B2 30 00 34 1A 80 0C A1 20 52 24 |U":BL.0.4.... R$|
00001210: 3A 8B 20 52 24 B3 B1 22 59 22 AF 20 52 24 B3 B1 |:. R$.."Y". R$..|
00001220: 22 4E 22 AF 20 52 24 B3 B1 C7 28 31 33 29 A7 20 |"N". R$...(13). |
00001230: 33 32 30 30 00 46 1A 8A 0C 8B 20 52 24 B2 C7 28 |3200.F.... R$..(|
00001240: 31 33 29 A7 20 8E 00 6B 1A 8B 0C 8B 20 52 24 B2 |13). ..k.... R$.|
00001250: 22 4E 22 A7 20 50 B2 44 4E 3A 9F 34 2C 50 2C 37 |"N". P.DN:.4,P,7|
00001260: 2C 22 11 22 3A 89 20 33 32 32 30 00 7C 1A 8F 0C |,".":. 3220.|...|
00001270: 9F 34 2C 33 3A 99 20 C7 28 31 34 29 00 8F 1A 94 |.4,3:. .(14)....|
00001280: 0C 8B 20 4B 46 B3 B1 32 20 A7 20 33 32 34 30 00 |.. KF..2 . 3240.|
00001290: A8 1A 9E 0C 8B 20 44 4C B2 31 20 AF 20 4B 46 B2 |..... DL.1 . KF.|
000012A0: 32 20 A7 20 33 32 33 32 00 BA 1A 9F 0C 8B 20 4B |2 . 3232...... K|
000012B0: 46 B2 32 20 A7 20 33 32 33 36 00 E0 1A A0 0C 9F |F.2 . 3236......|
000012C0: 32 2C 38 2C 32 2C 56 42 24 AA 22 2C 53 2C 52 22 |2,8,2,VB$.",S,R"|
000012D0: 3A 84 32 2C 44 56 2C 44 56 3A 89 20 33 32 34 30 |:.2,DV,DV:. 3240|
000012E0: 00 F4 1A A4 0C 9F 31 2C 31 2C 30 3A 84 31 2C 44 |......1,1,0:.1,D|
000012F0: 56 2C 44 56 00 20 1B A8 0C 47 50 24 B2 22 22 3A |V,DV. ...GP$."":|
00001300: 8B 20 52 24 B2 22 4E 22 A7 81 46 B2 31 20 A4 20 |. R$."N"..F.1 . |
00001310: 47 50 3A 47 50 24 B2 47 50 24 AA 22 20 22 3A 82 |GP:GP$.GP$." ":.|
00001320: 00 31 1B B2 0C 81 20 4B B2 31 20 A4 20 54 4C AB |.1.... K.1 . TL.|
00001330: 31 00 66 1B B4 0C 8B 20 C8 28 54 58 24 28 4B 29 |1.f.... .(TX$(K)|
00001340: 2C 31 29 B2 22 23 22 AF 20 C3 28 54 58 24 28 4B |,1)."#". .(TX$(K|
00001350: 29 29 AB 31 B1 41 53 20 A7 20 41 53 B2 C3 28 54 |)).1.AS . AS..(T|
00001360: 58 24 28 4B 29 29 00 97 1B BC 0C 82 3A 8B 20 41 |X$(K))......:. A|
00001370: 53 B1 54 57 20 A7 20 99 22 45 52 52 4F 52 3A 41 |S.TW . ."ERROR:A|
00001380: 44 44 52 45 53 53 20 54 4F 4F 20 4C 4F 4E 47 22 |DDRESS TOO LONG"|
00001390: 3A 89 20 33 35 37 30 00 D4 1B C6 0C 4B B2 31 3A |:. 3570.....K.1:|
000013A0: 98 34 2C 4C 46 24 3B 47 50 24 3B 3A 41 53 24 B2 |.4,LF$;GP$;:AS$.|
000013B0: 22 22 3A 8B 41 53 B1 30 A7 81 46 B2 31 A4 47 50 |"":.AS.0..F.1.GP|
000013C0: AA 54 57 AB 41 53 3A 41 53 24 B2 41 53 24 AA 22 |.TW.AS:AS$.AS$."|
000013D0: 20 22 3A 82 00 E3 1B D0 0C 54 54 24 B2 54 58 24 | ":......TT$.TX$|
000013E0: 28 4B 29 00 1B 1C DA 0C 8B 20 54 54 24 B2 22 22 |(K)...... TT$.""|
000013F0: A7 20 99 23 34 2C C7 28 31 33 29 3B 47 50 24 3B |. .#4,.(13);GP$;|
00001400: 3A 50 50 B2 30 3A 4C 43 B2 4C 43 AA 31 3A 8D 20 |:PP.0:LC.LC.1:. |
00001410: 33 35 39 30 3A 89 20 33 35 32 30 00 52 1C E4 0C |3590:. 3520.R...|
00001420: 42 50 B2 30 3A 81 20 46 B2 31 20 A4 20 C3 28 54 |BP.0:. F.1 . .(T|
00001430: 54 24 29 3A 8B 20 CA 28 54 54 24 2C 46 2C 32 29 |T$):. .(TT$,F,2)|
00001440: B2 22 5D 5B 22 A7 20 42 50 B2 46 3A 89 20 33 33 |."][". BP.F:. 33|
00001450: 30 34 00 5A 1C E6 0C 82 20 46 00 73 1C E8 0C 8B |04.Z.... F.s....|
00001460: 20 42 50 B2 30 20 B0 20 4B 46 B2 30 20 A7 20 33 | BP.0 . KF.0 . 3|
00001470: 33 39 30 00 85 1C EE 0C 8B 20 4B 46 B2 31 20 A7 |390...... KF.1 .|
00001480: 20 33 33 37 30 00 97 1C F8 0C 8B 20 44 4C B2 31 | 3370...... DL.1|
00001490: 20 A7 20 33 33 36 30 00 AA 1C 02 0D 8B 20 53 54 | . 3360...... ST|
000014A0: B2 36 34 20 A7 20 33 33 35 30 00 BC 1C 0C 0D 84 |.64 . 3350......|
000014B0: 31 2C 52 50 24 3A 89 20 33 33 38 30 00 E8 1C 16 |1,RP$:. 3380....|
000014C0: 0D 99 22 45 52 52 4F 52 2D 4E 4F 54 20 45 4E 4F |.."ERROR-NOT ENO|
000014D0: 55 47 48 20 44 41 54 41 20 49 4E 20 46 49 4C 45 |UGH DATA IN FILE|
000014E0: 22 3A 89 20 33 35 37 30 00 FB 1C 20 0D 8B 20 53 |":. 3570... .. S|
000014F0: 54 B2 36 34 20 A7 20 33 33 35 30 00 0D 1D 22 0D |T.64 . 3350...".|
00001500: 84 32 2C 52 50 24 3A 89 20 33 33 38 30 00 44 1D |.2,RP$:. 3380.D.|
00001510: 2A 0D 42 4C B2 42 4C AA 31 3A 99 3A 52 50 24 B2 |*.BL.BL.1:.:RP$.|
00001520: 22 22 3A 99 22 49 4E 50 55 54 20 56 41 52 49 41 |"":."INPUT VARIA|
00001530: 42 4C 45 20 42 4C 4F 43 4B 22 3B 42 4C 3B 3A 85 |BLE BLOCK";BL;:.|
00001540: 20 52 50 24 00 6F 1D 34 0D 54 54 24 B2 C8 28 54 | RP$.o.4.TT$..(T|
00001550: 54 24 2C 42 50 AB 31 29 AA 52 50 24 AA CA 28 54 |T$,BP.1).RP$..(T|
00001560: 54 24 2C 42 50 AA 32 29 3A 89 20 33 33 30 30 00 |T$,BP.2):. 3300.|
00001570: A1 1D 3E 0D 43 46 B2 30 3A 81 20 46 B2 31 20 A4 |..>.CF.0:. F.1 .|
00001580: 20 34 3A 8B 20 C8 28 54 54 24 2C 31 29 B2 CA 28 | 4:. .(TT$,1)..(|
00001590: 22 26 24 2A 23 22 2C 46 2C 31 29 A7 20 43 46 B2 |"&$*#",F,1). CF.|
000015A0: 46 00 C4 1D 3F 0D 82 20 46 3A 91 20 43 46 20 89 |F...?.. F:. CF .|
000015B0: 20 33 34 36 30 2C 33 34 37 30 2C 33 34 39 30 2C | 3460,3470,3490,|
000015C0: 33 35 31 30 00 F7 1D 48 0D 8B 20 50 50 AA C3 28 |3510...H.. PP..(|
000015D0: 54 54 24 29 B3 B2 54 57 20 A7 20 99 23 34 2C 54 |TT$)..TW . .#4,T|
000015E0: 54 24 3B 3A 50 50 B2 50 50 AA C3 28 54 54 24 29 |T$;:PP.PP..(TT$)|
000015F0: 3A 89 20 33 35 32 30 00 0C 1E 52 0D 54 41 24 B2 |:. 3520...R.TA$.|
00001600: C8 28 54 54 24 2C 54 57 AB 50 50 29 00 42 1E 5C |.(TT$,TW.PP).B.\|
00001610: 0D 43 46 B2 30 3A 81 20 46 B2 31 20 A4 20 C3 28 |.CF.0:. F.1 . .(|
00001620: 54 54 24 29 3A 8B 20 CA 28 54 54 24 2C 46 2C 31 |TT$):. .(TT$,F,1|
00001630: 29 B2 22 20 22 A7 20 43 46 B2 46 3A 89 20 33 34 |)." ". CF.F:. 34|
00001640: 32 32 00 4A 1E 5D 0D 82 20 46 00 7D 1E 5E 0D 8B |22.J.].. F.}.^..|
00001650: 20 43 46 B1 54 57 20 A7 20 99 22 45 52 52 4F 52 | CF.TW . ."ERROR|
00001660: 2D 57 4F 52 44 20 54 4F 4F 20 4C 4F 4E 47 20 49 |-WORD TOO LONG I|
00001670: 4E 22 3B 54 54 24 3A 89 20 33 35 37 30 00 96 1E |N";TT$:. 3570...|
00001680: 66 0D 8B 20 C9 28 54 41 24 2C 31 29 B2 22 20 22 |f.. .(TA$,1)." "|
00001690: A7 20 33 34 35 30 00 C1 1E 70 0D 8B 20 C3 28 54 |. 3450...p.. .(T|
000016A0: 41 24 29 B1 30 20 A7 20 54 41 24 B2 C8 28 54 41 |A$).0 . TA$..(TA|
000016B0: 24 2C C3 28 54 41 24 29 AB 31 29 3A 89 33 34 33 |$,.(TA$).1):.343|
000016C0: 30 00 FF 1E 7A 0D 98 34 2C 54 41 24 3B C7 28 31 |0...z..4,TA$;.(1|
000016D0: 33 29 3B 47 50 24 3B 3A 50 50 B2 30 3A 4C 43 B2 |3);GP$;:PP.0:LC.|
000016E0: 4C 43 AA 31 3A 8D 20 33 35 39 30 3A 54 54 24 B2 |LC.1:. 3590:TT$.|
000016F0: CA 28 54 54 24 2C C3 28 54 41 24 29 AA 31 29 00 |.(TT$,.(TA$).1).|
00001700: 1A 1F 7C 0D 8B 20 54 54 24 B3 B1 22 22 A7 20 42 |..|.. TT$.."". B|
00001710: 50 B2 31 3A 89 20 33 34 30 30 00 25 1F 7E 0D 89 |P.1:. 3400.%.~..|
00001720: 20 33 35 32 30 00 5D 1F 84 0D 98 34 2C C7 28 31 | 3520.]....4,.(1|
00001730: 33 29 3B C7 28 31 33 29 3B 47 50 24 3B 3A 50 50 |3);.(13);GP$;:PP|
00001740: B2 30 3A 4C 43 B2 4C 43 AA 31 3A 8D 33 35 39 30 |.0:LC.LC.1:.3590|
00001750: 3A 54 54 24 B2 CA 28 54 54 24 2C 32 29 00 68 1F |:TT$..(TT$,2).h.|
00001760: 89 0D 89 20 33 33 30 30 00 98 1F 8E 0D 54 54 24 |... 3300.....TT$|
00001770: B2 CA 28 54 54 24 2C 32 29 3A 99 23 34 2C C7 28 |..(TT$,2):.#4,.(|
00001780: 31 33 29 3B 47 50 24 3B 3A 8B 20 50 50 B3 B1 54 |13);GP$;:. PP..T|
00001790: 57 20 A7 20 33 34 37 39 00 CB 1F 8F 0D 81 20 46 |W . 3479...... F|
000017A0: B2 31 20 A4 20 B5 28 54 58 AD 32 29 3A 99 23 34 |.1 . .(TX.2):.#4|
000017B0: 2C C7 28 33 32 29 3B 3A 82 3A 50 50 B2 B5 28 54 |,.(32);:.:PP..(T|
000017C0: 58 AD 32 29 3A 89 20 33 34 38 30 00 D4 1F 97 0D |X.2):. 3480.....|
000017D0: 50 50 B2 30 00 EE 1F 98 0D 4C 43 B2 4C 43 AA 31 |PP.0.....LC.LC.1|
000017E0: 3A 8D 20 33 35 39 30 3A 89 20 33 33 30 30 00 13 |:. 3590:. 3300..|
000017F0: 20 A2 0D 54 54 24 B2 CA 28 54 54 24 2C 32 29 3A | ..TT$..(TT$,2):|
00001800: 8B 20 C3 28 54 54 24 29 B3 B2 54 57 20 A7 20 33 |. .(TT$)..TW . 3|
00001810: 35 30 30 00 38 20 A3 0D 99 22 45 52 52 4F 52 2D |500.8 ..."ERROR-|
00001820: 43 41 4E 4E 4F 54 20 43 45 4E 54 52 45 22 54 54 |CANNOT CENTRE"TT|
00001830: 24 3A 89 20 33 35 32 30 00 6E 20 AC 0D 99 23 34 |$:. 3520.n ...#4|
00001840: 2C C7 28 31 33 29 3B 47 50 24 3B 3A 81 20 46 B2 |,.(13);GP$;:. F.|
00001850: 31 20 A4 20 B5 28 28 54 57 AB C3 28 54 54 24 29 |1 . .((TW..(TT$)|
00001860: 29 AD 32 29 3A 99 23 2C 22 20 22 3B 3A 82 00 7A |).2):.#," ";:..z|
00001870: 20 AD 0D 99 23 34 2C 54 54 24 00 A8 20 B2 0D 99 | ...#4,TT$.. ...|
00001880: 23 34 2C C7 28 31 33 29 3B 47 50 24 3B 3A 50 50 |#4,.(13);GP$;:PP|
00001890: B2 30 3A 4C 43 B2 4C 43 AA 31 3A 8D 20 33 35 39 |.0:LC.LC.1:. 359|
000018A0: 30 3A 89 20 33 35 32 30 00 D7 20 B6 0D 98 34 2C |0:. 3520.. ...4,|
000018B0: C7 28 31 33 29 3B 41 53 24 3B CA 28 54 54 24 2C |.(13);AS$;.(TT$,|
000018C0: 32 29 3B 3A 50 50 B2 30 3A 4C 43 B2 4C 43 AA 31 |2);:PP.0:LC.LC.1|
000018D0: 3A 8D 20 33 35 39 30 00 F6 20 C0 0D 4B B2 4B AA |:. 3590.. ..K.K.|
000018E0: 31 3A 8B 20 50 B2 33 20 A7 81 20 5A B2 31 20 A4 |1:. P.3 .. Z.1 .|
000018F0: 20 35 30 30 3A 82 00 08 21 CA 0D 8B 20 4B B3 54 | 500:...!... K.T|
00001900: 4C 20 A7 20 33 32 38 30 00 28 21 D4 0D 8B 20 50 |L . 3280.(!... P|
00001910: B3 B1 33 20 A7 20 99 23 34 2C 4C 46 24 3B 4C 46 |..3 . .#4,LF$;LF|
00001920: 24 3A 89 20 33 35 35 30 00 30 21 D5 0D 99 3A 99 |$:. 3550.0!...:.|
00001930: 00 45 21 DE 0D 81 20 5A B2 31 20 A4 20 34 3A A0 |.E!... Z.1 . 4:.|
00001940: 5A 3A 82 20 5A 00 56 21 E8 0D 8B 20 50 B2 30 20 |Z:. Z.V!... P.0 |
00001950: A7 20 33 31 39 30 00 5C 21 E9 0D 8E 00 80 21 F2 |. 3190.\!.....!.|
00001960: 0D 81 20 5A B2 31 20 A4 20 33 30 30 30 3A 82 3A |.. Z.1 . 3000:.:|
00001970: 81 20 5A B2 31 20 A4 20 38 3A A0 5A 3A 82 20 5A |. Z.1 . 8:.Z:. Z|
00001980: 00 86 21 FC 0D 8E 00 AA 21 06 0E 8B 20 4C 43 B1 |..!.....!... LC.|
00001990: 54 48 20 A7 20 99 23 34 2C 4C 46 24 3B 4C 46 24 |TH . .#4,LF$;LF$|
000019A0: 3B 47 50 24 3B 3A 4C 43 B2 31 00 B0 21 10 0E 8E |;GP$;:LC.1..!...|
000019B0: 00 CC 21 A0 0F 99 22 93 11 12 22 A3 31 35 29 22 |..!..."...".15)"|
000019C0: 9F 53 41 56 45 20 46 49 4C 45 9E 22 00 05 22 A5 |.SAVE FILE."..".|
000019D0: 0F 8B 20 54 4C B2 31 20 A7 20 99 20 A3 31 32 29 |.. TL.1 . . .12)|
000019E0: 22 11 11 11 4E 4F 54 48 49 4E 47 20 54 4F 20 53 |"...NOTHING TO S|
000019F0: 41 56 45 22 3A 81 20 5A B2 31 20 A4 20 31 35 30 |AVE":. Z.1 . 150|
00001A00: 30 3A 82 3A 8E 00 2A 22 AA 0F 85 22 13 11 11 11 |0:.:..*"..."....|
00001A10: 11 46 49 4C 45 20 4E 41 4D 45 22 3B 46 24 3A 46 |.FILE NAME";F$:F|
00001A20: 24 B2 C8 28 46 24 2C 31 36 29 00 4F 22 B4 0F 8B |$..(F$,16).O"...|
00001A30: 20 C8 28 46 24 2C 31 29 B3 22 41 22 B0 20 C8 28 | .(F$,1)."A". .(|
00001A40: 46 24 2C 31 29 B1 22 5A 22 A7 20 34 30 31 30 00 |F$,1)."Z". 4010.|
00001A50: 60 22 BE 0F 8B 20 54 53 B2 31 A7 20 34 31 31 30 |`"... TS.1. 4110|
00001A60: 00 A0 22 C8 0F 99 22 93 11 1D 50 4C 41 43 45 20 |.."..."...PLACE |
00001A70: 54 41 50 45 20 49 4E 20 50 4F 53 49 54 49 4F 4E |TAPE IN POSITION|
00001A80: 20 54 48 45 4E 20 50 52 45 53 53 20 54 48 45 1D | THEN PRESS THE.|
00001A90: 1D 1D 52 45 54 55 52 4E 20 4B 45 59 2E 11 11 22 |..RETURN KEY..."|
00001AA0: 00 BB 22 D2 0F A1 20 41 24 3A 8B 20 41 24 B3 B1 |.."... A$:. A$..|
00001AB0: C7 28 31 33 29 A7 20 34 30 35 30 00 C9 22 E6 0F |.(13). 4050.."..|
00001AC0: 9F 31 2C 31 2C 31 2C 46 24 00 DB 22 F0 0F 99 23 |.1,1,1,F$.."...#|
00001AD0: 31 2C 43 50 3A 99 23 31 2C 54 4C 00 03 23 FA 0F |1,CP:.#1,TL..#..|
00001AE0: 81 20 4B B2 30 20 A4 20 54 4C 3A 99 23 31 2C C7 |. K.0 . TL:.#1,.|
00001AF0: 28 33 34 29 AA 54 58 24 28 4B 29 AA C7 28 33 34 |(34).TX$(K)..(34|
00001B00: 29 3A 82 00 0C 23 04 10 A0 31 3A 8E 00 55 23 0E |):...#...1:..U#.|
00001B10: 10 99 22 93 11 1D 45 4E 53 55 52 45 20 44 52 49 |.."...ENSURE DRI|
00001B20: 56 45 20 49 53 20 4F 4E 20 41 4E 44 20 44 49 53 |VE IS ON AND DIS|
00001B30: 4B 20 49 53 20 49 4E 1D 1D 1D 1D 1D 1D 50 4C 41 |K IS IN......PLA|
00001B40: 43 45 2E 54 48 45 4E 20 48 49 54 20 3C 52 45 54 |CE.THEN HIT <RET|
00001B50: 55 52 4E 3E 22 00 70 23 18 10 A1 20 41 24 3A 8B |URN>".p#... A$:.|
00001B60: 20 41 24 B3 B1 C7 28 31 33 29 A7 20 34 31 32 30 | A$...(13). 4120|
00001B70: 00 99 23 22 10 9F 31 2C 38 2C 31 35 2C 22 53 30 |..#"..1,8,15,"S0|
00001B80: 3A 22 AA 46 24 3A A0 31 3A 9F 32 2C 38 2C 32 2C |:".F$:.1:.2,8,2,|
00001B90: 46 24 AA 22 2C 53 2C 57 22 00 A9 23 2C 10 98 32 |F$.",S,W"..#,..2|
00001BA0: 2C 43 50 3A 98 32 2C 54 4C 00 CE 23 36 10 81 20 |,CP:.2,TL..#6.. |
00001BB0: 4B B2 30 20 A4 20 54 4C 3A 98 32 2C C7 28 33 34 |K.0 . TL:.2,.(34|
00001BC0: 29 AA 54 58 24 28 4B 29 AA C7 28 33 34 29 00 D9 |).TX$(K)..(34)..|
00001BD0: 23 40 10 82 3A A0 32 3A 8E 00 F7 23 94 11 99 22 |#@..:.2:...#..."|
00001BE0: 93 11 12 22 A3 31 34 29 22 9F 4C 4F 41 44 20 41 |...".14)".LOAD A|
00001BF0: 20 46 49 4C 45 9E 22 00 09 24 99 11 8B 20 54 4C | FILE."..$... TL|
00001C00: B2 31 20 A7 20 34 35 34 30 00 30 24 9E 11 97 31 |.1 . 4540.0$...1|
00001C10: 39 38 2C 30 3A 99 20 A3 31 30 29 22 11 41 52 45 |98,0:. .10)".ARE|
00001C20: 20 59 4F 55 20 53 55 52 45 28 59 2F 4E 29 3F 22 | YOU SURE(Y/N)?"|
00001C30: 00 52 24 A8 11 A1 20 52 24 3A 8B 20 52 24 B3 B1 |.R$... R$:. R$..|
00001C40: 22 59 22 AF 20 52 24 B3 B1 22 4E 22 A7 20 34 35 |"Y". R$.."N". 45|
00001C50: 32 30 00 62 24 B2 11 8B 20 52 24 B2 22 4E 22 A7 |20.b$... R$."N".|
00001C60: 20 8E 00 72 24 B7 11 54 4C B2 31 3A 89 20 34 35 | ..r$..TL.1:. 45|
00001C70: 30 30 00 9D 24 BC 11 85 22 13 11 11 11 11 1D 49 |00..$..."......I|
00001C80: 4E 50 55 54 20 46 49 4C 45 4E 41 4D 45 22 3B 46 |NPUT FILENAME";F|
00001C90: 24 3A 46 24 B2 C8 28 46 24 2C 31 36 29 00 C2 24 |$:F$..(F$,16)..$|
00001CA0: C6 11 8B 20 C8 28 46 24 2C 31 29 B3 22 41 22 B0 |... .(F$,1)."A".|
00001CB0: 20 C8 28 46 24 2C 31 29 B1 22 5A 22 A7 20 34 35 | .(F$,1)."Z". 45|
00001CC0: 34 30 00 D4 24 D0 11 8B 20 44 4C B2 31 20 A7 20 |40..$... DL.1 . |
00001CD0: 34 36 35 30 00 07 25 DA 11 99 22 93 12 11 1D 1D |4650..%...".....|
00001CE0: 1D 1D 1D 1D 1D 9F 50 4F 53 49 54 49 4F 4E 20 54 |......POSITION T|
00001CF0: 41 50 45 20 54 48 45 4E 20 50 52 45 53 53 20 52 |APE THEN PRESS R|
00001D00: 45 54 55 52 4E 9E 22 00 22 25 E4 11 A1 20 52 24 |ETURN."."%... R$|
00001D10: 3A 8B 20 52 24 B3 B1 C7 28 31 33 29 A7 20 34 35 |:. R$...(13). 45|
00001D20: 38 30 00 30 25 EE 11 9F 31 2C 31 2C 30 2C 46 24 |80.0%...1,1,0,F$|
00001D30: 00 3D 25 F8 11 84 31 2C 43 50 2C 54 4C 00 58 25 |.=%...1,CP,TL.X%|
00001D40: 02 12 81 20 4B B2 30 20 A4 20 54 4C 3A 84 31 2C |... K.0 . TL:.1,|
00001D50: 54 58 24 28 4B 29 3A 82 00 61 25 0C 12 A0 31 3A |TX$(K):..a%...1:|
00001D60: 8E 00 7F 25 2A 12 9F 32 2C 38 2C 32 2C 46 24 AA |...%*..2,8,2,F$.|
00001D70: 22 2C 53 2C 52 22 3A 84 32 2C 43 50 2C 54 4C 00 |",S,R":.2,CP,TL.|
00001D80: 98 25 34 12 81 20 4B B2 30 20 A4 20 54 4C 3A 84 |.%4.. K.0 . TL:.|
00001D90: 32 2C 54 58 24 28 4B 29 00 A3 25 3E 12 82 3A A0 |2,TX$(K)..%>..:.|
00001DA0: 32 3A 8E 00 C7 25 88 13 99 22 93 11 12 22 C7 28 |2:...%..."...".(|
00001DB0: 31 34 32 29 3B A3 31 35 29 3B 22 9F 49 2F 4F 20 |142);.15);".I/O |
00001DC0: 53 45 54 55 50 9E 22 00 EF 25 8D 13 99 22 11 11 |SETUP."..%..."..|
00001DD0: 1D 4C 4F 41 44 20 46 52 4F 4D 20 12 54 92 41 50 |.LOAD FROM .T.AP|
00001DE0: 45 20 4F 52 20 12 44 92 49 53 4B 3F 1D 22 3B 00 |E OR .D.ISK?.";.|
00001DF0: 11 26 92 13 A1 20 42 24 3A 8B 20 42 24 B3 B1 22 |.&... B$:. B$.."|
00001E00: 54 22 AF 20 42 24 B3 B1 22 44 22 A7 20 35 30 31 |T". B$.."D". 501|
00001E10: 30 00 2E 26 9C 13 99 20 42 24 3A 44 4C B2 30 3A |0..&... B$:DL.0:|
00001E20: 8B 20 42 24 B2 22 44 22 A7 20 44 4C B2 31 00 55 |. B$."D". DL.1.U|
00001E30: 26 A6 13 99 3A 99 22 1D 1D 53 41 56 45 20 54 4F |&...:."..SAVE TO|
00001E40: 20 12 54 92 41 50 45 20 4F 52 20 12 44 92 49 53 | .T.APE OR .D.IS|
00001E50: 4B 3F 1D 22 3B 00 77 26 B0 13 A1 20 42 24 3A 8B |K?.";.w&... B$:.|
00001E60: 20 42 24 B3 B1 22 54 22 AF 20 42 24 B3 B1 22 44 | B$.."T". B$.."D|
00001E70: 22 A7 20 35 30 34 30 00 94 26 BA 13 99 20 42 24 |". 5040..&... B$|
00001E80: 3A 54 53 B2 30 3A 8B 20 42 24 B2 22 44 22 A7 20 |:TS.0:. B$."D". |
00001E90: 54 53 B2 31 00 9A 26 C4 13 8E 00 CA 26 CE 13 43 |TS.1..&.....&..C|
00001EA0: 46 B2 30 3A 4C B2 50 4D 3A 99 20 C8 28 47 43 24 |F.0:L.PM:. .(GC$|
00001EB0: 2C 32 33 29 22 49 4E 50 55 54 20 54 41 52 47 45 |,23)"INPUT TARGE|
00001EC0: 54 20 53 54 52 49 4E 47 2E 22 00 E3 26 D8 13 85 |T STRING."..&...|
00001ED0: 20 54 47 24 3A 8B 20 54 47 24 B2 22 22 A7 20 35 | TG$:. TG$."". 5|
00001EE0: 30 37 30 00 FE 26 E2 13 99 20 47 43 24 3B A6 32 |070..&... GC$;.2|
00001EF0: 35 29 22 12 D3 45 41 52 43 48 49 4E 47 22 00 25 |5)"..EARCHING".%|
00001F00: 27 EC 13 8B 20 4C B2 54 4C 20 A7 20 43 50 B2 54 |'... L.TL . CP.T|
00001F10: 4C 3A 50 4D B2 43 50 3A 99 22 93 22 3A 8D 20 32 |L:PM.CP:.".":. 2|
00001F20: 30 39 30 3A 8E 00 43 27 F6 13 8B 20 54 58 24 28 |090:..C'... TX$(|
00001F30: 4C 29 B2 22 22 A7 20 4C B2 4C AA 31 3A 89 20 35 |L)."". L.L.1:. 5|
00001F40: 31 30 30 00 70 27 F7 13 81 20 46 B2 31 20 A4 20 |100.p'... F.1 . |
00001F50: C3 28 54 58 24 28 4C 29 29 3A 43 46 24 B2 CA 28 |.(TX$(L)):CF$..(|
00001F60: 54 58 24 28 4C 29 2C 46 2C C3 28 54 47 24 29 29 |TX$(L),F,.(TG$))|
00001F70: 00 85 27 F8 13 8B 20 43 46 24 B2 54 47 24 20 A7 |..'... CF$.TG$ .|
00001F80: 20 43 46 B2 46 00 8D 27 FE 13 82 20 46 00 A7 27 | CF.F..'... F..'|
00001F90: FF 13 8B 20 43 46 B2 30 20 A7 20 4C B2 4C AA 31 |... CF.0 . L.L.1|
00001FA0: 3A 89 20 35 31 30 30 00 C6 27 00 14 43 50 B2 4C |:. 5100..'..CP.L|
00001FB0: AA 31 3A 50 4D B2 43 50 3A 99 22 93 22 3A 8D 20 |.1:PM.CP:.".":. |
00001FC0: 32 30 39 30 3A 8E 00 E6 27 0A 14 8B 20 53 53 B1 |2090:...'... SS.|
00001FD0: 53 45 20 A7 20 54 54 B2 53 53 3A 53 53 B2 53 45 |SE . TT.SS:SS.SE|
00001FE0: 3A 53 45 B2 54 54 00 F2 27 14 14 53 45 B2 53 45 |:SE.TT..'..SE.SE|
00001FF0: AB 31 00 0D 28 1E 14 99 20 47 43 24 3B A6 32 35 |.1..(... GC$;.25|
00002000: 29 22 12 20 D3 4F 52 54 49 4E 47 20 22 00 1F 28 |)". .ORTING "..(|
00002010: 28 14 81 20 49 B2 53 53 20 A4 20 53 45 AB 31 00 |(.. I.SS . SE.1.|
00002020: 27 28 32 14 4B B2 49 00 38 28 3C 14 81 20 4A B2 |'(2.K.I.8(<.. J.|
00002030: 49 AA 31 20 A4 20 53 45 00 51 28 46 14 8B 20 54 |I.1 . SE.Q(F.. T|
00002040: 58 24 28 4A 29 B3 54 58 24 28 4B 29 A7 20 4B B2 |X$(J).TX$(K). K.|
00002050: 4A 00 84 28 50 14 82 3A 8B 20 49 B3 B1 4B 20 A7 |J..(P..:. I..K .|
00002060: 20 54 54 24 B2 54 58 24 28 4B 29 3A 54 58 24 28 | TT$.TX$(K):TX$(|
00002070: 4B 29 B2 54 58 24 28 49 29 3A 54 58 24 28 49 29 |K).TX$(I):TX$(I)|
00002080: B2 54 54 24 00 98 28 5A 14 82 3A 99 22 93 22 3A |.TT$..(Z..:.".":|
00002090: 8D 20 32 30 39 30 3A 8E 00 BA 28 7C 15 99 22 93 |. 2090:...(|..".|
000020A0: 11 12 22 3B A3 31 33 29 3B 22 9F 50 52 49 4E 54 |..";.13);".PRINT|
000020B0: 45 52 20 53 45 54 55 50 9E 22 00 F4 28 86 15 99 |ER SETUP."..(...|
000020C0: 22 11 11 11 11 22 3A 85 22 1D 4D 41 58 20 4C 49 |"....":.".MAX LI|
000020D0: 4E 45 20 57 49 44 54 48 1D 22 3B 4D 57 3A 4D 57 |NE WIDTH.";MW:MW|
000020E0: B2 B5 28 4D 57 29 3A 8B 20 4D 57 B3 31 20 A7 20 |..(MW):. MW.1 . |
000020F0: 35 35 31 30 00 34 29 90 15 85 22 11 11 4C 49 4E |5510.4)..."..LIN|
00002100: 45 20 57 49 44 54 48 20 52 45 51 55 49 52 45 44 |E WIDTH REQUIRED|
00002110: 1D 22 3B 54 57 3A 54 57 B2 B5 28 54 57 29 3A 8B |.";TW:TW..(TW):.|
00002120: 20 54 57 B3 31 20 B0 20 54 57 B1 4D 57 20 A7 20 | TW.1 . TW.MW . |
00002130: 35 35 32 30 00 64 29 9A 15 85 22 11 1D 50 41 47 |5520.d)..."..PAG|
00002140: 45 20 4C 45 4E 47 54 48 1D 22 3B 50 4C 3A 50 4C |E LENGTH.";PL:PL|
00002150: B2 B5 28 50 4C 29 3A 8B 20 50 4C B3 31 20 A7 20 |..(PL):. PL.1 . |
00002160: 35 35 33 30 00 95 29 A4 15 85 22 11 1D 54 45 58 |5530..)..."..TEX|
00002170: 54 20 4C 45 4E 47 54 48 1D 22 3B 54 48 3A 54 48 |T LENGTH.";TH:TH|
00002180: B2 B5 28 54 48 29 3A 8B 20 54 48 B1 50 4C 20 A7 |..(TH):. TH.PL .|
00002190: 20 35 35 33 30 00 D5 29 AE 15 47 50 B2 B5 28 28 | 5530..)..GP..((|
000021A0: 4D 57 AB 54 57 29 AD 32 29 3A 4C 46 24 B2 22 22 |MW.TW).2):LF$.""|
000021B0: 3A 81 20 46 B2 31 20 A4 20 B5 28 28 50 4C AB 54 |:. F.1 . .((PL.T|
000021C0: 48 29 AD 32 29 3A 4C 46 24 B2 4C 46 24 AA C7 28 |H).2):LF$.LF$..(|
000021D0: 31 33 29 3A 82 00 16 2A B8 15 99 22 11 1D 57 48 |13):...*..."..WH|
000021E0: 49 43 48 20 50 52 49 4E 54 45 52 20 44 45 56 49 |ICH PRINTER DEVI|
000021F0: 43 45 20 4E 4F 2E 22 3A 99 22 1D 12 34 2C 35 2C |CE NO.":."..4,5,|
00002200: 36 92 20 28 36 3D 50 4C 4F 54 54 45 52 20 4F 4E |6. (6=PLOTTER ON|
00002210: 4C 59 29 3F 22 3B 00 28 2A BD 15 A1 20 5A 24 3A |LY)?";.(*... Z$:|
00002220: 44 4E B2 C5 28 5A 24 29 00 41 2A C2 15 8B 20 44 |DN..(Z$).A*... D|
00002230: 4E B3 34 20 B0 20 44 4E B1 36 20 A7 20 35 35 36 |N.4 . DN.6 . 556|
00002240: 35 00 61 2A CC 15 99 20 44 4E 3A 99 22 11 11 1D |5.a*... DN:."...|
00002250: 49 53 20 54 48 49 53 20 4F 4B 28 59 2F 4E 29 3F |IS THIS OK(Y/N)?|
00002260: 22 00 83 2A D6 15 A1 20 47 24 3A 8B 20 47 24 B3 |"..*... G$:. G$.|
00002270: B1 22 59 22 AF 20 47 24 B3 B1 22 4E 22 A7 20 35 |."Y". G$.."N". 5|
00002280: 35 39 30 00 96 2A E0 15 8B 20 47 24 B2 22 4E 22 |590..*... G$."N"|
00002290: A7 20 35 35 30 30 00 9C 2A EA 15 8E 00 00 00 |. 5500..*...... |
......."..";G(8).&....53280,6:.53281,0.D
.... TX$(501):OW.0:EM.0:DN.4.G.#.GC$."..
......................"...(.BL$.G(160):T
L.1:CP.1:MW.80:TW.60:PL.60:TH.40:GP.10:L
F$.G(13).G(13).G.*.LF$.LF$.G(13):. 5000.
..2.TX$(0)."..":SW$."":. F.0 . 39:TX$(0)
.TX$(0)."+":SW$.SW$.".":. F.(.7.. Z.1 .
40:SP$.SP$." ":..U.<.TX$(0).TX$(0)."..":
TX$(1)."................................
............"...F..G(142)...G.."...".15)
;".MAIN MENU.":."..";.14);".L.OAD."...H.
..14)".S.AVE.":..14)".I./O CHANGE."...P.
..14)".E.DIT TEXT.":..14)".C.LEAR MEMORY
.".".Q...14)".P.RINT OUT.".U.R...14)".A.
LTER PRINTER.":..14)".Q.UIT PROGRAM.".V.
U...12)"... SELECT OPTION ."...Z.. B$:
. B$."". 90...D.B.0:. F.1 . 8:. B$.J("LS
IECPAQ",F,1). B.F:. 110.R.F.. F:. B.0 .
90...N.. B .4500,4000,5000,1000,160,3000
,5500,130...X.. 70.2.... QD$;.11);"...AR
E YOU SURE (Y/N)?".S.... R$:. R$.."Y". R
$.."N". 140.H.... R$."Y". .".":..N......
. .."...";.13);".CLEAR MEMORY.":..10)"..
ARE YOU SURE (Y/N)?".M.... B$:. B$.."Y".
B$.."N". 170...... B$."N". ....... TL.1
. ../.C.. K.1 . TL.1:TX$(K)."":.:TX$(1)
.TX$(TL):TX$(TL)."":TL.1:CP.1:..H...."..
..";.15);".EDITTEXT.":."..";.14);".T.OP
OF TEXT".......14)"..B.OTTOM OF TEXT":..
14)"..N.EXT LINE OF TEXT".......14)"..M.
AIN MENU".P.... B$:. B$."". 1010.....B.0
:. F.1 . 4:. B$.J("TBNM",F,1). B.F:. 103
0...... F:. 1010...... B . 1050,1060,107
0,1080.G.... TL.3 . CP.1 . 1070.W...CP.1
:. 1070.A.$.CP.TL.....".":. 2090:. 1500
:. 1000...8.......A$." ":P.0...... EM.1
. 2500......198,0.D.... H(GC$,23)A$;.Z..
.CH.B(1904.P):. T$...... C(A$).81 . T$.G
(13). . 2000:. 1515.?...CH.(CH.128). 255
:.1904.P,CH:CH.(CH.128). 255:.1904.P,CH.
[.... T$."". T$.G(34). 1520.V.... T$."."
. T$.".". 1520...... P.C(A$).1 . T$.G(10
). A$.H(A$,P).J(A$,P.2):. 1600.C.... T$.
G(10). 1520.V.... T$.G(136). ....... T$.
G(134). CP.1 . 1520.-.... T$.G(134). A$.
TX$(CP.1)." ":T$."":P.0:. 2090:. 1510.W.
... T$.G(135). OW..(1.OW):. 2090:. 1510.
Q.... T$.".". CP.1:. 2090...... T$.G(133
). EM.1:PM.CP:. 2090:. 1505...... T$."."
. . 2090:. 1500.M.... T$..G(20). 1580...
".. P.0 . 1510...$.A$.H(A$,P.1).J(A$,P.1
):P.P.1.(.'.. H(GC$,23);:. F.1 . C(A$).2
:.".";:..9.).." ":. 1510.[.,.KJ.0:. T$.
G(148). T$." ":KJ.1...... T$..G(157). T$
..G(29). F(T$).32 . 1510...6.. T$.G(29).
T$.G(157). 1610.A.7.. OW.1 . J..1 . 159
5...9.A$.H(A$,P).T$.J(A$,P.1):P.P.1:. 16
00...;.B$.A$:A$.H(A$,P).T$.J(A$,P.2). .>
.P.P.1:A$.A$." ".3.@.. H(GC$,23)A$;.U.J.
. T$.G(29). P.C(A$).1 . P.P.1.Y.T..(T$.G
(157). P.0). KJ.1 . P.P.1...^.. 1520....
.. CP.1 . 1510.H...CP.CP.1:. F.CP . TL:T
X$(F).TX$(F.1):.:TL.TL.1.S.... 2090...B.
. 1510...... TL.499 . 1510./.... F.TL.1
. CP.1 ..1:TX$(F).TX$(F.1):.:TL.TL.1:TX$
(CP)."".A.... 2090:. 1510.Y.P.X.0:. TL.4
99 . 2060...Q.. C(A$).41 . TT$(X).H(A$,C
(A$).1):A$."":. 2030...Z.. I.41 . 1 ..1:
. J(A$,I,1).." ". .:I.41.X...TT$(X).H(A$
,40):A$.J(A$,41).....X.X.1:. A$.."". A$.
." ". 2001.&.... I.TL.X . CP.X ..1:TX$(I
).TX$(I.X):. I.I.... I.0 . X.1:TX$(CP.I)
.TT$(I):..G...A$." ":P.0:. H(GC$,23)A$;.
{. .TL.TL.X:CP.CP.X...*.. CP.15 . S1.0:.
2100.../.S1.CP.15.Y.4..".";:. K.S1.S1.1
5:.TX$(K);:. C(TX$(K)).40..G(160)...>..
K.CP.1 . .".. .."...H...9.J..".."SP$".0.
123456789.0.123456789.0.123456789.0.1234
56789..";._.R..".MEM";BL$;"FREE=.";40.(5
01.TL);...\..".O/W MODE=."OW".EDIT MODE=
";EM:."."SW$".";:....D.. CP.5 . PM.CP...
N..TB$:. TB$."". 2510.X.P.. PM.1 . TB$."
.". 2510...X.. PM.1 . TB$.".". PM.PM.1:C
P.PM:. 2550./.... PM.TL . TB$.".". PM.PM
.1:CP.PM:. 2550.Z.... PM.5 . TB$."^". PM
.PM.5:CP.PM:. 2550...... PM.TL.5 . TB$."
_". PM.PM.5:CP.PM:. 2550...... 2560.....
. 2090:. 2510.J.... TB$.G(136). EM.0:. 2
090:. 1505...... TB$..G(148). 2580......
CP.1 . 2510.1.... K.TL.1 . PM.1 ..1:TX$
(K).TX$(K.1):.:TL.TL.1:TX$(PM)."".C....
2090:. 2510.Z.... TB$..G(20). 2590.M....
PM.TL . 2510...... K.PM . TL:TX$(K).TX$
(K.1):.:TL.TL.1.....TX$(TL.1)."":. 2090:
. 2590.B...CP.CP.1...... TB$."@". SF.SF.
1:. SF.1 . SS.CP:. 2510...(.. SF.2 . SE.
CP:SF.0:. 5130:. 2510.+.2.. TB$."S". . 5
070.6.<.. 2510.H.... TL.2 . 3050.M.B..".
..".12)".PRINTER ROUTINE.": 4...L.."...F
ROM .M.EMORY OR FROM .F.ILE?"...V.. R$:.
R$.."M". R$.."F". 3030.J.... R$."M". 30
60.U.... 4500...... TL.1 . . .11)".....N
O FILE IN MEMORY.":. 3570.2...KF.0:."..F
ILL VARIABLE BLOCKS(Y/N)?".T.... R$:. R$
.."Y". R$.."N". 3080.G.... R$."N". 3150.
.....:."...K.EYBOARD OR .F.ILE?"...&.. R
$:. R$.."K". R$.."F". 3110.I.0.KF.2:. R$
."K". KF.1:. 3150...:..".INPUT FILENAME"
;VB$;VB$.H(VB$,16)...D.. H(VB$,1)."A". H
(VB$,1)."Z". 3130.I.N..".DO YOU WISH TO
CHANGE THE PRINTER(Y/N)?".K.X.. R$:. R$.
."Y". R$.."N". 3160...B.. R$."Y". . 5500
...L..".".T.V.VB.0:PP.0:AS.0:LC.1:."DO Y
OU WISH FOR A SAMPLE OUTPUT TO THE SCRE
EN";...W.." (Y/N).<RETURN> TO RETURN TO
MAIN MENU":BL.0.4.... R$:. R$.."Y". R$..
"N". R$..G(13). 3200.F.... R$.G(13). ..K
.... R$."N". P.DN:.4,P,7,".":. 3220.|...
.4,3:. G(14)...... KF..2 . 3240...... DL
.1 . KF.2 . 3232...... KF.2 . 3236... ..
2,8,2,VB$.",S,R":.2,DV,DV:. 3240......1,
1,0:.1,DV,DV. ...GP$."":. R$."N"..F.1 .
GP:GP$.GP$." ":..1.... K.1 . TL.1.F....
H(TX$(K),1)."#". C(TX$(K)).1.AS . AS.C(T
X$(K))......:. AS.TW . ."ERROR:ADDRESS T
OO LONG":. 3570.T.F.K.1:.4,LF$;GP$;:AS$.
"":.AS.0..F.1.GP.TW.AS:AS$.AS$." ":....P
.TT$.TX$(K)...Z.. TT$."". .#4,G(13);GP$;
:PP.0:LC.LC.1:. 3590:. 3520.R...BP.0:. F
.1 . C(TT$):. J(TT$,F,2)."][". BP.F:. 33
04.Z.... F.S.... BP.0 . KF.0 . 3390.....
. KF.1 . 3370...... DL.1 . 3360...... ST
.64 . 3350......1,RP$:. 3380......"ERROR
-NOT ENOUGH DATA IN FILE":. 3570... .. S
T.64 . 3350..."..2,RP$:. 3380.D.*.BL.BL.
1:.:RP$."":."INPUT VARIABLE BLOCK";BL;:.
RP$.O.4.TT$.H(TT$,BP.1).RP$.J(TT$,BP.2)
:. 3300...>.CF.0:. F.1 . 4:. H(TT$,1).J(
"&$*#",F,1). CF.F.D.?.. F:. CF . 3460,34
70,3490,3510...H.. PP.C(TT$)..TW . .#4,T
T$;:PP.PP.C(TT$):. 3520...R.TA$.H(TT$,TW
.PP).B.\.CF.0:. F.1 . C(TT$):. J(TT$,F,1
)." ". CF.F:. 3422.J.].. F.}.^.. CF.TW .
."ERROR-WORD TOO LONG IN";TT$:. 3570...
F.. I(TA$,1)." ". 3450.A.P.. C(TA$).0 .
TA$.H(TA$,C(TA$).1):.3430...Z..4,TA$;G(1
3);GP$;:PP.0:LC.LC.1:. 3590:TT$.J(TT$,C(
TA$).1)...|.. TT$.."". BP.1:. 3400.%.~..
3520.]....4,G(13);G(13);GP$;:PP.0:LC.LC
.1:.3590:TT$.J(TT$,2).H.... 3300.....TT$
.J(TT$,2):.#4,G(13);GP$;:. PP..TW . 3479
.K.... F.1 . .(TX.2):.#4,G(32);:.:PP..(T
X.2):. 3480.T...PP.0.....LC.LC.1:. 3590:
. 3300.. ..TT$.J(TT$,2):. C(TT$)..TW . 3
500.8 ..."ERROR-CANNOT CENTRE"TT$:. 3520
.N ...#4,G(13);GP$;:. F.1 . .((TW.C(TT$)
).2):.#," ";:..Z ...#4,TT$.. ...#4,G(13)
;GP$;:PP.0:LC.LC.1:. 3590:. 3520.W ...4,
G(13);AS$;J(TT$,2);:PP.0:LC.LC.1:. 3590.
. ..K.K.1:. P.3 .. Z.1 . 500:...!J.. K.T
L . 3280.(!T.. P..3 . .#4,LF$;LF$:. 3550
.0!U..:..E!... Z.1 . 4: Z:. Z.V!... P.0
. 3190.\!.....!... Z.1 . 3000:.:. Z.1 .
8: Z:. Z..!.....!... LC.TH . .#4,LF$;LF$
;GP$;:LC.1..!....L! .."...".15)".SAVE FI
LE.".."... TL.1 . . .12)"...NOTHING TO S
AVE":. Z.1 . 1500:.:..*"...".....FILE NA
ME";F$:F$.H(F$,16).O"... H(F$,1)."A". H(
F$,1)."Z". 4010.`"... TS.1. 4110. "H..".
..PLACE TAPE IN POSITION THEN PRESS THE.
..RETURN KEY...".."R.. A$:. A$..G(13). 4
050.I"...1,1,1,F$.."...#1,CP:.#1,TL..#..
. K.0 . TL:.#1,G(34).TX$(K).G(34):...#..
1:..U#..."...ENSURE DRIVE IS ON AND DIS
K IS IN......PLACE.THEN HIT <RETURN>".P#
... A$:. A$..G(13). 4120..#"..1,8,15,"S0
:".F$: 1:.2,8,2,F$.",S,W"..#,..2,CP:.2,T
L.N#6.. K.0 . TL:.2,G(34).TX$(K).G(34).Y
#@..: 2:...#..."...".14)".LOAD A FILE.".
.$... TL.1 . 4540.0$...198,0:. .10)".ARE
YOU SURE(Y/N)?".R$... R$:. R$.."Y". R$.
."N". 4520.B$... R$."N". ..R$..TL.1:. 45
00..$..."......INPUT FILENAME";F$:F$.H(F
$,16).B$F.. H(F$,1)."A". H(F$,1)."Z". 45
40.T$P.. DL.1 . 4650..%Z.."...........PO
SITION TAPE THEN PRESS RETURN."."%... R$
:. R$..G(13). 4580.0%...1,1,0,F$.=%...1,
CP,TL.X%... K.0 . TL:.1,TX$(K):..A%.. 1:
..%*..2,8,2,F$.",S,R":.2,CP,TL..%4.. K.
0 . TL:.2,TX$(K)..%>..: 2:..G%..."..."G(
142);.15);".I/O SETUP."..%..."...LOAD FR
OM .T.APE OR .D.ISK?.";..&... B$:. B$.."
T". B$.."D". 5010..&... B$:DL.0:. B$."D"
. DL.1.U&...:."..SAVE TO .T.APE OR .D.IS
K?.";.W&... B$:. B$.."T". B$.."D". 5040.
.&... B$:TS.0:. B$."D". TS.1..&D...J&N.C
F.0:L.PM:. H(GC$,23)"INPUT TARGET STRING
."..&X.. TG$:. TG$."". 5070..&... GC$;.2
5)".SEARCHING".%'... L.TL . CP.TL:PM.CP:
.".":. 2090:..C'... TX$(L)."". L.L.1:. 5
100.P'... F.1 . C(TX$(L)):CF$.J(TX$(L),F
,C(TG$))..'... CF$.TG$ . CF.F..'... F..'
... CF.0 . L.L.1:. 5100.F'..CP.L.1:PM.CP
:.".":. 2090:...'... SS.SE . TT.SS:SS.SE
:SE.TT..'..SE.SE.1..(... GC$;.25)". SORT
ING "..((.. I.SS . SE.1.'(2.K.I.8(<.. J.
I.1 . SE.Q(F.. TX$(J).TX$(K). K.J..(P..:
. I..K . TT$.TX$(K):TX$(K).TX$(I):TX$(I)
.TT$..(Z..:.".":. 2090:...(|.."...";.13)
;".PRINTER SETUP."..(..."....":.".MAX LI
NE WIDTH.";MW:MW..(MW):. MW.1 . 5510.4).
.."..LINE WIDTH REQUIRED.";TW:TW..(TW):.
TW.1 . TW.MW . 5520.D)..."..PAGE LENGTH
.";PL:PL..(PL):. PL.1 . 5530..)..."..TEX
T LENGTH.";TH:TH..(TH):. TH.PL . 5530.U)
..GP..((MW.TW).2):LF$."":. F.1 . .((PL.T
H).2):LF$.LF$.G(13):...*..."..WHICH PRIN
TER DEVICE NO.":."..4,5,6. (6=PLOTTER ON
LY)?";.(*... Z$:DN.E(Z$).A*B.. DN.4 . DN
.6 . 5565.A*L.. DN:."...IS THIS OK(Y/N)?
"..*V.. G$:. G$.."Y". G$.."N". 5590..*..
. G$."N". 5500..*......
> CLICK IMAGE PREVIEW FOR FULL MODAL