In the box of QuickBasic 4.25 Professional it has a BAS file that was exactly like this. Really neat. It even played sounds!