home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / database / cismsg15.zip / MSGMKLIB.SC < prev    next >
Encoding:
Text File  |  1993-06-04  |  3.8 KB  |  153 lines
  1.  
  2. ;*************************************************************************
  3. ;*************************************************************************
  4. ; Formatted Source Listing
  5. ; Date : 05/23/93
  6. ; Time : 15:40:27
  7. ;
  8. ; System : CISMSG  The PARADOX-CIS Message Program
  9. ; File Name : C:\CIS\BATSYS.SC
  10. ; By : James Cap Walker and Mark Houpt with HELP from Freinds!
  11. ; Last modified 05/16/93  11:29:08 am
  12. ; Copyright (c) 1992-1993  BAT-Systems Consulting
  13. ; This program is represents a collection of code by:
  14. ; Tony Goodman
  15. ; Dan Erhmann
  16. ; Angelo Loudon
  17. ; Dan Paolini
  18. ; Desmond Nolan
  19. ; John Nelson
  20. ; Michael Hyatt
  21. ; James Cap Walker
  22. ;
  23. ;*************************************************************************
  24.  
  25.  
  26. ; This program for builing LIBS is the work of Michael J. Hyatt
  27.  
  28.  
  29. LIBNAME = "Paradox"
  30. PROC LB_SETUP.U(LIBNAME)
  31.     
  32.     ; CreateLib LibName                     ; Comment this line out if you
  33.     ; only want to *add* to a library
  34.     PERCENTDONE.A = "0% Completed"
  35.     PERCENTDONE.N = 0
  36.     COMPLETE.A    = ""
  37.     ISFIRSTTIME.L = TRUE
  38.     DYNARRAY LBWATTR.Y[]
  39.     LBWATTR.Y["HasFrame"] = FALSE
  40.     
  41.     DYNARRAY COLORS.Y[]
  42.     COLORS.Y[1] = 63                         ; Window border
  43.     COLORS.Y[2] = 48                         ; GUI Lolite
  44.     COLORS.Y[3] = 59                         ; GUI Hilite
  45.     COLORS.Y[4] = 48                         ; Window field names
  46.     COLORS.Y[5] = 63                         ; Window field values
  47.     COLORS.Y[6] = 59                         ; Status bar
  48.     
  49.     
  50.     WINDOW CREATE @6,17 HEIGHT 11 WIDTH 45 TO LB.H
  51.     WINDOW SETATTRIBUTES LB.H FROM LBWATTR.Y
  52.     SETCANVAS LB.H
  53.     
  54.     FRAME DOUBLE FROM 0,0 TO 8,42
  55.     PAINTCANVAS ATTRIBUTE COLORS.Y[1] 0,0,0,41
  56.     PAINTCANVAS ATTRIBUTE COLORS.Y[1] 0,0,8,0
  57.     PAINTCANVAS ATTRIBUTE COLORS.Y[1] 8,1,8,42
  58.     PAINTCANVAS ATTRIBUTE COLORS.Y[1] 0,42,8,42
  59.     
  60.     FRAME SINGLE FROM 1,2 TO 7,40
  61.     PAINTCANVAS ATTRIBUTE COLORS.Y[2] 1,2,1,40
  62.     PAINTCANVAS ATTRIBUTE COLORS.Y[2] 1,2,7,2
  63.     PAINTCANVAS ATTRIBUTE COLORS.Y[3] 7,3,7,40
  64.     PAINTCANVAS ATTRIBUTE COLORS.Y[3] 1,40,7,40
  65.     
  66.     ECHO NORMAL
  67.     STYLE ATTRIBUTE COLORS.Y[1]
  68.     @0, 13 ?? " Library Builder "
  69.     
  70.     STYLE ATTRIBUTE COLORS.Y[4]
  71.     @2,5 ?? "Library:"
  72.     
  73.     STYLE ATTRIBUTE COLORS.Y[5]
  74.     @2,14 ?? FORMAT("cc", LIBNAME)
  75.     
  76.     STYLE ATTRIBUTE COLORS.Y[4]
  77.     @3,6 ?? "Script:"
  78.     
  79.     @4,8 ?? "Proc:"
  80.     
  81.     @5,5 ?? "Percent:"
  82.     
  83.     @6,4 ?? "Complete:"
  84.     
  85. ENDPROC
  86.  
  87.  
  88. PROC LB_PROCESS.U(SCRIPT.A)
  89.     PRIVATE PROCNAME.A
  90.     
  91.     PROCNAME.A = "LB_Process.u"
  92.     
  93.     STYLE ATTRIBUTE COLORS.Y[5]
  94.     @3, 14 ?? SCRIPT.A
  95.     
  96.     PLAY SCRIPT.A
  97.     
  98. ENDPROC
  99.  
  100.  
  101.  
  102. PROC LB_DISPLAYPROGRESS.U(PROCTOTAL.N, PROCNAME.A)
  103.     
  104.     PROCSTEP.N = PROCSTEP.N + 1
  105.     
  106.     PERCENTDONE.N = INT((PROCSTEP.N / PROCTOTAL.N) * 100)
  107.     COMPLETE.A = FILL("■", INT(ROUND(PERCENTDONE.N, - 1) / 4))
  108.     PERCENTDONE.A = STRVAL(PERCENTDONE.N) + "% Completed"
  109.     STYLE ATTRIBUTE COLORS.Y[5]
  110.     @4, 14 ?? FORMAT("w26", PROCNAME.A)
  111.     @5, 14 ?? PERCENTDONE.A
  112.     STYLE ATTRIBUTE COLORS.Y[6]
  113.     @6, 14 ?? COMPLETE.A
  114.     
  115.     RETURN TRUE
  116.     
  117. ENDPROC
  118.  
  119.  
  120.  
  121. PROC LB_COMPLETE.U(LIBNAME)
  122.     PRIVATE PROCNAME.A
  123.     
  124.     PROCNAME.A = "LB_Complete.u"
  125.     
  126.     SLEEP 1000
  127.     
  128.     OK.U("Done", "The " + FORMAT("cc", LIBNAME) +
  129.     " library was/successfully compiled.", TRUE, TRUE)
  130.     WINDOW CLOSE
  131.     
  132. ENDPROC
  133.  
  134.  
  135.  
  136. ;----------------------------------------------------------------------------
  137.  
  138. LIBNAME = "Paradox"                      ; Change this to the name of the
  139. ; library you want to write the
  140. ; procedures to
  141.  
  142. AUTOLIB = LIBNAME
  143. LB_SETUP.U(LIBNAME)
  144. LB_PROCESS.U("CisLibSc")
  145. SLEEP 500
  146. LB_SETUP.U(LIBNAME)
  147. LB_PROCESS.U("Batsys")
  148. LB_COMPLETE.U(LIBNAME)
  149. MENU {≡} {Desktop} {Empty}
  150.  
  151. RELEASE VARS LIBNAME
  152. RESET
  153.