/* $VER: Quote_Zen.rexx 1.0 (4.3.94)
  copyright 1994 Richard Lee Stockton
        FREELY DISTRIBUTABLE
*/

ARG name . . colorflag .

FF='0C'x
CR='0D'x
def=''
pen3=''

IF ADDRESS()~='BAUD' THEN CR=''
IF colorflag~=1 THEN
  DO
    def=''
    pen3=''
  END

SIGNAL ON BREAK_C
SIGNAL ON BREAK_E

bbspath=GETCLIP('BBS_path')
filename=bbspath'rexxDoors/Data/zen.dat'
IF ~EXISTS(filename) THEN
  DO
    SAY 'Can''t find data file,' filename'!'CR
    EXIT
  END
size=WORD(STATEF(filename),2)
fragment=size/3000

x=OPEN(f,'RAM:DUMMY','W')
IF x=0 THEN EXIT(20);
CALL WRITELN(f,'dummy')
CALL CLOSE(f)
micros=WORD(STATEF('RAM:DUMMY'),7)
location=fragment*micros
IF fragment>1000 THEN
  location=location+fragment*RIGHT(TIME('S'),2)/100
ELSE IF fragment>100 THEN
  location=location+fragment*RIGHT(TIME('S'),1)/10
location=TRUNC(location)
IF location>size THEN location=micros

x=OPEN(f,filename,'R')
IF x=0 THEN RETURN(10);
CALL SEEK(f,location,'B')
line=''
DO WHILE LEFT(line,1)~='@' & ~EOF(f)
  line=READLN(f)
END
SAY CR
SAY SUBSTR(line,2)||CR
line=''
IF ~EOF(f) THEN
  DO WHILE LEFT(line,1)~='@' & ~EOF(f)
    line=READLN(f)
    IF ~EOF(f) & LEFT(line,1)~='@' THEN SAY line||CR
  END

OPTIONS PROMPT pen3'                                 -- Zen and the Art of Making a Living 'def
PULL junk


BREAK_C:
BREAK_E:
CALL CLOSE(f)
RETURN
EXIT

/* Quote_Zen.rexx */