8-40
Instrument BASIC
Programming and Using the TESTS Subsystem
1110 Calling_name$=I_o$[4;21]
1120 Model$=I_o$[27;21]
1130 I1addr=VAL(TRIM$(I_o$[50]))
1140 Options$=I_o$[54]
1150 ! GET SPECIFICATION 1 FOR THIS TEST
1160 OUTPUT 800;”TESTS:SPEC? “&VAL$(1)
1170 I_o$=””
1180 ENTER 800;I_o$
1190 IF I_o$[1;5]=”Error” THEN
1200 PRINT TABXY(2,14),”ERROR IN RECALLING THE SPECIFICATIONS FOR
TEST 1”
1210 Test_return=1
1220 END IF
1230 Lower_limit=VAL(TRIM$(I_o$[4]))
1240 Upper_limit=VAL(TRIM$(I_o$[17]))
1250 Test$=TRIM$(I_o$[30])
1260 SUBEND
1270 T02:SUB T02(Test_return)
1280 COM /I_o/ I_o$
1290 COM /Freq/ Rx_f,Tx_f
1300 ! TEST ROUTINE NUMBER 2
1310 PRINT TABXY(2,13),”DOING TEST NUMBER 2 FOR FREQ “,Rx_f
1320 SUBEND
1330 T03:SUB T03(Test_return)
1340 COM /I_o/ I_o$
1350 COM /Freq/ Rx_f,Tx_f
1360 ! TEST ROUTINE NUMBER 3
1370 PRINT TABXY(2,14),”DOING TEST NUMBER 3 FOR FREQ “,Rx_f
1380 SUBEND
1390 T:SUB T(N,Test_return)
1400 ! CALL THE PASSED TEST NUMBER (N)
1410 SELECT N
1420 CASE 1
1430 T01(Test_return)
1440 CASE 2
1450 T02(Test_return)
1460 CASE 3
1470 T03(Test_return)
“”
“”
“”
2380 CASE 49
2390 T49(Test_return)
2400 CASE 50
2410 T50(Test_return)
2420 END SELECT
2430 SUBEND