home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library3 / factory.bas < prev    next >
BASIC Source File  |  1994-04-11  |  4KB  |  135 lines
  1. 'Program Name    : Factory.bas
  2. 'Author          : Lloyd L. Smith for Spectra Technical Support
  3. 'Date            : 11-12-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. 'Concept Date    : 07-13-90
  9. 'Concept by      : Smithtronix Corporation
  10. '                : Advanced programming examples, few comments in source code
  11. '
  12. DIM Arry1(5000)
  13.  
  14. SCREEN 9, , 1, 0
  15. LINE (0, 0)-(639, 349), 14, B
  16.  
  17. LINE (40, 30)-(600, 180), 8, BF
  18.  
  19. 'Vertical Scaline Lines
  20. os = 0
  21. FOR i = 1 TO 12
  22. LINE (67 + os, 31)-(67 + os, 179), 4'6
  23. os = os + 48
  24. NEXT i
  25.  
  26. 'Horizontal Scaline Lines
  27. os = 15
  28. FOR i = 1 TO 5 '9
  29. LINE (41, 31 + os)-(599, 31 + os), 4'6
  30. os = os + 30
  31. 'os = os + 15
  32. NEXT i
  33.  
  34.  
  35.  
  36. COLOR 14, 0: LOCATE 2, 28: PRINT "Smithtronix Trend Monitor";
  37. COLOR 15, 0: LOCATE 3, 77: PRINT "400";
  38. LOCATE 13, 77: PRINT "000";
  39. COLOR 11, 0: LOCATE 4, 78: PRINT "O";
  40.              LOCATE 5, 78: PRINT "V";
  41.              LOCATE 6, 78: PRINT "E";
  42.              LOCATE 7, 78: PRINT "N";
  43.              LOCATE 9, 78: PRINT "T";
  44.              LOCATE 10, 78: PRINT "E";
  45.              LOCATE 11, 78: PRINT "M";
  46.              LOCATE 12, 78: PRINT "P";
  47.  
  48. 'Border Enhancement
  49. LINE (39, 29)-(601, 181), 11, B
  50.  
  51. COLOR 14, 0
  52. LOCATE 14, 2: PRINT "TFT  00000 03000 06000 09000 12000 15000 18000 21000 24000 27000 30000 33000";
  53.  
  54. LOCATE 15, 2: PRINT "TIME 12:00 12:15 12:30 12:45 01:00 01:15 01:30 01:45 02:00 02:15 02:30 02:45";
  55. COLOR 15, 0
  56. LOCATE 16, 2: PRINT "FPM  200"
  57.  
  58. LOCATE 16, 14: PRINT "Oven Colors ";
  59. COLOR 10, 0:  PRINT "1/1 ";
  60. COLOR 11, 0:  PRINT "1/2 ";
  61. COLOR 12, 0:  PRINT "2   ";
  62. COLOR 13, 0:  PRINT "3/1 ";
  63. COLOR 14, 0:  PRINT "3/2 ";
  64. COLOR 15, 0:  PRINT "4,  ";
  65. COLOR 10, 0:  PRINT "5   ";
  66. COLOR 11, 0:  PRINT "6   ";
  67. COLOR 12, 0:  PRINT "7   ";
  68. COLOR 13, 0:  PRINT "8/1 ";
  69. COLOR 14, 0:  PRINT "8/2 ";
  70. COLOR 8, 0: LOCATE 24, 2: PRINT "F1-Sel Make#, F2-Set Ovns, F5-Disp Ovn Tmp 1-4, F6-Disp Ovn 5-8, Esc-Exit";
  71.  COLOR 15, 0
  72.  LOCATE 17, 2: PRINT "Make #   17073-05  Product Name: Cheyenne Hickory  "; :
  73. LOCATE 18, 2: PRINT "Ovens               1/1  1/2  2    3/1  3/2  4    5    6    7    8/1  8/2"
  74. LOCATE 19, 2: PRINT "Oven Temp Set Pt F  000  250  250  000  250  235  235  235  275  225  280"
  75. LOCATE 20, 2: PRINT "Oven Temp Actual    100  251  249  098  248  232  235  231  274  225  278";
  76. LINE (0, 223)-(639, 223), 14
  77. COLOR 13, 0: LOCATE 2, 2: PRINT "Time "; TIME$
  78.           LOCATE 2, 65: PRINT "Date "; DATE$
  79.  
  80. SCREEN 9, , 0, 0
  81. VIEW (40, 30)-(600, 180)
  82. WINDOW (1, 1)-(630, 100)
  83.  
  84.  
  85. MLoop:
  86. COLOR 13, 0: LOCATE 2, 2: PRINT "Time "; TIME$
  87.           LOCATE 2, 65: PRINT "Date "; DATE$
  88.  
  89. view:window:gosub PBCOPY '1, 0
  90.  
  91. k$ = INKEY$
  92. IF k$ = CHR$(27) THEN SYSTEM
  93. COLOR 13, 0: LOCATE 2, 2: PRINT "Time "; TIME$
  94.           LOCATE 2, 65: PRINT "Date "; DATE$
  95.           FOR Dly = 1 TO 1000: NEXT Dly
  96. FOR j = 1 TO 2
  97. FOR i = 0 TO 2 * 3.1415 STEP .02
  98. k$ = INKEY$
  99. IF k$ = CHR$(27) THEN SYSTEM
  100.    v1 = INT(ABS(80 * SIN(i)))
  101.    v2 = INT(ABS(94 * COS(i)))
  102.    v3 = INT(ABS(100 * SIN(i + .45)))
  103.    v4 = INT(ABS(100 * SIN(i + .78)))
  104.    v5 = INT(ABS(100 * COS(i + .45)))
  105.    v6 = INT(ABS(50 * COS(i + .78)))
  106.  
  107.    PSET (cnt, v1), 10
  108.    PSET (cnt, v2), 11
  109.    PSET (cnt, v3), 12
  110.    PSET (cnt, v4), 13
  111.    PSET (cnt, v5), 14
  112.    PSET (cnt, v6), 15
  113. COLOR 13, 0: LOCATE 2, 2: PRINT "Time "; TIME$
  114.           LOCATE 2, 65: PRINT "Date "; DATE$
  115.  
  116. cnt = cnt + 1
  117. NEXT i
  118. NEXT j
  119. cnt = 1
  120. GOTO MLoop
  121.  
  122. 'This routine copies the background screen to the foreground
  123. PBCopy:
  124. FOR n = 0 TO 349
  125. SCREEN 9, , 1, 0
  126. GET (0, n)-(639, n), Arry1
  127. SCREEN 9, , 0, 0
  128. PUT (0, n), Arry1,pset
  129. NEXT n
  130. VIEW (40, 30)-(600, 180)
  131. WINDOW (1, 1)-(630, 100)
  132. RETURN
  133.  
  134.  
  135.