perm filename TEST.SAI[USE,CSR]2 blob sn#266597 filedate 1977-02-27 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin "test"
C00003 ENDMK
C⊗;
begin "test"
  string foo, str; integer int;
  foo←"this is a stringα";
  while foo≠null do begin
  lop(foo); str←lop(foo); int←str; print(str," ",int,'15&'12);
  end;
end;