home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
1990
/
06
/
grdlagen
/
if_3.bas
< prev
Wrap
BASIC Source File
|
1990-03-09
|
2KB
|
45 lines
10 ' ------------- if_3.bas - if - goto -Lösung
20 CLS
30 LOCATE 10,10 : PRINT "Gib Deinen Vornamen ein: ";
40 INPUT "",VORNAME$
50 IF LEN(VORNAME$) < 6 THEN 100
60 ' ------------- jetzt beginnt der NEIN-Zweig
70 LOCATE 12,10 : PRINT "Mit Dir will ich nicht arbeiten !"
80 LOCATE 13,10 :
85 PRINT "Dein Name ist mir viel zu lang. Ich bin so faul."
90 GOTO 140
100 ' ----------- hier beginnt der JA-Zweig
110 LOCATE 12,10 : PRINT "Hallo "; VORNAME$; "!"
120 LOCATE 13,10 :
125 PRINT "Mit Dir möchte ich gerne zusammen arbeiten!"
130 LOCATE 14,10 : PRINT "Dein Name ist so wohltuend kurz."
140 ' ------------ die Verzweigung ist hier zu Ende
150 LOCATE 22,10 : PRINT "< TASTE > "
160 TASTE$ = INPUT$(1)
170 CLS
300 '----------- if_3.bas - while-wend-Lösung
310 CLS
320 LOCATE 10,10 : PRINT "Gib Deinen Vornamen ein: ";
330 INPUT "", VORNAME$
340 LAENGE = LEN(VORNAME$)
350 ' ---------- hier beginnt die Schleife für den JA-Zweig
360 WHILE LAENGE < 6
370 LOCATE 12,10 : PRINT "Hallo "; VORNAME$; "!"
380 LOCATE 13,10
385 PRINT "Mit Dir möchte ich gerne zusammen arbeiten!"
390 LOCATE 14,10 : PRINT "Dein Name ist so wohltuend kurz."
400 LAENGE = 6
410 WEND
420 LAENGE = LEN(VORNAME$)
430 ' -------- hier beginnt die Schleife für den NEIN-Zweig
440 WHILE LAENGE > 5
450 LOCATE 12,10 : PRINT "Mit Dir will ich nicht arbeiten !"
460 LOCATE 13,10 :
465 PRINT "Dein Name ist mir viel zu lang. Ich bin so faul."
470 LAENGE = 5
480 WEND
490 LOCATE 22,10 : PRINT "< TASTE > "
500 TASTE$ = INPUT$(1)
510 CLS
520 END