home *** CD-ROM | disk | FTP | other *** search
- 100 REM NEW DIRECTORY FOR THE C-64
- 110 REM 8-2-86 BY KEVIN HISEL
- 120 REM QLINK SIGN ON="KEVINHISEL"
- 130 :
- 140 IF PEEK(49152)=169 THEN IF PEEK(49153)=73 THEN250
- 150 :
- 160 PRINT"[147]JUST A MOMENT..."
- 170 :
- 180 REM READS DATA STATEMENTS
- 190 FOR L = 49152 TO 50166
- 200 READ X
- 210 POKE L, X
- 220 NEXT
- 230 :
- 240 REM SET-UP
- 250 POKE50015,ASC("0"):REM DRIVE NUMBER
- 260 POKE50017,8:REM DEVICE NUMBER
- 270 :
- 280 REM INSTRUCTIONS
- 290 PRINT"[147]THIS IS A DEMO OF A NEW DIRECTORY LIST-
- 300 [153]"ING ROUTINE THAT IS VERY SIMILAR TO
- 310 PRINT"THE STANDARD TYPE THAT ONE SEES WHEN
- 320 [153]"THE DIRECTORY IS LISTED BUT WITH SOME
- 330 PRINT"NEW INFORMATION PROVIDED. THE BLOCKS
- 340 [153]"FREE INFORMATION IS DISPLAYED BEFORE
- 350 PRINT"THE FILES ALONG WITH THE DRIVE NUMBER
- 360 [153]"DEVICE NUMBER AND WHETHER THE DISK IS
- 370 PRINT"SINGLE OR DOUBLE SIDED. AFTER EACH
- 380 [153]"FILE IS DISPLAYED, THE FIRST TRACK
- 390 PRINT"AND SECTOR WHERE THE FILE BEGINS IS
- 400 [153]"DISPLAYED. AT THE END OF THE DIRECTORY,
- 410 PRINT"A TOTAL FILE COUNT AND NUMBER OF
- 420 [153]"BLOCKS USED BY THE FILES IS DISPLAYED.
- 430 PRINT
- 440 PRINT"THIS ROUTINE IS WRITTEN COMPLETELY IN
- 450 [153]"MACHINE LANGUAGE SO IT IS AS FAST AS
- 460 PRINT"THE WEDGE OR OTHER TYPES OF ML
- 470 [153]"DIRECTORY LISTERS. SEE THE INTERNAL
- 480 PRINT"REM STATEMENTS FOR IMPORTANT HINTS
- 490 [153]"ON HOW TO USE IT FROM WITHIN OTHER
- 500 PRINT"BASIC PROGRAMS.
- 510 [153]
- 520 [153]"PRESS ANY KEY TO SEE THE DIRECTORY
- 530 GET A$ :IF A$="" THEN530
- 540 PRINT"[147]"
- 550 :
- 560 REM THIS SYS RUNS THE PROGRAM
- 570 SYS49152
- 580 PRINT:PRINT:PRINT"TYPE SYS49152 FOR THE NEW DIRECTORY"
- 590 END
- 600 :
- 610 REM DATA STATEMENTS
- 620 DATA169,73,141,94,195,169,15,141,98,195,169,2,133,253,32,4,195,169,36
- 630 DATA141,94,195,169,0,141,98,195,169,3,133,253,32,4,195,162,1,32,198,255
- 640 DATA169,34,32,100,194,32,207,255,141,89,195,32,207,255,141,90,195,169,36
- 650 DATA141,94,195,169,2,141,98,195,169,2,133,253,32,4,195,162,1,32,198,255
- 660 DATA32,207,255,32,207,255,141,83,195,169,140,32,100,194,162,0,169,18,32
- 670 DATA210,255,32,75,195,32,207,255,32,210,255,232,224,16,208,245,32,75,195
- 680 DATA32,207,255,32,210,255,232,224,23,208,245,160,0,173,83,195,201,128
- 690 DATA208,10,162,131,160,195,32,51,195,76,153,192,162,125,160,195,32,51
- 700 DATA195,162,137,160,195,32,51,195,169,18,32,210,255,162,148,160,195,32
- 710 DATA51,195,169,1,32,147,194,173,89,195,174,90,195,141,84,195,142,85,195
- 720 DATA32,159,194,169,28,32,147,194,173,97,195,162,0,141,84,195,142,85,195
- 730 DATA32,159,194,169,37,32,147,194,173,95,195,32,69,195,169,13,32,210,255
- 740 DATA169,89,32,100,194,169,0,141,82,195,141,91,195,141,92,195,169,0,141
- 750 DATA81,195,162,0,169,23,32,147,194,32,207,255,141,93,195,32,183,255,240
- 760 DATA65,169,0,32,147,194,169,18,32,210,255,162,188,160,195,32,51,195,169
- 770 DATA0,32,147,194,169,0,141,85,195,173,82,195,141,84,195,32,159,194,169
- 780 DATA24,32,147,194,173,91,195,174,92,195,141,84,195,142,85,195,32,159,194
- 790 DATA169,1,32,195,255,32,204,255,96,32,225,255,240,242,173,93,195,208,8
- 800 DATA169,29,32,100,194,76,75,194,41,128,208,5,169,42,76,104,193,169,32,32
- 810 DATA210,255,173,93,195,41,7,133,253,10,101,253,168,162,0,185,101,195,32
- 820 DATA210,255,200,232,224,3,208,244,173,93,195,41,64,201,64,208,5,169,60
- 830 DATA76,148,193,169,32,32,210,255,32,207,255,141,99,195,32,207,255,141
- 840 DATA100,195,169,5,32,147,194,32,75,195,162,0,32,207,255,232,224,16,240
- 850 DATA27,201,160,240,6,32,210,255,76,173,193,32,75,195,32,207,255,232,224
- 860 DATA16,240,15,32,210,255,76,194,193,201,160,240,3,32,210,255,169,34,32
- 870 DATA210,255,169,9,32,100,194,169,0,32,147,194,32,207,255,141,84,195,133
- 880 DATA253,32,207,255,141,85,195,133,254,165,253,109,91,195,141,91,195,165
- 890 DATA254,109,92,195,141,92,195,32,159,194,169,29,32,147,194,169,84,32,210
- 900 DATA255,169,45,32,210,255,174,99,195,169,0,141,85,195,142,84,195,32,159
- 910 DATA194,169,35,32,147,194,169,83,32,210,255,169,45,32,210,255,169,0,141
- 920 DATA85,195,174,100,195,142,84,195,32,159,194,169,13,32,210,255,238,82
- 930 DATA195,32,113,194,238,81,195,173,81,195,201,8,208,3,76,243,192,32,207
- 940 DATA255,32,207,255,76,248,192,133,253,162,0,32,207,255,232,228,253,208
- 950 DATA248,96,32,204,255,32,228,255,240,20,32,225,255,208,10,169,1,32,198
- 960 DATA255,104,104,76,66,193,32,228,255,240,236,162,1,32,198,255,96,72,56
- 970 DATA32,240,255,104,168,24,32,240,255,96,72,138,72,152,72,169,0,141,86
- 980 DATA195,141,87,195,141,88,195,162,16,14,84,195,46,85,195,120,248,173,86
- 990 DATA195,109,86,195,141,86,195,173,87,195,109,87,195,141,87,195,173,88
- 1000 DATA195,109,88,195,141,88,195,216,88,202,208,216,162,2,189,86,195,74,74
- 1010 DATA74,74,240,3,32,69,195,189,86,195,41,15,240,6,32,69,195,76,251,194
- 1020 DATA224,0,208,3,32,69,195,202,16,221,104,168,104,170,104,96,169,1,32,195
- 1030 DATA255,169,1,174,97,195,172,98,195,32,186,255,165,253,162,94,160,195,32
- 1040 DATA189,255,32,192,255,144,16,201,5,208,12,162,228,160,195,32,51,195,104
- 1050 DATA104,76,66,193,96,134,251,132,252,160,0,177,251,240,7,200,32,210,255
- 1060 DATA76,57,195,96,9,48,32,210,255,96,169,34,32,210,255,96,0,0,0,88,88,88
- 1070 DATA88,88,88,88,0,0,88,88,48,58,8,88,88,88,68,69,76,83,69,81,80,82,71,85
- 1080 DATA83,82,82,69,76,63,63,63,63,63,63,63,63,63,160,83,73,78,71,0,160,68
- 1090 DATA79,85,66,0,76,69,160,83,73,68,69,68,32,13,0,32,32,32,32,32,32,66,76
- 1100 DATA79,67,75,83,32,70,82,69,69,32,79,78,32,68,69,86,73,67,69,32,32,32,32
- 1110 DATA68,82,73,86,69,32,32,32,0,32,32,32,32,32,84,79,84,65,76,32,70,73,76
- 1120 DATA69,83,32,79,67,67,85,80,89,32,32,32,32,32,32,66,76,79,67,75,83,32,32
- 1130 DATA32,32,0,68,69,86,73,67,69,32,78,79,84,32,80,82,69,83,69,78,84,0
-