home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / c-control setup / _setup.1 / 009.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-02-17  |  1.4 KB  |  67 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       009.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - serielle Verbindung zum PC
  8. ' - Terminalprogramm
  9. '
  10. ' Schwerpunkte:
  11. '
  12. ' - Definition von internen und externen Tabellen
  13. ' - Zugriff auf Tabellen
  14. '
  15. '********************************************************************
  16.  
  17. ' --- Definitionen --------------------------------------------------
  18.  
  19.   define x word
  20.   define i byte
  21.  
  22.   define tab1_ende 9
  23.   define tab2_ende 19
  24.  
  25. ' --- Programmoperationen -------------------------------------------
  26.  
  27. 'Programmtitel ausgeben 
  28.   print "C-Control/BASIC      009.BAS"
  29.   print "============================"
  30.   print
  31.  
  32. ' Ausgabe der ersten Tabelle, i ist die Indexvariable,
  33. ' beachten Sie, dass der erste Tabelleneintrag den Index 0 hat
  34.  
  35.   for i = 0 to tab1_ende
  36.     looktab tab1, i, x
  37.     print "tab1["; i; "]="; x
  38.   next
  39.  
  40. ' Leerzeile
  41.   print
  42.  
  43.   for i = 0 to tab2_ende
  44.     looktab tab2, i, x
  45.     print "tab2["; i; "]="; x
  46.   next
  47.  
  48. ' Leerzeile
  49.   print
  50.  
  51. ' der END-Befehl ist hier besonders wichtig, da die
  52. ' nachfolgenden Tabellendaten sonst vom Mikroprozessor
  53. ' wie Befehle abgearbeitet werden, was sicher zu einem
  54. ' Systemabsturz fuehrt
  55.  
  56. end
  57.  
  58. ' Definition einer internen Tabelle
  59.  
  60. table tab1
  61.   3 10 7 -1234 789
  62.   -32100 0 53 90 -45
  63. tabend
  64.  
  65. ' Definition einer externen Tabelle
  66. table tab2 "009demo.tab"
  67.