CLS
INPUT N%
DIM stp$(N%)
FOR i = 1 TO N%
INPUT stp$(i)
NEXT i
DIM X(50)
DIM Y(50)
FOR k = 1 TO N%
        os$ = LEFT$(stp$(k), 1)
        st = VAL(MID$(stp$(k), 2, LEN(stp$(k)) - 1))
        FOR i = ABS(lastst) TO ABS(st) + ABS(lastst)
        IF os$ = "X" THEN
                X(i) = 0 + X(i - 1)
                Y(i) = st + Y(i - 1)
        ELSEIF os$ = "Y" THEN
                X(i) = st * COS(3.14 / 6) + X(i - 1)
                Y(i) = st * SIN(3.14 / 6) + Y(i - 1)
        ELSEIF os$ = "Z" THEN
                X(i) = -st * COS(3.14 / 6) + X(i - 1)
                Y(i) = -st * SIN(3.14 / 6) + Y(i - 1)
        END IF
        lastst = st
NEXT k
SYSTEM