home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / DIRECTORY-ALPHABETIZER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  45 lines
  1. 100 PRINT"ô THIS PRINTS A DIRECTORY"
  2. 110 PRINT" IN ALPHABETICAL ORDER."
  3. 120 PRINT" PRINT ON SÆCREEN OR PÆRINTER?"
  4. 130 GETOD$:IF OD$="P"OROD$<>""THEN150
  5. 140 GOTO130
  6. 150 PRINT"**READING THE DIRECTORY**"
  7. 160 DIMF$(144):B=6:C=2:Q$=CHR$(34):R$="":SP$="                 "
  8. 170 OPEN1,8,0,"$":GET#1,A$,B$
  9. 180 GET#1,A$,B$:REM LINK
  10. 190 GET#1,A$,B$:NB=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)):REM # OF BLOCKS
  11. 200 GET#1,B$:IFST<>0THEN 290
  12. 210 IFB$<>CHR$(34)THEN200
  13. 220 GET#1,B$:IFB$<>CHR$(34)THENS$=S$+B$:GOTO220
  14. 230 GET#1,B$:IFB$=CHR$(32)THEN230
  15. 240 C$="":IFA=0THENC$=" "
  16. 250 C$=C$+B$:GET#1,B$:IFB$<>""THEN250
  17. 260 F$(A)=LEFT$(R$+Q$+S$+Q$+SP$,19)+LEFT$(C$,B)+"Æ"+MID$(STR$(NB)+SP$,2,C)
  18. 270 S$="":R$="":A=A+1:B=3:C=5
  19. 280 IFST=0THEN180
  20. 290 CLOSE1:N=A-1:BF$=MID$(STR$(NB)+" BLOCKS FREE, "+STR$(N)+"FILES.",2)
  21. 300 PRINT"** SORTING DIRECTORY **"
  22. 310 M=N
  23. 320 M=INT(M/2)
  24. 330 IFM=0THEN470
  25. 340 J=1:K=N-M
  26. 350 I=J
  27. 360 L=I+M
  28. 370 CM=CM+1
  29. 380 IFF$(I)<F$(L)THEN440
  30. 390 T$=F$(I):F$(I)=F$(L):F$(L)=T$
  31. 400 SW=SW+1
  32. 410 I=I-M
  33. 420 IFI<1THEN440
  34. 430 GOTO360
  35. 440 J=J+1
  36. 450 IFJ>KTHEN320
  37. 460 GOTO350
  38. 470 IFOD$="P"THENOPEN4,4:PRINT" **PRINTING DIRECTORY **":CMD4
  39. 480 IFOD$<>"P"THENPRINT"ô"
  40. 490 C=2:FORI=0TON:PRINT RIGHT$(F$(I),C)LEFT$(F$(I),LEN(F$(I))-C):C=5
  41. 500 NEXT:PRINT BF$
  42. 510 IFOD$="P"THENPRINT:PRINT:PRINT:PRINT#4:CLOSE4
  43. 520 IFOD$<>"P"THENPRINT" USE 'GOTO 480' TO VIEW LISTING AGAIN"
  44. 6682     
  45.