Multiple names: DA, DISK DIRECT, MACHINE,  C64.MENU, C64.MENU,  MENU

00000000: 01 08 34 08 0A 00 97 35  33 32 38 30 2C 36 3A 97  |..4....53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A  86 54 42 24 28 31 35 30  |53281,6:.TB$(150|
00000020: 29 3A 99 22 93 22 C7 28  31 34 29 3A 44 49 B2 38  |):.".".(14):DI.8|
00000030: 3A 43 B2 31 00 71 08 14  00 9F 38 2C 44 49 2C 38  |:C.1.q....8,DI,8|
00000040: 2C 22 3A 20 20 20 44 49  52 45 43 54 4F 52 59 20  |,":   DIRECTORY |
00000050: 20 20 22 3A 9F 31 35 2C  44 49 2C 31 35 3A 84 31  |  ":.15,DI,15:.1|
00000060: 35 2C 45 4E 24 2C 45 44  24 2C 45 54 24 2C 45 53  |5,EN$,ED$,ET$,ES|
00000070: 24 00 93 08 1E 00 84 38  2C 44 4E 24 3A 8B 45 4E  |$......8,DN$:.EN|
00000080: 24 B3 B1 22 30 30 22 A7  A0 38 3A A0 31 35 3A 89  |$.."00"..8:.15:.|
00000090: 33 31 30 00 AB 08 28 00  84 38 2C 54 42 24 28 43  |310...(..8,TB$(C|
000000A0: 29 3A 8B 53 54 B2 36 36  A7 37 30 00 E3 08 32 00  |):.ST.66.70...2.|
000000B0: 8B C6 28 C8 28 54 42 24  28 43 29 2C 31 29 29 B2  |..(.(TB$(C),1)).|
000000C0: 31 30 A7 54 42 24 28 43  29 B2 C9 28 54 42 24 28  |10.TB$(C)..(TB$(|
000000D0: 43 29 2C C3 28 54 42 24  28 43 29 29 AB 31 29 3A  |C),.(TB$(C)).1):|
000000E0: 89 35 30 00 F1 08 3C 00  43 B2 43 AA 31 3A 89 34  |.50...<.C.C.1:.4|
000000F0: 30 00 2A 09 46 00 A0 38  3A A0 31 35 3A 4D B2 43  |0.*.F..8:.15:M.C|
00000100: AB 31 3A 54 42 24 28 43  29 B2 22 22 3A 4C 31 24  |.1:TB$(C)."":L1$|
00000110: B2 22 12 22 3A 81 43 B2  31 A4 34 30 3A 4C 31 24  |.".":.C.1.40:L1$|
00000120: B2 4C 31 24 AA 22 20 22  3A 82 00 3E 09 50 00 4C  |.L1$." ":..>.P.L|
00000130: 31 24 B2 4C 31 24 AA 22  92 22 3A 41 B2 31 00 71  |1$.L1$.".":A.1.q|
00000140: 09 5A 00 97 35 33 32 38  31 2C 31 3A 99 22 93 1F  |.Z..53281,1:."..|
00000150: 22 3B 3A 81 43 B2 31 A4  34 3A 99 4C 31 24 3B 3A  |";:.C.1.4:.L1$;:|
00000160: 82 3A 81 43 B2 31 A4 32  3A 99 22 1F 22 4C 31 24  |.:.C.1.2:."."L1$|
00000170: 3B 00 7D 09 5F 00 82 3A  99 22 13 22 3B 00 C2 09  |;.}._..:.".";...|
00000180: 64 00 99 A6 38 29 22 12  1F C4 49 52 45 43 54 4F  |d...8)"...IRECTO|
00000190: 52 59 20 C1 53 53 49 53  54 41 4E 43 45 20 56 36  |RY .SSISTANCE V6|
000001A0: 34 22 A6 31 30 29 22 28  43 29 31 39 38 32 20 20  |4".10)"(C)1982  |
000001B0: C3 CF CD CD CF C4 CF D2  C5 A0 C2 D5 D3 C9 CE C5  |................|
000001C0: 22 3B 00 02 0A 69 00 99  22 D3 D3 A0 CD C1 C3 C8  |";...i..".......|
000001D0: C9 CE C5 D3 22 A6 31 31  29 22 C1 55 54 48 4F 52  |....".11)".UTHOR|
000001E0: 3A 20 CD 49 43 48 41 45  4C 20 D3 43 48 41 46 46  |: .ICHAEL .CHAFF|
000001F0: 22 A6 35 37 29 22 1C 22  44 4E 24 A6 38 29 4C 31  |".57)"."DN$.8)L1|
00000200: 24 3B 00 3F 0A 78 00 81  43 B2 41 A4 41 AA 31 34  |$;.?.x..C.A.A.14|
00000210: 3A 99 22 12 22 C9 28 22  20 20 20 20 22 AA C4 28  |:.".".("    "..(|
00000220: 43 29 2C 35 29 22 92 20  1F 22 54 42 24 28 43 29  |C),5)". ."TB$(C)|
00000230: A6 32 39 AB C3 28 54 42  24 28 43 29 29 29 3B 00  |.29..(TB$(C)));.|
00000240: 57 0A 82 00 99 22 1C 12  20 20 20 20 20 22 3B 3A  |W...."..     ";:|
00000250: 82 3A 99 4C 31 24 3B 00  7B 0A 87 00 81 41 B2 31  |.:.L1$;.{....A.1|
00000260: A4 32 3A 99 22 1F 22 4C  31 24 3B 3A 82 3A 99 C8  |.2:."."L1$;:.:..|
00000270: 28 4C 31 24 2C 34 30 29  22 91 22 00 BA 0A 8C 00  |(L1$,40)".".....|
00000280: 99 A6 39 29 22 12 91 91  C6 31 20 3D 20 43 4F 4E  |..9)"....1 = CON|
00000290: 54 49 4E 55 45 20 4C 49  53 54 49 4E 47 22 A6 31  |TINUE LISTING".1|
000002A0: 39 29 22 C6 33 20 3D 20  43 52 45 41 54 45 20 44  |9)".3 = CREATE D|
000002B0: 49 52 45 43 54 4F 52 59  22 3B 00 F9 0A 96 00 99  |IRECTORY";......|
000002C0: A6 31 39 29 22 C6 35 20  3D 20 45 58 49 54 20 50  |.19)".5 = EXIT P|
000002D0: 52 4F 47 52 41 4D 1F 13  22 3A 97 32 30 32 33 2C  |ROGRAM..":.2023,|
000002E0: 31 36 30 3A 97 35 36 32  39 35 2C 36 3A 97 31 39  |160:.56295,6:.19|
000002F0: 38 2C 30 3A 42 24 B2 22  22 00 0C 0B A0 00 A1 41  |8,0:B$.""......A|
00000300: 24 3A 8B 41 24 B2 22 22  A7 31 36 30 00 1E 0B AA  |$:.A$."".160....|
00000310: 00 8B C6 28 41 24 29 B2  31 33 A7 32 36 30 00 3B  |...(A$).13.260.;|
00000320: 0B B4 00 8B 41 24 B2 22  85 22 A7 32 34 30 3A 8F  |....A$.".".240:.|
00000330: 22 20 46 31 20 2A 2A 2A  2A 2A 2A 00 58 0B BE 00  |" F1 ******.X...|
00000340: 8B 41 24 B2 22 86 22 A7  33 30 30 3A 8F 22 20 46  |.A$.".".300:." F|
00000350: 33 20 2A 2A 2A 2A 2A 2A  00 89 0B C8 00 8B 41 24  |3 ******......A$|
00000360: B2 22 87 22 A7 97 35 33  32 38 30 2C 33 3A 99 22  |."."..53280,3:."|
00000370: 93 11 11 11 1F 52 55 4E  13 22 3A 80 3A 8F 22 20  |.....RUN.":.:." |
00000380: 46 35 20 2A 2A 2A 2A 2A  2A 00 B7 0B D2 00 8B C6  |F5 ******.......|
00000390: 28 41 24 29 B2 32 30 A7  42 24 B2 22 22 3A 99 22  |(A$).20.B$."":."|
000003A0: 13 11 11 11 11 1C 12 20  20 20 92 22 3A 42 24 B2  |.......   .":B$.|
000003B0: 22 22 3A 89 31 36 30 00  D6 0B DC 00 8B 41 24 B3  |"":.160......A$.|
000003C0: 22 30 22 B0 41 24 B1 22  39 22 B0 C3 28 42 24 29  |"0".A$."9"..(B$)|
000003D0: B2 33 A7 31 36 30 00 F4  0B E6 00 42 24 B2 42 24  |.3.160.....B$.B$|
000003E0: AA 41 24 3A 99 22 13 11  11 11 11 1F 22 42 24 3A  |.A$:."......"B$:|
000003F0: 89 31 36 30 00 05 0C F0  00 8B 43 B1 4D A7 41 B2  |.160......C.M.A.|
00000400: 31 3A 89 39 30 00 11 0C  FA 00 41 B2 43 3A 89 39  |1:.90.....A.C:.9|
00000410: 30 00 45 0C 04 01 8B C5  28 42 24 29 B1 4D A7 99  |0.E.....(B$).M..|
00000420: 22 13 11 11 11 11 1F 3F  3F 3F 22 3A 81 43 B2 31  |"......???":.C.1|
00000430: A4 31 35 30 30 3A 82 3A  41 24 B2 C7 28 32 30 29  |.1500:.:A$..(20)|
00000440: 3A 89 32 31 30 00 82 0C  0E 01 97 35 33 32 38 31  |:.210......53281|
00000450: 2C 36 3A 97 35 33 32 38  30 2C 31 34 3A 99 22 92  |,6:.53280,14:.".|
00000460: 93 11 11 11 05 4C 4F 41  44 22 C7 28 33 34 29 54  |.....LOAD".(34)T|
00000470: 42 24 28 C5 28 42 24 29  29 C7 28 33 34 29 22 2C  |B$(.(B$)).(34)",|
00000480: 38 22 00 B0 0C 18 01 8F  20 20 20 50 52 49 4E 54  |8"......   PRINT|
00000490: 52 49 47 48 54 24 28 53  54 52 24 28 44 49 29 2C  |RIGHT$(STR$(DI),|
000004A0: 4C 45 4E 28 53 54 52 24  28 44 49 29 29 2D 31 29  |LEN(STR$(DI))-1)|
000004B0: 00 E3 0C 22 01 99 22 13  22 3A 97 31 39 38 2C 34  |..."..".":.198,4|
000004C0: 3A 97 36 33 31 2C 31 33  3A 97 36 33 32 2C 38 32  |:.631,13:.632,82|
000004D0: 3A 97 36 33 33 2C 32 31  33 3A 97 36 33 34 2C 31  |:.633,213:.634,1|
000004E0: 33 3A 80 00 F5 0C 2C 01  99 22 13 11 11 11 11 1F  |3:....,.."......|
000004F0: 57 41 49 54 22 00 29 0D  36 01 9F 38 2C 44 49 2C  |WAIT".).6..8,DI,|
00000500: 30 2C 22 24 30 22 3A 81  43 B2 31 A4 38 3A A1 23  |0,"$0":.C.1.8:.#|
00000510: 38 2C 41 24 3A 82 3A 43  B2 31 3A 44 4E 24 B2 22  |8,A$:.:C.1:DN$."|
00000520: 22 3A 81 43 B2 31 A4 31  36 00 63 0D 40 01 A1 23  |":.C.1.16.c.@..#|
00000530: 38 2C 41 24 3A 44 4E 24  B2 44 4E 24 AA 41 24 3A  |8,A$:DN$.DN$.A$:|
00000540: 82 3A A1 23 38 2C 41 24  3A A1 23 38 2C 41 24 3A  |.:.#8,A$:.#8,A$:|
00000550: 44 4E 24 B2 44 4E 24 AA  22 20 20 22 3A A1 23 38  |DN$.DN$."  ":.#8|
00000560: 2C 41 24 00 A2 0D 4A 01  44 4E 24 B2 44 4E 24 AA  |,A$...J.DN$.DN$.|
00000570: 41 24 3A A1 23 38 2C 41  24 3A 44 4E 24 B2 44 4E  |A$:.#8,A$:DN$.DN|
00000580: 24 AA 41 24 3A A1 23 38  2C 41 24 3A A1 23 38 2C  |$.A$:.#8,A$:.#8,|
00000590: 41 24 3A 44 4E 24 B2 44  4E 24 AA 22 20 20 22 AA  |A$:DN$.DN$."  ".|
000005A0: 41 24 00 C3 0D 54 01 A1  23 38 2C 41 24 3A 44 4E  |A$...T..#8,A$:DN|
000005B0: 24 B2 44 4E 24 AA 41 24  3A A1 23 38 2C 41 24 3A  |$.DN$.A$:.#8,A$:|
000005C0: 43 B2 31 00 E5 0D 5E 01  81 41 B2 31 A4 34 3A A1  |C.1...^..A.1.4:.|
000005D0: 23 38 2C 41 24 3A 82 3A  50 4E 24 B2 22 22 3A 54  |#8,A$:.:PN$."":T|
000005E0: 59 24 B2 22 22 00 FB 0D  68 01 A1 23 38 2C 41 24  |Y$.""...h..#8,A$|
000005F0: 3A 8B 53 54 B3 B1 30 A7  34 35 30 00 0A 0E 72 01  |:.ST..0.450...r.|
00000600: 8B 41 24 B2 22 22 A7 34  35 30 00 1D 0E 7C 01 8B  |.A$."".450...|..|
00000610: C6 28 41 24 29 B3 B1 33  34 A7 33 36 30 00 43 0E  |.(A$)..34.360.C.|
00000620: 86 01 A1 23 38 2C 41 24  3A 8B C6 28 41 24 29 B3  |...#8,A$:..(A$).|
00000630: B1 33 34 A7 50 4E 24 B2  50 4E 24 AA 41 24 3A 89  |.34.PN$.PN$.A$:.|
00000640: 33 39 30 00 5C 0E 90 01  A1 23 38 2C 41 24 3A 8B  |390.\....#8,A$:.|
00000650: C6 28 41 24 29 B2 33 32  A7 34 30 30 00 7E 0E 9A  |.(A$).32.400.~..|
00000660: 01 54 59 24 B2 54 59 24  AA 41 24 3A A1 23 38 2C  |.TY$.TY$.A$:.#8,|
00000670: 41 24 3A 8B 41 24 B3 B1  22 22 A7 34 31 30 00 97  |A$:.A$.."".410..|
00000680: 0E A4 01 8B C8 28 54 59  24 2C 33 29 B3 B1 22 50  |.....(TY$,3).."P|
00000690: 52 47 22 A7 33 35 30 00  AD 0E AE 01 8B C8 28 50  |RG".350.......(P|
000006A0: 4E 24 2C 31 29 B2 22 20  22 A7 33 35 30 00 CC 0E  |N$,1)." ".350...|
000006B0: B8 01 54 42 24 28 43 29  B2 50 4E 24 3A 43 B2 43  |..TB$(C).PN$:C.C|
000006C0: AA 31 3A 8B 53 54 B2 30  A7 33 35 30 00 F5 0E C2  |.1:.ST.0.350....|
000006D0: 01 A0 38 3A 9F 31 35 2C  44 49 2C 31 35 2C 22 53  |..8:.15,DI,15,"S|
000006E0: 3A 20 20 20 44 49 52 45  43 54 4F 52 59 20 20 20  |:   DIRECTORY   |
000006F0: 22 3A A0 31 35 00 35 0F  CC 01 5A 24 B2 22 DA DA  |":.15.5...Z$."..|
00000700: DA DA DA DA DA DA DA DA  DA DA DA DA DA DA 22 3A  |..............":|
00000710: 9F 38 2C 44 49 2C 38 2C  22 3A 20 20 20 44 49 52  |.8,DI,8,":   DIR|
00000720: 45 43 54 4F 52 59 20 20  20 2C 53 2C 57 22 3A 98  |ECTORY   ,S,W":.|
00000730: 38 2C 44 4E 24 00 60 0F  D6 01 81 41 B2 31 A4 43  |8,DN$.`....A.1.C|
00000740: AB 31 3A 43 24 B2 5A 24  3A 81 42 B2 31 A4 43 AB  |.1:C$.Z$:.B.1.C.|
00000750: 31 3A 8B 43 24 B3 54 42  24 28 42 29 A7 34 39 30  |1:.C$.TB$(B).490|
00000760: 00 72 0F E0 01 43 24 B2  54 42 24 28 42 29 3A 44  |.r...C$.TB$(B):D|
00000770: B2 42 00 93 0F EA 01 82  3A 98 38 2C 43 24 3A 54  |.B......:.8,C$:T|
00000780: 42 24 28 44 29 B2 5A 24  3A 82 3A A0 38 3A 9C 3A  |B$(D).Z$:.:.8:.:|
00000790: 89 31 30 00 00 00                                 |.10...          |

..4....53280,6:.53281,6:.TB$(150):."."G(
14):DI.8:C.1.Q....8,DI,8,":   DIRECTORY 
  ":.15,DI,15:.15,EN$,ED$,ET$,ES$......8
,DN$:.EN$.."00". 8: 15:.310...(..8,TB$(C
):.ST.66.70...2..F(H(TB$(C),1)).10.TB$(C
).I(TB$(C),C(TB$(C)).1):.50...<.C.C.1:.4
0.*.F. 8: 15:M.C.1:TB$(C)."":L1$.".":.C.
1.40:L1$.L1$." ":..>.P.L1$.L1$.".":A.1.Q
.Z..53281,1:."..";:.C.1.4:.L1$;:.:.C.1.2
:."."L1$;.}._..:.".";.B.D...8)"..DIRECTO
RY ASSISTANCE V64".10)"(C)1982  COMMODOR
E BUSINE";...I.."SS MACHINES".11)"AUTHOR
: MICHAEL SCHAFF".57)"."DN$.8)L1$;.?.X..
C.A.A.14:."."I("    ".D(C),5)". ."TB$(C)
.29.C(TB$(C)));.W...."..     ";:.:.L1$;.
{....A.1.2:."."L1$;:.:.H(L1$,40)".".....
..9)"...F1 = CONTINUE LISTING".19)"F3 = 
CREATE DIRECTORY";.......19)"F5 = EXIT P
ROGRAM..":.2023,160:.56295,6:.198,0:B$."
"... ..A$:.A$."".160......F(A$).13.260.;
....A$.".".240:." F1 ******.X....A$.".".
300:." F3 ******...H..A$."."..53280,3:."
.....RUN.":.:." F5 ******...R..F(A$).20.
B$."":.".......   .":B$."":.160.V....A$.
"0".A$."9".C(B$).3.160.....B$.B$.A$:."..
...."B$:.160......C.M.A.1:.90.....A.C:.9
0.E....E(B$).M.."......???":.C.1.1500:.:
A$.G(20):.210......53281,6:.53280,14:.".
.....LOAD"G(34)TB$(E(B$))G(34)",8"......
   PRINTRIGHT$(STR$(DI),LEN(STR$(DI))-1)
..."..".":.198,4:.631,13:.632,82:.633,21
3:.634,13:....,.."......WAIT".).6..8,DI,
0,"$0":.C.1.8:.#8,A$:.:C.1:DN$."":.C.1.1
6.C.@..#8,A$:DN$.DN$.A$:.:.#8,A$:.#8,A$:
DN$.DN$."  ":.#8,A$...J.DN$.DN$.A$:.#8,A
$:DN$.DN$.A$:.#8,A$:.#8,A$:DN$.DN$."  ".
A$.C.T..#8,A$:DN$.DN$.A$:.#8,A$:C.1...^.
.A.1.4:.#8,A$:.:PN$."":TY$.""...H..#8,A$
:.ST..0.450...R..A$."".450...|..F(A$)..3
4.360.C....#8,A$:.F(A$)..34.PN$.PN$.A$:.
390.\....#8,A$:.F(A$).32.400.~...TY$.TY$
.A$:.#8,A$:.A$.."".410......H(TY$,3).."P
RG".350......H(PN$,1)." ".350.L...TB$(C)
.PN$:C.C.1:.ST.0.350...B. 8:.15,DI,15,"S
:   DIRECTORY   ": 15.5.L.Z$."ZZZZZZZZZZ
ZZZZZZ":.8,DI,8,":   DIRECTORY   ,S,W":.
8,DN$.`.V..A.1.C.1:C$.Z$:.B.1.C.1:.C$.TB
$(B).490.R...C$.TB$(B):D.B......:.8,C$:T
B$(D).Z$:.: 8:.:.10...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL