'HEAD' MAIN PROCESSING LOOP
C     EDIT DATE 18JUN79
C     SOURCE FILE STMAINFS
C     AUTHOR   B.P. ADLEY
C     CLUSTER 100,100
      'OUTFILE' STMAIN.FR
      PROGRAM STRAN
      CALL INIT
      CALL PARSE
      STOP
      END
'HEAD'  STRAN INCLUDE FILE PRINT
      'OUTFILE' STDATA.FR
      BLOCK DATA
      'INCLUDE' STRAN.IN,P
      'EJECT'
      DATA  MAXTAB   /10/
      DATA  MAXLIN   /55/
      DATA  IFMAX    /10/
      DATA  MAXLEV   /5/
      DATA  TABS     / 7, 10, 13, 16, 19, 22, 25, 28, 31, 72/
      DATA  FFILE    /0/
      DATA  EOF      /-1/
      DATA  LETTER   /1000/
      DATA  DIGIT    /1001/
      DATA  TAB      /9/
      DATA  EOL      /13/
      DATA  BLANK    /32/
      DATA  BBLANK   /8224/
      DATA  QUOTE    /34/
      DATA  GIZZY    /39/
      DATA  LPAREN   /40/
      DATA  RPAREN   /41/
      DATA  AST      /42/
      DATA  COMMA    /44/
      DATA  PERIOD   /46/
      DATA  SLASH    /47/
      DATA  CHAR0    /48/
      DATA  CHAR1    /49/
      DATA  CHAR9    /57/
      DATA  SEMI     /59/
      DATA  EQUAL    /61/
      DATA  CHARA    /65/
      DATA  CHARZ    /90/
      DATA  UPAROW   /94/
      DATA  DOOP     /100/
      DATA  WHILE    /101/
      DATA  ENDOP    /102/
      DATA  FOR      /103/
      DATA  DOLOOP   /104/
      DATA  BREAK    /105/
      DATA  NEXT     /106/
      DATA  IFOP     /107/
      DATA  ELSE     /108/
      DATA  ENDIF    /109/
      DATA  DEFINE   /110/
      DATA  HEAD     /111/
      DATA  EJECT    /112/
      DATA  INCLUD   /113/
      DATA  OUTFIL   /114/
      DATA  QSEEN   /.FALSE./
      DATA ICSTK/20*0/
      DATA IFST/20*0/
      DATA LPST/100*0/
      DATA  COMPMS/11*0/
      DATA LSAVE/5*0/
      DATA PSAVE/5*.FALSE./
      DATA IBUF/42*0/
      DATA PBUF/58*0/
      DATA HBUF/42*0/
      DATA OUTBUF/42*0/
      DATA BUF/58*0/
      DATA NAME/22*0/
      END

'HEAD' INITIALISE FNAMES COMMON AREA
      'OUTFILE' FNAMES.FR
      BLOCK DATA
      'INCLUDE' FNAMES.IN,P
      DATA SRCEFS,CMDF,LISTF,OUTF/70*0/
      END