DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »teststd«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »teststd« 

TextFile

wa
o u80
if ok.no
o u800
pap=set 100
mode list.yes
pap=pascal list.yes  survey.yes  heap.50 codesize.150
  program standardtest(input,output);
  LABEL 10;
  CONST
    blank=' ';
  VAR
    i,j,res,address: integer;
    name,pname: alfa;
    outputfile: boolean;
 
    eol:char;
  std_name=(s_firstaddress,s_description,s_initproc,
            s_reserveproc ,s_include    ,s_exclude ,
            s_sendmessage ,s_waitanswer ,s_waitmessage,
            s_sendanswer  ,s_waitevent  ,s_getevent,
            s_testevent   ,
            s_noproc);
 
 
 
 
 
 
  value
    outputfile=false;
    std_name=s_noproc;
 
 
 
    PROCEDURE fileid;
    CONST
      power12 = 4096;
      equality = 6;
      point = 8;
    VAR
      i,j,int,paramno : integer;
      error : boolean;
      id : alfa;
    BEGIN
      paramno := 1;
      error := false;
      i:=system(paramno,int,id);
      IF i DIV power12 = equality THEN
       BEGIN (* get outputfile *)
         i:=system(0,int,id);
         IF i MOD power12 = 10 THEN
          BEGIN
            outputfile:=true;
            open(output,id);
            rewrite(output);
          END
         ELSE
          BEGIN
            writeln(' ??? illegal output-filename');
            GOTO 10;
          END;
         paramno:=paramno + 1;
       END;
 
        (* get input file *)
      i:=system(paramno,int,id);
      IF i MOD power12 = 10 THEN
       if (id='h') or (id='help') then paramno := paramno-1 (* not error *)
       else
        BEGIN
          name:=id;
        END
       ELSE
        BEGIN
          IF outputfile THEN close(output);
          writeln(' ??? illegal name');
          GOTO 10;
        END;
      paramno:=paramno+1;
      j:=system(paramno,int,id);
      WHILE j <>0 DO
      BEGIN
        IF j MOD power12 <> 10 THEN error:=true
        ELSE
         BEGIN
           IF j DIV power12 = point THEN error:=true;
           i:=alfalength;
           IF ((id='h         ')
            or (id='help      ')) then
            BEGIN (* HELP INFORMATION *);
              writeln(output,'HELP INFORMATION:');
              writeln(output);
            END;
        paramno := paramno + 1;
        j := system(paramno,int,id);
      END;
       BEGIN
         writeln(output,'call: "indent help", for help ');
         close(input);
         GOTO 10;
       END;
    END;
 
      (* PROGRAM*)
  BEGIN
 
 
 
    fileid;
    if outputfile then close(output);
    10:;
  END.
      
▶EOF◀