Program post site for everyone
2 プログラム のうち、プログラム 2 です。
(プログラム 1)＋ 1 ＝(プログラム 2) の状態で、
本体・EEPROM に保存してから実行して下さい。
詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。
CLS:' NEW 100 ' BY E.R.MUSK 110 POKE240*8,#99,#99,#99,#E7,#C3,#C3,#C3,#C3 120 POKE241*8,0,0,#42,#A5,#42,0,0,0 130 POKE242*8,#18,#42,#E7,#BD,#5A,#24,#3C,#66 140 POKE243*8,0,#10,#38,#7C,#7C,#38,#10,0 150 X=0:Y=5:P=16:C=22:W=0 160 H=0:G=RND(20)+1:CLS 170 LC3,0:?"SCORE ";X 180 LC22,0:?"SHIPS ";Y 190 D=PEEK(#1002):CLT 200 IFTICK()<5CONT 210 O=P-(P>0)*(D&1)+(P<30)*((D&2)/2) 220 B=C-(C>1)*((D&4)/4)+(C<22)*((D&8)/8) 230 IFO=PANDB=CGOTO250 240 LCP,C:?" " 250 LCO,B:?CHR$(240):P=O:C=B 260 IF!(D&16)GOTO300 270 PLAY"L16O3DO4F" 280 IFW>0LCU,W:?" " 290 U=P:W=C 300 IFW=0GOTO390 310 LCU,W:?" ":W=W-1 320 IFW=0GOTO390 330 LCU,W:?CHR$(241) 340 IFW<>GOR(U<>HANDU<>H+1)GOTO390 350 LCU,W:?" " 360 LCH,G:?CHR$(244):WAIT60 370 LCH,G:?" ":H=0:G=RND(20)+1 380 X=X+80:GOTO160 390 LCH,G:?" ":H=(H+1)%32 400 LCH,G:?CHR$(242) 410 IFH<>PORG>CGOTO190 420 IFRND(3)GOTO190 430 FORZ=G+1TOC 440 PLAY"O2L15G" 450 LCH,Z:?CHR$(243):WAIT5 460 LCH,Z:?" ":NEXT 470 LCP,C:?CHR$(244):WAIT60 480 Y=Y-1:IFY>=0GOTO160 490 LC12,3:?"BLASTAR 500 LC8,5:?"FLEET DESTROYED 510 CLK 'please SAVE (2/2) 'OK
