This program will find the average of a data set that you enter!
(The data will not all be visible on the screen at once if you enter lots of data, but it supports up to 10000 pieces of Data.)
Pretty sure it works, but you need to have the Times New Roman font on your computer. If you do not have it just erase the "set text font" and "set text size" commands.
EDIT: Just copy and paste the following code into the editor.
REM Project: Average Finder
dim Data#(10000,2)
Data$="DATA STRING SO FAR>> "
Begin:
set text font "Times" `Erase this if you do not have Times New Roman Font.
set text size 16 `Erase this if you do not have Times New Roman Font.
cls
set cursor 10,10
Data$=""
for d = 1 to 10000
if Data#(d,2)=1 then Data$=Data$+","+str$(Data#(d,1))
next d
print "DATA SO FAR>> ",Data$
set cursor 50,50
inc NumOfData
input "Enter your next Data Value: ",Data#(NumOfData,1)
Data#(NumOfData,2)=1
cls
Data$=""
for d = 1 to 10000
if Data#(d,2)=1 then Data$=Data$+","+str$(Data#(d,1))
next d
repeat
print "Are You Done? (y/n)"
set cursor 10,100
print "DATA SO FAR>> ",Data$
if inkey$()="n" then goto Begin
sync
until inkey$()="y"
wait 500
Data$=""
for d = 1 to 10000
if Data#(d,2)=1 then Sum#=Sum#+Data#(d,1)
next d
Average#=Sum#/NumOfData
cls
set cursor 10,10
Data$=""
for d = 1 to 10000
if Data#(d,2)=1 then Data$=Data$+","+str$(Data#(d,1))
next d
print "DATA SET ENTERED ",Data$
set cursor 50,50
print "AVERAGE OF YOUR DATA SET: ",Average#
set cursor 50,100
print "Press a key to exit."
wait key
EDIT: Tell me how you like it
I doubt you can draw me/60 by hand, so you REALLY can't draw ME/1, can you?
