19 lines
459 B
Plaintext
19 lines
459 B
Plaintext
10 F$ = "SIN"
|
|
20 DEF FN A(P) = ATN(P/SQR(-P*P+1))
|
|
30 G$ = "FN A"
|
|
40 GOSUB 100"COMPOSE
|
|
50 SA$ = E$
|
|
|
|
60 X = .5 : E$ = SA$
|
|
70 GOSUB 200"EXEC
|
|
80 PRINT R
|
|
90 END
|
|
|
|
100 E$ = F$ + "(" + G$ + "(X))" : RETURN : REMCOMPOSE F$ G$
|
|
|
|
200 D$ = CHR$(4) : FI$ = "TEMPORARY.EX" : M$ = CHR$(13)
|
|
210 PRINT D$"OPEN"FI$M$D$"CLOSE"FI$M$D$"DELETE"FI$
|
|
220 PRINT D$"OPEN"FI$M$D$"WRITE"FI$
|
|
230 PRINT "CALL-998:CALL-958:R="E$":CONT"
|
|
240 PRINT D$"CLOSE"FI$M$D$"EXEC"FI$:CALL-998:END:RETURN
|