【赤と8ビットの】キャプテン岬【物語《ﾛﾏﾝ》】

※人気投票開催中※
01/17(日)00:00-01/30(土)23:59
第二回鈴仙奮闘記キャラ人気投票

[475]キャプテン岬 ◆ma4dP58NuI ：2018/07/01(日) 15:06:16 ID:5qLfYkp6
10　REM ●●●●●●●●●●●●●●●●スターライン●●●●●●●●●●●●●●●
20　CLS
30　BX=14;A$=‶$$$$″;YD=1:SC=0:BALL=5
40　DIM B(28,21)
50　FOR R=4 TO 7
60　FOR C=1 TO 26
70　B(C,R)=1
80　NEXT C
90　NEXT R
100　FOR R=4 TO 7
110　FOR C=1 TO 26
120　LOCATE C,R:PRINT ‶★″
130　NEXT C
140　NEXT R
150　LOCATE BX,19:PRINT A=
160　Y=10:X=BX+2:XD=INT(RND(1)＊2)-.5:PAUSE=30
170　LOCATE BX ,19:PRINT A‶●″
180　FOR R=1 TO 1200:NEXT R
190　LOCATE 0,0:PRINT ‶BALL″;BALL
200　LOCATE X,Y:PRINT ‶●″
210　FOR R=1 TO PAUSE:NEXT R
220　GOSUB 410
230　LOCATE X,Y:PRINT ‶●″
240　IF B〔X,Y〕<>1 THEN 270
250　YD=‐YD:BEEP:B〔X,Y〕=0:SC=SC+1
260　LOCATE 20.0:PRINT ‶SCORE″,SC＊10

前次写