Category : Files from Magazines
Archive   : DBMS0291.ZIP
Filename : OLYMPIA1.FEB

 
Output of file : OLYMPIA1.FEB contained in archive : DBMS0291.ZIP


Listing 1


*-- Find the current video mode
startmode = -1
CALL spparams WITH startmode
startmode = spreturnn && ctns current video mode

*-- Now set the video mode to EGA
mode = 16 && EGA
CALL spparams WITH mode
CALL spcall WITH "SWSETVMODE"

*-- Display the picture
pictfile = "Pict2.pcx"
CALL spparams WITH pictfile
CALL spcall WITH "SWPOPSLIDE()" && this is it

*-- Delay for 4 seconds
delay = 4*18
CALL spparams WITH delay
CALL spcall WITH "SWDELAY"

*-- Reset the video mode to what it was before
CALL spparams WITH startmode
CALL spcall WITH "SWSETVMODE"