home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
TXT_AREA.MOD
< prev
next >
Wrap
Text File
|
1989-04-01
|
712b
|
24 lines
;LANS 10-18-88 13:49 TXT_AREA.MOD
;
IF '$board' = '' off_ln
ATWRITE 7 11 7 ' Online with:[ $board ]'
ATWRITE 7 12 12 ' ================='
ATWRITE 25 12 28 ' * Online Text Area Below * '
ATWRITE 57 12 12 '================='
BOX 1,14,80,$last_row ;window can be used instead
CLRSCR
go-back:
COLOR 3
RETURN
off_ln:
ATWRITE 7 11 7 ' Current Status: [ **** OFF LINE **** ] '
ATWRITE 7 12 12 ' ================='
ATWRITE 25 12 28 ' * Online Text Area Below * '
ATWRITE 57 12 12 '================='
BOX 1,14,80,$last_row ;window can be used instead
CLRSCR
IF '$autosel' = 'Y' go-back
ATWRITE 3 18 11 ' Press ENTER to continue'
GET 1 1
;