VAP VBP HGS
VAR VAPCP=0;
VAR VAPCP2="";
LOOP{
LOOP(VAPI1=0;VAPI2=66){IF (VAPI1=VAPI2){EXIT LOOP;} ELSE {VAPI1 += 1;{LOOP(VAPJ1=0;VAPJ2=24;)
{IF (VAPJ1=VAPJ2){EXIT LOOP;} ELSE VAPJ1 +=1;}}} VAPCP2="net HGS OF VAP.;VAPANA;VIPAKA; vap Sidata; VAPTIME DESENS AOM. VAPNOW; MVT.NVT. MITA vapTASK, NET VAP TASK;";}
VAPCP=VAPI1;
}