[jackhill/mal.git] / bbc-basic / step0_repl.bas

REM Step 0 of mal in BBC BASIC

REPEAT
  PRINT "user> ";
  LINE INPUT "" line$
  PRINT FNrep(line$)
UNTIL FALSE

END

DEF FNREAD(a$)
=a$

DEF FNEVAL(a$)
=a$

DEF FNPRINT(a$)
=a$

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

REM Local Variables:
REM indent-tabs-mode: nil
REM End:
Commit	Line	Data
88b32272 BH	1	REM Step 0 of mal in BBC BASIC
88b32272 BH	2
88b32272	3	REPEAT
db4edea7 BH	4	PRINT "user> ";
	5	LINE INPUT "" line$
	6	PRINT FNrep(line$)
	7	UNTIL FALSE
88b32272 BH	8
	9	END
	10
	11	DEF FNREAD(a$)
	12	=a$
	13
	14	DEF FNEVAL(a$)
	15	=a$
	16
	17	DEF FNPRINT(a$)
	18	=a$
	19
	20	DEF FNrep(a$)
	21	=FNPRINT(FNEVAL(FNREAD(a$)))
dd3d5ad7 BH	22
	23	REM Local Variables:
	24	REM indent-tabs-mode: nil
	25	REM End: