10 !	re-store "hwlib"
20 re-save "hwlib"
30 !
40 !	hwlib	Version 0.8
50 !
60 NA$="HP4395"
70 COM /Na1/Na$,Na$[30],@Na,@Ndat,Nadr,Nh$[40],Nop,Trig$[40]
80 ASSIGN @Na to 717
90 CALL Hardware_init
100 CALL Hardware_test
101 PRINT "Press CAL for OFF -> OPEN -> SHORT -> Load -> OFF"
102 PRINT "Press Source for 1 -> 2 -> 3 -> 4 -> 5 -> 6 -> 7 ->8 ->1"
103 PRINT "Press RCV Top for 1 -> 2 -> 3 -> 4 -> 1"
104 PRINT "Press RCV Bot for 1 -> 2 -> 3 -> 4 -> 1"
106 USER 1 KEYS
110 LOOP
120 CALL Menu_main1(Pmax,Demo$)
130 CALL Menu_main2(Pmax,Demo$)
140 END LOOP
150 !	CALL Hardware_2port(0,3)
160 END!