home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / fakult.stack (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  388b  |  18 lines
  1. 10 dimstack(255):rem soft-stack
  2. 20 p=0
  3. 30 input"fakultaet von";x
  4. 40 ifx>20then30
  5. 50 stack(p)=x:rem "push"stack
  6. 60 gosub100
  7. 70 y=stack(p):rem "pull"stack
  8. 80 printx"! ="y
  9. 90 end
  10. 99 :
  11. 100 ifstack(p)<2thenstack(p)=1:return
  12. 110 p=p+1:rem stackpointer hochstellen
  13. 120 stack(p)=stack(p-1)-1
  14. 130 gosub100:rem selbstaufruf. deshalb nur bis !20
  15. 140 stack(p-1)=stack(p)*stack(p-1)
  16. 150 p=p-1:rem pointer wieder runterstellen
  17. 160 return
  18.