%Average for one Subject
%PLease note that this is a very lightweight program that I designed to be as small as possible in the actual code
var font1 := Font.New ("Consolas:16:italic")
var actmark, outof, percent, storetotal, average, total : real
var name1, subject1 : string
var test_number, y : int
%Obtaining the Titles
put "What is your name?"
get name1 : *
put "What Subject will you be calculating the average for?(or type t for school average)"
get subject1 : *
if subject1 = "t" then
    subject1 := "School Average"
end if
%Making sure that the running numbers are all set to zero, when I didnt do this, some variables gave me errors in the calculation and others would cause the program to not run
y := 410
test_number := 0
percent := 0
total := 0
cls
%This is the start of the actual values for the tests
%I had A LOT of trouble finding a way to store the numbers I got from the percent. It took me 3hrs of redoing the entire loop to finaly figure out how to do this(I redid the program on paper.
%I have done all the assignments you gave us on paper before the actual programming aspect started
%I may have done it slower due to me writing the possible inputs and outputs of the program on three seperate sheets
%If you want to see my rough notes ask me, I'm very proud of them
loop
    %I love naming the variables what they actually are so I named the storetotal as a temporary place to get the totals
    storetotal := total
    put "Please enter what mark you got or -9 to calculate the average for " + subject1
    get actmark
    exit when actmark = -9
    put "What was this out of?"
    get outof
    %Me getting the percent
    percent := (actmark / outof) * 100
    if percent > 100 then
        put "Are you asian??"
    end if
    %The total is the total running sum of the current operation so far
    total := storetotal + percent
    %The x value is a count of how many tests were taken into account by the program so that later we can actually use a correct number of tests to divide the running sum of the averages
    test_number := test_number + 1
    y := y - 65
    %This particular piece of code does not obey me, it cannot draw past 6 tests for some reason
    %I've tried multiple ways to fix this but none have worked
    Font.Draw ("Test " + intstr (test_number) + ":" + frealstr (percent, 0, 1) + "%", 300, y, font1, black)
end loop
%This makes it look pretty
cls
%The average of the subject is this
average := (total / test_number)
%Showing the average to the user
y := 250
Font.Draw ("Your average was " + frealstr (average, 0, 1) + "%", 150, y, font1, black)
%I wanted to write a loop but I wasn't able to stop the repeating messages
y := y - 20
if average > 80 then
    Font.Draw ("Congratulations," + name1, 150, y, font1, black)
    y := y - 20
    Font.Draw ("you are on your way to the honor roll", 150, y, font1, black)
    y := y - 20
    Font.Draw ("with " + frealstr (average, 0, 1) + "% in " + subject1, 150, y, font1, black)
end if
if average > 90 then
    y := y - 40
    Font.Draw ("You are also on your way", 150, y, font1, black)
    y := y - 20
    Font.Draw ("to the Principals List!!", 150, y, font1, black)
end if