10 PRINT CHR$(27)"E"
20 PRINT TAB(15)"** VALUTA BEREKENING DUITSE MARKEN EN ZW-FRANKEN **"
30 PRINT
40 PRINT
100 REM **** VALUTA PROGAMMA *******
110 REM
120 REM DIT PROGAMMA BEREKENT VOOR DIVERSE BEDRAGEN IN GULDENS
130 REM HET BEDRAG IN DUITSE MARKEN EN IN ZWITSERSE FRANKEN
140 REM
150 PRINT
160 INPUT "KOERS DUITSE MARK         ";DM
170 INPUT "ZWITSERSE FRANK           ";ZF
180 PRINT CHR$(27)"E"
190 PRINT"EEN GULDEN IS ";DM;"DUITSE MARK   (DM)"
200 PRINT"EEN GULDEN IS ";ZF;"ZWITSERSE FRANK (Zwfr)"
210 PRINT
220 FOR I=1 TO 15
225 READ GULDENS
230 PRINT USING "####.## GLD     ####.## DM    ####.## Zwfr ";                             GULDENS,DM*GULDENS,ZF*GULDENS
250 NEXT I
270 DATA 0.5,1,2,2.5,5,10,15,20,25,100,250,350,450,500,1000
275 PRINT:PRINT:PRINT
280 PRINT"WILT U EEN ANDER VALUTA BEREKENING <JA OF NEE> ";
290 INPUT N$
300 IF N$="JA" THEN GOTO 10
400 IF N$="NEE"  THEN PRINT "SYSTEM"
500 END
ER VALUTA BEREKENING <JA OF NEE> ";
290 INPUT N$
300 IF N$="JA" THEN GOTO 10
400 IF