8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64Toolkit/NEW-DIRECTORY-64

Commodore BASIC | 2019-04-13 | 5.1 KB | 105 lines

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