EASY EDIT

00000000: 01 08 34 08 00 00 99 22  93 11 12 45 41 53 59 20  |..4...."...EASY |
00000010: 45 44 49 54 92 2E 2E 2E  52 4F 42 45 52 54 20 45  |EDIT....ROBERT E|
00000020: 2E 20 44 52 41 4B 45 20  28 43 29 38 30 2F 31 30  |. DRAKE (C)80/10|
00000030: 2F 30 37 22 00 67 08 01  00 8F 20 50 52 49 4E 54  |/07".g.... PRINT|
00000040: 22 11 11 4D 4F 44 49 46  49 45 44 20 46 4F 52 20  |"..MODIFIED FOR |
00000050: 43 36 34 20 42 59 20 12  44 41 56 49 44 20 42 52  |C64 BY .DAVID BR|
00000060: 41 44 4C 45 59 92 22 00  A2 08 02 00 99 C7 28 31  |ADLEY.".......(1|
00000070: 34 32 29 3A 85 22 11 11  11 11 55 50 50 45 52 20  |42):."....UPPER |
00000080: 43 41 53 45 20 4F 4E 4C  59 20 20 59 9D 9D 9D 22  |CASE ONLY  Y..."|
00000090: 3B 41 24 3A 8B 41 24 B2  22 4E 22 A7 99 C7 28 31  |;A$:.A$."N"...(1|
000000A0: 34 29 00 D3 08 03 00 4E  4D B2 31 3A 86 54 58 24  |4).....NM.1:.TX$|
000000B0: 28 36 30 29 3A 43 52 24  B2 C7 28 31 33 29 3A 44  |(60):CR$..(13):D|
000000C0: 4C 24 B2 C7 28 32 30 29  3A 49 4E 24 B2 C7 28 31  |L$..(20):IN$..(1|
000000D0: 34 38 29 00 DC 08 04 00  8D 31 31 31 00 ED 08 05  |48)......111....|
000000E0: 00 A1 41 24 3A 8B 41 24  B2 22 22 A7 35 00 00 09  |..A$:.A$."".5...|
000000F0: 06 00 8B 41 24 B2 22 93  22 A7 99 41 24 3A 89 34  |...A$."."..A$:.4|
00000100: 00 2F 09 07 00 4B B2 30  3A 81 49 B2 31 A4 37 3A  |./...K.0:.I.1.7:|
00000110: 8B 41 24 B2 CA 28 22 45  43 53 41 50 51 4C 22 2C  |.A$..("ECSAPQL",|
00000120: 49 2C 31 29 A7 4B B2 49  3A 49 B2 37 3A 89 38 00  |I,1).K.I:I.7:.8.|
00000130: 35 09 08 00 82 00 57 09  09 00 8B 4B B3 B1 30 A7  |5.....W....K..0.|
00000140: 91 4B 8D 31 31 2C 31 36  2C 35 32 2C 35 37 2C 36  |.K.11,16,52,57,6|
00000150: 36 2C 38 39 2C 39 30 00  5E 09 0A 00 89 35 00 74  |6,89,90.^....5.t|
00000160: 09 0B 00 8D 31 31 30 3A  8F 20 49 4E 50 55 54 20  |....110:. INPUT |
00000170: 54 45 58 54 00 93 09 0C  00 8B 4E 4D B1 35 35 A7  |TEXT......NM.55.|
00000180: 99 22 54 45 58 54 20 41  52 45 41 20 46 55 4C 4C  |."TEXT AREA FULL|
00000190: 22 3A 8E 00 C9 09 0D 00  41 24 B2 C4 28 4E 4D 29  |":......A$..(NM)|
000001A0: 3A 4A 4A B2 36 30 3A 8D  31 31 34 3A 8D 31 31 39  |:JJ.60:.114:.119|
000001B0: 3A 8B 53 52 24 B2 22 4E  49 4C 22 A7 53 52 24 B2  |:.SR$."NIL".SR$.|
000001C0: 22 22 3A 8D 31 31 30 3A  8E 00 E2 09 0E 00 54 58  |"":.110:......TX|
000001D0: 24 28 4E 4D 29 B2 53 52  24 3A 53 52 24 B2 22 22  |$(NM).SR$:SR$.""|
000001E0: 3A 99 00 F2 09 0F 00 4E  4D B2 4E 4D AA 31 3A 89  |:......NM.NM.1:.|
000001F0: 31 32 00 04 0A 10 00 8F  20 43 48 41 4E 47 45 20  |12...... CHANGE |
00000200: 54 45 58 54 00 2E 0A 11  00 99 22 93 45 4E 54 45  |TEXT......".ENTE|
00000210: 52 20 53 43 52 45 45 4E  20 53 41 56 45 20 50 52  |R SCREEN SAVE PR|
00000220: 49 4E 54 20 51 55 49 54  20 4C 4F 41 44 22 00 5F  |INT QUIT LOAD"._|
00000230: 0A 12 00 99 22 13 11 12  43 48 41 4E 47 45 3A 92  |...."...CHANGE:.|
00000240: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000250: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 00  |              ".|
00000260: 8A 0A 13 00 99 22 13 11  12 43 48 41 4E 47 45 3A  |....."...CHANGE:|
00000270: 92 22 3B 3A 85 22 57 48  49 43 48 20 4C 49 4E 45  |.";:."WHICH LINE|
00000280: 20 20 20 BF 9D 9D 9D 22  3B 53 00 C5 0A 14 00 99  |   ....";S......|
00000290: 22 13 11 12 43 48 41 4E  47 45 92 3A 12 50 92 41  |"...CHANGE.:.P.A|
000002A0: 52 54 20 12 44 92 45 4C  45 54 45 20 12 52 92 45  |RT .D.ELETE .R.E|
000002B0: 50 4C 41 43 45 20 12 49  92 4E 53 45 52 54 20 12  |PLACE .I.NSERT .|
000002C0: 43 92 4F 50 59 00 D3 0A  15 00 99 3A 99 54 58 24  |C.OPY......:.TX$|
000002D0: 28 53 29 00 DB 0A 16 00  A1 41 24 00 ED 0A 17 00  |(S)......A$.....|
000002E0: 8B 41 24 B2 C7 28 31 33  29 A7 89 35 31 00 13 0B  |.A$..(13)..51...|
000002F0: 18 00 4B B2 30 3A 81 49  B2 31 A4 35 3A 8B 41 24  |..K.0:.I.1.5:.A$|
00000300: B2 CA 28 22 50 44 52 49  43 22 2C 49 2C 31 29 A7  |..("PDRIC",I,1).|
00000310: 4B B2 49 00 19 0B 19 00  82 00 35 0B 1A 00 8B 4B  |K.I.......5....K|
00000320: B3 B1 30 A7 91 4B 89 33  30 2C 33 39 2C 34 32 2C  |..0..K.30,39,42,|
00000330: 34 35 2C 32 38 00 3D 0B  1B 00 89 32 32 00 71 0B  |45,28.=....22.q.|
00000340: 1C 00 85 22 43 4F 50 59  20 54 4F 20 4C 49 4E 45  |..."COPY TO LINE|
00000350: 20 23 22 3B 48 3A 54 58  24 28 48 29 B2 54 58 24  | #";H:TX$(H).TX$|
00000360: 28 53 29 3A 8B 48 B1 B2  4E 4D A7 4E 4D B2 48 AA  |(S):.H..NM.NM.H.|
00000370: 31 00 79 0B 1D 00 89 35  31 00 B5 0B 1E 00 41 24  |1.y....51.....A$|
00000380: B2 22 43 48 41 4E 47 45  20 57 48 41 54 22 3A 4A  |."CHANGE WHAT":J|
00000390: 4A B2 33 30 3A 8D 31 31  34 3A 8D 31 31 39 3A 43  |J.30:.114:.119:C|
000003A0: 24 B2 53 52 24 3A 53 52  24 B2 22 22 3A 8F 20 43  |$.SR$:SR$."":. C|
000003B0: 48 41 4E 47 45 00 F6 0B  1F 00 99 3A 41 24 B2 22  |HANGE......:A$."|
000003C0: 54 4F 20 57 48 41 54 22  3A 4A 4A B2 33 30 3A 8D  |TO WHAT":JJ.30:.|
000003D0: 31 31 34 3A 8D 31 31 39  3A 42 24 B2 53 52 24 3A  |114:.119:B$.SR$:|
000003E0: 53 52 24 B2 22 22 3A 8B  42 24 B2 22 4E 49 4C 22  |SR$."":.B$."NIL"|
000003F0: A7 42 24 B2 22 22 00 0D  0C 20 00 59 B2 30 3A 81  |.B$.""... .Y.0:.|
00000400: 54 B2 31 A4 C3 28 54 58  24 28 53 29 29 00 37 0C  |T.1..(TX$(S)).7.|
00000410: 21 00 8B 43 24 B2 CA 28  54 58 24 28 53 29 2C 54  |!..C$..(TX$(S),T|
00000420: 2C C3 28 43 24 29 29 A7  59 B2 54 3A 54 B2 C3 28  |,.(C$)).Y.T:T..(|
00000430: 54 58 24 28 53 29 29 00  3D 0C 22 00 82 00 4F 0C  |TX$(S)).=."...O.|
00000440: 23 00 8B 59 B2 30 A7 8D  31 31 31 3A 89 35 31 00  |#..Y.0..111:.51.|
00000450: 89 0C 24 00 54 58 24 28  53 29 B2 C8 28 54 58 24  |..$.TX$(S)..(TX$|
00000460: 28 53 29 2C 59 AB 31 29  AA 42 24 AA C9 28 54 58  |(S),Y.1).B$..(TX|
00000470: 24 28 53 29 2C C3 28 54  58 24 28 53 29 29 AB 59  |$(S),.(TX$(S)).Y|
00000480: AB C3 28 43 24 29 AA 31  29 00 9C 0C 25 00 99 3A  |..(C$).1)...%..:|
00000490: 99 22 4E 45 57 20 4C 49  4E 45 3A 22 00 BB 0C 26  |."NEW LINE:"...&|
000004A0: 00 99 22 11 22 54 58 24  28 53 29 3A 81 49 B2 31  |.."."TX$(S):.I.1|
000004B0: A4 31 36 30 30 3A 82 3A  89 35 31 00 D9 0C 27 00  |.1600:.:.51...'.|
000004C0: 81 49 B2 53 A4 4E 4D 3A  8F 20 44 45 4C 45 54 45  |.I.S.NM:. DELETE|
000004D0: 20 54 48 45 20 4C 49 4E  45 00 EF 0C 28 00 54 58  | THE LINE...(.TX|
000004E0: 24 28 49 29 B2 54 58 24  28 49 AA 31 29 3A 82 00  |$(I).TX$(I.1):..|
000004F0: 0A 0D 29 00 54 58 24 28  4E 4D 29 B2 22 22 3A 4E  |..).TX$(NM)."":N|
00000500: 4D B2 4E 4D AB 31 3A 89  35 31 00 39 0D 2A 00 41  |M.NM.1:.51.9.*.A|
00000510: 24 B2 C4 28 53 29 3A 4A  4A B2 36 30 3A 8D 31 31  |$..(S):JJ.60:.11|
00000520: 34 3A 8D 31 31 39 3A 8F  20 52 45 50 4C 41 43 45  |4:.119:. REPLACE|
00000530: 20 54 48 45 20 4C 49 4E  45 00 53 0D 2B 00 8B 53  | THE LINE.S.+..S|
00000540: 52 24 B2 22 4E 49 4C 22  A7 53 52 24 B2 22 22 3A  |R$."NIL".SR$."":|
00000550: 89 35 31 00 6D 0D 2C 00  54 58 24 28 53 29 B2 53  |.51.m.,.TX$(S).S|
00000560: 52 24 3A 53 52 24 B2 22  22 3A 89 35 31 00 A8 0D  |R$:SR$."":.51...|
00000570: 2D 00 8B 4E 4D B2 35 36  A7 99 22 43 41 4E 27 54  |-..NM.56.."CAN'T|
00000580: 2E 2E 4F 55 54 20 4F 46  20 4C 49 4E 45 53 22 3A  |..OUT OF LINES":|
00000590: 81 49 B2 31 A4 31 36 30  30 3A 82 3A 89 35 31 3A  |.I.1.1600:.:.51:|
000005A0: 8F 20 49 4E 53 45 52 54  00 B4 0D 2E 00 4E 4D B2  |. INSERT.....NM.|
000005B0: 4E 4D AA 31 00 DF 0D 2F  00 81 49 B2 4E 4D A4 53  |NM.1.../..I.NM.S|
000005C0: A9 AB 31 3A 54 58 24 28  49 29 B2 54 58 24 28 49  |..1:TX$(I).TX$(I|
000005D0: AB 31 29 3A 82 3A 54 58  24 28 53 29 B2 22 22 00  |.1):.:TX$(S)."".|
000005E0: FB 0D 30 00 41 24 B2 C4  28 53 29 3A 4A 4A B2 36  |..0.A$..(S):JJ.6|
000005F0: 30 3A 8D 31 31 34 3A 8D  31 31 39 00 15 0E 31 00  |0:.114:.119...1.|
00000600: 8B 53 52 24 B2 22 4E 49  4C 22 A7 53 52 24 B2 22  |.SR$."NIL".SR$."|
00000610: 22 3A 89 33 39 00 2B 0E  32 00 54 58 24 28 53 29  |":.39.+.2.TX$(S)|
00000620: B2 53 52 24 3A 53 52 24  B2 22 22 00 36 0E 33 00  |.SR$:SR$."".6.3.|
00000630: 8D 31 31 31 3A 8E 00 4E  0E 34 00 8D 31 31 31 3A  |.111:..N.4..111:|
00000640: 8F 20 53 43 52 45 45 4E  20 50 52 49 4E 54 00 64  |. SCREEN PRINT.d|
00000650: 0E 35 00 85 22 12 46 52  4F 4D 92 20 20 BF 9D 9D  |.5..".FROM.  ...|
00000660: 9D 22 3B 53 00 84 0E 36  00 99 22 13 11 11 22 A6  |.";S...6.."...".|
00000670: 31 30 29 3B 3A 85 22 12  54 4F 92 20 20 BF 9D 9D  |10);:.".TO.  ...|
00000680: 9D 22 3B 46 00 A0 0E 37  00 81 49 B2 53 A4 46 3A  |.";F...7..I.S.F:|
00000690: 99 22 12 22 49 22 92 22  54 58 24 28 49 29 3A 82  |."."I"."TX$(I):.|
000006A0: 00 A6 0E 38 00 8E 00 BB  0E 39 00 8D 31 31 31 3A  |...8.....9..111:|
000006B0: 8D 31 34 34 3A 8F 20 53  41 56 45 00 FF 0E 3A 00  |.144:. SAVE...:.|
000006C0: 44 B2 31 3A 53 41 B2 31  3A 46 24 B2 46 49 4C 45  |D.1:SA.1:F$.FILE|
000006D0: 24 3A 8B 41 24 B2 22 44  22 A7 46 49 4C 45 24 B2  |$:.A$."D".FILE$.|
000006E0: 22 30 3A 22 AA 46 49 4C  45 24 AA 22 2C 53 2C 57  |"0:".FILE$.",S,W|
000006F0: 22 3A 44 B2 38 3A 53 41  B2 31 30 3A 89 36 32 00  |":D.8:SA.10:.62.|
00000700: 29 0F 3B 00 99 22 11 49  4E 53 45 52 54 20 59 4F  |).;..".INSERT YO|
00000710: 55 52 20 54 41 50 45 20  49 4E 20 54 48 45 20 54  |UR TAPE IN THE T|
00000720: 41 50 45 20 44 52 49 56  45 00 49 0F 3C 00 99 22  |APE DRIVE.I.<.."|
00000730: 50 52 45 53 53 20 41 20  4B 45 59 20 54 4F 20 43  |PRESS A KEY TO C|
00000740: 4F 4E 54 49 4E 55 45 2E  22 00 5B 0F 3D 00 A1 41  |ONTINUE.".[.=..A|
00000750: 24 3A 8B 41 24 B2 22 22  A7 36 31 00 6D 0F 3E 00  |$:.A$."".61.m.>.|
00000760: 9F 31 2C 44 2C 53 41 2C  46 49 4C 45 24 00 7C 0F  |.1,D,SA,FILE$.|.|
00000770: 3F 00 98 31 2C 46 24 3B  43 52 24 3B 00 C8 0F 40  |?..1,F$;CR$;...@|
00000780: 00 81 49 B2 31 A4 4E 4D  3A 54 58 24 28 49 29 B2  |..I.1.NM:TX$(I).|
00000790: 22 29 22 AA 54 58 24 28  49 29 3A 98 31 2C 54 58  |")".TX$(I):.1,TX|
000007A0: 24 28 49 29 3B 43 52 24  3B 3A 54 58 24 28 49 29  |$(I);CR$;:TX$(I)|
000007B0: B2 C9 28 54 58 24 28 49  29 2C C3 28 54 58 24 28  |..(TX$(I),.(TX$(|
000007C0: 49 29 29 AB 31 29 3A 82  00 E6 0F 41 00 98 31 2C  |I)).1):....A..1,|
000007D0: 22 5A 5A 5A 5A 5A 22 3B  43 52 24 3B 3A A0 31 3A  |"ZZZZZ";CR$;:.1:|
000007E0: 8D 31 31 31 3A 8E 00 F9  0F 42 00 8D 31 31 31 3A  |.111:....B..111:|
000007F0: 8F 20 50 52 49 4E 54 45  52 00 1A 10 43 00 85 22  |. PRINTER...C.."|
00000800: 11 12 44 4F 55 42 4C 45  20 53 50 41 43 45 92 20  |..DOUBLE SPACE. |
00000810: 20 4E 9D 9D 9D 22 3B 53  50 24 00 40 10 44 00 99  | N...";SP$.@.D..|
00000820: 22 11 50 55 54 20 59 4F  55 52 20 50 41 50 45 52  |".PUT YOUR PAPER|
00000830: 20 49 4E 20 54 48 45 20  50 52 49 4E 54 45 52 22  | IN THE PRINTER"|
00000840: 00 78 10 45 00 99 22 11  49 46 20 59 4F 55 20 44  |.x.E..".IF YOU D|
00000850: 4F 20 4E 4F 54 20 57 49  53 48 20 41 20 54 49 54  |O NOT WISH A TIT|
00000860: 4C 45 2C 20 4A 55 53 54  20 50 52 45 53 53 20 20  |LE, JUST PRESS  |
00000870: 52 45 54 55 52 4E 2E 22  00 8F 10 46 00 85 22 11  |RETURN."...F..".|
00000880: 54 49 54 4C 45 20 20 A0  9D 9D 9D 22 3B 41 24 00  |TITLE  ....";A$.|
00000890: A3 10 47 00 8B 41 24 B2  22 A0 22 A7 41 24 B2 22  |..G..A$.".".A$."|
000008A0: 20 20 22 00 B7 10 48 00  9F 31 2C 34 3A 98 31 2C  |  "...H..1,4:.1,|
000008B0: C7 28 31 29 2C 41 24 00  C5 10 49 00 A0 31 3A 9F  |.(1),A$...I..1:.|
000008C0: 31 2C 34 2C 31 00 CF 10  4A 00 41 24 B2 22 22 00  |1,4,1...J.A$."".|
000008D0: EF 10 4B 00 8F 20 46 4F  52 49 3D 31 54 4F 38 30  |..K.. FORI=1TO80|
000008E0: 3A 41 24 3D 41 24 2B 22  41 22 3A 4E 45 58 54 00  |:A$=A$+"A":NEXT.|
000008F0: 11 11 4C 00 8F 20 4F 50  45 4E 32 2C 34 2C 32 3A  |..L.. OPEN2,4,2:|
00000900: 50 52 49 4E 54 23 32 2C  41 24 3A 43 4C 4F 53 45  |PRINT#2,A$:CLOSE|
00000910: 32 00 24 11 4D 00 81 49  B2 31 A4 4E 4D 3A 46 4C  |2.$.M..I.1.NM:FL|
00000920: 41 47 B2 32 00 49 11 4E  00 8B C2 28 35 39 34 36  |AG.2.I.N...(5946|
00000930: 38 29 B2 31 32 A7 98 31  2C C7 28 31 36 30 29 54  |8).12..1,.(160)T|
00000940: 58 24 28 49 29 3A 89 38  37 00 5F 11 4F 00 8B 54  |X$(I):.87._.O..T|
00000950: 58 24 28 49 29 B2 22 22  A7 98 31 3A 89 38 38 00  |X$(I).""..1:.88.|
00000960: 72 11 50 00 81 59 B2 31  A4 C3 28 54 58 24 28 49  |r.P..Y.1..(TX$(I|
00000970: 29 29 00 89 11 51 00 41  B2 C6 28 CA 28 54 58 24  |))...Q.A..(.(TX$|
00000980: 28 49 29 2C 59 2C 31 29  29 00 C5 11 52 00 8B 46  |(I),Y,1))...R..F|
00000990: 4C 41 47 B3 B1 31 A7 8B  28 28 41 B1 31 38 32 29  |LAG..1..((A.182)|
000009A0: AF 28 41 B3 32 31 39 29  29 A7 59 24 B2 22 91 22  |.(A.219)).Y$."."|
000009B0: AA C7 28 41 AB 31 32 38  29 3A 46 4C 41 47 B2 31  |..(A.128):FLAG.1|
000009C0: 3A 3A 89 38 35 00 F9 11  53 00 8B 46 4C 41 47 B2  |::.85...S..FLAG.|
000009D0: 31 B0 46 4C 41 47 B2 32  AF 41 B1 36 34 AF 41 B3  |1.FLAG.2.A.64.A.|
000009E0: 39 31 A7 59 24 B2 22 11  22 AA C7 28 41 29 3A 46  |91.Y$."."..(A):F|
000009F0: 4C 41 47 B2 30 3A 89 38  35 00 1E 12 54 00 59 24  |LAG.0:.85...T.Y$|
00000A00: B2 C7 28 41 29 3A 8B 41  B1 31 38 32 AF 41 B3 32  |..(A):.A.182.A.2|
00000A10: 31 39 A7 59 24 B2 C7 28  41 AB 31 32 38 29 00 2D  |19.Y$..(A.128).-|
00000A20: 12 55 00 5A 24 B2 5A 24  AA 59 24 3A 82 00 44 12  |.U.Z$.Z$.Y$:..D.|
00000A30: 56 00 98 31 2C C7 28 31  36 30 29 2C 5A 24 3A 5A  |V..1,.(160),Z$:Z|
00000A40: 24 B2 22 22 00 54 12 57  00 8B 53 50 24 B2 22 59  |$."".T.W..SP$."Y|
00000A50: 22 A7 98 31 00 64 12 58  00 82 3A A0 31 3A 8D 31  |"..1.d.X..:.1:.1|
00000A60: 31 31 3A 8E 00 80 12 59  00 99 22 93 11 11 11 47  |11:....Y.."....G|
00000A70: 4F 54 4F 20 34 13 22 3A  80 3A 8F 20 51 55 49 54  |OTO 4.":.:. QUIT|
00000A80: 00 8B 12 5A 00 8F 20 4C  4F 41 44 00 AC 12 5B 00  |...Z.. LOAD...[.|
00000A90: 8D 31 31 31 3A 8B 4E 4D  B2 35 35 A7 99 22 12 46  |.111:.NM.55..".F|
00000AA0: 49 4C 45 20 46 55 4C 4C  92 22 3A 8E 00 B5 12 5C  |ILE FULL.":....\|
00000AB0: 00 8D 31 34 34 00 F0 12  5D 00 44 B2 31 3A 53 41  |..144...].D.1:SA|
00000AC0: B2 30 3A 8B 41 24 B2 22  44 22 A7 46 49 4C 45 24  |.0:.A$."D".FILE$|
00000AD0: B2 22 30 3A 22 AA 46 49  4C 45 24 AA 22 2C 53 2C  |."0:".FILE$.",S,|
00000AE0: 52 22 3A 44 B2 38 3A 53  41 B2 31 30 3A 89 39 38  |R":D.8:SA.10:.98|
00000AF0: 00 1E 13 5E 00 99 22 11  4D 4F 55 4E 54 20 59 4F  |...^..".MOUNT YO|
00000B00: 55 52 20 54 41 50 45 2E  20 42 45 20 53 55 52 45  |UR TAPE. BE SURE|
00000B10: 20 49 54 20 49 53 20 52  45 57 4F 55 4E 44 00 3D  | IT IS REWOUND.=|
00000B20: 13 5F 00 99 22 11 50 52  45 53 53 20 41 20 4B 45  |._..".PRESS A KE|
00000B30: 59 20 54 4F 20 43 4F 4E  54 49 4E 55 45 00 4F 13  |Y TO CONTINUE.O.|
00000B40: 60 00 A1 41 24 3A 8B 41  24 B2 22 22 A7 39 36 00  |`..A$:.A$."".96.|
00000B50: 67 13 61 00 8B 46 49 4C  45 24 B2 22 A0 22 A7 46  |g.a..FILE$.".".F|
00000B60: 49 4C 45 24 B2 22 22 00  79 13 62 00 9F 31 2C 44  |ILE$."".y.b..1,D|
00000B70: 2C 53 41 2C 46 49 4C 45  24 00 83 13 63 00 84 31  |,SA,FILE$...c..1|
00000B80: 2C 41 24 00 96 13 64 00  99 22 12 4C 4F 41 44 49  |,A$...d..".LOADI|
00000B90: 4E 47 3A 22 41 24 00 A0  13 65 00 84 31 2C 41 24  |NG:"A$...e..1,A$|
00000BA0: 00 B1 13 66 00 8B 28 53  54 29 AF 36 34 A7 31 30  |...f..(ST).64.10|
00000BB0: 39 00 C5 13 67 00 8B 41  24 B2 22 5A 5A 5A 5A 5A  |9...g..A$."ZZZZZ|
00000BC0: 22 A7 31 30 39 00 DF 13  68 00 54 58 24 28 4E 4D  |".109...h.TX$(NM|
00000BD0: 29 B2 C9 28 41 24 2C C3  28 41 24 29 AB 31 29 00  |)..(A$,.(A$).1).|
00000BE0: EC 13 69 00 99 54 58 24  28 4E 4D 29 00 F8 13 6A  |..i..TX$(NM)...j|
00000BF0: 00 4E 4D B2 4E 4D AA 31  00 08 14 6B 00 8B 4E 4D  |.NM.NM.1...k..NM|
00000C00: B2 35 36 A7 89 31 30 39  00 11 14 6C 00 89 31 30  |.56..109...l..10|
00000C10: 31 00 1F 14 6D 00 A0 31  3A 8D 31 31 31 3A 8E 00  |1...m..1:.111:..|
00000C20: 2A 14 6E 00 8F 20 4D 45  4E 55 00 5F 14 6F 00 99  |*.n.. MENU._.o..|
00000C30: 22 93 12 45 92 4E 54 45  52 20 12 53 92 43 52 45  |"..E.NTER .S.CRE|
00000C40: 45 4E 20 53 12 41 92 56  45 20 12 50 92 52 49 4E  |EN S.A.VE .P.RIN|
00000C50: 54 20 12 51 92 55 49 54  20 12 4C 92 4F 41 44 00  |T .Q.UIT .L.OAD.|
00000C60: 8E 14 70 00 99 22 12 43  92 48 41 4E 47 45 3A 50  |..p..".C.HANGE:P|
00000C70: 41 52 54 2C 44 45 4C 45  54 45 2C 52 45 50 4C 41  |ART,DELETE,REPLA|
00000C80: 43 45 2C 49 4E 53 45 52  54 2C 43 4F 50 59 00 94  |CE,INSERT,COPY..|
00000C90: 14 71 00 8E 00 A7 14 72  00 8F 20 52 45 44 20 38  |.q.....r.. RED 8|
00000CA0: 30 2F 30 36 2F 33 30 00  B9 14 73 00 99 22 11 11  |0/06/30...s.."..|
00000CB0: 22 41 24 22 20 20 20 22  3B 00 FD 14 74 00 99 22  |"A$"   ";...t.."|
00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2B 2D 2D 2D 2D 2D 2D  |---------+------|
00000CD0: 2D 2D 2D 2B 2D 2D 2D 2D  2D 2D 2D 2D 2D 2A 2D 2D  |---+---------*--|
00000CE0: 2D 2D 2D 2D 2D 2D 2D 2B  2D 2D 2D 2D 2D 2D 2D 2D  |-------+--------|
00000CF0: 2D 2B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 22 00 14 15  |-+----------"...|
00000D00: 75 00 99 3A 99 22 91 91  91 22 A3 C3 28 41 24 29  |u..:."..."..(A$)|
00000D10: AA 33 29 3B 00 1A 15 76  00 8E 00 3F 15 77 00 8F  |.3);...v...?.w..|
00000D20: 20 52 45 44 20 38 30 2F  30 36 2F 33 30 3A 52 45  | RED 80/06/30:RE|
00000D30: 4D 20 49 4E 50 55 54 20  52 4F 55 54 49 4E 45 00  |M INPUT ROUTINE.|
00000D40: 47 15 78 00 A1 41 24 00  50 15 79 00 8D 31 34 33  |G.x..A$.P.y..143|
00000D50: 00 63 15 7A 00 8B 41 24  B2 22 2C 22 A7 41 24 B2  |.c.z..A$.",".A$.|
00000D60: 22 AE 22 00 72 15 7B 00  8B 41 24 B2 22 22 A7 31  |".".r.{..A$."".1|
00000D70: 32 30 00 82 15 7C 00 8B  41 24 B2 43 52 24 A7 31  |20...|..A$.CR$.1|
00000D80: 34 30 00 92 15 7D 00 8B  41 24 B2 49 4E 24 A7 31  |40...}..A$.IN$.1|
00000D90: 32 30 00 A7 15 7E 00 8B  41 24 B2 C7 28 33 34 29  |20...~..A$..(34)|
00000DA0: A7 41 24 B2 22 27 22 00  B8 15 7F 00 8B 41 24 B3  |.A$."'"......A$.|
00000DB0: B1 44 4C 24 A7 31 33 30  00 CA 15 80 00 8B C3 28  |.DL$.130.......(|
00000DC0: 53 52 24 29 B3 31 A7 31  32 30 00 EF 15 81 00 53  |SR$).1.120.....S|
00000DD0: 52 24 B2 C8 28 53 52 24  2C C3 28 53 52 24 29 AB  |R$..(SR$,.(SR$).|
00000DE0: 31 29 3A 99 22 2D 9D 9D  22 3B 3A 89 31 33 33 00  |1):."-..";:.133.|
00000DF0: 18 16 82 00 4B B2 30 3A  81 49 B2 31 A4 38 3A 8B  |....K.0:.I.1.8:.|
00000E00: 41 24 B2 CA 28 22 3B 3A  13 93 91 11 9D 1D 22 2C  |A$..(";:......",|
00000E10: 49 2C 31 29 A7 4B B2 49  00 28 16 83 00 82 3A 8B  |I,1).K.I.(....:.|
00000E20: 4B B3 B1 30 A7 31 32 30  00 3C 16 84 00 53 52 24  |K..0.120.<...SR$|
00000E30: B2 53 52 24 AA 41 24 3A  99 41 24 3B 00 74 16 85  |.SR$.A$:.A$;.t..|
00000E40: 00 8B C2 28 31 39 37 29  B3 B1 36 34 AF 28 41 24  |...(197)..64.(A$|
00000E50: B2 22 A0 22 B0 41 24 B2  44 4C 24 29 AF C3 28 53  |.".".A$.DL$)..(S|
00000E60: 52 24 29 B3 4A 4A A7 81  56 B2 31 A4 35 3A 82 3A  |R$).JJ..V.1.5:.:|
00000E70: 89 31 32 30 00 87 16 86  00 8B C3 28 53 52 24 29  |.120.......(SR$)|
00000E80: B3 4A 4A A7 31 32 30 00  8F 16 87 00 A1 41 24 00  |.JJ.120......A$.|
00000E90: 98 16 88 00 8D 31 34 33  00 AA 16 89 00 8B 41 24  |.....143......A$|
00000EA0: B2 C7 28 31 33 29 A7 31  34 30 00 BC 16 8A 00 8B  |..(13).140......|
00000EB0: 41 24 B2 C7 28 32 30 29  A7 31 32 37 00 C5 16 8B  |A$..(20).127....|
00000EC0: 00 89 31 33 35 00 DB 16  8C 00 8B 53 52 24 B2 22  |..135......SR$."|
00000ED0: 22 A7 53 52 24 B2 22 4E  49 4C 22 00 E1 16 8D 00  |".SR$."NIL".....|
00000EE0: 8E 00 EE 16 8E 00 8F 20  43 55 52 53 4F 52 00 0B  |....... CURSOR..|
00000EF0: 17 8F 00 99 22 A6 9D 22  3B 3A 81 49 B2 31 A4 31  |...."..";:.I.1.1|
00000F00: 3A 82 3A 99 22 20 9D 22  3B 3A 8E 00 23 17 90 00  |:.:." .";:..#...|
00000F10: 99 22 12 54 92 41 50 45  20 4F 52 20 12 44 92 49  |.".T.APE OR .D.I|
00000F20: 53 4B 22 00 40 17 91 00  A1 41 24 3A 8B 41 24 B3  |SK".@....A$:.A$.|
00000F30: B1 22 54 22 AF 41 24 B3  B1 22 44 22 A7 31 34 35  |."T".A$.."D".145|
00000F40: 00 5E 17 92 00 85 22 11  46 49 4C 45 20 4E 41 4D  |.^....".FILE NAM|
00000F50: 45 20 20 A0 9D 9D 9D 22  3B 46 49 4C 45 24 00 64  |E  ....";FILE$.d|
00000F60: 17 93 00 8E 00 00 00                              |.......         |

..4...."...EASY EDIT....ROBERT E. DRAKE 
(C)80/10/07".G.... PRINT"..MODIFIED FOR 
C64 BY .DAVID BRADLEY."......G(142):."..
..UPPER CASE ONLY  Y...";A$:.A$."N"..G(1
4).S...NM.1:.TX$(60):CR$.G(13):DL$.G(20)
:IN$.G(148)......111......A$:.A$."".5...
...A$."."..A$:.4./...K.0:.I.1.7:.A$.J("E
CSAPQL",I,1).K.I:I.7:.8.5.....W....K..0.
.K.11,16,52,57,66,89,90.^....5.T....110:
. INPUT TEXT......NM.55.."TEXT AREA FULL
":..I...A$.D(NM):JJ.60:.114:.119:.SR$."N
IL".SR$."":.110:......TX$(NM).SR$:SR$.""
:......NM.NM.1:.12...... CHANGE TEXT....
..".ENTER SCREEN SAVE PRINT QUIT LOAD"._
...."...CHANGE:.                        
      "......"...CHANGE:.";:."WHICH LINE
   ....";S.E...."...CHANGE.:.P.ART .D.EL
ETE .R.EPLACE .I.NSERT .C.OPY.S....:.TX$
(S)......A$......A$.G(13)..51.....K.0:.I
.1.5:.A$.J("PDRIC",I,1).K.I.......5....K
..0..K.30,39,42,45,28.=....22.Q...."COPY
 TO LINE #";H:TX$(H).TX$(S):.H..NM.NM.H.
1.Y....51.....A$."CHANGE WHAT":JJ.30:.11
4:.119:C$.SR$:SR$."":. CHANGE......:A$."
TO WHAT":JJ.30:.114:.119:B$.SR$:SR$."":.
B$."NIL".B$.""... .Y.0:.T.1.C(TX$(S)).7.
!..C$.J(TX$(S),T,C(C$)).Y.T:T.C(TX$(S)).
=."...O.#..Y.0..111:.51...$.TX$(S).H(TX$
(S),Y.1).B$.I(TX$(S),C(TX$(S)).Y.C(C$).1
)...%..:."NEW LINE:"...&.."."TX$(S):.I.1
.1600:.:.51.Y.'..I.S.NM:. DELETE THE LIN
E...(.TX$(I).TX$(I.1):....).TX$(NM)."":N
M.NM.1:.51.9.*.A$.D(S):JJ.60:.114:.119:.
 REPLACE THE LINE.S.+..SR$."NIL".SR$."":
.51.M.,.TX$(S).SR$:SR$."":.51...-..NM.56
.."CAN'T..OUT OF LINES":.I.1.1600:.:.51:
. INSERT.....NM.NM.1.../..I.NM.S..1:TX$(
I).TX$(I.1):.:TX$(S).""...0.A$.D(S):JJ.6
0:.114:.119...1..SR$."NIL".SR$."":.39.+.
2.TX$(S).SR$:SR$."".6.3..111:..N.4..111:
. SCREEN PRINT.D.5..".FROM.  ....";S...6
.."...".10);:.".TO.  ....";F. .7..I.S.F:
."."I"."TX$(I):....8.....9..111:.144:. S
AVE...:.D.1:SA.1:F$.FILE$:.A$."D".FILE$.
"0:".FILE$.",S,W":D.8:SA.10:.62.).;..".I
NSERT YOUR TAPE IN THE TAPE DRIVE.I.<.."
PRESS A KEY TO CONTINUE.".[.=..A$:.A$.""
.61.M.>..1,D,SA,FILE$.|.?..1,F$;CR$;.H.@
..I.1.NM:TX$(I).")".TX$(I):.1,TX$(I);CR$
;:TX$(I).I(TX$(I),C(TX$(I)).1):....A..1,
"ZZZZZ";CR$;: 1:.111:....B..111:. PRINTE
R...C.."..DOUBLE SPACE.  N...";SP$.@.D..
".PUT YOUR PAPER IN THE PRINTER".X.E..".
IF YOU DO NOT WISH A TITLE, JUST PRESS  
RETURN."...F..".TITLE   ...";A$...G..A$.
" ".A$."  "...H..1,4:.1,G(1),A$.E.I. 1:.
1,4,1.O.J.A$.""...K.. FORI=1TO80:A$=A$+"
A":NEXT...L.. OPEN2,4,2:PRINT#2,A$:CLOSE
2.$.M..I.1.NM:FLAG.2.I.N..B(59468).12..1
,G(160)TX$(I):.87._.O..TX$(I).""..1:.88.
R.P..Y.1.C(TX$(I))...Q.A.F(J(TX$(I),Y,1)
).E.R..FLAG..1..((A.182).(A.219)).Y$."."
.G(A.128):FLAG.1::.85...S..FLAG.1.FLAG.2
.A.64.A.91.Y$.".".G(A):FLAG.0:.85...T.Y$
.G(A):.A.182.A.219.Y$.G(A.128).-.U.Z$.Z$
.Y$:..D.V..1,G(160),Z$:Z$."".T.W..SP$."Y
"..1.D.X..: 1:.111:....Y.."....GOTO 4.":
.:. QUIT...Z.. LOAD...[..111:.NM.55..".F
ILE FULL.":....\..144...].D.1:SA.0:.A$."
D".FILE$."0:".FILE$.",S,R":D.8:SA.10:.98
...^..".MOUNT YOUR TAPE. BE SURE IT IS R
EWOUND.=._..".PRESS A KEY TO CONTINUE.O.
`..A$:.A$."".96.G.A..FILE$." ".FILE$."".
Y.B..1,D,SA,FILE$...C..1,A$...D..".LOADI
NG:"A$. .E..1,A$...F..(ST).64.109.E.G..A
$."ZZZZZ".109...H.TX$(NM).I(A$,C(A$).1).
..I..TX$(NM)...J.NM.NM.1...K..NM.56..109
...L..101...M. 1:.111:..*.N.. MENU._.O..
"..E.NTER .S.CREEN S.A.VE .P.RINT .Q.UIT
 .L.OAD...P..".C.HANGE:PART,DELETE,REPLA
CE,INSERT,COPY...Q.....R.. RED 80/06/30.
..S..".."A$"   ";...T.."---------+------
---+---------*---------+---------+------
----"...U..:."...".C(A$).3);...V...?.W..
 RED 80/06/30:REM INPUT ROUTINE.G.X..A$.
P.Y..143.C.Z..A$.",".A$.".".R.{..A$."".1
20...|..A$.CR$.140...}..A$.IN$.120...~..
A$.G(34).A$."'".....A$..DL$.130.J....C(
SR$).1.120.....SR$.H(SR$,C(SR$).1):."-..
";:.133.....K.0:.I.1.8:.A$.J(";:......",
I,1).K.I.(....:.K..0.120.<...SR$.SR$.A$:
.A$;.T....B(197)..64.(A$." ".A$.DL$).C(S
R$).JJ..V.1.5:.:.120......C(SR$).JJ.120.
.....A$......143......A$.G(13).140......
A$.G(20).127.E....135......SR$."".SR$."N
IL"............ CURSOR......"..";:.I.1.1
:.:." .";:..#....".T.APE OR .D.ISK".@...
.A$:.A$.."T".A$.."D".145.^....".FILE NAM
E   ...";FILE$.D.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL