home *** CD-ROM | disk | FTP | other *** search
- ┌─────────────────────────────────────────────────────────────────────────────┐
- │ ████┐ █████┐ ██████┐ ████┐ ████┐ ████┐ │
- │ ██┌─██┐ ██┌─██┐ ██┌───┘ ██┌─██┐ ██┌─██┐ ██┌─██┐ QuickBASIC V4.5 & VBDOS │
- │ ██│ ██│ ██│ ██│ ██│ ██│ ██│ ██│ └─┘ ██│ └─┘ │
- │ ██│ ██│ █████┌┘ ████┐ ██│ ██│ └████┐ └████┐ │
- │ ██│ ██│ ██┌─██┐ ██┌─┘ ██│ ██│ └──██┐ └──██┐ FOSSIL-Library V1.0 │
- │ ██│██┌┘ ██│ ██│ ██│ ██│ ██│ ██ ██│ ██ ██│ │
- │ └███┐█┐ █████┌┘ ██│ └████┌┘ └████┌┘ └████┌┘ │
- │ └──┘└┘ └────┘ └─┘ └───┘ └───┘ └───┘ │
- └─────────────────────────────────────────────────────────────────────────────┘
-
- I needed some good routines to use a FOSSIL for creating communication-
- programms/utils in QuickBASIC (V4.5) or VBDOS, I found some other librarys
- which didn't work correctly or weren't the routines i was looking for.
-
- I needed some WORKING and RELIABLE routines, i didn't find any, so i
- decided to write my own library, so here it is: QBFOSS.
-
- QBFOSS has all the routines you need to use a FOSSIL for communications,
- it's fast and reliable.
-
- And last but not least: QBFOSS is FREEWARE!
-
- ┌─────────────────────────────────────────────────────────────────────────────┐
- │ ▒▒▒▒ Disclaimer ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
- └─────────────────────────────────────────────────────────────────────────────┘
-
- QBFOSS is supplied as is. The author disclaims all warranties, expressed
- or implied, including, without limitation, the warranties of
- merchantability and of fitness for any purpose.
-
- The author assumes no liability for damages, direct or consequential, which
- may result from the use of QBFOSS.
-
- Feel free to share QBFOSS with your friends, but please do not give it away
- altered or as part of another system.
-
- In commercial environments QBFOSS may only be used when the author has
- given his explicit permission.
-
- ┌─────────────────────────────────────────────────────────────────────────────┐
- │ ▒▒▒▒ Requires ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
- └─────────────────────────────────────────────────────────────────────────────┘
-
- QBFOSS requires the following: QuickBASIC V4.5 or VBDOS
-
- QBFOSS uses about 2048 bytes conventional memory.
-
- ┌─────────────────────────────────────────────────────────────────────────────┐
- │ ▒▒▒▒ Usage ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
- └─────────────────────────────────────────────────────────────────────────────┘
-
- To use QBFOSS in the interperter, type:
-
- QB /LQBFOSS
-
- or
-
- VBDOS /LQBFOSS
-
- When QuickBASIC/VBDOS is loaded, you must load/merge QBFOSS.BI for the
- declarations of the SUB-Routines and FUNCTIONS QBFOSS contains.
-
- All fossil-routines uses port-definations as used by a FOSSIL,
- starting with zero: COM1: is FOSSIL-Port 0
- COM2: is FOSSIL-Port 1
- etc.
-
- The FOSSINIT routines must be called as first procedure before any of
- the other routines can be used.
-
-
- The following sub-routines are availble:
-
- Name : FOSSDTR
- Declaration: DECLARE SUB fossdtr (Port%, DTRState%)
- Description: With FOSSDTR you change the DTR state, when DTRState% is
- 0 you disable DTR (Disconnect), something else will
- enable DTR.
- Example : FOSSDTR 0
-
-
- Name : FOSSEXIT
- Declaration: DECLARE SUB fossexit (Port%)
- Description: Close FOSSIL-Port Port%.
- Example : FOSSEXIT 0
-
-
- Name : FOSSFLUSHOUT
- Declaration: DECLARE SUB fossflushout (Port%)
- Description: Flushes the output-buffer, waits until buffer is empty.
- Example : FOSSFLUSHOUT 0
-
-
- Name : FOSSPURGEIN
- Declaration: DECLARE SUB fosspurgein (Port%)
- Description: Purge input-buffer.
- Example : FOSSPURGEIN
-
-
- Name : FOSSPURGEOUT
- Declaration: DECLARE SUB fosspurgeout (Port%)
- Description: Purge output-buffer.
- Example : FOSSPURGEOUT
-
-
- Name : FOSSSENDC
- Declaration: DECLARE SUB fosssendc (Port%, Char$)
- Description: Sends a character, does NOT wait until sended.
- Example : FOSSSENDC 0, "A"
-
-
- Name : FOSSSENDCW
- Declaration: DECLARE SUB fosssendcw (Port%, Char$)
- Description: Sends a character, waits until charachter is sended.
- Example : FOSSSENDCW 0, "A"
-
-
- Name : FOSSWRITE
- Declaration: DECLARE SUB fosswrite (Port%, Write$)
- Description: Sends a string, waits until whole string is sended.
- Example : FOSSWRITE 0, "This text is send to the FOSSIL"
-
-
-
-
- The following functions are availble:
-
- Name : FOSSCARRIER
- Declaration: DECLARE FUNCTION fosscarrier% (Port%)
- Description: Returns -1 when a carrier is detected, 0 when not.
- Example : CD% = FOSSCARRIER%(0)
-
-
- Name : FOSSINIT
- Declaration: DECLARE FUNCTION fossinit% (Port%)
- Description: Initialize FOSSIL, returns -1 when succesfull, 0 when not.
- Example : STATUS% = FOSSINIT%(0)
-
-
- Name : FOSSINWAIT
- Declaration: DECLARE FUNCTION fossinwait% (Port%)
- Description: Returns -1 when data is waiting in the input-buffer,
- 0 when input-buffer is empty.
- Example : WAITING% = FOSSINWAIT%(0)
-
-
- Name : FOSSOUTROOM
- Declaration: DECLARE FUNCTION fossoutroom% (Port%)
- Description: Returns -1 when there is room in the output-buffer,
- 0 when output-buffer is full.
- Example : ROOM% = FOSSOUTROOM%(0)
-
-
- Name : FOSSREAD
- Declaration: DECLARE FUNCTION fossread$ (Port%)
- Description: Read input-buffer as string, returns a empty string when
- input-buffer is empty.
- Example : READ$ = FOSSREAD$(0)
-
-
- Name : FOSSRECVCW
- Declaration: DECLARE FUNCTION fossrecvcw$ (Port%)
- Description: Wait on a charachter to be received.
- Example : CHAR$ = FOSSRECVCW$(0)
-
-
- Name : FOSSSTATUS
- Declaration: DECLARE FUNCTION fossstatus% (Port%)
- Description: Returns FOSSIL status.
- Example : CHAR$ = FOSSSTATUS(0)
-
- ┌─────────────────────────────────────────────────────────────────────────────┐
- │ ▒▒▒▒ Support ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ │
- └─────────────────────────────────────────────────────────────────────────────┘
-
- For bug-reports, suggestions or other things concerning QBFOSS, you can
- write me a letter at the followin address:
-
- C.Buijs
- De Spil 22
- 1507 CX Zaandam
- Netherlands
-
- Or phone to my BBS:
-
- Action Board Zaandam
- Phone: +31-(0)75-704890
- Speeds: 1200,2400 HST MNP V42 V42Bis 14.400
-
- Or send me Email, FidoNet : 2:280/407.16
- InterNet : 100117.3242@compuserve.com
- Compuserve: 100117,3242
-
- Have Fun...
-
-