Technical information

Serial Solutions BASterm
Figure 10-6. BASterm Main Program._________________________________
2000 DEFINT A-Z ’Use integers by default
2010 :
2020 ’Definitions for QuickBASIC BIOS intface (GW-BASIC ignores this)
2030 ’ $INCLUDE: ’QB.BI’
2040 :
2050 DIM ASM%(23) ’BIOS interface for GW-BASIC
2060 :
2070 ’Set main program variables.
2080 :
2090 BUFFER$ = "" ’Hold text for input/output
2100 :
2110 DIM INXLT$(255), OUTXLT$(255) ’Translations
2120 :
2130 COMNAME$ = "COM1" ’Name of serial port
2140 COMNO = 0 ’0..15 ==> COM1 to COM16
2150 BAUD = 4 ’Baud rate number
2160 PARITY = 2 ’Even parity number
2170 DATABITS = 2 ’7 bit word length
2180 STOPBITS = 0 ’1 stop bit
2190 BRK = 0 ’No break
2200 :
2220 PARITYS$ = " none odd even markspace" ’Names of parity settings
2240 BAUD$ = "1200" ’Name of current Baud rate
2260 DATS$ = "5678" ’Names of data bits
2280 STOPS$ = "12" ’Names of stop bits
2290 :
2300 ’Setup menu data structures
2310 DIM OPTIONS$(9)
2320 :
2330 ECHO = 0 ’No echo
2340 ECHOS = 1 ’Flag for echo to line
2350 ECHOL = 2 ’Flag for echo to screen
2360 :
2370 NEXTFILENUM = 2 ’Next file for execute file routine to use
2380 :
3000 ’Set up key definitions and traps
3010 :
3020 ON KEY(1) GOSUB 17000 ’Help on F1
3030 KEY(1) ON
3040 :
3050 ON KEY(2) GOSUB 12000 ’Setup on F2
3060 KEY(2) ON
3070 :
3080 ON KEY(10) GOSUB 15000 ’Quit on F10
3090 KEY(10) ON
3100 :
3110 KEY 15, CHR$(&H8) + CHR$(&H2E) ’ALT-C
3120 ON KEY(15) GOSUB 14010 ’ALT-C is command processor
Page 160 Chapter 10