10 OPEN8,8,8,"#":OPEN15,8,15:Z$=CHR$(.):DIMFT$(4)
15 FORI=.TO4:READFT$(I):NEXT:DATADELETED,SEQUENTIAL,PROGRAM,USER,RELATIVE
20 INPUT"[147]FILE NAME  (X) TO EXIT";F$:IFF$="X"THEN200
30 T=18:S=.:GOSUB1000:IFER>19THENPRINT"BAD BAM BLOCK.":GOTO200
40 T=NT:S=NS:GOSUB1000:IFER>19THENPRINT"BAD DIRECTORY BLOCK.":GOTO200
50 FORI=.TO7:B=32*I+5:GOSUB1200:N$="":FORJ=1TOLEN(F$):GET#8,A$:N$=N$+A$:NEXT
55 IFLEN(F$)<16THENGET#8,A$:IFA$<>"[160]"THENN$=N$+A$
60 IFN$<>F$THENNEXT:IFNT=0THENPRINT"END OF DIRECOTRY -- FILE NOT FOUND":GOTO200
65 IFN$<>F$THEN40
70 N=I:I=7:NEXT:B=32*N+2:GOSUB1200:GET#8,A$:FT%=ASC(A$+Z$)
80 IFFT%>0ANDFT%<128THENPRINT"UNCLOSED ";
90 IFFT%=128THENPRINT"IMPROPERLY DELETED FILE":GOTO200
100 IF(FT%AND127)>4THENPRINT"UNDEFINED TYPE FILE":GOTO200
110 PRINTFT$(FT%AND127)" FILE,";:GET#8,T$,S$:NT=ASC(T$+Z$):NS=ASC(S$+Z$)
120 B=32*N+30:GOSUB1200:GET#8,L$,H$:NB=ASC(L$+Z$)+256*ASC(H$+Z$):PRINTNB"BLOCKS LONG
130 [153]"DATA BLOCKS:":[139](FT%[175]127)[178]4[167]300
140 [129]I[178]1[164]NB:T[178]NT:S[178]NS:[153]T;S:[151]56329,.:[151]56328,.:[141]1000
150 [139]ER[177]19[167]300
160 [139][194](56329)[167][153]"ON","MARGINAL BLOCK":MB[178]MB[170]1
170 [130]:[153]BB"BAD BLOCKS FOUND.":[153]CB"READ ERROR 23'S CORRECTED."
180 [153]MB"MARGINAL BLOCKS FOUND."
200 [160]8:[160]15
201 [153]:[153]"DO YOU WANT TO SCAN ANOTHER? (Y/N)":[133]"";YN$:[139] YN$[178]"Y"[167][138]
205 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
210 [151]631,13:[151]632,13:[151]198,2:[128]
300 [153]"ON",ER$;ER:[137]170
1000 [152]15,"UA:8 0"T;S:[141]1500:[152]15,"B-P:8"0:[161]#8,T$,S$:NT[178][198](T$[170]Z$)
1010 NS[178][198](S$[170]Z$):[142]
1200 [152]15,"B-P:8"B:[142]
1500 [132]15,ER,ER$,ET,ES:[139]ER[167][153]ER;ER$;ET;ES
1510 [142]