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
270 IF SC=100 THEN 540 280 IF Y=4 THEN PAUSE=1 290 IF X<2 OR X>26 THEN XD=‐XD 300 IF Y<2 THEN YD=‐YD 310 IF Y=18 AND X>=BX AND X<BX+4 THEN 360 320 BB=INT〔X〕 330 IF Y=18 AND BB>BX‐2 AND BB<BX+6 THEN 350 340 GOTO 370 350 XD=‐-XD＊.8 360 YD=‐YD 370 IF Y>20 THEN GOTO 500 380 X=X+XD 390 Y=Y+YD 400 GOTO 200 410 REM ラケット 420 LOCATE BX,19:PRINT‶====″ 430 G$=INKEY$ 440 IF G$=‶Z″ THEN BX=BX‐2 450 IF G$=‶X″ THEN BX=BX+2 460 IF BX<1 THEN BX=1 470 IF BX>25 THEN BX=25 480 LOCATE BX,19:PRINT A= 490 RETURN 500 BALL=BALL‐1 510 BEEP 520 IF BALL<0 THEN GOTO 540 530 GOTO 160 540 PRINT ‶もうおわり～？″ (H／Y) 550 INPUT D$ 560 IF D$= ‶Y～″ THEN END 570 RUN
A 岬「今度はサッカーゲームでも作ってもらえないかな？（ちょっと興味がわいてきたぞ）」 B 岬「双海さん達の他にプログラミングやってる人っている？ （誰か教えた人がいるはずだ。これ程の腕だと仲良くなれば役に立つかも）」 C 岬「意外だなあ、コレコビジョンはどうしたの？（交流の機会を持てないかな）」 D 岬「あずみちゃんとの仲直り、もう済んだ？ （随分会ってないけど大丈夫かな。友好的な相手が潰れるのはもったいない）」 E 岬「あれからあずみちゃん、どうしてる？ （随分会ってないけど大丈夫かな。友好的な相手が潰れるのはもったいない）」 F 岬「ここの学校や外の人達はマイコンゲームするの？それともテレビゲーム？ （そうだ、金儲けの種になるかもしれない、聞いてみよう）」 G 岬「僕がサッカー修行中に、凄い事してるたんだなあ （彼女達を褒めつつ、さりげなく自分の行動をアピールしよう）」 H その他、自由回答（要3票）
A ドアを軽く叩いてみて、相手の反応を待つ B ほんの少しだけドアを開けて、歌声を聴いてみる C 「ちょっと聴かせてもらっていいかな」 ドアを開け、素直に尋ねてみる D 僕の存在には気づいていない。こっそり忍び寄って後ろから驚かせてみようか E ドアを少しだけ開け、数歩離れた後、彼女達に聞こえるか聞こえないか位の声で僕も歌ってみよう F 興味ないから他の所へ行こう G その他、自由回答（要3票）