ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/UTILITY/SCREEN/TXTSHW30.ZIP/TEXTSHOW.SPT

Text File | 1991-04-12 | 5.4 KB | 404 lines

CLEAR
LOAD CURTAIN.SCR 1
LOAD TEXT.SCR 2
load OPEN.SCR 3
LOAD CITY.SCR 4
MOUSE OFF
SEND 1
FADES 5
DELAY 1
SEND 3
FADES 14
DELAY 3
SEND 1
FADES 15
DELAY 1
SEND 2
FADES 14
LOAD FADE.SCR 3
PAUSE
send 3
FADES 11
COLOR 15,1
AT 8,27
PRINT "Put life in your shows with"
AT 9,27
PRINT "dazzling screen fades like:"
DELAY 3
AT 11,36
COLOR 14,0
PRINT " CURTAINS "
DELAY 1
SEND 1
FADES 15
DELAY 1
SEND 3
FADES 14
AT 10,33
PRINT " FAST DISSOLVE "
DELAY 2
SEND 4
FADES 12
AT 2,5
PRINT " SLOW DISSOLVE "
DELAY 2
SEND 3
FADES 13
AT 10,35
PRINT " POUR IT OUT "
delay 2
SEND 4
FADES 21
DELAY 1
SEND 3
FADES 21
AT 10,36
PRINT " SNAKE "
delay 2
SEND 4
FADES 20
DELAY 1
SEND 3
FADES 20
AT 10,35
PRINT " SQUEEZE IT "
delay 2
SEND 4
FADES 19
DELAY 1
SEND 3
FADES 19
AT 10,36
PRINT " BLINDS "
DELAY 2
SEND 4
FADES 6
DELAY 1
SEND 3
FADES 10
AT 10,36
PRINT " EXPLODE "
DELAY 3
SEND 4
FADES 1
DELAY 2
SEND 3
FADES 1
AT 10,35
PRINT " R A D A R "
DELAY 3
SEND 4
FADES 8
DELAY 2
SEND 3
FADES 8
AT 10,35
PRINT " PAGE ROLL "
DELAY 3
SEND 4
FADES 9
DELAY 1
SEND 3
FADES 9
AT 10, 34
PRINT " PUZZLE PIECES "
delay 2
SEND 4
FADES 7
DELAY 1
SEND 3
FADES 14
AT 10,30
PRINT " And many, many more. "
delay 2
CLEAR
LOAD ROCKET1.SCR 1
LOAD ROCKET2.SCR 2
LOAD QUAK1.SCR 3
LOAD QUAK2.SCR 4
SEND 1
FADES 6
DELAY 2
SEND 2
FADES 1
DELAY 4
SEND 1
FADES 10
DELAY 1
SEND 3
FADES 3
COLOR 11,1
AT 3,3
PRINT "How about some special effects. . ."
DELAY 3
AT 3,3
PRINT "                                   "
SHAKE 25
SEND 4
FADES 6
DELAY 4
CLEAR
load FADE.SCR 1
SEND 1
FADES 18
AT 10,30
COLOR 11,1
PRINT " MORE SPECIAL EFFECTS "
AT 10,30
COLOR 14,0
DELAY 2
PRINT "     MAKE SOUNDS      "
SOUND 2
COLOR 13,0
PRINT "     MAKE SOUNDS      "
DELAY 1
SOUND 3
COLOR 12,0
PRINT "     MAKE SOUNDS      "
DELAY 1
SOUND 4
PRINT "   PAINT THE SCREEN   "
DELAY 2
COLOR 15,4
PAINT 1,1,12,40
DELAY 2
AT 12,32
PRINT "YOU CHOOSE COLORS"
DELAY 2
COLOR 14,6
PAINT 1,41,12,80
AT 13,32
PRINT "AND THE LOCATION "
DELAY 2
COLOR 0,3
PAINT 13,1,25,40
DELAY 2
COLOR 15,5
PAINT 13,41,25,80
DELAY 2
LOAD CHART2.SCR 1
LOAD CHART4.SCR 2
SEND 1
FADES 5
AT 10,45
PRINT "Display Graphs & Charts. . ."
DELAY 4
SEND 2
FADES 12
delay 4
send 6
fades 19
COLOR 15,4
CLS
color 0,0
box 3,11,5,71,0
color 15,1
BOX 2,10,4,70,2
AT 3,15
PRINT "TEXT-SHOW Version 3.0 Does Pop-Up Windows & Boxes"
delay 3
color 15,2
box 7,6,9,19,1
COLOR 0,2
at 8,7
print "little boxes"
SOUND 4
delay 1
color 0,7
box 8,23,12,49,178
COLOR 4,7
at 10,26
print "L A R G E   B O X E S"
SOUND 3
DELAY 1
COLOR 14,0
BOX 14,5,24,48,2
BCHR 178
BWID 1
BAT 16,6
BCOL 31
BPRNT " BIG "
SOUND 5
DELAY 3
BCOL 15
BAT 16,6
BPRNT " BIG "
COLOR 0,0
BOX 8,53,17,78,0
COLOR 4,3
BOX 7,52,16,77,3
color 0,3
AT 8,54
PRINT "You control the size,"
at 9,54
print "color, frame and the"
at 10,54
print "shadow of the Pop-Up"
at 11,54
print "Boxes/Windows."
at 12,53
COLOR 15,1
delay 2
print "                        "
at 13,53
PRINT " And you may enter any  "
at 14,53
print " text message you wish. "
at 15,53
print "                        "
delay 2
color 0,0
box 20,51,22,77,0
color 14,5
box 19,50,21,76,2
at 20,52
color 15,5
print "Press A Key to Continue"
SOUND 1
load CITY.SCR 1
pause
SEND 1
FADES 11
color 14,4
BOX 7,17,12,49,2
AT 9,19
PRINT "You can Pop-Up Your Boxes on"
at 10,19
print "top of your screen pictures."
delay 3
color 15,2
box 9,19,14,51,1
at 12,21
print "Overlay boxes on top of boxes"
delay 3
color 15,5
box 11,21,16,53,2
at 13,23
print " And then restore the screen."
delay 3
fades 17
delay 2
send 6
fades 13
AT 12,27
COLOR 31,0
PRINT "S P E C I A L   F E A T U R E"
RUN WMTELL1
COLOR 15,0
BCOL -1
BCHR 220
BWID 2
BAT 1,16
SEND 5
FADES 15
BPRNT "BIG"
BAT 10,1
BPRNT "FONTS"
delay 1
color 12,0
AT 20,8
PRINT "Use the Big-Font Feature of Text-Show to display large titles."
at 22,10
color 14,0
print "You can choose the size, color and shape of the character."
color 13,0
at 24,20
print "Press any key to see the font features."
PAUSE
cls
bat 1,1
BCHR 178
BCOL 12
bprnt "B-I-G"
bwid 1
bat 10,24
bprnt "SMALL"
COLOR 15,0
AT 21,12
PRINT "You control the size, shape and colors of the Big Fonts."
AT 23,27
print "Here are some examples. . ."
DELAY 2
BCOL 14
BWID 2
BCHR 1
BAT 1,1
BPRNT "B-I-G"
BWID 1
BAT 10,24
BPRNT "SMALL"
DELAY 1
BCOL 13
BWID 2
BCHR 42
BAT 1,1
BPRNT "B-I-G"
BWID 1
BAT 10,24
BPRNT "SMALL"
DELAY 1
BCOL 11
BWID 2
BCHR 219
BAT 1,1
BPRNT "B-I-G"
BWID 1
BAT 10,24
BPRNT "SMALL"
DELAY 1
BCOL -1
BWID 2
BCHR 220
BAT 1,1
BPRNT "B-I-G"
BWID 1
BAT 10,24
BPRNT "SMALL"
DELAY 2
COLOR 15,2
CLS
AT 10,8
PRINT "And with TEXT-SHOW you can create & display your own text messages."
delay 2
color 0,2
at 12,10
PRINT "And draw multiple screen borders using a wide variety of colors."
delay 2
COLOR 15,2
BORDER 1
DELAY 2
COLOR 0,2
BORDER 2
DELAY 1
COLOR 13,2
BORDER 219
COLOR 10,2
DELAY 1
BORDER 178
DELAY 1
COLOR 15,4
BORDER 178
DELAY 1
COLOR 15,2
BORDER 42
DELAY 1
Load FADE.SCR 1
LOAD CURTAIN.SCR 2
COLOR 15,0
SEND 1
FADES 4
AT 3,28
PRINT " TEXT-SHOW from DECISIONS   "
COLOR 14,1
AT 8,28
PRINT "Order your own registered"
at 10,28
print "copy of TEXT-SHOW today!"
at 13,28
color 7,1
RUN WMTELL3
SEND 2
FADES 15
DELAY 2
CLEAR