2 PRINT "CHANGE"
4 PRINT "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
5 PRINT:PRINT:PRINT
6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE"
8 PRINT "THE CORRECT CHANGE FOR ITEMS COSTING UP TO $100."
9 PRINT:PRINT
10 PRINT "COST OF ITEM";:INPUT A:PRINT "AMOUNT OF PAYMENT";:INPUT P
20 C=P-A:M=C:IF C#0 THEN GOTO 90
25 PRINT "CORRECT AMOUNT, THANK YOU."
30 GOTO 400
90 IF C>0 THEN GOTO 120
95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME $";A-P
100 GOTO 10
120 PRINT "YOUR CHANGE, $";C
130 D=(C/10)
140 IF D=0 THEN GOTO 155
150 PRINT D;" TEN DOLLAR BILL(S)"
155 C=M-(D*10)
160 E=(C/5)
170 IF E=0 THEN GOTO 185
180 PRINT E;" FIVE DOLLARS BILL(S)"
185 C=M-(D*10+E*5)
190 F=(C)
200 IF F=0 THEN GOTO 380
210 PRINT F;" ONE DOLLAR BILL(S)"
380 PRINT "THANK YOU, COME AGAIN."
390 PRINT:PRINT
410 END
