PureBoard

Code: Alles auswählen

REM HAndyanbieter
CLS
40
COLOR 4, 7

PRINT "Wollen Sie meine Anbieter mit Zuf„lligen WERTEN"
INPUT "Oder lieber eigene Angaben Schreiben?(7=zufall) oder (8=neu):"; Angabe$
IF Angabe$ = "7" THEN GOTO 10
IF Angabe$ = "8" THEN GOTO 11


10 CLS

PRINT "welchen handyanbieter haben sie(alle Angaben werden mit 50 Sms im Monat"
PRINT "berechnet)"
PRINT "(1) Aldi"
PRINT "(2) D1"
PRINT "(3) D2"
PRINT "(4) telecom"
PRINT "(5) einen anderen"
INPUT men
IF men = 1 THEN GOTO 1
IF men = 2 THEN GOTO 2
IF men = 3 THEN GOTO 3
IF men = 4 THEN GOTO 4
IF men = 5 THEN GOTO 5



1 CLS
PRINT "Aha,Sie sind also beim billigen Aldi;so weit ich das auf dem momentanen Stand sehen kann"
PRINT
PRINT "betr„gt ihre gesamtausgabe f�r 50 SMS im MONAT genau:11 Euro"
PRINT
PRINT "Da die GRundgeb�hr 5 Euro betr„gt und eine Sms nur 0.12 Euro kostet"


2 CLS
PRINT "Aha,ich verstehen;sie sind also bei D1"
PRINT "laut meinen Berechnungen im JAhre 2006,bin ich auf das Ergebnis gekommen,"
PRINT "dass Sie das ausgew„hlte Handy ohne Grungeb�hr,"
PRINT "aber mit SmS-kosten von 0.24 Euro,kostet sie das im MOnat 12 Euro!"


3 CLS
PRINT "Verstehe,dein Anbieter heiát also D2"
PRINT "LAut meinen BErechnungen m�sstest du im Monat eine Grundgeb�hr von 10 Euro bezahlen"
PRINT "daf�r kannst du so viele SMS schreiben wie viele du willst,das sie umsonst sind"
PRINT "somit kostet dich dieser Anbieter genau 10 Euro,momat f�r Monat"
END

4 CLS
PRINT "ich sehe schon,du hast also TElecom gew„hlt"
PRINT "Dieser Anbieter verlangt im MOnat eine Grundgeb�hr von 7 Euro"
PRINT "und SmS-kosten von 0.15 Euro"
PRINT "somit musst du bei 50 Sms im MOant genau:13.5 Euro bezahlen"
END

Code: Alles auswählen

REM HAndyanbieter
CLS
40
COLOR 4, 7

PRINT "Wollen Sie meine Anbieter mit Zuf„lligen WERTEN"
INPUT "Oder lieber eigene Angaben Schreiben?(7=zufall), (8=neu), (0=beenden):"; Angabe$
If Angabe$ = "7" THEN Goto 10
If Angabe$ = "8" THEN Goto 11
If Angabe$ = "0" THEN End

Goto 40

11 CLS
PRINT "Ich weiá nicht so recht. Hier sollte was anderes stehen."
Goto 40

10 CLS

PRINT "Welchen handyanbieter haben sie? (Alle Angaben werden mit 50 Sms im Monat"
PRINT "berechnet)"
PRINT "(1) Aldi"
PRINT "(2) D1"
PRINT "(3) D2"
PRINT "(4) telecom"
PRINT "(5) einen anderen"
PRINT "(0) Beenden"
INPUT men
If men = 1 THEN Goto 1
If men = 2 THEN Goto 2
If men = 3 THEN Goto 3
If men = 4 THEN Goto 4
REM If men = 5 THEN Goto 5
If men = 0 THEN End
Goto 10

1 CLS
PRINT "Aha,Sie sind also beim billigen Aldi;so weit ich das auf dem momentanen Stand sehen kann"
PRINT
PRINT "betr„gt ihre gesamtausgabe f