■プログラムリスト(40字×72行)
1 DATA 0,32,1,112,5,248,6,124,23,62,26,3
1,29,15,30,7,47,7,47,15,55,31,122,62,125
,124,126,248,255,112,255,32,128,4,192,14
,208,31,176,62,120,124,248,248,244,240,2
36,224,94,224,190,240,124,248,250,124,24
6,62,110,31,159,14,63,4,"た",1,"け",2,"の"
2 KEYOFF:SCREEN1,3:DEFINTA-Z:R=RND(-TIME
):DIMW(13),W$(13),S(61):D$(1)=" ばか":D$(
2)="おおばか":V(1)=159:V(2)=119:V(3)=139
3 FORI=0TO31:READS(-(I>15)*15+I+15):READ
A:VPOKE14656+I,A:NEXT:FORI=0TO3:A=256+I+
I:VPOKEA,85:VPOKEA+1,170:FORJ=0TO15:A=14
400+I*64+J:B=I*5+J:VPOKEA,S(B):VPOKEA+16
,S(B+31):NEXTJ,I:O=6914:P=6938:WIDTH32
4 FORI=0TO13:READW$(I),W(I):NEXT:FORI=0T
O5:READX(I),Y(I):FORJ=0TO1:A=O-2+I*4+J*2
4:VPOKEA+2,0:VPOKEA+3,8+J*3:VPOKEA,Y(I)*
8-1:VPOKEA+1,X(I)*8:NEXTJ,I:FORI=0TO6
5 READC(I):NEXT:E$=STRING$(3,29)
6 FORI=0TO5:B(I)=0:T(I)=0:VPOKEP+I*4,0:N
EXT:CLS:COLOR15,1,12:VPOKE8196,97:SOUND0
,240:SOUND7,56:SOUND8,16:SOUND11,255:LOC
ATE8,1:PRINT"PUSH TRIGGER!";:FORI=0TO4
7 SOUND13,0:PRINT5-I;E$;:TIME=0:FORJ=-1T
O0:FORK=0TO4:IFSTRIG(K)ANDT(K)=0THENA=P+
K*4:VPOKEA+1,11:VPOKEA,32:T(K)=-1:DATA2
8 NEXT:J=(TIME<60):NEXTJ,I:SOUND0,120
9 SOUND12,4:SOUND13,0:CLS:FORI=0TO5
10 D(I)=1:IFT(I)=0THENT(I)=1:VPOKEP+1+I*
4,10:VPOKEP+I*4,32:NEXTELSENEXT:DATA"こ "
11 TIME=0:FORI=-1TO0:I=(TIME<80):NEXT
12 SOUND12,0:LOCATE6,1:C=0:S=0:T=1:FORI=
0TO5:IFD(I)THENFORJ=0TO3:TIME=0:VPOKEP+I
*4,24-J*8:FORK=-1TO0:K=(TIME<2):NEXTK,J
13 NEXT:FORI=0TO13:TIME=0:PRINTW$(I);
14 IFW(I)THENSOUND0,V(W(I)):SOUND13,0
15 DATA3,"た",1,"け",2:IFI=8ORI=10ORI=12
THENFORJ=0TO5:VPOKEP+J*4,32+(I=10)*16:NE
XT
16 FORJ=-1TO0:J=(TIME<8):NEXTJ,I:D=-1
17 FORI=0TO3:TIME=0:FORJ=0TO5:VPOKEP+J*4
,24-I*8:NEXT:FORJ=-1TO0:J=(TIME<4):NEXTJ
,I:FORI=0TO5:N(I)=0:D(I)=0:IFT(I)=1THENU
(I)=RND(1)*99+1:NEXTELSEU(I)=0:NEXT
18 DATA"の",2,"こ ",3,"にょっ",2:FORH=0TO1:TI
ME=0:L=0:FORI=0TO5:IFN(I)THENVPOKEP+I*4,
N(I)*8:D(I)=D:N(I)=(N(I)+1)MOD5:GOTO21
19 G=0:IFU(I)=D(I)THENG=STRIG(I):DATA" "
20 IFT=U(I)ORG=T(I)THENN(I)=1:C=C+1:S=1
21 L=L-(N(I)>2):NEXT:T=T-(L=0):N=N(0)+N(
1)+N(2)+N(3)+N(4)+N(5):IFN>4THEND=1
22 IFN=0AND(D=1ORC=5)THENH=1ELSEH=0
23 DATA0,"きにょ",1," ",0,"き!",2," ",0:IFST
HENSOUND0,V(S-1):SOUND13,0:S=(S+1)MOD5
24 FORA=-1TO0:A=(TIME<2):NEXTA,H
25 FORI=0TO5:IF(D=-1ANDD(I)=0)OR(D=1ANDD
(I)>0)THENVPOKEO+I*4,40:B(I)=B(I)+1
26 IFB(I)=3THEN28ELSENEXT:SOUND11,64
27 SOUND13,8:TIME=0:FORI=-1TO0:I=(TIME<8
0):NEXT:SOUND13,0:CLS:FORI=0TO5:LOCATEX(
I),Y(I)+4:PRINTD$(B(I)):VPOKEO+I*4,0:NEX
T:GOTO12:DATA 14,18,6,14,22,14,6,7
28 COLOR8,8,8:SOUND7,63:FORI=0TO5:VPOKE6
914+I*4,0:VPOKEP+I*4,32:NEXT:DATA 22,7
29 CLS:SOUND7,0:SOUND13,8:COLOR15,15,15:
FORI=0TO255:SOUND11,I:NEXT:SOUND13,0:FOR
I=0TO6:TIME=0:C=C(I):COLORC,C,C:FORJ=0TO
5:IFB(J)=3ORD(J)=1THENVPOKEP+1+J*4,C
30 NEXT:FORJ=-1TO0:J=(TIME<8):NEXTJ,I:CO
LOR6:LOCATE11,10:PRINT"GAME SET!"SPC(52)
"PUSH CURSOR KEY":FORI=0TO1:I=STICK(0):N
EXT:GOTO6:DATA 14,3,15,11,10,9,8,6,1
※ひらがなは全角で表記しています。
|