10 REM *** FUNCTION-BEISPIEL ***
11 REM  "FAC(X)" GIBT DIE AN DER
12 REM  ADRESSE X ABGELEGTE
13 REM  FLIESSKOMMAZAHL AUS
20 SYS 9*4096:.OPT OO:*=828
22 .ASC "PROGRAM:"
24 .WORD ENDE
25 ; ARGUMENT LIEGT ZUM
26 ; FUNKTIONSAUFRUF IM F.A.C. VOR
30 JSR $BC9B; F.A.C. -> INTEGER $64/$65
40 LDA $65:LDY $64; ADRESSE NACH A/Y
50 JSR $BBA2;KONSTANTE AUS A/Y NACH F.A.C.
60 RTS
65 ENDE NOP
70 .END:END
80 (null):(null)"FAC",1,828
100 REM *** IN 44712=$AEA8 IST ***
101 REM ***   PI ABGELEGT ***
110 PRINT (null) (44712)