home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 15
/
CD_ASCQ_15_070894.iso
/
maj
/
2179
/
scroll1.shw
< prev
next >
Wrap
Text File
|
1994-06-01
|
978b
|
45 lines
SET CURSOR OFF
COLOR FOREGROUND 1
COLOR BACKGROUND 3
COLOR ATTRIBUTE 48
DEFINE
/////// /// /// /////// /////// ////// /////// //////
// // // // // // // // // // // // // //
//////// // // // /////// // // //////// // ////////
// // // // // // // // // // // // //
// // // // // /////// // // // // //
END
SCREEN CLEAR
GOXY 1 10
IF soundtype NE 0 DO
SPEAK "P-R-OO-G-R-A-M-M-EH-D"
WAIT 1
SPEAK "B-I"
ELSE
WAIT 1
END
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