home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / DAS-NBT1.INC < prev    next >
Text File  |  1996-07-04  |  5KB  |  66 lines
  1. '────────────────────────────────────────────────────────────────────────────
  2.  
  3. $LINK "DAS-NBT1.PBL"
  4.  
  5. '────────────────────────────────────────────────────────────────────────────
  6. DECLARE      SUB  Aprint            (SEG V$)
  7. DECLARE FUNCTION fAprintSet?        ()
  8. DECLARE      SUB  Attr2Color        (BYVAL Attr?,SEG Fgrnd?,SEG Bgrnd?)
  9. DECLARE      SUB  BlinkOff          ()
  10. DECLARE      SUB  BlinkOn           ()
  11. DECLARE FUNCTION fBlinkState?       ()
  12. DECLARE FUNCTION fColor2Attr?       (BYVAL Fgrnd?,BYVAL Bgrnd?)
  13. DECLARE FUNCTION fInvAttr?          (BYVAL Attr?)
  14. DECLARE FUNCTION fReadSCREEN$       (BYVAL R?,BYVAL C?,BYVAL Cols%)
  15. DECLARE FUNCTION fSCREEN?           (BYVAL R?,BYVAL C?,BYVAL Which?)
  16. DECLARE      SUB  SetTBorder        (BYVAL Brdr?,SEG BrdrChars$)
  17. DECLARE FUNCTION fSwapAttr?         (BYVAL Attr?)
  18. DECLARE      SUB  TBoxColor         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL A?)
  19. DECLARE      SUB  TBoxColor2        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Fattr?,BYVAL Tattr?)
  20. DECLARE      SUB  TBoxColorB        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL B?)
  21. DECLARE      SUB  TBoxColorF        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL F?)
  22. DECLARE      SUB  TBoxCopy          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Fpage?,BYVAL Tpage?)
  23. DECLARE      SUB  TBoxCopy2         (BYVAL Fpage?,BYVAL Tpage?)
  24. DECLARE      SUB  TBoxDOWN          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  25. DECLARE      SUB  TBoxDRAW          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Brdr%,BYVAL A?)
  26. DECLARE      SUB  TBoxDRAWH         (BYVAL R?,BYVAL C?,BYVAL Cs?,BYVAL Brdr%,BYVAL Connect?)
  27. DECLARE      SUB  TBoxDRAWV         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Brdr%,BYVAL Connect?)
  28. DECLARE      SUB  TBoxFILL          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  29. DECLARE      SUB  TBoxLEFT          (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  30. DECLARE FUNCTION fTBoxREAD$         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL A?)
  31. DECLARE      SUB  TBoxRIGHT         (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  32. DECLARE      SUB  TBoxUP            (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,BYVAL Char?,BYVAL A%)
  33. DECLARE      SUB  TBoxWRITE         (SEG ANY)
  34. DECLARE      SUB  Tprint            (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  35. DECLARE FUNCTION fTprint??          (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  36. DECLARE FUNCTION fTprintLEN%        (SEG ANY,BYVAL MidPos%)
  37. DECLARE      SUB  TprintLine        (BYVAL R?,BYVAL C?,BYVAL Cs?,SEG ANY,BYVAL MidPos%,BYVAL CR??,BYVAL TabWid?,BYVAL Attr?)
  38. DECLARE FUNCTION fTprintLine%       (BYVAL R?,BYVAL C?,BYVAL Cs?,SEG ANY,BYVAL MidPos%,BYVAL CR??,BYVAL TabWid?,BYVAL Attr?)
  39. DECLARE      SUB  TprintMid         (BYVAL R?,BYVAL C?,SEG ANY,BYVAL S%,BYVAL C%,BYVAL Attr?)
  40. DECLARE      SUB  TprintMid2        (BYVAL R?,BYVAL C?,SEG ANY,BYVAL Fmid%,BYVAL Tmid%,BYVAL Attr?)
  41. DECLARE FUNCTION fTprintMid2??      (BYVAL R?,BYVAL C?,SEG ANY,BYVAL Fmid%,BYVAL Tmid%,BYVAL Attr?)
  42. DECLARE FUNCTION fTprintMid??       (BYVAL R?,BYVAL C?,SEG ANY,BYVAL S%,BYVAL C%,BYVAL Attr?)
  43. DECLARE      SUB  TprintN           (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  44. DECLARE FUNCTION fTprintN??         (BYVAL R?,BYVAL C?,BYVAL T$,BYVAL Attr?)
  45. DECLARE      SUB  TprintTEXT        (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,SEG ANY,BYVAL MPos%,BYVAL CR??,BYVAL TWid?,BYVAL A?)
  46. DECLARE FUNCTION fTprintTEXT%       (BYVAL R?,BYVAL C?,BYVAL Rs?,BYVAL Cs?,SEG ANY,BYVAL MPos%,BYVAL CR??,BYVAL TWid?,BYVAL A?)
  47. DECLARE      SUB  VIDEOsetup        ()
  48. '════════════════════════════════════════════════════════════════════════════
  49. DECLARE      SUB  DisplayFile       (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL Cols?,SEG FileName$)
  50. DECLARE      SUB  DrawTShadow       (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL Cols?,BYVAL Shadow?,BYVAL Attr?)
  51. DECLARE FUNCTION fHelpLine$         (SEG H$,BYVAL Justify%)
  52. DECLARE      SUB  HelpLineSetup     (BYVAL Row?,BYVAL Col?,BYVAL Cols?,BYVAL Attr?)
  53. DECLARE FUNCTION fINSERTmsg%        ()
  54. DECLARE      SUB  MakeTBox          (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL Cols?,BYVAL Brdr%,BYVAL Battr?,BYVAL Shdo?,BYVAL Sattr?,BYVAL TPos?,BYVAL Title$)
  55. DECLARE FUNCTION fMakeTBox$         (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL Cols?,BYVAL Brdr%,BYVAL Battr?,BYVAL Shdo?,BYVAL Sattr?,BYVAL TPos?,BYVAL Title$)
  56. DECLARE FUNCTION fQueryPrint$       (BYVAL Row?,BYVAL Col?,BYVAL Cols?,BYVAL Mask$,BYVAL Answer$)
  57. DECLARE      SUB  SetINSERTmsg      (BYVAL OnMsg$,BYVAL OffMsg$,BYVAL Row?,BYVAL Col?)
  58. DECLARE FUNCTION fText2Lines%       (SEG Text$,SEG I$(),BYVAL LineLen%,BYVAL CrLf$)
  59. DECLARE      SUB  TprintCENTER      (BYVAL Row?,BYVAL Col?,BYVAL Cols?,BYVAL V$,BYVAL Attr?)
  60. DECLARE      SUB  TprintCLEAR       (BYVAL Row?,BYVAL Col?,BYVAL Cols?,BYVAL V$,BYVAL Attr?)
  61. DECLARE      SUB  TsliderH          (BYVAL Row?,BYVAL Col?,BYVAL Cols?,BYVAL LastI%,BYVAL FoS%)
  62. DECLARE      SUB  TsliderV          (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL LastI%,BYVAL FoS%)
  63. DECLARE      SUB  TsliderV2         (BYVAL Row?,BYVAL Col?,BYVAL Rows?,BYVAL Ips?,BYVAL LastI%,BYVAL FoS%)
  64. DECLARE FUNCTION fWrapPosF%         (BYVAL Start%,SEG T$$,BYVAL LineLen%,BYVAL CrLf??,BYVAL Twid?)
  65. '════════════════════════════════════════════════════════════════════════════
  66.