home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s087 / 1.img / BASIC4.ARC / SYNGATE1.BAS < prev   
Encoding:
BASIC Source File  |  1989-11-20  |  10.3 KB  |  203 lines
  1. DEFINT A-Z
  2.  
  3. type CardHandleStruct
  4.     HandleNumber AS integer
  5.     ThandleNum AS integer
  6.     CurrPtr AS long
  7.     CurrRec AS long
  8.     FreeSpace AS long
  9.     TablePtr AS long
  10.     TotRecs AS long
  11.     TotImgs AS long
  12.     Res1 AS long
  13.     FFlags AS integer
  14.     TmplAddr AS long
  15.     Res2 AS integer
  16.     TempFName AS string*74
  17. END TYPE
  18.  
  19. TYPE LayoutCardDescStruct
  20.     DDesc1 AS INTEGER
  21.     DDesc2 AS INTEGER
  22.     DDesc3 AS INTEGER
  23.     DDesc4 AS INTEGER
  24.     DDesc5 AS INTEGER
  25.     DDesc6 AS INTEGER
  26.     DDesc7 AS INTEGER
  27.     DDesc8 AS INTEGER
  28.     DDesc9 AS INTEGER
  29.     DFName AS STRING*22
  30.     DLblk1 AS INTEGER
  31.     DLblk2 AS INTEGER
  32.     DLblk3 AS INTEGER
  33.     DLblk4 AS INTEGER
  34. END TYPE
  35.  
  36. TYPE LayoutObjectStruct
  37.     ObjectType AS STRING*1
  38.     ObjectData1 AS INTEGER
  39.     ObjectData2 AS INTEGER
  40.     ObjectData3 AS INTEGER
  41.     ObjectData4 AS INTEGER
  42.     CardName AS STRING*16
  43. END TYPE
  44.  
  45. TYPE LayoutCardHeaderStruct
  46.     CFlags AS INTEGER
  47.     CTot AS INTEGER
  48.     CLen AS INTEGER
  49.     CDOff AS INTEGER
  50.     CTOff AS INTEGER
  51.     CCOff AS INTEGER
  52.     CardOrig AS INTEGER
  53.     CDim AS INTEGER
  54.     CardName AS STRING*16
  55. END TYPE
  56.  
  57. TYPE LayoutCardUnknownStruct
  58.     LayoutCardHeaderStruct AS LayoutCardHeaderStruct
  59.     NullCond AS INTEGER
  60.     TmplAddr AS LONG
  61. END TYPE
  62.  
  63. TYPE LayoutCardPblockStruct
  64.     PblockTopOff AS INTEGER
  65.     PCOff AS INTEGER
  66.     PEOF AS INTEGER
  67.     PTot AS INTEGER
  68.     PTLn AS INTEGER
  69.     PCLn AS INTEGER
  70.     PMax AS INTEGER
  71.     Res AS INTEGER
  72. END TYPE
  73.  
  74. TYPE LayoutListVarStruct
  75.     LVTFlags AS INTEGER
  76.     LVTSize AS INTEGER
  77.     ListVarTypeOff AS LONG
  78. END TYPE
  79.  
  80. DECLARE SUB alert.box.off ALIAS "alert_box_off" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  81. DECLARE SUB alert.box.on ALIAS "alert_box_on" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  82. DECLARE SUB beep.synergy ALIAS "beep_synergy"
  83. DECLARE SUB blank.block ALIAS "blank_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  84. DECLARE SUB blank.pixel.block ALIAS "blank_pixel_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  85. DECLARE SUB clear.block ALIAS "clear_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  86. DECLARE SUB clear.pixel.block ALIAS "clear_pixel_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  87. DECLARE SUB clear.screen ALIAS "clear_screen"
  88. DECLARE SUB close.process ALIAS "close_process"
  89. DECLARE SUB close.window ALIAS "close_window" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  90. DECLARE SUB color.block ALIAS "color_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%, BYVAL e%)
  91. DECLARE SUB color.pixel.block ALIAS "color_pixel_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%, BYVAL e%)
  92. DECLARE SUB dialog.box.off ALIAS "dialog_box_off" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  93. DECLARE SUB dialog.box.on ALIAS "dialog_box_on" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  94. DECLARE SUB draw.box ALIAS "draw_box" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  95. DECLARE SUB draw.ellipse ALIAS "draw_ellipse" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%, BYVAL e%)
  96. DECLARE SUB draw.line ALIAS "draw_line" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  97. DECLARE SUB draw.string ALIAS "draw_string" (BYVAL a%, BYVAL b%, c$, d%, e%)
  98. DECLARE SUB fill.block ALIAS "fill_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%, BYVAL e%, BYVAL f%)
  99. DECLARE SUB fill.desktop ALIAS "fill_desktop" (BYVAL a%)
  100. DECLARE SUB get.graphics.color ALIAS "get_graphics_color" (a%)
  101. DECLARE SUB initialize.mouse ALIAS "initialize_mouse"
  102. DECLARE SUB initialize.screen ALIAS "initialize_screen" (BYVAL a%)
  103. DECLARE SUB invert.block ALIAS "invert_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  104. DECLARE SUB name.window ALIAS "name_window" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%, e$, BYVAL f%)
  105. DECLARE SUB open.process ALIAS "open_process"
  106. DECLARE SUB open.window ALIAS "open_window" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  107. DECLARE SUB set.desktop ALIAS "set_desktop" (BYVAL a%, BYVAL b%, BYVAL c%)
  108. DECLARE SUB set.font.buffer ALIAS "set_font_buffer" (BYVAL a%, BYVAL b%)
  109. DECLARE SUB set.graphics.color ALIAS "set_graphics_color" (BYVAL a%)
  110. DECLARE SUB set.kern.width ALIAS "set_kern_width" (BYVAL a%)
  111. DECLARE SUB set.proportional.font ALIAS "set_proportional_font" (BYVAL a%)
  112. DECLARE SUB set.refresh.buffer ALIAS "set_refresh_buffer" (BYVAL a%, BYVAL b%)
  113. DECLARE SUB set.refresh.mode ALIAS "set_refresh_mode" (BYVAL a%)
  114. DECLARE SUB setup.menu ALIAS "setup_menu" (SEG a$)
  115. DECLARE SUB sound.synergy ALIAS "sound_synergy" (BYVAL a%, BYVAL b%)
  116. DECLARE SUB time.box.off ALIAS "time_box_off" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  117. DECLARE SUB time.box.on ALIAS "time_box_on" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  118. DECLARE SUB wait.synergy ALIAS "wait_synergy"
  119. DECLARE SUB write.text ALIAS "write_text" (BYVAL a%, BYVAL b, c$, BYVAL d%)
  120. DECLARE SUB xor.block ALIAS "xor_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  121. DECLARE SUB xor.box ALIAS "xor_box" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  122. DECLARE SUB xor.line ALIAS "xor_line" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  123. DECLARE SUB xor.pixel.block ALIAS "xor_pixel_block" (BYVAL a%, BYVAL b%, BYVAL c%, BYVAL d%)
  124.  
  125. DECLARE SUB Setup.Screen.Variables ALIAS "SETUP_SCREEN_VARIABLES" (SEG A)
  126. DECLARE SUB Reset.Program ALIAS "RESET_PROGRAM"
  127. DECLARE SUB Allocate.Refresh ALIAS "ALLOCATE_REFRESH" (byval A%, byval B%)
  128. DECLARE SUB Deallocate.Refresh ALIAS "DEALLOCATE_REFRESH"
  129. DECLARE SUB Allocate.Fixed.Buffer ALIAS "ALLOCATE_FIXED_BUFFER" (SEG A&, byval B%)
  130. DECLARE FUNCTION Allocate.var.Buffer ALIAS "ALLOCATE_VAR_BUFFER" (SEG A&, byval B%)
  131. DECLARE SUB Get.Bit.Parameters ALIAS "GET_BIT_PARAMETERS" (byval A%, byval B%, byval C%, byval D%, byval E%, byval F%, byval G%)
  132. DECLARE SUB Get.Byte.Parameters ALIAS "GET_BYTE_PARAMETERS" (byval A%, byval B%, byval C%, byval D%, byval E%, byval F%, byval G%)
  133. DECLARE SUB Set.Relative.Origin ALIAS "SET_RELATIVE_ORIGIN" (byval A%, byval B%, byval C%, byval D%)
  134. DECLARE SUB Reset.Relative.Origin ALIAS "RESET_RELATIVE_ORIGIN"
  135. DECLARE SUB Get.General.Input ALIAS "GET_GENERAL_INPUT" (byval A%, byval BX, byval B, SEG C%, SEG D%, SEG E%, SEG F%, SEG G%)
  136. DECLARE SUB Get.Menu.Input ALIAS "GET_MENU_INPUT" (byval A%, byval BX, byval B)
  137. DECLARE SUB Get.Card.Input ALIAS "GET_CARD_INPUT" (byval A%, byval B%, byval C%, byval DX, byval D, byval EX, byval E, byval FX, byval F)
  138. DECLARE SUB Do.Clear.Card ALIAS "DO_CLEAR_CARD" (byval AX, byval A)
  139. DECLARE SUB Do.Display.Card ALIAS "DO_DISPLAY_CARD" (byval AX, byval A, byval b%, byval CX, byval C)
  140. DECLARE SUB Do.Print.Card ALIAS "DO_PRINT_CARD" (byval AX, byval A)
  141. DECLARE SUB Do.Print.Text ALIAS "DO_PRINT_TEXT" (SEG A$, byval B%)
  142. DECLARE SUB Print.Variable ALIAS "PRINT_VARIABLE" (SEG A AS ANY, byval B%, byval C%)
  143. DECLARE SUB Print.Crlf ALIAS "PRINT_CRLF"
  144. DECLARE SUB Print.Page ALIAS "PRINT_PAGE"
  145. DECLARE SUB Display.Variable ALIAS "DISPLAY_VARIABLE" (SEG A AS ANY, byval B%, byval C%, byval D%, byval E%)
  146. DECLARE SUB Open.Card.File ALIAS "OPEN_CARD_FILE" (byval A%, byval BX, byval B, SEG C$, byval DX, byval D, SEG E$)
  147. DECLARE SUB Close.Card.File ALIAS "CLOSE_CARD_FILE" (byval AX, byval A, SEG B$)
  148. DECLARE SUB Move.File.Ptr ALIAS "MOVE_FILE_PTR" (byval A&, SEG B&, byval CX, byval C, BYVAL D%)
  149. DECLARE SUB Goto.CardFile.ID ALIAS "GOTO_CARDFILE_ID" (SEG A#, SEG B&, byval CX, byval C, BYVAL D%)
  150. DECLARE SUB Add.Card ALIAS "ADD_CARD" (byval AX, byval A, SEG B$)
  151. DECLARE SUB Replace.Card ALIAS "REPLACE_CARD" (byval AX, byval A, SEG B$)
  152. DECLARE SUB Delete.Card ALIAS "DELETE_CARD" (byval AX, byval A, SEG B$)
  153. DECLARE SUB Get.Current.Card ALIAS "GET_CURRENT_CARD" (byval AX, byval A, SEG B$)
  154. DECLARE SUB Get.Card.ID ALIAS "GET_CARD_ID" (byval AX, byval A, SEG B#, SEG C$)
  155. DECLARE SUB Display.Image ALIAS "DISPLAY_IMAGE" (byval A, byval B, byval C, byval D, byval EX, byval E)
  156. DECLARE SUB Get.Cardfile.Info ALIAS "GET_CARDFILE_INFO" (byval AX, byval A, SEG B&, SEG C&)
  157. DECLARE SUB Get.Chosen.Link ALIAS "GET_CHOSEN_LINK" (SEG A#, SEG B$)
  158. DECLARE SUB Set.Card.Link ALIAS "SET_CARD_LINK" (byval AX, byval A, SEG B#, SEG C$)
  159. DECLARE SUB Get.Card.Link ALIAS "GET_CARD_LINK" (byval AX, byval A, SEG B#, SEG C$)
  160. DECLARE SUB Set.List.Size ALIAS "SET_LIST_SIZE" (byval AX, byval A, byval B%, byval C%, byval D%)
  161. DECLARE SUB Get.Current.Item ALIAS "GET_CURRENT_ITEM" (byval AX, byval A, SEG B%, SEG C%)
  162. DECLARE SUB Insert.List.Item ALIAS "INSERT_LIST_ITEM" (byval A%, byval BX, byval B)
  163. DECLARE SUB Delete.List.Item ALIAS "DELETE_LIST_ITEM" (byval A%, byval BX, byval B)
  164.  
  165. DECLARE SUB Setup.Help ALIAS "SETUP_HELP" (SEG A$, SEG B AS ANY)
  166. DECLARE SUB Do.Help.Box ALIAS "DO_HELP_BOX"
  167. DECLARE SUB Set.Help.Page ALIAS "SET_HELP_PAGE" (BYVAL A)
  168.  
  169. DECLARE SUB Load.Run.BBX.Name ALIAS "LOAD_RUN_BBX_NAME" (SEG A%, SEG B$)
  170.  
  171. DECLARE FUNCTION SBFOpen ALIAS "SBF_OPEN" (A$)
  172. DECLARE SUB SBFClose ALIAS "SBF_CLOSE"
  173. DECLARE SUB SBF (byval AX, byval A, byval B%, byval c&)
  174. DECLARE SUB SBFString ALIAS "SBF_STRING" (SEG A$, byval B%, byval c&)
  175. DECLARE FUNCTION AsciizLength (SEG A$)
  176. DECLARE FUNCTION GetCardSeg (A AS ANY)
  177. DECLARE FUNCTION GetCardPtr (A AS ANY)
  178. DECLARE SUB SetCardOrig ALIAS "SET_CARD_ORIG" (BYVAL AX, BYVAL A, BYVAL B)
  179.  
  180. DECLARE FUNCTION GetListDword& ALIAS "GET_LIST_DWORD" (SEG A AS ANY, BYVAL B)
  181. DECLARE FUNCTION GetListInteger ALIAS "get_list_integer" (SEG A AS ANY, BYVAL B)
  182. DECLARE FUNCTION GetListFloat# ALIAS "get_list_float" (SEG A AS ANY, BYVAL B)
  183. DECLARE FUNCTION GetListString$ ALIAS "get_list_string" (SEG A AS ANY, BYVAL B)
  184.  
  185. DECLARE SUB SetListDword ALIAS "set_list_dword" (SEG A AS ANY, BYVAL B, BYVAL C&)
  186. DECLARE SUB SetListInteger ALIAS "set_list_integer" (SEG A AS ANY, BYVAL B, BYVAL C)
  187. DECLARE SUB SetListFloat ALIAS "set_list_float" (SEG A AS ANY, BYVAL B, BYVAL C#)
  188. DECLARE SUB SetListString ALIAS "set_list_string" (SEG A AS ANY, BYVAL B, SEG C$)
  189.  
  190. DECLARE FUNCTION LGetListDword& ALIAS "GET_LIST_DWORD" (BYVAL A&, BYVAL B)
  191. DECLARE FUNCTION LGetListInteger ALIAS "get_list_integer" (BYVAL A&, BYVAL B)
  192. DECLARE FUNCTION LGetListFloat# ALIAS "get_list_float" (BYVAL A&, BYVAL B)
  193. DECLARE FUNCTION LGetListString$ ALIAS "get_list_string" (BYVAL A&, BYVAL B)
  194.  
  195. DECLARE SUB LSetListDword ALIAS "set_list_dword" (BYVAL A&, BYVAL B, BYVAL C&)
  196. DECLARE SUB LSetListInteger ALIAS "set_list_integer" (BYVAL A&, BYVAL B, BYVAL C)
  197. DECLARE SUB LSetListFloat ALIAS "set_list_float" (BYVAL A&, BYVAL B, BYVAL C#)
  198. DECLARE SUB LSetListString ALIAS "set_list_string" (BYVAL A&, BYVAL B, SEG C$)
  199.  
  200. COMMON SHARED /LayoutCommon/ MaximumScreenRows, MaximumScreenColumns, XResolution, YResolution, ColorsAvailable, ScreenPlanes, _
  201.     DboxSrow, DboxScol, DboxErow, DboxEcol, DboxWidth, DboxHeight, SX1, SY1, SX2, SY2, _
  202.     MenuFlag, DataMenuTitles, MaxMenuWidth, MaxMenuHeight, MenuOff, MenuSeg
  203.