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
|
||
|