Click above to get retro games delivered to your door ever month!

##############################################################################
###+--------+#################################################################
#+-| SCROLL |--------------------------------------------------+##############
#| +--------+ Scrolls a portion of the screen for number_lines |##############
#+-------------------------------------------------------------+##############
##############################################################################
##############################################################################
#+--| Summary |------------+##################################################
#|     #INCLUDE io.hdr     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------------+################################
#|     PROCEDURE scroll PROTOTYPE            |################################
#|      PARAMETERS VALUE INT direction,;     |################################
#|          VALUE INT upper_row, ;           |################################
#|          VALUE INT upper_col, ;           |################################
#|          VALUE INT lower_row, ;           |################################
#|          VALUE INT lower_col, ;           |################################
#|          VALUE INT number_lines, ;        |################################
#|          VALUE INT color_value            |################################
#+-------------------------------------------+################################
##############################################################################
##############################################################################
#####+---| Description |------------------------------------------------+#####
#####| This procedure scrolls a portion of the screen for number_lines. |#####
#####| direction is either 0, which indicates up, or 1, which indicates |#####
#####| down.  color_value specifies the color for the blank line which  |#####
#####| is created when the screen is scrolled.                          |#####
#####| ---------------------------------------------------------------- |#####
#####| The screen coordinates defining the scrolled window are          |#####
#####| specified by upper_row, upper_col, lower_row and lower_col.      |#####
#####| ---------------------------------------------------------------- |#####
#####| The header file io.hdr contains defines for up or down           |#####
#####| parameters and the file colors.hdr contains the common color     |#####
#####| defines.                                                         |#####
#####+------------------------------------------------------------------+#####
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Scroll different portions of the screen.            |#########
#########|                                                          |#########
#########| scroll(0,0,0,24,40,7,1)     && scrolls 1/2 the scrn      |#########
#########|                             && up (normal color)         |#########
#########|                                                          |#########
#########| scroll(1,0,41,24,79,7,1)    && and the other 1/2         |#########
#########|                             && down one line             |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Scroll a portion of the screen up as new            |#########
#########| *    names are printed.                                  |#########
#########|                                                          |#########
#########| REPEAT                                                   |#########
#########|     IF r = 14                                            |#########
#########|         scroll(&SCRL_UP,9,5,14,74,&WHITE_YELLOW)         |#########
#########|     ENDIF                                                |#########
#########|     @ r,7 ?? f[q]                                        |#########
#########|     r = r + 1                                            |#########
#########|     IF r > 14                                            |#########
#########|         r = 14                                           |#########
#########|     ENDIF                                                |#########
#########|     copy "a:\" + f[q] TO "c:\" + f[q]                    |#########
#########|     q = q + 1                                            |#########
#########| UNTIL q = &FMAX                                          |#########
#########+----------------------------------------------------------+#########
##############################################################################