home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_1 / 003.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-02-16  |  2.3 KB  |  89 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       003.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - serielle Verbindung zum PC
  8. ' - Terminalprogramm
  9. '
  10. ' Schwerpunkte:
  11. '
  12. ' - Definition von Variablen und Konstanten
  13. ' - einfache Zuweisungen und Rechenoperationen
  14. ' - Ausgabe von Texten und Ergebnissen mit PRINT
  15. '
  16. ' Das Beispiel zeigt u.a. die Effekte, die durch Ueberlappung von
  17. ' Variablen oder durch Ueberschreitung des Wertebereicches entstehen.
  18. '********************************************************************
  19.  
  20. ' --- Definitionen --------------------------------------------------
  21.  
  22. ' automatische Variablen
  23.  
  24. define a word
  25. define b word
  26. define c byte
  27.  
  28. ' Variablen mit Angabe der Speicherzelle
  29. define x word[7]
  30. define y byte[24]       ' letzte verfuegbare Speicherzelle
  31. define z word[2]        ' gleiche Zelle wie autom. Variable b!
  32.  
  33. ' Konstanten
  34. define k1 100
  35. define k2 1234
  36. define k3 9
  37.  
  38. ' --- Programmoperationen -----------------------
  39.  
  40. 'Programmtitel ausgeben 
  41. print "C-Control/BASIC      003.BAS"
  42. print "============================"
  43. print
  44.  
  45. ' Initialisierungen
  46. a = 3
  47. b = k1                  ' b = 100
  48. c = 0
  49. x = -k2                 ' x = -1234
  50. y = -k3                 ' y = 247, nicht -9 (Bytes sind immer positiv)
  51.  
  52. ' alle Werte ausgeben, achten Sie auf z = b!
  53. print "a = "; a, "b = "; b, "c = "; c
  54. print "x = "; x, "y = "; y, "z = "; z
  55. print
  56.  
  57. ' ein paar Berechnungen
  58. a = a + 97              ' a = 100
  59. b = k2 * k3 / k1        ' b = 111
  60. c = (17 + 4) / 7        ' c = 3
  61. x = abs(x)              ' x = 1234
  62. y = 13 shl 2            ' y = 52
  63.  
  64. ' alle Werte ausgeben, achten Sie auf z = b!
  65. print "a = "; a, "b = "; b, "c = "; c
  66. print "x = "; x, "y = "; y, "z = "; z
  67. print
  68.  
  69. ' noch ein paar Berechnungen
  70. a = k2 * k3 MOD k1      ' a = 6
  71. c = 200 + 60            ' c = 4, nicht 260 (c ist ein Byte!)
  72. z = 0                   ' das loescht auch b
  73. x = sqr(x)              ' x = 35
  74. y = 52 shr 2            ' y = 13
  75.  
  76. ' alle Werte ausgeben, achten Sie auf z = b!
  77. print "a = "; a, "b = "; b, "c = "; c
  78. print "x = "; x, "y = "; y, "z = "; z
  79. print
  80.  
  81. ' noch eine Leerzeile ausgeben und Programmende
  82. print
  83. end
  84.  
  85. ' Wenn der Starttaster jetzt noch gedrueckt ist,
  86. ' beginnt das Programm wieder von vorn!
  87.  
  88.  
  89.