home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / floppyk.listing2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  616b  |  29 lines
  1. 1000 REM UNTERPROGRAMM 1
  2. 1001 REM LESEN EINES EINTRAGES AUS DEM
  3. 1002 REM DIRECTORY (ALLE 30 BYTES !!!)
  4. 1003 REM IN DIE VARIABLE DD$
  5. 1004 REM UEBERGABEPARAMETER:
  6. 1005 REM MM=NUMMER DES EINTRAGES DER
  7. 1006 REM    GELESEN WERDEN SOLL
  8. 1007 :
  9. 1008 :
  10. 1009 :
  11. 1010 OPEN 15,8,15,"I":OPEN8,8,8,"#"
  12. 1020 NN$="":FORI=1TO30:NN$=NN$+CHR$(0):NEXTI
  13. 1030 XX=INT((MM-1)/8)
  14. 1040 PRINT#15,"U1 8 0 18 0"
  15. 1050 FORZZ=1TOXX+1
  16. 1060 PRINT#15,"B-P 8 0"
  17. 1070 GET#8,TT$:TT=ASC(TT$+CHR$(0))
  18. 1080 GET#8,SS$:SS=ASC(SS$+CHR$(0))
  19. 1090 IF TT=0 THEN DD$=NN$:GOTO1170
  20. 1100 PRINT#15,"U1 8 0";TT;SS
  21. 1110 NEXTZZ
  22. 1120 PP=MM-(XX*8):PP=(PP-1)*32+2
  23. 1130 PRINT#15,"B-P 8";PP
  24. 1140 FORZZ=1 TO 30:GET#8,ZZ$
  25. 1150 IFZZ$=""THENZZ$=CHR$(0)
  26. 1160 DD$=DD$+ZZ$:NEXTZZ
  27. 1170 CLOSE 8:CLOSE 15
  28. 1180 RETURN
  29.