入力されたプログラムを、ただ実行する例
凝りすぎてしまいました。プログラムを行単位で入力します。
改行したら取り消せません。~runと入力してenterを押すと実行します。
VAR PRG$, ROW$,SLOT=1
CLS
PRINT "~run で実行"
WHILE 1
LINPUT ROW$
IF ROW$=="~exit" THEN BREAK
IF ROW$=="~run" THEN
PRGEDIT SLOT
PRGDEL -1
PRGSET PRG$
EXEC SLOT
PRG$=""
CLS
CONTINUE
ENDIF
PRG$=PRG$+ROW$+CHR$(10)
WEND