DECLARE FUNCTION FUNC! (X!)
DECLARE SUB SCRSHO (DUM!)
DECLARE FUNCTION BESSJ0! (X!)

'PROGRAM D9R1
'Driver for routine SCRSHO
CLS
PRINT "Graph of the Bessel Function J0:"
CALL SCRSHO(DUM)
END

FUNCTION FUNC (X)
FUNC = BESSJ0(X)
END FUNCTION