home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / PRINT.DIRECTORY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  89 lines
  1. 10 POKE53280,0:POKE53281,14
  2. 15 PRINT"ôÉSETTING UP.......ÆÉ"
  3. 20 K=0:GOSUB2000
  4. 100 REM<**DIRECTORY ROUTINE
  5. 105 OPEN15,8,15:GOSUB2075
  6. 110 OPEN1,8,0,"$0"
  7. 115 PRINT"ÉDIRECTORY OPENÆÉ   "
  8. 120 GET#1,L1$,L2$
  9. 125 GET#1,L1$,L2$
  10. 130 GET#1,L1$,L2$
  11. 135 C=0
  12. 140 IFL1$<>""THENC=ASC(L1$)
  13. 145 IFL2$<>""THENC=C+ASC(L2$)*256
  14. 150 BK$(K)=MID$(STR$(C),2):BL=VAL(BK$(K))
  15. 155 BK$(K)=RIGHT$(SG$+BK$(K),3)
  16. 160 BL=BL*256:BY$(K)=RIGHT$(SG$+STR$(BL),5)
  17. 165 GET#1,L2$:IFST<>0THEN305
  18. 170 IFL2$<>CHR$(34)THEN165
  19. 175 GET#1,L2$:IFL2$<>CHR$(34)THENN$=N$+L2$:GOTO175
  20. 180 P$(K)=N$:N$=""
  21. 185 GET#1,L2$:IFL2$=CHR$(32)THEN185
  22. 190 C$=""
  23. 195 C$=C$+L2$:GET#1,L2$:IFL2$<>""THEN195
  24. 200 TY$(K)=LEFT$(C$,3)
  25. 205 IFK=0THEN225
  26. 210 PRINT"É"TAB(15)K"Æ"
  27. 215 BU=BU+VAL(BK$(K))
  28. 220 IFST=0THENK=K+1:GOTO125
  29. 225 PRINT"ôÉ            DISK INFORMATION             ";
  30. 230 PRINT"NAME: É"P$(0)"É          ID: É"TY$(0)"É";
  31. 235 PRINT" BLOCKS USED:         BLOCKS FREE:      ";
  32. 240 PRINT"TOTAL NUMBER OF ENTERIES:                ";
  33. 245 PRINT"                                CB>7/84Æ"
  34. 250 PRINT"ÉREADING ENTRY:      Æ":K=K+1:GOTO125
  35. 300 REM***** READ LOAD ADDRESS ******
  36. 305 CLOSE1:GOSUB2085:GOSUB2075:K=K-1:BF=664-BU:PK$=RIGHT$(SG$+STR$(K),5)
  37. 310 US$=RIGHT$(SG$+STR$(BU),5):FR$=RIGHT$(SG$+STR$(BF),5)
  38. 315 PRINT"ÉREADING FILES:    Æ":PRINT"É"
  39. 320 PRINTTAB(13)""US$TAB(33)FR$SPC(29)PK$
  40. 325 FORI=1TOK:F$=P$    
  41. 330 OPEN1,8,3,"0:"+F$:PRINT"É"TAB(15)I"Æ"
  42. 335 GET #1,LB$,HB$
  43. 340 IFHB$=""THENH=0:GOTO350
  44. 345 H=ASC(HB$)
  45. 350 H=H*256
  46. 355 IFLB$=""THENL=0:GOTO365
  47. 360 L=ASC(LB$)
  48. 365 LA$(I)=RIGHT$(SG$+STR$(H+L),5)
  49. 370 CLOSE1:NEXT
  50. 375 GOSUB2085
  51. 380 PRINT"ÉEND OF DIRECTORYÆ     "
  52. 385 CLOSE15
  53. 400 REM**** PRINT DIRECTORY
  54. 405 I=1:I$=CHR$(32)+STR$(I)+CHR$(46):LP=6:KOUNT=9
  55. 410 PRINT"ÉPRINTER OPENÆ   "
  56. 415 OPEN3,4:CMD3:OPEN5,3,5
  57. 420 PRINT#5,"ÉPRINTING DIRECTORYÆ"
  58. 425 PRINT#3,CHR$(14)SPC(9)"* "P$(0)"Æ *"CHR$(15)R$
  59. 430 PRINT#3,T$"15# ENTERIES:Æ"T$"26"PK$T$"45"US$" BLOCKS USEDÆ"R$
  60. 435 PRINT#3,T$"15DISK ID:Æ"T$"29"TY$(0)T$"45"FR$    
  61. 440 PRINT#3,T$"12NO"T$"20NAME"T$"40BLOCKS"T$"50BYTES"T$"60L.ADD."T$"71TYPE"
  62. 445 PRINT#3,DD$DD$
  63. 450 PRINT#3,T$"11"I$T$"20"P$(I)T$"41"BK$(I)T$"50"BY$(I)T$"60"LA$(I)T$"72"TY$(I)
  64. 455 KOUNT=KOUNT+1
  65. 460 IFI=KTHENPRINT#3,DD$DD$:KOUNT=KOUNT+1:GOSUB2045:GOTO490
  66. 465 IFI=LPTHENGOSUB2035:LP=LP+6:KOUNT=KOUNT+1
  67. 470 IFI=36THENGOSUB2065:PRINT#3,T$"10PAGE 2Æ" P$(0):GOSUB2035:GOTO485
  68. 475 IFI=90THENGOSUB2040:PRINT#3,T$"10PAGE 3Æ"P$(0):GOSUB2035:GOTO485
  69. 480 IFI=144THENPRINT#3,DD$DD$:GOSUB2040:GOTO490
  70. 485 I=I+1:I$=RIGHT$(SG$+STR$(I)+CHR$(46),4):GOTO450
  71. 490 CLOSE3:CLOSE5
  72. 500 REM****** ANOTHER/END PROGRAM ******
  73. 505 PRINT"ÉANOT    R DISK? Y/N Æ"
  74. 510 FORI=0TO28:POKEBEEP+I,0:NEXT
  75. 515 POKEBEEP+1,130:POKEBEEP+5,9:POKEBEEP+15,30:POKEBEEP+24,15
  76. 520 GETZ$:POKEBEEP+4,21:FORI=1TO1000:NEXT:IFZ$<>""THEN530
  77. 525 GETZ$:POKEBEEP+4,20:FORI=1TO1000:NEXT:IFZ$=""THEN520
  78. 530 IFZ$="N"THENPRINT"":END
  79. 535 IFZ$="Y"THENPRINT"ô":CLR:GOTO10
  80. 540 Z$="":GOTO520
  81. 2000 REM****** VARIABLES *******
  82. 2005 DIMP$(145),BK$(145),TY$(145),BY$(145),LA$(145)
  83. 2010 SG$="     ":T$=CHR$(16):R$=CHR$(13):BEEP=54272
  84. 2015 DD$="......................................."
  85. 2020 DL$="......................................"
  86. 2025 RETURN
  87. 2030 REM<**PRINTER SUBROUTINES
  88. 2035 PRINT#3,DL$DL$:RETURN    
  89.