home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / MISC / RSDir.lzh / RSDIR < prev    next >
Text File  |  1992-01-19  |  461b  |  31 lines
  1. PROCEDURE RSdir
  2. PARAM drive:STRING
  3. DIM path,cmdblk(5),datbuf(256):BYTE
  4. DIM i,j,k:INTEGER
  5. drive=drive+"@"
  6. OPEN #path,drive:READ
  7. cmdblk(1)=$80
  8. cmdblk(2)=$02
  9. cmdblk(3)=17
  10. cmdblk(4)=3
  11. cmdblk(5)=1
  12. FOR j=3 TO 11
  13. cmdblk(4)=j
  14. RUN ssdcm(path,cmdblk,datbuf)
  15. FOR i=1 TO 8
  16. FOR k=(i-1)*32+1 TO (i-1)*32+8
  17. IF datbuf(k)=255 THEN
  18. GOTO 10
  19. ENDIF
  20. PUT #1,datbuf(k)
  21. NEXT k
  22. PRINT #1," ";
  23. FOR k=(i-1)*32+9 TO (i-1)*32+11
  24. PUT #1,datbuf(k)
  25. NEXT k
  26. PRINT
  27. NEXT i
  28. NEXT j
  29. 10 CLOSE #path
  30. END
  31.