Download Basic Compiler User's Manual V.2.0 - Kalisch Computer

ON HOUR_SHARP GOSUB…
201
510
520
711
720
Purpose
To activate the “HOUR_SHARP Event Trigger” which executes a specific
subroutine when the system time is on the hour.
Syntax
ON HOUR_SHARP GOSUB SubLabel
Remarks
“SubLabel“ is the name or line label of the subroutine to be called when
the event is triggered.
Usage
…
ON HOUR_SHARP GOSUB OnHourAlarm
…
OnHourAlarm:
CurrentTime$ = TIME$
Hour% = VAL(LEFT$(CurrentTime$,2))
FOR I = 1 TO Hour%
BEEP(800,10,0,10)
WAIT(100)
NEXT
RETURN
ON ENQUIRY GOSUB…
201
510
520
711
720
Purpose
To activate the “INQUIRY Event Trigger” which executes a specific
subroutine when the master station is inquired by a slave station.
Syntax
ON ENQUIRY GOSUB SubLabel
Remarks
“SubLabel“ is the name or line label of the subroutine to be called when
the event is triggered.
Please refer to 4.16.2 for the RS-485 related commands.
Usage
ON ENQUIRY GOSUB Inq
…
Inq:
OFF ENQUIRY
Inq$ = GET_INQUIRY$
…
ON ENQUIRY GOSUB Inq
RETURN
ON KEY… GOSUB…
201
510
520
711
720
Purpose
To activate the “FUNCTION KEY Event Trigger” which executes a
specific subroutine when a function key is pressed on keyboard.
Syntax
ON KEY(number%) GOSUB SubLabel
Remarks
“number” is a positive integer between 1 to 12 (1 to 9 for 711). It
indicates the function key of the keyboard.
“SubLabel“ is the name or line label of the subroutine to be called when
the event is triggered.
Usage
ON KEY(1) GOSUB On_Shift
41