Hi there!
Here's another Christmas greeting.
remstart
------------------------------------------------------------------------------
A Christmas and New Year greeting
------------------------------------------------------------------------------
remend
rem This command will hide the mouse pointer
hide mouse
rem Determine centre of screen width
sc=screen width()/2
rem Until Esc key or F12 key is pressed
repeat
rem Clear screen
cls
rem Set n counter
n=0
rem Call function to change text style and size and ink colour
rem and increment n counter before next call
splashscreen("arial",21,"b",0,255,0,sc,n,"Wishing")
inc n
splashscreen("arial",21,"b",0,255,0,sc,n,"you a very")
inc n
splashscreen("arial",21,"b",255,0,0,sc,n,"MERRY CHRISTMAS")
inc n
splashscreen("arial",21,"b",0,255,0,sc,n,"and a")
inc n
splashscreen("arial",21,"b",255,0,0,sc,n,"HAPPY NEW YEAR")
n=15
splashscreen("arial",14,"n",255,0,0,sc,n,"Press Esc key or F12 key to end")
rem A short pause before proceeding
wait 500
until key>0
rem End programme
end
remstart
------------------------------------------------------------------------------
Function to change text style and size and ink colour
------------------------------------------------------------------------------
remend
function splashscreen(font$,sz,style$,r,g,b,sc,n,string$)
set text font font$,1
set text size sz
if style$="b" then set text to bold
if style$="n" then set text to normal
ink rgb(r,g,b),0
th=text height("X")
center text sc,n*th+189,string$
endfunction
gearce
(GRC)
LANG MEY YER LUM REEK
Whatever the job you are asked to do at whatever level, do a good job because your reputation is your resume.
