home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / database / cismsg15.zip / CIS.SC < prev    next >
Text File  |  1993-06-04  |  1KB  |  56 lines
  1. ;*************************************************************************
  2. ;*************************************************************************
  3. ; Formatted Source Listing
  4. ; Date : 05/23/93
  5. ; Time : 15:40:27
  6. ;
  7. ; System : CISMSG  The PARADOX-CIS Message Program
  8. ; File Name : C:\CIS\BATSYS.SC
  9. ; By : James Cap Walker and Mark Houpt with HELP from Freinds!
  10. ; Last modified 05/16/93  11:29:08 am
  11. ; Copyright (c) 1992-1993  BAT-Systems Consulting
  12. ; This program is represents a collection of code by:
  13. ; Tony Goodman
  14. ; Dan Ehrmann
  15. ; Angelo Loudon
  16. ; Dan Paolini
  17. ; Desmond Nolan
  18. ; John Nelson
  19. ; Michael Hyatt
  20. ; James Cap Walker
  21. ;
  22. ;*************************************************************************
  23. ;*************************************************************************
  24. CLEAR  RESET
  25. SHOWPULLDOWN
  26. ENDMENU
  27. SETUP = 0
  28. IF NOT ISFILE(SDIR()+"Paradox.lib") THEN
  29.     PLAY "Makelib"
  30. ENDIF
  31.  
  32. AUTOLIB="Paradox"
  33. ERRORPROC="inErrorHandler.n"
  34.  
  35. ARRAY FILEHANDLE[4]
  36. IF NRECORDS("start") >=1 THEN
  37.     VIEW "Start"
  38.     IF [done] = "" THEN
  39.        SETUP = 0
  40.     ELSE
  41.         SETUP = 1
  42.         FILEHANDLE[1] = [type]
  43.         IF [directory] > "" THEN
  44.             FILEHANDLE[2] = [directory]
  45.         ELSE
  46.             FILEHANDLE[2] = ""
  47.         ENDIF
  48.         FILEHANDLE[3] = [done]
  49.     ENDIF
  50. ELSE
  51.     SETUP = 0
  52. ENDIF
  53. FILEHANDLE[4] = DIRECTORY()
  54. CLEARALL
  55. MAINMENU()
  56.