5 c\7,0,6
10 d: d%7,6
12 FORI=1TO500:d) RND(1)*319,RND(1)*199,1:NEXT
15 GOSUB200:GOSUB400
20 d#13,0,0
21 d#14,0,0
30 d 3,13,1,0,0
31 d 4,14,3,0,0
40 d 3,1,0
41 d 4,1,0
50 d 3,100,100
51 d 4,100,100
70 c;
80 d 3,300*RND(0),200*RND(0),20
81 d 4,300*RND(0),200*RND(0),20
90 : GET A$
100 c@ A$=CHR$(32): d3: d4: d(: END
110 d 3,0,150,200,150,100
200 d 1,13,2
210 d "........................"
212 d "........................"
214 d "..........***..........."
216 d "........*******........."
218 d "......***********......."
220 d "......*.*.*.*.*.*......."
222 d "....***************....."
224 d "..*******************..."
226 d "***********************."
228 d "***********************."
230 d "***..*..*..*..*..*..***."
232 d "..*******************..."
234 d "..*******************..."
236 d "....***************....."
238 d ".......*********........"
240 d "..........***..........."
242 d "........................"
244 d "........................"
246 d "........................"
248 d "........................"
250 d "........................"
252 RETURN
300 d 4,0,150,200,150,100
400 d 1,14,2
410 d "........................"
412 d "........................"
414 d "........................"
416 d "........*******........."
418 d "......***********......."
420 d "......*.*.*.*.*.*......."
422 d "....***************....."
424 d "..*******************..."
426 d "***..*..*..*..*..*..***."
428 d "***..*..*..*..*..*..***."
430 d "***..*..*..*..*..*..***."
432 d "..*******************..."
434 d "..*******************..."
436 d "....***************....."
438 d ".......*********........"
440 d "........................"
442 d "........................"
444 d "........................"
446 d "........................"
448 d "........................"
450 d "........................"
452 RETURN