1 REM ONERROR! DEMO
2 REM by Mr Miles Kinloch
100 REM Code located at 40000
150 POKE 40079,244: POKE 40080,1: REM makes 500 the GOTO line
200 RANDOMIZE USR 40000
300 INPUT x: REM try typing in false variables etc
400 CLS: PRINT "Valid input": STOP
500 CLS: PRINT "Errpr"'"No.";PEEK 40103: GO TO 300
9990 CLEAR 39999: LOAD ""CODE 40000: RUN