Filename:PASCAL
Lbl 1
0->A~Z
?->A
Int (Abs (A))->A
Do
A‚(A-L)[DISP]
L+1->L
LpWhile L<=A
Goto 1