Racal Instruments 7064, Instruction Manual

Page: 68 / 179

6.4 7 0 6 4 TEST S O F T WA R E
REM Copyright V X I Technology, Inc. 1990, A l l Rights Reserved
REM FILE: VT1TEST.BAS
' $INCLUDE: 'c:\gpib-pc\QBDECL4.BAS'
CLS
t = 1
noerror = 0
t$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
COLOR 14, 1, 0
KEY OFF
KEY 2, "ADRES"
KEY 3, "RESET"
KEY 4, "BIT"
KEY 5, "EXIT"
KEY ON
MAINMENU:
CLS
t = 1
LOCATE 2, 26: PRINT "7064 BREADBOARD TEST SOFTWARE"
COLOR 3 1 , 0 : L O C AT E 2 2 , 1 : P R I N T " S E L E C T D E S I R E D T E S T B Y U S I N G T H E
SOFTKEYS A S L A B E L E D "
COLOR 14, 1, 0
LOCATE 8, 2: PRINT " 1. C A R D ADDRESS TESTS E L E C T F2"
LOCATE 9, 2: PRINT " 2. M O D U L E RESET TESTS E L E C T F3"
LOCATE 10, 2: PRINT " 3. O U T P U T B I T TESTS E L E C T F4"
LOCATE 11, 2: PRINT " 4. E X I T TO DOSS
E L E C T F5"
ON KEY(2) GOSUB ADDRESS: KEY(2) ON
ON KEY(3) GOSUB RESETTEST: KEY(3) ON
ON KEY(4) GOSUB OUTPUTBIT: KEY(4) ON
ON KEY(5) GOSUB STOPPER: KEY(5) ON
DO
LOOP W H I L E t = 1
IF t = 0 THEN GOTO M A I N M E N U
ADDRESS:
KEY OFF
CLS
6-3