mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-17 14:12:58 +00:00
13 lines
216 B
QBasic
13 lines
216 B
QBasic
|
10 HGR2
|
||
|
|
20 X=192*RND(1):Y=192*RND(1)
|
||
|
|
30 L=0:LL=0
|
||
|
|
40 V=INT(4*RND(1))
|
||
|
|
50 IF V=LL THEN 40
|
||
|
|
60 X=X/2:Y=Y/2
|
||
|
|
70 IF V<2 THEN X=X+96
|
||
|
|
80 IF V=1 OR V=2 THEN Y=Y+96
|
||
|
|
90 HPLOT 43+X,Y
|
||
|
|
100 LL=L:L=V+1
|
||
|
|
110 IF L=4 THEN L=0
|
||
|
|
120 GOTO 40
|