mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-17 14:12:58 +00:00
11 lines
273 B
QBasic
11 lines
273 B
QBasic
|
5 GR:POKE 49234,0
|
||
|
|
10 T=INT(RND(1)*20)
|
||
|
|
11 B=T+INT(RND(1)*15)+1: IF B>23 THEN B=23
|
||
|
|
12 L=INT(RND(1)*35)
|
||
|
|
13 W=INT(RND(1)*30)+1:IF W+L>38 THEN W=39-L
|
||
|
|
15 POKE 32,L:POKE 33,W:POKE 34,T:POKE 35,B
|
||
|
|
17 C=INT(RND(1)*96)+32
|
||
|
|
18 HOME
|
||
|
|
20 FOR I=1 TO ((B-T+1)*W)-1:?CHR$(C);:NEXT
|
||
|
|
30 GOTO 10
|