> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 9C 3A 97 35 33 32 38 30 2C 30 |.......:.53280,0|
00000010: 3A 97 35 33 32 38 31 2C 30 3A 99 22 05 93 22 00 |:.53281,0:."..".|
00000020: 3F 08 0F 00 99 22 11 20 53 45 51 55 45 4E 54 49 |?....". SEQUENTI|
00000030: 41 4C 20 46 49 4C 45 20 4C 49 53 54 45 52 22 00 |AL FILE LISTER".|
00000040: 69 08 14 00 99 22 11 11 20 46 52 4F 4D 20 44 49 |i....".. FROM DI|
00000050: 53 4B 20 4F 52 20 54 41 50 45 20 28 44 2F 54 29 |SK OR TAPE (D/T)|
00000060: 20 3F 20 44 9D 9D 9D 22 3B 00 85 08 1E 00 85 56 | ? D...";......V|
00000070: 24 3A 8B 56 24 B2 22 54 22 A7 55 B2 31 3A 41 B2 |$:.V$."T".U.1:A.|
00000080: 30 3A 89 39 30 00 9E 08 28 00 8B 56 24 B3 B1 22 |0:.90...(..V$.."|
00000090: 44 22 A7 99 22 91 91 91 22 3A 89 20 32 30 00 C5 |D".."...":. 20..|
000000A0: 08 32 00 99 22 11 20 44 49 53 4B 20 55 4E 49 54 |.2..". DISK UNIT|
000000B0: 20 4E 52 20 28 38 2D 31 35 29 20 3F 20 38 20 9D | NR (8-15) ? 8 .|
000000C0: 9D 9D 9D 22 3B 00 E1 08 3C 00 85 55 3A 8B 55 B3 |...";...<..U:.U.|
000000D0: 38 B0 55 B1 31 35 A7 99 22 91 91 91 22 3A 89 35 |8.U.15.."...":.5|
000000E0: 30 00 06 09 46 00 99 22 11 20 44 49 53 4B 20 44 |0...F..". DISK D|
000000F0: 52 49 56 45 20 4E 52 20 28 30 2F 31 29 20 3F 20 |RIVE NR (0/1) ? |
00000100: 30 9D 9D 9D 22 3B 00 21 09 50 00 85 4E 3A 8B 4E |0...";.!.P..N:.N|
00000110: B3 30 B0 4E B1 31 A7 99 22 91 91 91 22 3A 89 37 |.0.N.1.."...":.7|
00000120: 30 00 4D 09 5A 00 99 22 11 20 54 4F 20 53 43 52 |0.M.Z..". TO SCR|
00000130: 45 45 4E 20 4F 52 20 50 52 49 4E 54 45 52 20 28 |EEN OR PRINTER (|
00000140: 53 2F 50 29 20 3F 20 53 9D 9D 9D 22 3B 00 66 09 |S/P) ? S...";.f.|
00000150: 64 00 85 50 24 3A 8B 50 24 B2 22 53 22 A7 44 B2 |d..P$:.P$."S".D.|
00000160: 33 3A 89 31 35 30 00 7F 09 6E 00 8B 50 24 B3 B1 |3:.150...n..P$..|
00000170: 22 50 22 A7 99 22 91 91 91 22 3A 89 31 30 30 00 |"P".."...":.100.|
00000180: AA 09 78 00 99 22 11 20 50 52 49 4E 54 45 52 20 |..x..". PRINTER |
00000190: 44 45 56 49 43 45 20 4E 52 20 28 32 2F 34 2D 36 |DEVICE NR (2/4-6|
000001A0: 29 20 3F 20 34 9D 9D 9D 22 3B 00 BA 09 82 00 85 |) ? 4...";......|
000001B0: 44 3A 8B 44 B2 32 A7 31 35 30 00 D3 09 8C 00 8B |D:.D.2.150......|
000001C0: 44 B3 34 B0 44 B1 36 A7 99 22 91 91 91 22 3A 89 |D.4.D.6.."...":.|
000001D0: 31 32 30 00 F9 09 96 00 99 22 93 11 11 20 46 49 |120......"... FI|
000001E0: 4C 45 2D 4E 41 4D 45 20 54 4F 20 4C 49 53 54 20 |LE-NAME TO LIST |
000001F0: 28 4F 52 20 45 4E 44 29 22 00 1D 0A A0 00 85 22 |(OR END)"......"|
00000200: 20 3F 20 45 4E 44 9D 9D 9D 9D 9D 22 3B 46 24 3A | ? END.....";F$:|
00000210: 8B 46 24 B2 22 45 4E 44 22 A7 33 32 30 00 39 0A |.F$."END".320.9.|
00000220: AA 00 46 24 B2 C8 28 46 24 2C 31 36 29 3A 8B 56 |..F$..(F$,16):.V|
00000230: 24 B2 22 44 22 A7 31 39 30 00 6C 0A B4 00 99 22 |$."D".190.l...."|
00000240: 11 11 20 50 55 54 20 54 41 52 47 45 54 20 54 41 |.. PUT TARGET TA|
00000250: 50 45 20 49 4E 20 44 52 49 56 45 20 41 4E 44 20 |PE IN DRIVE AND |
00000260: 52 45 57 49 4E 44 22 3A 89 32 31 30 00 9A 0A BE |REWIND":.210....|
00000270: 00 99 22 11 11 20 50 55 54 20 54 41 52 47 45 54 |..".. PUT TARGET|
00000280: 20 44 49 53 4B 20 49 4E 20 55 4E 49 54 22 3B 55 | DISK IN UNIT";U|
00000290: 3B 22 44 52 49 56 45 22 3B 4E 00 B6 0A C8 00 46 |;"DRIVE";N.....F|
000002A0: 24 B2 C9 28 C4 28 4E 29 2C 31 29 AA 22 3A 22 AA |$..(.(N),1).":".|
000002B0: 46 24 3A 41 B2 32 00 E4 0A D2 00 8B 50 24 B2 22 |F$:A.2......P$."|
000002C0: 50 22 A7 99 22 20 52 45 41 44 59 20 50 52 49 4E |P".." READY PRIN|
000002D0: 54 45 52 20 41 4E 44 20 41 4C 49 47 4E 20 50 41 |TER AND ALIGN PA|
000002E0: 50 45 52 22 00 0B 0B DC 00 99 22 20 54 48 45 4E |PER"......" THEN|
000002F0: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 | PRESS ANY KEY T|
00000300: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 1E 0B E6 00 |O CONTINUE".....|
00000310: A1 41 24 3A 8B 41 24 B2 22 22 A7 32 33 30 00 3A |.A$:.A$."".230.:|
00000320: 0B F0 00 9F 31 2C 55 2C 41 2C 46 24 3A 9F 34 2C |....1,U,A,F$:.4,|
00000330: 44 3A 43 24 B2 C7 28 31 33 29 00 56 0B FA 00 98 |D:C$..(13).V....|
00000340: 34 2C 22 93 20 4C 49 53 54 49 4E 47 20 4F 46 3A |4,". LISTING OF:|
00000350: 20 20 22 3B 46 24 00 78 0B 04 01 A1 23 31 2C 41 | ";F$.x....#1,A|
00000360: 24 3A 45 B2 53 54 3A 8B 44 B2 33 A7 8B 41 24 B2 |$:E.ST:.D.3..A$.|
00000370: 22 93 22 A7 8D 33 33 30 00 8C 0B 0E 01 98 34 2C |"."..330......4,|
00000380: 41 24 3B 3A 8B 45 B2 30 A7 32 36 30 00 A9 0B 18 |A$;:.E.0.260....|
00000390: 01 8B 45 B3 B1 36 34 A7 98 34 2C 22 11 20 52 45 |..E..64..4,". RE|
000003A0: 41 44 20 45 52 52 4F 52 22 00 D1 0B 22 01 98 34 |AD ERROR"..."..4|
000003B0: 2C 43 24 3B 43 24 3B 22 20 45 4E 44 20 4F 46 20 |,C$;C$;" END OF |
000003C0: 46 49 4C 45 3A 20 20 22 3B 46 24 3A A0 34 3A A0 |FILE: ";F$:.4:.|
000003D0: 31 00 FA 0B 2C 01 99 22 11 20 4C 49 53 54 20 41 |1...,..". LIST A|
000003E0: 4E 4F 54 48 45 52 20 46 49 4C 45 20 28 59 2F 4E |NOTHER FILE (Y/N|
000003F0: 29 20 3F 20 59 9D 9D 9D 22 3B 00 0E 0C 36 01 85 |) ? Y...";...6..|
00000400: 41 24 3A 8B 41 24 B2 22 59 22 A7 31 35 30 00 1A |A$:.A$."Y".150..|
00000410: 0C 40 01 99 22 93 22 3B 3A 80 00 3C 0C 4A 01 98 |.@..".";:..<.J..|
00000420: 34 2C 43 24 22 20 50 52 45 53 53 20 41 4E 59 20 |4,C$" PRESS ANY |
00000430: 4B 45 59 20 54 4F 20 43 4F 4E 54 22 00 50 0C 54 |KEY TO CONT".P.T|
00000440: 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 20 33 34 30 |..K$:.K$."". 340|
00000450: 00 56 0C 5E 01 8E 00 00 00 |.V.^..... |
.......:.53280,0:.53281,0:."..".?....".
SEQUENTIAL FILE LISTER".I....".. FROM DI
SK OR TAPE (D/T) ? D...";......V$:.V$."T
".U.1:A.0:.90...(..V$.."D".."...":. 20.E
.2..". DISK UNIT NR (8-15) ? 8 ....";...
<..U:.U.8.U.15.."...":.50...F..". DISK D
RIVE NR (0/1) ? 0...";.!.P..N:.N.0.N.1..
"...":.70.M.Z..". TO SCREEN OR PRINTER (
S/P) ? S...";.F.D..P$:.P$."S".D.3:.150.
.N..P$.."P".."...":.100...X..". PRINTER
DEVICE NR (2/4-6) ? 4...";......D:.D.2.1
50.S....D.4.D.6.."...":.120......"... FI
LE-NAME TO LIST (OR END)"... .." ? END..
...";F$:.F$."END".320.9...F$.H(F$,16):.V
$."D".190.L....".. PUT TARGET TAPE IN DR
IVE AND REWIND":.210......".. PUT TARGET
DISK IN UNIT";U;"DRIVE";N...H.F$.I(D(N)
,1).":".F$:A.2...R..P$."P".." READY PRIN
TER AND ALIGN PAPER"......" THEN PRESS A
NY KEY TO CONTINUE"......A$:.A$."".230.:
....1,U,A,F$:.4,D:C$.G(13).V....4,". LIS
TING OF: ";F$.X....#1,A$:E.ST:.D.3..A$.
"."..330......4,A$;:.E.0.260......E..64.
.4,". READ ERROR".Q."..4,C$;C$;" END OF
FILE: ";F$: 4: 1...,..". LIST ANOTHER F
ILE (Y/N) ? Y...";...6..A$:.A$."Y".150..
.@..".";:..<.J..4,C$" PRESS ANY KEY TO C
ONT".P.T..K$:.K$."". 340.V.^.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL