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