dos33fsprogs/textmode/textscroll/boxes.bas

11 lines
273 B
QBasic
Raw Normal View History

2021-04-26 18:21:19 +00:00
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