- dim ter$(6)
- print "Grabing US data"
- shell "wget https://raw.githubusercontent.com/nytimes/covid-19-data/master/us.csv"
- ter$(0)="us.csv"
- shell "rm *.txt"
- for i=0 to 0
- shell "echo "+mid$(ter$(i),1,len(ter$(i))-4)+" - "+date$+" - "+time$+" >> "+mid$(ter$(i),1,len(ter$(i))-4)+".txt"
- shell "tail "+ter$(i)+" > height.csv"
- open "height.csv" for input as #2
- do
- hitter$=hit1$
- if not (eof(2)) then input #2, hit1$,hit2$,hit3$,hit4$,hit5$,hit6$
- ck=ca
- if hitter$=hit1$ then
- ca=ca+val(hit5$)
- else
- cf=ca
- ca=0
- end if
- x = cf ' X = Maxium
- loop until eof (2)
- close #2
- if cf<>0 then fac=180 ' FAC = Ceiling 80
- open ter$(i) for input as #1
- ut=0
- do
- dater$=date1$
- if not (eof (1)) then input #1,date1$,county2$,state3$,del4$,cases5$,deaths6$
- cases5$=county2$ ' modifier for fields 2,3 of us.csv
- deaths6$=state3$ ' modifer for fields 2,3 of us.csv
- xx=xx+val(cases5$)
- xt=xx ' XT = Current State Value
- if dater$<>date1$ then xx=0
- if xt<>0 then ct=fac*(x/xt)
- for graph=1 to xt/1000
- grph$=grph$+"X"
- next graph
- if dater$<>date1$ then shell "echo "+date1$+"-"+grph$+" >> "+mid$(ter$(i),1,len(ter$(i))-4)+".txt"
- grph$=""
- loop until eof(1)
- close #1
- next i
Recent Pastes
This bin is created for anyone to paste text related to anything of public interest or letters to public officials. Anything else posted that is not a public interest matter may be deleted. If you would like such letter to be faxed to Congress, please refer to services offered at pagetelegram.com