home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
bingo300.zip
/
SIDEBY.CHS
< prev
next >
Wrap
Text File
|
1992-10-18
|
930b
|
40 lines
double_down{
if(ask("file_w_width")!=ask("sys_cols)){
/* boom! we have to do both
if(ask("file_w_left")==1){
b_cmd("down_page");
b_cmd("window_next");
b_cmd("down_page");
b_cmd("window_prev");
}
else{
b_cmd("down_page");
b_cmd("window_prev");
b_cmd("down_page");
b_cmd("window_next");
}
}
else{
b_cmd("down_page");
}
}
double_up{
if(ask("file_w_width")!=ask("sys_cols)){
/* boom! we have to do both
if(ask("file_w_left")==1){
b_cmd("up_page");
b_cmd("window_next");
b_cmd("down_page");
b_cmd("window_prev");
}
else{
b_cmd("up_page");
b_cmd("window_prev");
b_cmd("down_page");
b_cmd("window_next");
}
}
else{
b_cmd("down_page");
}
}