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

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

[481]キャプテン岬 ◆ma4dP58NuI ：2018/07/01(日) 17:38:09 ID:5qLfYkp6
10　REM ●●●●●●●●●●●●●●●●スピ→ドスタ→●●●●●●●●●●●●●●●
20　DIM L(5),R(5),S(5)
30　CLS
40　P1=10
50　P2=P1+8
60　Q=0
70　X=15
80　FOR S=1 TO 3
90　FOR I=1 TO 2
100　LOCATE P1,21PRINT‶|″
110　LOCATE P2,21PRINT‶|″
120　PRINT
130　NEXT 1
140　L〔5〕=　L〔4〕: R〔5〕= S〔5〕= S〔4〕
150　L〔4〕=　L〔3〕: R〔4〕= S〔4〕= S〔3〕
160　L〔3〕=　L〔2〕: R〔3〕= S〔3〕= S〔2〕
170　L〔2〕=　L〔1〕: R〔2〕= S〔2〕= S〔1〕
180　L〔1〕=P1+1: R〔1〕=P2
190　P1=P1＋Q
200　P2=P1+8
210　BEEP
220　LOCATE X,11:PRINT ‶★″
230　G$=INKEY$
240　IF G$=‶Z″ THEN X=X‐1
250　IF G$=‶X″ THEN X=X+1
260　IF X=L〔5〕 OR X=R〔5〕 OR X=S〔5〕 THEN 410
270　S〔1〕=0
280　NEXT S
290　LX=P1+2+INT〔RND〔1〕＊5〕
300　LOCATE LX,19:PRINT ‶＊″
310　S〔1〕=LX:LX=0
320　BEEP

前次写