100 '  虫の書いた地図
  110 cls:console 0,25,0:locate 0,0,0
  120 interval int(rnd*300)+200
  130 on interval gosub 420
  140 on key (1) gosub 420
  150 on key (2) gosub 530
  160 randomize time/5
  170 interval on 
  180 key (1) on:key (2) on:BUG$=chr$(&HEC)
  190 X=int(rnd*622):Y=int(rnd*382):C=int(rnd*7)+1
  200 goto 320
  210 :
  220 X=X-1:Y=Y+1:return    ' 1
  230 Y=Y+1:return          ' 2
  240 X=X+1:Y=Y+1:return    ' 3
  250 X=X-1:return          ' 4
  260 X=X+1:return          ' 6
  270 X=X-1:Y=Y-1:return    ' 7
  280 Y=Y-1:return          ' 8
  290 X=X+1:Y=Y-1:return    ' 9
  300 return
  310 :
  320 Z$=inkey$+"^":I=instr("^1^2^3^4^6^7^8^9^",Z$)\2
  330 on I+1 gosub 300,220,230,240,250,260,270,280,290
  340 X=X+(1-rnd*(1+rnd*2))
  350 if abs(X-311)>311 then X=abs(X-622)
  360 Y=Y+(1-rnd*(1+rnd*2))
  370 if abs(Y-191)>191 then Y=abs(Y-382)
  380 symbol (X,Y),BUG$,1,1,C,,xor 
  390 if rnd*100<45 then beep 1:beep 0
  400 goto 320
  410 :
  420 interval off 
  430 interval int(rnd*300)+200
  440 on interval gosub 420
  450 interval on 
  460 I=int(rnd*2)+1
  470 on I gosub 500,510
  480 if rnd*900>300 then 460
  490 C=int(rnd*7)+1:return 
  500 X=int(rnd*622):return 
  510 Y=int(rnd*382):return 
  520 :
  530 for I=1 to 2
  540 key (I) off 
  550 next 
  560 interval off 
  570 end