Program post site for everyone
2 プログラム のうち、プログラム 1 です。
(プログラム 1)＋ 1 ＝(プログラム 2) の状態で、
本体・EEPROM に保存してから実行して下さい。
詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。
CLS:' NEW 100 'BLASTAR 110 CLS 120 LC6,6 130 ?CHR$(#8B,#83,#84,#85,0,0,#86,#83,#84,#86,#83,#84,#83,#87,#81,#86,#83,#84,#87,#83,#84) 140 LC6,7 150 ?CHR$(#8A,#8C,#81,#85,0,0,#85,0,#85,#89,#8C,0,0,#85,0,#85,0,#85,#85,0,#85) 160 LC6,8 170 ?CHR$(#8A,0,#85,#85,0,0,#87,#83,#85,#84,0,#85,0,#85,0,#87,#83,#85,#87,#8B) 180 LC6,9 190 ?CHR$(#83,#83,0,#83,#83,#81,#81,0,#81,#82,#83,0,0,#81,0,#81,0,#81,#81,0,#81) 200 FORI=1TO2 210 PLAY"T200L16O3CECECDBABADACECEBDACDBDCEGG 220 IFSOUND()CONT 230 PLAY"T200L16O4CECECDBABADACECEBDACDBDCEGG 240 IFSOUND()CONT 250 NEXT 260 CLS 270 ?"BY E.R.MUSK 280 WAIT60 290 CLS 300 LC12,3 310 ?"BLASTAR 320 LC4,7 330 ?"DO YOU NEED INSTRUCTIONS 340 LC13,9 350 ?"(Y/N) 360 CLK 370 I=INKEY() 380 IF!IGOTO370 390 IFI<>89ANDI<>121GOTO570 400 CLS 410 LC8,3 420 ?"<USE ARROW KEY> 430 LC8,5 440 ?"FOR CONTROL AND 450 LC10,7 460 ?"FIRE BUTTON 470 LC11,9 480 ?"TO SHOOT 490 LC0,15 500 ?"MISSION:DESTROY ALIEN FREIGHTER 510 ? 520 ?"CARRYING DEADLY HYDROGEN BOMBS 530 ? 540 ?"AND STATUS BEAM MACHINES 550 CLK 560 IF!INKEY()CONT 570 LRUNFILE()+1 'please SAVE (1/2) 'OK
