DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFileVerbose
    Names: »longconvtxt«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »longconvtxt« 

TextFileVerbose

job j 1 time 11 0 perm disc1 1000 10
longconv=set 1 disc1
scope user longconv
longconv=algol
begin
<******************************************************
this program reads a 'long' from the screen and
types the long as a string.

It stops when the long is 0.

*programmed april 1981 by stb 
********************************************************>

integer i,j,k,char;

long array l(1:2);

repeat <* until a zero is read *>
write(out,<:type a 'long'::>);
setposition(out,0,0);

l(1):=0;
l(2):=0;
char:='0';

<* read the number*>
repeat
l(1):=l(1)*10 + char - '0';
readchar(in,char);
until (char<'0') or (char>'9');

<* write the number as text *>
write(out,l1,<: = :>,l,"nl",1);
setposition(out,0,0);
until l(1)=0;
end
finis
«eof»