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
|
|||
|
|
|