17 lines
364 B
Plaintext
17 lines
364 B
Plaintext
exec$ = "PRINT ""Hello world!"""
|
|
bbc$ = FNtokenise(exec$)
|
|
|
|
tmpfile$ = @tmp$+"temp.bbc"
|
|
tmpfile% = OPENOUT(tmpfile$)
|
|
BPUT#tmpfile%, bbc$+CHR$0
|
|
CLOSE #tmpfile%
|
|
|
|
CALL tmpfile$
|
|
END
|
|
|
|
DEF FNtokenise(A$)
|
|
LOCAL A%
|
|
A% = EVAL("0:"+A$)
|
|
A$ = $(!332+2)
|
|
= CHR$(LENA$+4) + CHR$0 + CHR$0 + A$ + CHR$13
|