mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
9 lines
288 B
QBasic
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
|
|
|