//JOB(ERCC07,STEPHENS,T=200,L=10000)
//OPTIONS(QUOTES,OPT)
//ALGOL
'COMMENT'
                         ***************
                         *             *
                         *   ALGG019   *
                         *             *
                         ***************
;
 'BEGIN'
  'REAL''PROCEDURE' READ; 'EXTERNAL'READ1900;
      'BEGIN' 'REAL' A,B,C; 'INTEGER' I,J,K;
       'BOOLEAN' BOOL;
       'FOR' I := 1 'STEP' 1 'UNTIL' 82   'DO' 'BEGIN'
           J := NEXTCH; PRINTCH(J);J := READCH; PRINTCH(J);
                                     'END';
      'FOR' I := 1 'STEP' 1 'UNTIL' 81 'DO' SKIPCH;
      PRINTCH(48); SPACES(10);NEWLINES(1);NEWLINES(10);PRINTCH(49);
          NEWPAGE;
       SELECT OUTPUT(3);
      PRINTCH(CODE('('R')'));
      'COMMENT'RUNOUT;
      PRINTCH(CODE('('A')'));
       SELECT OUTPUT(0);
      PRINTCH(CODE('('B')'));
      PRINTCH(CODE('('1')'));
      PRINTCH(CODE('(';')'));
       SELECT OUTPUT(3);
      PRINTCH(CODE('('_')'));
      PRINTCH(CODE('('W')'));
      PRINTCH(CODE('('_')'));
      PRINTCH(CODE('('\')'));
      'COMMENT'FREEOU;
      PRINTCH(CODE('('Q')'));
      PRINTCH(CODE('('D')'));
      PRINTCH(CODE('('\')'));
       'FOR' I := 1 'STEP' 1 'UNTIL' 10 'DO' 'BEGIN'
          A := READ;
          OUTPUT(A); PRINT(A,2,5); NEWLINES(1);
                             'END';
       SELECT INPUT(2);
      B:=READ;PRINT(B,2,5);OUTPUT(B);NEWLINES(1);
       SELECT INPUT(0);
      'FOR' J := 1,2,2 'DO' 'BEGIN'
      BOOL := READBOOLEAN;  WRITEBOOLEAN(BOOL); 'END';
       SELECT INPUT(2);
      BOOL :=READBOOLEAN; WRITEBOOLEAN(BOOL);
        SELECTINPUT(0);'COMMENT'FREEIN;
      WRITETEXT('('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@%*<-/,.#')');
      WRITETEXT('(''('C')'ADFG'('P')')')');
      WRITETEXT('('ABC'('S')' DEF '('P')' ASD'('QUSSQSSUSSUP')'')');
      WRITETEXT('('ONE LINE'('3S4Q5S4U2P')'ASDF'('9S124Q')''('P')'')');
      COPYTEXT('('ABCDEFGH')'); COPYTEXT('('123456')');
      'END';
 'END';
//DFF(2,*)
23.012345;
 'FALSE'
//DFF(3,99)
//RUN
   A   D  3   &  %  %   @ #  /  H' ;: B =! (( 44DDF //K DM22GS S0000D;;'4''-04' ;
THIS CARD SHOULD NOT APPEAR                                                    ;
10.012,32.1   56
45.0E-2,   23&023,   -12.0&-12
     45.12, .00000012&+23       .123
45.2356'10'23
   'TRUE'   SDFG 'FALSE'    SHOULD SKIP
        'TRUE'
QWERTYUIOP
ABCDEFGJAAAABCABCDEFGGGABCDEAAABCDEFGHJK12AK224(;;
D:;44531'\;>),$*N*,CJKJ1234  UIJ JKJKLM 4  123456