10 lines
103 B
Text
10 lines
103 B
Text
|
Filename:PASCAL
|
|||
|
|
Lbl 1
|
|||
|
|
0->A~Z
|
|||
|
|
?->A
|
|||
|
|
Int (Abs (A))->A
|
|||
|
|
Do
|
|||
|
|
A<EFBFBD>(A-L)[DISP]
|
|||
|
|
L+1->L
|
|||
|
|
LpWhile L<=A
|
|||
|
|
Goto 1
|