SOURCE
PRECISION 14
PROCS=3
REAL: X

PROCEDURE: Bell
END PROCEDURE

PROCEDURE: Plot
   INTEGER ARG: X
END PROCEDURE

REAL FUNCTION: Double
   REAL ARG: X
END FUNCTION

PROCEDURE: Bell
      10 PRINT CHR$(7);
END PROCEDURE

PROCEDURE: Plot
      10 DO X TIMES
      20   PRINT " ";
      30 REPEAT
      40 PRINT "*"
END PROCEDURE

REAL FUNCTION: Double
      10 IF X<0 THEN ERROR 555
      20 RESULT=X*2
END FUNCTION

'MAIN Program:


    5 DO 3 TIMES
    8   Bell
   10   FOR X=1 TO 16
   20     Plot Double(X)
   40   NEXT
   50 REPEAT

ENDFILE