Chapter 3 Programming Your Universal Counter for Remote Operation

Programming Examples

To Use Macros (QuickBASIC) (Continued)

purgemacro:

'Purge all macros

INPUT "Are you sure you want to purge all macros? ", answer$

answer$ = UCASE$(answer$)

 

IF answer$ = "Y" THEN

 

sendhp ("*PMC")

 

PRINT "All macros purged"

 

END IF

 

RETURN

 

disablemacro:

'Disable macros, but do not purge

sendhp ("*EMC 0")

 

PRINT ("Macros Disabled")

 

RETURN

 

sendmacro:

CLS

GOSUB displaymacro

INPUT "Enter the name of the macro to send ", namemacro$ IF namemacro$ = "" THEN RETURN

sendhp (namemacro$)

RETURN

definemacro:

'Define a macro

CLS

 

INPUT "Enter the name of the macro to be defined ", namemacro$ INPUT "Enter the commands to be sent ", commandmacro$

length = LEN(commandmacro$)

numchar = INT(LOG(length) / LOG(10#)) + 1 header$ = "#" + LTRIM$(STR$(numchar)) PRINT header$

macrocommand$ = header$ + LTRIM$(STR$(length)) + commandmacro$

code$ = "*DMC " + CHR$(39) + namemacro$ + CHR$(39) + "," + macrocommand$ PRINT code$

CALL iooutputs(source, code$, LEN(code$))

RETURN

quit:

PRINT "End of Program"

STOP

RETURN

SUB sendhp (code$)

CALL iooutputs(source, code$, LEN(code$))

END SUB

3-90

Programming Guide