H DX=3000 DY=2000 DZ=18 -A C=0 T=0 R=100 *MM/"DEF"
PAR ALT = 1200 "ALTEZZA X"
PAR LARGH =650 "LARGHEZZA DY"
PAR SPESS = 18 "SPESSORE DZ"
PAR ORGBY = 420 "ORIGINE BY"
PAR SPESSBASE = 18 "SPESSORE BASE"
PAR SPESSCAPP = 18 "SPESSORE CAPPELLO"
PAR SPESSFIANCO = 18 "SPESSORE FIANCO"
PAR SPESSTRAM = 18 "SPESSORE TRAMEZZO"
PAR SPESSCHIENA = 18 "SPESSORE SCHIENA"
PAR BASEL =1 "SE =1 BASE IN LUCE"
PAR CAPPL =0 "SE =1 CAPPELLO IN LUCE"
PAR FIANCOL =0 "SE=1 FIANCO IN LUCE"
PAR ALTZOCC = 100 "ALTEZZA ZOCCOLO"
PAR REGG =0 "SE= 1 CON REGGIPIANI"
PAR NREGG = 10 "NUMERO DI REGGIPIANI"
PAR PREGG = 32 "PASSO REGGIPIANI"
PAR GCASS = 0 "GUDE CASSETTI 1=SEA 2=QUADRO"
PAR GQUADRO = 1 "GUIDA QUADRO 1 =250/320 2=350/450 3=480/520 4=550 5=600"
PAR BASET = 0 "BASETTE"
PAR SFBASET = -1.5 "SFIORO BASETTTE"
REF DX=ALT DY=LARGH DZ=SPESS
;LAV BASE
IF BASEL THEN
IF LARGH <=400 THEN ;3FORI
XBO X=DZ/2 Y=30 Z=17 F3 C0 K0 P0 R=3# x=0 y=(DY-60)/2 D=8 N="P"
XBO X=DZ - (DZ/2) Y=30 Z=17 R=3 x=0 y=(DY-60)/2 D=8 N="P" F=2 C=0 K=0 P=0
FI
IF LARGH >400 AND IF <=600 THEN ;4FORI
XBO X=DZ/2 Y=30 Z=17 R=4# x=0 y=(DY-60)/3 D=8 N="P" F=3 C=0 K=0 P=0
XBO X=DZ - (DZ/2) Y=30 Z=17 R=4# x=0 y=(DY-60)/3 D=8 N="P" F=2 C=0 K=0 P=0
FI
IF LARGH >600 AND IF <=1000 THEN ;5FORI
XBO X=DZ/2 Y=30 Z=17 R=5# x=0 y=(DY-60)/4 D=8 N="P" F=3 C=0 K=0 P=0
XBO X=DZ - (DZ/2) Y=30 Z=17 R=5# x=0 y=(DY-60)/4 D=8 N="P" F=2 C=0 K=0 P=0
FI
IF LARGH >1000 AND IF >=1500 THEN ;6FORI
XBO X=DZ/2 Y=50 Z=17 R=6# x=0 y=(DY-100)/5 D=8 N="P" F=3 C=0 K=0 P=0
XBO X=DZ - (DZ/2) Y=50 Z=17 R=6# x=0 y=(DY-100)/5 D=8 N="P" F=2 C=0 K=0 P=0
FI
IF LARGH >2000 THEN ;8FORI
XBO X=DZ/2 Y=50 Z=17 R=8# x=0 y=(DY-100)/7 D=8 N="P" F=3 C=0 K=0 P=0
XBO X=DZ - (DZ/2) Y=50 Z=17 R=8# x=0 y=(DY-100)/7 D=8 N="P" F=2 C=0 K=0 P=0
FI
FI