mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-09 23:06:45 +00: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<67><72>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<65>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<73>t, obwohl ihm nie ein Lied ger<65>t.":GOTO 110
|
|||
|
|
230 PRINT"Fri<72>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<62>fft und kl<6B>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<73>hnt:Ach, wie ist man doch schon verw<72>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<65>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<69> ihn jetzt mit Hustentee, da w<>chst er schnell wie Kuckucksklee."
|
|||
|
|
480 A$=INKEY$:IF A$="" THEN 480 ELSE RUN
|
|||
|
|
|