dos33fsprogs/basic/appleiibot/asteroid.bas

9 lines
288 B
QBasic
Raw Normal View History

2020-10-05 22:55:32 +00:00
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