home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pg100 / dirsrt.100 < prev    next >
Text File  |  2006-10-19  |  752b  |  30 lines
  1. 10 REM DIRSRT.100 (C) 1990 by P.Globman
  2. 20 CLEAR1000:DA=63930:ST=DA:CLS
  3. 30 PRINT@90,"Reading Directory
  4. 40 DIM F$(19)
  5. 50 FOR I=1 TO 19
  6. 60 IF PEEK(DA)<128THEN90 ELSE N=N+1
  7. 70 FOR J=0TO10
  8. 75 F$(N)=F$(N)+CHR$(PEEK(DA+J)):NEXTJ
  9. 80 F$(N)=MID$(F$(N)+F$(N),4,11)
  10. 90 DA=DA+11:NEXTI
  11. 100 PRINT@130,"Sorting Directory
  12. 110 M=N
  13. 120 M=INT(M/2):IFM=0THEN200
  14. 130 J=1:K=N-M
  15. 140 I=J
  16. 150 L=I+M:IF F$(I)<=F$(L)THEN180
  17. 160 T$=F$(I):F$(I)=F$(L):F$(L)=T$:I=I-M
  18. 170 IFI>0THEN150
  19. 180 J=J+1:IFJ>KTHEN120
  20. 190 GOTO140
  21. 200 PRINT@170,"Writing Directory
  22. 210 FOR I=1 TO N
  23. 220 F$(I)=MID$(F$(I)+F$(I),9,11)
  24. 230 FOR J=0TO10
  25. 240 POKE ST+J,ASC(MID$(F$(I),J+1,1))
  26. 250 NEXT J
  27. 260 ST=ST+11:NEXT I:IF I=20 THEN MENU
  28. 270 FOR J=ITO19:POKE ST,0:ST=ST+11:NEXT
  29. 280 MENU
  30.