> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 52 08 01 00 99 22 0E 08 90 12 93 D3 C5 D1 |..R...."........|
00000010: D5 C5 CE D4 C9 C1 CC 20 C6 C9 CC C5 20 D2 C5 C1 |....... .... ...|
00000020: C4 92 22 3A 99 22 12 C3 CF D0 D9 D2 C9 C7 C8 D4 |..":."..........|
00000030: 20 31 39 38 33 20 C2 D9 20 D2 C1 D9 CD CF CE C4 | 1983 .. .......|
00000040: 20 D3 92 22 3A 99 22 11 C8 C9 D4 20 C1 20 CB C5 | ..":.".... . ..|
00000050: D9 22 00 78 08 02 00 52 24 B2 C7 28 31 33 29 3A |.".x...R$..(13):|
00000060: 97 38 30 38 2C 32 33 39 3A 81 42 B2 31 A4 31 36 |.808,239:.B.1.16|
00000070: 3A 81 43 B2 31 A4 35 30 00 97 08 03 00 97 35 33 |:.C.1.50......53|
00000080: 32 38 31 2C 42 3A A1 41 24 3A 8B 41 24 B2 22 22 |281,B:.A$:.A$.""|
00000090: A7 82 3A 82 3A 89 32 00 DA 08 04 00 99 22 11 11 |..:.:.2......"..|
000000A0: D0 4C 45 41 53 45 20 45 4E 54 45 52 20 46 49 4C |.LEASE ENTER FIL|
000000B0: 45 20 4E 41 4D 45 2C 20 4F 52 20 3C 52 45 54 55 |E NAME, OR <RETU|
000000C0: 52 4E 3E 20 46 4F 52 22 3A 99 22 27 4C 49 53 54 |RN> FOR":."'LIST|
000000D0: 49 4E 47 27 22 3A 85 20 42 24 00 F2 08 05 00 8B |ING'":. B$......|
000000E0: 42 24 B2 22 22 A7 42 24 B2 22 4C 49 53 54 49 4E |B$."".B$."LISTIN|
000000F0: 47 22 00 3E 09 0A 00 99 22 93 D9 4F 55 52 20 4F |G".>...."..OUR O|
00000100: 50 54 49 4F 4E 53 3A 22 52 24 3B 52 24 3B 52 24 |PTIONS:"R$;R$;R$|
00000110: 22 20 3C D3 3E 43 52 45 45 4E 22 52 24 3B 52 24 |" <.>CREEN"R$;R$|
00000120: 22 20 3C D0 3E 52 49 4E 54 45 52 22 52 24 3B 52 |" <.>RINTER"R$;R|
00000130: 24 22 20 3C 3F 3E C8 45 4C 50 22 52 24 3B 00 4F |$" <?>.ELP"R$;.O|
00000140: 09 0F 00 99 52 24 22 20 3C D1 3E 55 49 54 22 00 |....R$" <.>UIT".|
00000150: 61 09 19 00 A1 47 24 3A 8B 47 24 B2 22 22 A7 32 |a....G$:.G$."".2|
00000160: 35 00 72 09 1B 00 8B 47 24 B2 22 51 22 A7 31 31 |5.r....G$."Q".11|
00000170: 34 30 00 81 09 1E 00 8B 47 24 B2 22 53 22 89 36 |40......G$."S".6|
00000180: 30 00 92 09 21 00 8B 47 24 B2 22 3F 22 A7 31 30 |0...!..G$."?".10|
00000190: 30 30 00 A2 09 28 00 8B 47 24 B3 B1 22 50 22 A7 |00...(..G$.."P".|
000001A0: 32 35 00 B1 09 32 00 9F 31 2C 34 2C 37 3A 51 B2 |25...2..1,4,7:Q.|
000001B0: 31 00 CB 09 3C 00 9F 35 2C 38 2C 35 2C 42 24 AA |1...<..5,8,5,B$.|
000001C0: 22 2C 53 2C 52 22 3A 8D 35 30 30 00 02 0A 3E 00 |",S,R":.500...>.|
000001D0: 99 22 93 11 D0 52 45 53 53 20 41 4E 59 20 4B 45 |."...RESS ANY KE|
000001E0: 59 20 54 4F 20 50 41 55 53 45 2C 22 3A 99 22 50 |Y TO PAUSE,":."P|
000001F0: 52 45 53 53 20 41 47 41 49 4E 20 54 4F 20 43 4F |RESS AGAIN TO CO|
00000200: 22 3B 00 27 0A 41 00 99 22 4E 54 49 4E 55 45 2E |";.'.A.."NTINUE.|
00000210: 22 3A 99 22 27 51 27 20 45 4E 44 53 20 50 52 4F |":."'Q' ENDS PRO|
00000220: 47 52 41 4D 22 52 24 00 32 0A 64 00 A1 23 35 2C |GRAM"R$.2.d..#5,|
00000230: 46 24 00 40 0A 6E 00 8B 53 54 B2 30 A7 31 33 30 |F$.@.n..ST.0.130|
00000240: 00 4F 0A 78 00 8B 53 54 B2 36 34 A7 33 30 30 00 |.O.x..ST.64.300.|
00000250: 63 0A 82 00 8B 51 B3 B1 31 A7 99 46 24 3B 3A 89 |c....Q..1..F$;:.|
00000260: 31 33 36 00 6E 0A 87 00 98 31 2C 46 24 3B 00 76 |136.n....1,F$;.v|
00000270: 0A 88 00 A1 41 24 00 87 0A 89 00 8B 41 24 B3 B1 |....A$......A$..|
00000280: 22 22 A7 8D 31 39 39 00 90 0A 8C 00 89 31 30 30 |""..199......100|
00000290: 00 A1 0A C7 00 8B 41 24 B2 22 51 22 A7 31 31 30 |......A$."Q".110|
000002A0: 30 00 B4 0A C8 00 A1 41 24 3A 8B 41 24 B2 22 22 |0......A$:.A$.""|
000002B0: A7 32 30 30 00 C5 0A CD 00 8B 41 24 B2 22 51 22 |.200......A$."Q"|
000002C0: A7 31 31 30 30 00 CB 0A D2 00 8E 00 D5 0A 2C 01 |.1100.........,.|
000002D0: 89 31 31 30 30 00 F3 0A F4 01 A0 31 35 3A 9F 31 |.1100......15:.1|
000002E0: 35 2C 38 2C 31 35 3A 84 31 35 2C 44 2C 45 24 2C |5,8,15:.15,D,E$,|
000002F0: 46 2C 47 00 31 0B FE 01 8B 44 B1 30 A7 99 22 11 |F,G.1....D.0..".|
00000300: D4 48 45 52 45 20 49 53 20 41 20 46 49 4C 45 20 |.HERE IS A FILE |
00000310: 41 43 43 45 53 53 20 50 52 4F 42 4C 45 4D 3A 22 |ACCESS PROBLEM:"|
00000320: 52 24 3B 44 3B 45 24 3A A0 31 35 3A 89 31 31 30 |R$;D;E$:.15:.110|
00000330: 30 00 37 0B 08 02 8E 00 7D 0B E8 03 99 22 93 11 |0.7.....}...."..|
00000340: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 |..HIS PROGRAM IS|
00000350: 20 41 20 44 49 53 4B 20 46 49 4C 45 20 52 45 41 | A DISK FILE REA|
00000360: 44 20 50 52 4F 47 52 41 4D 22 52 24 22 49 54 20 |D PROGRAM"R$"IT |
00000370: 57 49 4C 4C 20 52 45 41 44 20 41 22 3B 00 CA 0B |WILL READ A";...|
00000380: F2 03 99 22 4E 59 20 12 53 45 51 55 45 4E 54 49 |..."NY .SEQUENTI|
00000390: 41 4C 92 20 46 49 4C 45 20 4F 4E 20 41 4E 59 22 |AL. FILE ON ANY"|
000003A0: 52 24 22 44 49 53 4B 20 46 4F 52 4D 41 54 54 45 |R$"DISK FORMATTE|
000003B0: 44 20 46 4F 52 20 54 48 45 20 43 2D 36 34 20 4F |D FOR THE C-64 O|
000003C0: 52 20 56 49 43 2D 32 30 2E 22 00 19 0C FC 03 99 |R VIC-20."......|
000003D0: 52 24 22 54 4F 20 55 53 45 2C 20 53 49 4D 50 4C |R$"TO USE, SIMPL|
000003E0: 59 20 54 59 50 45 20 49 4E 20 54 48 45 20 4E 41 |Y TYPE IN THE NA|
000003F0: 4D 45 20 4F 46 20 54 48 45 22 52 24 22 46 49 4C |ME OF THE"R$"FIL|
00000400: 45 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 |E YOU WISH TO SE|
00000410: 45 2E 20 54 48 45 4E 22 3B 00 67 0C 06 04 99 22 |E. THEN";.g...."|
00000420: 20 43 48 4F 4F 53 45 22 52 24 22 57 48 45 54 48 | CHOOSE"R$"WHETH|
00000430: 45 52 20 59 4F 55 20 57 41 4E 54 20 54 48 45 20 |ER YOU WANT THE |
00000440: 46 49 4C 45 20 53 45 4E 54 20 54 4F 20 54 48 45 |FILE SENT TO THE|
00000450: 22 52 24 22 50 52 49 4E 54 45 52 20 4F 52 20 53 |"R$"PRINTER OR S|
00000460: 43 52 45 45 4E 2E 22 00 B6 0C 10 04 99 52 24 52 |CREEN."......R$R|
00000470: 24 22 57 48 49 4C 45 20 54 48 45 20 46 49 4C 45 |$"WHILE THE FILE|
00000480: 20 49 53 20 42 45 49 4E 47 20 53 48 4F 57 4E 2C | IS BEING SHOWN,|
00000490: 20 59 4F 55 20 4D 41 59 22 52 24 22 50 52 45 53 | YOU MAY"R$"PRES|
000004A0: 53 20 41 4E 59 20 4B 45 59 20 28 45 58 43 45 50 |S ANY KEY (EXCEP|
000004B0: 54 20 27 51 22 3B 00 05 0D 1A 04 99 22 27 29 20 |T 'Q";......"') |
000004C0: 54 4F 20 46 52 45 45 5A 45 20 54 48 45 20 44 49 |TO FREEZE THE DI|
000004D0: 53 50 4C 41 59 20 28 4F 52 20 50 52 49 4E 54 45 |SPLAY (OR PRINTE|
000004E0: 52 29 2E 22 52 24 22 50 52 45 53 53 49 4E 47 20 |R)."R$"PRESSING |
000004F0: 27 51 27 20 57 49 4C 4C 20 45 4E 44 20 54 48 45 |'Q' WILL END THE|
00000500: 20 50 52 22 3B 00 13 0D 24 04 99 22 4F 47 52 41 | PR";...$.."OGRA|
00000510: 4D 2E 22 00 39 0D 2E 04 99 22 11 11 11 12 50 52 |M.".9...."....PR|
00000520: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
00000530: 4F 4E 54 49 4E 55 45 92 22 00 4D 0D 38 04 A1 41 |ONTINUE.".M.8..A|
00000540: 24 3A 8B 41 24 B2 22 22 A7 31 30 38 30 00 55 0D |$:.A$."".1080.U.|
00000550: 42 04 89 31 30 00 94 0D 4C 04 51 B2 30 3A A0 31 |B..10...L.Q.0:.1|
00000560: 3A A0 35 3A 99 52 24 22 11 C4 4F 20 59 4F 55 20 |:.5:.R$"..O YOU |
00000570: 57 49 53 48 20 54 4F 20 52 45 41 44 22 52 24 22 |WISH TO READ"R$"|
00000580: 41 4E 4F 54 48 45 52 20 46 49 4C 45 20 28 59 2F |ANOTHER FILE (Y/|
00000590: 4E 29 3F 22 00 AF 0D 56 04 81 41 B2 31 A4 31 35 |N)?"...V..A.1.15|
000005A0: 30 30 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 82 00 |00:.A$:.A$.""...|
000005B0: CC 0D 60 04 8B 41 24 B2 22 59 22 A7 99 C7 28 31 |..`..A$."Y"...(1|
000005C0: 34 37 29 3A 42 24 B2 22 22 3A 89 34 00 E1 0D 74 |47):B$."":.4...t|
000005D0: 04 97 38 30 38 2C 32 33 37 3A 99 22 09 91 22 3A |..808,237:."..":|
000005E0: 80 00 00 00 11 |..... |
..R....".....SEQUENTIAL FILE READ.":.".C
OPYRIGHT 1983 BY RAYMOND S.":.".HIT A KE
Y".X...R$.G(13):.808,239:.B.1.16:.C.1.50
......53281,B:.A$:.A$.""..:.:.2.Z...."..
PLEASE ENTER FILE NAME, OR <RETURN> FOR"
:."'LISTING'":. B$......B$."".B$."LISTIN
G".>....".YOUR OPTIONS:"R$;R$;R$" <S>CRE
EN"R$;R$" <P>RINTER"R$;R$" <?>HELP"R$;.O
....R$" <Q>UIT".A....G$:.G$."".25.R....G
$."Q".1140......G$."S".60...!..G$."?".10
00...(..G$.."P".25...2..1,4,7:Q.1.K.<..5
,8,5,B$.",S,R":.500...>.."..PRESS ANY KE
Y TO PAUSE,":."PRESS AGAIN TO CO";.'.A..
"NTINUE.":."'Q' ENDS PROGRAM"R$.2.D..#5,
F$.@.N..ST.0.130.O.X..ST.64.300.C....Q..
1..F$;:.136.N....1,F$;.V....A$......A$..
""..199......100...G..A$."Q".1100...H..A
$:.A$."".200.E.M..A$."Q".1100.K.R...U.,.
.1100..... 15:.15,8,15:.15,D,E$,F,G.1...
.D.0..".THERE IS A FILE ACCESS PROBLEM:"
R$;D;E$: 15:.1100.7.....}...."...THIS PR
OGRAM IS A DISK FILE READ PROGRAM"R$"IT
WILL READ A";.J...."NY .SEQUENTIAL. FILE
ON ANY"R$"DISK FORMATTED FOR THE C-64 O
R VIC-20."......R$"TO USE, SIMPLY TYPE I
N THE NAME OF THE"R$"FILE YOU WISH TO SE
E. THEN";.G...." CHOOSE"R$"WHETHER YOU W
ANT THE FILE SENT TO THE"R$"PRINTER OR S
CREEN."......R$R$"WHILE THE FILE IS BEIN
G SHOWN, YOU MAY"R$"PRESS ANY KEY (EXCEP
T 'Q";......"') TO FREEZE THE DISPLAY (O
R PRINTER)."R$"PRESSING 'Q' WILL END THE
PR";...$.."OGRAM.".9...."....PRESS ANY
KEY TO CONTINUE.".M.8..A$:.A$."".1080.U.
B..10...L.Q.0: 1: 5:.R$".DO YOU WISH TO
READ"R$"ANOTHER FILE (Y/N)?"...V..A.1.15
00:.A$:.A$.""...L.`..A$."Y"..G(147):B$."
":.4...T..808,237:."..":.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL