home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_1 / 012.bas < prev    next >
Encoding:
BASIC Source File  |  1997-03-13  |  1.3 KB  |  71 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       012.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - serielle Verbindung zum PC
  8. ' - Terminalprogramm
  9. '
  10. ' Schwerpunkte:
  11. '
  12. ' - selektive Ausfuehrung mit ON...GOSUB (ON...GOTO)
  13. '
  14. ' Dieses Beispiel arbeitet nur mit ON...GOSUB. ON...GOTO wird
  15. ' analog verwendet. Beachten Sie dabei dann den Unterschied zwischen
  16. ' GOSUB (Unterprogrammaufruf) und GOTO (Sprung).
  17. '
  18. '********************************************************************
  19.  
  20. ' --- Definitionen --------------------------------------------------
  21.  
  22.   define selection word
  23.  
  24.  
  25. ' --- Programmoperationen -------------------------------------------
  26.  
  27. 'Programmtitel ausgeben
  28.   print
  29.   print "C-Control/BASIC      012.BAS"
  30.   print "============================"
  31.  
  32.   gosub menu
  33.  
  34.  
  35. ' Beginn der Dauerschleife
  36. #loop
  37.  
  38.   input selection
  39.   on selection gosub bye, howareyou, hi
  40.   gosub menu
  41.  
  42. goto loop
  43.  
  44.  
  45. ' Ausgabe des Menues
  46. #menu
  47.   print
  48.   print
  49.   print "---------------------------"
  50.   print "   (2) - Gruss"
  51.   print "   (1) - Wie geht es so?"
  52.   print "   (0) - Verabschiedung"
  53.   print "---------------------------"
  54.   print "> ";
  55. return
  56.  
  57.  
  58. #bye
  59.   print "Auf Wiedersehen!"
  60.   end
  61. 'return kann entfallen, da Programmende
  62.  
  63. #howareyou
  64.   print "Danke, gut!"
  65. return
  66.  
  67. #hi
  68.   print "Hallo!"
  69. return
  70.  
  71.