Category : Communication (modem) tools and utilities
Archive   : GC101E.ZIP
Filename : WEATHER.SCR

;
;***********************************************************************
; WinCIS .94
; Copyright(C) 1992
; Larry Lee (76670,1471)
; 16038 Augusta Drive
; Chino Hills, Ca 91709
;***********************************************************************

; GO FULL SCREEN
WINDOWSTATE MAXIMIZE

WAIT !
SEND SET BRIEF YES^M
WAIT !
SEND SET PAGED NO^M
WAIT !
SEND SET BLANK YES^M
WAIT !
SEND GO CIS^M
WAIT !

; Erase Exitsing File if Any
KILLFILE &MESSAGEPATH\WEATHER.TXT

; ^M^J is the same as a CRLF
; Add a Title Line
; ^M^J is the same as a CRLF
; Add a Title
PUTFILE &MESSAGEPATH\WEATHER.TXT ^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT *****************************************^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT * W E A T H E R R E P O R T *^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT *****************************************^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT * Date: &Date^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT * Time: &Time^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT * Name: &UserName^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT * Account: &UserId^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT *****************************************^M^J
PUTFILE &MESSAGEPATH\WEATHER.TXT ^M^J

; Start File Capture
CAPTURE &MESSAGEPATH\WEATHER.TXT APPEND

; get local weather
SEND WEATHER^M
WAIT !

; Turn Off File Capture
CAPTURE OFF

; Shrink the screen Size
; WINDOWSTATE MINIMIZE
; Call Notepad
; SHELL NOTEPAD.EXE 1 &MESSAGEPATH\WEATHER.TXT

; Logoff CIS and Exit the Terminal Window
LOGOFF