10 CLS SCREEN 9 'GRAPHICS MODE x = 0 'DECLARE X 'THE FOLLOWING CODE DETECTS STICK(0) FOR MAXIMUM LIGHT DO a = STICK(0) CLS PRINT a PRINT "Turn Anemometer to Lowest Number and Hold" PRINT "Then Press Any Key" FOR y = 1 TO 1000: NEXT y LOOP WHILE INKEY$ = "" b = a + (.3 * a) 'SETS TRIGGER THRESHOLD DO DO a = STICK(0) IF a > b THEN t1 = TIMER IF a > b THEN c = 1 LOOP UNTIL c = 1 DO a = STICK(0) IF a < b THEN d = 1 LOOP UNTIL d = 1 DO x = x + 1 a = STICK(0) IF a > b THEN c = 0 LOOP UNTIL c = 0 d = 0 CLS LOCATE 24, 4 PRINT "CALM" LOCATE 1, 4 PRINT "HURRICANE" LOCATE 20, 4 PRINT "BREEZE" LOCATE 15, 4 PRINT "STRONG" LOCATE 16, 4 PRINT "BREEZE" LOCATE 11, 4 PRINT "GALE" LOCATE 5, 4 PRINT "STRONG" LOCATE 6, 4 PRINT "GALE" LINE (100, 1)-(150, 20 * x), 1, BF LINE (100, 20 * x)-(150, 349), 2, BF x = 0 FOR y = 1 TO 1000: NEXT y 'DELAY LOOP LOOP WHILE INKEY$ = "" CLS PRINT PRINT PRINT "ENTER x TO EXIT" INPUT "ENTER c TO CONTINUE"; V$ IF V$ = "x" THEN SHELL IF V$ = "c" THEN GOTO 10 ELSE GOTO 10 END IF