home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
DATABASE
/
APFORM.ZIP
/
APFORMLK.SC
< prev
Wrap
Text File
|
1990-12-02
|
1KB
|
58 lines
; Copyright (c) 1989/90 RichPlum Ltd. All Rights Reserved.
;
;1. APFORMLK.SC will enable APFORM to run from within a PAL script.
;
;2. Instead of invoking APFORM.SC to initiate APFORM use APFORMLK.
; eg: play "APFORMLK"
;3. I would suggest that APFORM is invoked within a closed procedure
; to enable all the APFORM variables to be released on return
;variables:
; retval - set false if APFORM cannot be loaded, otherwise
; retval is set true
; AP_message - contains a message to be passed back to the calling
; script
proc system_chk()
if version() < 3
Then beep
AP_message = "To execute APFORM you must be using PARADOX 3"
return false
Endif
if memleft() < 57*1024
Then beep
AP_message = "APFORM requires a minimum of 57K to function"
return false
Endif
return true
endproc
system_chk() ;check that APFORM can be loaded
release procs system_chk
if not retval ;return if APFORM not to be loaded
then return
endif
APFORM_INIT = true ;inform APFORM to reset its variables
while retval
AutoLib = SDir()+"Apform"
APfinit()
release procs APFINIT
if not retval
then quitloop
endif
APForm()
endwhile
AP_message = ""
return true ;"APFORM unloaded"