1 FN=INPUT("BMP file ? "); FN:GONEXT;F=G_MAINIMG;W=640;H=480;GONEXT 2
2 (F,W,H)=GLOADIMAGE(FN)
3 GSCREEN(G_ENABLE, W+64, H); (F>=0): GCOPY(,,,,F)
4 LOOP I,8
5 C = I @ (G_BLACK,G_BLUE,G_RED,G_MAGENTA,G_GREEN,G_CYAN,G_YELLOW,G_WHITE)
6 GBOX(W  ,H/8*I  ,W+63,H/8*I+63,G_WHITE)
7 GBOX(W+1,H/8*I+1,W+62,H/8*I+62,C,G_FILL); LOOPEND
8 GFLUSH(); C=G_WHITE; R=20
9 .MAIN; K=GINKEY(); (K=="1"): R=10; (K=="2"): R=20; (K=="3"): R=30
10 L=GMOUSESTAT("LEFT"); !L:GOTO NEXT
11 (X,Y)=GMOUSEPOS(); X<W: GONEXT; C=GGETPIXEL(X,Y); GOTO NEXT
12 GCIRCLE(X,Y,R,,C,G_FILL); GFLUSH()
13 .NEXT; WAIT 1; 0@GSCRSTAT()!=G_DISABLE: GOTO MAIN
