home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / fakult.stack (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.