home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9301.d64 / disk-view (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  410b  |  18 lines
  1. 10 PRINT"[147]AUF DER DISKETTE SIND FOLGENDE FILES:"
  2. 20 PRINT"TRACK     SEKTOR"
  3. 30 OPEN2,8,15:OPEN1,8,2,"#"
  4. 40 T=18:S=1
  5. 50 PRINT#2,"U1 2 0";T;S
  6. 60 GET#1,T$,S$
  7. 70 FOR J = 1 TO 8
  8. 80 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
  9. 90 GET#1,F$:FT=ASC(F$+CHR$(0))
  10. 100 IF (FT=130) OR (FT=194) THEN 130
  11. 110 FOR I = 1 TO 31:GET#1,W$:NEXT
  12. 120 GOTO160
  13. 130 GET#1,A$,B$:PRINTASC(A$+CHR$(0)),ASC(B$+CHR$(0)),
  14. 140 FOR I = 1 TO 16:GET#1,A$:PRINT A$;:NEXT:PRINT
  15. 150 FOR I = 19 TO 31:GET#1,W$:NEXT
  16. 160 NEXT:IFT<>0THEN50
  17. 170 CLOSE1:CLOSE2
  18.