home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1002 / svgademo.bi < prev    next >
Encoding:
Text File  |  1993-06-04  |  1.5 KB  |  43 lines
  1.    
  2.    
  3.  
  4.     DECLARE SUB GETKEY (RET$)
  5.     DECLARE SUB SHOWGIF (RET$, MAXX%, MAXY%, FILENAME$)
  6.     DECLARE SUB DOPRIMS (RetVal$, MAXX%, MAXY%)
  7.     DECLARE SUB DOCLIP (RetVal$, MAXX%, MAXY%)
  8.     DECLARE SUB DOFILL (RetVal$, MAXX%, MAXY%)
  9.     DECLARE SUB DOPAL (RetVal$, MAXX%, MAXY%)
  10.     DECLARE SUB DOBLOCK (RetVal$, MAXX%, MAXY%)
  11.     DECLARE SUB DOTEXT (RetVal$, MAXX%, MAXY%)
  12.     DECLARE SUB DOSCROLL (RET$, MAXX%, MAXY%)
  13.     DECLARE SUB DOGIF (RET$, MAXX%, MAXY%)
  14.     DECLARE SUB DOMOUSE (RET$, MAXX%, MAXY%)
  15.     DECLARE SUB DOJOYSTICK (RET$, MAXX%, MAXY%)
  16.     DECLARE SUB DO2D (RET$, MAXX%, MAXY%)
  17.     DECLARE SUB DO3D (RET$, MAXX%, MAXY%)
  18.     DECLARE SUB SHOWGIF (RET$, MAXX%, MAXY%, FILENAME$)
  19.     DECLARE SUB SHOWHOUSE ()
  20.     DECLARE SUB SHOWSTAR ()
  21.    
  22.     COMMON SHARED GFXBLK() AS INTEGER
  23.     COMMON SHARED SPRITEDATA() AS INTEGER
  24.     COMMON SHARED SPRITEBKGND() AS INTEGER
  25.     COMMON SHARED POINTARRY3D() AS P3Dtype
  26.     COMMON SHARED PLAYARRY() AS P3Dtype
  27.     COMMON SHARED OPLOTARRY() AS P2DType
  28.     COMMON SHARED PLOTARRY() AS P2DType
  29.     COMMON SHARED USERFONT AS STRING * 4098
  30.     COMMON SHARED MAGMOUSECURSOR AS STRING * 386
  31.     COMMON SHARED BIGMOUSECURSOR AS STRING * 386
  32.     COMMON SHARED STWMOUSECURSOR AS STRING * 386
  33.     COMMON SHARED ORGPAL AS STRING * 768
  34.     COMMON SHARED PAL AS STRING * 768
  35.     COMMON SHARED PAL2 AS STRING * 768
  36.     COMMON SHARED GIFPAL AS STRING * 768
  37.     COMMON SHARED PROJ AS PROJType
  38.  
  39.     REM $DYNAMIC
  40.  
  41.     DEFINT A-Z
  42.  
  43.