5 REM YOU MUST HAVE LOADED YOUR OWN ES-DATA BEFORE USING THIS
10 PRINT"[147]":GOTO 80
20 GET D$:IF D$="" THEN 20
30 IF D$="[145]" THEN M=1:GOTO 80
40 IF D$="" THEN M=2:GOTO 80
50 IF D$="[157]" THEN M=3:GOTO 80
60 IF D$="" THEN M=4:GOTO 80
70 GOTO 20
80 POKE 49623,M:SYS 49168:GOTO 20