home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / qb / qb4bas46.lzh / QB4BAS.BI next >
Text File  |  1989-11-29  |  32KB  |  931 lines
  1. '*****************************************************************
  2. '***  QB4BAS.BI - Assembly Support Include File                ***
  3. '***                                                           ***
  4. '***        Written by Harold Thomson                          ***
  5. '***                                                           ***
  6. '***  Purpose:                                                 ***
  7. '***       This include file gives the DECLARE statements for  ***
  8. '***       the assembly language functions and subroutines     ***
  9. '***       found in QB4BAS.LIB and QB4BAS.QLB.                 ***
  10. '***                                                           ***
  11. '*****************************************************************
  12. '
  13. '*****************************************************************
  14. '***        DATE Related Functions and SubRoutines ...         ***
  15. '*****************************************************************
  16. '
  17. 'Function ****************** QDATECVT ******************* Function
  18. '
  19. DECLARE FUNCTION QDATECVT$ (InDate AS STRING, _
  20.                             FunCode AS STRING)
  21. '
  22. 'Function ****************** QDATE    ******************* Function
  23. '
  24. DECLARE FUNCTION QDATE$ (FunCode AS STRING)
  25. '
  26. 'Function ****************** QDATEIN  ******************* Function
  27. '
  28. DECLARE FUNCTION QDATEIN$ (InDate AS STRING, _
  29.                            FunCode AS STRING)
  30. '
  31. 'Function ***************** QDATE2INT ******************* Function
  32. '
  33. DECLARE FUNCTION QDATE2INT% (InDate AS STRING)
  34. '
  35. 'Function ***************** QINT2DATE ******************* Function
  36. '
  37. DECLARE FUNCTION QINT2DATE$ (BYVAL InDate AS INTEGER)
  38. '
  39. 'Function ****************** QJULCALC ******************* Function
  40. '
  41. DECLARE FUNCTION QJULCALC% (CalcDate AS STRING, _
  42.                             BYVAL Amount AS INTEGER)
  43. '
  44. '
  45. '*****************************************************************
  46. '***        DISK Related Functions and SubRoutines ...         ***
  47. '*****************************************************************
  48. '
  49. 'SubRoutine **************** QDISKSTAT **************** SubRoutine
  50. '
  51. DECLARE SUB QDISKSTAT (DrvName AS STRING, _
  52.                        FreeClusters AS INTEGER, _
  53.                        TotClusters AS INTEGER, _
  54.                        SectorSize AS INTEGER, _
  55.                        SectorsCluster AS INTEGER)
  56. '
  57. 'Function ****************** QDISKTYP  ****************** Function
  58. '
  59. DECLARE FUNCTION QDISKTYP% ()
  60. '
  61. 'Function ****************** QDRVSPACE ****************** Function
  62. '
  63. DECLARE FUNCTION QDRVSPACE& (DrvName AS STRING)
  64. '
  65. 'Function ****************** QGETDRV  ******************* Function
  66. '
  67. DECLARE FUNCTION QGETDRV$ ()
  68. '
  69. 'Function ****************** QGETVOL  ******************* Function
  70. '
  71. DECLARE FUNCTION QGETVOL$ ()
  72. '
  73. 'SubRoutine **************** QSETDRV  ***************** SubRoutine
  74. '
  75. DECLARE SUB QSETDRV (DrvName AS STRING)
  76. '
  77. 'Function ****************** QSETVOL  ******************* Function
  78. '
  79. DECLARE FUNCTION QSETVOL% (Volid AS STRING)
  80. '
  81. '
  82. '*****************************************************************
  83. '***        FILE Related Functions and SubRoutines ...         ***
  84. '*****************************************************************
  85. '
  86. 'Function ****************** QCNTFILE ******************* Function
  87. '
  88. DECLARE FUNCTION QCNTFILE% (InFileName AS STRING, _
  89.                             BYVAL Attr AS INTEGER)
  90. '
  91. 'Function ****************** QCOPYFIL ******************* Function
  92. '
  93. DECLARE FUNCTION QCOPYFIL% (InFileName AS STRING, _
  94.                             OutFileName AS STRING)
  95. '
  96. 'Function ****************** QDELETE  ******************* Function
  97. '
  98. DECLARE FUNCTION QDELETE% (FileName AS STRING)
  99. '
  100. 'Function ****************** QEXIST   ******************* Function
  101. '
  102. DECLARE FUNCTION QEXIST% (FileName AS STRING)
  103. '
  104. 'Function **************** QFINDFIRST ******************* Function
  105. '
  106. DECLARE FUNCTION QFINDFIRST% (BYVAL Trec AS INTEGER, _
  107.                               DrvStr AS STRING, _
  108.                               BYVAL Attr AS INTEGER)
  109. '
  110. 'Function **************** QFINDNEXT  ******************* Function
  111. '
  112. DECLARE FUNCTION QFINDNEXT% (BYVAL Trec AS INTEGER)
  113. '
  114. 'Function ****************** QFINDF   ******************* Function
  115. '
  116. DECLARE FUNCTION QFINDF% (FileName AS STRING, _
  117.                           BYVAL Attr AS INTEGER)
  118. '
  119. 'Function ****************** QFINDN   ******************* Function
  120. '
  121. DECLARE FUNCTION QFINDN% ()
  122. '
  123. 'SubRoutine **************** QFATTR   ***************** SubRoutine
  124. '
  125. DECLARE SUB QFATTR (Attr AS INTEGER)
  126. '
  127. 'SubRoutine **************** QFDATE   ***************** SubRoutine
  128. '
  129. DECLARE SUB QFDATE (Month AS INTEGER, _
  130.                     Day AS INTEGER, _
  131.                     Year AS INTEGER)
  132. '
  133. 'SubRoutine **************** QFDATEI  ***************** SubRoutine
  134. '
  135. DECLARE SUB QFDATEI (MDY AS INTEGER)
  136. '
  137. 'SubRoutine **************** QFNAME   ***************** SubRoutine
  138. '
  139. DECLARE SUB QFNAME (FileName AS STRING)
  140. '
  141. 'SubRoutine **************** QFSIZE   ***************** SubRoutine
  142. '
  143. DECLARE SUB QFSIZE (Size AS LONG)
  144. '
  145. 'SubRoutine **************** QFSTAMP  ***************** SubRoutine
  146. '
  147. DECLARE FUNCTION QFSTAMP (Qfilname AS STRING, _
  148.                           Qfiltime AS STRING, _
  149.                           Qfildate AS STRING)
  150. '
  151. 'SubRoutine **************** QFTIME   ***************** SubRoutine
  152. '
  153. DECLARE SUB QFTIME (Hrs AS INTEGER, _
  154.                     Min AS INTEGER)
  155. '
  156. 'Function ****************** QFCREATE ******************* Function
  157. '
  158. DECLARE FUNCTION QFCREATE% (FileName AS STRING, _
  159.                             BYVAL FAttr AS INTEGER, _
  160.                             Handle AS INTEGER)
  161. '
  162. 'Function ****************** QFOPEN   ******************* Function
  163. '
  164. DECLARE FUNCTION QFOPEN% (FileName AS STRING, _
  165.                           BYVAL FAccess AS INTEGER, _
  166.                           Handle AS INTEGER)
  167. '
  168. 'Function ****************** QFREAD   ******************* Function
  169. '
  170. DECLARE FUNCTION QFREAD% (BYVAL Handle AS INTEGER, _
  171.                           Buffer AS STRING, _
  172.                           BYVAL ReadLen AS INTEGER, _
  173.                           BytesRead AS INTEGER)
  174. '
  175. 'Function ****************** QFSETEND ******************* Function
  176. '
  177. DECLARE FUNCTION QFSETEND% (BYVAL Handle AS INTEGER)
  178. '
  179. 'Function ****************** QFSETREC ******************* Function
  180. '
  181. DECLARE FUNCTION QFSETREC% (BYVAL Handle AS INTEGER, _
  182.                             BYVAL RecLen AS INTEGER, _
  183.                             BYVAL RecNum AS INTEGER)
  184. '
  185. 'Function ****************** QFSETRECL ****************** Function
  186. '
  187. DECLARE FUNCTION QFSETRECL% (BYVAL Handle AS INTEGER, _
  188.                              BYVAL RecLen AS INTEGER, _
  189.                              BYVAL RecNum AS LONG)
  190. '
  191. 'Function ******************** QFLOF ******************** Function
  192. '
  193. DECLARE FUNCTION QFLOF& (BYVAL Handle AS INTEGER)
  194. '
  195. 'Function ****************** QFWRITE  ******************* Function
  196. '
  197. DECLARE FUNCTION QFWRITE% (BYVAL Handle AS INTEGER, _
  198.                            Buffer AS STRING, _
  199.                            BYVAL WriteLen AS INTEGER, _
  200.                            BytesWritten AS INTEGER)
  201. '
  202. 'Function ****************** QFCLOSE  ******************* Function
  203. '
  204. DECLARE FUNCTION QFCLOSE% (BYVAL Handle AS INTEGER)
  205. '
  206. 'Function ****************** QMOVEFIL ******************* Function
  207. '
  208. DECLARE FUNCTION QMOVEFIL% (InFileName AS STRING, _
  209.                             OutFileName AS STRING)
  210. '
  211. 'Function ****************** QPARSEF  ******************* Function
  212. '
  213. DECLARE FUNCTION QPARSEF% (Pstring AS STRING, _
  214.                            BYVAL Pseg AS INTEGER, _
  215.                            BYVAL Pptr AS INTEGER)
  216. '
  217. 'Function ****************** QRENAME  ******************* Function
  218. '
  219. DECLARE FUNCTION QRENAME% (InFileName AS STRING, _
  220.                            OutFileName AS STRING)
  221. '
  222. 'Function ******************* QSHARE ******************** Function
  223. '
  224. DECLARE FUNCTION QSHARE% ()
  225. '
  226. 'Function ****************** QTREAD   ******************* Function
  227. '
  228. DECLARE FUNCTION QTREAD% (BYVAL Handle AS INTEGER, _
  229.                           BYVAL BufSeg AS INTEGER, _
  230.                           BYVAL BufPtr AS INTEGER, _
  231.                           BYVAL ReadLen AS INTEGER, _
  232.                           BytesRead AS INTEGER)
  233. '
  234. 'Function ****************** QTWRITE  ******************* Function
  235. '
  236. DECLARE FUNCTION QTWRITE% (BYVAL Handle AS INTEGER, _
  237.                            BYVAL BufSeg AS INTEGER, _
  238.                            BYVAL BufPtr AS INTEGER, _
  239.                            BYVAL WriteLen AS INTEGER, _
  240.                            BytesWritten AS INTEGER)
  241. '
  242. '
  243. '*****************************************************************
  244. '*** KEYBOARD Related Functions and SubRoutines ...            ***
  245. '*****************************************************************
  246. '
  247. 'Function ****************** QALTKEY  ******************* Function
  248. '
  249. DECLARE FUNCTION QALTKEY% ()
  250. '
  251. 'Function ****************** QCAPSKEY ******************* Function
  252. '
  253. DECLARE FUNCTION QCAPSKEY% ()
  254. '
  255. 'Function ****************** QCTRLKEY ******************* Function
  256. '
  257. DECLARE FUNCTION QCTRLKEY% ()
  258. '
  259. 'Function ****************** QGETKEY  ******************* Function
  260. '
  261. DECLARE FUNCTION QGETKEY% (Character AS STRING)
  262. '
  263. 'Function ****************** QINKEY   ******************* Function
  264. '
  265. DECLARE FUNCTION QINKEY% (Character AS STRING)
  266. '
  267. 'Function ****************** QINPUT   ******************* Function
  268. '
  269. DECLARE FUNCTION QINPUT% (VerStr AS STRING, _
  270.                           Buffer AS STRING, _
  271.                           BYVAL Row AS INTEGER, _
  272.                           BYVAL Col AS INTEGER, _
  273.                           BYVAL Attr AS INTEGER, _
  274.                           BYVAL Page AS INTEGER, _
  275.                           BYVAL Keys AS INTEGER)
  276. '
  277. 'Function ****************** QINPUTM  ******************* Function
  278. '
  279. DECLARE FUNCTION QINPUTM% (VerStr AS STRING, _
  280.                            Buffer AS STRING, _
  281.                            Mask AS STRING, _
  282.                            BYVAL Row AS INTEGER, _
  283.                            BYVAL Col AS INTEGER, _
  284.                            BYVAL Attr AS INTEGER, _
  285.                            BYVAL Page AS INTEGER, _
  286.                            BYVAL Keys AS INTEGER)
  287. '
  288. 'Function ****************** QKEYFLAG ******************* Function
  289. '
  290. DECLARE FUNCTION QKEYFLAG% ()
  291. '
  292. 'Function ****************** QKEYSTAT ******************* Function
  293. '
  294. DECLARE FUNCTION QKEYSTAT% ()
  295. '
  296. 'Function ****************** QNUMKEY  ******************* Function
  297. '
  298. DECLARE FUNCTION QNUMKEY% ()
  299. '
  300. 'Function ****************** QPOPMENU ******************* Function
  301. '
  302. DECLARE FUNCTION QPOPMENU% (BYVAL Count AS INTEGER, _
  303.                             BYVAL MenuSeg AS INTEGER, _
  304.                             BYVAL MenuOff AS INTEGER, _
  305.                             BYVAL Row AS INTEGER, _
  306.                             BYVAL Col AS INTEGER, _
  307.                             BYVAL Norm AS INTEGER, _
  308.                             BYVAL Actn AS INTEGER, _
  309.                             BYVAL High AS INTEGER, _
  310.                             BYVAL Page AS INTEGER)
  311. '
  312. 'Function ****************** QMENU    ******************* Function
  313. '
  314. DECLARE FUNCTION QMENU% (BYVAL Count AS INTEGER, _
  315.                          BYVAL MenuSeg AS INTEGER, _
  316.                          BYVAL MenuOff AS INTEGER, _
  317.                          BYVAL Row AS INTEGER, _
  318.                          BYVAL Col AS INTEGER, _
  319.                          BYVAL Norm AS INTEGER, _
  320.                          BYVAL Actn AS INTEGER, _
  321.                          BYVAL High AS INTEGER, _
  322.                          BYVAL Page AS INTEGER)
  323. '
  324. 'Function ****************** QMENUS   ******************* Function
  325. '
  326. DECLARE FUNCTION QMENUS% (BYVAL Count AS INTEGER, _
  327.                           BYVAL MenuSeg AS INTEGER, _
  328.                           BYVAL MenuOff AS INTEGER, _
  329.                           BYVAL Row AS INTEGER, _
  330.                           BYVAL Norm AS INTEGER, _
  331.                           BYVAL Actn AS INTEGER, _
  332.                           BYVAL High AS INTEGER, _
  333.                           BYVAL Page AS INTEGER)
  334. '
  335. 'Function ****************** QSCRLKEY ******************* Function
  336. '
  337. DECLARE FUNCTION QSCRLKEY% ()
  338. '
  339. 'Function ******************* QYESNO ******************** Function
  340. '
  341. DECLARE FUNCTION QYESNO% ()
  342. '
  343. '
  344. '*****************************************************************
  345. '***    MISCELLANEOUS Related Functions and SubRoutines ...    ***
  346. '*****************************************************************
  347. '
  348. 'SubRoutine **************** QALARM  ****************** SubRoutine
  349. '
  350. DECLARE SUB QALARM ()
  351. '
  352. 'Function ******************  QARGC  ******************** Function
  353. '
  354. DECLARE FUNCTION QARGC% ()
  355. '
  356. 'Function ******************  QARGV  ******************** Function
  357. '
  358. DECLARE FUNCTION QARGV$ (BYVAL ArgNumber AS INTEGER)
  359. '
  360. 'Function ***************** QBSTCHT ********************* Function
  361. '
  362. DECLARE FUNCTION QBSRCHT% (BYVAL Vseg AS INTEGER, _
  363.                            BYVAL Vptr AS INTEGER, _
  364.                            BYVAL Rlen AS INTEGER, _
  365.                            BYVAL Nrec AS INTEGER, _
  366.                            TstStr AS STRING)
  367. '
  368. 'SubRoutine **************** QCAPSOFF ***************** SubRoutine
  369. '
  370. DECLARE SUB QCAPSOFF ()
  371. '
  372. 'SubRoutine **************** QCAPSON  ***************** SubRoutine
  373. '
  374. DECLARE SUB QCAPSON ()
  375. '
  376. 'SubRoutine **************** QCLOCK   ***************** SubRoutine
  377. '
  378. DECLARE SUB QCLOCK (BYVAL Row AS INTEGER, _
  379.                     BYVAL Col AS INTEGER, _
  380.                     BYVAL NAttr AS INTEGER, _
  381.                     BYVAL Page AS INTEGER, _
  382.                     BYVAL Switch AS INTEGER)
  383. '
  384. 'Function ****************** QCMDLEN  ******************* Function
  385. '
  386. DECLARE FUNCTION QCMDLEN% ()
  387. '
  388. 'Function ****************** QCMDLINE ******************* Function
  389. '
  390. DECLARE FUNCTION QCMDLINE$ ()
  391. '
  392. 'Function ****************** QCRCCHK  ******************* Function
  393. '
  394. DECLARE FUNCTION QCRCCHK% (Record AS STRING)
  395. '
  396. 'Function ****************** QCRCSET  ******************* Function
  397. '
  398. DECLARE FUNCTION QCRCSET% (Record AS STRING)
  399. '
  400. 'SubRoutine **************** QDOSVER  ***************** SubRoutine
  401. '
  402. DECLARE SUB QDOSVER (Major AS INTEGER, _
  403.                      Minor AS INTEGER)
  404. '
  405. 'SubRoutine **************** QEMSSIZE ***************** SubRoutine
  406. '
  407. DECLARE SUB QEMSSIZE (Total AS INTEGER, _
  408.                       Free AS INTEGER)
  409. '
  410. 'SubRoutine *************** QEQUIPMENT **************** SubRoutine
  411. '
  412. DECLARE SUB QEQUIPMENT (Memory AS INTEGER, _
  413.                         Parallel AS INTEGER, _
  414.                         Serial AS INTEGER, _
  415.                         Game AS INTEGER)
  416. '
  417. 'Function ******************* QEXEC ********************* Function
  418. '
  419. DECLARE FUNCTION QEXEC% (PgmName AS STRING)
  420. '
  421. 'SubRoutine **************** QEXIT    ***************** SubRoutine
  422. '
  423. DECLARE SUB QEXIT (BYVAL ErrorLevel AS INTEGER)
  424. '
  425. 'Function ****************** QINPORT ******************** Function
  426. '
  427. DECLARE FUNCTION QINPORT% (BYVAL Port AS INTEGER)
  428. '
  429. 'Function ****************** QMAXINT ******************** Function
  430. '
  431. DECLARE FUNCTION QMAXINT% (BYVAL Num1 AS INTEGER, _
  432.                            BYVAL Num2 AS INTEGER)
  433. '
  434. 'Function ****************** QMININT ******************** Function
  435. '
  436. DECLARE FUNCTION QMININT% (BYVAL Num1 AS INTEGER, _
  437.                            BYVAL Num2 AS INTEGER)
  438. '
  439. 'Function ***************** QMAXLONG ******************** Function
  440. '
  441. DECLARE FUNCTION QMAXLONG& (BYVAL Num1 AS LONG, _
  442.                             BYVAL Num2 AS LONG)
  443. '
  444. 'Function ***************** QMINLONG ******************** Function
  445. '
  446. DECLARE FUNCTION QMINLONG& (BYVAL Num1 AS LONG, _
  447.                             BYVAL Num2 AS LONG)
  448. '
  449. 'SubRoutine ************* QNUMLOCKOFF ***************** SubRoutine
  450. '
  451. DECLARE SUB QNUMLOCKOFF ()
  452. '
  453. 'SubRoutine ************* QNUMLOCKON  ***************** SubRoutine
  454. '
  455. DECLARE SUB QNUMLOCKON ()
  456. '
  457. 'Function ****************** QPRINTER ******************* Function
  458. '
  459. DECLARE FUNCTION QPRINTER% ()
  460. '
  461. 'SubRoutine **************** QPRTSCRN ***************** SubRoutine
  462. '
  463. DECLARE SUB QPRTSCRN ()
  464. '
  465. 'SubRoutine ************* QPRTSCRNOFF ***************** SubRoutine
  466. '
  467. DECLARE SUB QPRTSCRNOFF ()
  468. '
  469. 'SubRoutine ************* QPRTSCRNON  ***************** SubRoutine
  470. '
  471. DECLARE SUB QPRTSCRNON ()
  472. '
  473. 'SubRoutine **************** QPAUSE   ***************** SubRoutine
  474. '
  475. DECLARE SUB QPAUSE (BYVAL Seconds AS INTEGER)
  476. '
  477. 'SubRoutine **************** QPAUSE18 ***************** SubRoutine
  478. '
  479. DECLARE SUB QPAUSE18 (BYVAL Count AS INTEGER)
  480. '
  481. 'SubRoutine **************** QREBOOT ****************** SubRoutine
  482. '
  483. DECLARE SUB QREBOOT ()
  484. '
  485. 'SubRoutine **************** QSCRLOFF ***************** SubRoutine
  486. '
  487. DECLARE SUB QSCRLOFF ()
  488. '
  489. 'SubRoutine **************** QSCRLON  ***************** SubRoutine
  490. '
  491. DECLARE SUB QSCRLON ()
  492. '
  493. 'Function ****************** QSHIFTIL ******************* Function
  494. '
  495. DECLARE FUNCTION QSHIFTIL% (BYVAL Number AS INTEGER, _
  496.                             BYVAL Shift AS INTEGER)
  497. '
  498. 'Function ****************** QSHIFTIR ******************* Function
  499. '
  500. DECLARE FUNCTION QSHIFTIR% (BYVAL Number AS INTEGER, _
  501.                             BYVAL Shift AS INTEGER)
  502. '
  503. 'Function ****************** QSHIFTLL ******************* Function
  504. '
  505. DECLARE FUNCTION QSHIFTLL& (BYVAL Number AS LONG, _
  506.                             BYVAL Shift AS INTEGER)
  507. '
  508. 'Function ****************** QSHIFTLR ******************* Function
  509. '
  510. DECLARE FUNCTION QSHIFTLR& (BYVAL Number AS LONG, _
  511.                             BYVAL Shift AS INTEGER)
  512. '
  513. 'Function ******************* QTEMPC ******************** Function
  514. '
  515. DECLARE FUNCTION QTEMPC% (BYVAL Temp AS INTEGER)
  516. '
  517. 'Function ******************* QTEMPF ******************** Function
  518. '
  519. DECLARE FUNCTION QTEMPF% (BYVAL Temp AS INTEGER)
  520. '
  521. 'SubRoutine ***************** QTIME  ****************** SubRoutine
  522. '
  523. DECLARE SUB QTIME (Hours AS INTEGER, _
  524.                    Minutes AS INTEGER, _
  525.                    Seconds AS INTEGER, _
  526.                    TotSeconds AS LONG)
  527. '
  528. 'Function ****************** QVERIFY  ******************* Function
  529. '
  530. DECLARE FUNCTION QVERIFY% ()
  531. '
  532. 'SubRoutine *************** QVERIFYOFF **************** SubRoutine
  533. '
  534. DECLARE SUB QVERIFYOFF ()
  535. '
  536. 'SubRoutine *************** QVERIFYON ***************** SubRoutine
  537. '
  538. DECLARE SUB QVERIFYON ()
  539. '
  540. 'Function ******************* Q8087 ********************* Function
  541. '
  542. DECLARE FUNCTION Q8087% ()
  543. '
  544. '
  545. '*****************************************************************
  546. '***        STRING Related Functions and SubRoutines ...       ***
  547. '*****************************************************************
  548. '
  549. 'SubRoutine **************** QCAPIT   ***************** SubRoutine
  550. '
  551. DECLARE SUB QCAPIT (Cstring AS STRING)
  552. '
  553. 'SubRoutine **************** QCENTER  ***************** SubRoutine
  554. '
  555. DECLARE SUB QCENTER (Cstring AS STRING)
  556. '
  557. 'Function ****************** QCHARTYP ******************* Function
  558. '
  559. DECLARE FUNCTION QCHARTYP% (InString AS STRING, _
  560.                             VerStr AS STRING)
  561. '
  562. 'Function ****************** QDELIM   ******************* Function
  563. '
  564. DECLARE FUNCTION QDELIM% (StringName AS STRING, _
  565.                           BYVAL Index AS INTEGER, _
  566.                           Start AS INTEGER, _
  567.                           StrLen AS INTEGER)
  568. '
  569. 'Function ****************** QEXTRACT ******************* Function
  570. '
  571. DECLARE FUNCTION QEXTRACT% (StringName AS STRING, _
  572.                             Delim AS STRING, _
  573.                             BYVAL Index AS INTEGER, _
  574.                             Start AS INTEGER, _
  575.                             StrLen AS INTEGER)
  576. '
  577. 'Function ****************** QFORMAT ******************** Function
  578. '
  579. DECLARE FUNCTION QFORMAT$ (StrIn AS STRING, _
  580.                            Mask AS STRING)
  581. '
  582. 'SubRoutine **************** QHIGHBIT ***************** SubRoutine
  583. '
  584. DECLARE SUB QHIGHBIT (Cstring AS STRING)
  585. '
  586. 'Function ******************  QINSTR  ******************* Function
  587. '
  588. DECLARE FUNCTION QINSTR% (StrIn AS STRING, _
  589.                           TstStr AS STRING, _
  590.                           Index AS INTEGER)
  591. '
  592. 'Function ******************** QLEN ********************* Function
  593. '
  594. DECLARE FUNCTION QLEN% (StringName AS STRING)
  595. '
  596. 'Function ******************* QMID ********************** Function
  597. '
  598. DECLARE FUNCTION QMID% (FromStr AS STRING, _
  599.                         ToStr AS STRING, _
  600.                         BYVAL Start AS INTEGER)
  601. '
  602. 'Function ****************** QMOVREC ******************** Function
  603. '
  604. DECLARE FUNCTION QMOVREC$ (BYVAL PrtR AS INTEGER, _
  605.                            BYVAL LenR AS INTEGER)
  606. '
  607. 'SubRoutine **************** QMOVSTR  ***************** SubRoutine
  608. '
  609. DECLARE SUB QMOVSTR (BYVAL PrtR AS INTEGER, _
  610.                      BYVAL LenR AS INTEGER, _
  611.                      Buffer AS STRING)
  612. '
  613. 'SubRoutine **************** QREPLACE ***************** SubRoutine
  614. '
  615. DECLARE SUB QREPLACE (StringName AS STRING, _
  616.                       OldStr AS STRING, _
  617.                       NewStr AS STRING)
  618. '
  619. 'Function ****************** QREVERSE ******************* Function
  620. '
  621. DECLARE FUNCTION QREVERSE$ (StrIn AS STRING)
  622. '
  623. 'Function ****************** QRINSTR  ******************* Function
  624. '
  625. DECLARE FUNCTION QRINSTR% (StrIn AS STRING, _
  626.                           TstStr AS STRING, _
  627.                           Index AS INTEGER)
  628. '
  629. 'Function ******************* QSTRIP ******************** Function
  630. '
  631. DECLARE FUNCTION QSTRIP$ (StringName AS STRING)
  632. '
  633. 'Function ****************** QSTRPCHR ******************* Function
  634. '
  635. DECLARE FUNCTION QSTRPCHR$ (StringName AS STRING)
  636. '
  637. 'Function ****************** QSUBSTR ******************** Function
  638. '
  639. DECLARE FUNCTION QSUBSTR$ (FromStr AS STRING, _
  640.                            BYVAL Start AS INTEGER, _
  641.                            BYVAL Length AS INTEGER)
  642. '
  643. 'Function ****************** QWORD    ******************* Function
  644. '
  645. DECLARE FUNCTION QWORD$ (StringName AS STRING, _
  646.                          BYVAL Index AS INTEGER)
  647. '
  648. 'Function ****************** QWORDS   ******************* Function
  649. '
  650. DECLARE FUNCTION QWORDS% (StringName AS STRING)
  651. '
  652. '
  653. '*****************************************************************
  654. '*** SUB-DIRECTORY Related Functions and SubRoutines ...       ***
  655. '*****************************************************************
  656. '
  657. 'Function ****************** QCHDIR   ******************* Function
  658. '
  659. DECLARE FUNCTION QCHDIR% (DirName AS STRING)
  660. '
  661. 'Function ****************** QCHKDIR  ******************* Function
  662. '
  663. DECLARE FUNCTION QCHKDIR% (DirName AS STRING)
  664. '
  665. 'Function ****************** QGETDIR  ******************* Function
  666. '
  667. DECLARE FUNCTION QGETDIR$ ()
  668. '
  669. 'Function ****************** QMKDIR   ******************* Function
  670. '
  671. DECLARE FUNCTION QMKDIR% (DirName AS STRING)
  672. '
  673. 'Function ****************** QRMDIR   ******************* Function
  674. '
  675. DECLARE FUNCTION QRMDIR% (DirName AS STRING)
  676. '
  677. '
  678. '*****************************************************************
  679. '*** VIDEO Related Functions and SubRoutines ...               ***
  680. '*****************************************************************
  681. '
  682. 'Function ****************** QANSIPRT ******************* Function
  683. '
  684. DECLARE SUB QANSIPRT (PrtString AS STRING)
  685. '
  686. 'Function ****************** QATTR    ******************* Function
  687. '
  688. DECLARE FUNCTION QATTR% (BYVAL Fore AS INTEGER, _
  689.                         BYVAL Back AS INTEGER)
  690. '
  691. 'SubRoutine **************** QCLREOL  ***************** SubRoutine
  692. '
  693. DECLARE SUB QCLREOL ()
  694. '
  695. 'Function ****************** QGETMODE ******************* Function
  696. '
  697. DECLARE FUNCTION QGETMODE% ()
  698. '
  699. 'SubRoutine **************** QCRTMODE ***************** SubRoutine
  700. '
  701. DECLARE SUB QCRTMODE (CrtType AS INTEGER, _
  702.                       CrtCols AS INTEGER)
  703. '
  704. 'SubRoutine **************** QBPRT    ***************** SubRoutine
  705. '
  706. DECLARE SUB QBPRT (PrtLine AS STRING, _
  707.                    BYVAL Row AS INTEGER, _
  708.                    BYVAL Col AS INTEGER, _
  709.                    BYVAL Attr AS INTEGER, _
  710.                    BYVAL Page AS INTEGER)
  711. '
  712. 'SubRoutine **************** QPRT     ***************** SubRoutine
  713. '
  714. DECLARE SUB QPRT (PrtLine AS STRING, _
  715.                   BYVAL Row AS INTEGER, _
  716.                   BYVAL Col AS INTEGER, _
  717.                   BYVAL Attr AS INTEGER, _
  718.                   BYVAL Page AS INTEGER)
  719. '
  720. 'SubRoutine **************** QBMPRT   ***************** SubRoutine
  721. '
  722. DECLARE SUB QBMPRT (BYVAL Elements AS INTEGER, _
  723.                     BYVAL VSeg AS INTEGER, _
  724.                     BYVAL VOff AS INTEGER, _
  725.                     BYVAL Row AS INTEGER, _
  726.                     BYVAL Col AS INTEGER, _
  727.                     BYVAL Attr AS INTEGER, _
  728.                     BYVAL Page AS INTEGER)
  729. '
  730. 'SubRoutine **************** QMPRT    ***************** SubRoutine
  731. '
  732. DECLARE SUB QMPRT (BYVAL Elements AS INTEGER, _
  733.                    BYVAL VSeg AS INTEGER, _
  734.                    BYVAL VOff AS INTEGER, _
  735.                    BYVAL Row AS INTEGER, _
  736.                    BYVAL Col AS INTEGER, _
  737.                    BYVAL Attr AS INTEGER, _
  738.                    BYVAL Page AS INTEGER)
  739. '
  740. 'SubRoutine **************** QPAINT ******************* SubRoutine
  741. '
  742. DECLARE SUB QPAINT (BYVAL TRow AS INTEGER, _
  743.                     BYVAL LCol AS INTEGER, _
  744.                     BYVAL BRow AS INTEGER, _
  745.                     BYVAL RCol AS INTEGER, _
  746.                     BYVAL Attr AS INTEGER, _
  747.                     BYVAL Page AS INTEGER)
  748. '
  749. 'Function ***************** QPRTANSI ******************** Function
  750. '
  751. DECLARE SUB QPRTANSI (PrtString AS STRING, _
  752.                       BYVAL Row AS INTEGER, _
  753.                       BYVAL Col AS INTEGER, _
  754.                       BYVAL Awindow AS INTEGER)
  755. '
  756. 'SubRoutine **************** QRESTSCR ***************** SubRoutine
  757. '
  758. DECLARE SUB QRESTSCR (BYVAL TRow AS INTEGER, _
  759.                       BYVAL LCol AS INTEGER, _
  760.                       BYVAL BRow AS INTEGER, _
  761.                       BYVAL RCol AS INTEGER, _
  762.                       BYVAL Page AS INTEGER, _
  763.                       BYVAL VSeg AS INTEGER, _
  764.                       BYVAL VPtr AS INTEGER)
  765. '
  766. 'SubRoutine **************** QSAVESCR ***************** SubRoutine
  767. '
  768. DECLARE SUB QSAVESCR (BYVAL TRow AS INTEGER, _
  769.                       BYVAL LCol AS INTEGER, _
  770.                       BYVAL BRow AS INTEGER, _
  771.                       BYVAL RCol AS INTEGER, _
  772.                       BYVAL Page AS INTEGER, _
  773.                       BYVAL VSeg AS INTEGER, _
  774.                       BYVAL VPtr AS INTEGER)
  775. '
  776. 'SubRoutine **************** QSCROLL  ***************** SubRoutine
  777. '
  778. DECLARE SUB QSCROLL (BYVAL TRow AS INTEGER, _
  779.                      BYVAL LCol AS INTEGER, _
  780.                      BYVAL BRow AS INTEGER, _
  781.                      BYVAL RCol AS INTEGER, _
  782.                      BYVAL Lines AS INTEGER)
  783. '
  784. 'SubRoutine **************** QSCROLLB ***************** SubRoutine
  785. '
  786. DECLARE SUB QSCROLLB (BYVAL TRow AS INTEGER, _
  787.                       BYVAL LCol AS INTEGER, _
  788.                       BYVAL BRow AS INTEGER, _
  789.                       BYVAL RCol AS INTEGER, _
  790.                       BYVAL Lines AS INTEGER)
  791. '
  792. 'Function ****************** QSCRREST ******************* Function
  793. '
  794. DECLARE FUNCTION QSCRREST% (BYVAL ASeg AS INTEGER, _
  795.                             BYVAL AOffset AS INTEGER, _
  796.                             BYVAL Page AS INTEGER)
  797. '
  798. 'Function ****************** QSCRSAVE ******************* Function
  799. '
  800. DECLARE FUNCTION QSCRSAVE% (BYVAL ASeg AS INTEGER, _
  801.                             BYVAL AOffset AS INTEGER, _
  802.                             BYVAL Page AS INTEGER)
  803. '
  804. 'SubRoutine **************** QSETMODE ***************** SubRoutine
  805. '
  806. DECLARE SUB QSETMODE (BYVAL Vmode as INTEGER)
  807. '
  808. 'Function ****************** QVIDREST ******************* Function
  809. '
  810. DECLARE FUNCTION QVIDREST% (BYVAL Page AS INTEGER)
  811. '
  812. 'Function ****************** QVIDSAVE ******************* Function
  813. '
  814. DECLARE FUNCTION QVIDSAVE% (BYVAL Page AS INTEGER)
  815. '
  816. 'SubRoutine **************** QWINDOW  ***************** SubRoutine
  817. '
  818. DECLARE SUB QWINDOW (BYVAL TRow AS INTEGER, _
  819.                      BYVAL LCol AS INTEGER, _
  820.                      BYVAL BRow AS INTEGER, _
  821.                      BYVAL RCol AS INTEGER, _
  822.                      BYVAL Frame AS INTEGER, _
  823.                      BYVAL Attr AS INTEGER, _
  824.                      BYVAL Page AS INTEGER)
  825. '
  826. 'SubRoutine **************** QWINDOWH ***************** SubRoutine
  827. '
  828. DECLARE SUB QWINDOWH (BYVAL TRow AS INTEGER, _
  829.                       BYVAL LCol AS INTEGER, _
  830.                       BYVAL BRow AS INTEGER, _
  831.                       BYVAL RCol AS INTEGER, _
  832.                       BYVAL NLine AS INTEGER, _
  833.                       BYVAL ASeg AS INTEGER, _
  834.                       BYVAL AOff AS INTEGER, _
  835.                       BYVAL Frame AS INTEGER, _
  836.                       BYVAL Attr AS INTEGER, _
  837.                       BYVAL Page AS INTEGER)
  838. '
  839. 'SubRoutine **************** QWINDOWV ***************** SubRoutine
  840. '
  841. DECLARE SUB QWINDOWV (BYVAL TRow AS INTEGER, _
  842.                       BYVAL LCol AS INTEGER, _
  843.                       BYVAL BRow AS INTEGER, _
  844.                       BYVAL RCol AS INTEGER, _
  845.                       BYVAL NLine AS INTEGER, _
  846.                       BYVAL ASeg AS INTEGER, _
  847.                       BYVAL AOff AS INTEGER, _
  848.                       BYVAL Frame AS INTEGER, _
  849.                       BYVAL Attr AS INTEGER, _
  850.                       BYVAL Page AS INTEGER)
  851. '
  852. 'SubRoutine **************** QWINDOWX ***************** SubRoutine
  853. '
  854. DECLARE SUB QWINDOWX (BYVAL TRow AS INTEGER, _
  855.                       BYVAL LCol AS INTEGER, _
  856.                       BYVAL BRow AS INTEGER, _
  857.                       BYVAL RCol AS INTEGER, _
  858.                       BYVAL Frame AS INTEGER, _
  859.                       BYVAL Attr AS INTEGER, _
  860.                       BYVAL Attrs AS INTEGER, _
  861.                       BYVAL Page AS INTEGER)
  862. '
  863. 'Function ****************** QGETATTR ******************* Function
  864. '
  865. DECLARE FUNCTION QGETATTR% (BYVAL Row AS INTEGER, _
  866.                             BYVAL Col AS INTEGER)
  867. '
  868. 'SubRoutine **************** QGETCURS ***************** SubRoutine
  869. '
  870. DECLARE SUB QGETCURS (Row AS INTEGER, _
  871.                       Col AS INTEGER, _
  872.                       Page AS INTEGER)
  873. '
  874. '
  875. '*****************************************************************
  876. '*** MOUSE Related Functions and SubRoutines ...               ***
  877. '*****************************************************************
  878. '
  879. 'SUB *********************** QMHIDE ************************** SUB
  880. '
  881. DECLARE SUB QMHIDE ()
  882. '
  883. 'Function ****************** QMLOC ********************** Function
  884. '
  885. DECLARE FUNCTION QMLOC% (Xloc AS INTEGER, _
  886.                          Yloc AS INTEGER)
  887. '
  888. 'Function ****************** QMPRESS ******************** Function
  889. '
  890. DECLARE FUNCTION QMPRESS% (BYVAL MKey AS INTEGER, _
  891.                            Ctr AS INTEGER, _
  892.                            Xloc AS INTEGER, _
  893.                            Yloc AS INTEGER)
  894. '
  895. 'SUB *********************** QMSET *************************** SUB
  896. '
  897. DECLARE SUB QMSET (BYVAL Xloc AS INTEGER, _
  898.                    BYVAL Yloc AS INTEGER)
  899. '
  900. 'SUB *********************** QMSHOW ************************** SUB
  901. '
  902. DECLARE SUB QMSHOW ()
  903. '
  904. 'Function ***************** QMSTATUS ******************** Function
  905. '
  906. DECLARE FUNCTION QMSTATUS% ()
  907. '
  908. '*****************************************************************
  909. '*** The End ...                                               ***
  910. '*****************************************************************
  911.  
  912. TYPE FileInfo
  913.      Fname AS STRING * 12
  914.      Fdate AS STRING * 8
  915.      Ftime AS STRING * 5
  916.      Fsize AS LONG
  917.      Fattr AS INTEGER
  918.      Fmonth AS INTEGER
  919.      Fday AS INTEGER
  920.      Fyear AS INTEGER
  921.      Fhour AS INTEGER
  922.      Fminute AS INTEGER
  923. END TYPE
  924.  
  925. TYPE ParseType
  926.      Pdrive AS STRING * 2
  927.      Ppath AS STRING * 64
  928.      Pname AS STRING * 8
  929.      Pext AS STRING * 3
  930. END TYPE
  931.