1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
%%HP: T(1)A(D)F(,); WHILE '1==1' REPEAT "V=S/T S=T*V T=S/V" 1 DISP "SVETLOBNI CUREK-SNOP" 2 DISP "ZRCALO-NAVIDEZNA" 3 DISP "ZBIRALNA RAZPRSILN" 4 DISP "f-GORISC.RAZD F-GORIS." 5 DISP "S.ZBIRALNE=OBRNJ.,PRA." 6 DISP "OKO=POMANJSANA,OBRNJEN" 7 DISP END