[jackhill/mal.git] / bbc-basic / step1_read_print.bbc

REM Step 1 of mal in BBC BASIC

LIBRARY "types"
LIBRARY "reader"
LIBRARY "printer"

PROCtypes_init

REPEAT
  REM  Catch all errors apart from "Escape".
  ON ERROR LOCAL PRINT REPORT$:IF ERR = 17 THEN END
  PRINT "user> ";
  LINE INPUT "" line$
  PRINT FNrep(line$)
UNTIL FALSE

END

DEF FNREAD(a$)
=FNread_str(a$)

DEF FNEVAL(a%)
=a%

DEF FNPRINT(a%)
=FNpr_str(a%, TRUE)

DEF FNrep(a$)
=FNPRINT(FNEVAL(FNREAD(a$)))

REM Local Variables:
REM indent-tabs-mode: nil
REM End:
Commit	Line	Data
ca23e632 BH	1	REM Step 1 of mal in BBC BASIC
ca23e632 BH	2
ca23e632 BH	3	LIBRARY "types"
	4	LIBRARY "reader"
	5	LIBRARY "printer"
	6
ca23e632 BH	7	PROCtypes_init
	8
	9	REPEAT
4a0e7d09 BH	10	REM Catch all errors apart from "Escape".
4a0e7d09 BH	11	ON ERROR LOCAL PRINT REPORT$:IF ERR = 17 THEN END
db4edea7 BH	12	PRINT "user> ";
	13	LINE INPUT "" line$
	14	PRINT FNrep(line$)
	15	UNTIL FALSE
ca23e632 BH	16
	17	END
	18
	19	DEF FNREAD(a$)
	20	=FNread_str(a$)
	21
	22	DEF FNEVAL(a%)
	23	=a%
	24
	25	DEF FNPRINT(a%)
f17ed797	26	=FNpr_str(a%, TRUE)
ca23e632 BH	27
	28	DEF FNrep(a$)
	29	=FNPRINT(FNEVAL(FNREAD(a$)))
dd3d5ad7 BH	30
	31	REM Local Variables:
	32	REM indent-tabs-mode: nil
	33	REM End: