10    !
20    !
30    !    FILE:  ZINIT
40    !
50    !    INICIALIZACION INSTRUMENTOS RACK ACPL
60    !
70    !    LLUIS POUS
80    !
90    !    26/JUL/02
100   !
110   !
120   !
130   Vn=0
140   Fn=50
150   CALL Zinit(Vn,Fn)
160   END
170   !
180   !
190   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
200   SUB Zinit(Vn,Fn)
210     ! SELECCIONAMOS CRT (MONITOR)
220     PRINTER IS 1
230     CLEAR SCREEN
240     !
250     PRINT TABXY(60,1);"File: ZINIT"
260     PRINT TABXY(10,5);"INICIALIZACION INSTRUMENTOS RACK ACPL"
270   !
280     PRINT TABXY(20,8);"SWITCH CONTROL UNIT - 3488A -"
290     OUTPUT 709;"CLOSE500","CLOSE510","CMON5"
300     PRINT TABXY(16,8);"ok"
310   !
320     PRINT TABXY(20,10);"SCOPE - 54201A -"
330     OUTPUT 705;"RUN"
340     OUTPUT 705;"TIMEBASE","RANGE 0.1","MODE AUTO"
350     OUTPUT 705;"CHAN 1","RANGE 4","CHAN 2","RANGE 4"
360     OUTPUT 705;"TRIGGER","SOUR EXT","LEV 2","IMP HIGH"
370     OUTPUT 705;"TIMEBASE","DEL 0","REF 0"
380     PRINT TABXY(16,10);"ok"
390   !
400     PRINT TABXY(20,12);"WATTMETER - 2533 -"
410     OUTPUT 715;"RV8;RA7;DA1;DB2;DC3;FL0;MN0;AG0;HD0;SC0;"
420     PRINT TABXY(16,12);"ok"
430   !
440     PRINT TABXY(20,14);"AC PSU - 3000TPM/2-1-HV MXT10/959XPT-4034 -"
450     OUTPUT 730;"AMP";Vn;"THD0";"FRQ";Fn;"PHZ0";"DLY0";"CRL23.86"
460     PRINT TABXY(16,14);"ok"
470   !
480     PRINT TABXY(10,20);"FIN INICIALIZACION"
490     BEEP 
500   !
510   SUBEND
