■プログラムリスト(40字×32行)
1 DEFINTD-Y:KEYOFF:COLOR15,0,0:SCREEN1,0
,0:WIDTH32:SPRITE$(0)="0~。**>NZ":SPRITE$
(1)=" ppねねリp":R=RND(-TIME):T=1:DEFFND(X
,Y)=VPEEK(6144+X+(Y\8)*32):FORI=1TO8:VPO
KE775+I,ASC(MID$("<Bぅ●●。B<",I)):NEXT:VPO
KE8204,80:ONSPRITEGOSUB10:SPRITEON:SOUND
13,0
2 X=15:Y=88:W=0:FORI=0TO1:PUTSPRITEI,(0,
209):NEXT:FORI=0TO22:GOSUB9:NEXT:Z=0:SOU
ND7,55:SOUND8,16:SOUND11,0:SOUND12,4
3 S=STICK(0):X=X+(S=7)-(S=3):X=X*-(X>0)+
(X-31)*(X>31):Z=Z-(Z<8)*.5:Y=Y+Z:V=V+(W=
180)*(V-RND(1)*32):W=(W+4)MOD184:PUTSPRI
TE0,(X*8,Y-1),8:PUTSPRITE1,(V*8,W-1),7:I
FFND(X,Y+8)=97THENGOSUB9
4 IFFND(X,Y-8)=97THENSOUND13,0:Z=Z*-(Z>0
):LOCATEX,Y\8-1:PRINT" "ELSEIF(S=3ORS=7)
ANDX>0THENIFFND(X-(S-5)\2,Y)=97THENSOUND
13,0:LOCATEX-(S-5)\2,Y\8:PRINT" "
5 IFFND(V,W)=97THENSOUND13,0:LOCATEV,W\8
:PRINT" "
6 C=C+Y\50:IFY>184THEN8:ELSEIFY>0THEN3
7 LOCATE6,10:PRINT"◆◆ STAGE"T"CLEAR ◆◆":
FORI=0TO5000:NEXT:T=T+1:GOTO2
8 H=C-(H>C)*(H-C):LOCATE1,10:PRINT"♥ GAM
E OVER ♥ SC"C"HI"H:FORI=0TO1:I=-STRIG(0
):NEXT:T=1:C=0:CLS:GOTO2
9 Z=-7:LOCATE0,0:PRINTCHR$(27)+"L":PRINT
SPC(RND(1)*33);CHR$(32-(INT(RND(1)*(T*5+
95))<90)*65):RETURN
10 PUTSPRITE1,(0,209):W=180:C=C+100:RETU
RN
※特殊記号・ひらがなは全角で表記しています。
|