%********************************************************************
%   Jordan Dykstra                                                  *
%   April 16                                                        *
%   This program allows the user to order a candy bar and recieve   *
%   change as required                                              *
%********************************************************************



%***********************************
%   Variables
var money : int % The ammount of money put into the machine
var change : int % The remaining change
var total : int % The total cost of the item
var item : string (1) % The item (getch'ed from user)
var twent : int := 2000 %*\
var ten : int := 1000 %****\
var five : int := 500 %*****\
var toon : int := 200 %******\
var loon : int := 100 %*******\ setting the value of coins
var quart : int := 25 %*******/ Like the fancy slashes???
var dime : int := 10 %*******/
var nick : int := 5 %*******/
var penn : int := 1 %******/
var totaltwent : int %\
var totalten : int %*\
var totalfive : int %*\
var totaltoon : int %**\
var totalloon : int %***\
var totalquart : int %***\ The number of coins
var totaldime : int %****/
var totalnick : int %***/
var totalpenn : real %*/

process PlayMusic
Music.PlayFile ("cd")
end PlayMusic

process other
%*****************************************
%Draw a box to outline machine
Draw.Line (100, 350, 500, 350, green)
Draw.Line (100, 100, 100, 350, green)
Draw.Line (500, 100, 500, 350, green)
Draw.Line (100, 100, 500, 100, green)
%*****************************************




%*****************************************
%   Calculate cost of item               *
%*****************************************
put "Enter Item code"
getch (item)
if item = "a" then
    total := 125
elsif item = "b" then
    total := 150
elsif item = "c" then
    total := 75
elsif item = "d" then
    total := 175
elsif item = "e" then
    total := 250
elsif item = "f" then
    total := 225
else put "Invalid option. you fkd up the program!"
end if
%*****************************************
put "     please insert coin or bill"
put "we do not accept 50 or 100 dollar bills"
get money
money := money * 100
change := money - total



totaltwent := change div twent
change := change mod twent

totalten := change div ten
change := change mod ten

totalfive := change div five
change := change mod five

totaltoon := change div toon
change := change mod toon

totalloon := change div loon
change := change mod loon

totalquart := total div quart
total := total mod quart

totaldime := change div dime
change := change mod dime

totalnick := change div nick
change := change mod nick

totalpenn := change

put "Your change is:"
if totaltwent > 0 then
    put totaltwent, " twenties"
end if
if totalten > 0 then
    put totalten, " tens"
end if
if totalfive > 0 then
    put totalfive, " fives"
end if
if totaltoon > 0 then
    put totaltoon, " toonies"
end if
if totalloon > 0 then
    put totalloon, " loonies"
end if
if totalquart > 0 then
    put totalquart, " quarters"
end if
if totaldime > 0 then
    put totaldime, " dimes"
end if
if totalnick > 0 then
    put totalnick, " nickels"
end if
if totalpenn > 0 then
    put totalpenn, " pennies"
end if
end other
fork other
fork PlayMusic

change := change mod twent

change := change - twent*totaltwent

totalquart := total div quart
    total := total mod quart