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