06/02/26 20:40:09
>>111のむしつくろい
[zan4.bas]
50 LOCATE4+I*2,12:PRINTMID$("c1992 FAMIBE ﾉ ﾖｯｼﾝ",I*2+1,2):PAUSE8:NEXT:PAUSE11
90 FORI=1TO7:A=PEEK(&H497+I):A$=A$+CHR$(A):B=ASC(MID$(HI$,I,1))
180 LOCATE9,9:PRINT"PUSH START
190 LOCATE9,16:PRINT"SC-"A$:LOCATE9,18:PRINT"HI-"HI$
210 J=(J+16)MOD112:PALETB 0,13-I/21,48,0,ABS(J-65)
220 B=A:A=STICK(0)*16+STRIG(0)
250 IFA<>1THEN200
330 PALETB 1,0,48,23,7
340 PALETS 3,0,48,33,17
350 PALETS 1,0,48,19,7
360 PALETS 2,0,48,41,25