10 REM CASTLE TOMB
20 REM (C)2009 AGsoftware
30 REM ANDREA GASPARRINI SOFT
40 CLEAR200,&HCFFF:COLOR,0,0:SCREEN 1,2,0:COLOR 15,0,0:WIDTH32:KEYOFF:DEFINTA-Z
50 HI=185:DEFUSR1=&H41:DEFUSR2=&H44
60 DEFUSR3=&HD000:DEFUSR4=&HD008:IFGO=1THEN970
70 RESTORE90:FORI=&HD000TO&HD00F:READA$
80 POKEI,VAL("&H"+A$):NEXTI
90 DATA 06,E3,0E,01,CD,47,00,C9
100 DATA 06,E2,0E,01,CD,47,00,C9
110 REM DEFINIZIONE CARATTERI
120 RESTORE 140:FOR A=0 TO 7:READ B:VPOKE 1024+A,B:NEXT A
130 REM MURO
140 DATA 255,0,66,90,60,66,0,255
150 REM 1UP
160 RESTORE170:FOR A=124*8 TO 125*8-1:READ B:VPOKEA,B:NEXT A
170 DATA 126,255,128,255,229,197,65,62
180 REM MATTONE
190 RESTORE200:FOR A=192*8 TO 193*8-1:READ B:VPOKEA,B:NEXT A
200 DATA 24,24,126,126,24,24,24,24
210 RESTORE 230:FOR A=0 TO 15:READ B:VPOKE 1088+A,B:NEXT A
220 REM SCALE
230 DATA 192,192,192,255,255,192,192,192
240 DATA 3,3,3,255,255,3,3,3
250 RESTORE260:FOR A=144*8 TO 148*8-1:READ B:VPOKEA,B:NEXT A
260 DATA 7,15,30,62,56,56,62,30,30,30,14,14,15,7,7,3
270 DATA 224,240,120,124,28,28,124,120,120,120,112,112,240,224,224,192
280 RESTORE290:FOR A=152*8 TO 160*8-1:READ B:VPOKEA,B:NEXT A
290 DATA 0,1,3,1,15,31,63,63,63,53,48,63,59,48,63,63
300 DATA 0,128,192,128,240,248,252,252,252,108,12,252,92,12,252,252
310 DATA 7,15,19,17,25,31,8,61,87,64,231,160,2,6,6,30
320 DATA 224,240,200,136,152,248,16,188,234,2,231,5,64,96,96,120
330 RESTORE340:FOR A=160*8 TO 164*8-1:READ B:VPOKEA,B:NEXT A
340 DATA 31,48,47,21,21,21,21,15,48,119,79,239,192,6,14,30
350 DATA 248,12,244,88,88,88,88,240,12,238,242,247,3,96,112,120
360 RESTORE370:FOR A=168*8 TO 172*8-1:READ B:VPOKEA,B:NEXT A
370 DATA 0,0,0,96,56,60,62,124,58,27,29,19,1,0,0,0
380 DATA 0,0,0,6,28,60,124,62,92,216,184,200,128,0,0,0
390 RESTORE400:FOR A=176*8 TO 177*8-1:READ B:VPOKEA,B:NEXT A
400 DATA 56,56,16,124,186,56,40,108
410 RESTORE420:FOR A=184*8 TO 188*8-1:READ B:VPOKEA,B:NEXT A
420 DATA 1,3,1,17,63,63,17,1,1,1,1,7,15,15,31,31
430 DATA 128,192,128,136,252,252,136,128,128,128,128,224,240,240,248,248
440 GOSUB2850:REM NAMCO
450 REM COLORA CARATTERI
460 VPOKE8207,16*4+15:VPOKE 8208,16*14+13:VPOKE8209,7*16:VPOKE8210,16*6:VPOKE8211,16*15:VPOKE8212,16*4
470 VPOKE8213,16*4:VPOKE8215,16*9:VPOKE8216,16*8:VPOKE8217,16*10+6
480 FORA=8200TO8203:VPOKEA,16*10:NEXT
490 VPOKE8198,16*14:VPOKE8199,16*14
500 REM DEFINIZIONE SPRITE 16x16
510 RESTORE540:FOR S=1 TO 18:A$="":FOR F=1 TO 32:READ A:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
520 RESTORE780:FOR S=20TO26:A$="":FOR F=1 TO 32:READ A:A$=A$+CHR$(A):NEXT:SPRITE$(S)=A$:NEXT
530 REM KUKIZU MAN DX-1
540 DATA 7,15,8,15,15,14,0,0,0,0,0,14,14,7,0,0,224,240,0,240,0,0,0,0,0,0,0,112,112,224,0,0
550 DATA 0,0,0,0,0,0,0,6,15,15,15,1,0,0,3,3,0,0,0,0,0,0,0,0,192,224,240,128,0,0,128,192
560 DATA 0,0,7,0,0,1,7,1,0,0,0,0,1,0,0,0,0,0,240,0,208,208,240,224,0,0,0,0,128,0,0,0
570 REM KUKIZU MAN DX-2
580 DATA 7,15,8,15,15,14,0,0,0,0,0,15,7,5,0,0,224,240,0,240,0,0,0,0,0,0,0,224,240,240,0,0
590 DATA 0,0,0,0,0,0,0,7,31,15,15,0,24,24,24,16,0,0,0,0,0,0,0,0,248,248,252,24,0,0,224,240
600 DATA 0,0,7,0,0,1,7,0,0,48,48,0,0,0,0,0,0,0,240,0,208,208,240,224,6,6,0,0,0,0,0,0
610 REM KUKIZU MAN SX-1
620 DATA 7,15,0,15,0,0,0,0,0,0,0,14,14,7,0,0,224,240,16,240,240,112,0,0,0,0,0,112,112,224,0,0
630 DATA 0,0,0,0,0,0,0,0,3,7,15,1,0,0,1,3,0,0,0,0,0,0,0,96,240,240,240,128,0,0,192,192
640 DATA 0,0,15,0,11,11,15,7,0,0,0,0,1,0,0,0,0,0,224,0,0,128,224,128,0,0,0,0,128,0,0,0
650 REM KUKIZU MAN SX-2
660 DATA 7,15,0,15,0,0,0,0,0,0,0,7,15,15,0,0,224,240,16,240,240,112,0,0,0,0,0,240,224,160,0,0
670 DATA 0,0,0,0,0,0,0,0,31,31,63,24,0,0,7,15,0,0,0,0,0,0,0,224,248,240,240,0,24,24,24,8
680 DATA 0,0,15,0,11,11,15,7,96,96,0,0,0,0,0,0,0,0,224,0,0,128,224,0,0,12,12,0,0,0,0,0
690 REM KUKIZU MAN UD-1
700 DATA 7,15,0,31,31,31,31,0,0,0,0,15,15,2,0,0,224,240,0,248,248,248,248,0,0,0,0,248,240,0,0,0
710 DATA 0,0,0,0,0,0,0,127,63,15,7,0,0,12,14,6,0,0,0,0,0,0,0,240,248,252,246,0,0,48,0,0
720 DATA 0,0,15,0,0,0,96,0,0,0,0,0,0,0,0,0,0,0,240,0,0,0,0,0,0,0,0,6,0,0,0,0
730 REM KUKIZU MAN UD-2
740 DATA 7,15,0,31,31,31,15,0,0,0,0,15,7,0,0,0,224,240,0,248,248,248,240,0,0,0,0,240,240,64,0,0
750 DATA 0,0,0,0,0,0,0,15,31,63,55,0,0,6,0,0,0,0,0,0,0,0,0,254,252,240,224,0,0,48,112,96
760 DATA 0,0,15,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,240,0,0,0,6,0,0,0,0,0,0,0,0,0
770 REM skeleton
780 DATA 7,15,31,31,27,25,13,119,85,224,167,1,7,4,4,28
790 DATA 192,229,247,242,178,62,104,192,64,0,228,4,252,0,0,0
800 DATA 3,167,239,79,77,124,22,3,2,0,39,32,63,0,0,0
810 DATA 224,240,248,248,216,152,176,238,170,7,229,128,224,32,32,56
820 REM CA
830 DATA 62,126,224,192,192,192,192,192,192,192,192,192,192,224,126,62
840 DATA 60,126,195,195,195,195,195,195,255,255,195,195,195,195,195,195
850 REM ST
860 DATA 126,254,192,192,192,192,192,252,126,6,6,6,6,6,254,252
870 DATA 255,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24
880 REM LE
890 DATA 192,192,192,192,192,192,192,192,192,192,192,192,192,192,254,254
900 DATA 255,255,192,192,192,192,192,252,252,192,192,192,192,192,255,255
910 REM TO
920 DATA 255,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24
930 DATA 62,127,99,99,99,99,99,99,99,99,99,99,99,99,127,62
940 REM MB
950 DATA 195,195,195,195,231,255,219,195,195,195,195,195,195,195,195,195
960 DATA 126,127,99,99,99,99,99,126,126,99,99,99,99,99,127,126
970 CLS:FORA=0TO31:PUTSPRITEA,,,0:NEXTA
980 PRINT" SCORE        HI SCORE"
990 PRINTSC*100;SPC(10);HI*100
1000 A=USR3(0)
1010 PUTSPRITE6,(75,38),5,22:PUTSPRITE7,(112,38),5,23:PUTSPRITE8,(147,38),5,24:PUTSPRITE9,(95,78),7,25:PUTSPRITE10,(130,78),7,26
1020 LOCATE6,3:PRINT""
1030 LOCATE6,4:PRINT""
1040 LOCATE6,5:PRINT"                "
1050 LOCATE6,6:PRINT"                "
1060 LOCATE6,7:PRINT"                "
1070 LOCATE6,8:PRINT"                "
1080 LOCATE6,9:PRINT"                "
1090 LOCATE6,10:PRINT"                "
1100 LOCATE6,11:PRINT"                "
1110 LOCATE6,12:PRINT"                "
1120 LOCATE6,13:PRINT"                "
1130 LOCATE6,14:PRINT"                "
1140 LOCATE6,15:PRINT""
1150 LOCATE6,16:PRINT""
1160 LOCATE3,5:PRINTCHR$(156)+CHR$(158):LOCATE3,6:PRINTCHR$(157)+CHR$(159)
1170 LOCATE3,8:PRINTCHR$(156)+CHR$(158):LOCATE3,9:PRINTCHR$(157)+CHR$(159)
1180 LOCATE3,11:PRINTCHR$(156)+CHR$(158):LOCATE3,12:PRINTCHR$(157)+CHR$(159)
1190 LOCATE27,5:PRINTCHR$(156)+CHR$(158):LOCATE27,6:PRINTCHR$(157)+CHR$(159)
1200 LOCATE27,8:PRINTCHR$(156)+CHR$(158):LOCATE27,9:PRINTCHR$(157)+CHR$(159)
1210 LOCATE27,11:PRINTCHR$(156)+CHR$(158):LOCATE27,12:PRINTCHR$(157)+CHR$(159)
1220 LOCATE 1,18:PRINT"1UP BONUS EVERY FOR 25000 PTS"
1230 LOCATE 4,20:PRINT" @ 2009 AGSOFTWARE"
1240 LOCATE 2,22:PRINT"PUSH SPACE OR FIRE TO START":A=USR2(0)
1250 STRIG(0)ON:STRIG(1)ON:STRIG(3)ON
1260 ON STRIG GOSUB 1290,1290,1290,1290
1270 GOTO 1250
1280 REM SCORE,LIVES
1290 A=USR1(0):FORA=0TO31:PUTSPRITEA,,,0:NEXTA:CLS:A=USR4(0):A=USR2(0)
1300 LI=2:SC=0:BO=400:LV=1:VL=3:CR=0
1310 L1=0:L2=0:L3=0:L4=0:S=0
1320 CLS:FORA=1TO4:PUTSPRITEA,,,0:NEXT:LOCATE 11,10:PRINT"LEVEL";LV
1330 LOCATE 12,12:PRINT"READY!":LOCATE1,14:PRINT"YOU NEED TO KILL";VL;"VAMPIRES"
1340 FORA=0TO5000:NEXT
1350 A=USR1(0):CLS:LOCATE 1,0:PRINT"SCORE":LOCATE12,0:PRINT"HI-SCORE":LOCATE26,0:PRINT"LEVEL"
1360 LOCATE0,1:PRINTSC*100:LOCATE11,1:PRINTHI*100:LOCATE25,1:PRINTLV
1370 LF=LI:IFLF>11THENLF=11
1380 FOR A=1 TO LF
1390 LOCATE21,0:PRINTSTRING$(LF,124);
1400 NEXT:LOCATE0,2:PRINT"VAMPIRE";:LOCATE18,2:PRINT"CRUCIFIX"
1410 VM=VL:IFVM>11THENVM=11:FORA=1TOVM:LOCATE6+A,2:PRINTCHR$(176):NEXTAELSEFORA=1TOVM:LOCATE6+A,2:PRINTCHR$(176):NEXTA
1420 IFCR=0THEN1450ELSEGOTO1430
1430 FORA=1TOCR:LOCATE25+A,2:PRINTCHR$(192):NEXTA
1440 REM LOAD SCREEN
1450 GOSUB2620:A=USR2(0)
1460 X%=104:Y%=167:SP%=1
1470 X1%=100:Y1%=127:R1%=1
1480 X2%=100:Y2%=87:R2%=2
1490 ON STRIG GOSUB 2250,2250,2090,2090
1500 STRIG(0)ON:STRIG(1)ON:STRIG(3)ON
1510 ONSTICK(0)ORSTICK(1)GOSUB1690,1690,1700,1700,1710,1710,1720,1720
1520 IFSTICK(0)ORSTICK(1)>0THENZ%=Z%+3ANDZ%<1:GOSUB3220
1530 IF(PEEK(&HFBE0)AND(&H4))=0THENGOSUB2090
1540 IFF1=1THENSTRIG(0)OFF:STRIG(1)OFF:GOSUB2260ELSEIFF1=2THENSTRIG(0)OFF:STRIG(1)OFF:GOSUB2290
1550 IFL1=1ANDL2=1ANDL3=1ANDL4=1ANDL5=1ANDL6=1THENGOSUB2390
1560 REM TT=TT+1:IFTT>5THENTT=0:TI=TI-10:LOCATE25,1:PRINTTI:IFTI=0THENGOSUB2280
1570 PUTSPRITE1,(X%,Y%),4,SP%+Z%:PUTSPRITE2,(X%,Y%),8,SP%+1+Z%:PUTSPRITE3,(X%,Y%),15,SP%+2+Z%
1580 IFX%>240THENX%=X%-8
1590 IFX%<8THENX%=X%+8
1600 IFSC=>BO THEN BO=BO+250:GOSUB2470
1610 IFSC=>HITHENHI=SC:LOCATE11,1:PRINTHI*100
1620 GOSUB1760
1630 GOSUB1850
1640 TM=TM+1:IFTM>20THENTM=0:GOSUB1940
1650 IFY%<Y1%+8ANDY%>Y1%-8ANDX%<X1%+8ANDX%>X1%-8THENGOSUB2320
1660 IFY%<Y2%+8ANDY%>Y2%-8ANDX%<X2%+8ANDX%>X2%-8THENGOSUB2320
1670 GOTO 1510
1680 REM ANIMAZIONE 1UP
1690 GOSUB1730:IFUP%=136ANDF1=0THENPS%=1:STRIG(0)OFF:STRIG(1)OFF:SP%=13:Y%=Y%-8:RETURNELSEPS%=0:STRIG(0)ON:STRIG(1)ON:RETURN
1700 IFPS%=0THENSP%=1:X%=X%+8:S=0:RETURNELSERETURN
1710 GOSUB1740:IFDW%=136ANDF1=0THENPS%=1:STRIG(0)OFF:STRIG(1)OFF:SP%=13:Y%=Y%+8:RETURNELSEPS%=0:STRIG(0)ON:STRIG(1)ON:RETURN
1720 IFPS%=0THENSP%=7:X%=X%-8:S=4:RETURNELSERETURN
1730 UP%=VPEEK(6144+INT(INT((Y%+1)/8)*32+((X%)/8))):RETURN
1740 DW%=VPEEK(6144+INT(INT((Y%+17)/8)*32+((X%)/8))):RETURN
1750 REM MOVE SKELETON1
1760 T1=T1+1:IFT1>10THENT1=0:N1=INT(RND(1)*2+1)
1770 ON N1 GOTO 1780,1810
1780 X1%=X1%+8:IFX1%>240THENX1%=X1%-8
1790 PUTSPRITE4,(X1%,Y1%),12,20+ZA%:ZA%=ZA%+1ANDZA%<1
1800 RETURN
1810 X1%=X1%-8:IFX1%<8THENX1%=X1%+8
1820 PUTSPRITE4,(X1%,Y1%),12,20+ZA%:ZA%=ZA%+1ANDZA%<1
1830 RETURN
1840 REM MOVE SKELETON2
1850 T2=T2+1:IFT2>10THENT2=0:N2=INT(RND(1)*2+1)
1860 ON N2 GOTO 1870,1900
1870 X2%=X2%-8:IFX2%<8THENX2%=X2%+8
1880 PUTSPRITE5,(X2%,Y2%),10,20+ZB%:ZB%=ZB%+1ANDZB%<1
1890 RETURN
1900 X2%=X2%+8:IFX2%>240THENX2%=X2%-8
1910 PUTSPRITE5,(X2%,Y2%),10,20+ZB%:ZB%=ZB%+1ANDZB%<1
1920 RETURN
1930 REM SHOW VAMPIRE
1940 SM=INT(RND(-TIME)*6+1)
1950 IFSM=1THENL1=1:GOSUB2020
1960 IFSM=2THENL2=1:GOSUB2030
1970 IFSM=3THENL3=1:GOSUB2040
1980 IFSM=4THENL4=1:GOSUB2050
1990 IFSM=5THENL5=1:GOSUB2060
2000 IFSM=6THENL6=1:GOSUB2070
2010 RETURN
2020 LOCATE1,21:PRINTCHR$(156)+CHR$(158):LOCATE1,22:PRINTCHR$(157)+CHR$(159):RETURN
2030 LOCATE30,21:PRINTCHR$(156)+CHR$(158):LOCATE30,22:PRINTCHR$(157)+CHR$(159);:RETURN
2040 LOCATE1,16:PRINTCHR$(156)+CHR$(158):LOCATE1,17:PRINTCHR$(157)+CHR$(159):RETURN
2050 LOCATE30,16:PRINTCHR$(156)+CHR$(158):LOCATE30,17:PRINTCHR$(157)+CHR$(159);:RETURN
2060 LOCATE1,11:PRINTCHR$(156)+CHR$(158):LOCATE1,12:PRINTCHR$(157)+CHR$(159):RETURN
2070 LOCATE30,11:PRINTCHR$(156)+CHR$(158):LOCATE30,12:PRINTCHR$(157)+CHR$(159);:RETURN
2080 REM ESORCISMO CON CROCIFISSO
2090 IFCR>0ANDX=8ANDY=167ANDL1=1THENL1=0:GOSUB3300:LOCATE1,21:PRINTCHR$(144)+CHR$(146):LOCATE1,22:PRINTCHR$(145)+CHR$(147):SC=SC+2:LOCATE0,1:PRINTSC*100:GOSUB2190:GOSUB2210
2100 IFCR>0ANDX=240ANDY=167ANDL2=1THENL2=0:GOSUB3300:LOCATE30,21:PRINTCHR$(144)+CHR$(146):LOCATE30,22:PRINTCHR$(145)+CHR$(147);:SC=SC+2:LOCATE0,1:PRINTSC*100:GOSUB2190:GOSUB2210
2110 IFCR>0ANDX=8ANDY=127ANDL3=1THENL3=0:GOSUB3300:LOCATE1,16:PRINTCHR$(144)+CHR$(146):LOCATE1,17:PRINTCHR$(145)+CHR$(147):SC=SC+2:LOCATE0,1:PRINTSC*100:GOSUB2190:GOSUB2210
2120 IFCR>0ANDX=240ANDY=127ANDL4=1THENL4=0:GOSUB3300:LOCATE30,16:PRINTCHR$(144)+CHR$(146):LOCATE30,17:PRINTCHR$(145)+CHR$(147);:SC=SC+2:LOCATE0,1:PRINTSC*100:GOSUB2190:GOSUB2210
2130 IFCR>0ANDX=8ANDY=87ANDL5=1THENL5=0:GOSUB3300:LOCATE1,11:PRINTCHR$(144)+CHR$(146):LOCATE1,12:PRINTCHR$(145)+CHR$(147):SC=SC+2:LOCATE0,1:PRINTSC*100:GOSUB2190:GOSUB2210
2140 IFCR>0ANDX=240ANDY=87ANDL6=1THENL6=0:GOSUB3300:LOCATE30,11:PRINTCHR$(144)+CHR$(146):LOCATE30,12:PRINTCHR$(145)+CHR$(147);:SC=SC+2:LOCATE0,1:PRINTSC*100:GOSUB2190:GOSUB2210
2150 REM TAKE CRUCIFIX
2160 IFX=112ANDY=47THENCR=CR+1:IFCR>6THENCR=6:LOCATE26+CR,2:PRINTCHR$(192)ELSELOCATE25+CR,2:PRINTCHR$(192):GOSUB3260:SC=SC+1:LOCATE0,1:PRINTSC*100
2170 RETURN
2180 REM REMOVE CRUCIFIX
2190 CR=CR-1:LOCATE26+CR,2:PRINTCHR$(32):RETURN
2200 REM REMOVE CHAR VAMPIRES
2210 VL=VL-1:VM=VL:IFVM>10THENVM=10:RETURNELSEGOTO2220
2220 LOCATE7+VM,2:PRINTCHR$(32):IFVM=0THEN2570
2230 RETURN
2240 REM JUMP 1UP
2250 F1=1:STRIG(0)OFF:STRIG(1)OFF:GOSUB3280
2260 IFS=0THENY%=Y%-4:X%=X%+4:YJ=YJ+1:IFYJ>3THENYJ=0:F1=2:RETURNELSERETURN
2270 IFS=4THENY%=Y%-4:X%=X%-4:YJ=YJ+1ANDYJ<4:IFYJ=4THENYJ=0:F1=2:RETURNELSERETURN
2280 RETURN
2290 IFS=0THENY%=Y%+4:X%=X%+4:YJ=YJ+1ANDYJ<4:IFYJ=4THENYJ=0:F1=0:STRIG(0)ON:STRIG(1)ON:RETURNELSERETURN
2300 IFS=4THENY%=Y%+4:X%=X%-4:YJ=YJ+1ANDYJ<4:IFYJ=4THENYJ=0:F1=0:STRIG(0)ON:STRIG(1)ON:RETURNELSERETURN
2310 REM MORTE 1UP DA SKELETOR
2320 GOSUB3240
2330 LI=LI-1:IF LI<0 THEN 2530
2340 LF=LI:IFLI>6THENLF=6
2350 LOCATE 21+LF,0:PRINTCHR$(32)
2360 SP%=1:X%=104:Y%=167:F1=0:PS%=0
2370 RETURN1510
2380 REM MORTE 1UP DA VAMPIRES
2390 L1=0:L2=0:L3=0:L4=0:L5=0:L6=0:CR=0
2400 F1=0:PS%=0:GOSUB3310
2410 LOCATE 21+LF,0:PRINTCHR$(32)
2420 FORA=0TO5:FORB=6TO8:VPOKE8211,16*B:FORP=0TO100:NEXTP:NEXTB:NEXTA
2430 LI=LI-1:LF=LI:IFLI>6THENLF=6
2440 VPOKE8211,16*15:IFLI<0THEN2530
2450 RETURN1350
2460 REM BONUS 1UP
2470 GOSUB3300
2480 LI=LI+1
2490 LF=LI:IFLF>6THENLF=6
2500 LOCATE 20+LF,0:PRINTCHR$(124)
2510 RETURN
2520 REM GAME OVER
2530 LOCATE 10,10:PRINT" GAME OVER "
2540 FORI=1 TO 3000:NEXTI
2550 GO=1:F1=0:PS%=0:GOTO60
2560 REM ROUND CLEAR
2570 LOCATE10,10:PRINT"STAGE CLEAR!"
2580 LV=LV+1:GOSUB3310:GOSUB3190:FORI=0TO1500:NEXTI:VL=VL+3*LV:CR=0:A=0
2590 FORA=0TO31:PUTSPRITEA,,,0:NEXTA
2600 GOTO1310
2610 REM LEVEL 1
2620 PRINT "";
2630 PRINT "                                ";
2640 PRINT "                            ";
2650 PRINT "              ";
2660 PRINT "              ";
2670 PRINT "";
2680 PRINT "                            ";
2690 PRINT "                        ";
2700 PRINT "                  ";
2710 PRINT "                  ";
2720 PRINT "";
2730 PRINT "                            ";
2740 PRINT "                        ";
2750 PRINT "                ";
2760 PRINT "                ";
2770 PRINT "";
2780 PRINT "                            ";
2790 PRINT "                        ";
2800 PRINT "              ";
2810 PRINT "                  ";
2820 PRINT "";:VPOKE6911,128
2830 RETURN
2840 REM REM NAMCO LETTERS
2850 RESTORE2870:FOR I=256TO767:READA$
2860 VPOKEI,VAL("&H"+A$):NEXTI:RETURN
2870 DATA 00,00,00,00,00,00,00,00,18,3C,3C,3C,18,00,18,00
2880 DATA 6C,6C,48,00,00,00,00,00,6C,FE,6C,6C,6C,FE,6C,00
2890 DATA 18,3E,58,3C,1A,7C,18,00,00,C6,CC,18,30,66,C6,00
2900 DATA 70,C8,C8,70,9A,8C,76,00,18,18,10,00,00,00,00,00
2910 DATA 0C,18,30,30,30,18,0C,00,30,18,0C,0C,0C,18,30,00
2920 DATA 00,18,5A,3C,3C,5A,18,00,00,18,18,7E,18,18,00,00
2930 DATA 00,00,00,00,18,18,08,10,00,00,00,7C,00,00,00,00
2940 DATA 00,00,00,00,00,18,18,00,00,06,0C,18,30,60,C0,00
2950 DATA 38,4C,C6,C6,C6,64,38,00,18,38,18,18,18,18,7E,00
2960 DATA 7C,C6,0E,3C,78,E0,FE,00,7E,0C,18,3C,06,C6,7C,00
2970 DATA 1C,3C,6C,CC,FE,0C,0C,00,FC,C0,FC,06,06,C6,7C,00
2980 DATA 3C,60,C0,FC,C6,C6,7C,00,FE,C6,0C,18,30,30,30,00
2990 DATA 7C,C6,C6,7C,C6,C6,7C,00,7C,C6,C6,7E,06,0C,78,00
3000 DATA 00,18,18,00,18,18,00,00,00,18,18,00,18,18,08,10
3010 DATA 0C,18,30,60,30,18,0C,00,00,00,7C,00,7C,00,00,00
3020 DATA 60,30,18,0C,18,30,60,00,7C,C6,06,1C,30,00,30,00
3030 DATA 3C,42,99,A1,A1,99,42,3C,38,6C,C6,C6,FE,C6,C6,00
3040 DATA FC,C6,C6,FC,C6,C6,FC,00,3C,66,C0,C0,C0,66,3C,00
3050 DATA F8,CC,C6,C6,C6,CC,F8,00,FE,C0,C0,F8,C0,C0,FE,00
3060 DATA FE,C0,C0,F8,C0,C0,C0,00,3E,60,C0,CE,C6,66,3E,00
3070 DATA C6,C6,C6,FE,C6,C6,C6,00,7E,18,18,18,18,18,7E,00
3080 DATA 06,06,06,06,06,C6,7C,00,C6,CC,D8,F0,F8,DC,CE,00
3090 DATA C0,C0,C0,C0,C0,C0,FE,00,C6,EE,FE,FE,D6,C6,C6,00
3100 DATA C6,E6,F6,FE,DE,CE,C6,00,7C,C6,C6,C6,C6,C6,7C,00
3110 DATA FC,C6,C6,C6,FC,C0,C0,00,7C,C6,C6,C6,DE,CC,76,00
3120 DATA FC,C6,C6,CE,F8,DC,CE,00,78,CC,C0,7C,06,C6,7C,00
3130 DATA 7E,18,18,18,18,18,18,00,C6,C6,C6,C6,C6,C6,7C,00
3140 DATA C6,C6,C6,EE,7C,38,10,00,C6,C6,D6,FE,FE,6C,44,00
3150 DATA C6,EE,7C,38,7C,EE,C6,00,66,66,66,3C,18,18,18,00
3160 DATA FE,0E,1C,38,70,E0,FE,00,F8,C0,C0,C0,C0,C0,F8,00
3170 DATA 00,80,40,20,10,08,00,00,F8,18,18,18,18,18,F8,00
3180 DATA 00,00,20,50,88,00,00,00,00,00,00,00,00,00,00,F8
3190 SOUND8,15:FORI=50TO165STEP8:SOUND0,I:SOUND1,178-I:FORE=1TORND(9)*100:NEXTE:NEXTI:SOUND8,0:RETURN
3200 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
3210 RETURN
3220 FORQ=250TO50STEP1:FORW=QTOQ-50STEP-10:SOUND8,13:SOUND0,W:NEXTW:NEXTQ:SOUND0,0
3230 RETURN
3240 FOR I=0 TO 200 STEP 2:FOR O=I TO I+50STEP50:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
3250 RETURN
3260 FOR I=250 TO 50 STEP -80:FOR O=I TO I-80 STEP -20:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
3270 RETURN
3280 FOR I=250 TO 50 STEP -60:FOR O=I TO I-50 STEP -8:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0
3290 RETURN
3300 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
3310 FOR I=0 TO 200 STEP 4:FOR O=I TO I+50STEP10:SOUND8,13:SOUND0,O:NEXT:NEXT:SOUND0,0:RETURN
