Ok Error Goto

200 ' Set up variables for Line styleb

310 ' Set jp variable for Bat Graph Painting 320 PTS « CHRS(fcHF0)♦CHKS(fcHF0)♦CHRS(fcHF)*CHRS(fcHF) 330 ' Set up array for raor.tn nan.e labels 340 FOR I - 1 TO 12 : READ MS(I) ! NEXT I

350 DATA Jan, Feb, Mar, Apt, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec 360 ' Menu Routine 370 CLS

380 TTS » "Grapn Display - Mer.u" 39C TB » (80-LEN(TTS))/2 400 PRINT TAB(TB) j TTS 410 PRINT

420 PRINT *1 - Input Data from Keyboard" j

430 PRINT TAB!40I j "8 - Display Annual Line Graph"

Was this article helpful?

0 0

Post a comment