.ENABLE SUBSTITUTION
PIP CONSOLE.LOG;-1,CONSOLE.LOG;0/LI
PIP CONSOLE.SYS;1=CONSOLE.LOG;-1
.1:
.ASKS NUM ENTER NUMBER
PIP CONSOLE.SYS;2=CONSOLE.SYS;1,CONSOLE.LOG;'NUM'
PIP CONSOLE.SYS;1/DE
PIP CONSOLE.SYS;1=CONSOLE.SYS;2/RE
.GOTO 1