Filter
Top Products
8-39
Instrument BASIC
Programming and Using the TESTS Subsystem
490 IF T_it$=”Y” THEN
500 PRINT TABXY(2,6),”RX FREQUENCY = “,Rx_f
510 PRINT TABXY(2,7),”TX FREQUENCY = “,Tx_f
520 PRINT TABXY(2,8),”TEST THIS FREQUENCY ?”,T_it$
530 Run_ts=1
540 ! RUN THROUGH THE SEQUENCE OF TESTS
550 REPEAT
560 Done_t=0
570 ! ENTER IN THE TEST SEQUENCE
580 OUTPUT 800;”TESTS:SEQN? “&VAL$(Run_ts)
590 I_o$=””
600 ENTER 800;I_o$
610 Tst=VAL(I_o$[4;2])
620 ! IF THIS TEST IS TO BE SKIPPED THEN SET THIS
630 IF I_o$[7;1]=”N” THEN Tst=-Tst
640 ! IF THIS IS A PRIME FREQUENCY RUN THE TEST
650 IF Tst&%<0 AND Prime$=”Y” THEN
660 ! CALLS THE SUBROUTINE NAME T(ABS(Tst))
670 T(ABS(Tst),Test_return)
680 IF (Test_return=1) THEN GOTO Test_error
690 Done_t=1
700 END IF
710 ! IF THIS TEST IS TO BE DONE AND IS NOT A PRIME FREQUENCY
720 IF Tst>0 AND NOT Done_t THEN
730 ! CALLS THE SUBROUTINE NAME T(ABS(Tst))
740 T(ABS(Tst),Test_return)
750 IF (Test_return=1) THEN GOTO Test_error
760 END IF
770 Run_ts=Run_ts+1
780 UNTIL Tst=0 OR Run_ts=51
790 END IF
800 Ch=Ch+1
810 UNTIL Ch=51 OR Tx_f=-1 OR Rx_f=-1
820 Stp_test: !
830 CLEAR SCREEN
840 PRINT TABXY(2,10),”FINISHED TESTING”
850 GOTO End_program
860 Test_error: !
870 CLEAR SCREEN
880 PRINT TABXY(2,10),”PROGRAM STOPPED, TEST “,ABS(Tst),”FAILED”
890 End_program: !
900 END
910 T01:SUB T01(Test_return)
920 COM /I_o/ I_o$
930 COM /Freq/ Rx_f,Tx_f
940 DIM Calling_name$[22],Model$[22],Options$[22]
950 ! TEST ROUTINE NUMBER 1
960 PRINT TABXY(2,12),”DOING TEST NUMBER 1 FOR FREQ “,Rx_f
970 ! GET THE PARAMETER 1 FOR THIS TEST
980 OUTPUT 800;”TESTS:PARM? “&VAL$(1)
990 I_o$=””
1000 ENTER 800;I_o$
1010 ! IF THERE IS NO PARAMETER THEN PAUSE
1020 IF I_o$[1;5]=”Error” THEN
1030 PRINT TABXY(2,14),”ERROR IN RECALLING THE PARAMETERS FOR
TEST 1”
1040 Test_return=1
1050 END IF
1060 Parm_1=VAL(I_o$)
1070 ! GET CONFIGURATION 1 INFO FOR THIS TEST
1080 OUTPUT 800;”TESTS:CONF? “&VAL$(1)
1090 I_o$=””
1100 ENTER 800;I_o$