EASY EDIT.C

00000000: 01 08 35 08 00 00 99 22  93 05 11 12 45 41 53 59  |..5...."....EASY|
00000010: 20 45 44 49 54 92 2E 2E  2E 52 4F 42 45 52 54 20  | EDIT....ROBERT |
00000020: 45 2E 20 44 52 41 4B 45  20 28 43 29 38 30 2F 31  |E. DRAKE (C)80/1|
00000030: 30 2F 30 37 22 00 74 08  01 00 97 35 33 32 38 30  |0/07".t....53280|
00000040: 2C 30 3A 97 35 33 32 38  31 2C 30 3A 99 22 11 11  |,0:.53281,0:."..|
00000050: 4D 4F 44 49 46 49 45 44  20 46 4F 52 20 43 36 34  |MODIFIED FOR C64|
00000060: 20 42 59 20 12 44 41 56  49 44 20 42 52 41 44 4C  | BY .DAVID BRADL|
00000070: 45 59 92 22 00 AF 08 02  00 99 C7 28 31 34 32 29  |EY.".......(142)|
00000080: 3A 85 22 11 11 11 11 55  50 50 45 52 20 43 41 53  |:."....UPPER CAS|
00000090: 45 20 4F 4E 4C 59 20 20  59 9D 9D 9D 22 3B 41 24  |E ONLY  Y...";A$|
000000A0: 3A 8B 41 24 B2 22 4E 22  A7 99 C7 28 31 34 29 00  |:.A$."N"...(14).|
000000B0: E0 08 03 00 4E 4D B2 31  3A 86 54 58 24 28 36 30  |....NM.1:.TX$(60|
000000C0: 29 3A 43 52 24 B2 C7 28  31 33 29 3A 44 4C 24 B2  |):CR$..(13):DL$.|
000000D0: C7 28 32 30 29 3A 49 4E  24 B2 C7 28 31 34 38 29  |.(20):IN$..(148)|
000000E0: 00 E9 08 04 00 8D 31 31  31 00 FA 08 05 00 A1 41  |......111......A|
000000F0: 24 3A 8B 41 24 B2 22 22  A7 35 00 0D 09 06 00 8B  |$:.A$."".5......|
00000100: 41 24 B2 22 93 22 A7 99  41 24 3A 89 34 00 3C 09  |A$."."..A$:.4.<.|
00000110: 07 00 4B B2 30 3A 81 49  B2 31 A4 37 3A 8B 41 24  |..K.0:.I.1.7:.A$|
00000120: B2 CA 28 22 45 43 53 41  50 51 4C 22 2C 49 2C 31  |..("ECSAPQL",I,1|
00000130: 29 A7 4B B2 49 3A 49 B2  37 3A 89 38 00 42 09 08  |).K.I:I.7:.8.B..|
00000140: 00 82 00 64 09 09 00 8B  4B B3 B1 30 A7 91 4B 8D  |...d....K..0..K.|
00000150: 31 31 2C 31 36 2C 35 32  2C 35 37 2C 36 36 2C 38  |11,16,52,57,66,8|
00000160: 39 2C 39 30 00 6B 09 0A  00 89 35 00 81 09 0B 00  |9,90.k....5.....|
00000170: 8D 31 31 30 3A 8F 20 49  4E 50 55 54 20 54 45 58  |.110:. INPUT TEX|
00000180: 54 00 A0 09 0C 00 8B 4E  4D B1 35 35 A7 99 22 54  |T......NM.55.."T|
00000190: 45 58 54 20 41 52 45 41  20 46 55 4C 4C 22 3A 8E  |EXT AREA FULL":.|
000001A0: 00 D6 09 0D 00 41 24 B2  C4 28 4E 4D 29 3A 4A 4A  |.....A$..(NM):JJ|
000001B0: B2 36 30 3A 8D 31 31 34  3A 8D 31 31 39 3A 8B 53  |.60:.114:.119:.S|
000001C0: 52 24 B2 22 4E 49 4C 22  A7 53 52 24 B2 22 22 3A  |R$."NIL".SR$."":|
000001D0: 8D 31 31 30 3A 8E 00 EF  09 0E 00 54 58 24 28 4E  |.110:......TX$(N|
000001E0: 4D 29 B2 53 52 24 3A 53  52 24 B2 22 22 3A 99 00  |M).SR$:SR$."":..|
000001F0: FF 09 0F 00 4E 4D B2 4E  4D AA 31 3A 89 31 32 00  |....NM.NM.1:.12.|
00000200: 11 0A 10 00 8F 20 43 48  41 4E 47 45 20 54 45 58  |..... CHANGE TEX|
00000210: 54 00 3B 0A 11 00 99 22  93 45 4E 54 45 52 20 53  |T.;....".ENTER S|
00000220: 43 52 45 45 4E 20 53 41  56 45 20 50 52 49 4E 54  |CREEN SAVE PRINT|
00000230: 20 51 55 49 54 20 4C 4F  41 44 22 00 6C 0A 12 00  | QUIT LOAD".l...|
00000240: 99 22 13 11 12 43 48 41  4E 47 45 3A 92 20 20 20  |."...CHANGE:.   |
00000250: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000260: 20 20 20 20 20 20 20 20  20 20 20 22 00 97 0A 13  |           "....|
00000270: 00 99 22 13 11 12 43 48  41 4E 47 45 3A 92 22 3B  |.."...CHANGE:.";|
00000280: 3A 85 22 57 48 49 43 48  20 4C 49 4E 45 20 20 20  |:."WHICH LINE   |
00000290: BF 9D 9D 9D 22 3B 53 00  D2 0A 14 00 99 22 13 11  |....";S......"..|
000002A0: 12 43 48 41 4E 47 45 92  3A 12 50 92 41 52 54 20  |.CHANGE.:.P.ART |
000002B0: 12 44 92 45 4C 45 54 45  20 12 52 92 45 50 4C 41  |.D.ELETE .R.EPLA|
000002C0: 43 45 20 12 49 92 4E 53  45 52 54 20 12 43 92 4F  |CE .I.NSERT .C.O|
000002D0: 50 59 00 E0 0A 15 00 99  3A 99 54 58 24 28 53 29  |PY......:.TX$(S)|
000002E0: 00 E8 0A 16 00 A1 41 24  00 FA 0A 17 00 8B 41 24  |......A$......A$|
000002F0: B2 C7 28 31 33 29 A7 89  35 31 00 20 0B 18 00 4B  |..(13)..51. ...K|
00000300: B2 30 3A 81 49 B2 31 A4  35 3A 8B 41 24 B2 CA 28  |.0:.I.1.5:.A$..(|
00000310: 22 50 44 52 49 43 22 2C  49 2C 31 29 A7 4B B2 49  |"PDRIC",I,1).K.I|
00000320: 00 26 0B 19 00 82 00 42  0B 1A 00 8B 4B B3 B1 30  |.&.....B....K..0|
00000330: A7 91 4B 89 33 30 2C 33  39 2C 34 32 2C 34 35 2C  |..K.30,39,42,45,|
00000340: 32 38 00 4A 0B 1B 00 89  32 32 00 7E 0B 1C 00 85  |28.J....22.~....|
00000350: 22 43 4F 50 59 20 54 4F  20 4C 49 4E 45 20 23 22  |"COPY TO LINE #"|
00000360: 3B 48 3A 54 58 24 28 48  29 B2 54 58 24 28 53 29  |;H:TX$(H).TX$(S)|
00000370: 3A 8B 48 B1 B2 4E 4D A7  4E 4D B2 48 AA 31 00 86  |:.H..NM.NM.H.1..|
00000380: 0B 1D 00 89 35 31 00 C2  0B 1E 00 41 24 B2 22 43  |....51.....A$."C|
00000390: 48 41 4F 47 45 20 57 48  41 54 22 3A 4A 4A B2 33  |HAOGE WHAT":JJ.3|
000003A0: 30 3A 8D 31 31 34 3A 8D  31 31 39 3A 43 24 B2 53  |0:.114:.119:C$.S|
000003B0: 52 24 3A 53 52 24 B2 22  22 3A 8F 20 43 48 41 4E  |R$:SR$."":. CHAN|
000003C0: 47 45 00 03 0C 1F 00 99  3A 41 24 B2 22 54 4F 20  |GE......:A$."TO |
000003D0: 57 48 41 54 22 3A 4A 4A  B2 33 30 3A 8D 31 31 34  |WHAT":JJ.30:.114|
000003E0: 3A 8D 31 31 39 3A 42 24  B2 53 52 24 3A 53 52 24  |:.119:B$.SR$:SR$|
000003F0: B2 22 22 3A 8B 42 24 B2  22 4E 49 4C 22 A7 42 24  |."":.B$."NIL".B$|
00000400: B2 22 22 00 1A 0C 20 00  59 B2 30 3A 81 54 B2 31  |.""... .Y.0:.T.1|
00000410: A4 C3 28 54 58 24 28 53  29 29 00 44 0C 21 00 8B  |..(TX$(S)).D.!..|
00000420: 43 24 B2 CA 28 54 58 24  28 53 29 2C 54 2C C3 28  |C$..(TX$(S),T,.(|
00000430: 43 24 29 29 A7 59 B2 54  3A 54 B2 C3 28 54 58 24  |C$)).Y.T:T..(TX$|
00000440: 28 53 29 29 00 4A 0C 22  00 82 00 5C 0C 23 00 8B  |(S)).J."...\.#..|
00000450: 59 B2 30 A7 8D 31 31 31  3A 89 35 31 00 96 0C 24  |Y.0..111:.51...$|
00000460: 00 54 58 24 28 53 29 B2  C8 28 54 58 24 28 53 29  |.TX$(S)..(TX$(S)|
00000470: 2C 59 AB 31 29 AA 42 24  AA C9 28 54 58 24 28 53  |,Y.1).B$..(TX$(S|
00000480: 29 2C C3 28 54 58 24 28  53 29 29 AB 59 AB C3 28  |),.(TX$(S)).Y..(|
00000490: 43 24 29 AA 31 29 00 A9  0C 25 00 99 3A 99 22 4E  |C$).1)...%..:."N|
000004A0: 45 57 20 4C 49 4E 45 3A  22 00 C8 0C 26 00 99 22  |EW LINE:"...&.."|
000004B0: 11 22 54 58 24 28 53 29  3A 81 49 B2 31 A4 31 36  |."TX$(S):.I.1.16|
000004C0: 30 30 3A 82 3A 89 35 31  00 E6 0C 27 00 81 49 B2  |00:.:.51...'..I.|
000004D0: 53 A4 4E 4D 3A 8F 20 44  45 4C 45 54 45 20 54 48  |S.NM:. DELETE TH|
000004E0: 45 20 4C 49 4E 45 00 FC  0C 28 00 54 58 24 28 49  |E LINE...(.TX$(I|
000004F0: 29 B2 54 58 24 28 49 AA  31 29 3A 82 00 17 0D 29  |).TX$(I.1):....)|
00000500: 00 54 58 24 28 4E 4D 29  B2 22 22 3A 4E 4D B2 4E  |.TX$(NM)."":NM.N|
00000510: 4D AB 31 3A 89 35 31 00  46 0D 2A 00 41 24 B2 C4  |M.1:.51.F.*.A$..|
00000520: 28 53 29 3A 4A 4A B2 36  30 3A 8D 31 31 34 3A 8D  |(S):JJ.60:.114:.|
00000530: 31 31 39 3A 8F 20 52 45  50 4C 41 43 45 20 54 48  |119:. REPLACE TH|
00000540: 45 20 4C 49 4E 45 00 60  0D 2B 00 8B 53 52 24 B2  |E LINE.`.+..SR$.|
00000550: 22 4E 49 4C 22 A7 53 52  24 B2 22 22 3A 89 35 31  |"NIL".SR$."":.51|
00000560: 00 7A 0D 2C 00 54 58 24  28 53 29 B2 53 52 24 3A  |.z.,.TX$(S).SR$:|
00000570: 53 52 24 B2 22 22 3A 89  35 31 00 B5 0D 2D 00 8B  |SR$."":.51...-..|
00000580: 4E 4D B2 35 36 A7 99 22  43 41 4E 27 54 2E 2E 4F  |NM.56.."CAN'T..O|
00000590: 55 54 20 4F 46 20 4C 49  4E 45 53 22 3A 81 49 B2  |UT OF LINES":.I.|
000005A0: 31 A4 31 36 30 30 3A 82  3A 89 35 31 3A 8F 20 49  |1.1600:.:.51:. I|
000005B0: 4E 53 45 52 54 00 C1 0D  2E 00 4E 4D B2 4E 4D AA  |NSERT.....NM.NM.|
000005C0: 31 00 EC 0D 2F 00 81 49  B2 4E 4D A4 53 A9 AB 31  |1.../..I.NM.S..1|
000005D0: 3A 54 58 24 28 49 29 B2  54 58 24 28 49 AB 31 29  |:TX$(I).TX$(I.1)|
000005E0: 3A 82 3A 54 58 24 28 53  29 B2 22 22 00 08 0E 30  |:.:TX$(S).""...0|
000005F0: 00 41 24 B2 C4 28 53 29  3A 4A 4A B2 36 30 3A 8D  |.A$..(S):JJ.60:.|
00000600: 31 31 34 3A 8D 31 31 39  00 22 0E 31 00 8B 53 52  |114:.119.".1..SR|
00000610: 24 B2 22 4E 49 4C 22 A7  53 52 24 B2 22 22 3A 89  |$."NIL".SR$."":.|
00000620: 33 39 00 38 0E 32 00 54  58 24 28 53 29 B2 53 52  |39.8.2.TX$(S).SR|
00000630: 24 3A 53 52 24 B2 22 22  00 43 0E 33 00 8D 31 31  |$:SR$."".C.3..11|
00000640: 31 3A 8E 00 5B 0E 34 00  8D 31 31 31 3A 8F 20 53  |1:..[.4..111:. S|
00000650: 43 52 45 45 4E 20 50 52  49 4E 54 00 71 0E 35 00  |CREEN PRINT.q.5.|
00000660: 85 22 12 46 52 4F 4D 92  20 20 BF 9D 9D 9D 22 3B  |.".FROM.  ....";|
00000670: 53 00 91 0E 36 00 99 22  13 11 11 22 A6 31 30 29  |S...6.."...".10)|
00000680: 3B 3A 85 22 12 54 4F 92  20 20 BF 9D 9D 9D 22 3B  |;:.".TO.  ....";|
00000690: 46 00 AD 0E 37 00 81 49  B2 53 A4 46 3A 99 22 12  |F...7..I.S.F:.".|
000006A0: 22 49 22 92 22 54 58 24  28 49 29 3A 82 00 B3 0E  |"I"."TX$(I):....|
000006B0: 38 00 8E 00 C8 0E 39 00  8D 31 31 31 3A 8D 31 34  |8.....9..111:.14|
000006C0: 34 3A 8F 20 53 41 56 45  00 0C 0F 3A 00 44 B2 31  |4:. SAVE...:.D.1|
000006D0: 3A 53 41 B2 31 3A 46 24  B2 46 49 4C 45 24 3A 8B  |:SA.1:F$.FILE$:.|
000006E0: 41 24 B2 22 44 22 A7 46  49 4C 45 24 B2 22 30 3A  |A$."D".FILE$."0:|
000006F0: 22 AA 46 49 4C 45 24 AA  22 2C 53 2C 57 22 3A 44  |".FILE$.",S,W":D|
00000700: B2 38 3A 53 41 B2 31 30  3A 89 36 32 00 36 0F 3B  |.8:SA.10:.62.6.;|
00000710: 00 99 22 11 49 4E 53 45  52 54 20 59 4F 55 52 20  |..".INSERT YOUR |
00000720: 54 41 50 45 20 49 4E 20  54 48 45 20 54 41 50 45  |TAPE IN THE TAPE|
00000730: 20 44 52 49 56 45 00 56  0F 3C 00 99 22 50 52 45  | DRIVE.V.<.."PRE|
00000740: 53 53 20 41 20 4B 45 59  20 54 4F 20 43 4F 4E 54  |SS A KEY TO CONT|
00000750: 49 4E 55 45 2E 22 00 68  0F 3D 00 A1 41 24 3A 8B  |INUE.".h.=..A$:.|
00000760: 41 24 B2 22 22 A7 36 31  00 7A 0F 3E 00 9F 31 2C  |A$."".61.z.>..1,|
00000770: 44 2C 53 41 2C 46 49 4C  45 24 00 89 0F 3F 00 98  |D,SA,FILE$...?..|
00000780: 31 2C 46 24 3B 43 52 24  3B 00 D5 0F 40 00 81 49  |1,F$;CR$;...@..I|
00000790: B2 31 A4 4E 4D 3A 54 58  24 28 49 29 B2 22 29 22  |.1.NM:TX$(I).")"|
000007A0: AA 54 58 24 28 49 29 3A  98 31 2C 54 58 24 28 49  |.TX$(I):.1,TX$(I|
000007B0: 29 3B 43 52 24 3B 3A 54  58 24 28 49 29 B2 C9 28  |);CR$;:TX$(I)..(|
000007C0: 54 58 24 28 49 29 2C C3  28 54 58 24 28 49 29 29  |TX$(I),.(TX$(I))|
000007D0: AB 31 29 3A 82 00 F3 0F  41 00 98 31 2C 22 5A 5A  |.1):....A..1,"ZZ|
000007E0: 5A 5A 5A 22 3B 43 52 24  3B 3A A0 31 3A 8D 31 31  |ZZZ";CR$;:.1:.11|
000007F0: 31 3A 8E 00 06 10 42 00  8D 31 31 31 3A 8F 20 50  |1:....B..111:. P|
00000800: 52 49 4E 54 45 52 00 27  10 43 00 85 22 11 12 44  |RINTER.'.C.."..D|
00000810: 4F 55 42 4C 45 20 53 50  41 43 45 92 20 20 4E 9D  |OUBLE SPACE.  N.|
00000820: 9D 9D 22 3B 53 50 24 00  4D 10 44 00 99 22 11 50  |..";SP$.M.D..".P|
00000830: 55 54 20 59 4F 55 52 20  50 41 50 45 52 20 49 4E  |UT YOUR PAPER IN|
00000840: 20 54 48 45 20 50 52 49  4E 54 45 52 22 00 85 10  | THE PRINTER"...|
00000850: 45 00 99 22 11 49 46 20  59 4F 55 20 44 4F 20 4E  |E..".IF YOU DO N|
00000860: 4F 54 20 57 49 53 48 20  41 20 54 49 54 4C 45 2C  |OT WISH A TITLE,|
00000870: 20 4A 55 53 54 20 50 52  45 53 53 20 20 52 45 54  | JUST PRESS  RET|
00000880: 55 52 4E 2E 22 00 9C 10  46 00 85 22 11 54 49 54  |URN."...F..".TIT|
00000890: 4C 45 20 20 A0 9D 9D 9D  22 3B 41 24 00 B0 10 47  |LE  ....";A$...G|
000008A0: 00 8B 41 24 B2 22 A0 22  A7 41 24 B2 22 20 20 22  |..A$.".".A$."  "|
000008B0: 00 C4 10 48 00 9F 31 2C  34 3A 98 31 2C C7 28 31  |...H..1,4:.1,.(1|
000008C0: 29 2C 41 24 00 D2 10 49  00 A0 31 3A 9F 31 2C 34  |),A$...I..1:.1,4|
000008D0: 2C 31 00 DC 10 4A 00 41  24 B2 22 22 00 F4 10 4B  |,1...J.A$.""...K|
000008E0: 00 81 49 B2 31 A4 38 30  3A 41 24 B2 41 24 AA 22  |..I.1.80:A$.A$."|
000008F0: 41 22 3A 82 00 08 11 4C  00 9F 32 2C 34 2C 32 3A  |A":....L..2,4,2:|
00000900: 98 32 2C 41 24 3A A0 32  00 1B 11 4D 00 81 49 B2  |.2,A$:.2...M..I.|
00000910: 31 A4 4E 4D 3A 46 4C 41  47 B2 32 00 40 11 4E 00  |1.NM:FLAG.2.@.N.|
00000920: 8B C2 28 35 39 34 36 38  29 B2 31 32 A7 98 31 2C  |..(59468).12..1,|
00000930: C7 28 31 36 30 29 54 58  24 28 49 29 3A 89 38 37  |.(160)TX$(I):.87|
00000940: 00 56 11 4F 00 8B 54 58  24 28 49 29 B2 22 22 A7  |.V.O..TX$(I)."".|
00000950: 98 31 3A 89 38 38 00 69  11 50 00 81 59 B2 31 A4  |.1:.88.i.P..Y.1.|
00000960: C3 28 54 58 24 28 49 29  29 00 80 11 51 00 41 B2  |.(TX$(I))...Q.A.|
00000970: C6 28 CA 28 54 58 24 28  49 29 2C 59 2C 31 29 29  |.(.(TX$(I),Y,1))|
00000980: 00 BC 11 52 00 8B 46 4C  41 47 B3 B1 31 A7 8B 28  |...R..FLAG..1..(|
00000990: 28 41 B1 31 38 32 29 AF  28 41 B3 32 31 39 29 29  |(A.182).(A.219))|
000009A0: A7 59 24 B2 22 91 22 AA  C7 28 41 AB 31 32 38 29  |.Y$."."..(A.128)|
000009B0: 3A 46 4C 41 47 B2 31 3A  3A 89 38 35 00 F0 11 53  |:FLAG.1::.85...S|
000009C0: 00 8B 46 4C 41 47 B2 31  B0 46 4C 41 47 B2 32 AF  |..FLAG.1.FLAG.2.|
000009D0: 41 B1 36 34 AF 41 B3 39  31 A7 59 24 B2 22 11 22  |A.64.A.91.Y$."."|
000009E0: AA C7 28 41 29 3A 46 4C  41 47 B2 30 3A 89 38 35  |..(A):FLAG.0:.85|
000009F0: 00 15 12 54 00 59 24 B2  C7 28 41 29 3A 8B 41 B1  |...T.Y$..(A):.A.|
00000A00: 31 38 32 AF 41 B3 32 31  39 A7 59 24 B2 C7 28 41  |182.A.219.Y$..(A|
00000A10: AB 31 32 38 29 00 24 12  55 00 5A 24 B2 5A 24 AA  |.128).$.U.Z$.Z$.|
00000A20: 59 24 3A 82 00 3B 12 56  00 98 31 2C C7 28 31 36  |Y$:..;.V..1,.(16|
00000A30: 30 29 2C 5A 24 3A 5A 24  B2 22 22 00 4B 12 57 00  |0),Z$:Z$."".K.W.|
00000A40: 8B 53 50 24 B2 22 59 22  A7 98 31 00 5B 12 58 00  |.SP$."Y"..1.[.X.|
00000A50: 82 3A A0 31 3A 8D 31 31  31 3A 8E 00 77 12 59 00  |.:.1:.111:..w.Y.|
00000A60: 99 22 93 11 11 11 47 4F  54 4F 20 34 13 22 3A 80  |."....GOTO 4.":.|
00000A70: 3A 8F 20 51 55 49 54 00  82 12 5A 00 8F 20 4C 4F  |:. QUIT...Z.. LO|
00000A80: 41 44 00 A3 12 5B 00 8D  31 31 31 3A 8B 4E 4D B2  |AD...[..111:.NM.|
00000A90: 35 35 A7 99 22 12 46 49  4C 45 20 46 55 4C 4C 92  |55..".FILE FULL.|
00000AA0: 22 3A 8E 00 AC 12 5C 00  8D 31 34 34 00 E7 12 5D  |":....\..144...]|
00000AB0: 00 44 B2 31 3A 53 41 B2  30 3A 8B 41 24 B2 22 44  |.D.1:SA.0:.A$."D|
00000AC0: 22 A7 46 49 4C 45 24 B2  22 30 3A 22 AA 46 49 4C  |".FILE$."0:".FIL|
00000AD0: 45 24 AA 22 2C 53 2C 52  22 3A 44 B2 38 3A 53 41  |E$.",S,R":D.8:SA|
00000AE0: B2 31 30 3A 89 39 38 00  15 13 5E 00 99 22 11 4D  |.10:.98...^..".M|
00000AF0: 4F 55 4E 54 20 59 4F 55  52 20 54 41 50 45 2E 20  |OUNT YOUR TAPE. |
00000B00: 42 45 20 53 55 52 45 20  49 54 20 49 53 20 52 45  |BE SURE IT IS RE|
00000B10: 57 4F 55 4E 44 00 34 13  5F 00 99 22 11 50 52 45  |WOUND.4._..".PRE|
00000B20: 53 53 20 41 20 4B 45 59  20 54 4F 20 43 4F 4E 54  |SS A KEY TO CONT|
00000B30: 49 4E 55 45 00 46 13 60  00 A1 41 24 3A 8B 41 24  |INUE.F.`..A$:.A$|
00000B40: B2 22 22 A7 39 36 00 5E  13 61 00 8B 46 49 4C 45  |."".96.^.a..FILE|
00000B50: 24 B2 22 A0 22 A7 46 49  4C 45 24 B2 22 22 00 70  |$.".".FILE$."".p|
00000B60: 13 62 00 9F 31 2C 44 2C  53 41 2C 46 49 4C 45 24  |.b..1,D,SA,FILE$|
00000B70: 00 7A 13 63 00 84 31 2C  41 24 00 8D 13 64 00 99  |.z.c..1,A$...d..|
00000B80: 22 12 4C 4F 41 44 49 4E  47 3A 22 41 24 00 97 13  |".LOADING:"A$...|
00000B90: 65 00 84 31 2C 41 24 00  A8 13 66 00 8B 28 53 54  |e..1,A$...f..(ST|
00000BA0: 29 AF 36 34 A7 31 30 39  00 BC 13 67 00 8B 41 24  |).64.109...g..A$|
00000BB0: B2 22 5A 5A 5A 5A 5A 22  A7 31 30 39 00 D6 13 68  |."ZZZZZ".109...h|
00000BC0: 00 54 58 24 28 4E 4D 29  B2 C9 28 41 24 2C C3 28  |.TX$(NM)..(A$,.(|
00000BD0: 41 24 29 AB 31 29 00 E3  13 69 00 99 54 58 24 28  |A$).1)...i..TX$(|
00000BE0: 4E 4D 29 00 EF 13 6A 00  4E 4D B2 4E 4D AA 31 00  |NM)...j.NM.NM.1.|
00000BF0: FF 13 6B 00 8B 4E 4D B2  35 36 A7 89 31 30 39 00  |..k..NM.56..109.|
00000C00: 08 14 6C 00 89 31 30 31  00 16 14 6D 00 A0 31 3A  |..l..101...m..1:|
00000C10: 8D 31 31 31 3A 8E 00 21  14 6E 00 8F 20 4D 45 4E  |.111:..!.n.. MEN|
00000C20: 55 00 56 14 6F 00 99 22  93 12 45 92 4E 54 45 52  |U.V.o.."..E.NTER|
00000C30: 20 12 53 92 43 52 45 45  4E 20 53 12 41 92 56 45  | .S.CREEN S.A.VE|
00000C40: 20 12 50 92 52 49 4E 54  20 12 51 92 55 49 54 20  | .P.RINT .Q.UIT |
00000C50: 12 4C 92 4F 41 44 00 85  14 70 00 99 22 12 43 92  |.L.OAD...p..".C.|
00000C60: 48 41 4E 47 45 3A 50 41  52 54 2C 44 45 4C 45 54  |HANGE:PART,DELET|
00000C70: 45 2C 52 45 50 4C 41 43  45 2C 49 4E 53 45 52 54  |E,REPLACE,INSERT|
00000C80: 2C 43 4F 50 59 00 8B 14  71 00 8E 00 9E 14 72 00  |,COPY...q.....r.|
00000C90: 8F 20 52 45 44 20 38 30  2F 30 36 2F 33 30 00 B0  |. RED 80/06/30..|
00000CA0: 14 73 00 99 22 11 11 22  41 24 22 20 20 20 22 3B  |.s..".."A$"   ";|
00000CB0: 00 F4 14 74 00 99 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |...t.."---------|
00000CC0: 2B 2D 2D 2D 2D 2D 2D 2D  2D 2D 2B 2D 2D 2D 2D 2D  |+---------+-----|
00000CD0: 2D 2D 2D 2D 2A 2D 2D 2D  2D 2D 2D 2D 2D 2D 2B 2D  |----*---------+-|
00000CE0: 2D 2D 2D 2D 2D 2D 2D 2D  2B 2D 2D 2D 2D 2D 2D 2D  |--------+-------|
00000CF0: 2D 2D 2D 22 00 0B 15 75  00 99 3A 99 22 91 91 91  |---"...u..:."...|
00000D00: 22 A3 C3 28 41 24 29 AA  33 29 3B 00 11 15 76 00  |"..(A$).3);...v.|
00000D10: 8E 00 36 15 77 00 8F 20  52 45 44 20 38 30 2F 30  |..6.w.. RED 80/0|
00000D20: 36 2F 33 30 3A 52 45 4D  20 49 4E 50 55 54 20 52  |6/30:REM INPUT R|
00000D30: 4F 55 54 49 4E 45 00 3E  15 78 00 A1 41 24 00 47  |OUTINE.>.x..A$.G|
00000D40: 15 79 00 8D 31 34 33 00  5A 15 7A 00 8B 41 24 B2  |.y..143.Z.z..A$.|
00000D50: 22 2C 22 A7 41 24 B2 22  AE 22 00 69 15 7B 00 8B  |",".A$.".".i.{..|
00000D60: 41 24 B2 22 22 A7 31 32  30 00 79 15 7C 00 8B 41  |A$."".120.y.|..A|
00000D70: 24 B2 43 52 24 A7 31 34  30 00 89 15 7D 00 8B 41  |$.CR$.140...}..A|
00000D80: 24 B2 49 4E 24 A7 31 32  30 00 9E 15 7E 00 8B 41  |$.IN$.120...~..A|
00000D90: 24 B2 C7 28 33 34 29 A7  41 24 B2 22 27 22 00 AF  |$..(34).A$."'"..|
00000DA0: 15 7F 00 8B 41 24 B3 B1  44 4C 24 A7 31 33 30 00  |....A$..DL$.130.|
00000DB0: C1 15 80 00 8B C3 28 53  52 24 29 B3 31 A7 31 32  |......(SR$).1.12|
00000DC0: 30 00 E6 15 81 00 53 52  24 B2 C8 28 53 52 24 2C  |0.....SR$..(SR$,|
00000DD0: C3 28 53 52 24 29 AB 31  29 3A 99 22 2D 9D 9D 22  |.(SR$).1):."-.."|
00000DE0: 3B 3A 89 31 33 33 00 0F  16 82 00 4B B2 30 3A 81  |;:.133.....K.0:.|
00000DF0: 49 B2 31 A4 38 3A 8B 41  24 B2 CA 28 22 3B 3A 13  |I.1.8:.A$..(";:.|
00000E00: 93 91 11 9D 1D 22 2C 49  2C 31 29 A7 4B B2 49 00  |.....",I,1).K.I.|
00000E10: 1F 16 83 00 82 3A 8B 4B  B3 B1 30 A7 31 32 30 00  |.....:.K..0.120.|
00000E20: 33 16 84 00 53 52 24 B2  53 52 24 AA 41 24 3A 99  |3...SR$.SR$.A$:.|
00000E30: 41 24 3B 00 6B 16 85 00  8B C2 28 31 39 37 29 B3  |A$;.k.....(197).|
00000E40: B1 36 34 AF 28 41 24 B2  22 A0 22 B0 41 24 B2 44  |.64.(A$.".".A$.D|
00000E50: 4C 24 29 AF C3 28 53 52  24 29 B3 4A 4A A7 81 56  |L$)..(SR$).JJ..V|
00000E60: B2 31 A4 35 3A 82 3A 89  31 32 30 00 7E 16 86 00  |.1.5:.:.120.~...|
00000E70: 8B C3 28 53 52 24 29 B3  4A 4A A7 31 32 30 00 86  |..(SR$).JJ.120..|
00000E80: 16 87 00 A1 41 24 00 8F  16 88 00 8D 31 34 33 00  |....A$......143.|
00000E90: A1 16 89 00 8B 41 24 B2  C7 28 31 33 29 A7 31 34  |.....A$..(13).14|
00000EA0: 30 00 B3 16 8A 00 8B 41  24 B2 C7 28 32 30 29 A7  |0......A$..(20).|
00000EB0: 31 32 37 00 BC 16 8B 00  89 31 33 35 00 D2 16 8C  |127......135....|
00000EC0: 00 8B 53 52 24 B2 22 22  A7 53 52 24 B2 22 4E 49  |..SR$."".SR$."NI|
00000ED0: 4C 22 00 D8 16 8D 00 8E  00 E5 16 8E 00 8F 20 43  |L"............ C|
00000EE0: 55 52 53 4F 52 00 02 17  8F 00 99 22 A6 9D 22 3B  |URSOR......"..";|
00000EF0: 3A 81 49 B2 31 A4 31 3A  82 3A 99 22 20 9D 22 3B  |:.I.1.1:.:." .";|
00000F00: 3A 8E 00 1A 17 90 00 99  22 12 54 92 41 50 45 20  |:.......".T.APE |
00000F10: 4F 52 20 12 44 92 49 53  4B 22 00 37 17 91 00 A1  |OR .D.ISK".7....|
00000F20: 41 24 3A 8B 41 24 B3 B1  22 54 22 AF 41 24 B3 B1  |A$:.A$.."T".A$..|
00000F30: 22 44 22 A7 31 34 35 00  55 17 92 00 85 22 11 46  |"D".145.U....".F|
00000F40: 49 4C 45 20 4E 41 4D 45  20 20 A0 9D 9D 9D 22 3B  |ILE NAME  ....";|
00000F50: 46 49 4C 45 24 00 5B 17  93 00 8E 00 00 00        |FILE$.[.......  |

..5...."....EASY EDIT....ROBERT E. DRAKE
 (C)80/10/07".T....53280,0:.53281,0:."..
MODIFIED FOR C64 BY .DAVID BRADLEY."....
..G(142):."....UPPER CASE ONLY  Y...";A$
:.A$."N"..G(14).....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("ECSAPQL",I,1).K.I:I.7:.8.B..
...D....K..0..K.11,16,52,57,66,89,90.K..
..5......110:. INPUT TEXT. ....NM.55.."T
EXT AREA FULL":..V...A$.D(NM):JJ.60:.114
:.119:.SR$."NIL".SR$."":.110:......TX$(N
M).SR$:SR$."":......NM.NM.1:.12...... CH
ANGE TEXT.;....".ENTER SCREEN SAVE PRINT
 QUIT LOAD".L...."...CHANGE:.           
                   "......"...CHANGE:.";
:."WHICH LINE   ....";S.R...."...CHANGE.
:.P.ART .D.ELETE .R.EPLACE .I.NSERT .C.O
PY......:.TX$(S)......A$......A$.G(13)..
51. ...K.0:.I.1.5:.A$.J("PDRIC",I,1).K.I
.&.....B....K..0..K.30,39,42,45,28.J....
22.~...."COPY TO LINE #";H:TX$(H).TX$(S)
:.H..NM.NM.H.1......51.B...A$."CHAOGE WH
AT":JJ.30:.114:.119:C$.SR$:SR$."":. CHAN
GE......:A$."TO WHAT":JJ.30:.114:.119:B$
.SR$:SR$."":.B$."NIL".B$.""... .Y.0:.T.1
.C(TX$(S)).D.!..C$.J(TX$(S),T,C(C$)).Y.T
:T.C(TX$(S)).J."...\.#..Y.0..111:.51...$
.TX$(S).H(TX$(S),Y.1).B$.I(TX$(S),C(TX$(
S)).Y.C(C$).1)...%..:."NEW LINE:".H.&.."
."TX$(S):.I.1.1600:.:.51...'..I.S.NM:. D
ELETE THE LINE...(.TX$(I).TX$(I.1):....)
.TX$(NM)."":NM.NM.1:.51.F.*.A$.D(S):JJ.6
0:.114:.119:. REPLACE THE LINE.`.+..SR$.
"NIL".SR$."":.51.Z.,.TX$(S).SR$:SR$."":.
51...-..NM.56.."CAN'T..OUT OF LINES":.I.
1.1600:.:.51:. INSERT.A...NM.NM.1.../..I
.NM.S..1:TX$(I).TX$(I.1):.:TX$(S).""...0
.A$.D(S):JJ.60:.114:.119.".1..SR$."NIL".
SR$."":.39.8.2.TX$(S).SR$:SR$."".C.3..11
1:..[.4..111:. SCREEN PRINT.Q.5..".FROM.
  ....";S...6.."...".10);:.".TO.  ....";
F...7..I.S.F:."."I"."TX$(I):....8...H.9.
.111:.144:. SAVE...:.D.1:SA.1:F$.FILE$:.
A$."D".FILE$."0:".FILE$.",S,W":D.8:SA.10
:.62.6.;..".INSERT YOUR TAPE IN THE TAPE
 DRIVE.V.<.."PRESS A KEY TO CONTINUE.".H
.=..A$:.A$."".61.Z.>..1,D,SA,FILE$...?..
1,F$;CR$;.U.@..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:. PRINTER.'.C.."..DOUBLE SPACE.  N.
..";SP$.M.D..".PUT YOUR PAPER IN THE PRI
NTER"...E..".IF YOU DO NOT WISH A TITLE,
 JUST PRESS  RETURN."...F..".TITLE   ...
";A$...G..A$." ".A$."  ".D.H..1,4:.1,G(1
),A$.R.I. 1:.1,4,1...J.A$.""...K..I.1.80
:A$.A$."A":....L..2,4,2:.2,A$: 2...M..I.
1.NM:FLAG.2.@.N..B(59468).12..1,G(160)TX
$(I):.87.V.O..TX$(I).""..1:.88.I.P..Y.1.
C(TX$(I))...Q.A.F(J(TX$(I),Y,1))...R..FL
AG..1..((A.182).(A.219)).Y$.".".G(A.128)
:FLAG.1::.85...S..FLAG.1.FLAG.2.A.64.A.9
1.Y$.".".G(A):FLAG.0:.85...T.Y$.G(A):.A.
182.A.219.Y$.G(A.128).$.U.Z$.Z$.Y$:..;.V
..1,G(160),Z$:Z$."".K.W..SP$."Y"..1.[.X.
.: 1:.111:..W.Y.."....GOTO 4.":.:. QUIT.
..Z.. LOAD...[..111:.NM.55..".FILE FULL.
":....\..144...].D.1:SA.0:.A$."D".FILE$.
"0:".FILE$.",S,R":D.8:SA.10:.98...^..".M
OUNT YOUR TAPE. BE SURE IT IS REWOUND.4.
_..".PRESS A KEY TO CONTINUE.F.`..A$:.A$
."".96.^.A..FILE$." ".FILE$."".P.B..1,D,
SA,FILE$.Z.C..1,A$...D..".LOADING:"A$...
E..1,A$...F..(ST).64.109...G..A$."ZZZZZ"
.109.V.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.V.O.."..E.NTER
 .S.CREEN S.A.VE .P.RINT .Q.UIT .L.OAD..
.P..".C.HANGE:PART,DELETE,REPLACE,INSERT
,COPY...Q.....R.. RED 80/06/30...S..".."
A$"   ";...T.."---------+---------+-----
----*---------+---------+----------"...U
..:."...".C(A$).3);...V...6.W.. RED 80/0
6/30:REM INPUT ROUTINE.>.X..A$.G.Y..143.
Z.Z..A$.",".A$.".".I.{..A$."".120.Y.|..A
$.CR$.140...}..A$.IN$.120...~..A$.G(34).
A$."'".....A$..DL$.130.A....C(SR$).1.12
0.....SR$.H(SR$,C(SR$).1):."-..";:.133..
...K.0:.I.1.8:.A$.J(";:......",I,1).K.I.
.....:.K..0.120.3...SR$.SR$.A$:.A$;.K...
.B(197)..64.(A$." ".A$.DL$).C(SR$).JJ..V
.1.5:.:.120.~....C(SR$).JJ.120......A$..
....143......A$.G(13).140......A$.G(20).
127......135.R....SR$."".SR$."NIL".X....
...... CURSOR......"..";:.I.1.1:.:." .";
:.......".T.APE OR .D.ISK".7....A$:.A$..
"T".A$.."D".145.U....".FILE NAME   ...";
FILE$.[.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL