インベーダもどき

ちなみにインベーダもどきのプログラムを作ってみました。さっそく新機能のDIM命令を使っています。

1 DIM V(6):DIM W(6)
2 FOR I=0 TO 5
3 V(I)=I*10:W(I)=1
4 NEXT
5 X=15:Y=25
6 A=0:B=0
7 WHILE 1
8 CLS
9 LOCATE X,Y:PRINT "A"
10 IF B=0 THEN
11 IF SW AND 16 THEN A=X:B=Y
12 ELSE
13 B=B-1
14 LOCATE A,B:PRINT "!"
15 ENDIF
16 FOR I=0 TO 5
17 IF W(I) THEN
18 LOCATE V(I),W(I):PRINT "M"
19 W(I)=RND % 2 + W(I):V(I)=RND % 3 + V(I)-1
20 IF W(I)>25 THEN W(I)=1
21 IF V(I)=A THEN IF W(I)=B THEN W(I)=0:B=0
22 ENDIF
23 NEXT
24 IF SW AND 8 THEN X=X+1
25 IF SW AND 4 THEN X=X-1
26 IF X<0 THEN X=0
27 IF X>120 THEN X=120
28 WEND

これで500バイトくらい使ってます。
上限が2000バイトなので、これの4倍くらいの規模のプログラムが作れる予定です。