Game Help/GameHelpVolume1_1994/GAMEHELP.ISO/demos/divers/wordatl/resource.002

Text File | 1994-03-03 | 17.4 KB | 861 lines

DEFINE PROCEDURE NAME MAIN
update vdu palette
clear display buffer

window 0,0,maximum,maximum
set top margin 0
set left margin 0
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore resource.005
use image palette
update vdu screen
fade palette in
wait 5 seconds
set fade speed to 3

set window top 0
set window left 0
set window height to maximum
set window width to maximum
clear display buffer
crosshatch backdrop colour grey

fade palette out
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.000
use image palette
update vdu screen
fade palette in
wait 5 seconds

crosshatch backdrop colour grey
use graphic icon image nostore scrnshot.000
crosshatch backdrop
use array resource.002 array_1
copy bitmap blocks from buffer to vdu
wait 2 seconds

set top margin 2
set left margin 2
window 150,automatic,310,940
use window colour green
generate window
use textbox ysize = 0 xsize = 0
use font resource.003
use text normal colour brightwhite
use cursor xposition automatic yposition 2
use text resource.006 welcome
use cursor xposition automatic yposition + 4
use text resource.006 welcome1
use cursor xposition automatic yposition + 4
use text resource.006 welcome2
use cursor xposition automatic yposition + 4
use text resource.006 version
update vdu screen
wait 1 seconds

window 580,automatic,290,720
use window colour grey
generate window
set left margin 0
use textbox ysize = 10 xsize = 380
use text format justified
use font resource.004
use text normal colour lightcyan
use cursor xposition automatic yposition 2
use text resource.006 welcome_info
update vdu screen
wait 5 seconds

clear display buffer
set window top 0
set window left 0
set window height to maximum
set window width to maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.001
fade palette out
use image palette
update vdu screen
fade palette in
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
set window height 160
use window colour green
generate window
use textbox ysize = 10 xsize = 400
use font resource.003
use cursor xposition automatic yposition 2
use text resource.006 select_a_continent
update vdu screen
wait 5 seconds

clear display buffer
set window top 0
set window left 0
set window height to maximum
set window width to maximum
set top margin 0
set left margin 0

fade palette out
crosshatch backdrop colour grey
use image palette
update vdu screen
fade palette in

use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.002
use image palette
update vdu palette
use array resource.002 array_1
copy bitmap blocks from buffer to vdu
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour green
set window height 230
generate window
use font resource.003
use cursor xposition automatic yposition 2
use text resource.006 select_a_country
update vdu screen
wait 5 seconds

clear display buffer
set window top 0
set window left 0
set window height to maximum
set window width to maximum
set top margin 0
set left margin 0

fade palette out
crosshatch backdrop colour grey
use image palette
update vdu screen
fade palette in

use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.003
use array resource.002 array_2
copy bitmap blocks from buffer to vdu
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour yellow
generate window

use textbox ysize = 0 xsize = 0
use font resource.003
use cursor xposition automatic yposition automatic
use text resource.006 view_a_country
update vdu screen
wait 5 seconds
fade palette out

clear display buffer
set window top 0
set window left 0
set window height to maximum
set window width to maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.004
fade palette out
update vdu screen
use image palette
fade palette in
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour yellow
generate window

use textbox ysize = 0 xsize = 0
use font resource.003
use cursor xposition automatic yposition automatic
use text resource.006 view_a_city
update vdu screen
wait 5 seconds

clear display buffer
set window top 0
set window left 0
set window height to maximum
set window width to maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.005
fade palette out
use image palette
update vdu screen
fade palette in
wait 5 seconds

set top margin 2
set left margin 2
window 200,automatic,200,760
use window colour green
generate window
use font resource.003
use textbox ysize = 10 xsize = 420
use cursor xposition automatic yposition 3
use text resource.006 features
update vdu screen
wait 5 seconds

use window resource.002 window_2
window 480,automatic,200,860
use window colour yellow
generate window
use textbox ysize = 10 xsize = 400
use font resource.003
use cursor xposition automatic yposition 2
use text resource.006 demographics
update vdu screen
wait 5 seconds

clear display buffer
set window top 0
set window left 0
set window height to maximum
set window width to maximum
set top margin 0
set left margin 0

crosshatch backdrop colour grey
fade palette out
use image palette
update vdu screen
fade palette in

