`ClrHome Output(3,2,"VALUE OF MONEY" Output(4,6,"Version 1" Output(6,3,"U.S. EDITION" Output(8,3,"PRESS ENTER" Pause //You don't need the If getKey after the Pause, which forces the user to press enter twice. ClrHome randInt(1,4->C sub("QUARTERDIME NICKEL PENNY ",7C-6,7) //7 characters per coin name Input "VALUE OF "+Ans+"?",A {25,10,5,1 If A=Ans(C:Then Disp "WELL DONE! Else Disp "WRONG! IT IS",Ans(C End`

The formatting might not be the same or as pretty, but this does shred the usage of bytes down by quite a bit.

]]>so thanks for remaking the program I needed some on to do it that was not me because I did not know how to do it. :) ]]>

`ClrDraw ClrHome Output(3,2,"VALUE OF MONEY" Output(4,6,"Version 1" Output(6,3,"U.S. EDITION" Output(8,3,"PRESS ENTER" Pause If getKey=105 Then ClrHome END randInt(1,4->C If C=1 ClrHome Input "VALUE OF QUARTER?",A If A=25 Then ClrHome Disp "WELL DONE!" END If A ≠ 25 Then ClrHome Disp "WRONG!, IT IS 25" END If C=2 ClrHome Input "VALUE OF DIME?",A If A=10 Then ClrHome Disp "WELL DONE!" END If A ≠ 10 Then ClrHome Disp "WRONG!, IT IS 10" END If C=3 ClrHome Input "VALUE OF NICKEL?",A If A=5 Then ClrHome Disp "WELL DONE!" END If A ≠ 5 Then ClrHome Disp "WRONG!, IT IS 5" END If C=4 ClrHome Input "VALUE OF PENNY?",A If A=1 Then ClrHome Disp "WELL DONE!" END If A ≠ 1 Then ClrHome Disp "WRONG!, IT IS 1" END`

`ClrDraw ClrHome Outpuy(3,2,"VALUE OF MONEY" Output(4,6,"V.0.1" Output(6,3,"PRESS ENTER" Output(8,3,"U.S EDDITION" Pause If getKey=105 Then ClrHome END ClrHome Input "VALUE OF QUARTER?",A If A=25 Then ClrHome Disp "WELL DONE!" END If A ≠ 25 Then ClrHome Disp "WRONG!, IT IS 25" END`

]]>