5 INPUT"OUTPUT FILENAME";F$
10 OPEN15,8,15,"I0"
25 GOSUB30:GOTO50
30 INPUT#15,EN$,EM$,ET$,ES$
40 IF EN$<>"00"GOTO990
45 RETURN
50 OPEN2,8,2,"#"
55 OPEN3,8,3,F$+",S,W"
60 READ TR,SE
65 PRINT#3,"TRACK:"TR" SECTOR:"SE
70 IF TR=0THEN 990
80 PRINT#15,"U1";2;0;TR;SE
90 GOSUB30
95 PRINT"[147]READING TRACK ";TR"[146] SECTOR ";SE:PRINT"WRITING DATA FILE . . ."
100 FOR C1=0TO31
140 FOR C2=0TO7
150 GET#2,B$:IF B$=""THEN B$=CHR$(0)
155 GOSUB890
156 B=ASC(B$)
160 PRINT#3," "RIGHT$("  "+STR$(B),3);
170 NEXT
180 PRINT#3," "C$
185 C$=""
190 NEXT
200 GOTO60
890 IF ASC(B$)<32 THEN C$=C$+" ":RETURN
910 IF ASC(B$)<128 OR ASC(B$)>159 THEN C$=C$+B$:RETURN
920 RETURN
990 CLOSE3:CLOSE2
1000 CLOSE15
1010 END
2000 DATA18,0,18,1:REM DATA FOR TRACK 18,    SECTOR 0 (AN EXAMPLE)
2010 DATA 0,0:REM ALL DONE!