use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.006
use image palette
update vdu palette
use array resource.002 array_3
copy bitmap blocks from buffer to vdu
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour magenta
generate window
use font resource.003
use textbox size ysize = 0 xsize = 0
use cursor xposition automatic yposition automatic
use text resource.006 statistics
update vdu screen
wait 5 seconds

clear display buffer
window 0,0,maximum,maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.007
fade palette out
use image palette
update vdu screen
fade palette in
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour magenta
generate window
use font resource.003
use cursor xposition automatic yposition automatic
use text resource.006 bargraphs
update vdu screen
wait 5 seconds

clear display buffer
window 0,0,maximum,maximum
set top margin 0
set left margin 0

crosshatch backdrop colour grey
fade palette out
use image palette
update vdu screen
fade palette in

use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.008
use image palette
update vdu palette
use array resource.002 array_5
copy bitmap blocks from buffer to vdu
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour magenta
generate window
use font resource.003
use cursor xposition automatic yposition automatic
use text resource.006 topographic
update vdu screen
wait 5 seconds

clear display buffer
window 0,0,maximum,maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.009
fade palette out
use image palette
update vdu screen
fade palette in
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour magenta
generate window
use font resource.003
use cursor xposition automatic yposition automatic
use text resource.006 bathymetric
update vdu screen
wait 5 seconds

clear display buffer
window 0,0,maximum,maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.010
fade palette out
use image palette
update vdu screen
fade palette in
wait 5 seconds

set top margin 2
set left margin 2
use textbox ysize = 10 xsize = 350
window automatic,automatic,200,860
use window colour green
generate window
use font resource.003
use cursor xposition automatic yposition 2
use text resource.006 converter
update vdu screen
wait 5 seconds

clear display buffer
window 0,0,maximum,maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.011
fade palette out
use image palette
update vdu screen
fade palette in
wait 5 seconds

set top margin 2
set left margin 2
use window resource.002 window_2
use window colour green
generate window

use textbox ysize = 0 xsize = 0
use font resource.003
use cursor xposition automatic yposition automatic
use text resource.006 distance
update vdu screen
wait 5 seconds

clear display buffer
window 0,0,maximum,maximum
set top margin 0
set left margin 0
crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.012
fade palette out
use image palette
update vdu screen
fade palette in
wait 5 seconds

clear display buffer
window 0,0,maximum,maximum
set top margin 0
set left margin 0

crosshatch backdrop colour grey
use cursor xposition automatic yposition automatic
USE GRAPHIC ICON IMAGE nostore scrnshot.000
use text format normal
fade palette out
update vdu screen
use image palette
fade palette in
wait 5 seconds

crosshatch backdrop
use array resource.002 array_1
copy bitmap blocks from buffer to vdu
wait 2 second

window 100,automatic,140,960
use window colour green
generate window
use textbox ysize = 0 xsize = 0
use font resource.003
use text normal colour brightwhite
use cursor xposition automatic yposition 3
use text resource.006 sku_title
use cursor xposition automatic yposition + 3
use text resource.006 sku_platform
update vdu screen
wait 2 seconds

window 340,automatic,300,880
generate window
use font resource.004
use text normal colour lightcyan
use textbox ysize = 0 xsize = 0
use cursor xposition automatic yposition 3
use text resource.006 sku_hardware_title
use textbox ysize = 1 xsize = 470
use cursor xposition automatic yposition + 2
use text resource.006 sku_hardware_info
use cursor xposition automatic yposition + 2
use text resource.006 sku_hardware_info1
use cursor xposition automatic yposition + 2
use text resource.006 sku_hardware_info2
use cursor xposition automatic yposition + 2
use text resource.006 sku_hardware_info3
use cursor xposition automatic yposition + 2
use text resource.006 sku_hardware_info4
use cursor xposition automatic yposition + 2
use text resource.006 sku_hardware_info5
use cursor xposition automatic yposition + 2
use text resource.006 sku_hardware_info6
update vdu screen
wait 2 seconds

window 700,automatic,200,780
generate window
use font resource.004
use text normal colour lightcyan
use textbox ysize = 0 xsize = 0
use cursor xposition automatic yposition 3
use text resource.006 sku_software_title
use textbox ysize = 20 xsize = 400
use cursor xposition automatic yposition + 2
use text resource.006 sku_software_info

update vdu screen
wait 8 seconds
fade palette out
goto procedure resource.002 main

****

