[mirrors/Programs.git] / turbobasic / DDM-CTV2.BAS

cls\r
color 5,7\r
screen 1\r
for a=1 to 319\r
\r
cls\r
line (1,1)-(319,199),5,b\r
wait (10)\r
line (a,1)-(150,199)\r
next a\r
end\1a
Commit	Line	Data
0f95cc4b H	1	cls\r
	2	color 5,7\r
	3	screen 1\r
	4	for a=1 to 319\r
	5	\r
	6	cls\r
	7	line (1,1)-(319,199),5,b\r
	8	wait (10)\r
	9	line (a,1)-(150,199)\r
	10	next a\r
	11	end\1a