home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / APFORM.ZIP / APFORM.SC < prev    next >
Text File  |  1990-12-02  |  809b  |  42 lines
  1. ; Copyright (c) 1989/90 RichPlum Ltd.  All Rights Reserved.
  2.  
  3.   release procs all
  4.   release vars  all
  5.  
  6. proc system_chk()
  7.   if version() < 3
  8.   Then beep
  9.        Quit "To execute APFORM you must be using PARADOX 3"
  10.   Endif
  11.  
  12.   if memleft() < 57*1024
  13.   Then beep
  14.        Quit "APFORM requires a minimum of 57K to function"
  15.   Endif
  16. endproc
  17.  
  18.   system_chk()             ;check that APFORM can be loaded
  19.  
  20.   release procs all
  21.   release vars  all
  22.  
  23.   retval = true
  24.   APFORM_INIT = true      ;inform APFORM to reset its variables
  25.  
  26.   while retval
  27.         AutoLib = SDir()+"Apform"
  28.         APfinit()
  29.         release procs APFINIT
  30.  
  31.         if not retval
  32.         then quitloop
  33.         endif
  34.  
  35.         APForm()
  36.   endwhile
  37.  
  38.   release procs all
  39.   release vars  all
  40.  
  41.   Quit "APFORM unloaded"
  42.