> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 01 00 99 22 0E 08 90 12 93 D3 C5 D1 |..1...."........|
00000010: D5 C5 CE D4 C9 C1 CC 20 C6 C9 CC C5 20 D2 C5 C1 |....... .... ...|
00000020: C4 92 22 3A 99 22 11 C8 C9 D4 20 C1 20 CB C5 D9 |..":.".... . ...|
00000030: 22 00 57 08 02 00 52 24 B2 C7 28 31 33 29 3A 97 |".W...R$..(13):.|
00000040: 38 30 38 2C 32 33 39 3A 81 42 B2 31 A4 31 36 3A |808,239:.B.1.16:|
00000050: 81 43 B2 31 A4 35 30 00 77 08 03 00 97 35 33 32 |.C.1.50.w....532|
00000060: 38 31 2C 31 35 3A A1 41 24 3A 8B 41 24 B2 22 22 |81,15:.A$:.A$.""|
00000070: A7 82 3A 82 3A 89 32 00 95 08 04 00 42 24 B2 22 |..:.:.2.....B$."|
00000080: 22 3A 99 22 31 2E 20 20 C9 4E 53 54 52 55 43 54 |":."1. .NSTRUCT|
00000090: 49 4F 4E 53 22 00 B1 08 05 00 99 22 32 2E 20 20 |IONS"......"2. |
000000A0: C3 4F 50 59 20 C9 4E 46 4F 52 4D 41 54 49 4F 4E |.OPY .NFORMATION|
000000B0: 22 00 C7 08 06 00 A1 4A 41 24 3A 8B 20 4A 41 24 |"......JA$:. JA$|
000000C0: B2 22 22 20 A7 20 36 00 E2 08 07 00 8B 20 4A 41 |."" . 6...... JA|
000000D0: 24 B2 22 31 22 A7 20 42 24 B2 22 20 49 4E 53 54 |$."1". B$." INST|
000000E0: 2E 22 00 01 09 08 00 8B 20 4A 41 24 B2 22 32 22 |."...... JA$."2"|
000000F0: A7 20 42 24 B2 22 20 43 4F 50 59 2E 49 4E 46 4F |. B$." COPY.INFO|
00000100: 22 00 11 09 09 00 8B 42 24 B2 22 22 A7 20 89 20 |"......B$."". . |
00000110: 36 00 5D 09 0A 00 99 22 93 D9 4F 55 52 20 4F 50 |6.]...."..OUR OP|
00000120: 54 49 4F 4E 53 3A 22 52 24 3B 52 24 3B 52 24 22 |TIONS:"R$;R$;R$"|
00000130: 20 3C D3 3E 43 52 45 45 4E 22 52 24 3B 52 24 22 | <.>CREEN"R$;R$"|
00000140: 20 3C D0 3E 52 49 4E 54 45 52 22 52 24 3B 52 24 | <.>RINTER"R$;R$|
00000150: 22 20 3C 3F 3E C8 45 4C 50 22 52 24 3B 00 6E 09 |" <?>.ELP"R$;.n.|
00000160: 0F 00 99 52 24 22 20 3C D1 3E 55 49 54 22 00 81 |...R$" <.>UIT"..|
00000170: 09 19 00 A1 47 24 3A 8B 47 24 B2 22 22 A7 20 32 |....G$:.G$."". 2|
00000180: 35 00 92 09 1B 00 8B 47 24 B2 22 51 22 A7 31 31 |5......G$."Q".11|
00000190: 34 30 00 A1 09 1E 00 8B 47 24 B2 22 53 22 89 36 |40......G$."S".6|
000001A0: 30 00 B2 09 21 00 8B 47 24 B2 22 3F 22 A7 31 30 |0...!..G$."?".10|
000001B0: 30 30 00 C2 09 28 00 8B 47 24 B3 B1 22 50 22 A7 |00...(..G$.."P".|
000001C0: 32 35 00 D1 09 32 00 9F 31 2C 34 2C 37 3A 51 B2 |25...2..1,4,7:Q.|
000001D0: 31 00 EB 09 3C 00 9F 35 2C 38 2C 35 2C 42 24 AA |1...<..5,8,5,B$.|
000001E0: 22 2C 53 2C 52 22 3A 8D 35 30 30 00 22 0A 3E 00 |",S,R":.500.".>.|
000001F0: 99 22 93 11 D0 52 45 53 53 20 41 4E 59 20 4B 45 |."...RESS ANY KE|
00000200: 59 20 54 4F 20 50 41 55 53 45 2C 22 3A 99 22 50 |Y TO PAUSE,":."P|
00000210: 52 45 53 53 20 41 47 41 49 4E 20 54 4F 20 43 4F |RESS AGAIN TO CO|
00000220: 22 3B 00 47 0A 41 00 99 22 4E 54 49 4E 55 45 2E |";.G.A.."NTINUE.|
00000230: 22 3A 99 22 27 51 27 20 45 4E 44 53 20 50 52 4F |":."'Q' ENDS PRO|
00000240: 47 52 41 4D 22 52 24 00 52 0A 64 00 A1 23 35 2C |GRAM"R$.R.d..#5,|
00000250: 46 24 00 60 0A 6E 00 8B 53 54 B2 30 A7 31 33 30 |F$.`.n..ST.0.130|
00000260: 00 6F 0A 78 00 8B 53 54 B2 36 34 A7 33 30 30 00 |.o.x..ST.64.300.|
00000270: 83 0A 82 00 8B 51 B3 B1 31 A7 99 46 24 3B 3A 89 |.....Q..1..F$;:.|
00000280: 31 33 36 00 8E 0A 87 00 98 31 2C 46 24 3B 00 96 |136......1,F$;..|
00000290: 0A 88 00 A1 41 24 00 A7 0A 89 00 8B 41 24 B3 B1 |....A$......A$..|
000002A0: 22 22 A7 8D 31 39 39 00 B0 0A 8C 00 89 31 30 30 |""..199......100|
000002B0: 00 C1 0A C7 00 8B 41 24 B2 22 51 22 A7 31 31 30 |......A$."Q".110|
000002C0: 30 00 D4 0A C8 00 A1 41 24 3A 8B 41 24 B2 22 22 |0......A$:.A$.""|
000002D0: A7 32 30 30 00 E5 0A CD 00 8B 41 24 B2 22 51 22 |.200......A$."Q"|
000002E0: A7 31 31 30 30 00 EB 0A D2 00 8E 00 F5 0A 2C 01 |.1100.........,.|
000002F0: 89 31 31 30 30 00 13 0B F4 01 A0 31 35 3A 9F 31 |.1100......15:.1|
00000300: 35 2C 38 2C 31 35 3A 84 31 35 2C 44 2C 45 24 2C |5,8,15:.15,D,E$,|
00000310: 46 2C 47 00 51 0B FE 01 8B 44 B1 30 A7 99 22 11 |F,G.Q....D.0..".|
00000320: D4 48 45 52 45 20 49 53 20 41 20 46 49 4C 45 20 |.HERE IS A FILE |
00000330: 41 43 43 45 53 53 20 50 52 4F 42 4C 45 4D 3A 22 |ACCESS PROBLEM:"|
00000340: 52 24 3B 44 3B 45 24 3A A0 31 35 3A 89 31 31 30 |R$;D;E$:.15:.110|
00000350: 30 00 57 0B 08 02 8E 00 9D 0B E8 03 99 22 93 11 |0.W.........."..|
00000360: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 |..HIS PROGRAM IS|
00000370: 20 41 20 44 49 53 4B 20 46 49 4C 45 20 52 45 41 | A DISK FILE REA|
00000380: 44 20 50 52 4F 47 52 41 4D 22 52 24 22 49 54 20 |D PROGRAM"R$"IT |
00000390: 57 49 4C 4C 20 52 45 41 44 20 41 22 3B 00 EA 0B |WILL READ A";...|
000003A0: F2 03 99 22 4E 59 20 12 53 45 51 55 45 4E 54 49 |..."NY .SEQUENTI|
000003B0: 41 4C 92 20 46 49 4C 45 20 4F 4E 20 41 4E 59 22 |AL. FILE ON ANY"|
000003C0: 52 24 22 44 49 53 4B 20 46 4F 52 4D 41 54 54 45 |R$"DISK FORMATTE|
000003D0: 44 20 46 4F 52 20 54 48 45 20 43 2D 36 34 20 4F |D FOR THE C-64 O|
000003E0: 52 20 56 49 43 2D 32 30 2E 22 00 39 0C FC 03 99 |R VIC-20.".9....|
000003F0: 52 24 22 54 4F 20 55 53 45 2C 20 53 49 4D 50 4C |R$"TO USE, SIMPL|
00000400: 59 20 54 59 50 45 20 49 4E 20 54 48 45 20 4E 41 |Y TYPE IN THE NA|
00000410: 4D 45 20 4F 46 20 54 48 45 22 52 24 22 46 49 4C |ME OF THE"R$"FIL|
00000420: 45 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 |E YOU WISH TO SE|
00000430: 45 2E 20 54 48 45 4E 22 3B 00 87 0C 06 04 99 22 |E. THEN";......"|
00000440: 20 43 48 4F 4F 53 45 22 52 24 22 57 48 45 54 48 | CHOOSE"R$"WHETH|
00000450: 45 52 20 59 4F 55 20 57 41 4E 54 20 54 48 45 20 |ER YOU WANT THE |
00000460: 46 49 4C 45 20 53 45 4E 54 20 54 4F 20 54 48 45 |FILE SENT TO THE|
00000470: 22 52 24 22 50 52 49 4E 54 45 52 20 4F 52 20 53 |"R$"PRINTER OR S|
00000480: 43 52 45 45 4E 2E 22 00 D6 0C 10 04 99 52 24 52 |CREEN."......R$R|
00000490: 24 22 57 48 49 4C 45 20 54 48 45 20 46 49 4C 45 |$"WHILE THE FILE|
000004A0: 20 49 53 20 42 45 49 4E 47 20 53 48 4F 57 4E 2C | IS BEING SHOWN,|
000004B0: 20 59 4F 55 20 4D 41 59 22 52 24 22 50 52 45 53 | YOU MAY"R$"PRES|
000004C0: 53 20 41 4E 59 20 4B 45 59 20 28 45 58 43 45 50 |S ANY KEY (EXCEP|
000004D0: 54 20 27 51 22 3B 00 25 0D 1A 04 99 22 27 29 20 |T 'Q";.%...."') |
000004E0: 54 4F 20 46 52 45 45 5A 45 20 54 48 45 20 44 49 |TO FREEZE THE DI|
000004F0: 53 50 4C 41 59 20 28 4F 52 20 50 52 49 4E 54 45 |SPLAY (OR PRINTE|
00000500: 52 29 2E 22 52 24 22 50 52 45 53 53 49 4E 47 20 |R)."R$"PRESSING |
00000510: 27 51 27 20 57 49 4C 4C 20 45 4E 44 20 54 48 45 |'Q' WILL END THE|
00000520: 20 50 52 22 3B 00 33 0D 24 04 99 22 4F 47 52 41 | PR";.3.$.."OGRA|
00000530: 4D 2E 22 00 59 0D 2E 04 99 22 11 11 11 12 50 52 |M.".Y...."....PR|
00000540: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
00000550: 4F 4E 54 49 4E 55 45 92 22 00 6D 0D 38 04 A1 41 |ONTINUE.".m.8..A|
00000560: 24 3A 8B 41 24 B2 22 22 A7 31 30 38 30 00 75 0D |$:.A$."".1080.u.|
00000570: 42 04 89 31 30 00 B4 0D 4C 04 51 B2 30 3A A0 31 |B..10...L.Q.0:.1|
00000580: 3A A0 35 3A 99 52 24 22 11 C4 4F 20 59 4F 55 20 |:.5:.R$"..O YOU |
00000590: 57 49 53 48 20 54 4F 20 52 45 41 44 22 52 24 22 |WISH TO READ"R$"|
000005A0: 41 4E 4F 54 48 45 52 20 46 49 4C 45 20 28 59 2F |ANOTHER FILE (Y/|
000005B0: 4E 29 3F 22 00 CF 0D 56 04 81 41 B2 31 A4 31 35 |N)?"...V..A.1.15|
000005C0: 30 30 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 82 00 |00:.A$:.A$.""...|
000005D0: EC 0D 60 04 8B 41 24 B2 22 59 22 A7 99 C7 28 31 |..`..A$."Y"...(1|
000005E0: 34 37 29 3A 42 24 B2 22 22 3A 89 34 00 01 0E 74 |47):B$."":.4...t|
000005F0: 04 97 38 30 38 2C 32 33 37 3A 99 22 09 91 22 3A |..808,237:."..":|
00000600: 80 00 00 00 11 |..... |
..1....".....SEQUENTIAL FILE READ.":.".H
IT A KEY".W...R$.G(13):.808,239:.B.1.16:
.C.1.50.W....53281,15:.A$:.A$.""..:.:.2.
....B$."":."1. INSTRUCTIONS"......"2.
COPY INFORMATION".G....JA$:. JA$."" . 6.
..... JA$."1". B$." INST."...... JA$."2"
. B$." COPY.INFO"......B$."". . 6.]...."
.YOUR OPTIONS:"R$;R$;R$" <S>CREEN"R$;R$"
<P>RINTER"R$;R$" <?>HELP"R$;.N....R$" <
Q>UIT"......G$:.G$."". 25......G$."Q".11
40......G$."S".60...!..G$."?".1000.B.(..
G$.."P".25.Q.2..1,4,7:Q.1...<..5,8,5,B$.
",S,R":.500.".>.."..PRESS ANY KEY TO PAU
SE,":."PRESS AGAIN TO CO";.G.A.."NTINUE.
":."'Q' ENDS PROGRAM"R$.R.D..#5,F$.`.N..
ST.0.130.O.X..ST.64.300......Q..1..F$;:.
136......1,F$;......A$......A$..""..199.
.....100.A.G..A$."Q".1100.T.H..A$:.A$.""
.200...M..A$."Q".1100...R.....,..1100...
.. 15:.15,8,15:.15,D,E$,F,G.Q....D.0..".
THERE IS A FILE ACCESS PROBLEM:"R$;D;E$:
15:.1100.W.........."...THIS PROGRAM IS
A DISK FILE READ PROGRAM"R$"IT WILL REA
D A";......"NY .SEQUENTIAL. FILE ON ANY"
R$"DISK FORMATTED FOR THE C-64 OR VIC-20
.".9....R$"TO USE, SIMPLY TYPE IN THE NA
ME OF THE"R$"FILE YOU WISH TO SEE. THEN"
;......" CHOOSE"R$"WHETHER YOU WANT THE
FILE SENT TO THE"R$"PRINTER OR SCREEN.".
V....R$R$"WHILE THE FILE IS BEING SHOWN,
YOU MAY"R$"PRESS ANY KEY (EXCEPT 'Q";.%
...."') TO FREEZE THE DISPLAY (OR PRINTE
R)."R$"PRESSING 'Q' WILL END THE PR";.3.
$.."OGRAM.".Y...."....PRESS ANY KEY TO C
ONTINUE.".M.8..A$:.A$."".1080.U.B..10...
L.Q.0: 1: 5:.R$".DO YOU WISH TO READ"R$"
ANOTHER FILE (Y/N)?".O.V..A.1.1500:.A$:.
A$."".....`..A$."Y"..G(147):B$."":.4...T
..808,237:."..":.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL