Listing of file='RATFOR.FOR;02' on disk='vmedia/ratfor-sector.ccvf'
BLOCK DATA
C
BYTE BLANK,TAB,BIGA,BIGZ
COMMON /CHARS/BLANK,TAB,BIGA,BIGZ
INTEGER BP,BUF(300)
COMMON /CDEFIO/BP,BUF
BYTE DIGITS(11)
COMMON /CDIG/DIGITS
INTEGER FORDEP,FORSTK(200)
COMMON /CFOR/FORDEP,FORSTK
BYTE SDO(3),SIF(3),SELSE(5),SWHILE(6),SBREAK(6)
BYTE SNEXT(5),SFOR(4),SREPT(7),SUNTIL(6),SRET(7)
BYTE VDO(2),VIF(2),VELSE(2),VWHILE(2),VBREAK(2)
BYTE VNEXT(2),VFOR(2),VREPT(2),VUNTIL(2),VRET(2)
COMMON /CKEYWD/SDO,SIF,SELSE,SWHILE,SBREAK,SNEXT,
* SFOR,SREPT,SUNTIL,SRET,
* VDO,VIF,VELSE,VWHILE,VBREAK,VNEXT,VFOR,VREPT,VUNTIL,VRET
INTEGER LINECT,LINCNT
BYTE LINE(80),FILE(20)
COMMON /CLINE/LEVEL,LINECT,LINCNT,LINE,FILE
INTEGER AVAIL,TABPTR(41)
BYTE TABLE(6500)
COMMON /CLOOK/AVAIL,TABLE(6500),TABPTR(41)
INTEGER OUTP
BYTE OUTBUF(81)
COMMON /COUTLN/OUTP,OUTBUF
BYTE FCNAME(30)
COMMON /CFNAME/FCNAME
INTEGER XFER
COMMON /CGOTO/XFER
C
DATA BLANK,TAB,BIGA,BIGZ/' ',9,'A','Z'/
DATA BP/0/
DATA DIGITS/'0','1','2','3','4','5','6','7','8','9',-2/
DATA LINECT,LINCNT/0,0/
DATA FILE/20*' '/
DATA OUTP/0/
DATA FORDEP/0/
DATA AVAIL/1/
C
DATA SDO/'D','O',-2/
DATA VDO/166,-2/
DATA SIF/'I','F',-2/
DATA VIF/161,-2/
DATA SELSE/'E','L','S','E',-2/
DATA VELSE/162,-2/
DATA SWHILE/'W','H','I','L','E',-2/
DATA VWHILE/163,-2/
DATA SBREAK/'B','R','E','A','K',-2/
DATA VBREAK/164,-2/
DATA SNEXT/'N','E','X','T',-2/
DATA VNEXT/165,-2/
DATA SFOR/'F','O','R',-2/
DATA VFOR/168,-2/
DATA SREPT/'R','E','P','E','A','T',-2/
DATA VREPT/169,-2/
DATA SUNTIL/'U','N','T','I','L',-2/
DATA VUNTIL/170,-2/
DATA SRET/'R','E','T','U','R','N',-2/
DATA VRET/171,-2/
C
DATA FCNAME(1)/-2/
C
END
C.............................................................
C
C RATFOR MAIN PROGRAM
C
CALL PARSE
STOP
END