10 CLS
100 REM***
110 REM*** PREISVERGLEICH ***
120 REM***
130 INPUT "Menge Ware 1 ";MENGE1
140 INPUT "Preis Ware 1 ";PREIS1
145 CLS
150 INPUT "Menge Ware 2 ";MENGE2
160 INPUT "Preis Ware 2 ";PREIS2
165 CLS
170 PJM1=PREIS1/MENGE1
180 PJM2=PREIS2/MENGE2
190 IF PJM1=PJM2 THEN PRINT "Ware ist gleich teuer !":GOTO220
200 IF PJM1>PJM2 THEN PRINT "Ware 1 ist teurer !":GOSUB 500:GOTO 220
210 IF PJM1<PJM2 THEN PRINT "Ware 2 ist teurer !":GOSUB 700:GOTO220
220 CLS:INPUT "Noch ein Vergleich (J/N) ";A$
230 IF A$="J"THEN 100
240 IF A$="N"THEN END
250 GOTO 220
500 PRINT "Bei Menge 100 ist Ware 1 um    ";ROUND(B,-3);" Euro teuerer !":GOTO 690
510 A=PJM1-PJM2
520 IF A<0.10THEN 600
530 PRINT "Ware 1 ist um ";ROUND(A,-3);" Euro teuerer !":GOTO 690
600 B=A*100
610 PRINT "Bei Menge 100 ist Ware 1 um    ";ROUND(B,-3);" Euro teuerer !":GOTO 690
690 RETURN
700 REM PJM1<PJM2
710 A=PJM2-PJM1
720 IF A<0.10THEN 800
730 PRINT "Ware 2 ist um ";ROUND(A,-3);" Euro teuerer !":GOTO 890
800 B=A*100
810 PRINT "Bei Menge 100 ist Ware 1 um    ";ROUND(B,-3);" Euro teuerer !":GOTO 890
890 RETURN