360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
810
820
830
840
850
860
FOR
TO N
Freq=Freq+Increment
NEXT I
B=B-1
OUTPUT
! OUTPUT
!
DATA IN USER CORRECTION TABLE
OUTPUT
USER"
ENTER
WHILE
OUTPUT
ENTER QSource;Freq
END WHILE
END IF
END
I
SUB Zero-meter(QMeter,OSource,INTEGER Error-flag)
OUTPUT
off"
OUTPUT
OUTPUT
Attempts=0
Zeroing=1590
Finished=0
WHILE Zeroing AND NOT Finished
Attempts=Al
IF
THEN Zeroing=0
IF
THEN Finished=1
WAIT 1
END WHILE
OUTPUT
on"
IF NOT Zeroing THEN
ELSE
END IF
!
DEF
OUTPUT
Freq$=VAL$(Freq)
OUTPUT @Meter;
OUTPUT
ENTER
04
Getting Started Programming