home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / graphic / show55a / scroll1.shw < prev    next >
Text File  |  1995-02-01  |  874b  |  43 lines
  1. SET CURSOR OFF
  2.  
  3. COLOR FOREGROUND 1
  4. COLOR BACKGROUND 3
  5.  
  6. COLOR ATTRIBUTE 48
  7.  
  8. DEFINE
  9. ///////   ///  ///  ///////     ///////    //////   ///////   //////
  10. //    //  // // //  //    //    //    //  //    //    //     //    //
  11. ////////  // // //  ///////     //    //  ////////    //     ////////
  12. //  //    // // //  //          //    //  //    //    //     //    //
  13. //   //   //    //  //          ///////   //    //    //     //    //
  14. END
  15.  
  16. SCREEN CLEAR
  17.  
  18. GOXY 1 10
  19.  
  20. IF soundtype NE 0 DO
  21.    SPEAK "P-R-OO-G-R-A-M-M-EH-D"
  22.    WAIT 1
  23.    SPEAK "B-I"
  24. ELSE
  25.    WAIT 1
  26. END
  27.  
  28. SET DELAYFACTOR 5
  29.  
  30. MOTION RIGHT 72
  31.  
  32. VARIABLE CREATE scrollloop TYPE NUMBER 1
  33.  
  34. MARK 1             ; Set a mark to jump to
  35. EFFECT SCROLL UP   ; Move screen up
  36. WAIT 1
  37. VARIABLE INCREASE scrollloop 1
  38. IF scrollloop LE 9 DO JUMPMARK 1
  39.  
  40. VARIABLE RELEASE scrollloop
  41.  
  42. SET CURSOR ON
  43.