home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / dnalib7a.zip / DNALIB.INC < prev    next >
Text File  |  1994-05-14  |  7KB  |  160 lines

  1. DECLARE SUB AreaCLS(Row%,Col%,NumRows%,ColsWide%,Character%,Attr%)
  2. DECLARE SUB Ask(Text$,Mouse%,Rtrn%,Location%,Button%,Push%,Attr%,Shadow%,Border%)
  3. DECLARE SUB Browse(FileName$,Mouse%,TextColor%,TopRow%,LeftColumn%,BottomRow%,RightColumn%,Attr%,Shadow%,Border%)
  4. DECLARE SUB CalcByte(Attr%,LowByte%,HiByte%)
  5. DECLARE SUB CalcBox(Mouse%,Fill%,TopRow%,LeftColumn%,ButtonAttr%,TextAttr%,Attr%,Shadow%,Border%)
  6. DECLARE SUB CheckBits(Attr%,BitOne%,BitTwo%,BitThree%,BitFour%,BitFive%,BitSix%,BitSeven%,BitEight%)
  7. DECLARE SUB Dialog(Choices$(),Title$,Seconds%,Mouse%,Cntr%,TopRow%,LeftColumn%,TxtColor%,Attr%,Shadow%,Border%)
  8. DECLARE SUB DosPrint(BYVAL t$, BYVAL crlf%)
  9. DECLARE SUB DoubleBox(PromptOne$,PromptTwo$,TextOne$,TextTwo$,Allow$,Mouse%,Editkey%,Fill%,Location%,ButtonAttr%,TextAttr%,Attr%,Shadow%,Border%)
  10. DECLARE SUB DirectoryBox(ReturnedFile$,Mouse%,Attr%,BarAttr%,ButtonAttr%,Shadow%,Border%)
  11. DECLARE SUB EditBox(Prompt$,Text$,Allow$,Mouse%,Fill%,Location%,ButtonAttr%,TextAttr%,Attr%,Shadow%,Border%)
  12. DECLARE SUB ExpandTabs(Msg$)
  13. DECLARE SUB GetBytes(BaseScreen$,InsertByte$,Address%,NumBytes%)
  14. DECLARE SUB HorizontalMenu(Choices$(),BarSave$,HiLight%,Mouse%,HPointer%,HotKey%,BarAttr%,HiAttr%,TopRow%,Gap%,Marker%)
  15. DECLARE SUB LineEdit(Allow$,Text$,Mouse%,MouseRow%,MouseCol%,Fill%,Row%,Col%,EditKey%,Attr%)
  16. DECLARE SUB LockStatus(Row%,Col%,BarAttr%,StatusAttr%)
  17. DECLARE SUB Lotus(Choices$(),Infoline$(),HiLight%,Mouse%,LPointer%,HotKey%,HelpTextColor%,HelpAttr%,BarAttr%,HiAttr%,TopRow%,Gap%)
  18. DECLARE SUB MakeByte(Attr%,LowByte%,HiByte%)
  19. DECLARE SUB MayBe(Text$,Answer%,Mouse%,Location%,BAttr%,Attr%,Shadow%,Border%)
  20. DECLARE SUB MoveableWindow(BaseScreen$,ScreenID$,TopRow%,LeftColumn%)
  21. DECLARE SUB Noise(Which%)
  22. DECLARE SUB ParseSpec(SpecToParse$,Drive$,Path$,File$,Extn$)
  23. DECLARE SUB Percentage(Percent%,Row%,Col%,Attr%,TextAttr%)
  24. DECLARE SUB PickBox(StringArray$(),ReturnedArray$,Title$,TopRow%,Tag%,Mouse%,Attr%,BarAttr%,ButtonAttr%,Shadow%,Border%)
  25. DECLARE SUB PokeArea(TopRow%,LeftColumn%,BottomRow%,RightColumn%,Attr%)
  26. DECLARE SUB PokeChar(Row%,Column%,Char$,Attr%)
  27. DECLARE SUB Popwind(Title$,Toprow%,Leftcolumn%,Bottomrow%,Rightcolumn%,Attr%,Shadow%,Border%)
  28. DECLARE SUB Qprint(BYVAL Row%,BYVAL Col%,BYVAL A$,BYVAL Attr%)
  29. DECLARE SUB RestoreScreen(ScreenID$,TopRow%,LeftColumn%)
  30. DECLARE SUB SaveScreen(ScreenID$,TopRow%,LeftColumn%,BottomRow%,RightColumn%,Shadow%)
  31. DECLARE SUB ScreenPlus(Row%,Col%,TextFound$)
  32. DECLARE SUB ScrollBox(Choices$(),Rtrn$,Title$,Mouse%,Winsize%,Tag%,Centre%,DefaultPointer%,HiAttr%,Attr%,TopRow%,LeftColumn%,Shadow%,Border%)
  33. DECLARE SUB Scroll(Message$,Rev%,Direction%,Row%,Attr%)
  34. DECLARE SUB SplitPath(FilePath$, Path$, FileName$)
  35. DECLARE SUB ScrollMenu(Choices$(),Infoline$(),Rtrn$,Mouse%,Winsize%,Tag%,Centre%,HotKey%,HelpTextColor%,HelpAttr%,HiAttr%,Attr%,TopRow%,LeftColumn%,Shadow%,Border%)
  36. DECLARE SUB TypWrite(Text$,Row%,Col%,Attr%)
  37. DECLARE SUB VerticalMenu(Choices$(),Infoline$(),Rtrn$,BarSave$,Mouse%,HotKey%,HelpTextColor%,HelpAttr%,HiAttr%,TopRow%,Marker%,HPointer%,Attr%,Shadow%,Border%)
  38. DECLARE SUB VirtualBox(Choices$(),Rtrn$,Title$,Mouse%,Winsize%,Tag%,Centre%,Wide%,HiAttr%,Attr%,TopRow%,LeftColumn%,Shadow%,Border%)
  39. DECLARE SUB WriteToBox (ReturnedFile$,DefaultName$,Mouse%,Attr%,BarAttr%,ButtonAttr%,Shadow%,Border%)
  40.  
  41. DECLARE FUNCTION AltKey%()
  42. DECLARE FUNCTION BinFmt$(value&,size%)
  43. DECLARE FUNCTION CopyFile%(BYVAL InFile$, BYVAL OutFile$)
  44. DECLARE FUNCTION CtrlKey%()
  45. DECLARE FUNCTION GetKey%()
  46. DECLARE FUNCTION GetProgramName$()
  47. DECLARE FUNCTION GetPSP%()
  48. DECLARE FUNCTION HexFmt$(value&,size%)
  49. DECLARE FUNCTION InsertKey%()
  50. DECLARE FUNCTION KeyDown%()
  51. DECLARE FUNCTION LeftShift%()
  52. DECLARE FUNCTION OnlyKeys$(KeysAllowed$)
  53. DECLARE FUNCTION PadLeft$(Strg$,Wid%,CharNum%)
  54. DECLARE FUNCTION PadRight$(Strg$,Wid%,CharNum%)
  55. DECLARE FUNCTION Parse$(strg$,delim$)
  56. DECLARE FUNCTION Printer%(Port%)
  57. DECLARE FUNCTION Question%(QuestionText$(),CorrectAnswer$,Mouse%,ButtonAttr%,Attr%,TxtColor%,Shadow%,Border%)
  58. DECLARE FUNCTION RevInstr%(strg$,target$)
  59. DECLARE FUNCTION RevParse$(strg$,delim$)
  60. DECLARE FUNCTION RightShift%()
  61. DECLARE FUNCTION TRIML$(Strng$,Amount%)
  62. DECLARE FUNCTION TRIMR$(Strng$,Amount%)
  63. DECLARE FUNCTION YesNo%(Text$,Mouse%,Location%,BAttr%,Attr%,Shadow%,Border%)
  64. DECLARE FUNCTION ValidDrives$()
  65.  
  66. '┌─────────────────────────────────────────────────────────────────────┐
  67. '│                          Mouse Routines                             │░░
  68. '└─────────────────────────────────────────────────────────────────────┘░░
  69. '  ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  70.  
  71. DECLARE SUB Clicked(Rgt%,Lft%,Row%,Col%)
  72. DECLARE SUB FindMenu(Row%,Col%,Found%)
  73. DECLARE SUB HideCursor()
  74. DECLARE SUB ShowCursor()
  75. DECLARE SUB LocateCursor(Row%,Col%)
  76. DECLARE FUNCTION MouseThere%()
  77. DECLARE FUNCTION LeftButtonReleased%()
  78. DECLARE FUNCTION RightButtonReleased%()
  79. DECLARE FUNCTION BothButtonReleased%()
  80. DECLARE FUNCTION CentreButtonReleased%()
  81.  
  82. '┌─────────────────────────────────────────────────────────────────────┐
  83. '│ BIOS.INC                                                            │░░
  84. '│ to use the bios stuff below:                                        │░░
  85. '│ DIM ABSOLUTE Bios(1:1) AS BIOSData AT &H0040                        │░░
  86. '└─────────────────────────────────────────────────────────────────────┘░░
  87. '  ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  88.  
  89. TYPE CursorPos
  90.   Col         AS BYTE
  91.   Row         AS BYTE
  92. END TYPE
  93.  
  94. TYPE BIOSData
  95.   Com1Addr    AS WORD
  96.   Com2Addr    AS WORD
  97.   Com3Addr    AS WORD
  98.   Com4Addr    AS WORD
  99.   Lpt1Addr    AS WORD
  100.   Lpt2Addr    AS WORD
  101.   Lpt3Addr    AS WORD
  102.   Lpt4Addr    AS WORD
  103.   Equipmt     AS WORD
  104.   PCJrKbdErr  AS BYTE
  105.   MemSize     AS WORD
  106.   POSTScrtch  AS WORD
  107.   KbdStat1    AS BYTE
  108.   KbdStat2    AS BYTE
  109.   AltNumVal   AS BYTE
  110.   KbdBufHead  AS WORD
  111.   KbdBufTail  AS WORD
  112.   KbdBuffer   AS STRING * 32
  113.   FlopRecal   AS BYTE
  114.   FlopMtrStat AS BYTE
  115.   FlopMtrTick AS BYTE
  116.   FlopStatus  AS BYTE
  117.   FlopCtrllr  AS STRING * 7
  118.   CurVidMode  AS BYTE
  119.   CharPerRow  AS WORD
  120.   BytePerScrn AS WORD
  121.   CurPageOfs  AS WORD
  122.   CursorPg0   AS CursorPos
  123.   CursorPg1   AS CursorPos
  124.   CursorPg2   AS CursorPos
  125.   CursorPg3   AS CursorPos
  126.   CursorPg4   AS CursorPos
  127.   CursorPg5   AS CursorPos
  128.   CursorPg6   AS CursorPos
  129.   CursorPg7   AS CursorPos
  130.   CsrEndLine  AS BYTE
  131.   CsrStrtLine AS BYTE
  132.   CurDispPg   AS BYTE
  133.   CRTPortAddr AS WORD
  134.   CRTModeReg  AS BYTE
  135.   CRTColrReg  AS BYTE
  136.   Cassette    AS STRING * 5
  137.   SinceMidngt AS DWORD
  138.   ClkRollovr  AS BYTE
  139.   CtrlBrkHit  AS BYTE
  140.   WarmBoot    AS WORD
  141.   HdDrvCtrl   AS DWORD
  142.   PtrTimeOut  AS DWORD
  143.   SerTimeOut  AS DWORD
  144.   KbdBufStart AS WORD
  145.   KbdBufEnd   AS WORD
  146.   RowsMinus1  AS BYTE
  147.   CharScanHt  AS WORD
  148.   MiscVidStat AS WORD
  149.   DrvCtrlStat AS STRING * 13
  150.   x05         AS WORD
  151.   RTClkCtrl   AS STRING * 9
  152.   x06         AS STRING * 7
  153.   VidParmTbl  AS DWORD
  154.   x07         AS STRING * 68
  155.   IntraApp    AS STRING * 16
  156.   PrtScrnStat AS BYTE
  157.   x08         AS STRING * 3
  158.   FlopAB      AS BYTE
  159. END TYPE
  160.