1
0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-11-09 23:06:45 +00:00
gwbasic/KATER_KN.BAS

49 lines
3.0 KiB
QBasic
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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