cls
display 2 'tracked
print "CHART.BAS (c) Rob Kunstadt 1990"
print "Is display tracked PC?"
print "Use Alt-Cursor to scroll screen"
print "Enter hours (13 max per day)"
print
print "Monday"
input "Hours Worked"; a
print
print "Tuesday"
input "Hours Worked"; b
print
print "Wednesday"
input "Hours Worked"; c
print
print "Thursday"
input "Hours Worked"; d
print
print "Friday"
input "Hours Worked"; e
print
print "Saturday"
input "Hours Worked"; f
print
print "Sunday"
input "Hours Worked"; g
print
print "Press RTN to view chart"
input "",z
cls
print "Monday: ";a;" hours"
box 2,1,3,3*a,1 
print
print "Tuesday: ";b;" hours"
box 5,1,6,3*b,1
print
print "Wednesday: ";c;" hours"
box 8,1,9,3*c,1
print
print "Thursday: ";d;" hours"
box 11,1,12,3*d,1
print
print "Friday: ";e;" hours"
box 14,1,15,3*e,1
print
print "Saturday: ";f;" hours"
box 17,1,18,3*f,1
print
print "Sunday: ";g;" hours"
box 20,1,21,3*g,1
print
h=a+b+c+d+e+f+g
print "Total: ";h;" hours"
print "Average: ";h/7;" ";h%7;"/7 hours per day"
system