mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
10 lines
155 B
QBasic
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 "-!/\*+^%
|