10 PRINT"[147]":POKE 53280,0:POKE53281,0
20 AD=828
30 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
40 PRINT" MAKE SURE THE TAPE IS REWOUND TO START"
50 PRINT"       POSITION THEN PRESS ANY KEY"
60 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
70 GETX$:IFX$=""THEN70
80 PRINT"[147]":OPEN1,1:PRINT"[147]"
90 T$(0)="RELATIVE":T$(2)="ABSOLUTE":T$(3)="FILE":C=2:PRINT"PROGRAM - 1":GOTO110
100 N$="":OPEN1,1
110 TV=PEEK(AD):FT$=T$(TV-1)
120 S$=RIGHT$("   "+STR$(PEEK(AD+1)+(256*PEEK(AD+2))-1),6)
130 E$=RIGHT$("   "+STR$(PEEK(AD+3)+(256*PEEK(AD+4))-1),6)
140 FORI=5TO20:N$=N$+CHR$(PEEK(AD+I)):NEXT
150 X=VAL(RIGHT$(E$,6))-VAL(RIGHT$(S$,6))
160 KB$=RIGHT$(STR$(INT(X/1024*100)/100),6)
170 PRINT"[150]TYPE     SIZE  START END FILENAME
180 [153]"CONT"FT$KB$S$E$" "N$:[153]
190 [153]"PRINT READY FOR NEXT PROGRAM HIT ANY KEY"
200 [161] A$:[139] A$[178]""[167] 200
210 [153]"ONPROGRAM -"C"CMD                            "     :C[178]C[170]1
220 [160]1
230 [137]100