dos33fsprogs/appleiibot/asteroid.bas
2020-10-14 11:27:12 -04:00

9 lines
288 B
QBasic

0 HGR2:POKE232,0:POKE233,3:FOR L=768TO777:READB:POKEL,B:NEXT:DATA 1,0,4,0,58,36,45,54,7,0
1 SCALE=20:R=0
5 FOR I=1 TO 5:X(I)=INT(RND(1)*192)+1:Y(I)=INT(RND(1)*192)+1:NEXT I
30 ROT=R:R=R+1
38 FOR I=1 TO 5:XDRAW 1 AT X(I),Y(I):NEXT I
45 FOR I=1 TO 5:XDRAW 1 AT X(I),Y(I):NEXT I
90 GOTO 30