
FORTRAN II

EI=4000
EH=10000
FINISH=EXIT-JMP

CRTURN,	LV0	FINISH

ENDCR=CRTURN

CLHTMX,	HELP 1110 EH
CLHTMS,	HELP 1111 EH
CLHSCX,	HELP 1112 EH

VPOINT=PST
DN=10
AN=1
DOG=PST 1
DO2=PST 2
DO3=PST 3
DOVAR=PST 4
DONUM=PST 5
DOOPR=PST 6

POLISH,	XCT CRTURN
POLISH POLEN/
POLEND,	0

TOP,	LAC I POLISH

PSTORE,	PSTORE PUSHN/
CPOINT,	CPOINT CN/
TAPBUF,	TAPBUF TN 1/
PUNBUF,	PUNBUF PN 1/
VARIABLES

START HERE
?