Nu er det jo ikke kun geocaching det hele handler om, så der er også lige en lille velkommen hjem opgave.. Nu må vi se hvem der er vågen, både opgave mæssigt, og søvnmæssigt.
10 PRINT CHR$(147)
20 PRINT "*** GEOCACHING ***"
30 PRINT "*** FINAL LOCATION ***"
40 POKE 53285,1
50 POKE 53286,0
60 POKE 53269,255
70 FOR X=12800 TO 13055+64: READ Y: POKE X,Y: NEXT X
80 POKE 53287,1
90 POKE 2040,200
100 POKE 53248,40
110 POKE 53249,200
120 POKE 53288,1
130 POKE 2041,201
140 POKE 53250,64
150 POKE 53251,200
160 POKE 53289,1
170 POKE 2042,202
180 POKE 53252,88
190 POKE 53253,200
200 POKE 53290,1
210 POKE 2043,203
220 POKE 53254,112
230 POKE 53255,200
240 POKE 53291,5
250 POKE 2044,204
260 POKE 53256,160
270 POKE 53257,150
280 POKE 53276,31
290 POKE 53277,0
300 POKE 53271,0
310 FOR D=1 TO 5000: NEXT
320 T=0
330 FOR I=0 TO 3
340 A=T+I*1.57
350 X=160+50*COS(A)
360 Y=150+50*SIN(A)
370 POKE 53287+I,INT(RND(1)*16)
380 IF X>255 THEN POKE 53264,PEEK(53264) OR (2^I): X=X-256: GOTO 400
390 POKE 53264,PEEK(53264) AND (255-(2^I))
400 POKE 53248+I*2,INT(X)
410 POKE 53249+I*2,INT(Y)
420 NEXT I
430 T=T+.4: IF T>6.28 THEN T=T-6.28
440 GOTO 330
450 DATA 8,34,168,10,34,168,10,34,0,10,162,160,8,162,168,8
460 DATA 160,8,8,32,8,8,34,168,8,34,160,0,0,0,0,0
470 DATA 0,0,0,0,10,160,8,10,160,40,8,0,40,8,0,8
480 DATA 10,128,8,8,0,8,8,0,8,10,160,8,10,160,8,129
490 DATA 170,2,168,170,2,168,128,2,0,168,2,160,170,2,168,2
500 DATA 0,8,2,0,8,170,2,168,168,2,160,0,0,0,0,0
510 DATA 0,0,0,0,168,2,160,170,2,168,2,0,8,2,0,8
520 DATA 42,0,168,168,0,8,128,0,8,170,2,168,170,2,160,129
530 DATA 130,0,168,130,2,168,130,2,0,130,2,0,170,2,168,42
540 DATA 2,8,2,2,8,2,34,168,2,32,160,0,0,0,0,0
550 DATA 0,0,0,0,40,0,168,170,2,168,130,2,0,130,2,0
560 DATA 130,2,168,130,2,8,130,2,8,170,34,168,40,32,160,129
570 DATA 40,42,0,170,42,128,130,0,128,130,0,128,130,0,128,130
580 DATA 0,128,130,0,128,170,0,128,40,0,128,0,0,0,0,0
590 DATA 0,0,0,0,168,10,0,170,42,128,2,32,128,2,32,128
600 DATA 42,32,128,168,32,128,128,32,128,170,42,128,170,10,0,129
610 DATA 0,3,255,0,14,171,0,58,175,0,234,183,3,170,215,14
620 DATA 171,87,58,173,87,234,181,87,255,213,92,221,213,112,213,213
630 DATA 192,213,215,0,213,220,0,213,240,0,63,192,0,0,0,0
640 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,133