home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / mini-calc3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  214 b   |  8 lines
  1. 10 print:ex$="":input "input a numeric expression";ex$
  2. 20 print ex$;" =";val(ex$)
  3. 22 e=peek(781)*2:if e=0 then 10
  4. 24 ea=peek(41766+e)+peek(41767+e)*256:print "?";
  5. 26 c=peek(ea):print chr$(c and 127);:if c<128 then ea=ea+1:goto 26
  6. 28 print "  error"
  7. 30 goto 10
  8.