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