10 COLOR 4,0:CLS:KEY OFF'scherm leeg, balk reg.25 weg.
20 REM Dit is een programma om rente te berekenen
30 LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$
40 LET A$=STRING$(80,205)
50 LOCATE 2,1:PRINT A$:LOCATE 22,1:PRINT A$
60 LOCATE 8,10:COLOR 14,0:PRINT "RENTEBEREKENEN"
70 LOCATE 9,10:COLOR 4,0: PRINT STRING$(14,205)
80 LOCATE 11,10:PRINT "Doorgaan ? (j/n)";
90 D$=INKEY$:IF D$="J" OR D$="j" THEN 130
100 IF D$="N" OR D$="n" THEN RUN "rmenu
110 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$
120 GOTO 90
130 LOCATE 11,48:PRINT CHR$(159):LOCATE 11,10:INPUT "Wat is het bedrag (alleen de hele guldens) ";GELD%
140 LOCATE 12,10:INPUT "Wat is het rentepercentage(%-teken hoeft niet) ";RENTE!
150 IF RENTE!>100 THEN 140
160 LOCATE 13,10:INPUT "Wat is de tijd (in jaren) ";J
170 LET RENT=GELD%/100*RENTE!*J
180 LOCATE 15,10:PRINT USING "De rente is   Ÿ ###########.##";RENT
190 LOCATE 16,10:PRINT USING "Het bedrag is Ÿ ###########.##";GELD%+RENT
200 LOCATE 18,10:COLOR 5,0:PRINT "Zal ik het afdrukken ? (j/n)"
210 KEUZE$=INKEY$:IF KEUZE$="J" OR KEUZE$="j" THEN GOTO 250
220 IF KEUZE$="n" OR KEUZE$="N" GOTO 10
230 COLOR 4,0:LOCATE 1,12:PRINT TIME$,DATE$
240 GOTO 210
250 LPRINT USING "#######.##";RENTE!;
260 LPRINT "% is de rente, het bedrag is";:LPRINT USING "Ÿ ###########.##";GELD%;
270 LPRINT "."
280 LPRINT "Dan is het hele bedrag";:LPRINT USING "Ÿ ###########.##";RENT+GELD%
290 LPRINT "En het bedrag dat erbij komt";:LPRINT USING "Ÿ ###########.##";RENT
300 GOTO 10