home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d950
/
bbdoors.lha
/
BBDoors
/
BBDoors65.lha
/
rexxDoors
/
Steven_Wright.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-08-24
|
1KB
|
72 lines
/* $VER: Steven_Wright.rexx 1.0 (24.8.93)
copyright 1993 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/wright.data'
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 line~=FF & ~EOF(f)
line=READLN(f)
END
line=''
SAY CR
IF ~EOF(f) THEN
DO WHILE line~=FF & ~EOF(f)
line=READLN(f)
IF ~EOF(f) & line~=FF THEN SAY line||CR
END
OPTIONS PROMPT pen3' -- Steven Wright 'def
PULL junk
BREAK_C:
BREAK_E:
CALL CLOSE(f)
RETURN
EXIT
/* Steven_Wright.rexx */