Content
Image Gallery
Source Code
10 REM "TEMP-DEC" © byBen H. Jackson, 1984; ALL RIGHTS RESERVED
20 REM --FT.WORTH TEMP FOR DEC BEGINNING 1983
50 REM --VARIABLES YRNEW--THIS YEAR YR--YEAR OF INTEREST
1000 CLS : PRINT AT 0,5;"DECEMBER TEMPERATURES"
1010 INPUT "THIS YR [19XX]=";YRNEW
1020 INPUT "YR OF INTEREST [19XX]=";YR
1021 PRINT AT 2,10;YR
2000 REM --DRAWING OF AXES
2010 PRINT AT 21,4;"1 8 15 22 31"
2020 PLOT 30,10: DRAW 225,0
2025 FOR D=1 TO 31
2030 PLOT 30+7*D,10: DRAW 0,3
2031 IF D=1 OR D=8 OR D=15 OR D=22 OR D=31 THEN DRAW 0,2
2035 NEXT D
2040 PLOT 30,10: DRAW 0,165
2045 PRINT AT 20,2;"5";AT 19,1;"10";AT 16,1;"20";AT 14,1;"30";AT 11,1;"40";AT 9,1;"50";AT 6,1;"60";AT 4,1;"70";AT 1,1;"80"
2050 PLOT 28,12
2060 FOR I=5 TO 84
2065 PLOT 28,2*(I+1): PLOT 32,2*(I+1)
2066 IF I=10 OR I=20 OR I=30 OR I=40 OR I=50 OR I=60 OR I=70 OR I=80 THEN PLOT 34,2*(I+1)
2070 NEXT I
2079 REM --DRAWING FREEZE LINE--
2080 FOR I=1 TO 31
2081 PLOT 30+7*I,66: DRAW 5,0
2082 NEXT I
2100 REM --DRAWING AVE TEMP SPAN
2110 RESTORE 9201
2115 FOR D=1 TO 31
2120 READ ALO: READ AHI
2130 PLOT 30+7*D,2*(ALO+1): DRAW 0,2*(AHI-ALO)
2140 NEXT D
2200 REM --DRAWING MIN,MAX TEMPS
2210 RESTORE 9101
2220 FOR D=1 TO 31
2230 READ X: IF X>1000 THEN GO TO 2230
2240 LET LO=X: IF LO<5 THEN LET LO=5
2250 READ X: IF X>1000 THEN GO TO 2250
2260 LET HI=X: IF HI>84 THEN LET HI=84
2270 PLOT 29+7*D,2*(HI+1): DRAW 0,1: DRAW 0,-2: DRAW 0,1: DRAW 2,0: DRAW 0,1: DRAW 0,-2
2280 PLOT 29+7*D,2*(LO+1)+1: DRAW 0,-2: DRAW 2,0
2290 NEXT D
2300 REM --DRAW YR'S MIN AND MAX
2305 LET D=1: LET XHIL=0
2310 RESTORE 9000+D: LET SKIP=YRNEW-YR
2320 FOR I=1 TO SKIP
2330 READ LO: READ HI
2340 NEXT I
2345 READ LO: IF LO<5 THEN LET LO=5
2346 READ HI: IF HI>84 THEN LET HI=84
2350 PLOT 28+7*D,2*(HI+1)+1: PLOT 33+7*D,2*(HI+1)+1: PLOT 29+7*D,2*(HI+1): DRAW 2,0: PLOT 28+7*D,2*(HI+1)-1: PLOT 33+7*D,2*(HI+1)-1
2352 LET XHI=30+7*D: LET YHI=2*(HI+1)
2355 PLOT 28+7*D,2*(LO+1)+1: PLOT 33+7*D,2*(LO+1)+1: PLOT 29+7*D,2*(LO+1)-1: PLOT 33+7*D,2*(LO+1)-1
2356 LET XST=0
2358 LET XLO=30+7*D: LET YLO=2*(LO+1)
2360 IF XHIL=0 THEN LET XHIL=XHI: LET YHIL=YHI: LET XLOL=XLO: LET YLOL=YLO
2365 PLOT XHIL,YHIL: DRAW XHI-XHIL,YHI-YHIL: PLOT XLOL,YLOL: DRAW XLO-XLOL,YLO-YLOL
2366 LET XHIL=XHI: LET YHIL=YHI: LET XLOL=XLO: LET YLOL=YLO
2370 LET D=D+1: IF D=32 THEN GO TO 9999
2390 GO TO 2310
9000 REM DATA --FORMAT(DAILY) DATE;(LO,HI)new,(LO,HI) (LO,HI),...oldest
9001 DATA 40,67,35,53,.9
9002 DATA 48,57,48,54,.9
9003 DATA 29,54,51,57,.9
9004 DATA 38,46,34,65,.9
9005 DATA 33,40,47,63,.9
9006 DATA 31,43,32,48,.9
9007 DATA 28,59,33,65,.9
9008 DATA 38,64,34,68,.9
9009 DATA 48,74,52,70,.9
9010 DATA 43,71,53,65,.9
9011 DATA 46,73,44,67,.9
9012 DATA 62,70,33,59,.9
9013 DATA 62,73,42,53,.9
9014 DATA 43,46,34,55,.9
9015 DATA 47,72,31,44,.9
9016 DATA 49,62,30,36,.9
9017 DATA 56,60,26,38,.9
9018 DATA 45,52,21,36,.9
9019 DATA 47,54,16,20,.9
9020 DATA 51,67,18,29,.9
9021 DATA 64,68,10,19,.9
9022 DATA 40,55,05,15,.9
9023 DATA 40,65,11,19,.9
9024 DATA 46,71,07,13,.9
9025 DATA 29,42,07,18,.9
9026 DATA 43,55,16,29,.9
9027 DATA 53,61,18,30,.9
9028 DATA 67,75,26,31,.9
9029 DATA 64,76,10,28,.9
9030 DATA 46,64,07,35,.9
9031 DATA 34,45,17,48,.9
9100 REM DATA --FORMAT(min,max) DATE; (YR,MIN),(YR,MAX)
9101 DATA 1979,25,1950,83
9102 DATA 1919,23,1951,80
9103 DATA 1929,21,1970,83
9104 DATA 1902,23,1977,83
9105 DATA 1950,18,1951,81
9106 DATA 1950,11,1966,84
9107 DATA 1950,10,1922,83
9108 DATA 1917,13,1977,80
9109 DATA 1914,17,1906,79
9110 DATA 1898,11,1983,84
9111 DATA 1914,20,1938,80
9112 DATA 1932,18,1973,83
9113 DATA 1917,14,1933,83
9114 DATA 1901,14,1933,79
9115 DATA 1901,09,1908,83
9116 DATA 1972,18,1908,83
9117 DATA 1932,14,1908,81
9118 DATA 1964,15,1977,1980,81
9119 DATA 1924,07,1978,73
9120 DATA 1924,08,1978,77
9121 DATA 1983,10,1981,82
9122 DATA 1983,05,1964,81
9123 DATA 1963,10,1964,81
9124 DATA 1983,07,1955,88
9125 DATA 1983,07,1955,88
9126 DATA 1983,16,1971,76
9127 DATA 1925,19,1925,81
9128 DATA 1924,11,1921,81
9129 DATA 1983,10,1923,81
9130 DATA 1983,07,1951,90
9131 DATA 1976,13,1951,85
9200 REM DATA --FORMAT(AVE) DATE; AVE LO,AVE HI
9201 DATA 40,61
9202 DATA 40,61
9203 DATA 40,61
9204 DATA 40,61
9205 DATA 40,60
9206 DATA 39,60
9207 DATA 39,60
9208 DATA 39,60
9209 DATA 39,60
9210 DATA 39,59
9211 DATA 38,59
9212 DATA 38,59
9213 DATA 38,59
9214 DATA 38,59
9215 DATA 37,58
9216 DATA 37,58
9217 DATA 37,58
9218 DATA 37,58
9219 DATA 37,57
9220 DATA 37,57
9221 DATA 36,57
9222 DATA 36,57
9223 DATA 36,57
9224 DATA 36,56
9225 DATA 36,56
9226 DATA 35,56
9227 DATA 35,56
9228 DATA 35,56
9229 DATA 35,55
9230 DATA 35,55
9231 DATA 35,55Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.