dos33fsprogs/basic/appleiibot/asteroid.bas
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05: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