DEFINE WINDOW NAME window_2
TOP                     automatic
LEFT                    automatic
HEIGHT                  100
WIDTH                   900
END

**** position, size, time.

define array name array_1
0,0,40,64,0
0,64,40,64,0
0,128,40,64,0
0,192,40,64,0
0,256,40,64,0
0,320,40,64,0
0,384,40,64,0
0,448,40,64,0
0,512,40,64,0
0,576,40,64,0
40,576,40,64,0
40,512,40,64,0
40,448,40,64,0
40,384,40,64,0
40,320,40,64,0
40,256,40,64,0
40,192,40,64,0
40,128,40,64,0
40,64,40,64,0
40,0,40,64,0
80,0,40,64,0
80,64,40,64,0
80,128,40,64,0
80,192,40,64,0
80,256,40,64,0
80,320,40,64,0
80,384,40,64,0
80,448,40,64,0
80,512,40,64,0
80,576,40,64,0
120,576,40,64,0
120,512,40,64,0
120,448,40,64,0
120,384,40,64,0
120,320,40,64,0
120,256,40,64,0
120,192,40,64,0
120,128,40,64,0
120,64,40,64,0
120,0,40,64,0
160,0,40,64,0
160,64,40,64,0
160,128,40,64,0
160,192,40,64,0
160,256,40,64,0
160,320,40,64,0
160,384,40,64,0
160,448,40,64,0
160,512,40,64,0
160,576,40,64,0
200,576,40,64,0
200,512,40,64,0
200,448,40,64,0
200,384,40,64,0
200,320,40,64,0
200,256,40,64,0
200,192,40,64,0
200,128,40,64,0
200,64,40,64,0
200,0,40,64,0
240,0,40,64,0
240,64,40,64,0
240,128,40,64,0
240,192,40,64,0
240,256,40,64,0
240,320,40,64,0
240,384,40,64,0
240,448,40,64,0
240,512,40,64,0
240,576,40,64,0
280,576,40,64,0
280,512,40,64,0
280,448,40,64,0
280,384,40,64,0
280,320,40,64,0
280,256,40,64,0
280,192,40,64,0
280,128,40,64,0
280,64,40,64,0
280,0,40,64,0
320,0,40,64,0
320,64,40,64,0
320,128,40,64,0
320,192,40,64,0
320,256,40,64,0
320,320,40,64,0
320,384,40,64,0
320,448,40,64,0
320,512,40,64,0
320,576,40,64,0
360,576,40,64,0
360,512,40,64,0
360,448,40,64,0
360,384,40,64,0
360,320,40,64,0
360,256,40,64,0
360,192,40,64,0
360,128,40,64,0
360,64,40,64,0
360,0,40,64,0
400,0,40,64,0
400,64,40,64,0
400,128,40,64,0
400,192,40,64,0
400,256,40,64,0
400,320,40,64,0
400,384,40,64,0
400,448,40,64,0
400,512,40,64,0
400,576,40,64,0
440,576,40,64,0
440,512,40,64,0
440,448,40,64,0
440,384,40,64,0
440,320,40,64,0
440,256,40,64,0
440,192,40,64,0
440,128,40,64,0
440,64,40,64,0
440,0,40,64,0
end

****

define array name array_2
0,0,480,16,0
0,16,480,16,0
0,32,480,16,0
0,48,480,16,0
0,64,480,16,0
0,80,480,16,0
0,96,480,16,0
0,112,480,16,0
0,128,480,16,0
0,144,480,16,0
0,160,480,16,0
0,176,480,16,0
0,192,480,16,0
0,208,480,16,0
0,224,480,16,0
0,240,480,16,0
0,256,480,16,0
0,272,480,16,0
0,288,480,16,0
0,304,480,16,0
0,320,480,16,0
0,336,480,16,0
0,352,480,16,0
0,368,480,16,0
0,384,480,16,0
0,400,480,16,0
0,416,480,16,0
0,432,480,16,0
0,448,480,16,0
0,464,480,16,0
0,480,480,16,0
0,496,480,16,0
0,512,480,16,0
0,528,480,16,0
0,544,480,16,0
0,560,480,16,0
0,576,480,16,0
0,592,480,16,0
0,608,480,16,0
0,624,480,16,0
end

****

