00000000: 00 80 5E 55 3A 48 41 43 4B 45 52 0D 0D 0D 20 20 |..^U:HACKER... |
00000010: 20 20 C4 C9 D2 C5 C3 D4 CF D2 D9 2F C2 CC CF C3 | ........./....|
00000020: CB D3 20 C6 D2 C5 C5 20 D6 C9 C5 D7 C5 D2 0D 20 |.. .... ....... |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 | B|
00000040: 59 0D 20 CA 4F 53 45 50 48 20 C3 48 41 52 4E 45 |Y. .OSEPH .HARNE|
00000050: 54 53 4B 49 20 41 4E 44 20 C7 45 4F 46 46 20 CC |TSKI AND .EOFF .|
00000060: 41 52 53 45 4E 0D 0D 0D C3 CF CD CD CF C4 CF D2 |ARSEN...........|
00000070: C5 20 CD C1 C7 C1 DA C9 CE C5 0D CA 55 4C 59 20 |. ..........ULY |
00000080: 31 39 38 37 0D 0D 0D 20 20 D4 48 49 53 20 50 52 |1987... .HIS PR|
00000090: 4F 47 52 41 4D 20 46 52 4F 4D 20 C3 CF CD CD CF |OGRAM FROM .....|
000000A0: C4 CF D2 C5 0D CD C1 C7 C1 DA C9 CE C5 27 53 20 |.............'S |
000000B0: 22 D4 49 50 53 20 41 4E 44 20 D4 52 49 43 4B 53 |".IPS AND .RICKS|
000000C0: 22 20 53 45 43 54 49 4F 4E 0D 44 49 53 50 4C 41 |" SECTION.DISPLA|
000000D0: 59 53 20 54 48 45 20 44 49 53 4B 20 44 49 52 45 |YS THE DISK DIRE|
000000E0: 43 54 4F 52 59 20 41 4E 44 0D 4E 55 4D 42 45 52 |CTORY AND.NUMBER|
000000F0: 20 4F 46 20 42 4C 4F 43 4B 53 20 46 52 45 45 20 | OF BLOCKS FREE |
00000100: 4F 4E 20 41 20 44 49 53 4B 20 55 53 49 4E 47 0D |ON A DISK USING.|
00000110: 53 49 4D 50 4C 45 20 C2 C1 D3 C9 C3 20 53 55 42 |SIMPLE ..... SUB|
00000120: 52 4F 55 54 49 4E 45 53 2E 0D 0D 20 20 D4 48 45 |ROUTINES... .HE|
00000130: 53 45 20 53 55 42 52 4F 55 54 49 4E 45 53 20 43 |SE SUBROUTINES C|
00000140: 41 4E 20 42 45 20 49 4E 43 4C 55 44 45 44 0D 49 |AN BE INCLUDED.I|
00000150: 4E 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 |N YOUR OWN PROGR|
00000160: 41 4D 2E 20 20 D4 48 45 20 44 49 52 45 43 54 4F |AM. .HE DIRECTO|
00000170: 52 59 0D 44 49 53 50 4C 41 59 20 52 4F 55 54 49 |RY.DISPLAY ROUTI|
00000180: 4E 45 20 53 54 41 52 54 53 20 41 54 20 CC 49 4E |NE STARTS AT .IN|
00000190: 45 20 38 30 30 0D 41 4E 44 20 45 4E 44 53 20 41 |E 800.AND ENDS A|
000001A0: 54 20 CC 49 4E 45 20 38 38 30 2E 20 20 D4 48 45 |T .INE 880. .HE|
000001B0: 20 42 4C 4F 43 4B 53 0D 46 52 45 45 20 52 4F 55 | BLOCKS.FREE ROU|
000001C0: 54 49 4E 45 20 53 54 41 52 54 53 20 41 54 20 CC |TINE STARTS AT .|
000001D0: 49 4E 45 20 39 30 30 20 41 4E 44 0D 45 4E 44 53 |INE 900 AND.ENDS|
000001E0: 20 41 54 20 CC 49 4E 45 20 39 38 30 2E 20 20 CE | AT .INE 980. .|
000001F0: 4F 54 45 3A 20 D4 48 45 20 42 4C 4F 43 4B 53 0D |OTE: .HE BLOCKS.|
00000200: 46 52 45 45 20 52 4F 55 54 49 4E 45 20 50 55 54 |FREE ROUTINE PUT|
00000210: 53 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 0D |S THE NUMBER OF.|
00000220: 42 4C 4F 43 4B 53 20 46 52 45 45 20 49 4E 54 4F |BLOCKS FREE INTO|
00000230: 20 54 48 45 20 56 41 52 49 41 42 4C 45 20 22 C6 | THE VARIABLE ".|
00000240: 2E 22 0D 0D 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 |."....... ..... |
00000250: D4 C8 C9 D3 20 D0 D2 CF C7 D2 C1 CD 20 D5 D3 C5 |.... ....... ...|
00000260: D3 3A 0D 0D C4 C9 D2 2F C2 CC CF C3 CB D3 20 20 |.:...../...... |
00000270: 20 20 20 20 20 20 20 D4 2E C4 C9 D2 2F C2 CC CF | ...../...|
00000280: C3 CB D3 0D 0D 20 20 20 20 20 20 20 20 2A 2A 2A |..... ***|
00000290: 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A 2A |* .ND .F .EXT **|
000002A0: 2A 2A 0D |**. |
..^U:HACKER... DIRECTORY/BLOCKS FREE
VIEWER. BY. JOSEPH CHARNE
TSKI AND GEOFF LARSEN...COMMODORE MAGAZI
NE.JULY 1987... THIS PROGRAM FROM COMMO
DORE.MAGAZINE'S "TIPS AND TRICKS" SECTIO
N.DISPLAYS THE DISK DIRECTORY AND.NUMBER
OF BLOCKS FREE ON A DISK USING.SIMPLE B
ASIC SUBROUTINES... THESE SUBROUTINES C
AN BE INCLUDED.IN YOUR OWN PROGRAM. THE
DIRECTORY.DISPLAY ROUTINE STARTS AT LIN
E 800.AND ENDS AT LINE 880. THE BLOCKS.
FREE ROUTINE STARTS AT LINE 900 AND.ENDS
AT LINE 980. NOTE: THE BLOCKS.FREE ROU
TINE PUTS THE NUMBER OF.BLOCKS FREE INTO
THE VARIABLE "F."...DISK FILES THIS PRO
GRAM USES:..DIR/BLOCKS T.DIR/BLO
CKS.. **** END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL