home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 8
/
boot-disc-1997-04.iso
/
PDA_Soft
/
Psion
/
misc
/
Xfile
/
SAMPLE.OPL
< prev
next >
Wrap
Text File
|
1995-03-28
|
1KB
|
52 lines
REM
REM XFILE V1.3
REM
REM This is the starter code. It is designed to
REM use as little memory as possible at the point
REM of starting another application.
REM
REM Copyright Raymond Stone 1995.
REM
REM This is the 'resident' version of the XFILE starter. It has
REM changed from the versions used in pre 1.3 releases.
REM
REM <-----> This is the 'group' name
REM you change this for EACH xfile group you create
APP XTEST
TYPE $1000
ICON "B:\PIC\bubble.pic"
REM <--------------> Select it's icon, change the above line
REM to whatever icon file you wish
ENDA
PROC startapp:
GLOBAL pid%,cmdl$(128),ret%,sys$(128),keepres%
CACHE 20000,30000
keepres%=1
while keepres%=1
handlerX:
CACHETIDY
if sys$=""
STOP
endif
ret%=call($0187,addr(sys$)+1,addr(cmdl$),0,0,addr(pid%))
if ret%<0
print "Couldn't start application"
print err$(ret%)
get
endif
call($0688,pid%,0,0,0,0)
endwh
ENDP
proc handlerx:
REM <----------------------> change this to location of file
LOADM "LOC::M:\OPO\XFILE.LIB"
sys$=cmd$(5)
XFILE:
REM <---------------------> change this to match above
UNLOADM "LOC::M:\OPO\XFILE.LIB"
endp