/LIST SOURCE PROGRAM
START,	PRINT 5	;TEXT '_DEV='
	TYPTEX	;DEV	;4
	PRINT 6	;TEXT ' FILE='
	TYPTEX	;FILE	;6
	PRINT 5	;TEXT ' EXT='
	TYPTEX	;EXTN	;2
	OPEN
DEV,	0;0
FILE,	0;0;0
EXTN,	0	;FILEX
	GOIF	;.+2	;END
	CLEARW	;FFSW
	PRINT 4	;TEXT ' FF?'
	YESNO	;.+3
	INCREM	;FFSW
	PRINT 1	;TEXT '_'
LOOP1,	LOAD2-1	;FILEX
	READAB
	CLEARW	;COUNT
LOOP2,	LOADX1	;COUNT
	LOAD2-1	;XAREA
	STORE2	;TEMP
	LOAD1	;TEMP
	ANDIM	;255
	GOSUB	;PR
	LOAD1	;TEMP+1
	ANDIM	;255
	GOSUB	;PR
	LOAD1	;TEMP
	SHIFTR 4
	ANDIM	;240
	STORE1	;TEMP
	LOAD1	;TEMP+1
	SHIFTR 8
	ADD1	;TEMP
	GOSUB	;PR
	DO	;LOOP2	;COUNT	;2;254
	INCREM-1	;FILEX+1
	INCGOZ-8	;END	;FILEX+8	/BLOCK COUNT
	GOTO	;LOOP1
PR,	0;0
	STORE1	;TEMP2
	GOIFEQ	;FORM	;FF
	GOIFEQ	;END	;CONTZ
	PRNTCH
	GOTO	;PR
FORM,	GOIFZO	;PR	;FFSW
	PRINTC 1	;FF
	PRINTC 20	;NULL
	GOTO	;PR
END,	EXIT
OCTAL
TEMP,	0;0
TEMP2,	0
CONTZ,	232
COUNT,	0
FFSW,	0
FIELD 0
*6200
FILEX,	ZBLOCK 11
$