:D #USAGE
:S
;
;	TYPRAN.DO
;	types out a random file on screen
;
;	Created:  25-nov-85 by JAJ       GR/AM
;
:S
GOTO #$0
;##USAGE
XY=0
XY=11
:<USAGE: >
XY=12
:<TYPRAN>
XY=11
:< filename/{OPTIONS}
>
XY=12
:<
	This program will type out a RANDOM file on the screen.
	Default characteristics are:
			DAT extension
			starting at block #1 of the file opened
			printing 64 bytes per line			
	
	Options:
             /B:##    starting at relative block number of the file
             /R       display relative record # of file
             /P:##    print ## bytes per line
             /D       display Alpha Accounting dummy record
	     
	SPACE BAR    freeze display or continue display
	1-9          slow display   1=slow  9=fast
        HOME         start at begining of file
	S            stop display
        D            display Alpha Accounting dummy record
	Q            quit and exit
	H            display this help	
>
XY=12
GOTO @EXIT
;
;	FORMAT the document specified.
;
;	1) find out if it exists.
;#$0
DEL *.*
LOAD BAS:STRCTL.SBR
LOAD BAS:STRIP.SBR
LOAD BAS:INKEY.SBR
LOAD BAS:TYPRAN.RUN
:R
RUN TYPRAN
$0
;@EXIT
;	we're done with this simple little routine folks.
:R