> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 8F 20 2A 2A 2A 20 53 45 51 20 |....... *** SEQ |
00000010: 57 52 49 54 54 45 52 20 2A 2A 2A 00 37 08 14 00 |WRITTER ***.7...|
00000020: 8F 20 2A 2A 2A 20 42 59 20 52 4F 4E 20 4D 41 52 |. *** BY RON MAR|
00000030: 54 49 4E 20 2A 2A 2A 00 4C 08 1E 00 8F 20 2A 2A |TIN ***.L.... **|
00000040: 2A 20 37 2F 37 2F 38 34 20 2A 2A 2A 00 68 08 28 |* 7/7/84 ***.h.(|
00000050: 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |..53280,0:.53281|
00000060: 2C 36 3A 99 22 93 99 22 00 78 08 32 00 99 C7 28 |,6:."..".x.2...(|
00000070: 31 34 29 3A 89 36 36 30 00 8D 08 3C 00 99 22 93 |14):.660...<..".|
00000080: 05 D7 52 49 54 45 2E 2E 2E 2E 22 3A 9C 00 A5 08 |..RITE....":....|
00000090: 46 00 4C B2 31 3A 86 41 24 28 35 30 30 29 2C 42 |F.L.1:.A$(500),B|
000000A0: 24 28 38 31 29 00 BB 08 50 00 41 B2 31 3A 99 22 |$(81)...P.A.1:."|
000000B0: 05 CC 49 4E 45 20 23 22 4C 3A 99 00 CD 08 5A 00 |..INE #"L:....Z.|
000000C0: A1 59 24 3A 8B 59 24 B2 22 22 A7 39 30 00 D9 08 |.Y$:.Y$."".90...|
000000D0: 64 00 58 B2 C6 28 59 24 29 00 F7 08 6E 00 8B 58 |d.X..(Y$)...n..X|
000000E0: B2 31 34 35 B0 58 B2 31 37 B0 58 B2 31 35 37 B0 |.145.X.17.X.157.|
000000F0: 58 B2 32 39 A7 39 30 00 0A 09 78 00 8B 58 B2 31 |X.29.90...x..X.1|
00000100: 34 37 B0 58 B2 31 39 A7 39 30 00 27 09 82 00 8B |47.X.19.90.'....|
00000110: 58 B2 32 30 AF 41 B1 31 A7 41 B2 41 AB 31 3A 99 |X.20.A.1.A.A.1:.|
00000120: 59 24 3B 3A 89 39 30 00 34 09 8C 00 8B 58 B2 32 |Y$;:.90.4....X.2|
00000130: 30 A7 39 30 00 45 09 96 00 8B 58 B2 31 33 A7 99 |0.90.E....X.13..|
00000140: 3A 89 31 39 30 00 57 09 A0 00 99 59 24 3B 3A 42 |:.190.W....Y$;:B|
00000150: 24 28 41 29 B2 59 24 00 79 09 AA 00 41 B2 41 AA |$(A).Y$.y...A.A.|
00000160: 31 3A 8B 41 B1 38 30 A7 99 C7 28 32 30 29 3B 3A |1:.A.80...(20);:|
00000170: 41 B2 41 AB 31 3A 89 39 30 00 81 09 B4 00 89 39 |A.A.1:.90......9|
00000180: 30 00 93 09 BE 00 8B 42 24 28 31 29 B2 22 22 A7 |0......B$(1)."".|
00000190: 32 34 30 00 BB 09 C8 00 81 54 B2 31 A4 41 3A 41 |240......T.1.A:A|
000001A0: 24 28 4C 29 B2 41 24 28 4C 29 AA 42 24 28 54 29 |$(L).A$(L).B$(T)|
000001B0: 3A 42 24 28 54 29 B2 22 22 3A 82 00 C9 09 D2 00 |:B$(T)."":......|
000001C0: 4C B2 4C AA 31 3A 89 38 30 00 DC 09 DC 00 A1 59 |L.L.1:.80......Y|
000001D0: 24 3A 8B 59 24 B2 22 22 A7 32 32 30 00 EC 09 E6 |$:.Y$."".220....|
000001E0: 00 99 C6 28 59 24 29 3A 89 32 32 30 00 11 0A F0 |...(Y$):.220....|
000001F0: 00 8F 20 57 48 41 54 20 44 4F 20 59 4F 55 20 57 |.. WHAT DO YOU W|
00000200: 41 4E 54 20 54 4F 20 44 4F 20 57 49 54 48 20 49 |ANT TO DO WITH I|
00000210: 54 00 3A 0A FA 00 99 22 93 99 22 3A 85 22 28 D6 |T.:...."..":."(.|
00000220: 29 49 45 57 2C 20 28 D3 29 41 56 45 20 4F 52 20 |)IEW, (.)AVE OR |
00000230: 28 C5 29 58 49 54 22 3B 51 24 00 66 0A 04 01 51 |(.)XIT";Q$.f...Q|
00000240: 24 B2 C8 28 51 24 2C 31 29 3A 8B 51 24 B3 B1 22 |$..(Q$,1):.Q$.."|
00000250: 56 22 AF 51 24 B3 B1 22 53 22 AF 51 24 B3 B1 22 |V".Q$.."S".Q$.."|
00000260: 45 22 A7 32 35 30 00 76 0A 0E 01 8B 51 24 B2 22 |E".250.v....Q$."|
00000270: 53 22 A7 35 35 30 00 84 0A 18 01 8B 51 24 B2 22 |S".550......Q$."|
00000280: 45 22 A7 8A 00 AD 0A 22 01 99 22 93 9F D6 49 45 |E".....".."...IE|
00000290: 57 20 28 D0 52 45 53 53 20 D3 50 41 43 45 20 C2 |W (.RESS .PACE .|
000002A0: 41 52 20 54 4F 20 D0 41 55 53 45 29 22 00 B8 0A |AR TO .AUSE)"...|
000002B0: 2C 01 81 54 B2 31 A4 4C 00 C5 0A 36 01 99 41 24 |,..T.1.L...6..A$|
000002C0: 28 54 29 3A 82 00 CE 0A 40 01 8D 33 34 30 00 D7 |(T):....@..340..|
000002D0: 0A 4A 01 89 32 35 30 00 E2 0A 54 01 97 31 39 38 |.J..250...T..198|
000002E0: 2C 30 00 08 0B 5E 01 99 3A 85 22 05 D0 52 45 53 |,0...^..:."..RES|
000002F0: 53 20 D2 45 54 55 52 4E 20 54 4F 20 C3 4F 4E 54 |S .ETURN TO .ONT|
00000300: 49 4E 55 45 22 3B 51 24 00 0E 0B 68 01 8E 00 1E |INUE";Q$...h....|
00000310: 0B 72 01 8F 20 52 45 41 44 20 46 49 4C 45 00 35 |.r.. READ FILE.5|
00000320: 0B 7C 01 99 22 93 05 D2 45 41 44 20 C6 49 4C 45 |.|.."...EAD .ILE|
00000330: 2E 2E 2E 2E 22 00 58 0B 86 01 99 22 D7 41 4E 54 |....".X....".ANT|
00000340: 20 41 20 C8 41 52 44 20 C3 4F 50 59 20 28 D9 29 | A .ARD .OPY (.)|
00000350: 20 4F 52 20 28 CE 29 22 00 68 0B 90 01 97 31 39 | OR (.)".h....19|
00000360: 38 2C 30 3A 48 43 B2 30 00 7B 0B 9A 01 A1 59 24 |8,0:HC.0.{....Y$|
00000370: 3A 8B 59 24 B2 22 22 A7 34 31 30 00 A2 0B A4 01 |:.Y$."".410.....|
00000380: 8B 59 24 B2 22 59 22 B0 59 24 B2 22 D9 22 A7 48 |.Y$."Y".Y$.".".H|
00000390: 43 B2 31 3A 9F 34 2C 34 2C 37 3A 98 34 2C 22 20 |C.1:.4,4,7:.4," |
000003A0: 22 3B 00 B7 0B AE 01 85 22 C6 49 4C 45 4E 41 4D |";......".ILENAM|
000003B0: 45 22 3B 46 24 3A 99 00 C4 0B B8 01 9F 31 35 2C |E";F$:.......15,|
000003C0: 38 2C 31 35 00 DE 0B C2 01 9F 32 2C 38 2C 32 2C |8,15......2,8,2,|
000003D0: 22 30 3A 22 AA 46 24 AA 22 2C 53 2C 52 22 00 ED |"0:".F$.",S,R"..|
000003E0: 0B CC 01 84 31 35 2C 45 52 2C 45 52 24 00 FF 0B |....15,ER,ER$...|
000003F0: D6 01 8B 45 52 A7 8D 36 34 30 3A 89 34 33 30 00 |...ER..640:.430.|
00000400: 0A 0C E0 01 A1 23 32 2C 41 24 00 19 0C EA 01 8B |.....#2,A$......|
00000410: 53 54 B3 B1 30 A7 35 33 30 00 2E 0C F4 01 A1 59 |ST..0.530......Y|
00000420: 24 3A 8B 59 24 B2 22 20 22 A7 8D 33 35 30 00 44 |$:.Y$." "..350.D|
00000430: 0C FE 01 99 41 24 3B 3A 8B 48 43 B2 31 A7 98 34 |....A$;:.HC.1..4|
00000440: 2C 41 24 3B 00 4D 0C 08 02 89 34 38 30 00 60 0C |,A$;.M....480.`.|
00000450: 12 02 A0 32 3A A0 31 35 3A A0 34 3A 8D 33 35 30 |...2:.15:.4:.350|
00000460: 00 69 0C 1C 02 89 36 36 30 00 7B 0C 26 02 8F 20 |.i....660.{.&.. |
00000470: 4F 55 54 20 54 4F 20 44 49 53 4B 00 91 0C 30 02 |OUT TO DISK...0.|
00000480: 85 22 C6 49 4C 45 4E 41 4D 45 20 3E 20 22 3B 46 |.".ILENAME > ";F|
00000490: 24 00 9E 0C 3A 02 9F 31 35 2C 38 2C 31 35 00 B8 |$...:..15,8,15..|
000004A0: 0C 44 02 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 |.D..2,8,2,"0:".F|
000004B0: 24 AA 22 2C 53 2C 57 22 00 C7 0C 4E 02 84 31 35 |$.",S,W"...N..15|
000004C0: 2C 45 52 2C 45 52 24 00 D9 0C 58 02 8B 45 52 A7 |,ER,ER$...X..ER.|
000004D0: 8D 36 34 30 3A 89 35 35 30 00 EF 0C 62 02 81 54 |.640:.550...b..T|
000004E0: B2 31 A4 4C 3A 98 32 2C 41 24 28 54 29 3A 82 00 |.1.L:.2,A$(T):..|
000004F0: FA 0C 6C 02 A0 32 3A A0 31 35 00 0B 0D 76 02 99 |..l..2:.15...v..|
00000500: 22 C4 4F 4E 45 22 3A 89 36 36 30 00 2A 0D 80 02 |".ONE":.660.*...|
00000510: 99 22 93 05 12 20 C4 49 53 4B 20 C5 52 52 4F 52 |."... .ISK .RROR|
00000520: 20 92 22 3B 45 52 3B 45 52 24 00 37 0D 8A 02 A0 | .";ER;ER$.7....|
00000530: 31 35 3A A0 32 3A 8E 00 54 0D 94 02 99 22 93 99 |15:.2:..T...."..|
00000540: 20 20 2A 2A 2A 2A 20 CD 45 4E 55 20 2A 2A 2A 2A | **** .ENU ****|
00000550: 2A 22 3A 9C 00 89 0D 9E 02 99 3A 99 22 28 31 29 |*":.......:."(1)|
00000560: 20 D7 52 49 54 45 20 D3 45 51 2E 20 C6 49 4C 45 | .RITE .EQ. .ILE|
00000570: 2E 22 3A 99 22 28 32 29 20 D2 45 41 44 20 D3 45 |.":."(2) .EAD .E|
00000580: 51 2E 20 C6 49 4C 45 2E 22 00 99 0D A8 02 99 22 |Q. .ILE."......"|
00000590: 28 33 29 20 D1 55 49 54 22 00 B2 0D B2 02 97 31 |(3) .UIT"......1|
000005A0: 39 38 2C 30 3A 99 3A 99 22 C3 48 4F 49 43 45 20 |98,0:.:.".HOICE |
000005B0: 3E 22 00 C5 0D BC 02 A1 59 24 3A 8B 59 24 B2 22 |>"......Y$:.Y$."|
000005C0: 22 A7 37 30 30 00 DE 0D C6 02 58 B2 C5 28 59 24 |".700.....X..(Y$|
000005D0: 29 3A 8B 58 B3 31 B0 58 B1 33 A7 36 36 30 00 F0 |):.X.1.X.3.660..|
000005E0: 0D D0 02 91 58 89 36 30 2C 33 37 30 2C 37 33 30 |....X.60,370,730|
000005F0: 00 F6 0D DA 02 80 00 00 00 00 00 00 00 00 00 00 |................|
00000600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006F0: 84 7B 4C 20 00 00 C9 45 |.{L ...E |
....... *** SEQ WRITTER ***.7.... *** BY
RON MARTIN ***.L.... *** 7/7/84 ***.H.(
..53280,0:.53281,6:."..".X.2..G(14):.660
...<.."..WRITE....":....F.L.1:.A$(500),B
$(81)...P.A.1:.".LINE #"L:..M.Z..Y$:.Y$.
"".90.Y.D.X.F(Y$)...N..X.145.X.17.X.157.
X.29.90...X..X.147.X.19.90.'....X.20.A.1
.A.A.1:.Y$;:.90.4....X.20.90.E....X.13..
:.190.W. ..Y$;:B$(A).Y$.Y...A.A.1:.A.80.
.G(20);:A.A.1:.90......90......B$(1)."".
240...H..T.1.A:A$(L).A$(L).B$(T):B$(T)."
":..I.R.L.L.1:.80......Y$:.Y$."".220....
..F(Y$):.220...... WHAT DO YOU WANT TO D
O WITH IT.:...."..":."(V)IEW, (S)AVE OR
(E)XIT";Q$.F...Q$.H(Q$,1):.Q$.."V".Q$.."
S".Q$.."E".250.V....Q$."S".550......Q$."
E".....".."..VIEW (PRESS SPACE BAR TO PA
USE)"...,..T.1.L.E.6..A$(T):..N.@..340.W
.J..250...T..198,0...^..:.".PRESS RETURN
TO CONTINUE";Q$...H.....R.. READ FILE.5
.|.."..READ FILE....".X...."WANT A HARD
COPY (Y) OR (N)".H....198,0:HC.0.{....Y$
:.Y$."".410......Y$."Y".Y$."Y".HC.1:.4,4
,7:.4," ";......"FILENAME";F$:..D....15,
8,15...B..2,8,2,"0:".F$.",S,R"...L..15,E
R,ER$...V..ER..640:.430......#2,A$......
ST..0.530......Y$:.Y$." "..350.D....A$;:
.HC.1..4,A$;.M....480.`... 2: 15: 4:.350
.I....660.{.&.. OUT TO DISK...0.."FILENA
ME > ";F$...:..15,8,15...D..2,8,2,"0:".F
$.",S,W".G.N..15,ER,ER$.Y.X..ER..640:.55
0...B..T.1.L:.2,A$(T):....L. 2: 15...V..
"DONE":.660.*...."... DISK ERROR .";ER;E
R$.7... 15: 2:..T....".. **** MENU ****
*":.......:."(1) WRITE SEQ. FILE.":."(2)
READ SEQ. FILE."......"(3) QUIT"......1
98,0:.:."CHOICE >".E....Y$:.Y$."".700...
F.X.E(Y$):.X.1.X.3.660...P..X.60,370,730
...Z....................................
........................................
........................................
........................................
........................................
........................................
.................{L ..IE
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL