00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 |
00000020: 49 53 53 55 45 20 30 36 20 50 41 47 45 20 34 35 |ISSUE 06 PAGE 45|
00000030: 00 51 04 64 00 8F 20 2A 2A 2A 20 44 49 52 45 43 |.Q.d.. *** DIREC|
00000040: 54 4F 52 59 20 54 59 50 45 20 54 57 4F 20 2A 2A |TORY TYPE TWO **|
00000050: 2A 00 75 04 69 00 4B 42 B2 31 35 38 20 3A 8F 20 |*.u.i.KB.158 :. |
00000060: 44 45 46 41 55 4C 54 53 20 54 4F 20 42 41 53 49 |DEFAULTS TO BASI|
00000070: 43 20 34 2E 30 00 95 04 6E 00 8F 20 2A 20 56 49 |C 4.0...n.. * VI|
00000080: 43 32 30 20 2B 20 43 36 34 20 20 20 20 2D 20 4B |C20 + C64 - K|
00000090: 42 3D 31 39 38 00 C9 04 73 00 85 22 D0 4C 45 41 |B=198...s..".LEA|
000000A0: 53 45 20 D3 50 45 43 49 46 59 20 C4 52 49 56 45 |SE .PECIFY .RIVE|
000000B0: 20 CE 55 4D 42 45 52 20 C6 4F 52 20 C4 49 52 45 | .UMBER .OR .IRE|
000000C0: 43 54 4F 52 59 22 3B 44 52 00 DF 04 78 00 8B 44 |CTORY";DR...x..D|
000000D0: 52 B3 30 20 B0 20 44 52 B1 31 20 A7 31 31 35 00 |R.0 . DR.1 .115.|
000000E0: 0F 05 7D 00 4E 24 B2 C7 28 30 29 3A 48 B2 32 35 |..}.N$..(0):H.25|
000000F0: 36 3A 97 28 4B 42 29 2C 30 3A 9F 31 2C 38 2C 30 |6:.(KB),0:.1,8,0|
00000100: 2C 22 24 22 AA CA 28 C4 28 44 52 29 2C 32 29 00 |,"$"..(.(DR),2).|
00000110: 1D 05 82 00 A1 23 31 2C 41 24 2C 41 24 00 3A 05 |.....#1,A$,A$.:.|
00000120: 87 00 A1 23 31 2C 41 24 2C 41 24 2C 41 24 2C 41 |...#1,A$,A$,A$,A|
00000130: 31 24 3A 8B 53 54 A7 31 36 30 00 55 05 8C 00 99 |1$:.ST.160.U....|
00000140: C6 28 41 24 AA 4E 24 29 AA C6 28 41 31 24 AA 4E |.(A$.N$)..(A1$.N|
00000150: 24 29 AC 48 3B 00 81 05 91 00 8B C2 28 4B 42 29 |$).H;.......(KB)|
00000160: A7 31 36 30 3A 8F 20 2A 20 49 46 20 4B 45 59 20 |.160:. * IF KEY |
00000170: 50 52 45 53 53 45 44 20 2F 20 41 42 4F 52 54 20 |PRESSED / ABORT |
00000180: 2A 00 9E 05 96 00 A1 23 31 2C 41 24 3A 8B 41 24 |*......#1,A$:.A$|
00000190: B3 B1 22 22 A7 99 41 24 3B 3A 89 31 35 30 00 A9 |..""..A$;:.150..|
000001A0: 05 9B 00 99 3A 89 31 33 35 00 BA 05 A0 00 A0 31 |....:.135......1|
000001B0: 3A 97 28 4B 42 29 2C 30 3A 8E 00 00 00 |:.(KB),0:.... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
PAGE 45.Q.D.. *** DIRECTORY TYPE TWO **
*.U.I.KB.158 :. DEFAULTS TO BASIC 4.0...
N.. * VIC20 + C64 - KB=198.I.S.."PLEA
SE SPECIFY DRIVE NUMBER FOR DIRECTORY";D
R...X..DR.0 . DR.1 .115...}.N$.G(0):H.25
6:.(KB),0:.1,8,0,"$".J(D(DR),2)......#1,
A$,A$.:....#1,A$,A$,A$,A1$:.ST.160.U....
F(A$.N$).F(A1$.N$).H;......B(KB).160:. *
IF KEY PRESSED / ABORT *......#1,A$:.A$
..""..A$;:.150......:.135... . 1:.(KB),0
:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL