home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / QBASIC / NTC.BAS next >
Encoding:
BASIC Source File  |  1997-06-17  |  1006 b   |  57 lines
  1. REM Erzeugen der Tabelle NTC.TAB
  2.  
  3. OPEN "NTC.TAB" FOR OUTPUT AS #1
  4. FOR N = 0 TO 59
  5.   PRINT #1, "600"
  6. NEXT
  7. FOR N = 60 TO 74
  8.   T = 50 + (75 - N) / (75 - 59) * 10
  9.   PRINT #1, INT(T * 10)
  10. NEXT
  11. FOR N = 75 TO 93
  12.   T = 40 + (94 - N) / (94 - 75) * 10
  13.   PRINT #1, INT(T * 10)
  14. NEXT
  15. FOR N = 94 TO 115
  16.   T = 30 + (116 - N) / (116 - 94) * 10
  17.   PRINT #1, INT(T * 10)
  18. NEXT
  19. FOR N = 116 TO 127
  20.   T = 25 + (128 - N) / (128 - 116) * 5
  21.   PRINT #1, INT(T * 10)
  22. NEXT
  23. FOR N = 128 TO 139
  24.   T = 20 + (140 - N) / (140 - 128) * 5
  25.   PRINT #1, INT(T * 10)
  26. NEXT
  27. FOR N = 140 TO 163
  28.   T = 10 + (164 - N) / (164 - 140) * 10
  29.   PRINT #1, INT(T * 10)
  30. NEXT
  31. FOR N = 164 TO 186
  32.   T = 0 + (187 - N) / (187 - 164) * 10
  33.   PRINT #1, INT(T * 10)
  34. NEXT
  35. FOR N = 187 TO 205
  36.   T = -10 + (206 - N) / (206 - 187) * 10
  37.   PRINT #1, INT(T * 10)
  38. NEXT
  39. FOR N = 206 TO 221
  40.   T = -20 + (222 - N) / (222 - 206) * 10
  41.   PRINT #1, INT(T * 10)
  42. NEXT
  43. FOR N = 222 TO 255
  44.   PRINT #1, "-200"
  45. NEXT
  46. CLOSE 1
  47. END
  48.  
  49.  
  50.  
  51.  
  52.  
  53.   
  54.  
  55.  
  56.  
  57.