A simple matrix style screen loader

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem SCROLLING DEMO OF SORTS



rem set ink colour
ink rgb(20,100,255),1
rem set cursor pos and print text
set cursor 240,200; print "A  DARKBASiC  EFFORT"
rem wait 3 secs
wait 3000
rem clear screen
cls

rem set ink again, cursor, wait 2 secs then clear screen
ink rgb(200,255,20),1
set cursor 280,96; print "MATRIX ?"
wait 2000
cls

rem set ink again, cursor, wait 2 secs then clear screen
ink rgb(255,0,0),1
set cursor 250,112; print "NOT EVEN CLOSE"
wait 2000
cls

rem set cursor then do main loop
set cursor 0,0 
repeat
	rem set a random ink
	ink rnd(32000),1

	rem print a number between 0 and 1, the ; seems ta make the numbers 
	rem go across the screen, remove ; to see what happens
	print rnd(1);
until mouseclick()=1