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