home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG049.ARK / RATCOMNS.RAT < prev    next >
Text File  |  1984-04-29  |  1KB  |  30 lines
  1. #common blocks referred to by ratfor references
  2. #"include ratcomns"
  3. #no transliteration tables are required for ascii system
  4. #Microsoft FORTRAN requires type statements to precede
  5. #common blocks.  Initialization is performed according to
  6. #the block data module.
  7. integer bp #next character in buf
  8. character buf #pushed-back characters
  9. integer*1 fordep #current depth of for statements
  10. character forstk #stack of reinit strings
  11. character sdo(3),sif(3),selse(5),swhile(6),sbreak(6),snext(5),
  12.   sfor(4),srept(7),suntil(6),vdo(2),vif(2),velse(2),vwhile(2),
  13.   vbreak(2),vnext(2),vfor(2),vrept(2),vuntil(2)
  14. integer level #level of file inclusion; init=1
  15. integer linect #line count on input file(level); init=1
  16. integer infile #file number(level); infile(1)=stdin
  17. integer lastp #last used in namptr; init=0
  18. integer lastt #last used in table; init=0
  19. integer namptr #name pointers
  20. character table #text of names & definitions
  21. integer outp #last position filled in outbuf; init=0
  22. character outbuf #output collector
  23. common/cdefio/bp,buf(bufsize)
  24. common/cfor/fordep,forstk(maxforstk)
  25. common/ckeywd/sdo,sif,selse,swhile,sbreak,snext,sfor,srept,
  26.   suntil,vdo,vif,velse,vwhile,vbreak,vnext,vfor,vrept,vuntil
  27. common/cline/level,linect(nfiles),infile(nfiles)
  28. common/clook/lastp,lastt,namptr(maxptr),table(maxtbl)
  29. common/coutln/outp,outbuf(maxline)
  30.