5 ON ERROR GOTO 30
10 IF INKEY$ = CHR$(13) THEN PRINT (VAL)
13 Y$ = INKEY$:IF LEN(Y$) = 1 THEN PRINT CHR$(ASC(Y$));ASC(Y$)
15 IF INKEY$ = CHR$(13) THEN IF LEN(IOCTL$) = 1 THEN                               PRINT CHR$(ASC(INKEY$));INKEY$
20 GOTO 10
30 IF PEEK(288) = 2 THEN PRINT ERR,:POKE 288,44:PRINT ERR
40 PRINT"Syntax error in";ERL
50 PRINT"Ok"
60 PRINT
70 INPUT "Woul You like to quit";QUIT$
72 IF LEFT$(QUIT$,1) = "Y" OR LEFT$(QUIT$,1) = "y" THEN 355
75 RESUME NEXT
355 ON ERROR GOTO 0
356 END!