[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