10
20 IL=1
30 MW=13:MH=13
40 DIM MI(MW*MH)
50 DIM MG(MW*MH)
60 MX=(32-MW)\2:MY=(24-MH)\2
70 COLOR15,1,1:KEY OFF:SCREEN 1,0,0:WIDTH 32
80 BS=BASE(5)
90 BC=BASE(6)
100 BT=BASE(7)
110 MP=BS+(MY*32+MX)
120 PRINT "LOADING GRAPHICS..."
130
140 RESTORE 2950
150 FOR I = 0 TO 4
160 READ A
170 VPOKE BC+I,A
180 NEXT
190 FOR I = 0 to 279
200 READ A
210 VPOKE BT+I,A
220 NEXT
230
240 CLS
250 CX=0:CY=0:EX=0:CH=16
260 GD=0:GO=0:WI=0:MM=0:MC=0
270
280 ON IL GOTO 290,300,310,320,330
290 RESTORE 2240:GOTO 340
300 RESTORE 2380:GOTO 340
310 RESTORE 2520:GOTO 340
320 RESTORE 2660:GOTO 340
330 RESTORE 2800:GOTO 340
340
350 READ CX,CY
360 FOR I = 0 TO (MW*MH-1)
370 READ A
380 MG(I)=A
390 VPOKE MP+(I MOD MW)+(I \ MH)*32,A
400 IF A=24 THEN A=7:MC=MC+1
410 IF A=6 THEN MM=MM+1
420 IF A=34 THEN EX=I
430 MI(I)=A
440 NEXT I
450 WI=0
460 GOSUB 2080
500
510 GM=STICK(0)
520 IF INKEY$=CHR$(27) THEN 230
530 IF(GM=0) THEN GD=0:GOTO 510
540 IF(GM<>0)AND(GD=1) GOTO 510
550 GD=1
560 ON GM GOSUB 1470,1580,1500,1580,1530,1580,1560
570 GOSUB 2080
580 IF(GN=24) THEN GOSUB 1590
590
600 P=MP+(EX MOD MW)+(EX \ MH)*32
610 IF(MM=0) THEN MG(EX)=33 ELSE MG(EX)=34
620 IF(P<>(MP+(CY*32)+CX)) THEN VPOKE P,MG(EX)
630 IF(EX=((CY*MW)+CX))AND(MG(EX)=33) THEN WI=1
640 IF(WI=1) THEN 2140 ELSE 510
1460
1470 GN=MG(CX+(CY-1)*MW):CH=18
1480 IF(GN=7)OR(GN=6)OR(GN=33)OR(GN=34) THEN GOSUB 2110:CY= CY-1
1490 RETURN
1500 GN=MG(CX+1+(CY*MW)):CH=17
1510 IF(GN=7)OR(GN=6)OR(GN=33)OR(GN=34) THEN GOSUB 2110:CX= CX+1
1520 RETURN
1530 GN=MG(CX+(CY+1)*MW):CH=16
1540 IF(GN=7)OR(GN=6)OR(GN=33)OR(GN=34) THEN GOSUB 2110:CY= CY+1
1550 RETURN
1560 GN=MG(CX-1+(CY*MW)):CH=19
1570 IF(GN=7)OR(GN=6)OR(GN=33)OR(GN=34) THEN GOSUB 2110:CX= CX-1
1580 RETURN
1590
1600 GC=0
1610 ON GM GOSUB 1640,1630,1750,1630,1860,1630,1970
1620 BEEP
1630 RETURN
1640
1650 A=CX+(CY-2)*MW:B=CX+(CY-1)*MW
1660 GC=MG(A)
1670 IF(GC=8)OR(GC=24) THEN RETURN
1680 IF (GC=6) THEN MM=MM-1
1690 IF MI(B)=6 THEN MM=MM+1
1700 MG(A)=24
1710 VPOKE MP+((CY-2)*32)+CX,24
1720 MG(B)=MI(B)
1730 VPOKE MP+((CY-1)*32)+CX,MI(B)
1740 RETURN
1750
1760 A=CX+2+CY*MW:B=CX+1+CY*MW
1770 GC=MG(A)
1780 IF(GC=8)OR(GC=24) THEN RETURN
1790 IF (GC=6) THEN MM=MM-1
1800 IF MI(B)=6 THEN MM=MM+1
1810 MG(A)=24
1820 VPOKE MP+(CY*32)+CX+2,24
1830 MG(B)=MI(B)
1840 VPOKE MP+(CY*32)+CX+1,MI(B)
1850 RETURN
1860
1870 A=CX+(CY+2)*MW:B=CX+(CY+1)*MW
1880 GC=MG(A)
1890 IF(GC=8)OR(GC=24) THEN RETURN
1900 IF (GC=6) THEN MM=MM-1
1910 IF MI(B)=6 THEN MM=MM+1
1920 MG(A)=24
1930 VPOKE MP+((CY+2)*32)+CX,24
1940 MG(B)=MI(B)
1950 VPOKE MP+((CY+1)*32)+CX,MI(B)
1960 RETURN
1970
1980 A=CX-2+CY*MW:B=CX-1+CY*MW
1990 GC=MG(A)
2000 IF(GC=8)OR(GC=24) THEN RETURN
2010 IF (GC=6) THEN MM=MM-1
2020 IF MI(B)=6 THEN MM=MM+1
2030 MG(A)=24
2040 VPOKE MP+(CY*32)+CX-2,24
2050 MG(B)=MI(B)
2060 VPOKE MP+(CY*32)+CX-1,MI(B)
2070 RETURN
2080
2090 VPOKE MP+(CY*32)+CX,CH
2100 RETURN
2110
2120 VPOKE MP+(CY*32)+CX,MI(CX+(CY*MW))
2130 RETURN
2140
2150 CLS
2160 IF (IL < 5) THEN IL=IL+1 ELSE IL=1
2170 LOCATE 12,1:PRINT "GOOD JOB"
2180 IF (IL<>1) THEN LOCATE 6,12:PRINT "! GO TO NEXT LEVEL !"
2190 FOR T=1 TO 2000:NEXT
2200 IF (IL<>1) THEN 240
2210 PRINT " THANK FOR PLAYING - MICROEGGER"
2220 PRINT " A JAMQUE - THEPETSMODE GAME"
2230 END
2240 DATA 1,1
2250 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2260 DATA 8,7,7,7,8,7,8,8,8,7,7,7,8
2270 DATA 8,7,8,7,8,7,8,7,8,7,8,7,8
2280 DATA 8,7,8,7,8,7,8,7,8,7,8,7,8
2290 DATA 8,7,8,7,8,7,8,7,8,7,8,7,8
2300 DATA 8,7,8,7,8,7,8,6,8,7,8,7,8
2310 DATA 8,7,8,24,7,7,8,24,7,34,8,7,8
2320 DATA 8,7,8,6,8,7,8,7,8,7,8,7,8
2330 DATA 8,7,8,7,8,7,8,7,8,7,8,24,8
2340 DATA 8,7,8,7,8,7,8,7,8,7,8,6,8
2350 DATA 8,7,8,7,8,7,8,7,8,7,8,8,8
2360 DATA 8,7,7,7,8,7,7,7,8,7,24,6,8
2370 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2380 DATA 1,1
2390 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2400 DATA 8,7,7,6,7,7,7,6,8,8,7,7,8
2410 DATA 8,7,8,7,8,8,8,7,8,7,24,7,8
2420 DATA 8,7,8,7,8,7,8,7,24,7,8,7,8
2430 DATA 8,7,8,7,8,7,8,7,8,7,8,7,8
2440 DATA 8,7,8,7,8,7,8,7,8,7,8,7,8
2450 DATA 8,7,8,7,8,7,8,7,6,24,7,7,8
2460 DATA 8,7,8,7,8,6,24,7,8,7,8,7,8
2470 DATA 8,7,8,7,8,7,8,7,8,7,8,7,8
2480 DATA 8,7,8,24,8,7,8,7,8,34,8,7,8
2490 DATA 8,7,7,7,7,7,8,7,8,8,7,7,8
2500 DATA 8,7,7,7,7,7,7,7,7,7,7,6,8
2510 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2520 DATA 1,1
2530 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2540 DATA 8,7,7,7,7,7,7,7,7,7,7,7,8
2550 DATA 8,7,8,24,8,8,8,8,8,8,8,7,8
2560 DATA 8,7,8,7,7,7,7,7,7,7,8,7,8
2570 DATA 8,7,8,6,8,8,8,8,8,7,8,7,8
2580 DATA 8,7,8,7,8,7,7,6,8,7,8,7,8
2590 DATA 8,7,8,7,8,7,7,24,8,7,8,7,8
2600 DATA 8,7,8,7,8,34,7,7,24,6,8,7,8
2610 DATA 8,7,8,7,8,8,8,8,8,7,8,7,8
2620 DATA 8,7,8,7,7,7,7,7,7,7,8,7,8
2630 DATA 8,7,8,8,8,8,8,8,8,8,8,7,8
2640 DATA 8,7,7,7,7,7,7,7,7,7,7,7,8
2650 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2660 DATA 1,1
2670 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2680 DATA 8,7,7,7,7,7,8,7,7,7,7,7,8
2690 DATA 8,7,24,24,24,7,6,7,7,8,8,7,8
2700 DATA 8,7,7,24,7,7,8,7,7,8,8,7,8
2710 DATA 8,7,7,7,7,7,7,7,7,7,7,7,8
2720 DATA 8,7,7,7,7,7,7,7,7,7,7,7,8
2730 DATA 8,8,6,8,7,7,7,7,7,8,6,8,8
2740 DATA 8,7,7,7,7,7,7,7,7,7,7,7,8
2750 DATA 8,7,7,7,7,7,7,7,7,7,7,7,8
2760 DATA 8,7,8,8,7,7,8,7,7,34,8,7,8
2770 DATA 8,7,8,8,7,7,6,7,7,8,8,7,8
2780 DATA 8,7,7,7,7,7,8,7,7,7,7,7,8
2790 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2800 DATA 1,1
2810 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2820 DATA 8,7,7,7,7,7,7,7,7,8,7,7,8
2830 DATA 8,7,7,8,8,7,7,7,7,8,7,7,8
2840 DATA 8,7,7,7,7,7,7,7,7,8,24,6,8
2850 DATA 8,7,7,7,7,7,7,7,7,7,24,6,8
2860 DATA 8,7,7,8,8,7,7,7,7,8,24,6,8
2870 DATA 8,7,7,8,8,7,7,7,7,8,7,7,8
2880 DATA 8,7,7,7,7,7,7,7,7,8,7,7,8
2890 DATA 8,7,7,7,7,7,7,7,7,8,7,7,8
2900 DATA 8,7,7,8,8,8,8,8,8,8,8,8,8
2910 DATA 8,7,7,8,8,8,8,8,8,8,8,8,8
2920 DATA 8,7,7,7,7,7,7,7,34,8,8,8,8
2930 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8
2940
2950 DATA 225
2960 DATA 230
2970 DATA 65
2980 DATA 252
2990 DATA 113
3000
3010 DATA 0, 0, 0, 0, 0, 0, 0, 0
3020 DATA 0, 0, 0, 0, 0, 0, 0, 0
3030 DATA 0, 0, 0, 0, 0, 0, 0, 0
3040 DATA 0, 0, 0, 0, 0, 0, 0, 0
3050 DATA 0, 0, 0, 0, 0, 0, 0, 0
3060 DATA 0, 0, 0, 0, 0, 0, 0, 0
3070 DATA 0, 42, 64, 2, 64, 2, 84, 0
3080 DATA 0, 0, 0, 0, 0, 0, 0, 0
3090 DATA 255, 34, 34, 34, 255, 136, 136, 136
3100 DATA 0, 0, 0, 0, 0, 0, 0, 0
3110 DATA 0, 0, 0, 0, 0, 0, 0, 0
3120 DATA 0, 0, 0, 0, 0, 0, 0, 0
3130 DATA 0, 0, 0, 0, 0, 0, 0, 0
3140 DATA 0, 0, 0, 0, 0, 0, 0, 0
3150 DATA 0, 0, 0, 0, 0, 0, 0, 0
3160 DATA 0, 0, 0, 0, 0, 0, 0, 0
3170 DATA 60, 126, 219, 219, 255, 126, 60, 231
3180 DATA 60, 126, 251, 251, 255, 254, 108, 119
3190 DATA 60, 126, 255, 255, 255, 126, 189, 102
3200 DATA 60, 126, 223, 223, 255, 127, 54, 238
3210 DATA 0, 0, 0, 0, 0, 0, 0, 0
3220 DATA 0, 0, 0, 0, 0, 0, 0, 0
3230 DATA 0, 0, 0, 0, 0, 0, 0, 0
3240 DATA 0, 0, 0, 0, 0, 0, 0, 0
3250 DATA 255, 129, 129, 129, 129, 129, 129, 255
3260 DATA 0, 0, 0, 0, 0, 0, 0, 0
3270 DATA 0, 0, 0, 0, 0, 0, 0, 0
3280 DATA 0, 0, 0, 0, 0, 0, 0, 0
3290 DATA 0, 0, 0, 0, 0, 0, 0, 0
3300 DATA 0, 0, 0, 0, 0, 0, 0, 0
3310 DATA 0, 0, 0, 0, 0, 0, 0, 0
3320 DATA 0, 0, 0, 0, 0, 0, 0, 0
3330 DATA 0, 0, 0, 0, 0, 0, 0, 0
3340 DATA 153, 231, 195, 195, 195, 195, 255, 129
3350 DATA 60, 126, 195, 189, 129, 189, 129, 255