EDITOR
FILE INFORMATION
FILENAME(S): EDITOR
FILE TYPE(S): PRG
FILE SIZE: 13.6K
FIRST SEEN: 2025-10-19 22:48:59
APPEARS ON: 1 disk(s)
FILE HASH
6de50e422b4f870de23e19afafb4d648650e8dcf065c6fcaff553c071e7555d1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEED READER II | EDITOR | PRG | Radd Maxx | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 05 00 97 20 35 33 32 38 31 2C 31 3A |..".... 53281,1:|
00000010: 97 20 35 33 32 38 30 2C 31 32 3A 97 36 34 36 2C |. 53280,12:.646,|
00000020: 31 31 00 46 08 0A 00 49 B2 30 3A 4A B2 30 3A 4B |11.F...I.0:J.0:K|
00000030: B2 30 3A 4C B2 31 3A 4D B2 30 3A 4E B2 30 3A 48 |.0:L.1:M.0:N.0:H|
00000040: 4D 24 B2 22 13 22 00 68 08 14 00 86 20 41 24 28 |M$.".".h.... A$(|
00000050: 32 30 33 29 2C 53 28 31 32 29 2C 59 28 31 32 29 |203),S(12),Y(12)|
00000060: 3A 48 43 24 B2 22 93 22 00 81 08 1E 00 8D 20 39 |:HC$."."...... 9|
00000070: 37 30 30 3A 8F 20 43 48 41 4E 47 45 20 44 49 53 |700:. CHANGE DIS|
00000080: 4B 00 9F 08 28 00 8D 20 38 30 31 30 3A 89 20 36 |K...(.. 8010:. 6|
00000090: 30 3A 8F 20 53 43 52 45 45 4E 20 49 4E 49 54 00 |0:. SCREEN INIT.|
000000A0: BA 08 2A 00 8F 2D 2D 2D 57 41 52 4D 20 53 54 41 |..*..---WARM STA|
000000B0: 52 54 20 49 4E 49 54 2D 2D 2D 00 D6 08 32 00 99 |RT INIT---...2..|
000000C0: 20 48 43 24 3A 8D 20 39 34 30 30 3A 97 20 35 33 | HC$:. 9400:. 53|
000000D0: 32 37 32 2C 32 33 00 F1 08 34 00 8F 2D 2D 2D 4D |272,23...4..---M|
000000E0: 41 49 4E 20 49 4E 50 55 54 20 4C 4F 4F 50 2D 2D |AIN INPUT LOOP--|
000000F0: 2D 00 12 09 3C 00 4A B2 32 33 3A 8D 20 39 30 30 |-...<.J.23:. 900|
00000100: 30 3A 99 20 22 20 20 CE 45 57 20 4C 49 4E 45 22 |0:. " .EW LINE"|
00000110: 3B 4C 00 2B 09 46 00 8D 20 39 38 30 30 3A 8F 20 |;L.+.F.. 9800:. |
00000120: 50 52 4F 4D 50 54 20 4C 49 4E 45 00 4D 09 50 00 |PROMPT LINE.M.P.|
00000130: 4C 49 4E 45 B2 4C 3A 8D 20 39 31 30 30 3A 8F 20 |LINE.L:. 9100:. |
00000140: 49 4E 4C 49 4E 45 2B 4E 55 4D 42 45 52 00 67 09 |INLINE+NUMBER.g.|
00000150: 5A 00 99 20 A3 35 29 20 C7 28 33 34 29 3A 99 20 |Z.. .5) .(34):. |
00000160: 22 91 1D 1D 1D 22 3B 00 7F 09 64 00 85 20 49 4E |"....";...d.. IN|
00000170: 24 3A 8D 20 39 32 30 30 3A 8D 20 39 34 30 30 00 |$:. 9200:. 9400.|
00000180: A5 09 6E 00 8B 20 C8 28 49 4E 24 2C 31 29 B2 22 |..n.. .(IN$,1)."|
00000190: 2E 22 A7 20 8D 20 31 36 30 3A 20 20 20 20 20 20 |.". . 160: |
000001A0: 89 20 31 33 30 00 C3 09 78 00 8B 20 4C B3 32 30 |. 130...x.. L.20|
000001B0: 31 20 A7 20 41 24 28 4C 29 B2 49 4E 24 3A 4C B2 |1 . A$(L).IN$:L.|
000001C0: 4C AA 31 00 CC 09 82 00 89 20 36 30 00 E3 09 96 |L.1...... 60....|
000001D0: 00 8F 2D 2D 2D 43 48 41 4E 47 45 20 4D 4F 44 45 |..---CHANGE MODE|
000001E0: 2D 2D 2D 00 03 0A A0 00 42 24 B2 CA 28 49 4E 24 |---.....B$..(IN$|
000001F0: 2C 32 2C 31 29 3A 8B 20 42 24 B2 22 22 20 A7 20 |,2,1):. B$."" . |
00000200: 33 31 30 00 22 0A A2 00 8B 20 42 24 B1 22 C0 22 |310.".... B$."."|
00000210: 20 A7 20 42 24 B2 C7 28 C6 28 42 24 29 AB 31 32 | . B$..(.(B$).12|
00000220: 38 29 00 5E 0A A4 00 8B 20 42 24 B2 22 45 22 20 |8).^.... B$."E" |
00000230: B0 20 42 24 B2 22 49 22 20 B0 20 42 24 B2 22 44 |. B$."I" . B$."D|
00000240: 22 20 B0 20 42 24 B2 20 20 20 20 22 47 22 20 B0 |" . B$. "G" .|
00000250: 20 42 24 B2 22 43 22 20 A7 20 57 43 B2 30 00 74 | B$."C" . WC.0.t|
00000260: 0A AA 00 8B 20 42 24 B2 22 45 22 20 A7 20 8D 20 |.... B$."E" . . |
00000270: 32 32 32 30 00 8A 0A B4 00 8B 20 42 24 B2 22 50 |2220...... B$."P|
00000280: 22 20 A7 20 8D 20 32 34 30 30 00 A0 0A BE 00 8B |" . . 2400......|
00000290: 20 42 24 B2 22 4C 22 20 A7 20 8D 20 32 38 30 30 | B$."L" . . 2800|
000002A0: 00 B6 0A C8 00 8B 20 42 24 B2 22 49 22 20 A7 20 |...... B$."I" . |
000002B0: 8D 20 33 30 30 30 00 CC 0A D2 00 8B 20 42 24 B2 |. 3000...... B$.|
000002C0: 22 44 22 20 A7 20 8D 20 33 32 31 30 00 E2 0A DC |"D" . . 3210....|
000002D0: 00 8B 20 42 24 B2 22 53 22 20 A7 20 8D 20 34 30 |.. B$."S" . . 40|
000002E0: 38 30 00 F8 0A E6 00 8B 20 42 24 B2 22 47 22 20 |80...... B$."G" |
000002F0: A7 20 8D 20 33 34 31 30 00 0E 0B F0 00 8B 20 42 |. . 3410...... B|
00000300: 24 B2 22 43 22 20 A7 20 8D 20 34 34 31 30 00 25 |$."C" . . 4410.%|
00000310: 0B FA 00 8B 20 42 24 B2 22 51 22 20 A7 20 8D 20 |.... B$."Q" . . |
00000320: 31 30 30 39 30 00 3B 0B 04 01 8B 20 42 24 B2 22 |10090.;.... B$."|
00000330: 48 22 20 A7 20 8D 20 39 39 30 30 00 51 0B 0E 01 |H" . . 9900.Q...|
00000340: 8B 20 42 24 B2 22 56 22 20 A7 20 8D 20 31 33 36 |. B$."V" . . 136|
00000350: 30 00 66 0B 18 01 8B 20 42 24 B2 22 41 22 20 A7 |0.f.... B$."A" .|
00000360: 20 8D 20 33 33 30 00 6C 0B 36 01 8E 00 7F 0B 40 | . 330.l.6.....@|
00000370: 01 8F 2D 2D 2D 41 4E 41 4C 59 5A 45 2D 2D 2D 00 |..---ANALYZE---.|
00000380: A6 0B 4A 01 8D 20 39 33 30 30 3A 8B 20 45 4D 50 |..J.. 9300:. EMP|
00000390: 54 59 20 A7 20 8D 20 39 34 30 30 3A 20 20 20 20 |TY . . 9400: |
000003A0: 89 20 31 30 39 30 00 BD 0B 54 01 8B 20 56 46 59 |. 1090...T.. VFY|
000003B0: 20 AF 20 45 53 43 20 A7 20 31 30 39 30 00 CD 0B | . ESC . 1090...|
000003C0: 5E 01 8B 20 56 46 59 20 A7 20 34 31 30 00 E8 0B |^.. VFY . 410...|
000003D0: 68 01 8D 20 39 34 30 30 3A 4A B2 49 4E 4C 49 4E |h.. 9400:J.INLIN|
000003E0: 45 3A 8D 20 39 30 30 30 00 11 0C 72 01 99 20 A3 |E:. 9000...r.. .|
000003F0: 36 29 20 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 |6) ".O YOU WANT |
00000400: 54 4F 20 56 45 52 49 46 59 3F 20 28 59 2F 4E 29 |TO VERIFY? (Y/N)|
00000410: 22 00 4C 0C 7C 01 A1 20 41 24 3A 8B 20 41 24 B3 |".L.|.. A$:. A$.|
00000420: B1 22 59 22 20 AF 20 41 24 B3 B1 22 D9 22 20 AF |."Y" . A$.."." .|
00000430: 20 41 24 20 20 20 20 B3 B1 22 4E 22 20 AF 20 41 | A$ .."N" . A|
00000440: 24 B3 B1 22 CE 22 20 A7 20 33 38 30 00 62 0C 86 |$.."." . 380.b..|
00000450: 01 56 46 59 B2 30 3A 52 45 54 B2 30 3A 45 53 43 |.VFY.0:RET.0:ESC|
00000460: B2 30 00 9D 0C 90 01 8B 20 41 24 B2 22 59 22 20 |.0...... A$."Y" |
00000470: B0 20 41 24 B2 22 D9 22 20 A7 20 56 46 59 B2 AB |. A$."." . VFY..|
00000480: 31 3A 20 20 20 20 20 20 20 20 8D 20 39 34 30 30 |1: . 9400|
00000490: 3A 8D 20 31 33 36 30 3A 89 20 33 34 30 00 B9 0C |:. 1360:. 340...|
000004A0: 9A 01 99 20 48 43 24 3B 3A 4A B2 32 32 3A 8D 20 |... HC$;:J.22:. |
000004B0: 39 30 30 30 3A 99 20 4C 24 00 F0 0C A4 01 8B 20 |9000:. L$...... |
000004C0: 28 56 46 59 20 AF 20 52 45 54 29 20 B0 20 A8 20 |(VFY . RET) . . |
000004D0: 56 46 59 20 A7 20 20 20 20 20 20 20 20 8D 20 31 |VFY . . 1|
000004E0: 31 31 30 3A 8B 20 45 53 43 20 A7 20 31 30 39 30 |110:. ESC . 1090|
000004F0: 00 00 0D AE 01 4A B2 32 33 3A 8D 20 39 30 30 30 |.....J.23:. 9000|
00000500: 00 18 0D B8 01 99 20 22 20 20 C1 4E 41 4C 59 5A |...... " .NALYZ|
00000510: 45 20 46 49 4C 45 11 22 00 38 0D C2 01 99 20 22 |E FILE.".8.... "|
00000520: 20 20 D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE A0 54 | .RESS .......T|
00000530: 4F 20 45 58 49 54 22 3B 00 68 0D CC 01 53 43 4F |O EXIT";.h...SCO|
00000540: 55 4E 54 B2 30 3A 53 4C 43 4F 55 4E 54 B2 30 3A |UNT.0:SLCOUNT.0:|
00000550: 57 43 B2 30 3A 53 41 44 4A B2 30 3A 4B B2 31 3A |WC.0:SADJ.0:K.1:|
00000560: 20 20 20 20 20 41 B2 31 00 84 0D D6 01 41 24 B2 | A.1.....A$.|
00000570: 41 24 28 4B 29 3A 8B 20 41 24 B2 22 40 22 20 A7 |A$(K):. A$."@" .|
00000580: 20 37 35 30 00 B0 0D E0 01 4A B2 C3 28 41 24 29 | 750.....J..(A$)|
00000590: 3A 8B 20 4A B2 30 20 B0 20 41 24 B2 22 20 22 20 |:. J.0 . A$." " |
000005A0: A7 20 4B B2 4B AA 20 20 20 20 31 3A 89 34 37 30 |. K.K. 1:.470|
000005B0: 00 E0 0D EA 01 8B 20 C9 28 41 24 2C 31 29 B2 22 |...... .(A$,1)."|
000005C0: 20 22 20 A7 20 41 24 28 4B 29 B2 C8 20 20 20 28 | " . A$(K).. (|
000005D0: 41 24 28 4B 29 2C 4A AB 31 29 3A 89 20 34 37 30 |A$(K),J.1):. 470|
000005E0: 00 01 0E F4 01 8F 2D 2D 2D 53 45 4E 54 45 4E 43 |......---SENTENC|
000005F0: 45 2F 57 4F 52 44 2F 53 59 4C 4C 41 42 4C 45 2D |E/WORD/SYLLABLE-|
00000600: 2D 00 30 0E FE 01 81 20 49 B2 32 20 A4 20 4A 3A |-.0.... I.2 . J:|
00000610: 42 24 B2 CA 28 41 24 2C 49 2C 31 29 3A 8B 20 42 |B$..(A$,I,1):. B|
00000620: 24 B1 20 20 20 20 20 22 3F 22 20 A7 20 35 38 30 |$. "?" . 580|
00000630: 00 67 0E 08 02 8B 20 42 24 B3 B1 22 21 22 20 AF |.g.... B$.."!" .|
00000640: 20 42 24 B3 B1 22 2E 22 20 AF 20 42 24 B3 B1 22 | B$.."." . B$.."|
00000650: 3F 22 20 20 20 20 20 20 AF 20 42 24 B3 B1 22 27 |?" . B$.."'|
00000660: 22 20 A7 20 35 38 30 00 A8 0E 1C 02 8B 20 42 24 |" . 580...... B$|
00000670: B2 22 27 22 20 A7 43 24 B2 CA 28 41 24 2C 49 AB |."'" .C$..(A$,I.|
00000680: 31 2C 31 29 3A 8B 20 43 24 B3 B1 22 21 22 20 AF |1,1):. C$.."!" .|
00000690: 20 43 24 B3 B1 22 2E 22 20 AF 20 43 24 B3 B1 22 | C$.."." . C$.."|
000006A0: 3F 22 20 A7 20 35 38 30 00 EA 0E 26 02 8B 20 49 |?" . 580...&.. I|
000006B0: B2 4A 20 B0 CA 28 41 24 2C 49 AA 31 2C 32 29 B2 |.J ..(A$,I.1,2).|
000006C0: 22 20 20 22 B0 28 49 B2 4A AB 31 20 20 20 20 AF |" ".(I.J.1 .|
000006D0: 20 CA 28 41 24 2C 49 AA 31 2C 31 29 B2 22 20 22 | .(A$,I.1,1)." "|
000006E0: 29 A7 20 53 43 B2 53 43 AA 31 00 1A 0F 44 02 8B |). SC.SC.1...D..|
000006F0: 20 42 24 B2 22 20 22 20 AF 20 CA 28 41 24 2C 49 | B$." " . .(A$,I|
00000700: AB 31 2C 31 29 B3 B1 22 20 22 20 20 20 20 20 20 |.1,1).." " |
00000710: 20 A7 20 57 43 B2 57 43 AA 31 00 39 0F 62 02 8B | . WC.WC.1.9.b..|
00000720: 20 42 24 B1 22 C0 22 20 A7 20 42 24 B2 C7 28 C6 | B$."." . B$..(.|
00000730: 28 42 24 29 AB 31 32 38 29 00 79 0F 6C 02 8B 42 |(B$).128).y.l..B|
00000740: 24 B3 B1 22 41 22 AF 42 24 B3 B1 22 45 22 AF 42 |$.."A".B$.."E".B|
00000750: 24 B3 B1 22 49 22 AF 20 42 24 20 20 20 20 20 B3 |$.."I". B$ .|
00000760: B1 22 4F 22 AF 42 24 B3 B1 22 55 22 AF 42 24 B3 |."O".B$.."U".B$.|
00000770: B1 22 59 22 A7 20 36 35 30 00 8C 0F 76 02 43 24 |."Y". 650...v.C$|
00000780: B2 CA 28 41 24 2C 49 AB 31 2C 31 29 00 CE 0F 80 |..(A$,I.1,1)....|
00000790: 02 8B 43 24 B3 B1 22 41 22 AF 43 24 B3 B1 22 45 |..C$.."A".C$.."E|
000007A0: 22 AF 43 24 B3 B1 22 49 22 AF 43 24 B3 B1 20 20 |".C$.."I".C$.. |
000007B0: 20 22 4F 22 AF 43 24 B3 B1 22 55 22 AF 43 24 B3 | "O".C$.."U".C$.|
000007C0: B1 22 59 22 20 A7 20 53 4C B2 53 4C AA 31 00 DC |."Y" . SL.SL.1..|
000007D0: 0F 8A 02 82 3A 57 43 B2 57 43 AA 31 00 F1 0F 94 |....:WC.WC.1....|
000007E0: 02 8F 2D 2D 2D 4C 49 4E 45 20 44 4F 4E 45 2D 2D |..---LINE DONE--|
000007F0: 2D 00 26 10 A8 02 99 48 4D 24 3A 99 22 20 20 CC |-.&....HM$:." .|
00000800: 49 4E 45 22 3B 4B 3A 99 20 22 20 20 11 22 20 20 |INE";K:. " ." |
00000810: 20 20 3B 41 24 28 4B 29 3B 45 4C 24 3A 4A B2 37 | ;A$(K);EL$:J.7|
00000820: 3A 8D 39 30 30 30 00 42 10 BC 02 99 20 22 20 20 |:.9000.B.... " |
00000830: D3 45 4E 54 45 4E 43 45 53 22 3B 53 43 4F 55 4E |.ENTENCES";SCOUN|
00000840: 54 3B 00 5C 10 C6 02 99 20 A3 31 35 29 22 D7 4F |T;.\.... .15)".O|
00000850: 52 44 53 22 3B 57 43 4F 55 4E 54 3B 00 7A 10 D0 |RDS";WCOUNT;.z..|
00000860: 02 99 20 A3 32 36 29 22 D3 59 4C 4C 41 42 4C 45 |.. .26)".YLLABLE|
00000870: 53 22 3B 53 4C 43 4F 55 4E 54 00 AB 10 DA 02 A1 |S";SLCOUNT......|
00000880: 20 41 24 3A 8B 20 41 24 B2 C7 28 31 33 29 20 A7 | A$:. A$..(13) .|
00000890: 57 43 B2 30 3A 99 20 20 20 20 48 43 24 3A 8D 20 |WC.0:. HC$:. |
000008A0: 39 34 30 30 3A 89 20 31 30 38 30 00 BB 10 E4 02 |9400:. 1080.....|
000008B0: 4B B2 4B AA 31 3A 89 20 34 37 30 00 CE 10 E6 02 |K.K.1:. 470.....|
000008C0: 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 EA |.-------------..|
000008D0: 10 EE 02 53 4C 43 4F 55 4E 54 B2 B5 28 2E 39 36 |...SLCOUNT..(.96|
000008E0: 35 AC 53 4C 43 4F 55 4E 54 29 00 07 11 F8 02 4A |5.SLCOUNT).....J|
000008F0: B2 37 3A 8D 20 39 30 30 30 3A 99 20 A3 33 35 29 |.7:. 9000:. .35)|
00000900: 20 53 4C 3B 22 20 22 00 1F 11 02 03 99 20 48 4D | SL;" "...... HM|
00000910: 24 3A 99 20 45 4C 24 3A 99 3A 99 20 45 4C 24 00 |$:. EL$:.:. EL$.|
00000920: 42 11 0C 03 8F 2D 2D 2D 47 52 41 44 45 20 4C 45 |B....---GRADE LE|
00000930: 56 45 4C 20 43 41 4C 43 55 4C 41 54 49 4F 4E 2D |VEL CALCULATION-|
00000940: 2D 2D 00 54 11 16 03 8B 20 57 43 B3 31 20 A7 20 |--.T.... WC.1 . |
00000950: 31 30 38 30 00 7A 11 20 03 4E 53 B2 53 43 4F 55 |1080.z. .NS.SCOU|
00000960: 4E 54 AC 31 30 30 AD 57 43 3A 8F 20 4E 4F 52 4D |NT.100.WC:. NORM|
00000970: 41 4C 49 5A 45 20 53 45 4E 54 00 A0 11 2A 03 4E |ALIZE SENT...*.N|
00000980: 59 B2 53 4C 43 4F 55 4E 54 AC 31 30 30 AD 57 43 |Y.SLCOUNT.100.WC|
00000990: 3A 8F 20 4E 4F 52 4D 41 4C 49 5A 45 20 53 59 4C |:. NORMALIZE SYL|
000009A0: 00 CB 11 34 03 53 28 31 32 29 B2 2E 32 38 33 AC |...4.S(12)..283.|
000009B0: 4E 59 AB 34 31 2E 37 3A 59 28 31 32 29 B2 33 2E |NY.41.7:Y(12).3.|
000009C0: 34 36 AC 4E 53 AA 31 34 37 2E 37 00 F6 11 3E 03 |46.NS.147.7...>.|
000009D0: 53 28 31 31 29 B2 2E 31 39 31 AC 4E 59 AB 32 35 |S(11)..191.NY.25|
000009E0: 2E 38 3A 59 28 31 31 29 B2 35 2E 31 37 AC 4E 53 |.8:Y(11).5.17.NS|
000009F0: AA 31 33 35 2E 34 00 21 12 48 03 53 28 31 30 29 |.135.4.!.H.S(10)|
00000A00: B2 2E 31 37 37 AC 4E 59 AB 32 32 2E 37 3A 59 28 |..177.NY.22.7:Y(|
00000A10: 31 30 29 B2 35 2E 35 38 AC 4E 53 AA 31 32 38 2E |10).5.58.NS.128.|
00000A20: 38 00 4A 12 52 03 53 28 39 29 B2 2E 31 38 34 AC |8.J.R.S(9)..184.|
00000A30: 4E 59 AB 32 32 2E 38 3A 59 28 39 29 B2 35 2E 33 |NY.22.8:Y(9).5.3|
00000A40: 36 AC 4E 53 AA 31 32 34 2E 32 00 71 12 5C 03 53 |6.NS.124.2.q.\.S|
00000A50: 28 38 29 B2 2E 31 35 38 AC 4E 59 AB 31 37 2E 36 |(8)..158.NY.17.6|
00000A60: 3A 59 28 38 29 B2 36 2E 32 AC 20 4E 53 AA 31 31 |:Y(8).6.2. NS.11|
00000A70: 32 00 99 12 66 03 53 28 37 29 B2 2E 31 33 37 AC |2...f.S(7)..137.|
00000A80: 4E 59 AB 31 33 2E 36 3A 59 28 37 29 B2 37 2E 31 |NY.13.6:Y(7).7.1|
00000A90: 38 AC 4E 53 AA 39 39 2E 38 00 C1 12 70 03 53 28 |8.NS.99.8...p.S(|
00000AA0: 36 29 B2 2E 31 37 AC 20 4E 59 AB 31 36 20 20 3A |6)..17. NY.16 :|
00000AB0: 59 28 36 29 B2 35 2E 37 37 AC 4E 53 AA 39 34 2E |Y(6).5.77.NS.94.|
00000AC0: 33 00 E9 12 7A 03 53 28 35 29 B2 2E 31 36 31 AC |3...z.S(5)..161.|
00000AD0: 4E 59 AB 31 33 2E 31 3A 59 28 35 29 B2 36 2E 30 |NY.13.1:Y(5).6.0|
00000AE0: 31 AC 4E 53 AA 38 32 2E 36 00 11 13 84 03 53 28 |1.NS.82.6.....S(|
00000AF0: 34 29 B2 2E 31 37 33 AC 4E 59 AB 31 33 2E 36 3A |4)..173.NY.13.6:|
00000B00: 59 28 34 29 B2 35 2E 36 34 AC 4E 53 AA 37 39 2E |Y(4).5.64.NS.79.|
00000B10: 39 00 39 13 8E 03 53 28 33 29 B2 2E 32 32 32 AC |9.9...S(3)..222.|
00000B20: 4E 59 AB 31 38 2E 36 3A 59 28 33 29 B2 34 2E 33 |NY.18.6:Y(3).4.3|
00000B30: 37 AC 4E 53 AA 38 34 2E 37 00 61 13 98 03 53 28 |7.NS.84.7.a...S(|
00000B40: 32 29 B2 2E 33 30 35 AC 4E 59 AB 32 35 2E 37 3A |2)..305.NY.25.7:|
00000B50: 59 28 32 29 B2 33 2E 32 31 AC 4E 53 AA 38 35 2E |Y(2).3.21.NS.85.|
00000B60: 32 00 89 13 A2 03 53 28 31 29 B2 2E 34 36 39 AC |2.....S(1)..469.|
00000B70: 4E 59 AB 34 31 2E 35 3A 59 28 31 29 B2 32 2E 30 |NY.41.5:Y(1).2.0|
00000B80: 38 AC 4E 53 AA 38 39 2E 35 00 91 13 AC 03 49 B2 |8.NS.89.5.....I.|
00000B90: 31 00 B0 13 B6 03 8B 20 4E 53 B3 53 28 49 29 20 |1...... NS.S(I) |
00000BA0: AF 49 B3 31 32 A7 49 B2 49 AA 31 3A 89 39 35 30 |.I.12.I.I.1:.950|
00000BB0: 00 BD 13 C0 03 53 4C 45 56 45 4C B2 49 00 C5 13 |.....SLEVEL.I...|
00000BC0: CA 03 49 B2 31 00 E4 13 D4 03 8B 20 4E 59 B1 59 |..I.1...... NY.Y|
00000BD0: 28 49 29 20 AF 49 B3 31 32 A7 49 B2 49 AA 31 3A |(I) .I.12.I.I.1:|
00000BE0: 89 39 38 30 00 F1 13 DE 03 59 4C 45 56 45 4C B2 |.980.....YLEVEL.|
00000BF0: 49 00 0C 14 E8 03 8B 20 4E 53 B3 53 28 31 32 29 |I...... NS.S(12)|
00000C00: 20 A7 20 53 4C 45 56 45 4C B2 31 33 00 27 14 F2 | . SLEVEL.13.'..|
00000C10: 03 8B 20 4E 59 B1 59 28 31 32 29 20 A7 20 59 4C |.. NY.Y(12) . YL|
00000C20: 45 56 45 4C B2 31 33 00 39 14 FC 03 52 4C 45 56 |EVEL.13.9...RLEV|
00000C30: 45 4C B2 53 4C 45 56 45 4C 00 5C 14 06 04 8B 20 |EL.SLEVEL.\.... |
00000C40: 59 4C 45 56 45 4C B1 52 4C 45 56 45 4C 20 A7 52 |YLEVEL.RLEVEL .R|
00000C50: 4C 45 56 45 4C B2 59 4C 45 56 45 4C 00 7C 14 10 |LEVEL.YLEVEL.|..|
00000C60: 04 52 4C 45 56 45 4C B2 52 4C 45 56 45 4C AA 31 |.RLEVEL.RLEVEL.1|
00000C70: 3A 4A B2 31 30 3A 8D 20 39 30 30 30 00 A9 14 1A |:J.10:. 9000....|
00000C80: 04 99 20 22 20 20 D3 45 4E 54 45 4E 43 45 53 20 |.. " .ENTENCES |
00000C90: 2F 20 31 30 30 20 57 4F 52 44 53 3A 20 22 3B C8 |/ 100 WORDS: ";.|
00000CA0: 28 C4 28 4E 53 29 2C 35 29 00 DB 14 24 04 99 20 |(.(NS),5)...$.. |
00000CB0: 22 20 20 D3 59 4C 4C 41 42 4C 45 53 20 2F 20 31 |" .YLLABLES / 1|
00000CC0: 30 30 20 57 4F 52 44 53 3A 20 22 3B C8 28 C4 28 |00 WORDS: ";.(.(|
00000CD0: 4E 59 29 2C 36 29 3B 22 11 11 22 00 F9 14 2E 04 |NY),6);"..".....|
00000CE0: 99 20 22 20 20 C7 52 41 44 45 20 4C 45 56 45 4C |. " .RADE LEVEL|
00000CF0: 3A 20 20 22 3B 52 4C 45 56 00 0F 15 38 04 52 45 |: ";RLEV...8.RE|
00000D00: 54 B2 30 3A 45 53 43 B2 30 3A 56 46 59 B2 30 00 |T.0:ESC.0:VFY.0.|
00000D10: 15 15 42 04 8E 00 30 15 4C 04 8F 2D 2D 2D 46 49 |..B...0.L..---FI|
00000D20: 4E 44 20 45 4F 50 20 4D 41 52 4B 45 52 2D 2D 2D |ND EOP MARKER---|
00000D30: 00 38 15 56 04 49 B2 31 00 65 15 60 04 8B 20 41 |.8.V.I.1.e.`.. A|
00000D40: 24 28 49 29 B3 B1 22 40 22 20 AF 20 49 B3 4C 20 |$(I).."@" . I.L |
00000D50: A7 20 49 B2 49 AA 31 3A 20 20 20 20 20 20 20 89 |. I.I.1: .|
00000D60: 20 31 31 32 30 00 94 15 6A 04 45 53 43 B2 30 3A | 1120...j.ESC.0:|
00000D70: 8B 20 41 24 28 49 29 B3 B1 22 40 22 20 A7 20 45 |. A$(I).."@" . E|
00000D80: 53 43 B2 AB 31 3A 20 20 20 20 20 20 20 20 8D 20 |SC..1: . |
00000D90: 31 31 36 30 00 9A 15 74 04 8E 00 B8 15 7E 04 8F |1160...t.....~..|
00000DA0: 2D 2D 2D 4E 4F 20 46 49 4E 44 20 45 4F 50 20 4D |---NO FIND EOP M|
00000DB0: 41 52 4B 45 52 2D 2D 2D 00 C8 15 88 04 4A B2 31 |ARKER---.....J.1|
00000DC0: 33 3A 8D 20 39 30 30 30 00 ED 15 92 04 99 20 A3 |3:. 9000...... .|
00000DD0: 31 29 20 22 D5 4E 41 42 4C 45 20 54 4F 20 41 4E |1) ".NABLE TO AN|
00000DE0: 41 4C 59 5A 45 20 46 49 4C 45 2E 11 22 00 20 16 |ALYZE FILE..". .|
00000DF0: 9C 04 99 20 A3 31 29 20 22 C5 4E 44 20 4F 46 20 |... .1) ".ND OF |
00000E00: 50 41 53 53 41 47 45 20 4D 41 52 4B 45 52 20 49 |PASSAGE MARKER I|
00000E10: 53 20 4E 4F 54 20 49 4E 20 50 4C 41 43 45 2E 22 |S NOT IN PLACE."|
00000E20: 00 26 16 A6 04 8E 00 3C 16 B0 04 8F 2D 2D 2D 57 |.&.....<....---W|
00000E30: 4F 52 44 20 43 4F 55 4E 54 2D 2D 2D 00 49 16 BA |ORD COUNT---.I..|
00000E40: 04 49 B2 31 3A 57 43 B2 30 00 76 16 C4 04 8B 20 |.I.1:WC.0.v.... |
00000E50: 41 24 28 49 29 B3 B1 22 40 22 20 AF 20 49 B3 4C |A$(I).."@" . I.L|
00000E60: AB 31 20 A7 20 49 B2 49 AA 31 3A 20 20 20 20 20 |.1 . I.I.1: |
00000E70: 89 20 31 32 32 30 00 8E 16 CE 04 8B 20 41 24 28 |. 1220...... A$(|
00000E80: 49 29 B3 B1 22 40 22 20 A7 20 31 33 34 30 00 9D |I).."@" . 1340..|
00000E90: 16 D8 04 49 B2 31 3A 8D 20 39 34 30 30 00 B1 16 |...I.1:. 9400...|
00000EA0: E2 04 4A B2 49 4E 4C 49 4E 45 3A 8D 20 39 30 30 |..J.INLINE:. 900|
00000EB0: 30 00 E5 16 EC 04 99 20 A3 36 29 20 22 C3 4F 55 |0...... .6) ".OU|
00000EC0: 4E 54 49 4E 47 20 57 4F 52 44 53 20 49 4E 20 46 |NTING WORDS IN F|
00000ED0: 49 4C 45 2E 2E 2E 22 3A 8D 20 39 34 32 30 3A 8D |ILE...":. 9420:.|
00000EE0: 20 39 34 30 30 00 F9 16 F6 04 4A B2 49 4E 4C 49 | 9400.....J.INLI|
00000EF0: 4E 45 3A 8D 20 39 30 30 30 00 11 17 00 05 99 20 |NE:. 9000...... |
00000F00: A3 36 29 20 22 D7 4F 52 44 20 43 4F 55 4E 54 3A |.6) ".ORD COUNT:|
00000F10: 22 00 26 17 0A 05 41 24 B2 41 24 28 49 29 3A 4D |".&...A$.A$(I):M|
00000F20: B2 C3 28 41 24 29 00 64 17 14 05 81 20 4E B2 32 |..(A$).d.... N.2|
00000F30: 20 A4 20 4D 3A 8B 20 CA 28 41 24 2C 4E 2C 31 29 | . M:. .(A$,N,1)|
00000F40: B2 22 20 22 AF 20 20 20 20 20 CA 28 41 24 2C 4E |." ". .(A$,N|
00000F50: AB 31 2C 31 29 B3 B1 22 20 22 20 A7 20 57 43 B2 |.1,1).." " . WC.|
00000F60: 57 43 AA 31 00 7F 17 1E 05 82 3A 57 43 B2 57 43 |WC.1......:WC.WC|
00000F70: AA 31 3A 99 20 A3 31 37 29 22 91 22 3B 57 43 00 |.1:. .17)".";WC.|
00000F80: 9D 17 28 05 49 B2 49 AA 31 3A 8B 20 41 24 28 49 |..(.I.I.1:. A$(I|
00000F90: 29 B3 B1 22 40 22 20 A7 20 31 32 39 30 00 A8 17 |).."@" . 1290...|
00000FA0: 32 05 8D 20 39 34 30 30 00 AE 17 3C 05 8E 00 C7 |2.. 9400...<....|
00000FB0: 17 3E 05 8F 2D 2D 2D 4E 4F 20 45 4F 50 20 4D 41 |.>..---NO EOP MA|
00000FC0: 52 4B 45 52 2D 2D 2D 00 0B 18 40 05 4A B2 49 4E |RKER---...@.J.IN|
00000FD0: 4C 49 4E 45 3A 8D 20 39 30 30 30 3A 99 20 A3 31 |LINE:. 9000:. .1|
00000FE0: 29 20 22 12 CE 4F 20 45 4E 44 20 4F 46 20 50 41 |) "..O END OF PA|
00000FF0: 53 53 41 47 45 20 4D 41 52 4B 45 52 20 46 4F 55 |SSAGE MARKER FOU|
00001000: 4E 44 2E 20 20 20 20 20 20 20 22 00 16 18 41 05 |ND. "...A.|
00001010: 8D 20 39 34 30 30 00 1C 18 42 05 8E 00 33 18 46 |. 9400...B...3.F|
00001020: 05 8F 2D 2D 2D 56 45 52 49 46 59 20 46 49 4C 45 |..---VERIFY FILE|
00001030: 2D 2D 2D 00 4D 18 50 05 8D 20 39 33 30 30 3A 8B |---.M.P.. 9300:.|
00001040: 20 45 4D 50 54 59 20 A7 20 31 36 35 30 00 64 18 | EMPTY . 1650.d.|
00001050: 5A 05 52 45 54 B2 30 3A 45 53 43 B2 30 3A 8D 20 |Z.RET.0:ESC.0:. |
00001060: 39 34 30 30 00 A4 18 5C 05 4A B2 49 4E 4C 49 4E |9400...\.J.INLIN|
00001070: 45 3A 8D 20 39 30 30 30 3A 99 20 22 20 D3 45 41 |E:. 9000:. " .EA|
00001080: 52 43 48 49 4E 47 20 46 4F 52 20 45 4E 44 20 4F |RCHING FOR END O|
00001090: 46 20 50 41 53 53 41 47 45 20 4D 41 52 4B 45 52 |F PASSAGE MARKER|
000010A0: 2E 2E 2E 22 00 B6 18 5E 05 8D 20 39 34 32 30 3A |..."...^.. 9420:|
000010B0: 8D 20 39 34 30 30 00 CA 18 64 05 4A B2 49 4E 4C |. 9400...d.J.INL|
000010C0: 49 4E 45 3A 8D 20 39 30 30 30 00 D2 18 78 05 49 |INE:. 9000...x.I|
000010D0: B2 31 00 FF 18 82 05 8B 20 41 24 28 49 29 B3 B1 |.1...... A$(I)..|
000010E0: 22 40 22 20 AF 20 49 B3 4C AB 31 20 A7 20 49 B2 |"@" . I.L.1 . I.|
000010F0: 49 AA 31 3A 20 20 20 20 20 89 20 31 34 31 30 00 |I.1: . 1410.|
00001100: 1E 19 8C 05 8B 20 41 24 28 49 29 B3 B1 22 40 22 |..... A$(I).."@"|
00001110: A7 8D 20 31 33 34 34 3A 45 53 43 B2 AB 31 00 37 |.. 1344:ESC..1.7|
00001120: 19 96 05 8B 20 45 53 43 20 AF 20 56 46 59 20 A7 |.... ESC . VFY .|
00001130: 20 8D 20 31 31 36 30 00 6B 19 A0 05 8B 20 41 24 | . 1160.k.... A$|
00001140: 28 49 29 B2 22 40 22 20 A7 20 99 20 22 20 C5 4E |(I)."@" . . " .N|
00001150: 44 20 4F 46 20 50 41 53 53 41 47 45 20 4D 41 52 |D OF PASSAGE MAR|
00001160: 4B 45 52 20 46 4F 55 4E 44 2E 22 00 A9 19 AA 05 |KER FOUND.".....|
00001170: 8B 20 41 24 28 49 29 B2 22 40 22 20 AF 20 49 B2 |. A$(I)."@" . I.|
00001180: 4C AB 31 20 A7 20 99 20 22 20 CE 4F 20 51 55 49 |L.1 . . " .O QUI|
00001190: 5A 20 51 55 45 53 54 49 4F 4E 53 20 41 52 45 20 |Z QUESTIONS ARE |
000011A0: 50 52 45 53 45 4E 54 2E 22 00 BC 19 B4 05 81 20 |PRESENT."...... |
000011B0: 4A B2 31 20 A4 20 33 30 30 30 3A 82 00 DB 19 DC |J.1 . 3000:.....|
000011C0: 05 8B 20 49 B2 4C 20 B0 20 49 B2 4C AB 31 20 B0 |.. I.L . I.L.1 .|
000011D0: 20 45 53 43 20 A7 20 31 36 35 30 00 F5 19 E6 05 | ESC . 1650.....|
000011E0: 8F 2D 2D 2D 51 55 49 5A 20 51 55 45 53 54 49 4F |.---QUIZ QUESTIO|
000011F0: 4E 53 2D 2D 2D 00 05 1A F0 05 99 20 48 43 24 3A |NS---...... HC$:|
00001200: 49 B2 49 AA 31 00 1B 1A FA 05 99 20 A3 33 29 20 |I.I.1...... .3) |
00001210: 41 24 28 49 29 3A 49 B2 49 AA 31 00 2D 1A 04 06 |A$(I):I.I.1.-...|
00001220: 41 24 B2 C8 28 41 24 28 49 29 2C 31 29 00 48 1A |A$..(A$(I),1).H.|
00001230: 0E 06 8B 20 41 24 B3 B1 22 40 22 20 AF 20 49 B3 |... A$.."@" . I.|
00001240: 4C 20 A7 20 31 35 33 30 00 85 1A 0F 06 4A B2 32 |L . 1530.....J.2|
00001250: 31 3A 8D 20 39 30 30 30 3A 99 20 22 20 C0 C0 C0 |1:. 9000:. " ...|
00001260: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001270: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001280: C0 C0 C0 22 3B 00 95 1A 18 06 4A B2 32 32 3A 8D |...";.....J.22:.|
00001290: 20 39 30 30 30 00 D0 1A 22 06 8B 20 41 24 B3 B1 | 9000...".. A$..|
000012A0: 22 40 22 20 A7 20 99 20 A3 32 29 20 22 12 C5 4E |"@" . . .2) "..N|
000012B0: 44 20 4F 46 20 51 55 45 53 54 49 4F 4E 20 4D 41 |D OF QUESTION MA|
000012C0: 52 4B 45 52 20 4E 4F 54 20 46 4F 55 4E 44 2E 22 |RKER NOT FOUND."|
000012D0: 00 FF 1A 2C 06 4F 4B B2 30 3A 8B 20 41 24 B2 22 |...,.OK.0:. A$."|
000012E0: 40 22 20 AF 20 C3 28 41 24 28 49 29 29 B1 31 20 |@" . .(A$(I)).1 |
000012F0: 20 20 20 20 20 20 20 20 A7 20 4F 4B B2 AB 31 00 | . OK..1.|
00001300: 3A 1B 36 06 8B 20 4F 4B 20 A7 20 99 20 A3 32 29 |:.6.. OK . . .2)|
00001310: 20 22 D4 48 45 20 43 4F 52 52 45 43 54 20 41 4E | ".HE CORRECT AN|
00001320: 53 57 45 52 20 49 53 20 22 3B CA 28 41 24 28 49 |SWER IS ";.(A$(I|
00001330: 29 2C 32 2C 31 29 3B 22 2E 22 00 7A 1B 40 06 8B |),2,1);".".z.@..|
00001340: 20 41 24 B2 22 40 22 20 AF 20 C3 28 41 24 28 49 | A$."@" . .(A$(I|
00001350: 29 29 B2 31 20 A7 20 99 A3 32 29 22 12 CE 4F 20 |)).1 . ..2)"..O |
00001360: 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 20 49 |CORRECT ANSWER I|
00001370: 4E 44 49 43 41 54 45 44 2E 22 00 B0 1B 4A 06 4A |NDICATED."...J.J|
00001380: B2 32 34 3A 8D 20 39 30 30 30 3A 99 20 A3 32 29 |.24:. 9000:. .2)|
00001390: 20 22 D0 52 45 53 53 20 53 50 41 43 45 20 42 41 | ".RESS SPACE BA|
000013A0: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 3B |R TO CONTINUE.";|
000013B0: 00 C9 1B 4C 06 A1 20 41 24 3A 8B 20 41 24 B3 B1 |...L.. A$:. A$..|
000013C0: 22 22 20 A7 20 31 36 31 32 00 F4 1B 54 06 A1 20 |"" . 1612...T.. |
000013D0: 41 24 3A 8B 20 41 24 B3 B1 22 20 22 20 AF 20 41 |A$:. A$.." " . A|
000013E0: 24 B3 B1 C7 28 31 33 29 20 20 20 20 20 20 A7 20 |$...(13) . |
000013F0: 31 36 32 30 00 12 1C 5E 06 8B 20 49 B3 4C AB 31 |1620...^.. I.L.1|
00001400: 20 AF 20 41 24 B3 B1 C7 28 31 33 29 20 A7 31 35 | . A$...(13) .15|
00001410: 32 30 00 1C 1C 68 06 99 20 48 43 24 00 31 1C 72 |20...h.. HC$.1.r|
00001420: 06 8B 20 A8 20 56 46 59 20 A7 20 8D 20 39 34 30 |.. . VFY . . 940|
00001430: 30 00 37 1C 7C 06 8E 00 4C 1C A2 08 8F 2D 2D 2D |0.7.|...L....---|
00001440: 45 44 49 54 20 4C 49 4E 45 2D 2D 2D 00 66 1C AC |EDIT LINE---.f..|
00001450: 08 8D 20 39 33 30 30 3A 8B 20 45 4D 50 54 59 20 |.. 9300:. EMPTY |
00001460: A7 20 32 33 34 30 00 73 1C B6 08 49 B2 C3 28 49 |. 2340.s...I..(I|
00001470: 4E 24 29 00 8D 1C C0 08 8B 20 49 B1 32 20 A7 20 |N$)...... I.2 . |
00001480: 45 24 B2 C9 28 49 4E 24 2C 49 AB 32 29 00 C9 1C |E$..(IN$,I.2)...|
00001490: CA 08 8B 49 B3 33 A7 4A B2 49 4E 4C 49 4E 45 AB |...I.3.J.INLINE.|
000014A0: 31 3A 8D 39 30 30 30 3A 99 A3 45 54 29 22 22 3B |1:.9000:..ET)"";|
000014B0: 3A 85 22 C5 44 49 54 20 57 48 49 43 48 20 4C 49 |:.".DIT WHICH LI|
000014C0: 4E 45 20 20 20 22 3B 45 24 00 DB 1C D4 08 45 25 |NE ";E$.....E%|
000014D0: B2 C5 28 45 24 29 3A 45 B2 45 25 00 F5 1C DE 08 |..(E$):E.E%.....|
000014E0: 8D 20 39 36 30 30 3A 8B 20 49 56 4C 49 44 20 A7 |. 9600:. IVLID .|
000014F0: 20 32 33 34 30 00 00 1D E8 08 8D 20 39 34 30 30 | 2340...... 9400|
00001500: 00 10 1D F2 08 4A B2 32 33 3A 8D 20 39 30 30 30 |.....J.23:. 9000|
00001510: 00 28 1D FC 08 99 20 22 20 20 C5 44 49 54 20 4C |.(.... " .DIT L|
00001520: 49 4E 45 20 22 3B 45 24 00 3A 1D 06 09 4C 49 4E |INE ";E$.:...LIN|
00001530: 45 B2 45 3A 8D 20 39 31 30 30 00 4D 1D 08 09 4A |E.E:. 9100.M...J|
00001540: B2 49 4E 4C 49 4E 45 3A 8D 39 30 30 30 00 63 1D |.INLINE:.9000.c.|
00001550: 10 09 99 20 A3 35 29 20 C7 28 33 34 29 3B 41 24 |... .5) .(34);A$|
00001560: 28 45 29 00 86 1D 12 09 4A B2 49 4E 4C 49 4E 45 |(E).....J.INLINE|
00001570: 3A 8D 20 39 30 30 30 3A 99 20 A3 33 29 22 22 3B |:. 9000:. .3)"";|
00001580: 3A 85 20 49 4E 24 00 A2 1D 1A 09 8D 20 39 32 30 |:. IN$...... 920|
00001590: 30 3A 8D 20 39 34 30 30 3A 41 24 28 45 29 B2 49 |0:. 9400:A$(E).I|
000015A0: 4E 24 00 AD 1D 24 09 8D 20 39 34 30 30 00 B3 1D |N$...$.. 9400...|
000015B0: 2E 09 8E 00 CD 1D 56 09 8F 2D 2D 2D 50 52 49 4E |......V..---PRIN|
000015C0: 54 20 4F 55 54 20 46 49 4C 45 2D 2D 2D 00 E7 1D |T OUT FILE---...|
000015D0: 60 09 8D 20 39 33 30 30 3A 8B 20 45 4D 50 54 59 |`.. 9300:. EMPTY|
000015E0: 20 A7 20 32 35 34 30 00 F3 1D 6A 09 49 B2 C3 28 | . 2540...j.I..(|
000015F0: 41 24 29 00 0C 1E 74 09 8B 20 49 B1 32 20 A7 20 |A$)...t.. I.2 . |
00001600: 45 24 B2 C9 28 41 24 2C 49 AB 32 29 00 1F 1E 88 |E$..(A$,I.2)....|
00001610: 09 8B 20 49 B3 33 20 A7 20 45 24 B2 22 31 22 00 |.. I.3 . E$."1".|
00001620: 31 1E 92 09 45 25 B2 C5 28 45 24 29 3A 45 B2 45 |1...E%..(E$):E.E|
00001630: 25 00 4B 1E 9C 09 8D 20 39 36 30 30 3A 8B 20 49 |%.K.... 9600:. I|
00001640: 56 4C 49 44 20 A7 20 32 35 34 30 00 5A 1E A6 09 |VLID . 2540.Z...|
00001650: 4A B2 32 35 3A 8D 39 30 30 30 00 6E 1E B0 09 99 |J.25:.9000.n....|
00001660: 20 A3 31 37 29 22 D2 C5 D4 D5 D2 CE 22 3B 00 82 | .17)"......";..|
00001670: 1E C4 09 9F 34 2C 34 2C 37 3A 98 34 2C C7 28 31 |....4,4,7:.4,.(1|
00001680: 33 29 00 BA 1E CE 09 98 34 2C C8 28 45 4C 24 2C |3)......4,.(EL$,|
00001690: 32 AB 28 45 B3 31 30 29 AA 28 45 B3 31 30 30 29 |2.(E.10).(E.100)|
000016A0: 29 20 20 20 20 20 3B 45 3B 22 20 20 20 22 3B 41 |) ;E;" ";A|
000016B0: 24 28 45 29 3A 45 B2 45 AA 31 00 F0 1E D0 09 81 |$(E):E.E.1......|
000016C0: 20 49 B2 31 20 A4 20 35 30 3A 82 3A A1 20 41 24 | I.1 . 50:.:. A$|
000016D0: 3A 8B 20 45 B3 4C 20 20 20 20 20 20 20 20 AF 20 |:. E.L . |
000016E0: 41 24 B3 B1 20 C7 28 31 33 29 A7 20 32 35 31 30 |A$.. .(13). 2510|
000016F0: 00 FD 1E D1 09 98 34 2C C7 28 31 33 29 00 04 1F |......4,.(13)...|
00001700: D2 09 A0 34 00 0F 1F EC 09 8D 20 39 34 30 30 00 |...4...... 9400.|
00001710: 15 1F F6 09 8E 00 2E 1F E6 0A 8F 2D 2D 2D 4C 49 |...........---LI|
00001720: 53 54 20 54 48 45 20 46 49 4C 45 2D 2D 2D 00 48 |ST THE FILE---.H|
00001730: 1F F0 0A 8D 20 39 33 30 30 3A 8B 20 45 4D 50 54 |.... 9300:. EMPT|
00001740: 59 20 A7 20 32 39 33 30 00 64 1F FA 0A 49 B2 C3 |Y . 2930.d...I..|
00001750: 28 49 4E 24 29 3A 47 B2 AB 31 3A 45 24 B2 22 22 |(IN$):G..1:E$.""|
00001760: 3A 45 B2 31 00 92 1F 04 0B 8B 20 49 B1 32 20 A7 |:E.1...... I.2 .|
00001770: 20 45 24 B2 C9 28 49 4E 24 2C 49 AB 32 29 3A 45 | E$..(IN$,I.2):E|
00001780: 25 B2 20 20 20 20 20 20 C5 28 45 24 29 3A 45 B2 |%. .(E$):E.|
00001790: 45 25 00 AB 1F 0E 0B 8D 20 39 36 30 30 3A 8B 20 |E%...... 9600:. |
000017A0: 49 56 4C 49 44 20 A7 20 45 B2 31 00 B6 1F 18 0B |IVLID . E.1.....|
000017B0: 8D 20 39 34 32 30 00 EA 1F 22 0B 4A B2 49 4E 4C |. 9420...".J.INL|
000017C0: 49 4E 45 AA 31 3A 8D 20 39 30 30 30 3A 41 24 B2 |INE.1:. 9000:A$.|
000017D0: C4 28 45 29 3A 41 24 20 20 20 20 20 B2 C9 28 41 |.(E):A$ ..(A|
000017E0: 24 2C C3 28 41 24 29 AB 31 29 00 1D 20 2C 0B 99 |$,.(A$).1).. ,..|
000017F0: A6 AB 28 45 B3 31 30 29 AB 28 45 B3 31 30 30 29 |..(E.10).(E.100)|
00001800: 29 41 24 3B 22 20 20 20 22 3B 20 20 20 20 20 20 |)A$;" "; |
00001810: 41 24 28 45 29 3B 22 11 11 11 11 11 22 00 34 20 |A$(E);".....".4 |
00001820: 32 0B 45 B2 45 AA 31 3A 81 20 49 B2 31 20 A4 20 |2.E.E.1:. I.1 . |
00001830: 33 35 3A 82 00 60 20 36 0B A1 20 41 24 3A 49 B2 |35:..` 6.. A$:I.|
00001840: C6 28 41 24 AA C7 28 30 29 29 3A 8B 20 49 B2 33 |.(A$..(0)):. I.3|
00001850: 32 20 20 20 20 20 20 20 20 A7 20 47 B2 A8 20 47 |2 . G.. G|
00001860: 00 79 20 4A 0B 8B 20 A8 20 47 20 AF 20 49 B3 B1 |.y J.. . G . I..|
00001870: 31 33 20 A7 20 32 38 37 30 00 92 20 54 0B 8B 20 |13 . 2870.. T.. |
00001880: 45 B3 4C 20 AF 20 49 B3 B1 31 33 20 A7 20 32 38 |E.L . I..13 . 28|
00001890: 35 30 00 98 20 68 0B 99 00 A3 20 72 0B 8D 20 39 |50.. h.... r.. 9|
000018A0: 34 30 30 00 A9 20 7C 0B 8E 00 C0 20 AE 0B 8F 2D |400.. |.... ...-|
000018B0: 2D 2D 49 4E 53 45 52 54 20 4C 49 4E 45 2D 2D 2D |--INSERT LINE---|
000018C0: 00 DA 20 B8 0B 8D 20 39 33 30 30 3A 8B 20 45 4D |.. ... 9300:. EM|
000018D0: 50 54 59 20 A7 20 33 31 38 30 00 ED 20 C2 0B 8B |PTY . 3180.. ...|
000018E0: 20 4C B1 32 30 30 20 A7 20 33 31 37 30 00 FA 20 | L.200 . 3170.. |
000018F0: CC 0B 49 B2 C3 28 49 4E 24 29 00 24 21 D6 0B 8B |..I..(IN$).$!...|
00001900: 20 49 B1 32 20 A7 20 45 24 B2 C9 28 49 4E 24 2C | I.2 . E$..(IN$,|
00001910: 49 AB 32 29 3A 20 20 20 20 20 20 20 20 20 89 20 |I.2): . |
00001920: 33 30 35 35 00 49 21 E0 0B 4A B2 49 4E 4C 49 4E |3055.I!..J.INLIN|
00001930: 45 AB 31 3A 8D 20 39 30 30 30 3A 99 A3 45 54 29 |E.1:. 9000:..ET)|
00001940: 20 20 20 20 20 20 22 22 3B 00 67 21 EA 0B 85 20 | "";.g!... |
00001950: 22 C9 4E 53 45 52 54 20 57 48 49 43 48 20 4C 49 |".NSERT WHICH LI|
00001960: 4E 45 20 22 3B 45 24 00 79 21 EF 0B 45 25 B2 C5 |NE ";E$.y!..E%..|
00001970: 28 45 24 29 3A 45 B2 45 25 00 93 21 F4 0B 8D 20 |(E$):E.E%..!... |
00001980: 39 36 30 30 3A 8B 20 49 56 4C 49 44 20 A7 20 33 |9600:. IVLID . 3|
00001990: 31 38 30 00 9E 21 FE 0B 8D 20 39 34 30 30 00 C9 |180..!... 9400..|
000019A0: 21 08 0C 4A B2 32 33 3A 8D 39 30 30 30 3A 99 22 |!..J.23:.9000:."|
000019B0: 20 20 C9 4E 53 45 52 54 20 4C 49 4E 45 22 20 20 | .NSERT LINE" |
000019C0: 20 20 20 3B 45 3B 22 11 22 00 DE 21 12 0C 99 20 | ;E;"."..!... |
000019D0: A3 31 36 29 20 22 2E 51 28 55 49 54 22 3B 00 F8 |.16) ".Q(UIT";..|
000019E0: 21 1C 0C 4C 49 4E 45 B2 45 3A 8D 20 39 31 30 30 |!..LINE.E:. 9100|
000019F0: 3A 99 20 22 20 20 22 3B 00 0E 22 26 0C 99 20 C7 |:. " ";.."&.. .|
00001A00: 28 33 34 29 3A 99 20 22 91 1D 1D 1D 22 3B 00 1B |(34):. "....";..|
00001A10: 22 30 0C 85 20 22 22 3B 49 4E 24 00 3C 22 3A 0C |"0.. "";IN$.<":.|
00001A20: 8B 20 49 4E 24 B2 22 2E 51 22 20 B0 20 49 4E 24 |. IN$.".Q" . IN$|
00001A30: B2 22 2E D1 22 20 A7 20 33 31 37 30 00 47 22 44 |.".." . 3170.G"D|
00001A40: 0C 8D 20 39 32 30 30 00 7A 22 4E 0C 81 20 49 B2 |.. 9200.z"N.. I.|
00001A50: 4C AB 31 20 A4 20 45 20 A9 AB 31 3A 41 24 28 49 |L.1 . E ..1:A$(I|
00001A60: AA 31 29 B2 41 24 28 49 29 20 20 20 20 20 3A 82 |.1).A$(I) :.|
00001A70: 3A 41 24 28 45 29 B2 49 4E 24 00 99 22 58 0C 4C |:A$(E).IN$.."X.L|
00001A80: B2 4C AA 31 3A 45 B2 45 AA 31 3A 8B 20 4C B3 32 |.L.1:E.E.1:. L.2|
00001A90: 30 31 20 A7 20 33 30 37 30 00 A4 22 62 0C 8D 20 |01 . 3070.."b.. |
00001AA0: 39 34 30 30 00 AF 22 6C 0C 8D 20 39 34 30 30 00 |9400.."l.. 9400.|
00001AB0: B5 22 76 0C 8E 00 CC 22 80 0C 8F 2D 2D 2D 44 45 |."v...."...---DE|
00001AC0: 4C 45 54 45 20 4C 49 4E 45 2D 2D 2D 00 E6 22 8A |LETE LINE---..".|
00001AD0: 0C 8D 20 39 33 30 30 3A 8B 20 45 4D 50 54 59 20 |.. 9300:. EMPTY |
00001AE0: A7 20 33 33 38 30 00 17 23 9E 0C 49 B2 C3 28 49 |. 3380..#..I..(I|
00001AF0: 4E 24 29 3A 8B 20 49 B1 32 20 A7 20 45 24 B2 C9 |N$):. I.2 . E$..|
00001B00: 28 20 20 20 20 20 20 20 49 4E 24 2C 49 AB 32 29 |( IN$,I.2)|
00001B10: 3A 89 20 33 32 37 30 00 2D 23 A8 0C 4A B2 49 4E |:. 3270.-#..J.IN|
00001B20: 4C 49 4E 45 AB 31 3A 8D 20 39 30 30 30 00 3B 23 |LINE.1:. 9000.;#|
00001B30: B2 0C 99 20 A3 45 54 29 22 22 3B 00 59 23 BC 0C |... .ET)"";.Y#..|
00001B40: 85 20 22 C4 45 4C 45 54 45 20 57 48 49 43 48 20 |. ".ELETE WHICH |
00001B50: 4C 49 4E 45 20 22 3B 45 24 00 6B 23 C6 0C 45 25 |LINE ";E$.k#..E%|
00001B60: B2 C5 28 45 24 29 3A 45 B2 45 25 00 85 23 D0 0C |..(E$):E.E%..#..|
00001B70: 8D 20 39 36 30 30 3A 8B 20 49 56 4C 49 44 20 A7 |. 9600:. IVLID .|
00001B80: 20 33 33 38 30 00 90 23 DA 0C 8D 20 39 34 32 30 | 3380..#... 9420|
00001B90: 00 AF 23 E4 0C 4C 49 4E 45 B2 45 3A 8D 20 39 31 |..#..LINE.E:. 91|
00001BA0: 30 30 3A 99 22 20 20 20 22 3B 41 24 28 45 29 00 |00:." ";A$(E).|
00001BB0: C1 23 EE 0C 8D 20 39 34 32 30 3A 8D 20 39 34 32 |.#... 9420:. 942|
00001BC0: 30 00 D5 23 F0 0C 4A B2 49 4E 4C 49 4E 45 3A 8D |0..#..J.INLINE:.|
00001BD0: 20 39 30 30 30 00 F4 23 F8 0C 99 20 A3 36 29 20 | 9000..#... .6) |
00001BE0: 22 C4 45 4C 45 54 45 20 54 48 49 53 3F 20 28 59 |".ELETE THIS? (Y|
00001BF0: 2F 4E 29 22 00 FF 23 FA 0C 8D 20 39 34 30 30 00 |/N)"..#... 9400.|
00001C00: 3D 24 02 0D A1 20 41 24 3A 8B 20 41 24 B3 B1 22 |=$... A$:. A$.."|
00001C10: 59 22 20 AF 20 41 24 B3 B1 22 D9 22 20 AF 20 20 |Y" . A$.."." . |
00001C20: 20 20 20 20 20 41 24 B3 B1 22 4E 22 20 AF 20 41 | A$.."N" . A|
00001C30: 24 B3 B1 22 CE 22 20 A7 20 33 33 33 30 00 5A 24 |$.."." . 3330.Z$|
00001C40: 0C 0D 8B 20 41 24 B2 22 4E 22 20 B0 20 41 24 B2 |... A$."N" . A$.|
00001C50: 22 CE 22 20 A7 20 33 33 38 30 00 7A 24 16 0D 81 |"." . 3380.z$...|
00001C60: 20 49 B2 45 20 A4 20 4C AB 31 3A 41 24 28 49 29 | I.E . L.1:A$(I)|
00001C70: B2 41 24 28 49 AA 31 29 3A 82 00 84 24 20 0D 4C |.A$(I.1):...$ .L|
00001C80: B2 4C AB 31 00 8F 24 34 0D 8D 20 39 34 30 30 00 |.L.1..$4.. 9400.|
00001C90: 95 24 3E 0D 8E 00 B3 24 48 0D 8F 2D 2D 2D 47 45 |.$>....$H..---GE|
00001CA0: 54 20 46 49 4C 45 20 46 52 4F 4D 20 44 49 53 4B |T FILE FROM DISK|
00001CB0: 2D 2D 2D 00 D4 24 52 0D 49 B2 C3 28 49 4E 24 29 |---..$R.I..(IN$)|
00001CC0: 3A 45 24 B2 22 22 3A 44 53 4B 45 52 B2 30 3A 44 |:E$."":DSKER.0:D|
00001CD0: 49 52 B2 30 00 F9 24 5C 0D 8B 20 49 B1 32 20 A7 |IR.0..$\.. I.2 .|
00001CE0: 20 45 24 B2 C9 28 49 4E 24 2C 49 AB 32 29 3A 89 | E$..(IN$,I.2):.|
00001CF0: 20 20 20 20 20 33 34 35 30 00 04 25 5E 0D 8D 20 | 3450..%^.. |
00001D00: 39 34 30 30 00 15 25 66 0D 4A B2 49 4E 4C 3A 8D |9400..%f.J.INL:.|
00001D10: 20 39 30 30 30 00 2C 25 70 0D 8D 20 34 33 30 30 | 9000.,%p.. 4300|
00001D20: 3A 8F 20 46 49 4C 45 20 4E 41 4D 45 00 6E 25 7A |:. FILE NAME.n%z|
00001D30: 0D 8B 20 45 24 B2 22 2E 44 22 B0 45 24 B2 22 2E |.. E$.".D".E$.".|
00001D40: C4 22 A7 20 44 49 52 B2 AB 31 3A 20 20 20 20 20 |.". DIR..1: |
00001D50: 20 20 20 8D 20 33 36 39 30 3A 45 24 B2 22 22 3A | . 3690:E$."":|
00001D60: 8B 20 44 53 4B 45 52 20 A7 20 33 35 34 36 00 7F |. DSKER . 3546..|
00001D70: 25 7C 0D 8B 20 44 49 52 20 A7 20 33 34 33 30 00 |%|.. DIR . 3430.|
00001D80: 92 25 84 0D 8B 20 45 24 B2 22 22 20 A7 20 33 35 |.%... E$."" . 35|
00001D90: 34 36 00 AA 25 8E 0D 8D 20 33 36 30 30 3A 8F 20 |46..%... 3600:. |
00001DA0: 4C 4F 57 45 52 20 43 41 53 45 00 C3 25 98 0D 81 |LOWER CASE..%...|
00001DB0: 20 49 B2 31 20 A4 20 4C 3A 41 24 28 49 29 B2 22 | I.1 . L:A$(I)."|
00001DC0: 22 3A 82 00 D2 25 A2 0D 49 B2 B8 28 30 29 3A 4C |":...%..I..(0):L|
00001DD0: B2 31 00 FE 25 AC 0D 9F 31 35 2C 38 2C 31 35 2C |.1..%...15,8,15,|
00001DE0: 22 49 22 3A 9F 20 32 2C 38 2C 32 2C 22 30 3A 22 |"I":. 2,8,2,"0:"|
00001DF0: AA 45 24 AA 20 20 20 20 20 22 53 2C 52 22 00 2A |.E$. "S,R".*|
00001E00: 26 B6 0D 4A B2 53 54 3A 8B 20 4A B2 30 20 A7 20 |&..J.ST:. J.0 . |
00001E10: 84 32 2C 41 24 28 4C 29 3A 4C B2 4C AA 20 20 20 |.2,A$(L):L.L. |
00001E20: 20 20 31 3A 89 20 33 35 31 30 00 42 26 C0 0D A0 | 1:. 3510.B&...|
00001E30: 32 3A 84 31 35 2C 41 2C 42 24 2C 43 2C 44 3A A0 |2:.15,A,B$,C,D:.|
00001E40: 31 35 00 5E 26 CA 0D 8B 41 B3 B1 30 A7 4C B2 31 |15.^&...A..0.L.1|
00001E50: 3A 8D 20 33 35 36 30 3A 89 20 33 35 34 36 00 7C |:. 3560:. 3546.||
00001E60: 26 D4 0D 4C B2 4C AB 31 AB 28 4C B2 31 29 3A 42 |&..L.L.1.(L.1):B|
00001E70: 24 B2 C8 28 41 24 28 4C 29 2C 36 29 00 BA 26 D8 |$..(A$(L),6)..&.|
00001E80: 0D 57 43 B2 30 3A 8B 20 42 24 B2 22 D7 CF D2 C4 |.WC.0:. B$."....|
00001E90: D3 3D 22 20 A7 20 43 24 B2 C9 28 20 20 20 20 20 |.=" . C$..( |
00001EA0: 41 24 28 4C 29 2C C3 28 41 24 28 4C 29 29 AB 37 |A$(L),.(A$(L)).7|
00001EB0: 29 3A 57 43 B2 C5 28 43 24 29 00 C7 26 D9 0D 4E |):WC..(C$)..&..N|
00001EC0: 41 4D 45 24 B2 45 24 00 D2 26 DA 0D 8D 20 39 34 |AME$.E$..&... 94|
00001ED0: 30 30 00 D8 26 DB 0D 8E 00 EE 26 DE 0D 8F 2D 2D |00..&.....&...--|
00001EE0: 2D 44 49 53 4B 20 45 52 52 4F 52 2D 2D 2D 00 02 |-DISK ERROR---..|
00001EF0: 27 E8 0D 8D 20 39 34 32 30 3A 4A B2 49 4E 4C 49 |'... 9420:J.INLI|
00001F00: 4E 45 00 1A 27 F2 0D 8D 39 30 30 30 3A 99 A3 32 |NE..'...9000:..2|
00001F10: 29 42 24 3A 8D 20 39 34 32 30 00 20 27 FC 0D 8E |)B$:. 9420. '...|
00001F20: 00 36 27 06 0E 8F 2D 2D 2D 4C 4F 57 45 52 20 43 |.6'...---LOWER C|
00001F30: 41 53 45 2D 2D 2D 00 46 27 10 0E 45 24 B2 C8 28 |ASE---.F'..E$..(|
00001F40: 45 24 2C 31 35 29 00 5F 27 1A 0E 49 B2 C6 28 C9 |E$,15)._'..I..(.|
00001F50: 28 45 24 2C 31 29 29 3A 4A B2 C3 28 45 24 29 00 |(E$,1)):J..(E$).|
00001F60: 99 27 24 0E 8B 20 49 B2 33 32 20 B0 20 49 B2 31 |.'$.. I.32 . I.1|
00001F70: 36 30 20 AF 20 4A B1 31 20 A7 20 45 24 B2 20 20 |60 . J.1 . E$. |
00001F80: 20 20 20 20 20 C8 28 45 24 2C C3 28 45 24 29 AB | .(E$,.(E$).|
00001F90: 31 29 3A 89 20 33 36 31 30 00 C5 27 2E 0E 42 24 |1):. 3610..'..B$|
00001FA0: B2 22 22 3A 81 20 49 B2 31 20 A4 20 C3 28 45 24 |."":. I.1 . .(E$|
00001FB0: 29 3A 4A B2 C6 28 CA 20 20 20 20 20 28 45 24 2C |):J..(. (E$,|
00001FC0: 49 2C 31 29 29 00 E1 27 38 0E 42 24 B2 42 24 AA |I,1))..'8.B$.B$.|
00001FD0: C7 28 4A AA 31 32 38 AC 28 4A B1 39 30 29 29 3A |.(J.128.(J.90)):|
00001FE0: 82 00 00 28 42 0E 42 24 B2 C8 28 42 24 2C 31 35 |...(B.B$..(B$,15|
00001FF0: 29 AA 22 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 |)."............"|
00002000: 00 10 28 4C 0E 45 24 B2 C8 28 42 24 2C 31 36 29 |..(L.E$..(B$,16)|
00002010: 00 16 28 56 0E 8E 00 30 28 60 0E 8F 2D 2D 2D 44 |..(V...0(`..---D|
00002020: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 2D 2D 2D |ISK DIRECTORY---|
00002030: 00 41 28 6A 0E 99 20 48 43 24 3A 8D 20 39 34 30 |.A(j.. HC$:. 940|
00002040: 30 00 51 28 74 0E 4A B2 32 35 3A 8D 20 39 30 30 |0.Q(t.J.25:. 900|
00002050: 30 00 6F 28 7E 0E 99 20 A3 31 34 29 20 22 2E 44 |0.o(~.. .14) ".D|
00002060: 28 49 52 45 43 54 4F 52 59 22 3B 48 4D 24 3B 00 |(IRECTORY";HM$;.|
00002070: 8D 28 88 0E 9F 20 31 35 2C 38 2C 31 35 2C 22 49 |.(... 15,8,15,"I|
00002080: 22 3A 9F 20 31 2C 38 2C 31 2C 22 24 22 00 AD 28 |":. 1,8,1,"$"..(|
00002090: 92 0E 8F 20 4A 3D 31 2D 38 20 43 54 52 20 20 4B |... J=1-8 CTR K|
000020A0: 3D 54 54 41 4C 20 20 20 54 3D 54 41 42 00 C9 28 |=TTAL T=TAB..(|
000020B0: 9C 0E 4A B2 31 3A 4B B2 31 3A 54 B2 32 3A 8B 20 |..J.1:K.1:T.2:. |
000020C0: 53 54 20 A7 20 33 39 37 30 00 E3 28 A6 0E A1 23 |ST . 3970..(...#|
000020D0: 31 2C 41 24 2C 41 24 3A 8B 20 53 54 20 A7 20 33 |1,A$,A$:. ST . 3|
000020E0: 39 37 30 00 25 29 0A 0F 81 20 49 B2 31 20 A4 20 |970.%)... I.1 . |
000020F0: 31 38 3A A1 23 31 2C 41 24 2C 41 24 2C 41 24 2C |18:.#1,A$,A$,A$,|
00002100: 41 24 2C 41 24 2C 20 20 20 41 24 2C 41 24 2C 41 |A$,A$, A$,A$,A|
00002110: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |$,A$,A$,A$,A$,A$|
00002120: 2C 41 24 3A 82 00 35 29 14 0F 8B 20 53 54 20 A7 |,A$:..5)... ST .|
00002130: 20 33 39 37 30 00 52 29 1E 0F A1 23 31 2C 41 24 | 3970.R)...#1,A$|
00002140: 2C 42 24 2C 42 24 3A 8B 20 53 54 20 A7 20 33 39 |,B$,B$:. ST . 39|
00002150: 37 30 00 88 29 28 0F 8B 20 C6 28 41 24 AA C7 28 |70..)(.. .(A$..(|
00002160: 30 29 29 B3 B1 31 32 39 20 A7 20 81 20 49 B2 20 |0))..129 . . I. |
00002170: 20 20 31 20 A4 20 31 36 3A A1 23 31 2C 41 24 3A | 1 . 16:.#1,A$:|
00002180: 82 3A 89 20 33 39 32 30 00 BD 29 32 0F 49 24 B2 |.:. 3920..)2.I$.|
00002190: 22 22 3A 81 20 49 B2 31 20 A4 20 32 3A A1 23 31 |"":. I.1 . 2:.#1|
000021A0: 2C 41 24 2C 42 24 2C 43 24 2C 44 20 20 20 20 20 |,A$,B$,C$,D |
000021B0: 24 2C 45 24 2C 46 24 2C 47 24 2C 48 24 00 E1 29 |$,E$,F$,G$,H$..)|
000021C0: 3C 0F 49 24 B2 49 24 AA 41 24 AA 42 24 AA 43 24 |<.I$.I$.A$.B$.C$|
000021D0: AA 44 24 AA 45 24 AA 46 24 AA 47 24 AA 48 24 3A |.D$.E$.F$.G$.H$:|
000021E0: 82 00 F4 29 46 0F 99 20 A3 54 29 20 49 24 3A 4B |...)F.. .T) I$:K|
000021F0: B2 4B AA 31 00 32 2A 50 0F A1 23 31 2C 41 24 2C |.K.1.2*P..#1,A$,|
00002200: 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 |A$,A$,A$,A$,A$,A|
00002210: 24 2C 41 24 2C 41 24 2C 41 24 20 20 20 2C 41 24 |$,A$,A$,A$ ,A$|
00002220: 3A 8B 20 4A B3 38 20 A7 20 A1 23 31 2C 41 24 2C |:. J.8 . .#1,A$,|
00002230: 41 24 00 44 2A 5A 0F 4A B2 4A AA 31 AA 38 AC 28 |A$.D*Z.J.J.1.8.(|
00002240: 4A B2 38 29 00 5D 2A 64 0F 8B 20 4B B2 31 38 20 |J.8).]*d.. K.18 |
00002250: A7 20 54 B2 32 31 3A 99 20 48 4D 24 3B 00 68 2A |. T.21:. HM$;.h*|
00002260: 6E 0F 89 20 33 38 36 30 00 72 2A 78 0F 8F 44 4F |n.. 3860.r*x..DO|
00002270: 4E 45 00 8A 2A 82 0F A0 31 3A 84 31 35 2C 49 2C |NE..*...1:.15,I,|
00002280: 42 24 2C 4E 2C 4D 3A A0 31 35 00 A5 2A 8C 0F 8B |B$,N,M:.15..*...|
00002290: 20 49 B3 B1 30 20 A7 20 8D 20 34 30 32 30 3A 89 | I..0 . . 4020:.|
000022A0: 20 34 30 30 32 00 C0 2A 96 0F 4A B2 33 AA 4B AA | 4002..*..J.3.K.|
000022B0: 32 31 AC 28 4B B1 32 32 29 3A 8D 20 39 30 30 30 |21.(K.22):. 9000|
000022C0: 00 F0 2A A0 0F 8B 20 4B B2 31 A7 99 A3 32 29 22 |..*... K.1...2)"|
000022D0: CE 4F 20 44 41 54 41 20 46 49 4C 45 53 20 41 52 |.O DATA FILES AR|
000022E0: 45 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 2E 22 |E ON THIS DISK."|
000022F0: 00 05 2B A1 0F 4A B2 32 32 3A 8D 20 39 30 30 30 |..+..J.22:. 9000|
00002300: 3A 99 20 4C 24 00 0B 2B A2 0F 8E 00 25 2B AA 0F |:. L$..+....%+..|
00002310: 8F 2D 2D 44 49 52 45 43 54 4F 52 59 20 45 52 52 |.--DIRECTORY ERR|
00002320: 4F 52 2D 2D 2D 00 42 2B B4 0F 4A B2 49 4E 4C 49 |OR---.B+..J.INLI|
00002330: 4E 45 3A 8D 20 39 30 30 30 3A 44 53 4B 45 52 B2 |NE:. 9000:DSKER.|
00002340: AB 31 00 60 2B BE 0F 99 20 A3 36 29 20 22 C4 49 |.1.`+... .6) ".I|
00002350: 52 45 43 54 4F 52 59 20 C5 52 52 4F 52 11 11 22 |RECTORY .RROR.."|
00002360: 00 74 2B C8 0F 8D 20 39 34 32 30 3A 99 20 A3 36 |.t+... 9420:. .6|
00002370: 29 20 42 24 00 7A 2B DC 0F 8E 00 97 2B E6 0F 8F |) B$.z+.....+...|
00002380: 2D 2D 2D 53 41 56 45 20 46 49 4C 45 20 54 4F 20 |---SAVE FILE TO |
00002390: 44 49 53 4B 2D 2D 2D 00 B1 2B F0 0F 8D 20 39 33 |DISK---..+... 93|
000023A0: 30 30 3A 8B 20 45 4D 50 54 59 20 A7 20 34 32 32 |00:. EMPTY . 422|
000023B0: 30 00 CC 2B FA 0F 49 B2 C3 28 49 4E 24 29 3A 45 |0..+..I..(IN$):E|
000023C0: 24 B2 22 22 3A 44 53 4B 45 52 B2 30 00 F1 2B 04 |$."":DSKER.0..+.|
000023D0: 10 8B 20 49 B1 32 20 A7 20 45 24 B2 C9 28 49 4E |.. I.2 . E$..(IN|
000023E0: 24 2C 49 AB 32 29 3A 89 20 20 20 20 20 34 31 33 |$,I.2):. 413|
000023F0: 30 00 0C 2C 0E 10 8D 20 39 34 30 30 3A 4A B2 49 |0..,... 9400:J.I|
00002400: 4E 4C 49 4E 45 3A 8D 20 39 30 30 30 00 25 2C 10 |NLINE:. 9000.%,.|
00002410: 10 8B 20 4E 41 4D 45 24 B3 B1 22 22 20 A7 20 8D |.. NAME$.."" . .|
00002420: 20 34 32 35 30 00 3A 2C 18 10 8B 20 45 24 B2 22 | 4250.:,... E$."|
00002430: 22 20 A7 20 8D 20 34 33 36 30 00 77 2C 22 10 8B |" . . 4360.w,"..|
00002440: 20 45 24 B2 22 2E 44 22 20 B0 20 45 24 B2 22 2E | E$.".D" . E$.".|
00002450: C4 22 20 A7 20 44 49 52 B2 AB 31 3A 20 20 20 20 |." . DIR..1: |
00002460: 20 20 8D 20 33 36 39 30 3A 8B 20 44 53 4B 45 52 | . 3690:. DSKER|
00002470: 20 A7 20 34 32 32 30 00 90 2C 26 10 8B 20 44 49 | . 4220..,&.. DI|
00002480: 52 20 A7 20 45 24 B2 22 22 3A 89 20 34 31 32 30 |R . E$."":. 4120|
00002490: 00 A3 2C 2C 10 8B 20 45 24 B2 22 22 20 A7 20 34 |..,,.. E$."" . 4|
000024A0: 32 32 30 00 BB 2C 36 10 8D 20 33 36 30 30 3A 8F |220..,6.. 3600:.|
000024B0: 20 4C 4F 57 45 52 20 43 41 53 45 00 CF 2C 3B 10 | LOWER CASE..,;.|
000024C0: 8B 20 57 43 B2 30 20 A7 20 8D 20 31 32 31 30 00 |. WC.0 . . 1210.|
000024D0: 00 2D 40 10 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |.-@..15,8,15,"I"|
000024E0: 3A 9F 20 32 2C 38 2C 32 2C 22 40 30 3A 22 AA 45 |:. 2,8,2,"@0:".E|
000024F0: 24 20 20 20 20 20 AA 22 53 2C 57 22 3A 49 B2 31 |$ ."S,W":I.1|
00002500: 00 39 2D 4A 10 4A B2 53 54 3A 8B 4A B2 30 A7 98 |.9-J.J.ST:.J.0..|
00002510: 32 2C C7 28 33 34 29 3B 41 24 28 49 20 29 3B C7 |2,.(34);A$(I );.|
00002520: 28 33 34 29 3A 8B 20 49 B3 4C AB 31 20 A7 49 B2 |(34):. I.L.1 .I.|
00002530: 49 AA 31 3A 89 34 31 37 30 00 55 2D 4C 10 98 32 |I.1:.4170.U-L..2|
00002540: 2C 22 57 4F 52 44 53 3D 22 3B 57 43 3A 4E 41 4D |,"WORDS=";WC:NAM|
00002550: 45 24 B2 45 24 00 6D 2D 54 10 A0 32 3A 84 31 35 |E$.E$.m-T..2:.15|
00002560: 2C 41 2C 42 24 2C 43 2C 44 3A A0 31 35 00 81 2D |,A,B$,C,D:.15..-|
00002570: 5E 10 8B 20 41 B3 B1 30 20 A7 20 8D 20 33 35 36 |^.. A..0 . . 356|
00002580: 30 00 8C 2D 7C 10 8D 20 39 34 30 30 00 92 2D 86 |0..-|.. 9400..-.|
00002590: 10 8E 00 B1 2D 90 10 8F 2D 2D 2D 53 41 56 45 20 |....-...---SAVE |
000025A0: 4F 4C 44 20 46 49 4C 45 20 4E 41 4D 45 3F 2D 2D |OLD FILE NAME?--|
000025B0: 2D 00 BE 2D 9A 10 41 24 B2 4E 41 4D 45 24 00 D7 |-..-..A$.NAME$..|
000025C0: 2D 9C 10 4A B2 C6 28 C9 28 41 24 2C 31 29 29 3A |-..J..(.(A$,1)):|
000025D0: 49 B2 C3 28 41 24 29 00 0D 2E 9D 10 8B 20 28 4A |I..(A$)...... (J|
000025E0: B2 31 36 30 20 B0 20 4A B2 33 32 29 20 AF 20 49 |.160 . J.32) . I|
000025F0: B1 31 20 A7 20 41 24 B2 20 20 20 20 20 C8 28 41 |.1 . A$. .(A|
00002600: 24 2C 49 AB 31 29 3A 89 20 34 32 35 32 00 3A 2E |$,I.1):. 4252.:.|
00002610: 9E 10 99 20 A3 36 29 22 D3 41 56 45 20 41 53 20 |... .6)".AVE AS |
00002620: 22 3B 41 24 3B 22 3F 20 28 59 2F 4E 29 22 20 20 |";A$;"? (Y/N)" |
00002630: 20 20 20 3A 8D 20 39 34 30 30 00 78 2E A4 10 A1 | :. 9400.x....|
00002640: 20 41 24 3A 8B 20 41 24 B3 B1 22 59 22 20 AF 20 | A$:. A$.."Y" . |
00002650: 41 24 B3 B1 22 D9 22 20 AF 20 20 20 20 20 20 20 |A$.."." . |
00002660: 41 24 B3 B1 22 4E 22 20 AF 20 41 24 B3 B1 22 CE |A$.."N" . A$..".|
00002670: 22 20 A7 20 34 32 36 30 00 9A 2E AE 10 45 24 B2 |" . 4260.....E$.|
00002680: 22 22 3A 8B 41 24 B2 22 59 22 B0 41 24 B2 22 D9 |"":.A$."Y".A$.".|
00002690: 22 A7 45 24 B2 4E 41 4D 45 24 00 B8 2E B0 10 8B |".E$.NAME$......|
000026A0: 20 41 24 B2 22 4E 22 20 B0 20 41 24 B2 22 CE 22 | A$."N" . A$."."|
000026B0: 20 A7 20 8D 39 34 30 30 00 BE 2E B8 10 8E 00 D7 | . .9400........|
000026C0: 2E C2 10 8F 2D 2D 2D 47 45 54 20 46 49 4C 45 20 |....---GET FILE |
000026D0: 4E 41 4D 45 2D 2D 2D 00 FD 2E CC 10 4A B2 32 35 |NAME---.....J.25|
000026E0: 3A 8D 20 39 30 30 30 3A 99 20 A3 31 34 29 20 22 |:. 9000:. .14) "|
000026F0: 2E 44 28 49 52 45 43 54 4F 52 59 22 3B 00 2C 2F |.D(IRECTORY";.,/|
00002700: D6 10 4A B2 49 4E 4C 49 4E 45 3A 8D 39 30 30 30 |..J.INLINE:.9000|
00002710: 3A 99 20 A3 36 AA 34 AC 20 20 20 20 20 20 20 44 |:. .6.4. D|
00002720: 49 52 29 22 22 3B 3A 44 49 52 B2 30 00 4B 2F E0 |IR)"";:DIR.0.K/.|
00002730: 10 85 20 22 C7 45 54 20 46 49 4C 45 20 4E 41 4D |.. ".ET FILE NAM|
00002740: 45 22 3B 45 24 3A 8D 39 34 30 30 00 51 2F F4 10 |E";E$:.9400.Q/..|
00002750: 8E 00 6B 2F FE 10 8F 2D 2D 2D 53 41 56 45 20 46 |..k/...---SAVE F|
00002760: 49 4C 45 20 4E 41 4D 45 2D 2D 2D 00 91 2F 08 11 |ILE NAME---../..|
00002770: 4A B2 32 35 3A 8D 20 39 30 30 30 3A 99 20 A3 31 |J.25:. 9000:. .1|
00002780: 34 29 20 22 2E 44 28 49 52 45 43 54 4F 52 59 22 |4) ".D(IRECTORY"|
00002790: 3B 00 C0 2F 12 11 4A B2 49 4E 4C 49 4E 45 3A 8D |;../..J.INLINE:.|
000027A0: 20 39 30 30 30 3A 99 A3 36 AA 34 AC 20 20 20 20 | 9000:..6.4. |
000027B0: 20 20 20 44 49 52 29 22 22 3B 3A 44 49 52 B2 30 | DIR)"";:DIR.0|
000027C0: 00 DF 2F 1C 11 85 22 D3 41 56 45 20 46 49 4C 45 |../...".AVE FILE|
000027D0: 20 4E 41 4D 45 22 3B 45 24 3A 8D 39 34 30 30 00 | NAME";E$:.9400.|
000027E0: E5 2F 26 11 8E 00 FD 2F 30 11 8F 2D 2D 2D 43 4C |./&..../0..---CL|
000027F0: 45 41 52 20 4D 45 4D 4F 52 59 2D 2D 2D 00 17 30 |EAR MEMORY---..0|
00002800: 3A 11 8B 20 4C B2 31 20 A7 20 41 24 B2 22 59 22 |:.. L.1 . A$."Y"|
00002810: 3A 89 20 34 34 35 30 00 32 30 44 11 8D 20 39 34 |:. 4450.20D.. 94|
00002820: 30 30 3A 4A B2 49 4E 4C 49 4E 45 3A 8D 20 39 30 |00:J.INLINE:. 90|
00002830: 30 30 00 5E 30 4E 11 99 20 A3 36 29 20 22 C4 45 |00.^0N.. .6) ".E|
00002840: 53 54 52 4F 59 20 54 48 45 20 43 55 52 52 45 4E |STROY THE CURREN|
00002850: 54 20 46 49 4C 45 3F 20 28 59 2F 4E 29 22 00 9C |T FILE? (Y/N)"..|
00002860: 30 58 11 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 59 |0X.. A$:. A$.."Y|
00002870: 22 20 AF 20 41 24 B3 B1 22 D9 22 20 AF 20 20 20 |" . A$.."." . |
00002880: 20 20 20 20 41 24 B3 B1 22 4E 22 20 AF 20 41 24 | A$.."N" . A$|
00002890: B3 B1 22 CE 22 20 A7 20 34 34 34 30 00 CA 30 62 |.."." . 4440..0b|
000028A0: 11 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 |.. A$.."Y" . A$.|
000028B0: B1 22 D9 22 20 A7 20 8D 20 20 20 20 20 20 20 39 |."." . . 9|
000028C0: 34 32 30 3A 8D 20 39 34 30 30 00 E8 30 6C 11 8B |420:. 9400..0l..|
000028D0: 20 41 24 B2 22 59 22 20 B0 20 41 24 B2 22 D9 22 | A$."Y" . A$."."|
000028E0: 20 A7 20 8D 38 30 31 30 00 EE 30 76 11 8E 00 05 | . .8010..0v....|
000028F0: 31 40 1F 8F 2D 2D 2D 53 43 52 45 45 4E 20 49 4E |1@..---SCREEN IN|
00002900: 49 54 2D 2D 2D 00 26 31 4A 1F 42 24 B2 22 22 3A |IT---.&1J.B$."":|
00002910: 4E 41 4D 45 24 B2 22 22 3A 49 4E 4C 49 4E 45 B2 |NAME$."":INLINE.|
00002920: 31 39 3A 4C B2 31 00 56 31 54 1F 45 54 B2 31 35 |19:L.1.V1T.ET.15|
00002930: 3A 8F 20 54 41 42 20 46 4F 52 20 45 52 52 20 4D |:. TAB FOR ERR M|
00002940: 45 53 53 41 47 45 20 20 20 20 20 20 20 20 20 20 |ESSAGE |
00002950: 20 20 20 20 20 22 00 88 31 5E 1F 45 4C 24 B2 22 | "..1^.EL$."|
00002960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002980: 20 20 20 20 20 20 20 22 00 B9 31 68 1F 4C 24 B2 | "..1h.L$.|
00002990: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
000029A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000029B0: C0 C0 C0 C0 C0 C0 C0 C0 22 00 D2 31 72 1F A1 20 |........"..1r.. |
000029C0: 41 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 38 30 |A$:. A$.."" . 80|
000029D0: 35 30 00 EF 31 7C 1F 99 48 43 24 3A 81 49 B2 31 |50..1|..HC$:.I.1|
000029E0: A4 32 30 31 3A 41 24 28 49 29 B2 22 22 3A 82 00 |.201:A$(I)."":..|
000029F0: FF 31 86 1F 49 B2 B8 28 30 29 3A 57 43 B2 30 00 |.1..I..(0):WC.0.|
00002A00: 0E 32 90 1F 97 20 35 33 32 37 32 2C 32 33 00 3C |.2... 53272,23.<|
00002A10: 32 A4 1F 99 20 A3 33 29 22 2A 2A 2A 20 20 20 D3 |2... .3)"*** .|
00002A20: 50 45 45 44 20 D2 45 41 44 45 52 20 C9 C9 20 C5 |PEED .EADER .. .|
00002A30: 44 49 54 4F 52 20 20 2A 2A 2A 11 22 00 6D 32 AE |DITOR ***.".m2.|
00002A40: 1F 99 20 22 20 20 C3 4F 50 59 52 49 47 48 54 20 |.. " .OPYRIGHT |
00002A50: 31 39 38 33 20 C4 41 56 49 44 53 4F 4E 20 26 20 |1983 .AVIDSON & |
00002A60: C1 53 53 4F 43 49 41 54 45 53 11 11 22 00 9D 32 |.SSOCIATES.."..2|
00002A70: B8 1F 99 20 22 20 20 D4 48 45 20 50 52 4F 4D 50 |... " .HE PROMP|
00002A80: 54 20 4C 49 4E 45 20 41 54 20 54 48 45 20 42 4F |T LINE AT THE BO|
00002A90: 54 54 4F 4D 20 4F 46 20 54 48 45 11 22 00 CD 32 |TTOM OF THE."..2|
00002AA0: C2 1F 99 20 22 20 20 53 43 52 45 45 4E 20 44 49 |... " SCREEN DI|
00002AB0: 53 50 4C 41 59 53 20 54 48 45 20 45 44 49 54 4F |SPLAYS THE EDITO|
00002AC0: 52 20 43 4F 4D 4D 41 4E 44 53 2E 11 22 00 FC 32 |R COMMANDS.."..2|
00002AD0: CC 1F 99 20 22 20 20 C6 4F 52 20 48 45 4C 50 2C |... " .OR HELP,|
00002AE0: 20 55 53 45 20 54 48 45 20 2E 48 20 20 43 4F 4D | USE THE .H COM|
00002AF0: 4D 41 4E 44 2E 20 20 D5 53 45 11 22 00 2D 33 D6 |MAND. .SE.".-3.|
00002B00: 1F 99 20 22 20 20 54 48 45 20 C3 D2 D3 D2 20 4B |.. " THE .... K|
00002B10: 45 59 20 41 54 20 54 48 45 20 52 49 47 48 54 20 |EY AT THE RIGHT |
00002B20: 53 49 44 45 20 4F 46 20 54 48 45 11 22 00 5D 33 |SIDE OF THE.".]3|
00002B30: E0 1F 99 20 22 20 20 4B 45 59 42 4F 41 52 44 20 |... " KEYBOARD |
00002B40: 54 4F 20 43 4F 50 59 20 4F 56 45 52 20 54 48 45 |TO COPY OVER THE|
00002B50: 20 51 55 4F 54 45 20 4D 41 52 4B 11 22 00 86 33 | QUOTE MARK."..3|
00002B60: EA 1F 99 20 22 20 20 41 54 20 54 48 45 20 42 45 |... " AT THE BE|
00002B70: 47 49 4E 4E 49 4E 47 20 4F 46 20 45 41 43 48 20 |GINNING OF EACH |
00002B80: 4C 49 4E 45 2E 22 00 9B 33 F4 1F 4A B2 32 32 3A |LINE."..3..J.22:|
00002B90: 8D 20 39 30 30 30 3A 99 20 4C 24 00 A1 33 FE 1F |. 9000:. L$..3..|
00002BA0: 8E 00 B1 33 1E 23 8F 2D 2D 2D 56 54 41 42 2D 2D |...3.#.---VTAB--|
00002BB0: 2D 00 C1 33 28 23 97 20 32 31 34 2C 4A AB 32 3A |-..3(#. 214,J.2:|
00002BC0: 99 00 C7 33 32 23 8E 00 DF 33 82 23 8F 2D 2D 2D |...32#...3.#.---|
00002BD0: 56 54 41 42 20 26 20 4C 49 4E 45 23 2D 2D 2D 00 |VTAB & LINE#---.|
00002BE0: 15 34 8C 23 4A B2 49 4E 4C 49 4E 45 3A 8D 20 39 |.4.#J.INLINE:. 9|
00002BF0: 30 30 30 3A 41 24 B2 C4 28 4C 49 4E 45 29 3A 20 |000:A$..(LINE): |
00002C00: 20 20 20 20 20 41 24 B2 C9 28 41 24 2C C3 28 41 | A$..(A$,.(A|
00002C10: 24 29 AB 31 29 00 35 34 A0 23 99 A6 AB 28 4C 49 |$).1).54.#...(LI|
00002C20: 4E 45 B3 31 30 29 AB 28 4C 49 4E 45 B3 31 30 30 |NE.10).(LINE.100|
00002C30: 29 29 41 24 3B 00 3B 34 AA 23 8E 00 53 34 E6 23 |))A$;.;4.#..S4.#|
00002C40: 8F 2D 2D 2D 4C 45 4E 47 54 48 20 43 48 45 43 4B |.---LENGTH CHECK|
00002C50: 2D 2D 2D 00 65 34 F0 23 49 4E 24 B2 C8 28 49 4E |---.e4.#IN$..(IN|
00002C60: 24 2C 33 34 29 00 82 34 F2 23 41 24 B2 C9 28 49 |$,34)..4.#A$..(I|
00002C70: 4E 24 2C 31 29 3A 49 B2 C6 28 41 24 AA C7 28 30 |N$,1):I..(A$..(0|
00002C80: 29 29 00 BD 34 F3 23 8B 20 28 49 B2 33 32 20 B0 |))..4.#. (I.32 .|
00002C90: 20 49 B2 31 36 30 29 20 AF C3 28 41 24 29 B1 31 | I.160) ..(A$).1|
00002CA0: A7 20 20 20 41 24 B2 C8 28 49 4E 24 2C C3 28 49 |. A$..(IN$,.(I|
00002CB0: 4E 24 29 AB 31 29 3A 89 20 39 32 30 32 00 D1 34 |N$).1):. 9202..4|
00002CC0: 18 24 4A B2 49 4E 4C 49 4E 45 3A 8D 20 39 30 30 |.$J.INLINE:. 900|
00002CD0: 30 00 FA 34 22 24 99 20 A3 33 29 22 20 20 20 22 |0..4"$. .3)" "|
00002CE0: 3B 49 4E 24 3B 3A 8B 20 C3 28 49 4E 24 29 B3 20 |;IN$;:. .(IN$). |
00002CF0: 20 20 20 20 33 34 20 A7 20 99 00 14 35 36 24 99 | 34 . ...56$.|
00002D00: 45 4C 24 3A 8B C3 28 49 4E 24 29 B1 33 33 A7 8D |EL$:..(IN$).33..|
00002D10: 39 34 30 30 00 1A 35 40 24 8E 00 31 35 4A 24 8F |9400..5@$..15J$.|
00002D20: 2D 2D 2D 45 4D 50 54 59 20 43 48 45 43 4B 2D 2D |---EMPTY CHECK--|
00002D30: 2D 00 41 35 54 24 45 4D 50 54 59 B2 28 4C B2 31 |-.A5T$EMPTY.(L.1|
00002D40: 29 00 77 35 5E 24 8B 20 45 4D 20 A7 20 4A B2 49 |).w5^$. EM . J.I|
00002D50: 4E 4C AB 31 3A 8D 20 39 30 30 30 3A 99 20 A3 45 |NL.1:. 9000:. .E|
00002D60: 54 29 22 CE 4F 20 4C 49 4E 45 53 20 49 4E 20 4D |T)".O LINES IN M|
00002D70: 45 4D 4F 52 59 2E 22 00 7D 35 68 24 8E 00 96 35 |EMORY.".}5h$...5|
00002D80: AE 24 8F 2D 2D 2D 53 43 52 4F 4C 4C 20 53 43 52 |.$.---SCROLL SCR|
00002D90: 45 45 4E 2D 2D 2D 00 CA 35 B8 24 4A B2 32 32 3A |EEN---..5.$J.22:|
00002DA0: 8D 39 30 30 30 3A 81 49 B2 31 A4 34 3A 99 45 4C |.9000:.I.1.4:.EL|
00002DB0: 24 3A 20 20 20 20 20 20 82 3A 4A B2 32 32 3A 8D |$: .:J.22:.|
00002DC0: 39 30 30 30 3A 99 4C 24 3A 8E 00 E4 35 C2 24 8F |9000:.L$:...5.$.|
00002DD0: 2D 2D 2D 53 43 52 4F 4C 4C 20 4E 4F 20 4C 49 4E |---SCROLL NO LIN|
00002DE0: 45 2D 2D 2D 00 0D 36 CC 24 4A B2 32 32 3A 8D 20 |E---..6.$J.22:. |
00002DF0: 39 30 30 30 3A 81 20 49 B2 31 20 A4 20 34 3A 99 |9000:. I.1 . 4:.|
00002E00: 20 20 20 20 20 20 45 4C 24 3A 82 3A 8E 00 2B 36 | EL$:.:..+6|
00002E10: 76 25 8F 2D 2D 2D 56 41 4C 49 44 20 4C 49 4E 45 |v%.---VALID LINE|
00002E20: 20 23 20 43 48 45 43 4B 2D 2D 2D 00 43 36 80 25 | # CHECK---.C6.%|
00002E30: 49 56 4C 49 44 B2 28 45 B3 31 20 B0 20 45 B1 4C |IVLID.(E.1 . E.L|
00002E40: AB 31 29 00 82 36 8A 25 8B 20 49 56 4C 49 20 A7 |.1)..6.%. IVLI .|
00002E50: 20 4A B2 49 4E 4C 49 4E 45 AB 31 3A 8D 20 39 30 | J.INLINE.1:. 90|
00002E60: 30 30 20 20 20 20 3A 99 A3 45 54 29 20 22 C9 4E |00 :..ET) ".N|
00002E70: 56 41 4C 49 44 20 4C 49 4E 45 20 4E 55 4D 42 45 |VALID LINE NUMBE|
00002E80: 52 22 00 88 36 94 25 8E 00 A0 36 DA 25 8F 2D 2D |R"..6.%...6.%.--|
00002E90: 2D 43 48 41 4E 47 45 20 44 49 53 4B 53 2D 2D 2D |-CHANGE DISKS---|
00002EA0: 00 E0 36 E4 25 97 35 33 32 37 32 2C 32 33 3A 99 |..6.%.53272,23:.|
00002EB0: 20 48 43 24 3A 99 20 A3 34 29 20 22 2A 20 2A 20 | HC$:. .4) "* * |
00002EC0: 20 D3 50 45 45 44 20 D2 45 41 44 45 52 20 C9 C9 | .PEED .EADER ..|
00002ED0: 20 C5 44 49 54 4F 52 20 20 2A 20 2A 11 11 11 22 | .DITOR * *..."|
00002EE0: 00 FC 36 E6 25 99 20 A3 34 29 20 22 D0 4C 45 41 |..6.%. .4) ".LEA|
00002EF0: 53 45 20 53 45 4C 45 43 54 3A 11 22 00 2D 37 E8 |SE SELECT:.".-7.|
00002F00: 25 99 20 A3 34 29 20 22 CC 49 47 48 54 20 4F 52 |%. .4) ".IGHT OR|
00002F10: 20 44 41 52 4B 20 42 41 43 4B 47 52 4F 55 4E 44 | DARK BACKGROUND|
00002F20: 3F 20 28 CC 2F 98 C4 97 29 11 11 11 22 00 69 37 |? (./...)...".i7|
00002F30: EA 25 A1 41 24 3A 8B 41 24 B3 B1 22 4C 22 AF 41 |.%.A$:.A$.."L".A|
00002F40: 24 B3 B1 22 CC 22 AF 41 24 B3 B1 22 44 22 20 AF |$..".".A$.."D" .|
00002F50: 41 24 B3 B1 22 C4 22 AF 20 41 24 B3 B1 C7 28 31 |A$..".". A$...(1|
00002F60: 33 29 20 A7 20 39 37 30 36 00 89 37 EC 25 4C 42 |3) . 9706..7.%LB|
00002F70: B2 28 41 24 B2 22 CC 22 B0 41 24 B2 22 4C 22 B0 |.(A$.".".A$."L".|
00002F80: 41 24 B2 C7 28 31 33 29 29 00 A0 37 ED 25 44 42 |A$..(13))..7.%DB|
00002F90: B2 28 41 24 B2 22 C4 22 B0 41 24 B2 22 44 22 29 |.(A$.".".A$."D")|
00002FA0: 00 CC 37 EE 25 99 20 A3 34 29 22 D0 4C 45 41 53 |..7.%. .4)".LEAS|
00002FB0: 45 20 52 45 4D 4F 56 45 20 54 48 45 20 50 52 4F |E REMOVE THE PRO|
00002FC0: 47 52 41 4D 20 44 49 53 4B 2E 11 22 00 F5 37 F8 |GRAM DISK.."..7.|
00002FD0: 25 99 20 A3 34 29 20 22 D0 4C 45 41 53 45 20 49 |%. .4) ".LEASE I|
00002FE0: 4E 53 45 52 54 20 54 48 45 20 44 41 54 41 20 44 |NSERT THE DATA D|
00002FF0: 49 53 4B 2E 22 00 05 38 02 26 4A B2 32 34 3A 8D |ISK."..8.&J.24:.|
00003000: 20 39 30 30 30 00 2D 38 0C 26 99 20 A3 37 29 20 | 9000.-8.&. .7) |
00003010: 22 D0 52 45 53 53 20 D3 50 41 43 45 20 C2 41 52 |".RESS .PACE .AR|
00003020: 20 54 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 46 38 | TO .ONTINUE".F8|
00003030: 16 26 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 22 20 |.&. A$:. A$.."" |
00003040: A7 20 39 37 35 30 00 60 38 20 26 A1 20 41 24 3A |. 9750.`8 &. A$:|
00003050: 8B 20 41 24 B3 B1 22 20 22 20 A7 20 39 37 36 30 |. A$.." " . 9760|
00003060: 00 A1 38 22 26 99 20 22 93 22 3A 97 35 33 32 38 |..8"&. ".":.5328|
00003070: 30 2C AB 31 32 AC 4C 42 3A 97 20 20 20 20 20 20 |0,.12.LB:. |
00003080: 20 20 20 35 33 32 38 31 2C AB 4C 42 AB 31 31 AC | 53281,.LB.11.|
00003090: 44 42 3A 97 36 34 36 2C AB 44 42 AB 31 31 AC 4C |DB:.646,.DB.11.L|
000030A0: 42 00 A7 38 2A 26 8E 00 C3 38 3E 26 8F 2D 2D 2D |B..8*&...8>&.---|
000030B0: 4D 41 49 4E 20 50 52 4F 4D 50 54 20 4C 49 4E 45 |MAIN PROMPT LINE|
000030C0: 2D 2D 2D 00 D3 38 48 26 4A B2 32 35 3A 8D 20 39 |---..8H&J.25:. 9|
000030D0: 30 30 30 00 01 39 52 26 99 20 22 20 2E 45 20 2E |000..9R&. " .E .|
000030E0: 4C 20 2E 44 20 2E 49 20 2E 56 20 2E 41 20 2E 53 |L .D .I .V .A .S|
000030F0: 20 2E 47 20 2E 50 20 2E 43 20 2E 51 20 2E 48 22 | .G .P .C .Q .H"|
00003100: 3B 00 07 39 5C 26 8E 00 1E 39 A2 26 8F 2D 2D 2D |;..9\&...9.&.---|
00003110: 48 45 4C 50 20 53 43 52 45 45 4E 2D 2D 2D 00 29 |HELP SCREEN---.)|
00003120: 39 AC 26 99 20 48 43 24 3B 00 53 39 B6 26 99 20 |9.&. HC$;.S9.&. |
00003130: 22 20 D4 48 45 20 43 4F 4D 4D 41 4E 44 53 20 49 |" .HE COMMANDS I|
00003140: 4E 20 54 48 49 53 20 45 44 49 54 4F 52 20 41 52 |N THIS EDITOR AR|
00003150: 45 3A 22 00 6D 39 C0 26 99 20 22 20 2E 45 20 20 |E:".m9.&. " .E |
00003160: 20 45 44 49 54 20 41 20 4C 49 4E 45 22 00 89 39 | EDIT A LINE"..9|
00003170: CA 26 99 20 22 20 2E 4C 20 20 20 4C 49 53 54 20 |.&. " .L LIST |
00003180: 54 48 45 20 46 49 4C 45 22 00 A5 39 D4 26 99 20 |THE FILE"..9.&. |
00003190: 22 20 2E 44 20 20 20 44 45 4C 45 54 45 20 41 20 |" .D DELETE A |
000031A0: 4C 49 4E 45 22 00 C0 39 DE 26 99 20 22 20 2E 49 |LINE"..9.&. " .I|
000031B0: 20 20 20 49 4E 53 45 52 54 20 4C 49 4E 45 53 22 | INSERT LINES"|
000031C0: 00 DA 39 E8 26 99 20 22 20 2E 56 20 20 20 56 45 |..9.&. " .V VE|
000031D0: 52 49 46 59 20 46 49 4C 45 22 00 F5 39 F2 26 99 |RIFY FILE"..9.&.|
000031E0: 20 22 20 2E 41 20 20 20 41 4E 41 4C 59 5A 45 20 | " .A ANALYZE |
000031F0: 46 49 4C 45 22 00 15 3A FC 26 99 20 22 20 2E 53 |FILE"..:.&. " .S|
00003200: 20 20 20 53 41 56 45 20 46 49 4C 45 20 54 4F 20 | SAVE FILE TO |
00003210: 44 49 53 4B 22 00 36 3A 06 27 99 20 22 20 2E 47 |DISK".6:.'. " .G|
00003220: 20 20 20 47 45 54 20 46 49 4C 45 20 46 52 4F 4D | GET FILE FROM|
00003230: 20 44 49 53 4B 22 00 5A 3A 08 27 99 20 22 20 2E | DISK".Z:.'. " .|
00003240: 50 20 20 20 50 52 49 4E 54 20 46 49 4C 45 20 4F |P PRINT FILE O|
00003250: 4E 20 50 52 49 4E 54 45 52 22 00 81 3A 10 27 99 |N PRINTER"..:.'.|
00003260: 22 20 2E 43 20 20 20 43 4C 45 41 52 20 45 44 49 |" .C CLEAR EDI|
00003270: 54 4F 52 20 46 4F 52 20 4E 45 57 20 46 49 4C 45 |TOR FOR NEW FILE|
00003280: 22 00 9E 3A 1A 27 99 22 20 2E 51 20 20 20 51 55 |"..:.'." .Q QU|
00003290: 49 54 20 54 48 45 20 45 44 49 54 4F 52 22 00 B7 |IT THE EDITOR"..|
000032A0: 3A 24 27 99 22 20 2E 48 20 20 20 48 45 4C 50 20 |:$'." .H HELP |
000032B0: 53 43 52 45 45 4E 22 00 E8 3A 2E 27 99 3A 99 20 |SCREEN"..:.'.:. |
000032C0: 22 20 D5 53 45 20 54 48 45 20 C3 D2 D3 D2 20 4B |" .SE THE .... K|
000032D0: 45 59 20 4F 4E 20 54 48 45 20 52 49 47 48 54 20 |EY ON THE RIGHT |
000032E0: 53 49 44 45 20 4F 46 22 00 15 3B 38 27 99 20 22 |SIDE OF"..;8'. "|
000032F0: 20 54 48 45 20 4B 45 59 42 4F 41 52 44 20 54 4F | THE KEYBOARD TO|
00003300: 20 43 4F 50 59 20 4F 56 45 52 20 54 48 45 20 51 | COPY OVER THE Q|
00003310: 55 4F 54 45 22 00 42 3B 42 27 99 20 22 20 4D 41 |UOTE".B;B'. " MA|
00003320: 52 4B 20 41 54 20 54 48 45 20 42 45 47 49 4E 4E |RK AT THE BEGINN|
00003330: 49 4E 47 20 4F 46 20 45 41 43 48 20 4C 49 4E 45 |ING OF EACH LINE|
00003340: 2E 22 00 57 3B 4C 27 4A B2 32 32 3A 8D 20 39 30 |.".W;L'J.22:. 90|
00003350: 30 30 3A 99 20 4C 24 00 5D 3B 56 27 8E 00 74 3B |00:. L$.];V'..t;|
00003360: 60 27 8F 2D 2D 2D 51 55 49 54 20 45 44 49 54 4F |`'.---QUIT EDITO|
00003370: 52 2D 2D 2D 00 7E 3B 6A 27 99 20 48 43 24 00 9B |R---.~;j'. HC$..|
00003380: 3B 74 27 99 22 20 20 D9 4F 55 52 20 43 48 4F 49 |;t'." .OUR CHOI|
00003390: 43 45 53 20 41 52 45 3A 11 11 22 00 BE 3B 7E 27 |CES ARE:.."..;~'|
000033A0: 99 22 20 20 31 3E 20 D2 45 54 55 52 4E 20 54 4F |." 1> .ETURN TO|
000033B0: 20 54 48 45 20 45 44 49 54 4F 52 11 11 22 00 EE | THE EDITOR.."..|
000033C0: 3B 88 27 99 22 20 20 32 3E 20 D3 41 56 45 20 46 |;.'." 2> .AVE F|
000033D0: 49 4C 45 20 28 49 46 20 59 4F 55 20 48 41 56 45 |ILE (IF YOU HAVE|
000033E0: 4E 27 54 20 41 4C 52 45 41 44 59 29 11 22 00 10 |N'T ALREADY)."..|
000033F0: 3C 92 27 99 22 20 20 20 20 20 41 4E 44 20 51 55 |<.'." AND QU|
00003400: 49 54 20 54 48 45 20 45 44 49 54 4F 52 11 11 22 |IT THE EDITOR.."|
00003410: 00 2E 3C 9C 27 99 22 20 20 33 3E 20 D1 55 49 54 |..<.'." 3> .UIT|
00003420: 20 54 48 45 20 45 44 49 54 4F 52 11 11 22 00 4C | THE EDITOR..".L|
00003430: 3C A6 27 99 22 20 20 D9 4F 55 52 20 43 48 4F 49 |<.'." .OUR CHOI|
00003440: 43 45 3F 20 28 31 2D 33 29 11 11 22 00 66 3C A8 |CE? (1-3)..".f<.|
00003450: 27 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 |'. A$:. A$.."" .|
00003460: 20 31 30 31 35 32 00 90 3C B0 27 A1 20 41 24 3A | 10152..<.'. A$:|
00003470: 8B 20 41 24 B3 22 31 22 20 B0 20 41 24 B1 22 33 |. A$."1" . A$."3|
00003480: 22 20 A7 20 20 20 20 20 20 20 20 31 30 31 36 30 |" . 10160|
00003490: 00 AA 3C BA 27 49 B2 C5 28 41 24 29 3A 8B 20 49 |..<.'I..(A$):. I|
000034A0: B2 31 20 A7 20 31 30 32 37 30 00 DE 3C C4 27 8B |.1 . 10270..<.'.|
000034B0: 20 49 B2 32 20 A7 20 8D 20 34 30 38 30 3A 8B 20 | I.2 . . 4080:. |
000034C0: 45 4D 50 54 59 20 20 20 20 20 20 20 20 20 A7 20 |EMPTY . |
000034D0: 81 20 49 B2 31 20 A4 20 32 30 30 30 3A 82 00 F3 |. I.1 . 2000:...|
000034E0: 3C CE 27 48 43 24 B2 22 93 22 3A 20 20 20 99 20 |<.'HC$.".": . |
000034F0: 48 43 24 00 1E 3D D8 27 99 20 22 20 20 20 D4 4F |HC$..=.'. " .O|
00003500: 20 20 52 45 2D 45 4E 54 45 52 20 20 54 48 45 20 | RE-ENTER THE |
00003510: 20 45 44 49 54 4F 52 20 57 49 54 48 11 22 00 4A | EDITOR WITH.".J|
00003520: 3D E2 27 99 20 22 20 20 20 59 4F 55 52 20 46 49 |=.'. " YOUR FI|
00003530: 4C 45 20 49 4E 54 41 43 54 2C 20 54 59 50 45 3A |LE INTACT, TYPE:|
00003540: 20 47 4F 54 4F 20 35 30 11 22 00 6A 3D E3 27 99 | GOTO 50.".j=.'.|
00003550: 20 22 20 20 20 41 4E 44 20 50 52 45 53 53 20 D2 | " AND PRESS .|
00003560: C5 D4 D5 D2 CE 2E 11 11 11 22 00 95 3D EC 27 99 |........."..=.'.|
00003570: 20 22 20 20 20 D4 4F 20 52 55 4E 20 D3 50 45 45 | " .O RUN .PEE|
00003580: 44 20 D2 45 41 44 45 52 20 C9 C9 2C 20 49 4E 53 |D .EADER .., INS|
00003590: 45 52 54 11 22 00 C0 3D F6 27 99 20 22 20 20 20 |ERT."..=.'. " |
000035A0: 54 48 45 20 20 50 52 4F 47 52 41 4D 20 20 44 49 |THE PROGRAM DI|
000035B0: 53 4B 20 20 41 4E 44 20 20 54 59 50 45 3A 11 22 |SK AND TYPE:."|
000035C0: 00 FE 3D 00 28 99 20 22 20 20 20 4C 4F 41 44 20 |..=.(. " LOAD |
000035D0: 22 3B C7 28 33 34 29 3B 22 53 50 45 45 44 22 3B |";.(34);"SPEED";|
000035E0: C7 28 33 34 29 3B 22 2C 38 20 20 41 4E 44 20 50 |.(34);",8 AND P|
000035F0: 52 45 53 53 20 D2 C5 D4 D5 D2 CE 2E 11 22 00 2D |RESS ........".-|
00003600: 3E 0A 28 99 20 22 20 20 20 D7 48 45 4E 20 54 48 |>.(. " .HEN TH|
00003610: 45 20 50 52 4F 47 52 41 4D 20 48 41 53 20 4C 4F |E PROGRAM HAS LO|
00003620: 41 44 45 44 2C 20 54 59 50 45 3A 11 22 00 50 3E |ADED, TYPE:.".P>|
00003630: 0E 28 99 20 22 20 20 20 52 55 4E 20 20 41 4E 44 |.(. " RUN AND|
00003640: 20 50 52 45 53 53 20 D2 C5 D4 D5 D2 CE 2E 11 22 | PRESS ........"|
00003650: 00 56 3E 14 28 80 00 6C 3E 1E 28 99 20 48 43 24 |.V>.(..l>.(. HC$|
00003660: 3A 4A B2 32 32 3A 8D 20 39 30 30 30 00 75 3E 28 |:J.22:. 9000.u>(|
00003670: 28 99 20 4C 24 00 7B 3E 32 28 8E 00 00 00 |(. L$.{>2(.... |
..".... 53281,1:. 53280,12:.646,11.F...I
.0:J.0:K.0:L.1:M.0:N.0:HM$.".".H.... A$(
203),S(12),Y(12):HC$."."...... 9700:. CH
ANGE DISK...(.. 8010:. 60:. SCREEN INIT.
..*..---WARM START INIT---.V.2.. HC$:. 9
400:. 53272,23...4..---MAIN INPUT LOOP--
-...<.J.23:. 9000:. " NEW LINE";L.+.F..
9800:. PROMPT LINE.M.P.LINE.L:. 9100:.
INLINE+NUMBER.G.Z.. .5) G(34):. "....";.
.D.. IN$:. 9200:. 9400...N.. H(IN$,1)."
.". . 160: . 130.C.X.. L.201 . A$(L
).IN$:L.L.1.L.... 60......---CHANGE MODE
---... .B$.J(IN$,2,1):. B$."" . 310."...
. B$."." . B$.G(F(B$).128).^.... B$."E"
. B$."I" . B$."D" . B$. "G" . B$."C"
. WC.0.T.... B$."E" . . 2220...... B$."P
" . . 2400. .... B$."L" . . 2800...H.. B
$."I" . . 3000.L.R.. B$."D" . . 3210....
.. B$."S" . . 4080...... B$."G" . . 3410
...... B$."C" . . 4410.%.... B$."Q" . .
10090.;.... B$."H" . . 9900.Q.... B$."V"
. . 1360.F.... B$."A" . . 330.L.6....@
..---ANALYZE---...J.. 9300:. EMPTY . . 9
400: . 1090...T.. VFY . ESC . 1090.M.
^.. VFY . 410...H.. 9400:J.INLINE:. 9000
...R.. .6) "DO YOU WANT TO VERIFY? (Y/N)
".L.|.. A$:. A$.."Y" . A$.."Y" . A$ .
."N" . A$.."N" . 380.B...VFY.0:RET.0:ESC
.0...... A$."Y" . A$."Y" . VFY..1:
. 9400:. 1360:. 340...... HC$;:J.22:.
9000:. L$...... (VFY . RET) . . VFY .
. 1110:. ESC . 1090.....J.23:. 9000
...... " ANALYZE FILE.".8.B.. " PRESS
RETURN TO EXIT";.H.L.SCOUNT.0:SLCOUNT.0:
WC.0:SADJ.0:K.1: A.1...V.A$.A$(K):.
A$."@" . 750.....J.C(A$):. J.0 . A$." "
. K.K. 1:.470...... I(A$,1)." " . A$(
K).H (A$(K),J.1):. 470......---SENTENC
E/WORD/SYLLABLE--.0.... I.2 . J:B$.J(A$,
I,1):. B$. "?" . 580.G.... B$.."!" .
B$.."." . B$.."?" . B$.."'" . 580.
..... B$."'" .C$.J(A$,I.1,1):. C$.."!" .
C$.."." . C$.."?" . 580...&.. I.J .J(A$
,I.1,2)." ".(I.J.1 . J(A$,I.1,1)." "
). SC.SC.1...D.. B$." " . J(A$,I.1,1).."
" . WC.WC.1.9.B.. B$."." . B$.G(F
(B$).128).Y.L..B$.."A".B$.."E".B$.."I".
B$ .."O".B$.."U".B$.."Y". 650...V.C$
.J(A$,I.1,1).N....C$.."A".C$.."E".C$.."I
".C$.. "O".C$.."U".C$.."Y" . SL.SL.1..
....:WC.WC.1......---LINE DONE---.&....H
M$:." LINE";K:. " ." ;A$(K);EL$:J.7
:.9000.B.... " SENTENCES";SCOUNT;.\.F..
.15)"WORDS";WCOUNT;.Z.P.. .26)"SYLLABLE
S";SLCOUNT...Z.. A$:. A$.G(13) .WC.0:.
HC$:. 9400:. 1080.....K.K.1:. 470.N...
.-------------.....SLCOUNT..(.965.SLCOUN
T).....J.7:. 9000:. .35) SL;" "...... HM
$:. EL$:.:. EL$.B....---GRADE LEVEL CALC
ULATION---.T.... WC.1 . 1080.Z. .NS.SCOU
NT.100.WC:. NORMALIZE SENT. .*.NY.SLCOUN
T.100.WC:. NORMALIZE SYL.K.4.S(12)..283.
NY.41.7:Y(12).3.46.NS.147.7...>.S(11)..1
91.NY.25.8:Y(11).5.17.NS.135.4.!.H.S(10)
..177.NY.22.7:Y(10).5.58.NS.128.8.J.R.S(
9)..184.NY.22.8:Y(9).5.36.NS.124.2.Q.\.S
(8)..158.NY.17.6:Y(8).6.2. NS.112...F.S(
7)..137.NY.13.6:Y(7).7.18.NS.99.8.A.P.S(
6)..17. NY.16 :Y(6).5.77.NS.94.3...Z.S(
5)..161.NY.13.1:Y(5).6.01.NS.82.6.....S(
4)..173.NY.13.6:Y(4).5.64.NS.79.9.9...S(
3)..222.NY.18.6:Y(3).4.37.NS.84.7.A...S(
2)..305.NY.25.7:Y(2).3.21.NS.85.2.....S(
1)..469.NY.41.5:Y(1).2.08.NS.89.5.....I.
1...... NS.S(I) .I.12.I.I.1:.950.....SLE
VEL.I.E.J.I.1...T.. NY.Y(I) .I.12.I.I.1:
.980.....YLEVEL.I...... NS.S(12) . SLEVE
L.13.'.... NY.Y(12) . YLEVEL.13.9...RLEV
EL.SLEVEL.\.... YLEVEL.RLEVEL .RLEVEL.YL
EVEL.|...RLEVEL.RLEVEL.1:J.10:. 9000....
.. " SENTENCES / 100 WORDS: ";H(D(NS),5
)...$.. " SYLLABLES / 100 WORDS: ";H(D(
NY),6);".."...... " GRADE LEVEL: ";RLE
V...8.RET.0:ESC.0:VFY.0...B...0.L..---FI
ND EOP MARKER---.8.V.I.1.E.`.. A$(I).."@
" . I.L . I.I.1: . 1120...J.ESC.0:
. A$(I).."@" . ESC..1: . 1160...T
.....~..---NO FIND EOP MARKER---.H...J.1
3:. 9000...... .1) "UNABLE TO ANALYZE FI
LE..". .... .1) "END OF PASSAGE MARKER I
S NOT IN PLACE.".&.....<....---WORD COUN
T---.I...I.1:WC.0.V.D.. A$(I).."@" . I.L
.1 . I.I.1: . 1220...N.. A$(I).."@"
. 1340...X.I.1:. 9400.....J.INLINE:. 900
0...... .6) "COUNTING WORDS IN FILE...":
. 9420:. 9400.....J.INLINE:. 9000......
.6) "WORD COUNT:".&...A$.A$(I):M.C(A$).D
.... N.2 . M:. J(A$,N,1)." ". J(A$,N
.1,1).." " . WC.WC.1.....:WC.WC.1:. .17
)".";WC...(.I.I.1:. A$(I).."@" . 1290...
2.. 9400...<...G.>..---NO EOP MARKER---.
..@.J.INLINE:. 9000:. .1) ".NO END OF PA
SSAGE MARKER FOUND. "...A.. 9400..
.B...3.F..---VERIFY FILE---.M.P.. 9300:.
EMPTY . 1650.D.Z.RET.0:ESC.0:. 9400...\
.J.INLINE:. 9000:. " SEARCHING FOR END O
F PASSAGE MARKER..."...^.. 9420:. 9400.J
.D.J.INLINE:. 9000.R.X.I.1...... A$(I)..
"@" . I.L.1 . I.I.1: . 1410...... A$
(I).."@".. 1344:ESC..1.7.... ESC . VFY .
. 1160.K. .. A$(I)."@" . . " END OF PAS
SAGE MARKER FOUND."...... A$(I)."@" . I.
L.1 . . " NO QUIZ QUESTIONS ARE PRESENT.
"...... J.1 . 3000:....... I.L . I.L.1 .
ESC . 1650......---QUIZ QUESTIONS---...
... HC$:I.I.1...... .3) A$(I):I.I.1.-...
A$.H(A$(I),1).H.... A$.."@" . I.L . 1530
.....J.21:. 9000:. " ...................
...................";.....J.22:. 9000.P.
".. A$.."@" . . .2) ".END OF QUESTION MA
RKER NOT FOUND."...,.OK.0:. A$."@" . C(A
$(I)).1 . OK..1.:.6.. OK . . .2)
"THE CORRECT ANSWER IS ";J(A$(I),2,1);"
.".Z.@.. A$."@" . C(A$(I)).1 . ..2)".NO
CORRECT ANSWER INDICATED."...J.J.24:. 90
00:. .2) "PRESS SPACE BAR TO CONTINUE.";
.I.L.. A$:. A$.."" . 1612...T.. A$:. A$.
." " . A$..G(13) . 1620...^.. I.L.1
. A$..G(13) .1520...H.. HC$.1.R.. . VFY
. . 9400.7.|...L....---EDIT LINE---.F..
.. 9300:. EMPTY . 2340.S...I.C(IN$).....
. I.2 . E$.I(IN$,I.2).I.J..I.3.J.INLINE.
1:.9000:..ET)"";:."EDIT WHICH LINE ";E
$...T.E%.E(E$):E.E%...... 9600:. IVLID .
2340...... 9400.....J.23:. 9000.(.... "
EDIT LINE ";E$.:...LINE.E:. 9100.M...J
.INLINE:.9000.C.... .5) G(34);A$(E).....
J.INLINE:. 9000:. .3)"";:. IN$...... 920
0:. 9400:A$(E).IN$...$.. 9400.......M.V.
.---PRINT OUT FILE---...`.. 9300:. EMPTY
. 2540...J.I.C(A$)...T.. I.2 . E$.I(A$,
I.2)...... I.3 . E$."1".1...E%.E(E$):E.E
%.K.... 9600:. IVLID . 2540.Z...J.25:.90
00.N.... .17)"RETURN";...D..4,4,7:.4,G(1
3)...N..4,H(EL$,2.(E.10).(E.100)) ;E
;" ";A$(E):E.E.1...P.. I.1 . 50:.:. A$
:. E.L . A$.. G(13). 2510...Q..4,
G(13)...R. 4...... 9400............---LI
ST THE FILE---.H.... 9300:. EMPTY . 2930
.D...I.C(IN$):G..1:E$."":E.1...... I.2 .
E$.I(IN$,I.2):E%. E(E$):E.E%......
9600:. IVLID . E.1...... 9420...".J.INL
INE.1:. 9000:A$.D(E):A$ .I(A$,C(A$).
1).. ,....(E.10).(E.100))A$;" ";
A$(E);".....".4 2.E.E.1:. I.1 . 35:..` 6
.. A$:I.F(A$.G(0)):. I.32 . G.. G
.Y J.. . G . I..13 . 2870.. T.. E.L . I.
.13 . 2850.. H.... R.. 9400.. |.... ...-
--INSERT LINE---.Z ... 9300:. EMPTY . 31
80.. B.. L.200 . 3170.. L.I.C(IN$).$!V..
I.2 . E$.I(IN$,I.2): . 3055.I!.
.J.INLINE.1:. 9000:..ET) "";.G!...
"INSERT WHICH LINE ";E$.Y!..E%.E(E$):E.E
%..!... 9600:. IVLID . 3180..!... 9400.I
!..J.23:.9000:." INSERT LINE" ;E;".
"..!... .16) ".Q(UIT";..!..LINE.E:. 9100
:. " ";.."&.. G(34):. "....";.."0.. "";
IN$.<":.. IN$.".Q" . IN$.".Q" . 3170.G"D
.. 9200.Z"N.. I.L.1 . E ..1:A$(I.1).A$(I
) :.:A$(E).IN$.."X.L.L.1:E.E.1:. L.2
01 . 3070.."B.. 9400.."L.. 9400.."V...L"
...---DELETE LINE---.."... 9300:. EMPTY
. 3380..#..I.C(IN$):. I.2 . E$.I(
IN$,I.2):. 3270.-#..J.INLINE.1:. 9000.;#
... .ET)"";.Y#... "DELETE WHICH LINE ";E
$.K#F.E%.E(E$):E.E%..#P.. 9600:. IVLID .
3380..#Z.. 9420..#..LINE.E:. 9100:."
";A$(E).A#... 9420:. 9420.U#..J.INLINE:.
9000..#... .6) "DELETE THIS? (Y/N)"..#.
.. 9400.=$... A$:. A$.."Y" . A$.."Y" .
A$.."N" . A$.."N" . 3330.Z$... A$."
N" . A$."N" . 3380.Z$... I.E . L.1:A$(I)
.A$(I.1):...$ .L.L.1..$4.. 9400..$>....$
H..---GET FILE FROM DISK---.T$R.I.C(IN$)
:E$."":DSKER.0:DIR.0..$\.. I.2 . E$.I(IN
$,I.2):. 3450..%^.. 9400..%F.J.INL:.
9000.,%P.. 4300:. FILE NAME.N%Z.. E$.".
D".E$.".D". DIR..1: . 3690:E$."":
. DSKER . 3546.%|.. DIR . 3430..%... E$
."" . 3546..%... 3600:. LOWER CASE.C%...
I.1 . L:A$(I)."":..R%..I..(0):L.1..%...
15,8,15,"I":. 2,8,2,"0:".E$. "S,R".*
&..J.ST:. J.0 . .2,A$(L):L.L. 1:. 35
10.B&.. 2:.15,A,B$,C,D: 15.^&J..A..0.L.1
:. 3560:. 3546.|&T.L.L.1.(L.1):B$.H(A$(L
),6)..&X.WC.0:. B$."WORDS=" . C$.I(
A$(L),C(A$(L)).7):WC.E(C$).G&Y.NAME$.E$.
R&Z.. 9400.X&.....&...---DISK ERROR---..
'... 9420:J.INLINE..'...9000:..2)B$:. 94
20. '....6'...---LOWER CASE---.F'..E$.H(
E$,15)._'..I.F(I(E$,1)):J.C(E$)..'$.. I.
32 . I.160 . J.1 . E$. H(E$,C(E$).
1):. 3610.E'..B$."":. I.1 . C(E$):J.F(J
(E$,I,1))..'8.B$.B$.G(J.128.(J.90)):
...(B.B$.H(B$,15)." "..(L.E$.
H(B$,16)..(V...0(`..---DISK DIRECTORY---
.A(J.. HC$:. 9400.Q(T.J.25:. 9000.O(~..
.14) ".D(IRECTORY";HM$;..(... 15,8,15,"I
":. 1,8,1,"$"..(... J=1-8 CTR K=TTAL
T=TAB.I(..J.1:K.1:T.2:. ST . 3970..(...#
1,A$,A$:. ST . 3970.%)... I.1 . 18:.#1,A
$,A$,A$,A$,A$, A$,A$,A$,A$,A$,A$,A$,A$
,A$:..5)... ST . 3970.R)...#1,A$,B$,B$:.
ST . 3970..)(.. F(A$.G(0))..129 . . I.
1 . 16:.#1,A$:.:. 3920..)2.I$."":. I.1
. 2:.#1,A$,B$,C$,D $,E$,F$,G$,H$..)
<.I$.I$.A$.B$.C$.D$.E$.F$.G$.H$:...)F..
.T) I$:K.K.1.2*P..#1,A$,A$,A$,A$,A$,A$,A
$,A$,A$,A$ ,A$:. J.8 . .#1,A$,A$.D*Z.J
.J.1.8.(J.8).]*D.. K.18 . T.21:. HM$;.H*
N.. 3860.R*X..DONE..*.. 1:.15,I,B$,N,M:
15..*... I..0 . . 4020:. 4002..*..J.3.K.
21.(K.22):. 9000..* .. K.1...2)"NO DATA
FILES ARE ON THIS DISK."..+..J.22:. 9000
:. L$..+....%+...--DIRECTORY ERROR---.B+
..J.INLINE:. 9000:DSKER..1.`+... .6) "DI
RECTORY ERROR..".T+H.. 9420:. .6) B$.Z+.
....+...---SAVE FILE TO DISK---..+... 93
00:. EMPTY . 4220.L+..I.C(IN$):E$."":DSK
ER.0..+... I.2 . E$.I(IN$,I.2):. 413
0..,... 9400:J.INLINE:. 9000.%,... NAME$
.."" . . 4250.:,... E$."" . . 4360.W,"..
E$.".D" . E$.".D" . DIR..1: . 3690
:. DSKER . 4220..,&.. DIR . E$."":. 4120
..,,.. E$."" . 4220..,6.. 3600:. LOWER C
ASE.O,;.. WC.0 . . 1210..-@..15,8,15,"I"
:. 2,8,2,"@0:".E$ ."S,W":I.1.9-J.J.S
T:.J.0..2,G(34);A$(I );G(34):. I.L.1 .I.
I.1:.4170.U-L..2,"WORDS=";WC:NAME$.E$.M-
T. 2:.15,A,B$,C,D: 15..-^.. A..0 . . 356
0..-|.. 9400..-.....-...---SAVE OLD FILE
NAME?---..-..A$.NAME$.W-..J.F(I(A$,1)):
I.C(A$)...... (J.160 . J.32) . I.1 . A$.
H(A$,I.1):. 4252.:.... .6)"SAVE AS
";A$;"? (Y/N)" :. 9400.X.... A$:. A$
.."Y" . A$.."Y" . A$.."N" . A$.."N
" . 4260.....E$."":.A$."Y".A$."Y".E$.NAM
E$...... A$."N" . A$."N" . .9400.......W
.B..---GET FILE NAME---...L.J.25:. 9000:
. .14) ".D(IRECTORY";.,/V.J.INLINE:.9000
:. .6.4. DIR)"";:DIR.0.K/... "GET
FILE NAME";E$:.9400.Q/....K/...---SAVE F
ILE NAME---../..J.25:. 9000:. .14) ".D(I
RECTORY";../..J.INLINE:. 9000:..6.4.
DIR)"";:DIR.0../..."SAVE FILE NAME";E
$:.9400../&..../0..---CLEAR MEMORY---..0
:.. L.1 . A$."Y":. 4450.20D.. 9400:J.INL
INE:. 9000.^0N.. .6) "DESTROY THE CURREN
T FILE? (Y/N)"..0X.. A$:. A$.."Y" . A$..
"Y" . A$.."N" . A$.."N" . 4440.J0B
.. A$.."Y" . A$.."Y" . . 9420:. 94
00..0L.. A$."Y" . A$."Y" . .8010..0V....
1@..---SCREEN INIT---.&1J.B$."":NAME$.""
:INLINE.19:L.1.V1T.ET.15:. TAB FOR ERR M
ESSAGE "..1^.EL$."
"..1H.L$.
".......................................
".R1R.. A$:. A$.."" . 8050..1|..HC$:.I.1
.201:A$(I)."":...1..I..(0):WC.0..2... 53
272,23.<2... .3)"*** SPEED READER II E
DITOR ***.".M2... " COPYRIGHT 1983 DAV
IDSON & ASSOCIATES.."..2... " THE PROMP
T LINE AT THE BOTTOM OF THE.".M2B.. " S
CREEN DISPLAYS THE EDITOR COMMANDS.."..2
L.. " FOR HELP, USE THE .H COMMAND. U
SE.".-3V.. " THE CRSR KEY AT THE RIGHT
SIDE OF THE.".]3... " KEYBOARD TO COPY
OVER THE QUOTE MARK."..3... " AT THE BE
GINNING OF EACH LINE."..3..J.22:. 9000:.
L$..3.....3.#.---VTAB---.A3(#. 214,J.2:
..G32#...3.#.---VTAB & LINE#---..4.#J.IN
LINE:. 9000:A$.D(LINE): A$.I(A$,C(A
$).1).54 #...(LINE.10).(LINE.100))A$;.;4
.#..S4.#.---LENGTH CHECK---.E4.#IN$.H(IN
$,34)..4.#A$.I(IN$,1):I.F(A$.G(0))..4.#.
(I.32 . I.160) .C(A$).1. A$.H(IN$,C(I
N$).1):. 9202.Q4.$J.INLINE:. 9000..4"$.
.3)" ";IN$;:. C(IN$). 34 . ...56$.
EL$:.C(IN$).33..9400..5@$..15J$.---EMPTY
CHECK---.A5T$EMPTY.(L.1).W5^$. EM . J.I
NL.1:. 9000:. .ET)"NO LINES IN MEMORY.".
}5H$...5.$.---SCROLL SCREEN---.J5.$J.22:
.9000:.I.1.4:.EL$: .:J.22:.9000:.L$
:...5B$.---SCROLL NO LINE---..6L$J.22:.
9000:. I.1 . 4:. EL$:.:..+6V%.---VA
LID LINE # CHECK---.C6.%IVLID.(E.1 . E.L
.1)..6.%. IVLI . J.INLINE.1:. 9000 :.
.ET) "INVALID LINE NUMBER"..6.%.. 6Z%.--
-CHANGE DISKS---..6.%.53272,23:. HC$:. .
4) "* * SPEED READER II EDITOR * *..."
..6.%. .4) "PLEASE SELECT:.".-7.%. .4) "
LIGHT OR DARK BACKGROUND? (L/.D.)...".I7
.%.A$:.A$.."L".A$.."L".A$.."D" .A$.."D".
A$..G(13) . 9706..7.%LB.(A$."L".A$."L".
A$.G(13)). 7.%DB.(A$."D".A$."D").L7.%. .
4)"PLEASE REMOVE THE PROGRAM DISK.."..7.
%. .4) "PLEASE INSERT THE DATA DISK."..8
.&J.24:. 9000.-8.&. .7) "PRESS SPACE BAR
TO CONTINUE".F8.&. A$:. A$.."" . 9750.`
8 &. A$:. A$.." " . 9760..8"&. ".":.5328
0,.12.LB:. 53281,.LB.11.DB:.646,
.DB.11.LB..8*&..C8>&.---MAIN PROMPT LINE
---.S8H&J.25:. 9000..9R&. " .E .L .D .I
.V .A .S .G .P .C .Q .H";..9\&...9.&.---
HELP SCREEN---.)9.&. HC$;.S9.&. " THE CO
MMANDS IN THIS EDITOR ARE:".M9.&. " .E
EDIT A LINE"..9J&. " .L LIST THE FILE
"..9T&. " .D DELETE A LINE"..9.&. " .I
INSERT LINES".Z9.&. " .V VERIFY FIL
E"..9.&. " .A ANALYZE FILE"..:.&. " .S
SAVE FILE TO DISK".6:.'. " .G GET F
ILE FROM DISK".Z:.'. " .P PRINT FILE O
N PRINTER"..:.'." .C CLEAR EDITOR FOR
NEW FILE"..:.'." .Q QUIT THE EDITOR"..
:$'." .H HELP SCREEN"..:.'.:. " USE TH
E CRSR KEY ON THE RIGHT SIDE OF"..;8'. "
THE KEYBOARD TO COPY OVER THE QUOTE".B;
B'. " MARK AT THE BEGINNING OF EACH LINE
.".W;L'J.22:. 9000:. L$.];V'..T;`'.---QU
IT EDITOR---.~;J'. HC$..;T'." YOUR CHOI
CES ARE:.."..;~'." 1> RETURN TO THE EDI
TOR.."..;.'." 2> SAVE FILE (IF YOU HAVE
N'T ALREADY)."..<.'." AND QUIT THE E
DITOR.."..<.'." 3> QUIT THE EDITOR..".L
<.'." YOUR CHOICE? (1-3)..".F<.'. A$:.
A$.."" . 10152..<.'. A$:. A$."1" . A$."3
" . 10160..<.'I.E(A$):. I.1 . 102
70..<D'. I.2 . . 4080:. EMPTY .
. I.1 . 2000:...<N'HC$.".": . HC$..=X'
. " TO RE-ENTER THE EDITOR WITH.".J
=.'. " YOUR FILE INTACT, TYPE: GOTO 50
.".J=.'. " AND PRESS RETURN...."..=.'.
" TO RUN SPEED READER II, INSERT."..=
.'. " THE PROGRAM DISK AND TYPE:."
..=.(. " LOAD ";G(34);"SPEED";G(34);",
8 AND PRESS RETURN..".->.(. " WHEN TH
E PROGRAM HAS LOADED, TYPE:.".P>.(. "
RUN AND PRESS RETURN..".V>.(..L>.(. HC$
:J.22:. 9000.U>((. L$.{>2(....
> CLICK IMAGE PREVIEW FOR FULL MODAL