CURSOR OFF
FORGROUND 0
BACKGROUND 3

ATTRIBUTE 48

DEFINE
///////   ///  ///  ///////     ///////    //////   ///////   //////
//    //  // // //  //    //    //    //  //    //    //     //    //
////////  // // //  ///////     //    //  ////////    //     ////////
//  //    // // //  //          //    //  //    //    //     //    //
//   //   //    //  //          ///////   //    //    //     //    //
ENDDEFINE

CLEARSCREEN

GOXY 1 10

SPEAK "P-R-OO-G-R-A-M-M-EH-D"
WAIT 1
SPEAK "B-I"

DELAYFACTOR 5

MOTION RIGHT 72

VARIABLE scrollloop 1

MARK 1          * Set a mark to jump to
SCROLL UP       * Move screen up
WAIT 1
INCREASE scrollloop 1
IFVARIABLE scrollloop 8 DO JUMPMARK 2
JUMPMARK 1      * If we've reached here, jump to mark 1
MARK 2          * Set a mark to jump to

RELEASE scrollloop

CURSOR ON