Here is a version for people with DBC.
sync on : sync rate 0 : hide mouse : disable escapekey
dat:
data 449,381,449,433,449,433,396,433,396,433,396,402,396,402,292,402,292,402,292,460
data 292,460,239,460,239,460,239,374,239,374,356,374,356,374,356,342,356,342,191,342
data 191,342,191,256,191,256,260,256,260,256,260,281,260,281,206,281,206,281,206,326,206,326,301,326,301,326,301,273,301,273,342,273
data 342,273,342,217,342,217,268,217,268,217
data 268,172,268,172,316,172,316,172,316,147,316,147,239
data 147,239,147,239,139,239,139,326,139,326,139,326,195,326,195,284,195,284,195,284,207
data 284,207,358,207,358,207,358,280,358,280,315,280,315,280,315,338,315,338,362,338,362
data 338,362,402,375,402,375,327,375,327,331,327,331
data 327,331,294,331,294,373,294,373,294,373,196,373,196,341,196,341,196,341,130,341,130,225,130,225,130,225,158,225,158,300,158,300
data 158,225,158
data 225,158,225,170,225,170,248,170,225,170,192,170,192,170,192,116,192,116,354,116,354,116,354,187,354,187,380,187,380,187,380,302
data 380,302,342,302,342,313,342,303,342,301,342,319,342,319,382,319,382,319,382,396,382,396,409
data 396,409,396,409,426,409,426,440,426,440,426,440,380,440,380,449,380
data 424,380,424,414,424,379,398,379,398,379,398,179,398,179,398,194,398,181,398,168,373,168,373,168,398,168,398,168,377,168,398,168
data 377,168,377
data 95,377,95,175,95,175,95,175,186,175,186,245,186,245,186,245,229,245,229,324,229,324,229,324,260,324,260
data 286,260,286,260,286,306
data 286,306,217
data 306,217,306,217,293,217,293,278,293,278,293,278,246,278,246,175,246,175,246,175,350,175,350,345,350,345,350,345,363,345
data 363,224,363,224,363
data 224,471,224,471,304,471,304,471,304,415,304,415,384,415,384,415,384,448,384,448,467,448,467,448,467,380,467
data 380,482,380,482,380,482,321,482
data 321,465,321,398,321,423,321,423,321,423,269,423,269,458,269,458,269,458,241,458,241,406,241,406,241,406,152
data 406,152,381,152,381,152,381,79,381
data 79,280,79,280,79,280,64,280,64,208,64,208,64,208,81,208,81,158,81,158,81,158,194,158,194,235,194,235,194
data 235,229,235,229,252,229,220,246,220,211
data 220,211,144,211,144,211,144,64,144,64,196,64,196,64,196,52,196,52,298
data 52,298,52,298,71,298,71,402,71,402,71,402,138,402,138,424,138,424,138,424,226,424,226,476,226,476,226,476
data 280,476,280,435,280,435,280,435,320,435,320,443,320,443,320,443,286,443,286
data 443,281,443,281,443,280,466,321,466,301,466,301,496,301,496,301,496
data 393,496,393,479,393,479,393,479,453,479,453,377,453,377,453,377,426,377,426
data 311,426,311,426,311,469,311,469,495,469,495,469,495,406,495,406,508
data 406,508,406,508,280,508,280,491,280,491,280,491,216,491,216,441,216,441,216
data 441,125,441,125,419,125,419,125,419,53,419,53,314,53,314,53,314
data 38,314,38,178,38,178,38,178,54,178,54,130,54,130,54,130,222,130
data 222,205,222,205,222,205,233,205,233,156,233,156,233,156,361,156,361,200,361,200,361,200,450
data 200,450,151,450,151,450,151,474,151,474,224,474,224,474,224,456
gosub tut : x = 440 : y = 350 : do : cls
gosub tut : if rgbr(point(x-1,y))=0 and leftkey()=1 then dec x
if rgbr(point(x+1,y))=0 and rightkey()=1 then inc x
if rgbr(point(x,y-1))=0 and upkey()=1 then dec y
if rgbr(point(x,y+1))=0 and downkey()=1 then inc y
ink rgb(255,255,255),0 : if sqrt((369-x)^2 + (391-y)^2) < 4 : print "You win :)" :sync :
wait 5000 : end : endif : dot x,y
circle 369,391,4 : sync : loop
tut:
restore dat : ink rgb(255,0,0),0 : for t=1 to 684 step 4 : read x1 : read y1
read x2 : read y2 : line x1,y1,x2,y2 : next t : return
Whatever I did it wasn't me!
