#autonumber
new

op "page","",-1

print "Coin Calculator"
print mid$(str$(fn(24)),5,2);
print "/";mid$(str$(fn(24)),7,2);
print "/";mid$(str$(fn(24)),0,4);
print "	";
print mid$(str$(fn(25)),0,2);
print ":";mid$(str$(fn(25)),2,2);
print ":";mid$(str$(fn(25)),4,2)

print:print"This program figures out which values between 41";:print " and 99, inclusive, require at least 1 of";
print " each type of coin."

for amount=41 to 99

	quarters=0 : di=0 : nickles=0 : pennies=0 : test=0

	40 if (test+25)>amount then goto 50

	test=test+25: quarters = quarters+1 : goto 40

	50 if (test+10)>amount then goto 60

	test=test+10 : di = di+1 : goto 50

	60 if (test+5)>amount then goto 70

	test=test+5 : nickles=nickles+1 : goto 60

	70 if (test+1)>amount then goto 80

test=test+1 : pennies =pennies+1 : goto 70

80 print amount, quarters, di, nickles, pennies

90 next amount

run