: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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.