1 REM **********************************************************************
2 POKE &6038,&84,&60,&00,&85,&60,&00,&86,&60,&00,&87,&60,&00,&84,&63,&71,&38
3 POKE &6048,&18,&06,&CC,&66,&40,&28,&04,&87,&2D,&0C,&04,&63,&71,&38,&0A,&06
4 POKE &6058,&CC,&66,&40,&39,&18,&87,&2D,&0C,&05,&84,&10,&60,&36,&53,&85,&10
5 POKE &6068,&60,&37,&53,&37
10 "A" CLEAR :CLS :WAIT 0:USING "###.#":PRINT "Wind Speed Meter, S-STOP"
20 CALL &6038
30 A=PEEK &6036+256*PEEK &6037
40 A= A*0.74575
50 B=B+A:N=N+1
60 CURSOR 25:PRINT "Wind Speed =";A;" m/s"
70 IF INKEY$ <>"S" GOTO 20
80 CLS : PRINT "Average Wind Speed ="; B/N;" m/s"
90 END