44 lines
591 B
Plaintext
44 lines
591 B
Plaintext
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
|
||
|