Publicité
2230 pic*=parte*(dr>sGOSUB 2500
2240 G O T O 1280
2250 '
2260 ' dessin des fenetres
2270 '
2280 R E A D no,wi«
2290 IF wi*="V" T H E N wi=2 EL SE w i = 1
2300 P E N 4
2310 pic*=fenet*(wi) : G Q SU B 2500
2320 G O T O 1280
2330 '
2340 ' tire les traits
2350 '
2360 R E A D xl,yl,x2,y2
2370 M Q V E x1,y 1,,0
2380 D R A W x1,y2,,0: D R A W x2,y2,,0
2390 D R A W x2,y 1, , 0:D R A W x 1,y 1, , 0
2400 G O T O 1280
2410 '
2420 ' dessine les interrupteurs
2430 '
2440 R E A D no,sw*
2450 IF sw*="L" T H E N sw=l E L SE sw=2
2460 P E N 3
2470 pic*=inter*(sw,0):G O SU B 2500
2480 G O T O 1280
2490 '
2500 ' affiche le caractère
2510 '
2520 R E A D x,y:L0CATE x, y : P R I N T pic*;
2530 no=no-l: IF no>0 T H E N 2520
2540 R E T U R N
2550 P E N 1 :L O C A T E chienx, chieny: PRINT"
2560 hontm e$=CHR*(225)
2570 IF (chienx=xp A N D chieny=yp) O R (chienx=xp+xf A N D chien
y=yp+yf) T H E N 2650
2580 IF chienx<xp T H E N chienx=chienx+l
2590 IF chienx>xp T H E N chienx=chienx-l
2600 IF chieny<yp T H E N chieny=chieny+l
2610 IF chieny>yp T H E N chieny=chieny-l
2620 L O C A T E chienx, chieny: PR IN T chien*;
2630 SO U N D 1,0,RND*40, 10,1,2,31
2640 G O T O 1510
2650 PRINT"SNAP ! 1 1 ;
Publicité
