home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8907a.d64 / fac-fkt-beispiel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  482b  |  20 lines
  1. 10 REM *** FUNCTION-BEISPIEL ***
  2. 11 REM  "FAC(X)" GIBT DIE AN DER
  3. 12 REM  ADRESSE X ABGELEGTE
  4. 13 REM  FLIESSKOMMAZAHL AUS
  5. 20 SYS 9*4096:.OPT OO:*=828
  6. 22 .ASC "PROGRAM:"
  7. 24 .WORD ENDE
  8. 25 ; ARGUMENT LIEGT ZUM
  9. 26 ; FUNKTIONSAUFRUF IM F.A.C. VOR
  10. 30 JSR $BC9B; F.A.C. -> INTEGER $64/$65
  11. 40 LDA $65:LDY $64; ADRESSE NACH A/Y
  12. 50 JSR $BBA2;KONSTANTE AUS A/Y NACH F.A.C.
  13. 60 RTS
  14. 65 ENDE NOP
  15. 70 .END:END
  16. 80 (null):(null)"FAC",1,828
  17. 100 REM *** IN 44712=$AEA8 IST ***
  18. 101 REM ***   PI ABGELEGT ***
  19. 110 PRINT (null) (44712)
  20.