mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
49 lines
3.0 KiB
QBasic
49 lines
3.0 KiB
QBasic
10 CLS
|
||
20 INPUT"Zahl [1.....9] : ",A
|
||
30 IF A<1 OR A>9 THEN CLS:GOTO 20
|
||
40 INPUT"Zahl [1.....9] : ",B
|
||
50 IF B<1 OR B>9 THEN CLS:GOTO 40
|
||
60 INPUT"Zahl [1.....9] : ",C
|
||
70 IF C<1 OR C>9 THEN CLS:GOTO 80
|
||
80 CLS
|
||
90 ON A GOTO 130,140,150,160,170,180,190,200,210
|
||
100 ON B GOTO 220,230,240,250,260,270,280,290,300
|
||
110 ON C GOTO 310,330,350,370,390,410,430,450,470
|
||
120 RUN
|
||
130 PRINT"Mein T”chterchen hat einen Spatz, das ist ihr allergr”áter Schatz.":GOTO 100
|
||
140 PRINT"Es wohnt im Zoo ein Elefant, der ist den Kindern wohlbekannt.":GOTO 100
|
||
150 PRINT"Bestimmt kennt ihr den Kater Kno, der liegt den ganzen Tag im Stroh.":GOTO 100
|
||
160 PRINT"Der Taxifahrer Hermann Bont f„hrt nie zu schnell, doch sehr gekonnt.":GOTO 100
|
||
170 PRINT"Vor unsrer Haust<73>r sitzt ein Hund, der wiegt schon f<>nfunddreiáig Pfund.":GOTO 100
|
||
180 PRINT"Wir haben einen bunten Hahn, der f„hrt gern mit der Eisenbahn.":GOTO 100
|
||
190 PRINT"Ein Turner turn am Reck mit Schwung und mit sehr viel Begeisterung.":GOTO 100
|
||
200 PRINT"Mein Bruder Hans hat einen Zahn mit einem Loch wie ein Vulkan.":GOTO 100
|
||
210 PRINT"Ein kleiner Kaktus steht am Fenster und sieht angeblich nachts Gespenster.":GOTO 100
|
||
220 PRINT"Er zwietscht und zwatscht von fr<66>h bis sp„t, obwohl ihm nie ein Lied ger„t.":GOTO 110
|
||
230 PRINT"Friát hundert Kilo Heu am Tag, viel Brot und was er sonst noch mag.":GOTO 110
|
||
240 PRINT"F„ngt er sich eine kleine Maus, schimpft er sie sieben Stunden aus.":GOTO 110
|
||
250 PRINT"F„hrt f<>nfzehn Jahre unfallfrei, und das freut auch die Polizei.":GOTO 110
|
||
260 PRINT"Er spitzt die Ohren, lauscht und blefft und blifft und blafft und bl”fft und kl„fft.":GOTO 110
|
||
270 PRINT"An jedem Tag legt er ein Ei und sonntags sogar zwei bis drei.":GOTO 110
|
||
280 PRINT"Und manchmal turnt er mit Luise auf unserer Himmelsschl<68>sselwiese.":GOTO 110
|
||
290 PRINT"Ach w<>rde er zum Zahnarzt gehn, dann k”nnte jeder das verstehn.":GOTO 110
|
||
300 PRINT"Er bildet sich das zwar nur ein, denn er ist wirklich noch sehr klein.":GOTO 110
|
||
310 PRINT"Und badet im Aqarium vor dem vergn<67>gten Publikum."
|
||
320 A$=INKEY$:IF A$="" THEN 320 ELSE RUN
|
||
330 PRINT"Und abends kettet man ihn an, damit ihn keiner stehlen kann."
|
||
340 A$=INKEY$:IF A$="" THEN 340 ELSE RUN
|
||
350 PRINT"Dann wischt er sich den Bart und st”hnt:Ach, wie ist man doch schon verw”hnt."
|
||
360 A$=INKEY$:IF A$="" THEN 360 ELSE RUN
|
||
370 PRINT"Doch jede dritte Nacht im Traum f„hrt er an einen dicken Baum."
|
||
380 A$=INKEY$:IF A$="" THEN 380 ELSE RUN
|
||
390 PRINT"Kommt ein Gewitter, reiát er aus und kricht vor Angst ins H<>hnerhaus."
|
||
400 A$=INKEY$:IF A$="" THEN 400 ELSE RUN
|
||
410 PRINT"Vieleicht war euch das nicht bekannt? Ich finde, es ist allerhand."
|
||
420 A$=INKEY$:IF A$="" THEN 420 ELSE RUN
|
||
430 PRINT"Bestimmt f„hrt er zur Olympiade, wenn nicht, dann w„re das sehr schade."
|
||
440 A$=INKEY$:IF A$="" THEN 440 ELSE RUN
|
||
450 PRINT"Ist auch geschwollen sein Gesicht, bedauern sollte man ihn nicht."
|
||
460 A$=INKEY$:IF A$="" THEN 460 ELSE RUN
|
||
470 PRINT"Ich gieá ihn jetzt mit Hustentee, da w„chst er schnell wie Kuckucksklee."
|
||
480 A$=INKEY$:IF A$="" THEN 480 ELSE RUN
|
||
|