998 IF ISPKL THEN PRINT CHR$(7) : GOTO 983