CLS @0 B=BUTTON():VSYNC 1 IF B AND 32 GOTO @1 GOTO @0 @1 PRINT"1"