Listing of file='RATFOR.FOR;01' on disk='vmedia/ratfor-sector.ccvf'
BLOCK DATA INTEGER BP,BUF(300) COMMON /CDEFIO/BP,BUF 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 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 CALL PARSE STOP END