10 REM >TestRec 20 ON ERROR MODE 7:PROCoff:END 30 *FX229,0 40 *FX156,86,0 50 *FX7,7 60 *FX8,7 70 *FX2,1 80 MODE 4 90 REPEAT 100 VDU GET 110 TIME=0:REPEAT UNTIL TIME>=10 120 UNTIL FALSE 130 END 140 : 150 DEF PROCoff 160 *FX2,0 170 *FX3,0 180 ENDPROC