dos33fsprogs/textmode/textscroll/matrix.bas

10 lines
155 B
QBasic

0 PR#3
1 T=INT(RND(1)*20)+1
2 B=T+8: IF B>23 THEN B=23
3 L=INT(RND(1)*35)
4 POKE 32,L:POKE 33,1:POKE 34,T:POKE 35,B
5 VTAB T
6 LIST 8
7 GOTO 1
8 "-!/\*+^%