oh, das war nun wirklich böse... soll ich noch einen drauflegen?
Man könnte auch gewisse High-Heels auf dem Küchentisch rumstehen lassen...
Und ich habe das nicht wirklich gerade gesagt.
10 INPUT "Geben Sie bitte Ihr Lieblingsgetränk ein"; A$
20 PRINT "Ich wusste, dass Sie BOLLINGER schreiben werden, "; A$
30 INPUT "Wieviele Gläser BOLLINGER wollen Sie?"; S
40 FOR I = 1 TO S
50 S$ = S$ + "*"
55 NEXT I
60 PRINT S$
70 INPUT "Möchten Sie noch ein Glas BOLLINGER?"; Q$
80 IF LEN(Q$) = 0 GOTO 70
90 L$ = LEFT$(Q$, 1)
100 IF (L$ = "J") OR (L$ = "j") THEN GOTO 30
110 PRINT "Prost und viel Spaß beim Sex mit Ralph!";
120 FOR I = 1 TO 200
130 PRINT A$; " ";
140 NEXT I
150 PRINT
Mitglieder in diesem Forum: 0 Mitglieder und 14 Gäste