home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library2 / analog.bas next >
Encoding:
BASIC Source File  |  1990-09-22  |  3.5 KB  |  104 lines
  1. 'Program Name    : Analog.bas  basic outline for Multi Input Analog Display
  2. 'Author          : Spectra Publishing - Tech Support  Lloyd L. Smith
  3. 'Date            : 09-21-90
  4. 'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172  Voice
  8.  
  9. CLS
  10. SCREEN 9, , 0, 0
  11.  
  12. 'Top Screen
  13. LOCATE 1, 30: PRINT " Alarm Screen "
  14. LOCATE 2, 30: PRINT " Analog Inputs "
  15. LOCATE 4, 3: PRINT "Volt0     Volt1     Volt2     Volt3     Temp04    Temp05    Temp06    Temp07"
  16. LOCATE 6, 5: PRINT "5         5         5         5       400       400       1400      1400"
  17. LOCATE 8, 5: PRINT "0         0         0         0       330       330        625       625"
  18. LOCATE 10, 5: PRINT "5         5         5         5       400       400       -100      -100"
  19.  
  20. n = 0
  21. FOR i = 1 TO 8
  22. LOCATE 6, 6 + n: PRINT CHR$(191)
  23. LOCATE 7, 6 + n: PRINT CHR$(180)
  24. LOCATE 8, 6 + n: PRINT CHR$(180)
  25. LOCATE 9, 6 + n: PRINT CHR$(180)
  26. LOCATE 10, 6 + n: PRINT CHR$(217)
  27. n = n + 10
  28. NEXT i
  29.  
  30. LOCATE 11, 4: PRINT "0.97     -0.08     -3.33     -3.93     -68.4     -52.3      -7.2      -8.8"
  31. LOCATE 12, 4: PRINT "OK        OK      LoAlarm   LoAlarm   LoAlarm   LoAlarm   LoAlarm   LoAlarm"
  32. os = 0
  33. FOR i = 1 TO 8
  34. LINE (0 + os, 40)-(78 + os, 44 + 124), 14, B
  35. os = os + 80
  36. NEXT i
  37.  
  38. os = 0
  39. FOR i = 1 TO 8
  40. PSET (50 + os, 133), 14
  41. os = os + 80
  42. NEXT i
  43.  
  44. COLOR 11, 0: LOCATE 10, 9: PRINT CHR$(17): COLOR 15, 0
  45. COLOR 11, 0: LOCATE 10, 19: PRINT CHR$(17): COLOR 15, 0
  46. COLOR 13, 0: LOCATE 10, 29: PRINT CHR$(17): COLOR 15, 0
  47. COLOR 12, 0: LOCATE 10, 39: PRINT CHR$(17): COLOR 15, 0
  48.  
  49. COLOR 11, 0: LOCATE 10, 49: PRINT CHR$(17): COLOR 15, 0
  50. COLOR 11, 0: LOCATE 10, 59: PRINT CHR$(17): COLOR 15, 0
  51. COLOR 13, 0: LOCATE 10, 69: PRINT CHR$(17): COLOR 15, 0
  52. COLOR 12, 0: LOCATE 10, 79: PRINT CHR$(17): COLOR 15, 0
  53.  
  54.  
  55.  
  56. 'Bottom Half of Screen
  57. LOCATE 14, 3: PRINT "Volt0     Volt1     Volt2     Volt3     Temp04    Temp05    Temp06    Temp07"
  58. LOCATE 16, 5: PRINT "5         5         5         5       400       400       1400      1400"
  59. LOCATE 18, 5: PRINT "0         0         0         0       330       330        625       625"
  60. LOCATE 20, 5: PRINT "5         5         5         5       400       400       -100      -100"
  61.  
  62. n = 0
  63. FOR i = 1 TO 8
  64. LOCATE 16, 6 + n: PRINT CHR$(191)
  65. LOCATE 17, 6 + n: PRINT CHR$(180)
  66. LOCATE 18, 6 + n: PRINT CHR$(180)
  67. LOCATE 19, 6 + n: PRINT CHR$(180)
  68. LOCATE 20, 6 + n: PRINT CHR$(217)
  69. n = n + 10
  70. NEXT i
  71.  
  72. LOCATE 21, 4: PRINT "0.97     -0.08     -3.33     -3.93     -68.4     -52.3      -7.2      -8.8"
  73. LOCATE 22, 4: PRINT "OK        OK      LoAlarm   LoAlarm   LoAlarm   LoAlarm   LoAlarm   LoAlarm"
  74. os = 0
  75. FOR i = 1 TO 8
  76. LINE (0 + os, 180)-(78 + os, 184 + 124), 14, B
  77. os = os + 80
  78. NEXT i
  79.  
  80. os = 0
  81. FOR i = 1 TO 8
  82. PSET (50 + os, 273), 14
  83. os = os + 80
  84. NEXT i
  85.  
  86. COLOR 11, 0: LOCATE 20, 9: PRINT CHR$(17): COLOR 15, 0
  87. COLOR 11, 0: LOCATE 18, 19: PRINT CHR$(17): COLOR 15, 0
  88. COLOR 13, 0: LOCATE 20, 29: PRINT CHR$(17): COLOR 15, 0
  89. COLOR 12, 0: LOCATE 16, 39: PRINT CHR$(17): COLOR 15, 0
  90.  
  91. COLOR 11, 0: LOCATE 20, 49: PRINT CHR$(17): COLOR 15, 0
  92. COLOR 11, 0: LOCATE 17, 59: PRINT CHR$(17): COLOR 15, 0
  93. COLOR 13, 0: LOCATE 19, 69: PRINT CHR$(17): COLOR 15, 0
  94. COLOR 12, 0: LOCATE 20, 79: PRINT CHR$(17): COLOR 15, 0
  95.  
  96.  
  97. Mloop:
  98. k$ = UCASE$(INKEY$): IF k$ = CHR$(27) THEN SYSTEM
  99. COLOR 13, 0
  100. LOCATE 1, 1: PRINT TIME$: LOCATE 1, 70: PRINT DATE$
  101. COLOR 15, 0
  102. GOTO Mloop
  103.  
  104.