11,12c11,12
< %externalstring(255)%fnspec cliparam
< %external %routine %spec prompt(%string (31) %name s)
---
> 
> %external %routine %spec prompt(%string (31) s)
36,37c36,37
< %external %string %function %spec itos(%integer i)
< %external %routine %spec connect(%string (31) %name name, %integer mode, hole, prot,
---
> %system %string %function %spec itos(%integer i)
> %system %routine %spec connect(%string (31) name, %integer mode, hole, prot,
39,42c39,42
< %external %routine %spec trim(%string (31) file, %integer %name eflag)
< %external %routine %spec setfname(%string (31) file)
< %external %string %function %spec nexttemp
< %external %routine %spec sendfile(%string (31) file, device, header,
---
> %system %routine %spec trim(%string (31) file, %integer %name eflag)
> %system %routine %spec setfname(%string (31) file)
> %system %string %function %spec nexttemp
> %system %routine %spec sendfile(%string (31) file, device, header,
44,47c44,47
< %external %integer %function %spec devcode(%string (31) name)
< %external %routine %spec disconnect(%string (31) %name filename, %integer %name eflag)
< %external %string %function %spec failuremessage(%integer type)
< %external %routine %spec changefilesize(%string (31) filename,
---
> %system %integer %function %spec devcode(%string (31) name)
> %system %routine %spec disconnect(%string (31) filename, %integer %name eflag)
> %system %string %function %spec failuremessage(%integer type)
> %system %routine %spec changefilesize(%string (31) filename,
49c49
< %external %routine %spec newgen(%string (31) %name filename, newfilename,
---
> %system %routine %spec newgen(%string (31) filename, newfilename,
51c51
< %external %routine %spec outfile(%string (31) %name filename, %integer size, hole,
---
> %system %routine %spec outfile(%string (31) filename, %integer size, hole,
54,56c54
< %begin
<    %string (255) s; ! argv[1]
< !%external %routine soap80(%string (255) s)
---
> %external %routine soap80(%string (255) s)
68c66
<    %short %integer %array outbuf(0:ccsize+200)
---
>    %half %integer %array outbuf(0:ccsize+200)
582c580
<             printstring(snl)
---
>             newline
593c591
<          printstring(snl)
---
>          newline
664c662
<       %short %integer %array scurl, ecurl(1:20)
---
>       %half %integer %array scurl, ecurl(1:20)
828c826
<       %own %string (19) fes="FINISH %ELSE %START"
---
>       %constant %string (19) fes="FINISH %ELSE %START"
1307,1308d1304
<    s = "test.imp,test.out,?"; ! cliparam
< !printstring("preopt".snl)
1310d1305
< !printstring("preconnect ".infile.snl)
1312d1306
< !printstring("postconnect".snl)
1338d1331
< !printstring("outfile: ".workfile.snl)
1366c1359
<             %if sc(z)&127=rs %then printstring(snl) %else printch(sc(z)&127)
---
>             %if sc(z)&127=rs %then newline %else printch(sc(z)&127)
1370,1371c1363,1364
<          printstring(snl)
<          spaces(maxptr-1); printch('!'); printstring(snl)
---
>          newline
>          spaces(maxptr-1); printch('!'); newline
1437,1438c1430
<       %external %routine %spec read profile(%string (11) key, 
<         %record (pformat) %name info,
---
>       %external %routine %spec read profile(%string (11) key, %name info,
1440,1441c1432
<       %external %routine %spec write profile(%string (11) %name key,
<         %record (pformat) %name info,
---
>       %external %routine %spec write profile(%string (11) key, %name info,
1444,1445c1435
<       prof vsn = 0; flag = 5;
<       !read profile("Soap80key", p, prof vsn, flag)
---
>       read profile("Soap80key", p, prof vsn, flag)
1510,1514c1500
<       %begin
<         %string(11) key
<         key = "Soap80key"
<         write profile(key, p, prof vsn, flag)
<       %end
---
>       write profile("Soap80key", p, prof vsn, flag)
1527a1514
>       prompt("Soap80: ")
1529,1538c1516
<          %if parm="" %then %start
<            %begin
<              %string(15) s
<              s = "Soap80: "
<              prompt(s); ! not a real imp prompt unfortunately
<            %end
<            readline
<          %finish %else %start
<            setline
<          %finish
---
>          %if parm="" %then readline %else setline
1546,1550c1524
<             %begin
<               %string(11) key
<               key = "Soap80key"
<               write profile(key, p, prof vsn, flag)
<             %end
---
>             write profile("Soap80key", p, prof vsn, flag)
1573c1547
<             printstring(snl)
---
>             newline
1578c1552,1553
< STOP     : Cause SOAP80 to stop immediately.".snl)
---
> STOP     : Cause SOAP80 to stop immediately.")
>             newline
1619c1594
<                      printstring(snl)
---
>                      newline
1717c1692,1693
< %end %of %program
---
> %end
> %end %of %file