dos33fsprogs/textmode/textscroll/matrix.bas

mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-01 16:04:55 +00:00
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 "-!/\*+^%
demo: more work-in-progress 2021-05-10 05:49:01 +00:00			`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 "-!/\*+^%`