home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / database / apd40ulb.zip / MAKELIB.SC < prev    next >
Text File  |  1993-06-17  |  2KB  |  77 lines
  1. ;****************************************************
  2. ;
  3. ;  A PARADOX 4.O UTILITY LIBRARY (APD40ULB.SC)
  4. ;
  5. ;  THIS FREEWARE HAS BEEN PREPARED BY:
  6. ;
  7. ;  MICHAEL MAKLER
  8. ;  10221 SLATER AVE
  9. ;  #103-315
  10. ;  FOUNTAIN VALLEY, CA 92708
  11. ;  (714) 571-8510
  12. ;
  13. ;  FILES.DOC CONTAINS A LISTING OF ALL FILES REQUIRED
  14. ;  IF ANY ARE MISSING PLEASE CONTACT ME AT PHONE OR
  15. ;  ADDRESS ABOVE.
  16. ;
  17. ;  COPYRIGHT (C) 1993 MICHAEL MAKLER
  18. ;
  19. ;****************************************************
  20.  
  21. ;********************************************************************
  22. ;  FILE: MAKELIB.SC
  23. ;
  24. ;  NOTES: THE PURPOSE OF THIS PROCEDURE IS TO CREATE A LIBRARY
  25. ;         AND RUN A DEMO FOR THE PARADOX 4.0 UTILITY LIBRARY
  26. ;
  27. ;*******************************************************************
  28. CLEAR
  29. CLEARALL
  30. CANVAS OFF
  31.         MonitorType = UPPER (MONITOR())
  32.         If Monitortype = "COLOR"
  33.            Then   PaintCanvas  Attribute 30
  34.                                8,8 ,18,44
  35.                   Style Attribute  30
  36.            Else   PaintCanvas Border fill chr(254)
  37.                               Intense
  38.                               8,8 ,18,44
  39.                   Style Intense
  40.         Endif ;**** Monitortype = "COLOR" ****
  41.  
  42.  
  43. @9,0
  44. SETMARGIN 10
  45. TEXT
  46. A PARADOX 4.0 UTILITY LIBRARY
  47.  
  48. MICHAEL MAKLER
  49. 10221 SLATER AVE
  50. #103-315
  51. FOUNTAIN VALLEY, CA 92708
  52. (714) 571-8510
  53.  
  54. COPYRIGHT (C) 1993 MICHAEL MAKLER
  55. ENDTEXT
  56. CANVAS ON
  57. SLEEP 3000
  58. Release Procs All
  59. Release Procs All
  60. Release Vars all
  61.  
  62. SETMARGIN OFF
  63. Message "Creating Library"
  64.  
  65.  
  66. LibNAME.A = "UTILLIB"
  67. CreateLib LibNAME.A  Size 175
  68.  
  69. Message "Creating Library"
  70. Play "APD40ULB"
  71.  
  72. Message "RUNNING DEMO PROGRAM"
  73. LoadString = LibNAME.A
  74. AutoLib = LoadString
  75.  
  76. DEMO.A ()
  77.