home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
graphics
/
tshow5.zip
/
DEMO.SPT
< prev
next >
Wrap
Text File
|
1993-06-16
|
17KB
|
937 lines
LOAD OPEN5.SCR 4
COLOR 11,0
FONT CAPS.FNT,2
FONT standard.FNT,1
FONTS ON
sTYPE @ 12,38 "P R E S E N T I N G"
delay 1
color 14,0
STYPE @ 12,36 "T E X T - S H O W 5.0"
color 30,0
PRINT @ 12,36 "T E X T - S H O W 5.0"
color 14,0
SLEEP 3
PRINT @ 12,36 "T E X T - S H O W 5.0"
BLINK OFF
color 16,14
type @ 3,18 "MultiMedia Presentations In Text Mode"
color 16,10
print @ 21,47 "PC West Software"
print @ 22,47 " P.O. Box 31418"
print @ 23,45 "Phoenix, AZ 85046"
print @ 24,47 " 602-992-0310"
fxdelay 0
Mouse Set Arrow
Mouse At 10,6
MouseIn1 9,4,11,8 :L1
MouseIn2 13,4,15,8 :L2
MouseIn3 17,4,19,8 :L3
MouseIn4 21,4,23,8 :L4
MouseIn5 9,29,11,33 :L5
MouseIn6 13,29,15,33 :L6
MouseIn7 17,29,19,33 :L7
MouseIn8 21,29,23,33 :L8
MouseIn9 9,54,11,58 :L9
MouseIn0 13,54,18,58 :L0
delay 2
QuilAt 8,24,16,70
BLINK ON
FONT DRAW2.FNT,1
FONT DRAW2.FNT,2
FONTS OFF
XPlay PRESENTS.MUS
QUILT1 *,4
FXDELAY 6
KillXP
SOUND 5
LOAD CURT1.SCR 18
DELAY 2
fxdelay 38
LOAD CURT3.SCR 17
FXDELAY 0
DELAY 45
:MENU
LOAD MAIN.SCR 17
fonts off
MOUSE ON
:MAIN
INPUT 30
IF 1 GOTO :L1
IF 2 GOTO :L2
IF 3 GOTO :L3
IF 4 GOTO :L4
IF 5 GOTO :L5
IF 6 GOTO :L6
IF 7 GOTO :L7
IF 8 GOTO :L8
IF 9 GOTO :L9
IF 0 GOTO :L0
SOUND 4
GOTO :MAIN
'RUN FULL DEMO
:L1
MOUSE OFF
LOAD MAIN.SCR 1
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 9,4,11,28
DELAY .5
COLOR 12,0
PAINT 9,4,11,28
DELAY .5
LOOP 3
BLINK ON
GOTO :L2
'CREATING A LOAD
:L2
MOUSE OFF
LOAD MAIN.SCR 1
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 13,4,15,28
DELAY .5
COLOR 12,0
PAINT 13,4,15,28
DELAY .5
LOOP 5
BLINK ON
LOAD PREP1.SCR 26
color 14,4
print @ 11,10 "EASY TO USE"
color 31
print @ 25,27 "╣ Press a key to continue ╠"
DELAY 35
fonts off
LOAD PREP2.SCR 27
DELAY 35
LOAD PREP3.SCR 32
DELAY 2
SHADOW ON
Box 7,40,14,76,2,59
color 48
PRINT @ 8,42 "The Script Commands are grouped"
print @ 9,42 "together by category. You just"
print @ 10,42 "pull-down the desired menu, then"
print @ 11,42 "highlight your choice, press the"
print @ 12,42 "Enter key and the script command"
print @ 13,42 "is automatically written for you."
delay 10
color 0,0
Box 14,10,20,46,2,79
color 79
print @ 15,12 "Another great feature of ShowPrep"
print @ 16,12 "is that you may interactively run"
print @ 17,12 "your script right from ShowPrep."
print @ 18,12 "That way you may preview your"
print @ 19,12 "show as you create it."
CRWLAT 23,2,79,45
color 14,1
delay 8
crawl "To continue with this demo, press any key when ready. . ."
RETURN :MENU
'FADES
:L3
MOUSE OFF
LOAD MAIN.SCR 9
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 17,4,19,28
DELAY .5
COLOR 12,0
PAINT 17,4,19,28
DELAY .5
LOOP 5
BLINK ON
LOAD BLACK.SCR 17
fonts off
PAL SUBDUED.PAL
LOAD FADES.SCR 35
COLOR 15,1
PRINT @ 8,27 "Text-Show 5.0 will add life"
PRINT @ 9,27 "to your presentations with"
print @ 10,27 "dozen's of dazzling screen"
print @ 11,27 "fades and transitions!"
DELAY 4
COLOR 14,0
LOAD FADES.SCR 1
PRINT @ 10,35 " CURTAINS "
DELAY 1
LOAD CITY.SCR 17
DELAY 1
LOAD FADES.SCR 18
PRINT @ 10,33 " FAST DISSOLVE "
DELAY 2
LOAD CITY.SCR 24
PRINT @ 7,8 " SLOW DISSOLVE "
DELAY 2
LOAD FADES.SCR 25
PRINT @ 10,35 " POUR IT OUT "
delay 2
LOAD CITY.SCR 28
DELAY 1
LOAD FADES.SCR 29
PRINT @ 10,36 " SNAKE "
delay 2
LOAD CITY.SCR 27
DELAY 1
LOAD FADES.SCR 29
PRINT @ 10,35 " SQUEEZE IT "
delay 2
LOAD CITY.SCR 14
DELAY 1
LOAD FADES.SCR 15
PRINT @ 10,36 " BLINDS "
DELAY 2
LOAD CITY.SCR 10
DELAY 1
LOAD FADES.SCR 12
PRINT " EXPLODE "
DELAY 3
LOAD CITY.SCR 26
DELAY 2
LOAD FADES.SCR 37
PRINT @ 10,35 " R A D A R "
DELAY 3
LOAD CITY.SCR 20
DELAY 2
LOAD FADES.SCR 20
PRINT " PAGE ROLL "
DELAY 3
LOAD CITY.SCR 22
DELAY 1
LOAD FADES.SCR 21
PRINT " WEAVE IT "
DELAY 1
LOAD CITY.SCR 32
DELAY 1
LOAD FADES.SCR 33
PRINT " SPLIT UP/DOWN "
DELAY 1
LOAD CITY.SCR 30
DELAY 1
LOAD FADES.SCR 31
PRINT @ 10,34 " PUZZLE PIECES "
delay 2
LOAD CITY.SCR 19
DELAY 1
LOAD FADES.SCR 34
PRINT @ 10,30 " And many, many more. "
delay 2
CLR 13
PAL RESTORE
RETURN :MENU
'CUSTOM FONTS
:L4
Mouse Off
LOAD MAIN.SCR 9
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 21,4,23,28
DELAY .5
COLOR 12,0
PAINT 21,4,23,28
DELAY .5
LOOP 5
BLINK ON
LOAD SEEFONTS.SCR 34
color 31,0
stype @16,7 "PRESS A KEY"
font standard.fnt,1
font script.fnt,2
COLOR 15
delay 20
print @16,6 " "
fonts on
stype @16,10 "Script"
delay 3
print @16,6 " "
FONT OLDENG.FNT,2
stype @16,7 "Old English"
delay 3
print @16,6 " "
FONT SANSERIF.FNT,2
stype @16,9 "San Serif"
delay 3
print @16,6 " "
FONTS OFF
stype @16,6 "And many more"
delay 3
font draw.fnt,1
font draw.fnt,2
LOAD DRAWFNT.SCR 24
fonts on
delay 45
CLR 24
font draw2.fnt,1
font draw2.fnt,2
LOAD DRAWFNT2.SCR 24
delay 45
fxdelay 1
CLR 23
fonts off
BCOL -1
BCHR 220
BWID 1
CLR 15
BPRNT @ 1,20 "TITLE"
BPRNT @ 10,20"FONTS"
DELAY 1
COLOR 12,0
PRINT @ 19,10 "USE THIS FONT FEATURE OF TEXT-SHOW TO DISPLAY LARGE TITLES."
COLOR 14,0
PRINT @ 21,14 "YOU CHOOSE THE SIZE, COLOR AND SHAPE OF THE CHARACTER."
COLOR 7,0
PRINT @ 24,20 "PRESS ANY KEY TO SEE THE FONT FEATURES."
delay 20
CLS
BWID 2
BCHR 178
COLOR 15,4
BCOL 15
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
COLOR 15,0
PRINT @ 21,12 "YOU CONTROL THE SIZE, SHAPE AND COLORS OF THE BIG FONTS."
PRINT @ 23,27 "HERE ARE SOME EXAMPLES. . ."
DELAY 2
BWID 2
BCHR 176
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
DELAY 2
BWID 2
BCHR 177
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
DELAY 2
BCOL 14
BWID 2
BCHR 42
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
DELAY 2
BCOL 11
BWID 2
BCHR 219
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
DELAY 2
BCOL 10
BWID 2
BCHR 186
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
DELAY 2
BCOL 11
BWID 2
BCHR 254
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
DELAY 2
BCOL -1
BWID 2
BCHR 220
BPRNT @ 1,1 "LARGE"
BWID 1
BPRNT @ 10,24 "SMALL"
RETURN :MENU
'SPECIAL FX
:L5
Mouse Off
LOAD MAIN.SCR 9
BCOL -1
BCHR 220
BWID 1
QuilAt 12,12,12,12
FXDELAY 0
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 9,29,11,53
DELAY .5
COLOR 12,0
PAINT 9,29,11,53
DELAY .5
LOOP 5
BLINK ON
CLR 24
PAL SUBDUED.PAL
Quilt1 *,5
COLOR 15,1
BOX 3,19,20,62,2,31
BPRNT @ 4,21 "QUILT"
BPRNT @ 12,34 "FX"
QuilAt 3,20,20,62
Quilt1 *,5
BOX 3,19,20,62,2,79
COLOR 79
PRINT @ 6,21 "The quilting effects in Text-Show 5.0"
print @ 8,21 "gives the ability to display dazzling"
print @ 10,21 "patterns of ascii characters or text in"
print @ 12,21 "a designated area of the screen. You"
print @ 14,21 "may have two quilting displays on one"
print @16,21 "screen. Press a key to see an example."
Quilt1 ∙,15
PAL RESTORE
QUILT2 ▓,3
DOLOOP
Quilt1 ∙,.05
QUILT2 ▓,.05
LOOP 20
DOLOOP
Quilt1 ∙,.05
QUILT2 ▓,.05
LOOP 20
DOLOOP
Quilt1 ∙,.05
QUILT2 ▓,.05
LOOP 20
LOAD RED.SCR 19
color 79
PRINT @ 12,18 "You may also use text with the Quilting Effect!"
delay 3
color 8,0
tile "TEXT-SHOW "
delay 2
QuilAt 1,1,1,1
quilt1 TEXT-SHOW ,5
QuilAt 3,20,20,62
DOLOOP
Quilt1 TEXT-SHOW ,.05
QUILT2 5.0 ,.05
LOOP 20
DOLOOP
Quilt1 TEXT-SHOW ,.05
QUILT2 5.0 ,.05
LOOP 20
QUILT1 █,5
QUILT1 ,4
LOAD ROCKET1.SCR 20
delay 1
Box 3,8,7,31,2,79
COLOR 79
print @ 5,11 "Animation sequence"
delay 2
fxdelay 50
LOAD ROCKET1.SCR 1
LOAD ROCKET2.SCR 26
delay 3
DoLoop
LOAD ROCKET1.SCR 1
DELAY .5
LOAD ROCKET2.SCR 1
DELAY .5
LOOP 5
LOAD ROCKET1.SCR 1
delay 1
FXDELAY 10
Play MB O0 L45 agagagagagagagagagagagagagagagagagagagBgBgBgBGBGBGBBBGBB
shake 5
PLAY gBgBgBgBGBGBGgBgBgBgBGBGBGBBBBBB
LOAD rocket3.SCR 34
LOAD CITY.SCR 34
PLAY MF O1 G
sound 5
COLOR 14,1
STYPE @ 7,3 "How about an . . . . . . . . . . . "
DELAY 1
LOAD QUAK1.SCR 8
delay 2
SHAKE 20
FXDELAY 0
LOAD QUAK2.SCR 10
DELAY 3
FONT DRAW2.FNT,1
FONT DRAW2.FNT,2
FONTS ON
LOAD PALETTE.SCR 3
color 14,0
DELAY 10
Stype @ 10,38 "P A S T E L S"
PAL PASTELS.PAL
DELAY 4
Stype @ 10,38 "S U B D U E D"
PAL SUBDUED.PAL
DELAY 4
PRINT @ 10,38 " "
Stype @ 10,38 "R E D S"
PAL RED.PAL
DELAY 4
PRINT @ 10,38 " "
Stype @ 10,38 "R E V E R S E"
PAL REVERSE.PAL
DELAY 4
PRINT @ 10,38 " "
Stype @ 10,38 "B R I G H T"
PAL BRITE.PAL
DELAY 4
PAL RESTORE
LOAD PALETE2.SCR 6
delay 20
PAL SUBDUED.PAL
PAL DARK.PAL
PAL BLACK.PAL
CLR 1
FXDELAY 10
PAL RESTORE
LOAD FADES.SCR 23
FXDELAY 0
COLOR 30
PRINT @ 9,30 " PAINT THE SCREEN "
DELAY 2
COLOR 15,4
PAINT 1,1,12,40
DELAY 2
PRINT @ 11,32 "YOU CHOOSE COLORS"
DELAY 2
COLOR 95
PAINT 1,41,12,80
PRINT @ 13,32 "AND THE LOCATION "
DELAY 2
COLOR 0,3
PAINT 13,1,25,40
DELAY 2
COLOR 32
PAINT 13,41,25,80
DELAY 2
PAL SUBDUED.PAL
PAL DARK.PAL
PAL BLACK.PAL
CLR 1
pal subdued.pal
LOAD TIME.SCR 35
color 15,1
DATE @ 11,37
COLOR 12,0
TIME2 @ 14,20 .1
TIME1 @ 14,55 20
CLR 30
PAL RESTORE
LOAD CHART1.SCR 19
COLOR 10
PRINT @ 10,45 "Display Graphs & Charts. . ."
DELAY 3
LOAD CHART2.SCR 24
delay 3
LOAD SCORE.SCR 22
delay 2
COLOR 96
crwlat 24,3,78,45
crawl "Press any key to continue. . ."
CLR 18
FONTS OFF
RETURN :MENU
'USER INPUT
:L6
Mouse Off
LOAD MAIN.SCR 9
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 13,29,15,53
DELAY .5
COLOR 12,0
PAINT 13,29,15,53
DELAY .5
LOOP 5
BLINK ON
LOAD USER1.SCR 25
delay 30
LOAD USERINP.SCR 6
FONT STANDARD.FNT,1
FONT SCRIPT.FNT,2
$Size 20
Sound 5
color 0,7
Get @ 8,19 $1
$Size 20
Get @ 12,19 $2
$Size 22
Get @ 16,19 $3
$Size 3
Get @ 20,19 $4
LOAD USER2.SCR 14
fonts on
color 78
DATE @ 6,28
color 79
$PRINT @ 8,8 $1
$PRINT @ 9,8 $2
$print @ 10,8 $3
$print @ 12,14 $1
$print @ 14,39 $4
$print @ 16,20 $2
delay 2
color 71
crwlat 22,7,42,45
crawl "Press a key to continue. . ."
LOAD USRTXT.SCR 14
fonts off
$Size 22
Read TEST.TXT
delay 15
LOAD USERINP.SCR 6
color 0,7
$type @ 8,19 $1
$Type @ 12,19 $2
$Type @ 16,19 $3
$Type @ 20,19 $4
delay 2
LOAD USER2.SCR 14
fonts on
color 78
DATE @ 6,28
color 79
$PRINT @ 8,8 $1
$PRINT @ 9,8 $2
$print @ 10,8 $3
$print @ 12,14 $1
$print @ 14,39 $4
$print @ 16,20 $2
delay 2
QuilAt 4,7,23,44
fxdelay 0
Quilt1 *,7
FONTS OFF
RETURN :MENU
'SOUND & MUSIC
:L7
Mouse Off
LOAD MAIN.SCR 9
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 17,29,19,53
DELAY .5
COLOR 12,0
PAINT 17,29,19,53
DELAY .5
LOOP 5
BLINK ON
PLAY MB T120 O2 P2 P8 L8 GGG L2 E-
CLR 14
LOAD MUS1.SCR 15
PLAY MF P24 P8 L8 FFF L2 D
LOAD MUS2.SCR 24
FONT STANDARD.FNT,1
FONT SANSERIF.FNT,2
Fonts On
color 15,0
at 5,46
print @ 5,46 "TEXT-SHOW 5.0 is a multi-media"
at 6,46
print @ 6,46 "program featuring music, sound"
at 7,46
print @ 7,46 "and voice from your pc and"
at 8,46
print @ 8,46 "external speakers."
At 10,46
print @ 10,46 "TEXT-SHOW can now play files"
At 11,46
print @ 11,46 "created with a Sound Blaster"
At 12,46
print @ 12,46 "card and software (VOC/CMF)."
COLOR 14
PRINT @ 14,46 "Press a key for some music"
DELAY 12
KILLXB
XPlay LAMAR.MUS
COLOR 2
print @ 2,1 "Even if you don't have a Sound"
print @ 3,1 "Blaster card, you may still"
print @ 4,1 "create sound and music through"
print @ 5,1 "music through your pc speaker."
DELAY 5
BOX 5,46,14,78,0,0,15
COLOR 14
print @ 6,46 "We have created music & sound"
print @ 7,46 "script commands based on the"
print @ 8,46 "Basic Music Language. You may"
print @ 9,46 "play external music files or"
print @ 10,46 "play music right from your"
print @ 11,46 "script. You may play music in"
print @ 12,46 "background while changing the"
print @ 13,46 "screen or printing words to"
print @ 14,46 "the screen."
color 12,0
print @ 16,47 "Press a key and sing along!"
color 4,4
DELAY 25
at 4,46
color 15,0
KillXP
LOAD MUS4.SCR 20
PLAY O2 T75 mn
PRINT "Oh when the Saints"
PLAY C16 E16 F16 ml G4 mn G16
PRINT " "
PRINT "Go marching in,"
PLAY C16 E16 F16 ml G4 mn G16
PRINT " "
PRINT "Oh when the Saints go "
print @ 5,46 "marching in,"
PLAY C16 E16 F16 G8 E8 C8 E8 ml D4 mn D8
PRINT @ 4,46 "Lord, how I want to be"
print @ 5,46 "in that number"
PLAY E16 E16 D16 C8. C16 E8 G16 G16 G16 ml F8. mn F8
PRINT @ 4,46 "When the Saints go marching in."
print @ 5,46 " "
PLAY E16 F16 G8 E8 D8 D8 ml C4 mn C8.
DELAY 2
FONTS OFF
RETURN :MENU
'Tools & Stuff
:L8
Mouse Off
LOAD MAIN.SCR 9
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 21,29,23,53
DELAY .5
COLOR 12,0
PAINT 21,29,23,53
DELAY .5
LOOP 5
BLINK ON
SHADOW OFF
COLOR 15,0
BCOL -1
BCHR 220
CLR 36
Box 1,1,11,80,1,0
BPRNT @ 2,10 "RUN-TIME"
PRINT @ 10,35 "Version 5.0"
COLOR 79
BOX 12,4,25,76,2,79
print @ 16,7 "When you receive the registered version of TEXT-SHOW 5.0, you'll"
print @ 17,7 "also receive a runtime version, named TXDEMO, and a utility program"
print @ 18,7 "named MAKESHOW. You use the MAKESHOW utility to create a run-time"
print @ 19,7 "version of your script file. You may then freely distribute your"
print @ 20,7 "show/demo with no royalties or charges."
color 15,4
print @ 23,28 "< Press any key to continue >"
DELAY 30
LOAD RED.SCR 8
BORDER 176
print @ 5,10 " T E X T - L I B R A R Y V e r s i o n 5 . 0 "
DELAY 1
COLOR 78
PRINT @ 9,8 "Now you can store all your presentation screens in a single library."
delay 4
print @ 12,5 "The registered version includes the program: TEXT-SHOW SCREEN LIBRARY."
DELAY 4
PRINT @ 15,12 ".......here's a menu screen from the program"
delay 3
LOAD LIBR.SCR 20
DELAY 6
COLOR 79
LOAD RED.SCR 14
print @ 12,17 "And TEXT-SHOW 5.0 features a box drawing utility. . ."
delay 4
LOAD BOXDRAW.SCR 15
delay 5
color 31
print @ 5,45 "<Press a key to continue>"
SHADOW ON
color 47
DELAY 35
LOAD RED.SCR 13
Box 8,22,16,55,2,32
print @ 10,25 "And you receive additional"
print @ 11,25 "screen viewing and screen"
print @ 12,25 "capture utilities when you"
print @ 13,25 "receive your registered copy"
print @ 14,25 "of TEXT-SHOW 5.0"
delay 8
RETURN :MENU
'MOUSE STUFF
:L9
Mouse Off
BLINK OFF
LOAD MAIN.SCR 9
DOLOOP
COLOR 0,12
PAINT 9,54,11,78
DELAY .5
COLOR 12,0
PAINT 9,54,11,78
DELAY .5
LOOP 5
BLINK ON
LOAD MOUS1.SCR 17
MouseIn1 12,10,14,24 :M1
MouseIn2 15,10,17,24 :M2
MouseIn3 18,10,20,24 :M3
MouseIn4 21,10,23,24 :M4
Mouse Set Arrow
Mouse At 12,28
MOUSE ON
:TOP
INPUT 30
IF 1 GOTO :M1
IF 2 GOTO :M2
IF 3 GOTO :M3
IF 4 GOTO :M4
SOUND 5
CLR 22
LOAD MOUS1.SCR 21
GOTO :TOP
:M1
LOAD MOUS2.SCR 1
INPUT 30
IF 2 GOTO :M2
IF 3 GOTO :M3
IF 4 GOTO :M4
SOUND 5
GOTO :M1
:M2
LOAD MOUS3.SCR 1
MOUSE AT 16,56
color 15,5
print @ 19,44 "Press or click to begin"
delay 30
Mouse Set Hand
print @ 19,44 " POINTING HAND "
DELAY 2
Mouse Set Ball
print @ 19,44 " ROUND BALL "
DELAY 2
Mouse Set Target
print @ 19,44 " TARGET "
DELAY 2
Mouse Set Pencil
print @ 19,44 " PENCIL "
DELAY 2
Mouse Set Hatch
print @ 19,44 " CROSS HATCH "
DELAY 2
Mouse Set Hour
print @ 19,44 " HOUR GLASS "
DELAY 2
MOUSE AT 12,28
Mouse Set Arrow
print @ 19,43 "Press or click when ready"
SOUND 4
INPUT 30
IF 1 GOTO :M1
IF 3 GOTO :M3
IF 4 GOTO :M4
SOUND 5
GOTO :M2
:M3
LOAD MOUS4.SCR 1
MOUSE AT 16,56
Mouse Set Hand
color 0,10
print @ 19,44 "Press or click to begin"
DELAY 4
Play O2 L20 T50 C
DOLOOP
Mouse At 10,10
PLAY C
MOUSE AT 12,50
PLAY G
MOUSE AT 17,10
PLAY A
MOUSE AT 19,40
PLAY D
MOUSE AT 5,62
PLAY E
MOUSE AT 9,77
PLAY F
MOUSE AT 18,65
PLAY G
MOUSE AT 17,56
LOOP 4
MOUSE AT 12,28
Mouse Set Arrow
print @ 19,43 "Press or click when ready"
INPUT 30
IF 1 GOTO :M1
IF 2 GOTO :M2
IF 4 GOTO :M4
SOUND 5
GOTO :M3
:M4
LOAD MOUS5.SCR 1
COLOR 14,6
DELAY 1
Play O2 L50 T120 C
print @ 16,54 "4"
SLEEP 1
Play C
print "3"
SLEEP 1
Play C
print "2"
SLEEP 1
Play C
print "1"
SLEEP 1
Play L24 mb CDEFGFEDCDEFGFEDCDEFGC L12 C
MOUSE OFF
MouseIn1 9,4,11,8 :L1
MouseIn2 13,4,15,8 :L2
MouseIn3 17,4,19,8 :L3
MouseIn4 21,4,23,8 :L4
MouseIn5 9,29,11,33 :L5
MouseIn6 13,29,15,33 :L6
MouseIn7 17,29,19,33 :L7
MouseIn8 21,29,23,33 :L8
MouseIn9 9,54,11,58 :L9
MouseIn0 13,54,18,58 :L0
RETURN :MENU
:L0
Mouse Off
LOAD MAIN.SCR 9
BLINK OFF
DOLOOP
COLOR 0,12
PAINT 13,54,15,78
PAINT 17,54,19,78
DELAY .5
COLOR 12,0
PAINT 13,54,15,78
PAINT 17,54,19,78
DELAY .5
LOOP 5
BLINK ON
FXDELAY 8
LOAD CURTCLOS.SCR 7
DELAY 15
LOAD CURT1.SCR 18
DELAY 1
PAL SUBDUED.PAL
PAL DARK.PAL
PAL BLACK.PAL
CLR 1
PAL RESTORE
STOP