home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #9 / Commodore_Disk_User_Vol.3_9_1990_-.d64 / .dir.41000 < prev    next >
Text File  |  2022-10-26  |  827b  |  35 lines
  1.  
  2.  
  3. 41000 rem" Display directory, supply file spec in a$. (C) A.Millett.
  4. 41020 print
  5. 41040 open 15,8,15
  6. 41060 qe=0
  7. 41080 open 1,8,0,"$"+a$
  8. 41100 gosub 41500:if qe then 41300 :rem" Disk error?
  9. 41120 get#1,a$,a$
  10. 41140 : get#1,a$,a$,a$,b$
  11. 41160 : if st then qe=99:goto 41300
  12. 41180 : get c$:if c$="" then 41300
  13. 41200 : print asc(a$+chr$(0))+asc(b$+chr$(0))*256;
  14. 41220 : get#1,a$:if st then qe=99:goto 41300
  15. 41240 : print a$;:if a$>"" then 41220
  16. 41260 : print
  17. 41280 goto 41140
  18. 41300 close 1:close 15
  19. 41320 return
  20. 41499 :
  21. 41500 rem" Check error channel , return (qe) error #
  22. 41520 input#15,qe,qe$,qt,qs
  23. 41540 if qe=0 then return
  24. 41560 print
  25. 41580 print "DISK ERROR - ";qe;",";qe$;",";qt;",";qs
  26. 41600 for x=1 to 15:close x:next
  27. 41620 print"Hit SPACE to continue."
  28. 41640 get a$
  29. 41660 if a$<>" " then 41640
  30. 41680 return
  31. 41999 :
  32.  
  33. ready.
  34.  
  35.