define array name array_3
0,624,480,16,0
0,608,480,16,0
0,592,480,16,0
0,576,480,16,0
0,560,480,16,0
0,544,480,16,0
0,528,480,16,0
0,512,480,16,0
0,496,480,16,0
0,480,480,16,0
0,464,480,16,0
0,448,480,16,0
0,432,480,16,0
0,416,480,16,0
0,400,480,16,0
0,384,480,16,0
0,368,480,16,0
0,352,480,16,0
0,336,480,16,0
0,320,480,16,0
0,304,480,16,0
0,288,480,16,0
0,272,480,16,0
0,256,480,16,0
0,240,480,16,0
0,224,480,16,0
0,208,480,16,0
0,192,480,16,0
0,176,480,16,0
0,160,480,16,0
0,144,480,16,0
0,128,480,16,0
0,112,480,16,0
0,96,480,16,0
0,80,480,16,0
0,64,480,16,0
0,48,480,16,0
0,32,480,16,0
0,16,480,16,0
0,0,480,16,0
end

****

define array name array_4
440,0,40,64,0
400,0,40,64,0
440,64,40,64,0
360,0,40,64,0
400,64,40,64,0
440,128,40,64,0
320,0,40,64,0
360,64,40,64,0
400,128,40,64,0
440,192,40,64,0
280,0,40,64,0
320,64,40,64,0
360,128,40,64,0
400,192,40,64,0
440,256,40,64,0
240,0,40,64,0
280,64,40,64,0
320,128,40,64,0
360,192,40,64,0
400,256,40,64,0
440,320,40,64,0
200,0,40,64,0
240,64,40,64,0
280,128,40,64,0
320,192,40,64,0
360,256,40,64,0
400,320,40,64,0
440,384,40,64,0
160,0,40,64,0
200,64,40,64,0
240,128,40,64,0
280,192,40,64,0
320,256,40,64,0
360,320,40,64,0
400,384,40,64,0
440,448,40,64,0
120,0,40,64,0
160,64,40,64,0
200,128,40,64,0
240,192,40,64,0
280,256,40,64,0
320,320,40,64,0
360,384,40,64,0
400,448,40,64,0
440,512,40,64,0
80,0,40,64,0
120,64,40,64,0
160,128,40,64,0
200,192,40,64,0
240,256,40,64,0
280,320,40,64,0
320,384,40,64,0
360,448,40,64,0
400,512,40,64,0
440,576,40,64,0
40,0,40,64,0
80,64,40,64,0
120,128,40,64,0
160,192,40,64,0
200,256,40,64,0
240,320,40,64,0
280,384,40,64,0
320,448,40,64,0
360,512,40,64,0
400,576,40,64,0
0,0,40,64,0
40,64,40,64,0
80,128,40,64,0
120,192,40,64,0
160,256,40,64,0
200,320,40,64,0
240,384,40,64,0
280,448,40,64,0
320,512,40,64,0
360,576,40,64,0
0,64,40,64,0
40,128,40,64,0
80,192,40,64,0
120,256,40,64,0
160,320,40,64,0
200,384,40,64,0
240,448,40,64,0
280,512,40,64,0
320,576,40,64,0
0,128,40,64,0
40,192,40,64,0
80,256,40,64,0
120,320,40,64,0
160,384,40,64,0
200,448,40,64,0
240,512,40,64,0
280,576,40,64,0
0,192,40,64,0
40,256,40,64,0
80,320,40,64,0
120,384,40,64,0
160,448,40,64,0
200,512,40,64,0
240,576,40,64,0
0,256,40,64,0
40,320,40,64,0
80,384,40,64,0
120,448,40,64,0
160,512,40,64,0
200,576,40,64,0
0,320,40,64,0
40,384,40,64,0
80,448,40,64,0
120,512,40,64,0
160,576,40,64,0
0,384,40,64,0
40,448,40,64,0
80,512,40,64,0
120,576,40,64,0
0,448,40,64,0
40,512,40,64,0
80,576,40,64,0
0,512,40,64,0
40,576,40,64,0
0,576,40,64,0
end

****

define array name array_5
220,304,22,32,0
209,288,44,64,0
198,272,66,96,0
187,256,88,128,0
176,240,110,160,0
165,224,132,192,0
154,208,154,224,0
143,192,176,256,0
132,176,198,288,0
121,160,220,320,0
110,144,242,352,0
99,128,264,384,0
88,112,286,416,0
77,96,308,448,0
66,80,330,480,0
55,64,352,512,0
44,48,374,544,0
33,32,396,576,0
22,16,418,608,0
11,0,440,640,0
0,0,480,640,0
end

****