> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 39 08 01 00 99 22 93 11 12 45 41 53 59 20 |..9...."...EASY |
00000010: 45 44 49 54 92 2E 2E 2E 43 4F 50 59 52 49 47 48 |EDIT....COPYRIGH|
00000020: 54 20 31 39 38 33 20 28 43 29 20 43 4F 43 4B 4E |T 1983 (C) COCKN|
00000030: 45 59 20 52 45 42 45 4C 22 00 79 08 02 00 97 35 |EY REBEL".y....5|
00000040: 33 32 37 32 2C 32 31 3A 85 22 11 11 11 11 55 50 |3272,21:."....UP|
00000050: 50 45 52 20 43 41 53 45 20 4F 4E 4C 59 20 20 59 |PER CASE ONLY Y|
00000060: 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B2 22 4E 22 A7 |...";A$:.A$."N".|
00000070: 97 35 33 32 37 32 2C 32 33 00 B3 08 03 00 4E 4D |.53272,23.....NM|
00000080: B2 31 3A 86 54 58 24 28 36 30 29 3A 43 52 24 B2 |.1:.TX$(60):CR$.|
00000090: C7 28 31 33 29 3A 44 4C 24 B2 C7 28 32 30 29 3A |.(13):DL$..(20):|
000000A0: 49 4E 24 B2 C7 28 31 34 38 29 3A 97 31 35 31 2C |IN$..(148):.151,|
000000B0: 32 35 35 00 BC 08 04 00 8D 31 31 31 00 CD 08 05 |255......111....|
000000C0: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 00 E0 08 |..A$:.A$."".5...|
000000D0: 06 00 8B 41 24 B2 22 93 22 A7 99 41 24 3A 89 34 |...A$."."..A$:.4|
000000E0: 00 0F 09 07 00 4B B2 30 3A 81 49 B2 31 A4 37 3A |.....K.0:.I.1.7:|
000000F0: 8B 41 24 B2 CA 28 22 45 43 53 41 50 51 4C 22 2C |.A$..("ECSAPQL",|
00000100: 49 2C 31 29 A7 4B B2 49 3A 49 B2 37 3A 89 38 00 |I,1).K.I:I.7:.8.|
00000110: 15 09 08 00 82 00 37 09 09 00 8B 4B B3 B1 30 A7 |......7....K..0.|
00000120: 91 4B 8D 31 31 2C 31 36 2C 35 32 2C 35 37 2C 36 |.K.11,16,52,57,6|
00000130: 36 2C 38 39 2C 39 30 00 3E 09 0A 00 89 35 00 54 |6,89,90.>....5.T|
00000140: 09 0B 00 8D 31 31 30 3A 8F 20 49 4E 50 55 54 20 |....110:. INPUT |
00000150: 54 45 58 54 00 73 09 0C 00 8B 4E 4D B1 35 35 A7 |TEXT.s....NM.55.|
00000160: 99 22 54 45 58 54 20 41 52 45 41 20 46 55 4C 4C |."TEXT AREA FULL|
00000170: 22 3A 8E 00 A9 09 0D 00 41 24 B2 C4 28 4E 4D 29 |":......A$..(NM)|
00000180: 3A 4A 4A B2 36 30 3A 8D 31 31 34 3A 8D 31 31 39 |:JJ.60:.114:.119|
00000190: 3A 8B 53 52 24 B2 22 4E 49 4C 22 A7 53 52 24 B2 |:.SR$."NIL".SR$.|
000001A0: 22 22 3A 8D 31 31 30 3A 8E 00 C2 09 0E 00 54 58 |"":.110:......TX|
000001B0: 24 28 4E 4D 29 B2 53 52 24 3A 53 52 24 B2 22 22 |$(NM).SR$:SR$.""|
000001C0: 3A 99 00 D2 09 0F 00 4E 4D B2 4E 4D AA 31 3A 89 |:......NM.NM.1:.|
000001D0: 31 32 00 E4 09 10 00 8F 20 43 48 41 4E 47 45 20 |12...... CHANGE |
000001E0: 54 45 58 54 00 0E 0A 11 00 99 22 93 45 4E 54 45 |TEXT......".ENTE|
000001F0: 52 20 53 43 52 45 45 4E 20 53 41 56 45 20 50 52 |R SCREEN SAVE PR|
00000200: 49 4E 54 20 51 55 49 54 20 4C 4F 41 44 22 00 3F |INT QUIT LOAD".?|
00000210: 0A 12 00 99 22 13 11 12 43 48 41 4E 47 45 3A 92 |...."...CHANGE:.|
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000240: 6A 0A 13 00 99 22 13 11 12 43 48 41 4E 47 45 3A |j...."...CHANGE:|
00000250: 92 22 3B 3A 85 22 57 48 49 43 48 20 4C 49 4E 45 |.";:."WHICH LINE|
00000260: 20 20 20 BF 9D 9D 9D 22 3B 53 00 A5 0A 14 00 99 | ....";S......|
00000270: 22 13 11 12 43 48 41 4E 47 45 92 3A 12 50 92 41 |"...CHANGE.:.P.A|
00000280: 52 54 20 12 44 92 45 4C 45 54 45 20 12 52 92 45 |RT .D.ELETE .R.E|
00000290: 50 4C 41 43 45 20 12 49 92 4E 53 45 52 54 20 12 |PLACE .I.NSERT .|
000002A0: 43 92 4F 50 59 00 B3 0A 15 00 99 3A 99 54 58 24 |C.OPY......:.TX$|
000002B0: 28 53 29 00 BB 0A 16 00 A1 41 24 00 CD 0A 17 00 |(S)......A$.....|
000002C0: 8B 41 24 B2 C7 28 31 33 29 A7 89 35 31 00 F3 0A |.A$..(13)..51...|
000002D0: 18 00 4B B2 30 3A 81 49 B2 31 A4 35 3A 8B 41 24 |..K.0:.I.1.5:.A$|
000002E0: B2 CA 28 22 50 44 52 49 43 22 2C 49 2C 31 29 A7 |..("PDRIC",I,1).|
000002F0: 4B B2 49 00 F9 0A 19 00 82 00 15 0B 1A 00 8B 4B |K.I............K|
00000300: B3 B1 30 A7 91 4B 89 33 30 2C 33 39 2C 34 32 2C |..0..K.30,39,42,|
00000310: 34 35 2C 32 38 00 1D 0B 1B 00 89 32 32 00 51 0B |45,28......22.Q.|
00000320: 1C 00 85 22 43 4F 50 59 20 54 4F 20 4C 49 4E 45 |..."COPY TO LINE|
00000330: 20 23 22 3B 48 3A 54 58 24 28 48 29 B2 54 58 24 | #";H:TX$(H).TX$|
00000340: 28 53 29 3A 8B 48 B1 B2 4E 4D A7 4E 4D B2 48 AA |(S):.H..NM.NM.H.|
00000350: 31 00 59 0B 1D 00 89 35 31 00 95 0B 1E 00 41 24 |1.Y....51.....A$|
00000360: B2 22 43 48 41 4E 47 45 20 57 48 41 54 22 3A 4A |."CHANGE WHAT":J|
00000370: 4A B2 33 30 3A 8D 31 31 34 3A 8D 31 31 39 3A 43 |J.30:.114:.119:C|
00000380: 24 B2 53 52 24 3A 53 52 24 B2 22 22 3A 8F 20 43 |$.SR$:SR$."":. C|
00000390: 48 41 4E 47 45 00 D6 0B 1F 00 99 3A 41 24 B2 22 |HANGE......:A$."|
000003A0: 54 4F 20 57 48 41 54 22 3A 4A 4A B2 33 30 3A 8D |TO WHAT":JJ.30:.|
000003B0: 31 31 34 3A 8D 31 31 39 3A 42 24 B2 53 52 24 3A |114:.119:B$.SR$:|
000003C0: 53 52 24 B2 22 22 3A 8B 42 24 B2 22 4E 49 4C 22 |SR$."":.B$."NIL"|
000003D0: A7 42 24 B2 22 22 00 ED 0B 20 00 59 B2 30 3A 81 |.B$.""... .Y.0:.|
000003E0: 54 B2 31 A4 C3 28 54 58 24 28 53 29 29 00 17 0C |T.1..(TX$(S))...|
000003F0: 21 00 8B 43 24 B2 CA 28 54 58 24 28 53 29 2C 54 |!..C$..(TX$(S),T|
00000400: 2C C3 28 43 24 29 29 A7 59 B2 54 3A 54 B2 C3 28 |,.(C$)).Y.T:T..(|
00000410: 54 58 24 28 53 29 29 00 1D 0C 22 00 82 00 2F 0C |TX$(S))...".../.|
00000420: 23 00 8B 59 B2 30 A7 8D 31 31 31 3A 89 35 31 00 |#..Y.0..111:.51.|
00000430: 69 0C 24 00 54 58 24 28 53 29 B2 C8 28 54 58 24 |i.$.TX$(S)..(TX$|
00000440: 28 53 29 2C 59 AB 31 29 AA 42 24 AA C9 28 54 58 |(S),Y.1).B$..(TX|
00000450: 24 28 53 29 2C C3 28 54 58 24 28 53 29 29 AB 59 |$(S),.(TX$(S)).Y|
00000460: AB C3 28 43 24 29 AA 31 29 00 7C 0C 25 00 99 3A |..(C$).1).|.%..:|
00000470: 99 22 4E 45 57 20 4C 49 4E 45 3A 22 00 9B 0C 26 |."NEW LINE:"...&|
00000480: 00 99 22 11 22 54 58 24 28 53 29 3A 81 49 B2 31 |.."."TX$(S):.I.1|
00000490: A4 31 36 30 30 3A 82 3A 89 35 31 00 B9 0C 27 00 |.1600:.:.51...'.|
000004A0: 81 49 B2 53 A4 4E 4D 3A 8F 20 44 45 4C 45 54 45 |.I.S.NM:. DELETE|
000004B0: 20 54 48 45 20 4C 49 4E 45 00 CF 0C 28 00 54 58 | THE LINE...(.TX|
000004C0: 24 28 49 29 B2 54 58 24 28 49 AA 31 29 3A 82 00 |$(I).TX$(I.1):..|
000004D0: EA 0C 29 00 54 58 24 28 4E 4D 29 B2 22 22 3A 4E |..).TX$(NM)."":N|
000004E0: 4D B2 4E 4D AB 31 3A 89 35 31 00 19 0D 2A 00 41 |M.NM.1:.51...*.A|
000004F0: 24 B2 C4 28 53 29 3A 4A 4A B2 36 30 3A 8D 31 31 |$..(S):JJ.60:.11|
00000500: 34 3A 8D 31 31 39 3A 8F 20 52 45 50 4C 41 43 45 |4:.119:. REPLACE|
00000510: 20 54 48 45 20 4C 49 4E 45 00 33 0D 2B 00 8B 53 | THE LINE.3.+..S|
00000520: 52 24 B2 22 4E 49 4C 22 A7 53 52 24 B2 22 22 3A |R$."NIL".SR$."":|
00000530: 89 35 31 00 4D 0D 2C 00 54 58 24 28 53 29 B2 53 |.51.M.,.TX$(S).S|
00000540: 52 24 3A 53 52 24 B2 22 22 3A 89 35 31 00 88 0D |R$:SR$."":.51...|
00000550: 2D 00 8B 4E 4D B2 35 36 A7 99 22 43 41 4E 27 54 |-..NM.56.."CAN'T|
00000560: 2E 2E 4F 55 54 20 4F 46 20 4C 49 4E 45 53 22 3A |..OUT OF LINES":|
00000570: 81 49 B2 31 A4 31 36 30 30 3A 82 3A 89 35 31 3A |.I.1.1600:.:.51:|
00000580: 8F 20 49 4E 53 45 52 54 00 94 0D 2E 00 4E 4D B2 |. INSERT.....NM.|
00000590: 4E 4D AA 31 00 BF 0D 2F 00 81 49 B2 4E 4D A4 53 |NM.1.../..I.NM.S|
000005A0: A9 AB 31 3A 54 58 24 28 49 29 B2 54 58 24 28 49 |..1:TX$(I).TX$(I|
000005B0: AB 31 29 3A 82 3A 54 58 24 28 53 29 B2 22 22 00 |.1):.:TX$(S)."".|
000005C0: DB 0D 30 00 41 24 B2 C4 28 53 29 3A 4A 4A B2 36 |..0.A$..(S):JJ.6|
000005D0: 30 3A 8D 31 31 34 3A 8D 31 31 39 00 F5 0D 31 00 |0:.114:.119...1.|
000005E0: 8B 53 52 24 B2 22 4E 49 4C 22 A7 53 52 24 B2 22 |.SR$."NIL".SR$."|
000005F0: 22 3A 89 33 39 00 0B 0E 32 00 54 58 24 28 53 29 |":.39...2.TX$(S)|
00000600: B2 53 52 24 3A 53 52 24 B2 22 22 00 16 0E 33 00 |.SR$:SR$.""...3.|
00000610: 8D 31 31 31 3A 8E 00 2E 0E 34 00 8D 31 31 31 3A |.111:....4..111:|
00000620: 8F 20 53 43 52 45 45 4E 20 50 52 49 4E 54 00 44 |. SCREEN PRINT.D|
00000630: 0E 35 00 85 22 12 46 52 4F 4D 92 20 20 BF 9D 9D |.5..".FROM. ...|
00000640: 9D 22 3B 53 00 64 0E 36 00 99 22 13 11 11 22 A6 |.";S.d.6.."...".|
00000650: 31 30 29 3B 3A 85 22 12 54 4F 92 20 20 BF 9D 9D |10);:.".TO. ...|
00000660: 9D 22 3B 46 00 80 0E 37 00 81 49 B2 53 A4 46 3A |.";F...7..I.S.F:|
00000670: 99 22 12 22 49 22 92 22 54 58 24 28 49 29 3A 82 |."."I"."TX$(I):.|
00000680: 00 86 0E 38 00 8E 00 9B 0E 39 00 8D 31 31 31 3A |...8.....9..111:|
00000690: 8D 31 34 34 3A 8F 20 53 41 56 45 00 DA 0E 3A 00 |.144:. SAVE...:.|
000006A0: 44 B2 31 3A 53 41 B2 31 3A 46 24 B2 46 49 4C 45 |D.1:SA.1:F$.FILE|
000006B0: 24 3A 8B 41 24 B2 22 44 22 A7 46 49 4C 45 24 B2 |$:.A$."D".FILE$.|
000006C0: 46 49 4C 45 24 AA 22 2C 53 2C 57 22 3A 44 B2 38 |FILE$.",S,W":D.8|
000006D0: 3A 53 41 B2 31 30 3A 89 36 32 00 04 0F 3B 00 99 |:SA.10:.62...;..|
000006E0: 22 11 49 4E 53 45 52 54 20 59 4F 55 52 20 54 41 |".INSERT YOUR TA|
000006F0: 50 45 20 49 4E 20 54 48 45 20 54 41 50 45 20 44 |PE IN THE TAPE D|
00000700: 52 49 56 45 00 24 0F 3C 00 99 22 50 52 45 53 53 |RIVE.$.<.."PRESS|
00000710: 20 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E | A KEY TO CONTIN|
00000720: 55 45 2E 22 00 36 0F 3D 00 A1 41 24 3A 8B 41 24 |UE.".6.=..A$:.A$|
00000730: B2 22 22 A7 36 31 00 48 0F 3E 00 9F 31 2C 44 2C |."".61.H.>..1,D,|
00000740: 53 41 2C 46 49 4C 45 24 00 57 0F 3F 00 98 31 2C |SA,FILE$.W.?..1,|
00000750: 46 24 3B 43 52 24 3B 00 A3 0F 40 00 81 49 B2 31 |F$;CR$;...@..I.1|
00000760: A4 4E 4D 3A 54 58 24 28 49 29 B2 22 29 22 AA 54 |.NM:TX$(I).")".T|
00000770: 58 24 28 49 29 3A 98 31 2C 54 58 24 28 49 29 3B |X$(I):.1,TX$(I);|
00000780: 43 52 24 3B 3A 54 58 24 28 49 29 B2 C9 28 54 58 |CR$;:TX$(I)..(TX|
00000790: 24 28 49 29 2C C3 28 54 58 24 28 49 29 29 AB 31 |$(I),.(TX$(I)).1|
000007A0: 29 3A 82 00 C1 0F 41 00 98 31 2C 22 5A 5A 5A 5A |):....A..1,"ZZZZ|
000007B0: 5A 22 3B 43 52 24 3B 3A A0 31 3A 8D 31 31 31 3A |Z";CR$;:.1:.111:|
000007C0: 8E 00 D4 0F 42 00 8D 31 31 31 3A 8F 20 50 52 49 |....B..111:. PRI|
000007D0: 4E 54 45 52 00 F5 0F 43 00 85 22 11 12 44 4F 55 |NTER...C.."..DOU|
000007E0: 42 4C 45 20 53 50 41 43 45 92 20 20 4E 9D 9D 9D |BLE SPACE. N...|
000007F0: 22 3B 53 50 24 00 1B 10 44 00 99 22 11 50 55 54 |";SP$...D..".PUT|
00000800: 20 59 4F 55 52 20 50 41 50 45 52 20 49 4E 20 54 | YOUR PAPER IN T|
00000810: 48 45 20 50 52 49 4E 54 45 52 22 00 53 10 45 00 |HE PRINTER".S.E.|
00000820: 99 22 11 49 46 20 59 4F 55 20 44 4F 20 4E 4F 54 |.".IF YOU DO NOT|
00000830: 20 57 49 53 48 20 41 20 54 49 54 4C 45 2C 20 4A | WISH A TITLE, J|
00000840: 55 53 54 20 50 52 45 53 53 20 20 52 45 54 55 52 |UST PRESS RETUR|
00000850: 4E 2E 22 00 6A 10 46 00 85 22 11 54 49 54 4C 45 |N.".j.F..".TITLE|
00000860: 20 20 A0 9D 9D 9D 22 3B 41 24 00 7E 10 47 00 8B | ....";A$.~.G..|
00000870: 41 24 B2 22 A0 22 A7 41 24 B2 22 20 20 22 00 93 |A$.".".A$." "..|
00000880: 10 48 00 9F 31 2C 34 3A 98 31 2C C7 28 31 34 29 |.H..1,4:.1,.(14)|
00000890: 2C 41 24 00 A1 10 49 00 A0 31 3A 9F 31 2C 34 2C |,A$...I..1:.1,4,|
000008A0: 31 00 AB 10 4A 00 41 24 B2 22 22 00 C3 10 4B 00 |1...J.A$.""...K.|
000008B0: 81 49 B2 31 A4 38 30 3A 41 24 B2 41 24 AA 22 20 |.I.1.80:A$.A$." |
000008C0: 22 3A 82 00 DD 10 4C 00 9F 32 2C 34 2C 32 3A 98 |":....L..2,4,2:.|
000008D0: 32 2C C7 28 31 35 29 2C 41 24 3A A0 32 00 F0 10 |2,.(15),A$:.2...|
000008E0: 4D 00 81 49 B2 31 A4 4E 4D 3A 46 4C 41 47 B2 32 |M..I.1.NM:FLAG.2|
000008F0: 00 15 11 4E 00 8B C2 28 35 39 34 36 38 29 B2 31 |...N...(59468).1|
00000900: 32 A7 98 31 2C C7 28 31 36 30 29 54 58 24 28 49 |2..1,.(160)TX$(I|
00000910: 29 3A 89 38 37 00 2B 11 4F 00 8B 54 58 24 28 49 |):.87.+.O..TX$(I|
00000920: 29 B2 22 22 A7 98 31 3A 89 38 38 00 3E 11 50 00 |).""..1:.88.>.P.|
00000930: 81 59 B2 31 A4 C3 28 54 58 24 28 49 29 29 00 55 |.Y.1..(TX$(I)).U|
00000940: 11 51 00 41 B2 C6 28 CA 28 54 58 24 28 49 29 2C |.Q.A..(.(TX$(I),|
00000950: 59 2C 31 29 29 00 91 11 52 00 8B 46 4C 41 47 B3 |Y,1))...R..FLAG.|
00000960: B1 31 A7 8B 28 28 41 B1 31 38 32 29 AF 28 41 B3 |.1..((A.182).(A.|
00000970: 32 31 39 29 29 A7 59 24 B2 22 91 22 AA C7 28 41 |219)).Y$."."..(A|
00000980: AB 31 32 38 29 3A 46 4C 41 47 B2 31 3A 3A 89 38 |.128):FLAG.1::.8|
00000990: 35 00 C5 11 53 00 8B 46 4C 41 47 B2 31 B0 46 4C |5...S..FLAG.1.FL|
000009A0: 41 47 B2 32 AF 41 B1 36 34 AF 41 B3 39 31 A7 59 |AG.2.A.64.A.91.Y|
000009B0: 24 B2 22 11 22 AA C7 28 41 29 3A 46 4C 41 47 B2 |$."."..(A):FLAG.|
000009C0: 30 3A 89 38 35 00 EA 11 54 00 59 24 B2 C7 28 41 |0:.85...T.Y$..(A|
000009D0: 29 3A 8B 41 B1 31 38 32 AF 41 B3 32 31 39 A7 59 |):.A.182.A.219.Y|
000009E0: 24 B2 C7 28 41 AB 31 32 38 29 00 F9 11 55 00 5A |$..(A.128)...U.Z|
000009F0: 24 B2 5A 24 AA 59 24 3A 82 00 10 12 56 00 98 31 |$.Z$.Y$:....V..1|
00000A00: 2C C7 28 31 36 30 29 2C 5A 24 3A 5A 24 B2 22 22 |,.(160),Z$:Z$.""|
00000A10: 00 20 12 57 00 8B 53 50 24 B2 22 59 22 A7 98 31 |. .W..SP$."Y"..1|
00000A20: 00 30 12 58 00 82 3A A0 31 3A 8D 31 31 31 3A 8E |.0.X..:.1:.111:.|
00000A30: 00 4C 12 59 00 99 22 93 11 11 11 47 4F 54 4F 20 |.L.Y.."....GOTO |
00000A40: 34 13 22 3A 80 3A 8F 20 51 55 49 54 00 57 12 5A |4.":.:. QUIT.W.Z|
00000A50: 00 8F 20 4C 4F 41 44 00 78 12 5B 00 8D 31 31 31 |.. LOAD.x.[..111|
00000A60: 3A 8B 4E 4D B2 35 35 A7 99 22 12 46 49 4C 45 20 |:.NM.55..".FILE |
00000A70: 46 55 4C 4C 92 22 3A 8E 00 81 12 5C 00 8D 31 34 |FULL.":....\..14|
00000A80: 34 00 B7 12 5D 00 44 B2 31 3A 53 41 B2 30 3A 8B |4...].D.1:SA.0:.|
00000A90: 41 24 B2 22 44 22 A7 46 49 4C 45 24 B2 46 49 4C |A$."D".FILE$.FIL|
00000AA0: 45 24 AA 22 2C 53 2C 52 22 3A 44 B2 38 3A 53 41 |E$.",S,R":D.8:SA|
00000AB0: B2 31 30 3A 89 39 38 00 E5 12 5E 00 99 22 11 4D |.10:.98...^..".M|
00000AC0: 4F 55 4E 54 20 59 4F 55 52 20 54 41 50 45 2E 20 |OUNT YOUR TAPE. |
00000AD0: 42 45 20 53 55 52 45 20 49 54 20 49 53 20 52 45 |BE SURE IT IS RE|
00000AE0: 57 4F 55 4E 44 00 04 13 5F 00 99 22 11 50 52 45 |WOUND..._..".PRE|
00000AF0: 53 53 20 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 |SS A KEY TO CONT|
00000B00: 49 4E 55 45 00 16 13 60 00 A1 41 24 3A 8B 41 24 |INUE...`..A$:.A$|
00000B10: B2 22 22 A7 39 36 00 2E 13 61 00 8B 46 49 4C 45 |."".96...a..FILE|
00000B20: 24 B2 22 A0 22 A7 46 49 4C 45 24 B2 22 22 00 40 |$.".".FILE$."".@|
00000B30: 13 62 00 9F 31 2C 44 2C 53 41 2C 46 49 4C 45 24 |.b..1,D,SA,FILE$|
00000B40: 00 4A 13 63 00 84 31 2C 41 24 00 5D 13 64 00 99 |.J.c..1,A$.].d..|
00000B50: 22 12 4C 4F 41 44 49 4E 47 3A 22 41 24 00 67 13 |".LOADING:"A$.g.|
00000B60: 65 00 84 31 2C 41 24 00 78 13 66 00 8B 28 53 54 |e..1,A$.x.f..(ST|
00000B70: 29 AF 36 34 A7 31 30 39 00 8C 13 67 00 8B 41 24 |).64.109...g..A$|
00000B80: B2 22 5A 5A 5A 5A 5A 22 A7 31 30 39 00 A6 13 68 |."ZZZZZ".109...h|
00000B90: 00 54 58 24 28 4E 4D 29 B2 C9 28 41 24 2C C3 28 |.TX$(NM)..(A$,.(|
00000BA0: 41 24 29 AB 31 29 00 B3 13 69 00 99 54 58 24 28 |A$).1)...i..TX$(|
00000BB0: 4E 4D 29 00 BF 13 6A 00 4E 4D B2 4E 4D AA 31 00 |NM)...j.NM.NM.1.|
00000BC0: CF 13 6B 00 8B 4E 4D B2 35 36 A7 89 31 30 39 00 |..k..NM.56..109.|
00000BD0: D8 13 6C 00 89 31 30 31 00 E6 13 6D 00 A0 31 3A |..l..101...m..1:|
00000BE0: 8D 31 31 31 3A 8E 00 F1 13 6E 00 8F 20 4D 45 4E |.111:....n.. MEN|
00000BF0: 55 00 26 14 6F 00 99 22 93 12 45 92 4E 54 45 52 |U.&.o.."..E.NTER|
00000C00: 20 12 53 92 43 52 45 45 4E 20 53 12 41 92 56 45 | .S.CREEN S.A.VE|
00000C10: 20 12 50 92 52 49 4E 54 20 12 51 92 55 49 54 20 | .P.RINT .Q.UIT |
00000C20: 12 4C 92 4F 41 44 00 55 14 70 00 99 22 12 43 92 |.L.OAD.U.p..".C.|
00000C30: 48 41 4E 47 45 3A 50 41 52 54 2C 44 45 4C 45 54 |HANGE:PART,DELET|
00000C40: 45 2C 52 45 50 4C 41 43 45 2C 49 4E 53 45 52 54 |E,REPLACE,INSERT|
00000C50: 2C 43 4F 50 59 00 5B 14 71 00 8E 00 6E 14 72 00 |,COPY.[.q...n.r.|
00000C60: 8F 20 52 45 44 20 38 30 2F 30 36 2F 33 30 00 80 |. RED 80/06/30..|
00000C70: 14 73 00 99 22 11 11 22 41 24 22 20 20 20 22 3B |.s..".."A$" ";|
00000C80: 00 C4 14 74 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |...t.."---------|
00000C90: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D |+---------+-----|
00000CA0: 2D 2D 2D 2D 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D |----*---------+-|
00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2B 2D 2D 2D 2D 2D 2D 2D |--------+-------|
00000CC0: 2D 2D 2D 22 00 DB 14 75 00 99 3A 99 22 91 91 91 |---"...u..:."...|
00000CD0: 22 A3 C3 28 41 24 29 AA 33 29 3B 00 E1 14 76 00 |"..(A$).3);...v.|
00000CE0: 8E 00 06 15 77 00 8F 20 52 45 44 20 38 30 2F 30 |....w.. RED 80/0|
00000CF0: 36 2F 33 30 3A 52 45 4D 20 49 4E 50 55 54 20 52 |6/30:REM INPUT R|
00000D00: 4F 55 54 49 4E 45 00 0E 15 78 00 A1 41 24 00 17 |OUTINE...x..A$..|
00000D10: 15 79 00 8D 31 34 33 00 2A 15 7A 00 8B 41 24 B2 |.y..143.*.z..A$.|
00000D20: 22 2C 22 A7 41 24 B2 22 AE 22 00 39 15 7B 00 8B |",".A$.".".9.{..|
00000D30: 41 24 B2 22 22 A7 31 32 30 00 49 15 7C 00 8B 41 |A$."".120.I.|..A|
00000D40: 24 B2 43 52 24 A7 31 34 30 00 59 15 7D 00 8B 41 |$.CR$.140.Y.}..A|
00000D50: 24 B2 49 4E 24 A7 31 32 30 00 6E 15 7E 00 8B 41 |$.IN$.120.n.~..A|
00000D60: 24 B2 C7 28 33 34 29 A7 41 24 B2 22 27 22 00 7F |$..(34).A$."'"..|
00000D70: 15 7F 00 8B 41 24 B3 B1 44 4C 24 A7 31 33 30 00 |....A$..DL$.130.|
00000D80: 91 15 80 00 8B C3 28 53 52 24 29 B3 31 A7 31 32 |......(SR$).1.12|
00000D90: 30 00 B6 15 81 00 53 52 24 B2 C8 28 53 52 24 2C |0.....SR$..(SR$,|
00000DA0: C3 28 53 52 24 29 AB 31 29 3A 99 22 2D 9D 9D 22 |.(SR$).1):."-.."|
00000DB0: 3B 3A 89 31 33 33 00 DF 15 82 00 4B B2 30 3A 81 |;:.133.....K.0:.|
00000DC0: 49 B2 31 A4 38 3A 8B 41 24 B2 CA 28 22 3B 3A 13 |I.1.8:.A$..(";:.|
00000DD0: 93 91 11 9D 1D 22 2C 49 2C 31 29 A7 4B B2 49 00 |.....",I,1).K.I.|
00000DE0: EF 15 83 00 82 3A 8B 4B B3 B1 30 A7 31 32 30 00 |.....:.K..0.120.|
00000DF0: 03 16 84 00 53 52 24 B2 53 52 24 AA 41 24 3A 99 |....SR$.SR$.A$:.|
00000E00: 41 24 3B 00 3C 16 85 00 8B C2 28 31 35 31 29 B3 |A$;.<.....(151).|
00000E10: B1 32 35 35 AF 28 41 24 B2 22 A0 22 B0 41 24 B2 |.255.(A$.".".A$.|
00000E20: 44 4C 24 29 AF C3 28 53 52 24 29 B3 4A 4A A7 81 |DL$)..(SR$).JJ..|
00000E30: 56 B2 31 A4 35 3A 82 3A 89 31 32 37 00 4F 16 86 |V.1.5:.:.127.O..|
00000E40: 00 8B C3 28 53 52 24 29 B3 4A 4A A7 31 32 30 00 |...(SR$).JJ.120.|
00000E50: 57 16 87 00 A1 41 24 00 60 16 88 00 8D 31 34 33 |W....A$.`....143|
00000E60: 00 72 16 89 00 8B 41 24 B2 C7 28 31 33 29 A7 31 |.r....A$..(13).1|
00000E70: 34 30 00 84 16 8A 00 8B 41 24 B2 C7 28 32 30 29 |40......A$..(20)|
00000E80: A7 31 32 37 00 8D 16 8B 00 89 31 33 35 00 A3 16 |.127......135...|
00000E90: 8C 00 8B 53 52 24 B2 22 22 A7 53 52 24 B2 22 4E |...SR$."".SR$."N|
00000EA0: 49 4C 22 00 A9 16 8D 00 8E 00 B6 16 8E 00 8F 20 |IL"............ |
00000EB0: 43 55 52 53 4F 52 00 D3 16 8F 00 99 22 A6 9D 22 |CURSOR......".."|
00000EC0: 3B 3A 81 49 B2 31 A4 31 3A 82 3A 99 22 20 9D 22 |;:.I.1.1:.:." ."|
00000ED0: 3B 3A 8E 00 EB 16 90 00 99 22 12 54 92 41 50 45 |;:.......".T.APE|
00000EE0: 20 4F 52 20 12 44 92 49 53 4B 22 00 08 17 91 00 | OR .D.ISK".....|
00000EF0: A1 41 24 3A 8B 41 24 B3 B1 22 54 22 AF 41 24 B3 |.A$:.A$.."T".A$.|
00000F00: B1 22 44 22 A7 31 34 35 00 26 17 92 00 85 22 11 |."D".145.&....".|
00000F10: 46 49 4C 45 20 4E 41 4D 45 20 20 A0 9D 9D 9D 22 |FILE NAME ...."|
00000F20: 3B 46 49 4C 45 24 00 2C 17 93 00 8E 00 00 00 8D |;FILE$.,........|
..9...."...EASY EDIT....COPYRIGHT 1983 (
C) COCKNEY REBEL".Y....53272,21:."....UP
PER CASE ONLY Y...";A$:.A$."N"..53272,2
3.....NM.1:.TX$(60):CR$.G(13):DL$.G(20):
IN$.G(148):.151,255......111.M....A$:.A$
."".5......A$."."..A$:.4.....K.0:.I.1.7:
.A$.J("ECSAPQL",I,1).K.I:I.7:.8.......7.
...K..0..K.11,16,52,57,66,89,90.>....5.T
....110:. INPUT TEXT.S....NM.55.."TEXT A
REA FULL":......A$.D(NM):JJ.60:.114:.119
:.SR$."NIL".SR$."":.110:..B...TX$(NM).SR
$:SR$."":..R...NM.NM.1:.12...... CHANGE
TEXT......".ENTER SCREEN SAVE PRINT QUIT
LOAD".?...."...CHANGE:.
".J...."...CHANGE:.";:."WH
ICH LINE ....";S......"...CHANGE.:.P.A
RT .D.ELETE .R.EPLACE .I.NSERT .C.OPY...
...:.TX$(S)......A$.M....A$.G(13)..51...
..K.0:.I.1.5:.A$.J("PDRIC",I,1).K.I.....
.......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":J
J.30:.114:.119:C$.SR$:SR$."":. CHANGE.V.
...:A$."TO WHAT":JJ.30:.114:.119:B$.SR$:
SR$."":.B$."NIL".B$.""... .Y.0:.T.1.C(TX
$(S))...!..C$.J(TX$(S),T,C(C$)).Y.T:T.C(
TX$(S))...".../.#..Y.0..111:.51.I.$.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...'..I.S.NM:. DELETE
THE LINE.O.(.TX$(I).TX$(I.1):....).TX$(
NM)."":NM.NM.1:.51...*.A$.D(S):JJ.60:.11
4:.119:. REPLACE THE LINE.3.+..SR$."NIL"
.SR$."":.51.M.,.TX$(S).SR$:SR$."":.51...
-..NM.56.."CAN'T..OUT OF LINES":.I.1.160
0:.:.51:. INSERT.....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...2.TX$(S).SR$:SR$.""...3..111:...
.4..111:. SCREEN PRINT.D.5..".FROM. ...
.";S.D.6.."...".10);:.".TO. ....";F...7
..I.S.F:."."I"."TX$(I):....8.....9..111:
.144:. SAVE.Z.:.D.1:SA.1:F$.FILE$:.A$."D
".FILE$.FILE$.",S,W":D.8:SA.10:.62...;..
".INSERT YOUR TAPE IN THE TAPE DRIVE.$.<
.."PRESS A KEY TO CONTINUE.".6.=..A$:.A$
."".61.H.>..1,D,SA,FILE$.W.?..1,F$;CR$;.
..@..I.1.NM:TX$(I).")".TX$(I):.1,TX$(I);
CR$;:TX$(I).I(TX$(I),C(TX$(I)).1):..A.A.
.1,"ZZZZZ";CR$;: 1:.111:..T.B..111:. PRI
NTER...C.."..DOUBLE SPACE. N...";SP$...
D..".PUT YOUR PAPER IN THE PRINTER".S.E.
.".IF YOU DO NOT WISH A TITLE, JUST PRES
S RETURN.".J.F..".TITLE ...";A$.~.G..
A$." ".A$." "...H..1,4:.1,G(14),A$...I.
1:.1,4,1...J.A$."".C.K..I.1.80:A$.A$."
":....L..2,4,2:.2,G(15),A$: 2...M..I.1.N
M:FLAG.2...N..B(59468).12..1,G(160)TX$(I
):.87.+.O..TX$(I).""..1:.88.>.P..Y.1.C(T
X$(I)).U.Q.A.F(J(TX$(I),Y,1))...R..FLAG.
.1..((A.182).(A.219)).Y$.".".G(A.128):FL
AG.1::.85.E.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$:....V..1
,G(160),Z$:Z$."". .W..SP$."Y"..1.0.X..:
1:.111:..L.Y.."....GOTO 4.":.:. QUIT.W.Z
.. LOAD.X.[..111:.NM.55..".FILE FULL.":.
...\..144...].D.1:SA.0:.A$."D".FILE$.FIL
E$.",S,R":D.8:SA.10:.98...^..".MOUNT YOU
R TAPE. BE SURE IT IS REWOUND..._..".PRE
SS A KEY TO CONTINUE...`..A$:.A$."".96..
.A..FILE$." ".FILE$."".@.B..1,D,SA,FILE$
.J.C..1,A$.].D..".LOADING:"A$.G.E..1,A$.
X.F..(ST).64.109...G..A$."ZZZZZ".109...H
.TX$(NM).I(A$,C(A$).1)...I..TX$(NM)...J.
NM.NM.1.O.K..NM.56..109.X.L..101...M. 1:
.111:....N.. MENU.&.O.."..E.NTER .S.CREE
N S.A.VE .P.RINT .Q.UIT .L.OAD.U.P..".C.
HANGE:PART,DELETE,REPLACE,INSERT,COPY.[.
Q...N.R.. RED 80/06/30...S..".."A$" ";
.D.T.."---------+---------+---------*---
------+---------+----------"...U..:."...
".C(A$).3);...V.....W.. RED 80/06/30:REM
INPUT ROUTINE...X..A$...Y..143.*.Z..A$.
",".A$.".".9.{..A$."".120.I.|..A$.CR$.14
0.Y.}..A$.IN$.120.N.~..A$.G(34).A$."'".
...A$..DL$.130......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$;.<....B(151).
.255.(A$." ".A$.DL$).C(SR$).JJ..V.1.5:.:
.127.O....C(SR$).JJ.120.W....A$.`....143
.R....A$.G(13).140......A$.G(20).127....
..135......SR$."".SR$."NIL"............
CURSOR.S...."..";:.I.1.1:.:." .";:......
.".T.APE OR .D.ISK"......A$:.A$.."T".A$.
."D".145.&....".FILE NAME ...";FILE$.,
........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL