home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos30.d64 / sectordump (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  632b  |  34 lines
  1. 5 INPUT"OUTPUT FILENAME";F$
  2. 10 OPEN15,8,15,"I0"
  3. 25 GOSUB30:GOTO50
  4. 30 INPUT#15,EN$,EM$,ET$,ES$
  5. 40 IF EN$<>"00"GOTO990
  6. 45 RETURN
  7. 50 OPEN2,8,2,"#"
  8. 55 OPEN3,8,3,F$+",S,W"
  9. 60 READ TR,SE
  10. 65 PRINT#3,"TRACK:"TR" SECTOR:"SE
  11. 70 IF TR=0THEN 990
  12. 80 PRINT#15,"U1";2;0;TR;SE
  13. 90 GOSUB30
  14. 95 PRINT"[147]READING TRACK ";TR"[146] SECTOR ";SE:PRINT"WRITING DATA FILE . . ."
  15. 100 FOR C1=0TO31
  16. 140 FOR C2=0TO7
  17. 150 GET#2,B$:IF B$=""THEN B$=CHR$(0)
  18. 155 GOSUB890
  19. 156 B=ASC(B$)
  20. 160 PRINT#3," "RIGHT$("  "+STR$(B),3);
  21. 170 NEXT
  22. 180 PRINT#3," "C$
  23. 185 C$=""
  24. 190 NEXT
  25. 200 GOTO60
  26. 890 IF ASC(B$)<32 THEN C$=C$+" ":RETURN
  27. 910 IF ASC(B$)<128 OR ASC(B$)>159 THEN C$=C$+B$:RETURN
  28. 920 RETURN
  29. 990 CLOSE3:CLOSE2
  30. 1000 CLOSE15
  31. 1010 END
  32. 2000 DATA18,0,18,1:REM DATA FOR TRACK 18,    SECTOR 0 (AN EXAMPLE)
  33. 2010 DATA 0,0:REM ALL DONE!
  34.