[mirrors/Programs.git] / turbobasic / floppy-party / STROBE.BAS

'TURBO BASIC STROBE BY HARVIE 2010\r
\r
SCREEN 1\r
DO\r
	COLOR 255: CLS\r
	DELAY 0.07\r
	COLOR 0: CLS\r
	DELAY 0.2\r
	IF INKEY$<>"" THEN EXIT LOOP\r
LOOP\r
\1a
Commit	Line	Data
8986c5cd H	1	'TURBO BASIC STROBE BY HARVIE 2010\r
	2	\r
	3	SCREEN 1\r
	4	DO\r
	5	COLOR 255: CLS\r
	6	DELAY 0.07\r
	7	COLOR 0: CLS\r
	8	DELAY 0.2\r
	9	IF INKEY$<>"" THEN EXIT LOOP\r
	10	LOOP\r
	11	\1a