IN-HOUSE EDITOR

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 32 29 20  |I.I.1...... .2) |
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  37 30 00 7A 24 16 0D 81  |"." . 3370.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 2A  |.2... 53272,23.*|
00002A10: 32 A4 1F 99 20 A3 33 29  20 22 C9 4E 2D 48 4F 55  |2... .3) ".N-HOU|
00002A20: 53 45 20 45 44 49 54 4F  52 22 00 3F 32 F4 1F 4A  |SE EDITOR".?2..J|
00002A30: B2 32 32 3A 8D 20 39 30  30 30 3A 99 20 4C 24 00  |.22:. 9000:. L$.|
00002A40: 45 32 FE 1F 8E 00 55 32  1E 23 8F 2D 2D 2D 56 54  |E2....U2.#.---VT|
00002A50: 41 42 2D 2D 2D 00 65 32  28 23 97 20 32 31 34 2C  |AB---.e2(#. 214,|
00002A60: 4A AB 32 3A 99 00 6B 32  32 23 8E 00 83 32 82 23  |J.2:..k22#...2.#|
00002A70: 8F 2D 2D 2D 56 54 41 42  20 26 20 4C 49 4E 45 23  |.---VTAB & LINE#|
00002A80: 2D 2D 2D 00 B9 32 8C 23  4A B2 49 4E 4C 49 4E 45  |---..2.#J.INLINE|
00002A90: 3A 8D 20 39 30 30 30 3A  41 24 B2 C4 28 4C 49 4E  |:. 9000:A$..(LIN|
00002AA0: 45 29 3A 20 20 20 20 20  20 41 24 B2 C9 28 41 24  |E):      A$..(A$|
00002AB0: 2C C3 28 41 24 29 AB 31  29 00 D9 32 A0 23 99 A6  |,.(A$).1)..2.#..|
00002AC0: AB 28 4C 49 4E 45 B3 31  30 29 AB 28 4C 49 4E 45  |.(LINE.10).(LINE|
00002AD0: B3 31 30 30 29 29 41 24  3B 00 DF 32 AA 23 8E 00  |.100))A$;..2.#..|
00002AE0: F7 32 E6 23 8F 2D 2D 2D  4C 45 4E 47 54 48 20 43  |.2.#.---LENGTH C|
00002AF0: 48 45 43 4B 2D 2D 2D 00  09 33 F0 23 49 4E 24 B2  |HECK---..3.#IN$.|
00002B00: C8 28 49 4E 24 2C 33 39  29 00 26 33 F2 23 41 24  |.(IN$,39).&3.#A$|
00002B10: B2 C9 28 49 4E 24 2C 31  29 3A 49 B2 C6 28 41 24  |..(IN$,1):I..(A$|
00002B20: AA C7 28 30 29 29 00 61  33 F3 23 8B 20 28 49 B2  |..(0)).a3.#. (I.|
00002B30: 33 32 20 B0 20 49 B2 31  36 30 29 20 AF C3 28 41  |32 . I.160) ..(A|
00002B40: 24 29 B1 31 A7 20 20 20  41 24 B2 C8 28 49 4E 24  |$).1.   A$..(IN$|
00002B50: 2C C3 28 49 4E 24 29 AB  31 29 3A 89 20 39 32 30  |,.(IN$).1):. 920|
00002B60: 32 00 75 33 18 24 4A B2  49 4E 4C 49 4E 45 3A 8D  |2.u3.$J.INLINE:.|
00002B70: 20 39 30 30 30 00 9E 33  22 24 99 20 A3 33 29 22  | 9000..3"$. .3)"|
00002B80: 20 20 20 22 3B 49 4E 24  3B 3A 8B 20 C3 28 49 4E  |   ";IN$;:. .(IN|
00002B90: 24 29 B3 20 20 20 20 20  33 34 20 A7 20 99 00 B8  |$).     34 . ...|
00002BA0: 33 36 24 99 45 4C 24 3A  8B C3 28 49 4E 24 29 B1  |36$.EL$:..(IN$).|
00002BB0: 33 33 A7 8D 39 34 30 30  00 BE 33 40 24 8E 00 D5  |33..9400..3@$...|
00002BC0: 33 4A 24 8F 2D 2D 2D 45  4D 50 54 59 20 43 48 45  |3J$.---EMPTY CHE|
00002BD0: 43 4B 2D 2D 2D 00 E5 33  54 24 45 4D 50 54 59 B2  |CK---..3T$EMPTY.|
00002BE0: 28 4C B2 31 29 00 1B 34  5E 24 8B 20 45 4D 20 A7  |(L.1)..4^$. EM .|
00002BF0: 20 4A B2 49 4E 4C AB 31  3A 8D 20 39 30 30 30 3A  | J.INL.1:. 9000:|
00002C00: 99 20 A3 45 54 29 22 CE  4F 20 4C 49 4E 45 53 20  |. .ET)".O LINES |
00002C10: 49 4E 20 4D 45 4D 4F 52  59 2E 22 00 21 34 68 24  |IN MEMORY.".!4h$|
00002C20: 8E 00 3A 34 AE 24 8F 2D  2D 2D 53 43 52 4F 4C 4C  |..:4.$.---SCROLL|
00002C30: 20 53 43 52 45 45 4E 2D  2D 2D 00 6E 34 B8 24 4A  | SCREEN---.n4.$J|
00002C40: B2 32 32 3A 8D 39 30 30  30 3A 81 49 B2 31 A4 34  |.22:.9000:.I.1.4|
00002C50: 3A 99 45 4C 24 3A 20 20  20 20 20 20 82 3A 4A B2  |:.EL$:      .:J.|
00002C60: 32 32 3A 8D 39 30 30 30  3A 99 4C 24 3A 8E 00 88  |22:.9000:.L$:...|
00002C70: 34 C2 24 8F 2D 2D 2D 53  43 52 4F 4C 4C 20 4E 4F  |4.$.---SCROLL NO|
00002C80: 20 4C 49 4E 45 2D 2D 2D  00 B1 34 CC 24 4A B2 32  | LINE---..4.$J.2|
00002C90: 32 3A 8D 20 39 30 30 30  3A 81 20 49 B2 31 20 A4  |2:. 9000:. I.1 .|
00002CA0: 20 34 3A 99 20 20 20 20  20 20 45 4C 24 3A 82 3A  | 4:.      EL$:.:|
00002CB0: 8E 00 CF 34 76 25 8F 2D  2D 2D 56 41 4C 49 44 20  |...4v%.---VALID |
00002CC0: 4C 49 4E 45 20 23 20 43  48 45 43 4B 2D 2D 2D 00  |LINE # CHECK---.|
00002CD0: E7 34 80 25 49 56 4C 49  44 B2 28 45 B3 31 20 B0  |.4.%IVLID.(E.1 .|
00002CE0: 20 45 B1 4C AB 31 29 00  26 35 8A 25 8B 20 49 56  | E.L.1).&5.%. IV|
00002CF0: 4C 49 20 A7 20 4A B2 49  4E 4C 49 4E 45 AB 31 3A  |LI . J.INLINE.1:|
00002D00: 8D 20 39 30 30 30 20 20  20 20 3A 99 A3 45 54 29  |. 9000    :..ET)|
00002D10: 20 22 C9 4E 56 41 4C 49  44 20 4C 49 4E 45 20 4E  | ".NVALID LINE N|
00002D20: 55 4D 42 45 52 22 00 2C  35 94 25 8E 00 44 35 DA  |UMBER".,5.%..D5.|
00002D30: 25 8F 2D 2D 2D 43 48 41  4E 47 45 20 44 49 53 4B  |%.---CHANGE DISK|
00002D40: 53 2D 2D 2D 00 84 35 E4  25 97 35 33 32 37 32 2C  |S---..5.%.53272,|
00002D50: 32 33 3A 99 20 48 43 24  3A 99 20 A3 34 29 20 22  |23:. HC$:. .4) "|
00002D60: 2A 20 2A 20 20 D3 50 45  45 44 20 D2 45 41 44 45  |* *  .PEED .EADE|
00002D70: 52 20 C9 C9 20 C5 44 49  54 4F 52 20 20 2A 20 2A  |R .. .DITOR  * *|
00002D80: 11 11 11 22 00 A0 35 E6  25 99 20 A3 34 29 20 22  |..."..5.%. .4) "|
00002D90: D0 4C 45 41 53 45 20 53  45 4C 45 43 54 3A 11 22  |.LEASE SELECT:."|
00002DA0: 00 D1 35 E8 25 99 20 A3  34 29 20 22 CC 49 47 48  |..5.%. .4) ".IGH|
00002DB0: 54 20 4F 52 20 44 41 52  4B 20 42 41 43 4B 47 52  |T OR DARK BACKGR|
00002DC0: 4F 55 4E 44 3F 20 28 CC  2F 98 C4 97 29 11 11 11  |OUND? (./...)...|
00002DD0: 22 00 0D 36 EA 25 A1 41  24 3A 8B 41 24 B3 B1 22  |"..6.%.A$:.A$.."|
00002DE0: 4C 22 AF 41 24 B3 B1 22  CC 22 AF 41 24 B3 B1 22  |L".A$..".".A$.."|
00002DF0: 44 22 20 AF 41 24 B3 B1  22 C4 22 AF 20 41 24 B3  |D" .A$..".". A$.|
00002E00: B1 C7 28 31 33 29 20 A7  20 39 37 30 36 00 2D 36  |..(13) . 9706.-6|
00002E10: EC 25 4C 42 B2 28 41 24  B2 22 CC 22 B0 41 24 B2  |.%LB.(A$.".".A$.|
00002E20: 22 4C 22 B0 41 24 B2 C7  28 31 33 29 29 00 44 36  |"L".A$..(13)).D6|
00002E30: ED 25 44 42 B2 28 41 24  B2 22 C4 22 B0 41 24 B2  |.%DB.(A$.".".A$.|
00002E40: 22 44 22 29 00 70 36 EE  25 99 20 A3 34 29 22 D0  |"D").p6.%. .4)".|
00002E50: 4C 45 41 53 45 20 52 45  4D 4F 56 45 20 54 48 45  |LEASE REMOVE THE|
00002E60: 20 50 52 4F 47 52 41 4D  20 44 49 53 4B 2E 11 22  | PROGRAM DISK.."|
00002E70: 00 99 36 F8 25 99 20 A3  34 29 20 22 D0 4C 45 41  |..6.%. .4) ".LEA|
00002E80: 53 45 20 49 4E 53 45 52  54 20 54 48 45 20 44 41  |SE INSERT THE DA|
00002E90: 54 41 20 44 49 53 4B 2E  22 00 A9 36 02 26 4A B2  |TA DISK."..6.&J.|
00002EA0: 32 34 3A 8D 20 39 30 30  30 00 D1 36 0C 26 99 20  |24:. 9000..6.&. |
00002EB0: A3 37 29 20 22 D0 52 45  53 53 20 D3 50 41 43 45  |.7) ".RESS .PACE|
00002EC0: 20 C2 41 52 20 54 4F 20  C3 4F 4E 54 49 4E 55 45  | .AR TO .ONTINUE|
00002ED0: 22 00 EA 36 16 26 A1 20  41 24 3A 8B 20 41 24 B3  |"..6.&. A$:. A$.|
00002EE0: B1 22 22 20 A7 20 39 37  35 30 00 04 37 20 26 A1  |."" . 9750..7 &.|
00002EF0: 20 41 24 3A 8B 20 41 24  B3 B1 22 20 22 20 A7 20  | A$:. A$.." " . |
00002F00: 39 37 36 30 00 45 37 22  26 99 20 22 93 22 3A 97  |9760.E7"&. ".":.|
00002F10: 35 33 32 38 30 2C AB 31  32 AC 4C 42 3A 97 20 20  |53280,.12.LB:.  |
00002F20: 20 20 20 20 20 20 20 35  33 32 38 31 2C AB 4C 42  |       53281,.LB|
00002F30: AB 31 31 AC 44 42 3A 97  36 34 36 2C AB 44 42 AB  |.11.DB:.646,.DB.|
00002F40: 31 31 AC 4C 42 00 4B 37  2A 26 8E 00 67 37 3E 26  |11.LB.K7*&..g7>&|
00002F50: 8F 2D 2D 2D 4D 41 49 4E  20 50 52 4F 4D 50 54 20  |.---MAIN PROMPT |
00002F60: 4C 49 4E 45 2D 2D 2D 00  77 37 48 26 4A B2 32 35  |LINE---.w7H&J.25|
00002F70: 3A 8D 20 39 30 30 30 00  A5 37 52 26 99 20 22 20  |:. 9000..7R&. " |
00002F80: 2E 45 20 2E 4C 20 2E 44  20 2E 49 20 2E 56 20 2E  |.E .L .D .I .V .|
00002F90: 41 20 2E 53 20 2E 47 20  2E 50 20 2E 43 20 2E 51  |A .S .G .P .C .Q|
00002FA0: 20 2E 48 22 3B 00 AB 37  5C 26 8E 00 C2 37 A2 26  | .H";..7\&...7.&|
00002FB0: 8F 2D 2D 2D 48 45 4C 50  20 53 43 52 45 45 4E 2D  |.---HELP SCREEN-|
00002FC0: 2D 2D 00 CD 37 AC 26 99  20 48 43 24 3B 00 F8 37  |--..7.&. HC$;..7|
00002FD0: B6 26 99 20 22 20 D4 48  45 20 43 4F 4D 4D 41 4E  |.&. " .HE COMMAN|
00002FE0: 44 53 20 49 4E 20 54 48  49 53 20 45 44 49 54 4F  |DS IN THIS EDITO|
00002FF0: 52 20 41 52 45 3A 11 22  00 12 38 C0 26 99 20 22  |R ARE:."..8.&. "|
00003000: 20 2E 45 20 20 20 45 44  49 54 20 41 20 4C 49 4E  | .E   EDIT A LIN|
00003010: 45 22 00 2E 38 CA 26 99  20 22 20 2E 4C 20 20 20  |E"..8.&. " .L   |
00003020: 4C 49 53 54 20 54 48 45  20 46 49 4C 45 22 00 4A  |LIST THE FILE".J|
00003030: 38 D4 26 99 20 22 20 2E  44 20 20 20 44 45 4C 45  |8.&. " .D   DELE|
00003040: 54 45 20 41 20 4C 49 4E  45 22 00 65 38 DE 26 99  |TE A LINE".e8.&.|
00003050: 20 22 20 2E 49 20 20 20  49 4E 53 45 52 54 20 4C  | " .I   INSERT L|
00003060: 49 4E 45 53 22 00 7F 38  E8 26 99 20 22 20 2E 56  |INES"..8.&. " .V|
00003070: 20 20 20 56 45 52 49 46  59 20 46 49 4C 45 22 00  |   VERIFY FILE".|
00003080: 9A 38 F2 26 99 20 22 20  2E 41 20 20 20 41 4E 41  |.8.&. " .A   ANA|
00003090: 4C 59 5A 45 20 46 49 4C  45 22 00 BA 38 FC 26 99  |LYZE FILE"..8.&.|
000030A0: 20 22 20 2E 53 20 20 20  53 41 56 45 20 46 49 4C  | " .S   SAVE FIL|
000030B0: 45 20 54 4F 20 44 49 53  4B 22 00 DB 38 06 27 99  |E TO DISK"..8.'.|
000030C0: 20 22 20 2E 47 20 20 20  47 45 54 20 46 49 4C 45  | " .G   GET FILE|
000030D0: 20 46 52 4F 4D 20 44 49  53 4B 22 00 02 39 10 27  | FROM DISK"..9.'|
000030E0: 99 22 20 2E 43 20 20 20  43 4C 45 41 52 20 45 44  |." .C   CLEAR ED|
000030F0: 49 54 4F 52 20 46 4F 52  20 4E 45 57 20 46 49 4C  |ITOR FOR NEW FIL|
00003100: 45 22 00 1F 39 1A 27 99  22 20 2E 51 20 20 20 51  |E"..9.'." .Q   Q|
00003110: 55 49 54 20 54 48 45 20  45 44 49 54 4F 52 22 00  |UIT THE EDITOR".|
00003120: 38 39 24 27 99 22 20 2E  48 20 20 20 48 45 4C 50  |89$'." .H   HELP|
00003130: 20 53 43 52 45 45 4E 22  00 69 39 2E 27 99 3A 99  | SCREEN".i9.'.:.|
00003140: 20 22 20 D5 53 45 20 54  48 45 20 C3 D2 D3 D2 20  | " .SE THE .... |
00003150: 4B 45 59 20 4F 4E 20 54  48 45 20 52 49 47 48 54  |KEY ON THE RIGHT|
00003160: 20 53 49 44 45 20 4F 46  22 00 96 39 38 27 99 20  | SIDE OF"..98'. |
00003170: 22 20 54 48 45 20 4B 45  59 42 4F 41 52 44 20 54  |" THE KEYBOARD T|
00003180: 4F 20 43 4F 50 59 20 4F  56 45 52 20 54 48 45 20  |O COPY OVER THE |
00003190: 51 55 4F 54 45 22 00 C3  39 42 27 99 20 22 20 4D  |QUOTE"..9B'. " M|
000031A0: 41 52 4B 20 41 54 20 54  48 45 20 42 45 47 49 4E  |ARK AT THE BEGIN|
000031B0: 4E 49 4E 47 20 4F 46 20  45 41 43 48 20 4C 49 4E  |NING OF EACH LIN|
000031C0: 45 2E 22 00 D8 39 4C 27  4A B2 32 32 3A 8D 20 39  |E."..9L'J.22:. 9|
000031D0: 30 30 30 3A 99 20 4C 24  00 DE 39 56 27 8E 00 F5  |000:. L$..9V'...|
000031E0: 39 60 27 8F 2D 2D 2D 51  55 49 54 20 45 44 49 54  |9`'.---QUIT EDIT|
000031F0: 4F 52 2D 2D 2D 00 FF 39  6A 27 99 20 48 43 24 00  |OR---..9j'. HC$.|
00003200: 1C 3A 74 27 99 22 20 20  D9 4F 55 52 20 43 48 4F  |.:t'."  .OUR CHO|
00003210: 49 43 45 53 20 41 52 45  3A 11 11 22 00 3F 3A 7E  |ICES ARE:..".?:~|
00003220: 27 99 22 20 20 31 3E 20  D2 45 54 55 52 4E 20 54  |'."  1> .ETURN T|
00003230: 4F 20 54 48 45 20 45 44  49 54 4F 52 11 11 22 00  |O THE EDITOR..".|
00003240: 6F 3A 88 27 99 22 20 20  32 3E 20 D3 41 56 45 20  |o:.'."  2> .AVE |
00003250: 46 49 4C 45 20 28 49 46  20 59 4F 55 20 48 41 56  |FILE (IF YOU HAV|
00003260: 45 4E 27 54 20 41 4C 52  45 41 44 59 29 11 22 00  |EN'T ALREADY).".|
00003270: 91 3A 92 27 99 22 20 20  20 20 20 41 4E 44 20 51  |.:.'."     AND Q|
00003280: 55 49 54 20 54 48 45 20  45 44 49 54 4F 52 11 11  |UIT THE EDITOR..|
00003290: 22 00 AF 3A 9C 27 99 22  20 20 33 3E 20 D1 55 49  |"..:.'."  3> .UI|
000032A0: 54 20 54 48 45 20 45 44  49 54 4F 52 11 11 22 00  |T THE EDITOR..".|
000032B0: CD 3A A6 27 99 22 20 20  D9 4F 55 52 20 43 48 4F  |.:.'."  .OUR CHO|
000032C0: 49 43 45 3F 20 28 31 2D  33 29 11 11 22 00 E7 3A  |ICE? (1-3).."..:|
000032D0: A8 27 A1 20 41 24 3A 8B  20 41 24 B3 B1 22 22 20  |.'. A$:. A$.."" |
000032E0: A7 20 31 30 31 35 32 00  11 3B B0 27 A1 20 41 24  |. 10152..;.'. A$|
000032F0: 3A 8B 20 41 24 B3 22 31  22 20 B0 20 41 24 B1 22  |:. A$."1" . A$."|
00003300: 33 22 20 A7 20 20 20 20  20 20 20 20 31 30 31 36  |3" .        1016|
00003310: 30 00 2B 3B BA 27 49 B2  C5 28 41 24 29 3A 8B 20  |0.+;.'I..(A$):. |
00003320: 49 B2 31 20 A7 20 31 30  32 37 30 00 5F 3B C4 27  |I.1 . 10270._;.'|
00003330: 8B 20 49 B2 32 20 A7 20  8D 20 34 30 38 30 3A 8B  |. I.2 . . 4080:.|
00003340: 20 45 4D 50 54 59 20 20  20 20 20 20 20 20 20 A7  | EMPTY         .|
00003350: 20 81 20 49 B2 31 20 A4  20 32 30 30 30 3A 82 00  | . I.1 . 2000:..|
00003360: 69 3B CE 27 99 20 48 43  24 00 8F 3B D8 27 99 20  |i;.'. HC$..;.'. |
00003370: 22 20 20 20 D4 4F 20 20  52 45 2D 45 4E 54 45 52  |"   .O  RE-ENTER|
00003380: 20 20 54 48 45 20 20 45  44 49 54 4F 52 11 22 00  |  THE  EDITOR.".|
00003390: B8 3B E2 27 99 20 22 20  20 20 57 49 54 48 20 59  |.;.'. "   WITH Y|
000033A0: 4F 55 52 20 46 49 4C 45  20 49 4E 54 41 43 54 2C  |OUR FILE INTACT,|
000033B0: 20 54 59 50 45 3A 11 22  00 D9 3B E3 27 99 20 22  | TYPE:."..;.'. "|
000033C0: 20 20 20 47 4F 54 4F 20  35 30 20 20 28 52 45 54  |   GOTO 50  (RET|
000033D0: 55 52 4E 29 2E 11 11 11  22 00 01 3C EC 27 99 20  |URN)...."..<.'. |
000033E0: 22 20 20 20 D4 4F 20 20  52 55 4E 20 20 D3 50 45  |"   .O  RUN  .PE|
000033F0: 45 44 20 20 D2 45 41 44  45 52 20 20 C9 C9 2C 11  |ED  .EADER  ..,.|
00003400: 22 00 2F 3C F6 27 99 20  22 20 20 20 49 4E 53 45  |"./<.'. "   INSE|
00003410: 52 54 20 54 48 45 20 50  52 4F 47 52 41 4D 20 44  |RT THE PROGRAM D|
00003420: 49 53 4B 20 41 4E 44 20  54 59 50 45 3A 11 22 00  |ISK AND TYPE:.".|
00003430: 6C 3C 00 28 99 20 22 20  20 20 4C 4F 41 44 20 22  |l<.(. "   LOAD "|
00003440: 3B C7 28 33 34 29 3B 22  53 50 45 45 44 22 3B C7  |;.(34);"SPEED";.|
00003450: 28 33 34 29 3B 22 2C 38  20 20 28 52 45 54 55 52  |(34);",8  (RETUR|
00003460: 4E 29 2E 20 20 C1 46 54  45 52 11 22 00 96 3C 0A  |N).  .FTER."..<.|
00003470: 28 99 20 22 20 20 20 54  48 45 20 50 52 4F 47 52  |(. "   THE PROGR|
00003480: 41 4D 20 48 41 53 20 4C  4F 41 44 45 44 2C 20 54  |AM HAS LOADED, T|
00003490: 59 50 45 3A 11 22 00 B2  3C 0E 28 99 20 22 20 20  |YPE:."..<.(. "  |
000034A0: 20 52 55 4E 20 20 28 52  45 54 55 52 4E 29 2E 11  | RUN  (RETURN)..|
000034B0: 11 22 00 B8 3C 14 28 80  00 CE 3C 1E 28 99 20 48  |."..<.(...<.(. H|
000034C0: 43 24 3A 4A B2 32 32 3A  8D 20 39 30 30 30 00 D7  |C$:J.22:. 9000..|
000034D0: 3C 28 28 99 20 4C 24 00  DD 3C 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...... .2) 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" . 3370.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) "IN-HOUSE EDITOR".?2..J
.22:. 9000:. L$.E2....U2.#.---VTAB---.E2
(#. 214,J.2:..K22#...2.#.---VTAB & LINE#
---..2.#J.INLINE:. 9000:A$.D(LINE):     
 A$.I(A$,C(A$).1).Y2 #...(LINE.10).(LINE
.100))A$;..2.#...2.#.---LENGTH CHECK---.
.3.#IN$.H(IN$,39).&3.#A$.I(IN$,1):I.F(A$
.G(0)).A3.#. (I.32 . I.160) .C(A$).1.   
A$.H(IN$,C(IN$).1):. 9202.U3.$J.INLINE:.
 9000..3"$. .3)"   ";IN$;:. C(IN$).     
34 . ...36$.EL$:.C(IN$).33..9400..3@$..U
3J$.---EMPTY CHECK---..3T$EMPTY.(L.1)..4
^$. EM . J.INL.1:. 9000:. .ET)"NO LINES 
IN MEMORY.".!4H$..:4.$.---SCROLL SCREEN-
--.N4.$J.22:.9000:.I.1.4:.EL$:      .:J.
22:.9000:.L$:...4B$.---SCROLL NO LINE---
..4L$J.22:. 9000:. I.1 . 4:.      EL$:.:
..O4V%.---VALID LINE # CHECK---..4.%IVLI
D.(E.1 . E.L.1).&5.%. IVLI . J.INLINE.1:
. 9000    :..ET) "INVALID LINE NUMBER".,
5.%..D5Z%.---CHANGE DISKS---..5.%.53272,
23:. HC$:. .4) "* *  SPEED READER II EDI
TOR  * *...". 5.%. .4) "PLEASE SELECT:."
.Q5.%. .4) "LIGHT OR DARK BACKGROUND? (L
/.D.)..."..6.%.A$:.A$.."L".A$.."L".A$.."
D" .A$.."D". A$..G(13) . 9706.-6.%LB.(A$
."L".A$."L".A$.G(13)).D6.%DB.(A$."D".A$.
"D").P6.%. .4)"PLEASE REMOVE THE PROGRAM
 DISK.."..6.%. .4) "PLEASE INSERT THE DA
TA DISK."..6.&J.24:. 9000.Q6.&. .7) "PRE
SS SPACE BAR TO CONTINUE"..6.&. A$:. A$.
."" . 9750..7 &. A$:. A$.." " . 9760.E7"
&. ".":.53280,.12.LB:.         53281,.LB
.11.DB:.646,.DB.11.LB.K7*&..G7>&.---MAIN
 PROMPT LINE---.W7H&J.25:. 9000..7R&. " 
.E .L .D .I .V .A .S .G .P .C .Q .H";..7
\&..B7.&.---HELP SCREEN---.M7.&. HC$;..7
.&. " THE COMMANDS IN THIS EDITOR ARE:."
..8.&. " .E   EDIT A LINE"..8J&. " .L   
LIST THE FILE".J8T&. " .D   DELETE A LIN
E".E8.&. " .I   INSERT LINES".8.&. " .V
   VERIFY FILE"..8.&. " .A   ANALYZE FIL
E"..8.&. " .S   SAVE FILE TO DISK"..8.'.
 " .G   GET FILE FROM DISK"..9.'." .C   
CLEAR EDITOR FOR NEW FILE"..9.'." .Q   Q
UIT THE EDITOR".89$'." .H   HELP SCREEN"
.I9.'.:. " USE THE CRSR KEY ON THE RIGHT
 SIDE OF"..98'. " THE KEYBOARD TO COPY O
VER THE QUOTE".C9B'. " MARK AT THE BEGIN
NING OF EACH LINE.".X9L'J.22:. 9000:. L$
..9V'...9`'.---QUIT EDITOR---..9J'. HC$.
.:T'."  YOUR CHOICES ARE:..".?:~'."  1> 
RETURN TO THE EDITOR..".O:.'."  2> SAVE 
FILE (IF YOU HAVEN'T ALREADY)."..:.'."  
   AND QUIT THE EDITOR.."..:.'."  3> QUI
T THE EDITOR..".M:.'."  YOUR CHOICE? (1-
3).."..:.'. A$:. A$.."" . 10152..;.'. A$
:. A$."1" . A$."3" .        10160.+;.'I.
E(A$):. I.1 . 10270._;D'. I.2 . . 4080:.
 EMPTY         . . I.1 . 2000:..I;N'. HC
$..;X'. "   TO  RE-ENTER  THE  EDITOR.".
.;.'. "   WITH YOUR FILE INTACT, TYPE:."
.Y;.'. "   GOTO 50  (RETURN)...."..<.'. 
"   TO  RUN  SPEED  READER  II,."./<.'. 
"   INSERT THE PROGRAM DISK AND TYPE:.".
L<.(. "   LOAD ";G(34);"SPEED";G(34);",8
  (RETURN).  AFTER."..<.(. "   THE PROGR
AM HAS LOADED, TYPE:."..<.(. "   RUN  (R
ETURN)..."..<.(..N<.(. HC$:J.22:. 9000.W
<((. L$..<2(....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL