Compucolor.org – Virtual Media

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