Octagon 6000 Series, Руководство пользователя

Страница: 154 / 233

20-5
6000 Series user’s manual CAMBASIC
ON INP Specifies condition for branching by the state of
an I/O address
ON KEYPAD$ Specifies location for branching when a key is
pressed at the keypad
ON TICK Specifies condition for branching by the state of
the tick timer
POLY Returns value from a power series in an array
PRINT$ Writes a string of characters
QUIT Exits CAMBASIC to DOS
RMS Returns Root-Mean-Square value of an array
SUM Sums elements of array
UNNEW Undoes the NEW command if possible
VARSEG Returns segment of variable
Easy-to-use programming examples
CAMBASIC comes with a number of programming examples. Below are
programming examples present in CAMBASIC.
Example 1
The following exemplifies the program to write display information to
Octagon DP Series and LCD Series display:
10 CONFIG PIO &100,0,0,0,0,0: ‘Configure an 8255 at
&100 to be output ports
20 CONFIG DISPLAY &100,0,0: ‘Use 2x20 fluorescent
display with a hidden cursor at I/O address &100
30 CLEAR DISPLAY
40 DISPLAY (2,0) “OCTAGON SYSTEMS”;
50 DISPLAY (2,1) “CORPORATION”;
Example 2
In the following example, a 16-key keypad is connected to the printer
port at I/O address &378. This program returns inputs from the keypad
in use.
20 CONFIG KEYPAD$ &378,0,8: ‘Keypad type=0(16-key),
port address=&378,debounce=80ms
30 ON KEYPAD$ GOSUB..getkey
40 ...idle
50 GOTO..idle
100 ..getkey
110 A$ = KEYPAD$ (0) : ‘Get key
120 POSITION = KEYPAD$(1) : ‘Get position of key
130 PRINT “Key pressed is ”;A$,” Key position is “;
POSITION