5 REM*****RECHEN-DEMO*****
10 !NEW
15 :
20 !DEF UNTERPROGRAMM=:Q=1+P/100:KN=K*Q^N:_
30 !DEF UMRECHNUNG=:UNTERPROGRAMM:PRINT"ENDKAPITAL NACH"N"JAHREN ="KN:_
35 :
40 INPUT"ANFANGSKAPITAL  :";K
50 INPUT"LAUFZEIT (JAHRE):";N
60 INPUT"ZINS            :";P
65 :
70 UMRECHNUNG
80 END