home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
s
/
show38a.zip
/
SCROLL1.SHW
< prev
next >
Wrap
Text File
|
1993-03-01
|
925b
|
41 lines
SET CURSOR OFF
COLOR FOREGROUND 1
COLOR BACKGROUND 3
COLOR ATTRIBUTE 48
DEFINE
/////// /// /// /////// /////// ////// /////// //////
// // // // // // // // // // // // // //
//////// // // // /////// // // //////// // ////////
// // // // // // // // // // // // //
// // // // // /////// // // // // //
END
SCREEN CLEAR
GOXY 1 10
SPEAK "P-R-OO-G-R-A-M-M-EH-D"
WAIT 1
SPEAK "B-I"
SET DELAYFACTOR 5
MOTION RIGHT 72
VARIABLE CREATE scrollloop TYPE NUMBER 1
MARK 1 ; Set a mark to jump to
EFFECT SCROLL UP ; Move screen up
WAIT 1
VARIABLE INCREASE scrollloop 1
IF scrollloop EQ 9 DO JUMPMARK 2
JUMPMARK 1 ; If we've reached here, jump to mark 1
MARK 2 ; Set a mark to jump to
VARIABLE RELEASE scrollloop
SET CURSOR ON