SUB MAIN DIM W, H AS INTEGER DIM SIZE AS INTEGER DIM ANGL AS INTEGER DIM PCTS AS STRING DIM BTNW AS INTEGER DIM BTNH AS INTEGER DIM X, Y AS INTEGER DIM TXY, TX, TY AS INTEGER DIM WAIT AS BOOLEAN GRAPHICS WAIT = TRUE W = SCREENWIDTH() H = SCREENHEIGHT() SIZE = 300 FOR ANGL=0 TO 360 SETCOLOR 40,41,70 CLS SETCOLOR 255,255,255 DRAWARC W/2-SIZE/2, H/2-SIZE/2, SIZE, SIZE, -90, ANGL PCTS = STR$(INTEGER(DOUBLE(ANGL)/3.6))+"%" SETFONT "MONOSPACE", 35 DRAWSTRING PCTS, W/2-STRINGWIDTH(PCTS)/2, H/2-STRINGHEIGHT(PCTS)/2 REPAINT SLEEP 33 END FOR BTNW = 100 BTNH = 50 X = W/2-BTNW/2 Y = H/2+SIZE/2+50 SETCOLOR 255,255,255 FILLROUNDRECT X, Y, BTNW, BTNH, 5, 5 SETCOLOR 40, 41, 70 SETFONT "SANS-SERIF", 30 DRAWSTRING "OK", X+BTNW/2-20, Y+BTNH/2+10 REPAINT WHILE WAIT TXY = TOUCHDOWN() TX = (TXY / 65536) & 0x0000ffff TY = TXY & 0x0000ffff IF TX > X AND TX < (X+BTNW) AND TY > Y AND TY < (Y+BTNH) THEN WAIT = FALSE END IF END WHILE END SUB