mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-29 23:55:30 +00:00
9 lines
148 B
QBasic
9 lines
148 B
QBasic
|
0 T=INT(RND(1)*20)+1
|
||
|
|
1 B=T+8: IF B>23 THEN B=23
|
||
|
|
2 L=INT(RND(1)*35)
|
||
|
|
3 POKE 32,L:POKE 33,1:POKE 34,T:POKE 35,B
|
||
|
|
4 VTAB T
|
||
|
|
5 LIST 7
|
||
|
|
6 GOTO 0
|
||
|
|
7 "-!/\*+^%
|