26 lines
768 B
Plaintext
26 lines
768 B
Plaintext
|
' These two functions can be used to scroll a window either up or down.
|
|||
|
|
' X1,Y1 are the coordinates of the upper left corner of the window.
|
|||
|
|
' X2,Y2 are the coordinates of the lower right corner of the window.
|
|||
|
|
' ATTRIB is the color attribute for the new blank line
|
|||
|
|
' Experiment with them a little to get a feel for them.
|
|||
|
|
:
|
|||
|
|
LONG FN Scrollup(X1,Y1,X2,Y2,ATTRIB)
|
|||
|
|
MACHLG &B8,1,6
|
|||
|
|
MACHLG &8A,&3E,ATTRIB
|
|||
|
|
MACHLG &8A,&2E,Y1
|
|||
|
|
MACHLG &8A,&0E,X1
|
|||
|
|
MACHLG &8A,&36,Y2
|
|||
|
|
MACHLG &8A,&16,X2
|
|||
|
|
MACHLG &CD,&10
|
|||
|
|
END FN
|
|||
|
|
:
|
|||
|
|
LONG FN Scrolldown(X1,Y1,X2,Y2,ATTRIB)
|
|||
|
|
MACHLG &B8,1,7
|
|||
|
|
MACHLG &8A,&3E,ATTRIB
|
|||
|
|
MACHLG &8A,&2E,Y1
|
|||
|
|
MACHLG &8A,&0E,X1
|
|||
|
|
MACHLG &8A,&36,Y2
|
|||
|
|
MACHLG &8A,&16,X2
|
|||
|
|
MACHLG &CD,&10
|
|||
|
|
END FN
|
|||
|
|
|