10 DIMSTACK(255):REM SOFT-STACK
20 P=0
30 INPUT"FAKULTAET VON";X
40 IFX>20THEN30
50 STACK(P)=X:REM "PUSH"STACK
60 GOSUB100
70 Y=STACK(P):REM "PULL"STACK
80 PRINTX"! ="Y
90 END
99 :
100 IFSTACK(P)<2THENSTACK(P)=1:RETURN
110 P=P+1:REM STACKPOINTER HOCHSTELLEN
120 STACK(P)=STACK(P-1)-1
130 GOSUB100:REM SELBSTAUFRUF. DESHALB NUR BIS !20
140 STACK(P-1)=STACK(P)*STACK(P-1)
150 P=P-1:REM POINTER WIEDER RUNTERSTELLEN
160 RETURN