Category : Forth Source Code
Archive   : FIFTH.ZIP
Filename : WINDOW.FIV

 
Output of file : WINDOW.FIV contained in archive : FIFTH.ZIP
CREATE WINDOW
CREATE SCROLL
EDIT
: scroll
0 0 \ es:ds si:di
4 pick 8 shl \ dh
6 pick + 8 shl \ dl
7 pick + 8 shl \ ch
8 pick + \ cl
4 pick 16 shl \ bh bl->0
4 pick 0< if 7 + 8 shl 4 pick negate +
else 6 + 8 shl 4 pick + endif
16 int
drop drop drop drop drop
2drop 2drop 2drop
;
~UP
CREATE W1COLOR
EDIT
31 constant w1color
~UP
CREATE W2COLOR
EDIT
79 constant w2color
~UP
CREATE W3COLOR
EDIT
121 constant w3color
~UP
CREATE W1SCRL
EDIT
: w1scrl
1 1 38 10 w1color 1 scroll
;
~UP
CREATE W2SCRL
EDIT
: w2scrl
41 1 78 10 w2color 1 scroll
;
~UP
CREATE W3SCRL
EDIT
: w3scrl
1 13 78 22 w3color -1 scroll
;
~UP
CREATE WINDOWS
CREATE ULCORN
EDIT
201 constant ulcorn
~UP
CREATE URCORN
EDIT
187 constant urcorn
~UP
CREATE LLCORN
EDIT
200 constant llcorn
~UP
CREATE LRCORN
EDIT
188 constant lrcorn
~UP
CREATE HSIDE
EDIT
205 constant hside
~UP
CREATE VSIDE
EDIT
186 constant vside
~UP
CREATE WBOX
EDIT
: wbox
5 pick 5 pick 5 pick 5 pick 5 pick 0 scroll
5 pick 5 pick gotoxy ulcorn emit
3 pick 6 pick - 1- 0 do hside emit loop
urcorn emit
2 pick 5 pick - 1- 5 pick + 1+ 5 pick 1+
do
5 pick i gotoxy vside emit
3 pick i gotoxy vside emit
loop
5 pick 3 pick gotoxy llcorn emit
3 pick 6 pick - 1- 0 do hside emit loop
lrcorn emit
2drop 2drop 2drop
;
~UP
EDIT
: windows
0 0 39 11 w1color 0 wbox
40 0 79 11 w2color 0 wbox
0 12 79 23 w3color 0 wbox
;
~UP
CREATE SAVEAREA
EDIT
create savearea 4000 allot
~UP
CREATE SAVEIT
EDIT
: saveit
screen savearea 4000 cmove
;
~UP
CREATE RESTOREIT
EDIT
: restoreit
savearea screen 4000 cmove
;
~UP
CREATE WINDOWDEMO
EDIT
: windowdemo
saveit
windows
100 0 do
1 10 gotoxy
." Line " i .
." This window is window 1"
w1scrl
41 10 gotoxy
." Line " i .
." This window is window 2"
w2scrl
1 13 gotoxy
." Line " i .
." This is window 3 this is window 3 this is window 3 this is window 3"
w3scrl
?term if restoreit 0 23 gotoxy abort endif
loop
restoreit
0 23 gotoxy abort
;
~UP
EDIT
: window windowdemo ;
~UP
ABORT


  3 Responses to “Category : Forth Source Code
Archive   : FIFTH.ZIP
Filename : WINDOW.FIV

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/