PROG   RUN       '
                 '
       INP X     '
                 '
       LDA X     '
       MUL X     ' RISP <-- X*X
       STA RISP  '
                 '
       OUT RISP  '
                 '
       ALT       '
                 '
X      DAT 0     '
RISP   DAT 0     '
                 '
       END       '

oppure (eliminando il dato RISP)

PROG   RUN       '
       INP X     '   X <<
       LDA X     ' Acc <-- X
       MUL X     ' Acc <-- Acc*X
       STA X     '   X <-- Acc
       OUT X     '   X >>
       ALT       '
X      DAT 0     '
       END       '