home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / qbasic / qb4bas45.arc / QB4BAS.BI next >
Text File  |  1989-09-30  |  31KB  |  886 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. 'SubRoutine **************** QBYTES  ****************** SubRoutine
  361. '
  362. DECLARE SUB QBYTES (ByteFunc AS STRING, _
  363.                     BytesIn AS STRING, _
  364.                     BytesOut AS STRING)
  365. '
  366. 'SubRoutine **************** QCAPSOFF ***************** SubRoutine
  367. '
  368. DECLARE SUB QCAPSOFF ()
  369. '
  370. 'SubRoutine **************** QCAPSON  ***************** SubRoutine
  371. '
  372. DECLARE SUB QCAPSON ()
  373. '
  374. 'SubRoutine **************** QCLOCK   ***************** SubRoutine
  375. '
  376. DECLARE SUB QCLOCK (BYVAL Row AS INTEGER, _
  377.                     BYVAL Col AS INTEGER, _
  378.                     BYVAL NAttr AS INTEGER, _
  379.                     BYVAL Page AS INTEGER, _
  380.                     BYVAL Switch AS INTEGER)
  381. '
  382. 'Function ****************** QCMDLEN  ******************* Function
  383. '
  384. DECLARE FUNCTION QCMDLEN% ()
  385. '
  386. 'Function ****************** QCMDLINE ******************* Function
  387. '
  388. DECLARE FUNCTION QCMDLINE$ ()
  389. '
  390. 'Function ****************** QCRCCHK  ******************* Function
  391. '
  392. DECLARE FUNCTION QCRCCHK% (Record AS STRING)
  393. '
  394. 'Function ****************** QCRCSET  ******************* Function
  395. '
  396. DECLARE FUNCTION QCRCSET% (Record AS STRING)
  397. '
  398. 'SubRoutine **************** QDOSVER  ***************** SubRoutine
  399. '
  400. DECLARE SUB QDOSVER (Major AS INTEGER, _
  401.                      Minor AS INTEGER)
  402. '
  403. 'SubRoutine **************** QEMSSIZE ***************** SubRoutine
  404. '
  405. DECLARE SUB QEMSSIZE (Total AS INTEGER, _
  406.                       Free AS INTEGER)
  407. '
  408. 'SubRoutine *************** QEQUIPMENT **************** SubRoutine
  409. '
  410. DECLARE SUB QEQUIPMENT (Memory AS INTEGER, _
  411.                         Parallel AS INTEGER, _
  412.                         Serial AS INTEGER, _
  413.                         Game AS INTEGER)
  414. '
  415. 'SubRoutine **************** QEXIT    ***************** SubRoutine
  416. '
  417. DECLARE SUB QEXIT (BYVAL ErrorLevel AS INTEGER)
  418. '
  419. 'Function ****************** QINPORT ******************** Function
  420. '
  421. DECLARE FUNCTION QINPORT% (BYVAL Port AS INTEGER)
  422. '
  423. 'Function ****************** QMAXINT ******************** Function
  424. '
  425. DECLARE FUNCTION QMAXINT% (BYVAL Num1 AS INTEGER, _
  426.                            BYVAL Num2 AS INTEGER)
  427. '
  428. 'Function ****************** QMININT ******************** Function
  429. '
  430. DECLARE FUNCTION QMININT% (BYVAL Num1 AS INTEGER, _
  431.                            BYVAL Num2 AS INTEGER)
  432. '
  433. 'Function ***************** QMAXLONG ******************** Function
  434. '
  435. DECLARE FUNCTION QMAXLONG& (BYVAL Num1 AS LONG, _
  436.                             BYVAL Num2 AS LONG)
  437. '
  438. 'Function ***************** QMINLONG ******************** Function
  439. '
  440. DECLARE FUNCTION QMINLONG& (BYVAL Num1 AS LONG, _
  441.                             BYVAL Num2 AS LONG)
  442. '
  443. 'SubRoutine ************* QNUMLOCKOFF ***************** SubRoutine
  444. '
  445. DECLARE SUB QNUMLOCKOFF ()
  446. '
  447. 'SubRoutine ************* QNUMLOCKON  ***************** SubRoutine
  448. '
  449. DECLARE SUB QNUMLOCKON ()
  450. '
  451. 'Function ****************** QPRINTER ******************* Function
  452. '
  453. DECLARE FUNCTION QPRINTER% ()
  454. '
  455. 'SubRoutine **************** QPRTSCRN ***************** SubRoutine
  456. '
  457. DECLARE SUB QPRTSCRN ()
  458. '
  459. 'SubRoutine ************* QPRTSCRNOFF ***************** SubRoutine
  460. '
  461. DECLARE SUB QPRTSCRNOFF ()
  462. '
  463. 'SubRoutine ************* QPRTSCRNON  ***************** SubRoutine
  464. '
  465. DECLARE SUB QPRTSCRNON ()
  466. '
  467. 'SubRoutine **************** QPAUSE   ***************** SubRoutine
  468. '
  469. DECLARE SUB QPAUSE (BYVAL Seconds AS INTEGER)
  470. '
  471. 'SubRoutine **************** QPAUSE18 ***************** SubRoutine
  472. '
  473. DECLARE SUB QPAUSE18 (BYVAL Count AS INTEGER)
  474. '
  475. 'SubRoutine **************** QREBOOT ****************** SubRoutine
  476. '
  477. DECLARE SUB QREBOOT ()
  478. '
  479. 'SubRoutine **************** QSCRLOFF ***************** SubRoutine
  480. '
  481. DECLARE SUB QSCRLOFF ()
  482. '
  483. 'SubRoutine **************** QSCRLON  ***************** SubRoutine
  484. '
  485. DECLARE SUB QSCRLON ()
  486. '
  487. 'Function ****************** QSHIFTIL ******************* Function
  488. '
  489. DECLARE FUNCTION QSHIFTIL% (BYVAL Number AS INTEGER, _
  490.                             BYVAL Shift AS INTEGER)
  491. '
  492. 'Function ****************** QSHIFTIR ******************* Function
  493. '
  494. DECLARE FUNCTION QSHIFTIR% (BYVAL Number AS INTEGER, _
  495.                             BYVAL Shift AS INTEGER)
  496. '
  497. 'Function ****************** QSHIFTLL ******************* Function
  498. '
  499. DECLARE FUNCTION QSHIFTLL& (BYVAL Number AS LONG, _
  500.                             BYVAL Shift AS INTEGER)
  501. '
  502. 'Function ****************** QSHIFTLR ******************* Function
  503. '
  504. DECLARE FUNCTION QSHIFTLR& (BYVAL Number AS LONG, _
  505.                             BYVAL Shift AS INTEGER)
  506. '
  507. 'Function ******************* QTEMPC ******************** Function
  508. '
  509. DECLARE FUNCTION QTEMPC% (BYVAL Temp AS INTEGER)
  510. '
  511. 'Function ******************* QTEMPF ******************** Function
  512. '
  513. DECLARE FUNCTION QTEMPF% (BYVAL Temp AS INTEGER)
  514. '
  515. 'SubRoutine ***************** QTIME  ****************** SubRoutine
  516. '
  517. DECLARE SUB QTIME (Hours AS INTEGER, _
  518.                    Minutes AS INTEGER, _
  519.                    Seconds AS INTEGER, _
  520.                    TotSeconds AS LONG)
  521. '
  522. 'Function ****************** QVERIFY  ******************* Function
  523. '
  524. DECLARE FUNCTION QVERIFY% ()
  525. '
  526. 'SubRoutine *************** QVERIFYOFF **************** SubRoutine
  527. '
  528. DECLARE SUB QVERIFYOFF ()
  529. '
  530. 'SubRoutine *************** QVERIFYON ***************** SubRoutine
  531. '
  532. DECLARE SUB QVERIFYON ()
  533. '
  534. 'Function ******************* Q8087 ********************* Function
  535. '
  536. DECLARE FUNCTION Q8087% ()
  537. '
  538. '
  539. '*****************************************************************
  540. '***        STRING Related Functions and SubRoutines ...       ***
  541. '*****************************************************************
  542. '
  543. 'SubRoutine **************** QCAPIT   ***************** SubRoutine
  544. '
  545. DECLARE SUB QCAPIT (Cstring AS STRING)
  546. '
  547. 'SubRoutine **************** QCENTER  ***************** SubRoutine
  548. '
  549. DECLARE SUB QCENTER (Cstring AS STRING)
  550. '
  551. 'Function ****************** QCHARTYP ******************* Function
  552. '
  553. DECLARE FUNCTION QCHARTYP% (InString AS STRING, _
  554.                             VerStr AS STRING)
  555. '
  556. 'Function ****************** QDELIM   ******************* Function
  557. '
  558. DECLARE FUNCTION QDELIM% (StringName AS STRING, _
  559.                           BYVAL Index AS INTEGER, _
  560.                           Start AS INTEGER, _
  561.                           StrLen AS INTEGER)
  562. '
  563. 'Function ****************** QEXTRACT ******************* Function
  564. '
  565. DECLARE FUNCTION QEXTRACT% (StringName AS STRING, _
  566.                             Delim AS STRING, _
  567.                             BYVAL Index AS INTEGER, _
  568.                             Start AS INTEGER, _
  569.                             StrLen AS INTEGER)
  570. '
  571. 'SubRoutine **************** QHIGHBIT ***************** SubRoutine
  572. '
  573. DECLARE SUB QHIGHBIT (Cstring AS STRING)
  574. '
  575. 'Function ******************  QINSTR  ******************* Function
  576. '
  577. DECLARE FUNCTION QINSTR% (StrIn AS STRING, _
  578.                          TstStr AS STRING, _
  579.                          Index AS INTEGER)
  580. '
  581. 'Function ******************** QLEN ********************* Function
  582. '
  583. DECLARE FUNCTION QLEN% (StringName AS STRING)
  584. '
  585. 'Function ******************* QMID ********************** Function
  586. '
  587. DECLARE FUNCTION QMID% (FromStr AS STRING, _
  588.                         ToStr AS STRING, _
  589.                         BYVAL Start AS INTEGER)
  590. '
  591. 'Function ****************** QMOVREC ******************** Function
  592. '
  593. DECLARE FUNCTION QMOVREC$ (BYVAL PrtR AS INTEGER, _
  594.                            BYVAL LenR AS INTEGER)
  595. '
  596. 'SubRoutine **************** QMOVSTR  ***************** SubRoutine
  597. '
  598. DECLARE SUB QMOVSTR (BYVAL PrtR AS INTEGER, _
  599.                      BYVAL LenR AS INTEGER, _
  600.                      Buffer AS STRING)
  601. '
  602. 'SubRoutine **************** QREPLACE ***************** SubRoutine
  603. '
  604. DECLARE SUB QREPLACE (StringName AS STRING, _
  605.                       OldStr AS STRING, _
  606.                       NewStr AS STRING)
  607. '
  608. 'Function ****************** QREVERSE ******************* Function
  609. '
  610. DECLARE FUNCTION QREVERSE$ (StrIn AS STRING)
  611. '
  612. 'Function ****************** QRINSTR  ******************* Function
  613. '
  614. DECLARE FUNCTION QRINSTR% (StrIn AS STRING, _
  615.                           TstStr AS STRING, _
  616.                           Index AS INTEGER)
  617. '
  618. 'Function ******************* QSTRIP ******************** Function
  619. '
  620. DECLARE FUNCTION QSTRIP$ (StringName AS STRING)
  621. '
  622. 'Function ****************** QSTRPCHR ******************* Function
  623. '
  624. DECLARE FUNCTION QSTRPCHR$ (StringName AS STRING)
  625. '
  626. 'Function ****************** QSUBSTR ******************** Function
  627. '
  628. DECLARE FUNCTION QSUBSTR$ (FromStr AS STRING, _
  629.                            BYVAL Start AS INTEGER, _
  630.                            BYVAL Length AS INTEGER)
  631. '
  632. 'Function ****************** QWORD    ******************* Function
  633. '
  634. DECLARE FUNCTION QWORD$ (StringName AS STRING, _
  635.                          BYVAL Index AS INTEGER)
  636. '
  637. 'Function ****************** QWORDS   ******************* Function
  638. '
  639. DECLARE FUNCTION QWORDS% (StringName AS STRING)
  640. '
  641. '
  642. '*****************************************************************
  643. '*** SUB-DIRECTORY Related Functions and SubRoutines ...       ***
  644. '*****************************************************************
  645. '
  646. 'Function ****************** QCHDIR   ******************* Function
  647. '
  648. DECLARE FUNCTION QCHDIR% (DirName AS STRING)
  649. '
  650. 'Function ****************** QCHKDIR  ******************* Function
  651. '
  652. DECLARE FUNCTION QCHKDIR% (DirName AS STRING)
  653. '
  654. 'Function ****************** QGETDIR  ******************* Function
  655. '
  656. DECLARE FUNCTION QGETDIR$ ()
  657. '
  658. 'Function ****************** QMKDIR   ******************* Function
  659. '
  660. DECLARE FUNCTION QMKDIR% (DirName AS STRING)
  661. '
  662. 'Function ****************** QRMDIR   ******************* Function
  663. '
  664. DECLARE FUNCTION QRMDIR% (DirName AS STRING)
  665. '
  666. '
  667. '*****************************************************************
  668. '*** VIDEO Related Functions and SubRoutines ...               ***
  669. '*****************************************************************
  670. '
  671. 'Function ****************** QANSIPRT ******************* Function
  672. '
  673. DECLARE SUB QANSIPRT (PrtString AS STRING)
  674. '
  675. 'Function ****************** QATTR    ******************* Function
  676. '
  677. DECLARE FUNCTION QATTR% (BYVAL Fore AS INTEGER, _
  678.                         BYVAL Back AS INTEGER)
  679. '
  680. 'SubRoutine **************** QCLREOL  ***************** SubRoutine
  681. '
  682. DECLARE SUB QCLREOL ()
  683. '
  684. 'Function ****************** QGETMODE ******************* Function
  685. '
  686. DECLARE FUNCTION QGETMODE% ()
  687. '
  688. 'SubRoutine **************** QCRTMODE ***************** SubRoutine
  689. '
  690. DECLARE SUB QCRTMODE (CrtType AS INTEGER, _
  691.                       CrtCols AS INTEGER)
  692. '
  693. 'SubRoutine **************** QBPRT    ***************** SubRoutine
  694. '
  695. DECLARE SUB QBPRT (PrtLine AS STRING, _
  696.                    BYVAL Row AS INTEGER, _
  697.                    BYVAL Col AS INTEGER, _
  698.                    BYVAL Attr AS INTEGER, _
  699.                    BYVAL Page AS INTEGER)
  700. '
  701. 'SubRoutine **************** QPRT     ***************** SubRoutine
  702. '
  703. DECLARE SUB QPRT (PrtLine AS STRING, _
  704.                   BYVAL Row AS INTEGER, _
  705.                   BYVAL Col AS INTEGER, _
  706.                   BYVAL Attr AS INTEGER, _
  707.                   BYVAL Page AS INTEGER)
  708. '
  709. 'SubRoutine **************** QBMPRT   ***************** SubRoutine
  710. '
  711. DECLARE SUB QBMPRT (BYVAL Elements AS INTEGER, _
  712.                     BYVAL VSeg AS INTEGER, _
  713.                     BYVAL VOff AS INTEGER, _
  714.                     BYVAL Row AS INTEGER, _
  715.                     BYVAL Col AS INTEGER, _
  716.                     BYVAL Attr AS INTEGER, _
  717.                     BYVAL Page AS INTEGER)
  718. '
  719. 'SubRoutine **************** QMPRT    ***************** SubRoutine
  720. '
  721. DECLARE SUB QMPRT (BYVAL Elements AS INTEGER, _
  722.                    BYVAL VSeg AS INTEGER, _
  723.                    BYVAL VOff AS INTEGER, _
  724.                    BYVAL Row AS INTEGER, _
  725.                    BYVAL Col AS INTEGER, _
  726.                    BYVAL Attr AS INTEGER, _
  727.                    BYVAL Page AS INTEGER)
  728. '
  729. 'SubRoutine **************** QPAINT ******************* SubRoutine
  730. '
  731. DECLARE SUB QPAINT (BYVAL TRow AS INTEGER, _
  732.                     BYVAL LCol AS INTEGER, _
  733.                     BYVAL BRow AS INTEGER, _
  734.                     BYVAL RCol AS INTEGER, _
  735.                     BYVAL Attr AS INTEGER, _
  736.                     BYVAL Page AS INTEGER)
  737. '
  738. 'Function ***************** QPRTANSI ******************** Function
  739. '
  740. DECLARE SUB QPRTANSI (PrtString AS STRING, _
  741.                       BYVAL Row AS INTEGER, _
  742.                       BYVAL Col AS INTEGER, _
  743.                       BYVAL Awindow AS INTEGER)
  744. '
  745. 'SubRoutine **************** QRESTSCR ***************** SubRoutine
  746. '
  747. DECLARE SUB QRESTSCR (BYVAL TRow AS INTEGER, _
  748.                       BYVAL LCol AS INTEGER, _
  749.                       BYVAL BRow AS INTEGER, _
  750.                       BYVAL RCol AS INTEGER, _
  751.                       BYVAL Page AS INTEGER, _
  752.                       BYVAL VSeg AS INTEGER, _
  753.                       BYVAL VPtr AS INTEGER)
  754. '
  755. 'SubRoutine **************** QSAVESCR ***************** SubRoutine
  756. '
  757. DECLARE SUB QSAVESCR (BYVAL TRow AS INTEGER, _
  758.                       BYVAL LCol AS INTEGER, _
  759.                       BYVAL BRow AS INTEGER, _
  760.                       BYVAL RCol AS INTEGER, _
  761.                       BYVAL Page AS INTEGER, _
  762.                       BYVAL VSeg AS INTEGER, _
  763.                       BYVAL VPtr AS INTEGER)
  764. '
  765. 'SubRoutine **************** QSCROLL  ***************** SubRoutine
  766. '
  767. DECLARE SUB QSCROLL (BYVAL TRow AS INTEGER, _
  768.                      BYVAL LCol AS INTEGER, _
  769.                      BYVAL BRow AS INTEGER, _
  770.                      BYVAL RCol AS INTEGER, _
  771.                      BYVAL Lines AS INTEGER)
  772. '
  773. 'SubRoutine **************** QSCROLLB ***************** SubRoutine
  774. '
  775. DECLARE SUB QSCROLLB (BYVAL TRow AS INTEGER, _
  776.                       BYVAL LCol AS INTEGER, _
  777.                       BYVAL BRow AS INTEGER, _
  778.                       BYVAL RCol AS INTEGER, _
  779.                       BYVAL Lines AS INTEGER)
  780. '
  781. 'Function ****************** QSCRREST ******************* Function
  782. '
  783. DECLARE FUNCTION QSCRREST% (BYVAL ASeg AS INTEGER, _
  784.                             BYVAL AOffset AS INTEGER, _
  785.                             BYVAL Page AS INTEGER)
  786. '
  787. 'Function ****************** QSCRSAVE ******************* Function
  788. '
  789. DECLARE FUNCTION QSCRSAVE% (BYVAL ASeg AS INTEGER, _
  790.                             BYVAL AOffset AS INTEGER, _
  791.                             BYVAL Page AS INTEGER)
  792. '
  793. 'SubRoutine **************** QSETMODE ***************** SubRoutine
  794. '
  795. DECLARE SUB QSETMODE (BYVAL Vmode as INTEGER)
  796. '
  797. 'Function ****************** QVIDREST ******************* Function
  798. '
  799. DECLARE FUNCTION QVIDREST% (BYVAL Page AS INTEGER)
  800. '
  801. 'Function ****************** QVIDSAVE ******************* Function
  802. '
  803. DECLARE FUNCTION QVIDSAVE% (BYVAL Page AS INTEGER)
  804. '
  805. 'SubRoutine **************** QWINDOW  ***************** SubRoutine
  806. '
  807. DECLARE SUB QWINDOW (BYVAL TRow AS INTEGER, _
  808.                      BYVAL LCol AS INTEGER, _
  809.                      BYVAL BRow AS INTEGER, _
  810.                      BYVAL RCol AS INTEGER, _
  811.                      BYVAL Frame AS INTEGER, _
  812.                      BYVAL Attr AS INTEGER, _
  813.                      BYVAL Page AS INTEGER)
  814. '
  815. 'SubRoutine **************** QWINDOWH ***************** SubRoutine
  816. '
  817. DECLARE SUB QWINDOWH (BYVAL TRow AS INTEGER, _
  818.                       BYVAL LCol AS INTEGER, _
  819.                       BYVAL BRow AS INTEGER, _
  820.                       BYVAL RCol AS INTEGER, _
  821.                       BYVAL NLine AS INTEGER, _
  822.                       BYVAL ASeg AS INTEGER, _
  823.                       BYVAL AOff AS INTEGER, _
  824.                       BYVAL Frame AS INTEGER, _
  825.                       BYVAL Attr AS INTEGER, _
  826.                       BYVAL Page AS INTEGER)
  827. '
  828. 'SubRoutine **************** QWINDOWV ***************** SubRoutine
  829. '
  830. DECLARE SUB QWINDOWV (BYVAL TRow AS INTEGER, _
  831.                       BYVAL LCol AS INTEGER, _
  832.                       BYVAL BRow AS INTEGER, _
  833.                       BYVAL RCol AS INTEGER, _
  834.                       BYVAL NLine AS INTEGER, _
  835.                       BYVAL ASeg AS INTEGER, _
  836.                       BYVAL AOff AS INTEGER, _
  837.                       BYVAL Frame AS INTEGER, _
  838.                       BYVAL Attr AS INTEGER, _
  839.                       BYVAL Page AS INTEGER)
  840. '
  841. 'SubRoutine **************** QWINDOWX ***************** SubRoutine
  842. '
  843. DECLARE SUB QWINDOWX (BYVAL TRow AS INTEGER, _
  844.                       BYVAL LCol AS INTEGER, _
  845.                       BYVAL BRow AS INTEGER, _
  846.                       BYVAL RCol AS INTEGER, _
  847.                       BYVAL Frame AS INTEGER, _
  848.                       BYVAL Attr AS INTEGER, _
  849.                       BYVAL Attrs AS INTEGER, _
  850.                       BYVAL Page AS INTEGER)
  851. '
  852. 'Function ****************** QGETATTR ******************* Function
  853. '
  854. DECLARE FUNCTION QGETATTR% (BYVAL Row AS INTEGER, _
  855.                             BYVAL Col AS INTEGER)
  856. '
  857. 'SubRoutine **************** QGETCURS ***************** SubRoutine
  858. '
  859. DECLARE SUB QGETCURS (Row AS INTEGER, _
  860.                       Col AS INTEGER, _
  861.                       Page AS INTEGER)
  862. '
  863. '*****************************************************************
  864. '*** The End ...                                               ***
  865. '*****************************************************************
  866.  
  867. TYPE FileInfo
  868.      Fname AS STRING * 12
  869.      Fdate AS STRING * 8
  870.      Ftime AS STRING * 5
  871.      Fsize AS LONG
  872.      Fattr AS INTEGER
  873.      Fmonth AS INTEGER
  874.      Fday AS INTEGER
  875.      Fyear AS INTEGER
  876.      Fhour AS INTEGER
  877.      Fminute AS INTEGER
  878. END TYPE
  879.  
  880. TYPE ParseType
  881.      Pdrive AS STRING * 2
  882.      Ppath AS STRING * 64
  883.      Pname AS STRING * 8
  884.      Pext AS STRING * 3
  885. END TYPE
  886.