[mirrors/Programs.git] / turbobasic / 1998 / VO-PSANI.BAS

T$="A"\r
O$="H"\r
M$="O"\r
A$="J"\r
S$="!"\r
FOR I=1 TO 3000\r
CLS\r
COLOR 14,1\r
SCREEN 0\r
LOCATE 2,23\r
PRINT T$\r
LOCATE 3,23\r
PRINT O$\r
LOCATE 4,23\r
PRINT M$\r
LOCATE 5,23\r
PRINT A$\r
LOCATE 6,23\r
PRINT S$\r
\r
FOR D=1 TO 300\r
NEXT D\r
NEXT I\r
END\r
\r
\r
\r
\r
\r
\r
\1a
Commit	Line	Data
	1	T$="A"\r
	2	O$="H"\r
	3	M$="O"\r
	4	A$="J"\r
	5	S$="!"\r
	6	FOR I=1 TO 3000\r
	7	CLS\r
	8	COLOR 14,1\r
	9	SCREEN 0\r
	10	LOCATE 2,23\r
	11	PRINT T$\r
	12	LOCATE 3,23\r
	13	PRINT O$\r
	14	LOCATE 4,23\r
	15	PRINT M$\r
	16	LOCATE 5,23\r
	17	PRINT A$\r
	18	LOCATE 6,23\r
	19	PRINT S$\r
	20	\r
	21	FOR D=1 TO 300\r
	22	NEXT D\r
	23	NEXT I\r
	24	END\r
	25	\r
	26	\r
	27	\r
	28	\r
	29	\r
	30	\r
	31	\1a