10 lines
No EOL
103 B
Text
10 lines
No EOL
103 B
Text
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 |