(define change '(
(100 print tab (33) "CHANGE" )
(110 print tab (15) "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" )
(120 print )
(130 print )
(140 print )
(150 print "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE" )
(160 print "THE CORRECT CHANGE FOR ITEMS COSTING UP TO $100." )
(170 print )
(180 print )
(190 input "COST OF ITEM" a )
(200 input "AMOUNT OF PAYMENT" p )
(210 let c = (p - a) )
(220 let m = c )
(230 if (c <> 0) then 260 )
(240 print "CORRECT AMOUNT, THANK YOU." )
(250 goto 660 )
(260 if (c > 0) then 290 )
(270 print! "SORRY, YOU HAVE SHORT-CHANGED ME $" (a - p) )
(280 goto 150 )
(290 print "YOUR CHANGE, $" c )
(300 let d = int ((c / 10)) )
(310 if (d = 0) then 330 )
(320 print d " TEN DOLLAR BILL(S)" )
(330 let c = (m - (d * 10)) )
(340 let e = int ((c / 5)) )
(350 if (e = 0) then 370 )
(360 print e " FIVE DOLLARS BILL(S)" )
(370 let c = (m - ((d * 10) + (e * 5))) )
(380 let f = int (c) )
(390 if (f = 0) then 410 )
(400 print f " ONE DOLLAR BILL(S)" )
(410 let c = (m - ((d * 10) + ((e * 5) + f))) )
(420 let c = (c * 100) )
(430 let n = c )
(440 let g = int ((c / 50)) )
(450 if (g = 0) then 470 )
(460 print g " ONE HALF DOLLAR(S)" )
(470 let c = (n - (g * 50)) )
(480 let h = int ((c / 25)) )
(490 if (h = 0) then 510 )
(500 print h " QUARTER(S)" )
(510 let c = (n - ((g * 50) + (h * 25))) )
(520 let i = int ((c / 10)) )
(530 if (i = 0) then 550 )
(540 print i " DIME(S)" )
(550 c = n - (((g * 50) + (h * 25)) + (i * 10)) )
(560 let j = int ((c / 5)) )
(570 if (j = 0) then 590 )
(580 print j " NICKEL(S)" )
(590 c = (n - ((((g * 50) + (h * 25)) + (i * 10)) + (j * 5))) )
(600 k = int ((c + 0.5)) )
(610 if (k = 0) then 630 )
(620 print k " PENNY(S)" )
(630 print "THANK YOU, COME AGAIN." )
(640 print )
(650 print )
(660 goto 150 )
(670 end )))