bbc-basic/step0_repl.bbc

   1 REM Step 0 of mal in BBC BASIC
   2
   3 REPEAT
   4   PRINT "user> ";
   5   LINE INPUT "" line$
   6   PRINT FNrep(line$)
   7 UNTIL FALSE
   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$)))
  22
  23 REM Local Variables:
  24 REM indent-tabs-mode: nil
  25 REM End: