Posted by Robert G Laurin on September 23, 2012 at 07:27:11:
In Reply to: Help with a pic posted by Steve Auerbach on September 22, 2012 at 10:01:15:
Below is a piece of code that I use with CED to display the splash screen.
It is down to bare essential. I do not remember all the specific of how and why, but it works! It works local and remote (Anywhere).
10161 IF VERSION$ > '505' ! CED 04.01
10162 LET isRemote = ASC(SUB(DSTAT(TERM$),21,1)) ! CED 04.01
10170 PRINT (0) (SCREEN=90,25) ! CED 04.01
10180 PRINT (0) (Wall Paper Color=255,255,240) ! CED 04.01
10190 PRINT (0) (MAPMODE=4) ! CED 04.01
10200 LET MYPIC$ = PATH('CED') + 'CED-1201.BMP' ! CED 12.01
10201 IF isRemote = 1 !2 ! 64+128+512+1024! CED 04.01
10202 LET MYPIC$ = PATH('CED') + 'CED-MINI.BMP' ! CED 12.01
10203 PRINT (Copy File=MYPIC$,"$(CATOOLS)\CED-MINI.BMP",1728) ! CED 04.02
10204 INPUT (0) '' ! CED 04.02
10208 LET MYPIC$ = "$(CATOOLS)\CED-MINI.BMP" ! CED 04.02
10209 ENDIF ! CED 04.01
10210 PRINT (0) (Draw Image = 27,4,59,17,100,100,1,MYPIC$) ! CED 04.01
10230 PRINT (0) (Transparent Color=254) ! CED 04.01
10240 PRINT (0,Contribution) ! CED 04.01
10292 ENDIF ! CED 04.01
This draws the image at (27,4)-(59,17) at 100% scale and 1=Stretch/shrink Image
So I used:
(Wallpaper Color=255,255,240)
(MapMode=4)
(Draw Image = 27,4,59,17,100,100,1,MYPIC$)
(Transparent Color=254)
I think the Wallpaper and Transparent had something to do with the rest of the page being displayed properly.
I hope this helps.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.