home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / compusrv / gocis101 / scripts / news.scr < prev    next >
Encoding:
Text File  |  1993-07-30  |  1.5 KB  |  64 lines
  1. ;
  2. ;***********************************************************************
  3. ;       WinCIS .94
  4. ;       Copyright(C) 1992
  5. ;       Larry Lee (76670,1471)
  6. ;       16038 Augusta Drive
  7. ;       Chino Hills, Ca 91709
  8. ;***********************************************************************
  9.  
  10. ; GO FULL SCREEN
  11. WINDOWSTATE MAXIMIZE
  12.  
  13. WAIT !
  14. SEND SET BRIEF YES^M
  15. WAIT !
  16. SEND SET PAGED NO^M
  17. WAIT !
  18. SEND SET BLANK YES^M
  19. WAIT !
  20. SEND GO OLT-90^M
  21. WAIT !
  22.  
  23. ; Erase Exitsing File if Any
  24. KILLFILE &MESSAGEPATH\NEWS.TXT
  25.  
  26. ; ^M^J is the same as a CRLF
  27. ; Add a Title 
  28. PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J
  29. PUTFILE &MESSAGEPATH\NEWS.TXT *****************************************^M^J
  30. PUTFILE &MESSAGEPATH\NEWS.TXT *         N E W S     R E P O R T       *^M^J
  31. PUTFILE &MESSAGEPATH\NEWS.TXT *****************************************^M^J
  32. PUTFILE &MESSAGEPATH\NEWS.TXT * Date:    &Date^M^J 
  33. PUTFILE &MESSAGEPATH\NEWS.TXT * Time:    &Time^M^J 
  34. PUTFILE &MESSAGEPATH\NEWS.TXT * Name:    &UserName^M^J 
  35. PUTFILE &MESSAGEPATH\NEWS.TXT * Account: &UserId^M^J 
  36. PUTFILE &MESSAGEPATH\NEWS.TXT *****************************************^M^J
  37. PUTFILE &MESSAGEPATH\NEWS.TXT ^M^J
  38.  
  39.  
  40. ; Start File Capture
  41. CAPTURE &MessagePath\NEWS.TXT APPEND
  42.  
  43. ; Read the News
  44. SEND ALL^M
  45. WAIT age!
  46. ; Turn Off File Capture
  47. CAPTURE OFF
  48.  
  49. SEND ^M
  50. ; outta here
  51. WAIT T-90
  52. SEND ^M
  53.  
  54. ; Wait For Navigation Prompt
  55. WAIT !
  56.  
  57. ; Shrink the screen Size
  58. ; WINDOWSTATE MINIMIZE
  59. ; Call Notepad
  60. ; SHELL NOTEPAD.EXE 1 &MESSAGEPATH\NEWS.TXT
  61.  
  62. ; Logoff CIS and Exit the Terminal Window
  63. LOGOFF
  64.