00000000: 01 04 23 08 0A 00 99 20 22 93 11 20 53 45 51 55 |..#.... ".. SEQU|
00000010: 45 4E 54 49 41 4C 20 46 49 4C 45 20 4C 49 53 54 |ENTIAL FILE LIST|
00000020: 45 52 22 00 4E 08 14 00 99 20 22 11 11 20 46 52 |ER".N.... ".. FR|
00000030: 4F 4D 20 44 49 53 4B 20 4F 52 20 54 41 50 45 20 |OM DISK OR TAPE |
00000040: 28 44 2F 54 29 20 3F 20 44 9D 9D 9D 22 3B 00 72 |(D/T) ? D...";.r|
00000050: 08 1E 00 85 20 56 24 3A 20 8B 20 56 24 B2 22 54 |.... V$: . V$."T|
00000060: 22 20 A7 20 55 B2 31 3A 20 41 B2 30 3A 20 89 20 |" . U.1: A.0: . |
00000070: 39 30 00 8F 08 28 00 8B 20 56 24 B3 B1 22 44 22 |90...(.. V$.."D"|
00000080: A7 20 99 20 22 91 91 91 22 3A 20 89 20 32 30 00 |. . "...": . 20.|
00000090: B7 08 32 00 99 20 22 11 20 44 49 53 4B 20 55 4E |..2.. ". DISK UN|
000000A0: 49 54 20 4E 52 20 28 38 2D 31 35 29 20 3F 20 38 |IT NR (8-15) ? 8|
000000B0: 20 9D 9D 9D 9D 22 3B 00 DD 08 3C 00 85 20 55 3A | ....";...<.. U:|
000000C0: 20 8B 20 55 B3 38 20 B0 20 55 B1 31 35 20 A7 20 | . U.8 . U.15 . |
000000D0: 99 20 22 91 91 91 22 3A 20 89 20 35 30 00 03 09 |. "...": . 50...|
000000E0: 46 00 99 20 22 11 20 44 49 53 4B 20 44 52 49 56 |F.. ". DISK DRIV|
000000F0: 45 20 4E 52 20 28 30 2F 31 29 20 3F 20 30 9D 9D |E NR (0/1) ? 0..|
00000100: 9D 22 3B 00 28 09 50 00 85 20 4E 3A 20 8B 20 4E |.";.(.P.. N: . N|
00000110: B3 30 20 B0 20 4E B1 31 20 A7 20 99 20 22 91 91 |.0 . N.1 . . "..|
00000120: 91 22 3A 20 89 20 37 30 00 55 09 5A 00 99 20 22 |.": . 70.U.Z.. "|
00000130: 11 20 54 4F 20 53 43 52 45 45 4E 20 4F 52 20 50 |. TO SCREEN OR P|
00000140: 52 49 4E 54 45 52 20 28 53 2F 50 29 20 3F 20 53 |RINTER (S/P) ? S|
00000150: 9D 9D 9D 22 3B 00 75 09 64 00 85 20 50 24 3A 20 |...";.u.d.. P$: |
00000160: 8B 20 50 24 B2 22 53 22 20 A7 20 44 B2 33 3A 20 |. P$."S" . D.3: |
00000170: 89 20 31 35 30 00 93 09 6E 00 8B 20 50 24 B3 B1 |. 150...n.. P$..|
00000180: 22 50 22 A7 20 99 20 22 91 91 91 22 3A 20 89 20 |"P". . "...": . |
00000190: 31 30 30 00 BF 09 78 00 99 20 22 11 20 50 52 49 |100...x.. ". PRI|
000001A0: 4E 54 45 52 20 44 45 56 49 43 45 20 4E 52 20 28 |NTER DEVICE NR (|
000001B0: 32 2F 34 2D 36 29 20 3F 20 34 9D 9D 9D 22 3B 00 |2/4-6) ? 4...";.|
000001C0: D4 09 82 00 85 20 44 3A 20 8B 20 44 B2 32 20 A7 |..... D: . D.2 .|
000001D0: 20 31 35 30 00 F5 09 8C 00 8B 20 44 B3 34 20 B0 | 150...... D.4 .|
000001E0: 20 44 B1 36 20 A7 20 99 20 22 91 91 91 22 3A 20 | D.6 . . "...": |
000001F0: 89 20 31 32 30 00 1C 0A 96 00 99 20 22 93 11 11 |. 120...... "...|
00000200: 20 46 49 4C 45 2D 4E 41 4D 45 20 54 4F 20 4C 49 | FILE-NAME TO LI|
00000210: 53 54 20 28 4F 52 20 45 4E 44 29 22 00 45 0A A0 |ST (OR END)".E..|
00000220: 00 85 20 22 20 3F 20 45 4E 44 9D 9D 9D 9D 9D 22 |.. " ? END....."|
00000230: 3B 46 24 3A 20 8B 20 46 24 B2 22 45 4E 44 22 20 |;F$: . F$."END" |
00000240: A7 20 33 32 30 00 65 0A AA 00 46 24 B2 C8 28 46 |. 320.e...F$..(F|
00000250: 24 2C 31 36 29 3A 20 8B 20 56 24 B2 22 44 22 20 |$,16): . V$."D" |
00000260: A7 20 31 39 30 00 9B 0A B4 00 99 20 22 11 11 20 |. 190...... ".. |
00000270: 50 55 54 20 54 41 52 47 45 54 20 54 41 50 45 20 |PUT TARGET TAPE |
00000280: 49 4E 20 44 52 49 56 45 20 41 4E 44 20 52 45 57 |IN DRIVE AND REW|
00000290: 49 4E 44 22 3A 20 89 20 32 31 30 00 CA 0A BE 00 |IND": . 210.....|
000002A0: 99 20 22 11 11 20 50 55 54 20 54 41 52 47 45 54 |. ".. PUT TARGET|
000002B0: 20 44 49 53 4B 20 49 4E 20 55 4E 49 54 22 3B 55 | DISK IN UNIT";U|
000002C0: 3B 22 44 52 49 56 45 22 3B 4E 00 E7 0A C8 00 46 |;"DRIVE";N.....F|
000002D0: 24 B2 C9 28 C4 28 4E 29 2C 31 29 AA 22 3A 22 AA |$..(.(N),1).":".|
000002E0: 46 24 3A 20 41 B2 32 00 19 0B D2 00 8B 20 50 24 |F$: A.2...... P$|
000002F0: B2 22 50 22 20 A7 20 99 20 22 20 52 45 41 44 59 |."P" . . " READY|
00000300: 20 50 52 49 4E 54 45 52 20 41 4E 44 20 41 4C 49 | PRINTER AND ALI|
00000310: 47 4E 20 50 41 50 45 52 22 00 41 0B DC 00 99 20 |GN PAPER".A.... |
00000320: 22 20 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 |" THEN PRESS ANY|
00000330: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000340: 22 00 59 0B E6 00 A1 20 41 24 3A 20 8B 20 41 24 |".Y.... A$: . A$|
00000350: B2 22 22 20 A7 20 32 33 30 00 79 0B F0 00 9F 20 |."" . 230.y.... |
00000360: 31 2C 55 2C 41 2C 46 24 3A 20 9F 20 34 2C 44 3A |1,U,A,F$: . 4,D:|
00000370: 20 43 24 B2 C7 28 31 33 29 00 95 0B FA 00 98 34 | C$..(13)......4|
00000380: 2C 22 93 20 4C 49 53 54 49 4E 47 20 4F 46 3A 20 |,". LISTING OF: |
00000390: 20 22 3B 46 24 00 C0 0B 04 01 A1 23 31 2C 41 24 | ";F$......#1,A$|
000003A0: 3A 20 45 B2 53 54 3A 20 8B 20 44 B2 33 20 A7 20 |: E.ST: . D.3 . |
000003B0: 8B 20 41 24 B2 22 93 22 20 A7 20 8D 20 33 33 30 |. A$."." . . 330|
000003C0: 00 D9 0B 0E 01 98 34 2C 20 41 24 3B 3A 20 8B 20 |......4, A$;: . |
000003D0: 45 B2 30 20 A7 20 32 36 30 00 F9 0B 18 01 8B 20 |E.0 . 260...... |
000003E0: 45 B3 B1 36 34 20 A7 20 98 34 2C 22 11 20 52 45 |E..64 . .4,". RE|
000003F0: 41 44 20 45 52 52 4F 52 22 00 25 0C 22 01 98 34 |AD ERROR".%."..4|
00000400: 2C 43 24 3B 43 24 3B 22 20 45 4E 44 20 4F 46 20 |,C$;C$;" END OF |
00000410: 46 49 4C 45 3A 20 20 22 3B 46 24 3A 20 A0 20 34 |FILE: ";F$: . 4|
00000420: 3A 20 A0 20 31 00 4F 0C 2C 01 99 20 22 11 20 4C |: . 1.O.,.. ". L|
00000430: 49 53 54 20 41 4E 4F 54 48 45 52 20 46 49 4C 45 |IST ANOTHER FILE|
00000440: 20 28 59 2F 4E 29 20 BF 20 59 9D 9D 9D 22 3B 00 | (Y/N) . Y...";.|
00000450: 68 0C 36 01 85 20 41 24 3A 20 8B 20 41 24 B2 22 |h.6.. A$: . A$."|
00000460: 59 22 20 A7 20 31 35 30 00 76 0C 40 01 99 20 22 |Y" . 150.v.@.. "|
00000470: 93 22 3B 3A 20 80 00 98 0C 4A 01 98 34 2C 43 24 |.";: ....J..4,C$|
00000480: 22 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |" PRESS ANY KEY |
00000490: 54 4F 20 43 4F 4E 54 22 00 B0 0C 54 01 A1 20 4B |TO CONT"...T.. K|
000004A0: 24 3A 20 8B 20 4B 24 B2 22 22 20 A7 20 33 34 30 |$: . K$."" . 340|
000004B0: 00 B6 0C 5E 01 8E 00 00 00 |...^..... |
..#.... ".. SEQUENTIAL FILE LISTER".N...
. ".. FROM DISK OR TAPE (D/T) ? D...";.R
.... V$: . V$."T" . U.1: A.0: . 90...(..
V$.."D". . "...": . 20...2.. ". DISK UN
IT NR (8-15) ? 8 ....";...<.. U: . U.8 .
U.15 . . "...": . 50...F.. ". DISK DRIV
E NR (0/1) ? 0...";.(.P.. N: . N.0 . N.1
. . "...": . 70.U.Z.. ". TO SCREEN OR P
RINTER (S/P) ? S...";.U.D.. P$: . P$."S"
. D.3: . 150...N.. P$.."P". . "...": .
100...X.. ". PRINTER DEVICE NR (2/4-6) ?
4...";.T.... D: . D.2 . 150...... D.4 .
D.6 . . "...": . 120...... "... FILE-NA
ME TO LIST (OR END)".E. .. " ? END....."
;F$: . F$."END" . 320.E...F$.H(F$,16): .
V$."D" . 190...... ".. PUT TARGET TAPE
IN DRIVE AND REWIND": . 210.J.... ".. PU
T TARGET DISK IN UNIT";U;"DRIVE";N...H.F
$.I(D(N),1).":".F$: A.2...R.. P$."P" . .
" READY PRINTER AND ALIGN PAPER".A....
" THEN PRESS ANY KEY TO CONTINUE".Y....
A$: . A$."" . 230.Y.... 1,U,A,F$: . 4,D:
C$.G(13)......4,". LISTING OF: ";F$...
...#1,A$: E.ST: . D.3 . . A$."." . . 330
.Y....4, A$;: . E.0 . 260...... E..64 .
.4,". READ ERROR".%."..4,C$;C$;" END OF
FILE: ";F$: 4: 1.O.,.. ". LIST ANOT
HER FILE (Y/N) . Y...";.H.6.. A$: . A$."
Y" . 150.V.@.. ".";: ....J..4,C$" PRESS
ANY KEY TO CONT"...T.. K$: . K$."" . 340
...^.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL