10 REM PLUMBER
20 REM (C)2009 AGsoftware
30 REM ANDREA GASPARRINI SOFT
40 COLOR,0,0:SCREEN 1,2,0:COLOR 15,0,0:WIDTH32:KEYOFF:DEFINTA-Z
50 HI=185:DEFUSR1=&H41:DEFUSR2=&H44
60 REM DEFINIZIONE CARATTERI
70 RESTORE 90:FOR A=0 TO 7:READ B:VPOKE 1024+A,B:NEXT A
90 DATA 255,66,36,24,24,36,66,255
110 RESTORE120:FOR A=124*8 TO 125*8-1:READ B:VPOKEA,B:NEXT A
120 DATA 0,120,248,252,250,254,252,120
140 RESTORE150:FOR A=135*8 TO 136*8-1:READ B:VPOKEA,B:NEXT A
150 DATA 251,251,251,0,127,127,127,0
160 RESTORE 180:FOR A=0 TO 15:READ B:VPOKE 1088+A,B:NEXT A
180 DATA 192,192,192,255,255,192,192,192
190 DATA 3,3,3,255,255,3,3,3
200 RESTORE210:FOR A=144*8 TO 145*8-1:READ B:VPOKEA,B:NEXT A
210 DATA 170,85,170,85,170,85,170,85
220 RESTORE230:FOR A=152*8 TO 156*8-1:READ B:VPOKEA,B:NEXT A
230 DATA 112,248,251,255,123,59,126,127,127,62,135,95,71,63,14,30
240 DATA 28,62,190,254,188,184,252,252,252,248,192,240,192,192,224,240
260 RESTORE270:FOR A=200*8 TO 233*8-1:READ B:VPOKEA,B:NEXT A
270 DATA 0,0,0,128,128,255,191,255,255,191,255,128,128,0,0,0
280 DATA 0,0,0,1,1,255,253,255,255,253,255,1,1,0,0,0
290 DATA 31,5,7,7,7,7,7,7,7,7,7,7,7,7,5,31
300 DATA 248,160,224,224,224,224,224,224,224,224,224,224,224,224,160,248
310 DATA 0,0,0,128,128,254,191,255,255,191,255,135,135,7,5,31
320 DATA 0,0,0,0,0,0,128,192,192,224,224,224,224,224,160,248
330 DATA 31,5,7,135,135,255,191,255,255,191,254,128,128,0,0,0
340 DATA 248,160,224,224,224,224,224,192,192,128,0,0,0,0,0,0
350 DATA 0,0,0,0,0,0,1,3,3,7,7,7,7,7,5,31
360 DATA 0,0,0,1,1,127,253,255,255,253,255,225,225,224,160,248
370 DATA 31,5,7,7,7,7,7,3,3,1,0,0,0,0,0,0
380 DATA 248,160,224,225,225,255,253,255,255,253,127,1,1,0,0,0
390 DATA 31,5,7,7,7,7,7,15,31,55,231,199,7,7,5,31
400 DATA 31,5,7,7,199,231,55,31,15,7,7,7,7,7,5,31
410 DATA 248,160,224,224,224,224,224,240,248,236,231,227,224,224,160,248
420 DATA 248,160,224,224,227,231,236,248,240,224,224,224,224,224,160,248
430 RESTORE440:FOR A=233*8 TO 237*8-1:READ B:VPOKEA,B:NEXT A
440 DATA 31,48,64,64,96,127,0,127,248,12,2,2,6,254,0,254    
450 DATA 98,66,67,67,64,64,96,127,70,66,194,194,2,2,6,254 
460 RESTORE470:FOR A=240*8 TO 244*8-1:READ B:VPOKEA,B:NEXT A
470 DATA 15,8,4,2,7,26,98,255,248,4,2,1,255,3,7,249
480 DATA 136,133,135,128,237,237,128,255,145,17,21,21,177,177,18,252
490 RESTORE500:FOR A=248*8 TO 252*8-1:READ B:VPOKEA,B:NEXT A
500 DATA 255,128,191,191,191,166,173,173,255,3,251,249,249,123,187,187   
510 DATA 174,191,191,191,128,255,224,192,123,249,249,251,3,255,7,3
520 GOSUB2840
540 VPOKE8207,16*10:VPOKE 8208,16*10+6:VPOKE8209,7*16:VPOKE8210,16*7+5:VPOKE8211,16*14
550 VPOKE8213,12*16:VPOKE8214,5*16:VPOKE8215,3*16:VPOKE8216,7*16:VPOKE8217,12*16:VPOKE8218,12*16:VPOKE8219,12*16:VPOKE8220,16*12:VPOKE8221,16*10:VPOKE8222,16*5:VPOKE8223,16*14
560 FORA=8200TO8203:VPOKEA,4*16:NEXT
570 REM DEFINIZIONE SPRITE 16x16
580 RESTORE610:FOR S=1 TO 19:A$="":FOR F=1 TO 32:READ A:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
590 RESTORE900:FOR S=20TO21:A$="":FOR F=1 TO 32:READ A:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
610 DATA 0,0,0,0,1,4,7,1,0,16,48,0,0,0,0,0,0,0,0,192,160,224,192,128,0,56,48,0,0,0,0,0
620 DATA 0,0,12,15,14,11,8,6,0,0,12,63,63,60,0,0,0,0,0,0,0,0,0,0,64,0,0,240,240,224,0,0
630 DATA 0,7,3,0,0,0,0,0,15,15,3,192,192,192,129,1,0,128,192,0,0,0,0,0,128,192,192,0,0,0,192,224
650 DATA 0,0,0,0,2,3,0,0,32,112,0,0,0,0,0,0,0,0,96,208,112,224,192,0,3,2,0,0,0,0,0,0
660 DATA 0,6,7,7,5,4,3,1,0,1,7,15,31,6,0,0,0,0,128,0,128,0,0,32,144,104,248,248,248,56,0,0
670 DATA 3,1,0,0,0,0,0,30,31,6,0,0,0,56,56,28,192,224,0,0,0,0,0,192,108,148,2,6,6,6,0,0
690 DATA 0,0,0,3,5,7,3,1,0,28,12,0,0,0,0,0,0,0,0,0,128,32,224,128,0,8,12,0,0,0,0,0
700 DATA 0,0,0,0,0,0,0,0,2,0,0,15,15,7,0,0,0,0,48,240,112,208,16,96,0,0,48,252,252,60,0,0
710 DATA 0,1,3,0,0,0,0,0,1,3,3,0,0,0,3,7,0,224,192,0,0,0,0,0,240,240,192,3,3,3,129,128
730 DATA 0,0,6,11,14,7,3,0,192,64,0,0,0,0,0,0,0,0,0,0,64,192,0,0,4,14,0,0,0,0,0,0
740 DATA 0,0,1,0,1,0,0,4,9,22,31,31,31,28,0,0,0,96,224,224,160,32,192,128,0,128,224,240,248,96,0,0
750 DATA 3,7,0,0,0,0,0,3,54,41,64,96,96,96,0,0,192,128,0,0,0,0,0,120,248,96,0,0,0,28,28,56
770 DATA 0,0,0,0,0,7,0,0,96,96,0,0,0,0,0,0,24,24,0,0,0,224,0,0,0,0,0,0,0,0,0,0
780 DATA 0,7,3,0,0,0,4,4,30,31,31,31,15,8,0,0,0,224,192,0,0,0,32,32,120,252,252,248,0,128,0,0
790 DATA 0,0,4,15,15,56,123,123,1,0,0,0,0,7,15,7,0,0,56,252,252,28,216,216,128,0,0,0,120,0,192,192
810 DATA 24,24,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,224,0,0,6,6,0,0,0,0,0,0
820 DATA 0,7,3,0,0,0,4,4,30,63,63,31,0,1,0,0,0,224,192,0,0,0,32,32,120,248,248,248,240,16,0,0
830 DATA 0,0,28,63,63,56,27,27,1,0,0,0,30,0,3,3,0,0,32,240,240,28,222,222,128,0,0,0,0,224,240,224
850 DATA 0,0,0,0,0,0,0,0,7,3,3,3,1,1,0,0,0,0,0,0,0,0,0,192,128,240,252,254,255,255,254,124
860 DATA 0,0,0,0,0,0,0,3,1,15,63,127,255,255,127,62,0,0,0,0,0,0,0,0,224,192,192,192,128,128,0,0
880 DATA 27,54,54,118,127,127,127,63,0,0,0,0,0,0,0,0,104,220,220,222,254,254,254,252,0,0,0,0,0,0,0,0,0
900 DATA 56,68,78,63,119,243,251,255,126,61,3,31,55,7,14,30,56,68,228,248,220,158,190,254,252,120,128,240,216,192,224,0
910 DATA 56,68,78,63,119,243,251,255,126,61,3,31,55,7,14,0,56,68,228,248,220,158,190,254,252,120,128,240,216,192,224,240
930 CLS:A=USR1(0)
940 FOR A=1 TO 5:PUT SPRITE A,,,0:NEXTA
950 PRINT" SCORE        HI SCORE"
960 PRINTSC*100;SPC(10);HI*100
970 LOCATE3,3:PRINTCHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)
980 LOCATE3,4:PRINTCHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)
990 LOCATE0,5
1000 PRINT " ";
1010 PRINT " ";
1020 PRINT "·               ";
1030 PRINT "χ              ";
1040 PRINT "·              ";
1050 PRINT "χ                 ";
1060 PRINT "·                 ";
1070 PRINT "χ              ";
1080 PRINT " ";
1090 PRINT " ";
1100 LOCATE3,15:PRINTCHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)+SPACE$(4)+CHR$(152)+CHR$(154)
1110 LOCATE3,16:PRINTCHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)+SPACE$(4)+CHR$(153)+CHR$(155)
1120 LOCATE 1,18:PRINT"1UP BONUS EVERY FOR 40000 PTS"
1130 LOCATE 4,20:PRINT" @ 2009 AGSOFTWARE"
1140 LOCATE 2,22:PRINT"PUSH SPACE OR FIRE TO START":A=USR2(0)
1150 TR=TR+1:IFTR>400THENTR=0:GOTO2630
1160 IF STRIG(0)=-1 THEN1200
1170 IF STRIG(1)=-1 THEN1200
1180 GOTO 1150
1200 CLS
1210 LI=2:SC=0:BO=400:LV=1:TI=5000
1220 L1=0:L2=0:L3=0:L4=0
1230 CLS:FORA=1TO4:PUTSPRITEA,,,0:NEXT:LOCATE 11,10:PRINT"LEVEL";LV
1240 LOCATE 12,12:PRINT"READY"
1250 FORA=0TO2000:NEXT
1260 A=USR1(0):CLS:LOCATE 1,0:PRINT"SCORE":LOCATE12,0:PRINT"HI-SCORE":LOCATE26,0:PRINT"TIME"
1270 LOCATE0,1:PRINTSC*100:LOCATE11,1:PRINTHI*100:LOCATE25,1:PRINTTI
1280 LF=LI:IFLF>11THENLF=11
1290 FOR A=1 TO LF
1300 LOCATE21,0:PRINTSTRING$(LF,124);
1310 NEXT:LOCATE0,2:PRINT"WATER";:PRINTSTRING$(27,144);
1330 GOSUB2360:A=USR2(0)
1340 X%=104:Y%=167:SP%=1
1350 X1%=100:Y1%=127:R1%=1
1360 X2%=100:Y2%=87:R2%=2
1370 WA=32
1380 ON STRIG GOSUB 1900,1900,1900
1390 STRIG(0)ON:STRIG(1)ON
1400 ONSTICK(0)ORSTICK(1)GOSUB1620,1620,1630,1630,1640,1640,1650,1650
1410 IFSTICK(0)ORSTICK(1)>0THENZ%=Z%+3ANDZ%<1
1420 K1=6144+INT(INT((Y%+8)/8)*32+((X%)/8))
1430 IFVPEEK(K1)=233THENVPOKEK1,32:VPOKEK1+1,32:VPOKEK1+32,32:VPOKEK1+33,32:SC=SC+2:LOCATE0,1:PRINTSC*100:GOSUB3270
1440 IFVPEEK(K1)=240THENVPOKEK1,32:VPOKEK1+1,32:VPOKEK1+32,32:VPOKEK1+33,32:SC=SC+4:LOCATE0,1:PRINTSC*100:GOSUB3270
1450 IFVPEEK(K1)=248THENVPOKEK1,32:VPOKEK1+1,32:VPOKEK1+32,32:VPOKEK1+33,32:SC=SC+8:LOCATE0,1:PRINTSC*100:GOSUB3270
1460 PLAY"V15T255L64N"+STR$(INT(35*RND(9)+1))
1470 IFL1=1ANDL2=1ANDL3=1ANDL4=1THENWT=WT+1:IFWT>5THENWT=0:LOCATEWA,2:PRINTCHR$(32):WA=WA-1:IFWA=4THEN2330
1480 TT=TT+1:IFTT>5THENTT=0:TI=TI-10:LOCATE25,1:PRINTTI:IFTI=0THENGOSUB2160
1490 PUTSPRITE1,(X%,Y%),10,SP%+Z%:PUTSPRITE2,(X%,Y%),6,SP%+1+Z%:PUTSPRITE3,(X%,Y%),4,SP%+2+Z%
1500 IFX%>240THENX%=X%-8
1510 IFX%<8THENX%=X%+8
1520 IFSC=>BO THEN BO=BO+400:GOSUB2230
1530 IFSC=>HITHENHI=SC:LOCATE11,1:PRINTHI*100
1540 GOSUB1690
1550 GOSUB1740
1560 TM=TM+1:IFTM>80THENTM=0:GOSUB1790ELSEGOSUB1800
1570 IT=IT+1:IFIT>250THENIT=0:GOSUB1960
1580 IFY%<Y1%+8ANDY%>Y1%-8ANDX%<X1%+8ANDX%>X1%-8THENGOSUB2160
1590 IFY%<Y2%+8ANDY%>Y2%-8ANDX%<X2%+8ANDX%>X2%-8THENGOSUB2160
1600 GOTO 1390
1620 GOSUB1660:IFUP%=136THENPS%=1:SP%=13:Y%=Y%-8:RETURNELSEPS%=0:RETURN
1630 IFPS%=0THENSP%=1:X%=X%+8:RETURNELSERETURN
1640 GOSUB1670:IFDW%=136THENPS%=1:SP%=13:Y%=Y%+8:RETURNELSEPS%=0:RETURN
1650 IFPS%=0THENSP%=7:X%=X%-8:RETURNELSERETURN
1660 UP%=VPEEK(6144+INT(INT((Y%+1)/8)*32+((X%)/8))):RETURN
1670 DW%=VPEEK(6144+INT(INT((Y%+17)/8)*32+((X%)/8))):RETURN
1690 PUTSPRITE4,(X1%,Y1%),7,20+ZA%:ZA%=ZA%+1ANDZA%<1
1700 IFR1%=1THENX1%=X1%+4:IFX1%>250THENR1%=2
1710 IFR1%=2THENX1%=X1%-4:IFX1%<8THENR1%=1
1720 RETURN
1740 PUTSPRITE5,(X2%,Y2%),6,20+ZB%:ZB%=ZB%+1ANDZB%<1
1750 IFR2%=1THENX2%=X2%+4:IFX2%>250THENR2%=2
1760 IFR2%=2THENX2%=X2%-4:IFX2%<8THENR2%=1
1770 RETURN
1790 IFMM=0THENSM=INT(RND(-TIME)*4+1)
1800 IFSM=1THENMM=1:L1=0:GOSUB1850
1810 IFSM=2THENMM=1:L2=0:GOSUB1860
1820 IFSM=3THENMM=1:L3=0:GOSUB1870
1830 IFSM=4THENMM=1:L4=0:GOSUB1880
1840 RETURN
1850 M1=M1+1:LOCATE28,6:PRINTCHR$(152)+CHR$(154):LOCATE28,7:PRINTCHR$(153)+CHR$(155):LOCATE30,6:PRINTCHR$(224):LOCATE30,7:PRINTCHR$(225):IFM1>10THENM1=0:MM=0:SM=0:LOCATE28,6:PRINTCHR$(32)+CHR$(32):LOCATE28,7:PRINTCHR$(32)+CHR$(32):RETURNELSERETURN
1860 M1=M1+1:LOCATE2,11:PRINTCHR$(152)+CHR$(154):LOCATE2,12:PRINTCHR$(153)+CHR$(155):LOCATE1,11:PRINTCHR$(228):LOCATE1,12:PRINTCHR$(229):IFM1>10THENM1=0:MM=0:SM=0:LOCATE2,11:PRINTCHR$(32)+CHR$(32):LOCATE2,12:PRINTCHR$(32)+CHR$(32):RETURNELSERETURN
1870 M1=M1+1:LOCATE28,16:PRINTCHR$(152)+CHR$(154):LOCATE28,17:PRINTCHR$(153)+CHR$(155):LOCATE30,16:PRINTCHR$(224):LOCATE30,17:PRINTCHR$(225):IFM1>10THENM1=0:MM=0:SM=0:LOCATE28,16:PRINTCHR$(32)+CHR$(32):LOCATE28,17:PRINTCHR$(32)+CHR$(32):RETURNELSERETURN
1880 M1=M1+1:LOCATE2,21:PRINTCHR$(152)+CHR$(154):LOCATE2,22:PRINTCHR$(153)+CHR$(155):LOCATE1,21:PRINTCHR$(228):LOCATE1,22:PRINTCHR$(229):IFM1>10THENM1=0:MM=0:SM=0:LOCATE2,21:PRINTCHR$(32)+CHR$(32):LOCATE2,22:PRINTCHR$(32)+CHR$(32):RETURNELSERETURN
1900 IFX=224ANDY=47THENL1=1:LOCATE30,6:PRINTCHR$(226):LOCATE30,7:PRINTCHR$(227):RETURN
1910 IFX=16ANDY=87THENL2=1:LOCATE1,11:PRINTCHR$(230):LOCATE1,12:PRINTCHR$(231)
1920 IFX=224ANDY=127THENL3=1:LOCATE30,16:PRINTCHR$(226):LOCATE30,17:PRINTCHR$(227)
1930 IFX=16ANDY=167THENL4=1:LOCATE1,21:PRINTCHR$(230):LOCATE1,22:PRINTCHR$(231)
1940 RETURN
1960 BI=INT(RND(-TIME)*3+1)
1970 ONBIGOTO1980,2030,2090
1980 SB=INT(RND(-TIME)*4+1)
1990 IFSB=1THENLOCATE 3,6:PRINTCHR$(233)+CHR$(234):LOCATE3,7:PRINTCHR$(235)+CHR$(236):RETURN
2000 IFSB=2THENLOCATE 29,11:PRINTCHR$(233)+CHR$(234):LOCATE29,12:PRINTCHR$(235)+CHR$(236):RETURN
2010 IFSB=3THENLOCATE 1,16:PRINTCHR$(233)+CHR$(234):LOCATE1,17:PRINTCHR$(235)+CHR$(236):RETURN
2020 IFSB=4THENLOCATE 29,21:PRINTCHR$(233)+CHR$(234):LOCATE29,22:PRINTCHR$(235)+CHR$(236):RETURN
2030 SB=INT(RND(-TIME)*4+1)
2040 ONSBGOTO2050,2060,2070,2080
2050 LOCATE 3,6:PRINTCHR$(240)+CHR$(241):LOCATE3,7:PRINTCHR$(242)+CHR$(243):RETURN
2060 LOCATE 29,11:PRINTCHR$(240)+CHR$(241):LOCATE29,12:PRINTCHR$(242)+CHR$(243):RETURN
2070 LOCATE 1,16:PRINTCHR$(240)+CHR$(241):LOCATE1,17:PRINTCHR$(242)+CHR$(243):RETURN
2080 LOCATE 29,21:PRINTCHR$(240)+CHR$(241):LOCATE29,22:PRINTCHR$(242)+CHR$(243):RETURN
2090 ONSBGOTO2100,2110,2120,2130
2100 LOCATE 3,6:PRINTCHR$(248)+CHR$(249):LOCATE3,7:PRINTCHR$(250)+CHR$(251):RETURN
2110 LOCATE 29,11:PRINTCHR$(248)+CHR$(249):LOCATE29,12:PRINTCHR$(250)+CHR$(251):RETURN
2120 LOCATE 1,16:PRINTCHR$(248)+CHR$(249):LOCATE1,17:PRINTCHR$(250)+CHR$(251):RETURN
2130 LOCATE 29,21:PRINTCHR$(248)+CHR$(249):LOCATE29,22:PRINTCHR$(250)+CHR$(251):RETURN
2140 RETURN
2160 GOSUB3230
2170 LI=LI-1:IF LI<0 THEN 2290
2180 LF=LI:IFLI>6THENLF=6
2190 LOCATE 21+LF,0:PRINTCHR$(32)
2200 SP%=1:X%=104:Y%=167:TI=5000
2210 RETURN
2230 GOSUB3290
2240 LI=LI+1
2250 LF=LI:IFLF>6THENLF=6
2260 LOCATE 20+LF,0:PRINTCHR$(124)
2270 RETURN
2290 LOCATE 10,10:PRINT" GAME OVER "
2300 FORI=1 TO 3000:NEXTI
2310 GOTO 930
2330 LOCATE10,10:PRINT"STAGE CLEAR!"
2340 LV=LV+1:TI=5000:GOSUB3300:GOSUB3180:FORI=0TO1500:NEXTI:GOTO1220
2350 REM LEVEL 1
2360 PRINT "";
2370 PRINT "";
2380 PRINT "";
2390 PRINT "                              ";
2400 PRINT "                            ";
2410 PRINT "";
2420 PRINT "Ȉ";
2430 PRINT "Ɉ";
2440 PRINT "                            ";
2450 PRINT "                          ";
2460 PRINT "";
2470 PRINT "Ȉ";
2480 PRINT "Ɉ";
2490 PRINT "                            ";
2500 PRINT "                          ";
2510 PRINT "";
2520 PRINT "Ȉ";
2530 PRINT "Ɉ";
2540 PRINT "                            ";
2550 PRINT "                            ";
2560 PRINT "";:VPOKE6911,128
2570 LOCATE30,6:PRINTCHR$(224):LOCATE30,7:PRINTCHR$(225)
2580 LOCATE1,11:PRINTCHR$(228):LOCATE1,12:PRINTCHR$(229)
2590 LOCATE30,16:PRINTCHR$(224):LOCATE30,17:PRINTCHR$(225)
2600 LOCATE1,21:PRINTCHR$(228):LOCATE1,22:PRINTCHR$(229)
2610 RETURN
2630 CLS:A=USR1(0):LOCATE1,0:PRINT " ";
2640 PRINT " ";
2650 PRINT "·               ";
2660 PRINT "χ              ";
2670 PRINT "·              ";
2680 PRINT "χ                 ";
2690 PRINT "·                 ";
2700 PRINT "χ              ";
2710 PRINT " ";
2720 PRINT " ";
2730 X%=30:Y%=90:SP%=1:Z%=3:PUTSPRITE1,(X%,Y%),10,SP%+Z%:PUTSPRITE2,(X%,Y%),6,SP%+1+Z%:PUTSPRITE3,(X%,Y%),4,SP%+2+Z%
2740 X1%=30:Y1%=120:PUTSPRITE4,(X1%,Y1%),7,20+ZA%
2750 LOCATE4,19:PRINTCHR$(152)+CHR$(154):LOCATE4,20:PRINTCHR$(153)+CHR$(155)
2760 LOCATE6,12:PRINT"PLUMBER":LOCATE6,16:PRINT"CAT":LOCATE6,20:PRINT"MOUSE"
2770 LOCATE15,11:PRINTCHR$(233)+CHR$(234):LOCATE15,12:PRINTCHR$(235)+CHR$(236):LOCATE15,15:PRINTCHR$(240)+CHR$(241):LOCATE15,16:PRINTCHR$(242)+CHR$(243):LOCATE15,19:PRINTCHR$(248)+CHR$(249):LOCATE15,20:PRINTCHR$(250)+CHR$(251)
2780 LOCATE18,12:PRINT"TRUNK 200 PTS":LOCATE18,16:PRINT"CASKET 400 PTS":LOCATE18,20:PRINT"SAFE 800 PTS":A=USR2(0)
2790 TR=TR+1:IFTR>500THENTR=0:GOTO930
2800 IF STRIG(0)=-1 THEN930
2810 IF STRIG(1)=-1 THEN930
2820 GOTO 2790
2840 RESTORE2860:FOR I=256TO767:READA$
2850 VPOKEI,VAL("&H"+A$):NEXTI:RETURN
2860 DATA 00,00,00,00,00,00,00,00,18,3C,3C,3C,18,00,18,00
2870 DATA 6C,6C,48,00,00,00,00,00,6C,FE,6C,6C,6C,FE,6C,00
2880 DATA 18,3E,58,3C,1A,7C,18,00,00,C6,CC,18,30,66,C6,00
2890 DATA 70,C8,C8,70,9A,8C,76,00,18,18,10,00,00,00,00,00
2900 DATA 0C,18,30,30,30,18,0C,00,30,18,0C,0C,0C,18,30,00
2910 DATA 00,18,5A,3C,3C,5A,18,00,00,18,18,7E,18,18,00,00
2920 DATA 00,00,00,00,18,18,08,10,00,00,00,7C,00,00,00,00
2930 DATA 00,00,00,00,00,18,18,00,00,06,0C,18,30,60,C0,00
2940 DATA 38,4C,C6,C6,C6,64,38,00,18,38,18,18,18,18,7E,00
2950 DATA 7C,C6,0E,3C,78,E0,FE,00,7E,0C,18,3C,06,C6,7C,00
2960 DATA 1C,3C,6C,CC,FE,0C,0C,00,FC,C0,FC,06,06,C6,7C,00
2970 DATA 3C,60,C0,FC,C6,C6,7C,00,FE,C6,0C,18,30,30,30,00
2980 DATA 7C,C6,C6,7C,C6,C6,7C,00,7C,C6,C6,7E,06,0C,78,00
2990 DATA 00,18,18,00,18,18,00,00,00,18,18,00,18,18,08,10
3000 DATA 0C,18,30,60,30,18,0C,00,00,00,7C,00,7C,00,00,00
3010 DATA 60,30,18,0C,18,30,60,00,7C,C6,06,1C,30,00,30,00
3020 DATA 3C,42,99,A1,A1,99,42,3C,38,6C,C6,C6,FE,C6,C6,00
3030 DATA FC,C6,C6,FC,C6,C6,FC,00,3C,66,C0,C0,C0,66,3C,00
3040 DATA F8,CC,C6,C6,C6,CC,F8,00,FE,C0,C0,F8,C0,C0,FE,00
3050 DATA FE,C0,C0,F8,C0,C0,C0,00,3E,60,C0,CE,C6,66,3E,00
3060 DATA C6,C6,C6,FE,C6,C6,C6,00,7E,18,18,18,18,18,7E,00
3070 DATA 06,06,06,06,06,C6,7C,00,C6,CC,D8,F0,F8,DC,CE,00
3080 DATA C0,C0,C0,C0,C0,C0,FE,00,C6,EE,FE,FE,D6,C6,C6,00
3090 DATA C6,E6,F6,FE,DE,CE,C6,00,7C,C6,C6,C6,C6,C6,7C,00
3100 DATA FC,C6,C6,C6,FC,C0,C0,00,7C,C6,C6,C6,DE,CC,76,00
3110 DATA FC,C6,C6,CE,F8,DC,CE,00,78,CC,C0,7C,06,C6,7C,00
3120 DATA 7E,18,18,18,18,18,18,00,C6,C6,C6,C6,C6,C6,7C,00
3130 DATA C6,C6,C6,EE,7C,38,10,00,C6,C6,D6,FE,FE,6C,44,00
3140 DATA C6,EE,7C,38,7C,EE,C6,00,66,66,66,3C,18,18,18,00
3150 DATA FE,0E,1C,38,70,E0,FE,00,F8,C0,C0,C0,C0,C0,F8,00
3160 DATA 00,80,40,20,10,08,00,00,F8,18,18,18,18,18,F8,00
3170 DATA 00,00,20,50,88,00,00,00,00,00,00,00,00,00,00,F8
3180 BEEP:SOUND8,15:FORI=50TO165STEP8:SOUND0,I:SOUND1,178-I:FORE=1TORND(9)*100:NEXTE:NEXTI:SOUND8,0:RETURN
3190 BEEP:SOUND1,2:FOR I=255 TO 50 STEP -8:SOUND8,13:SOUND0,I:NEXT:FOR O=10 TO 0 STEP -8:FOR I=50 TO 0 STEP -9:SOUND0,I:NEXT:SOUND8,O:NEXT:SOUND0,0:SOUND1,0
3200 RETURN
3210 BEEP:FORQ=250TO50STEP1:FORW=QTOQ-50STEP-10:SOUND8,13:SOUND0,W:NEXTW:NEXTQ:SOUND0,0
3220 RETURN
3230 BEEP:FOR I=0 TO 200 STEP 2:FOR O=I TO I+50STEP50:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
3240 RETURN
3250 BEEP:FOR I=250 TO 50 STEP -80:FOR O=I TO I-80 STEP -20:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
3260 RETURN
3270 BEEP:FOR I=250 TO 50 STEP -60:FOR O=I TO I-50 STEP -8:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
3280 RETURN
3290 BEEP:FORLC=1TO3:FOR I=0 TO 250 STEP13:FOR O=I TO I+255STEP-1:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0:NEXT:RETURN
3300 BEEP:FOR I=0 TO 200 STEP 4:FOR O=I TO I+50STEP10:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0:RETURN
