10 extend 20 print "?Please use the CCL ERROR command" & \ print & \ goto 32767 & 30 def* fne$(erno%) & \ fne$=cvt$$(right(sys(chr$(6%)+chr$(9%)+chr$(erno%)),3%),5%) & \ fnend ! Function to return error msg & 40 print fne$(cmnd%) ! display error text & \ goto 32767 ! and exit & 30000 ! CCL ENTRY & ! & \ CMND$=SYS(CHR$(7%)) ! GET CORE COMMON & \ CMND$=CVT$$(CMND$,189%) ! CONVERT IT & \ I%=INSTR(1%,CMND$," ") ! ANY OPTIONS? & \ GOTO 30020 IF I%=0% ! NOPE, CONTINUE & \ CMND$=MID(CMND$,I%+1%,LEN(CMND$)) 30010 \ CMND%=VAL(CMND$) ! YES, CONVERT TO NUMBER & \ GOTO 40 ! AND DISPLAY IT 30020 PRINT"?Syntax is ERROR " & \ PRINT \ GOTO 32767 & 32767 END