home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D09.D64 / .dir.41000 < prev    next >
Encoding:
Text File  |  2019-04-13  |  827 b   |  35 lines
  1.  
  2.  
  3. 41000 REM" ─ISPLAY DIRECTORY, SUPPLY FILE SPEC IN A$. (├) ┴.═ILLETT.
  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" ─ISK 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" ├HECK 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 "─╔╙╦ ┼╥╥╧╥ - ";QE;",";QE$;",";QT;",";QS
  26. 41600 FOR X=1 TO 15:CLOSE X:NEXT
  27. 41620 PRINT"╚IT ╙╨┴├┼ TO CONTINUE."
  28. 41640 GET A$
  29. 41660 IF A$<>" " THEN 41640
  30. 41680 RETURN
  31. 41999 :
  32.  
  33. READY.
  34.  
  35.