Category : Databases and related files
Archive   : EXDB11.ZIP
Filename : EXEC.ASP

; FILE NAME: EXEC.ASP
; ********* ********
LOG CLOSE
LOG OPEN "exec.doc"
ASSIGN S7 "Connected to EXEC-PC BBS:"
DATE S8
TIME S9 1
MESSAGE " "
MESSAGE "======================================="
MESSAGE S7
MESSAGE S8
MESSAGE S9
MESSAGE "System time:_"
MESSAGE "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
MESSAGE "@@@@"
MESSAGE " Log EXEC.DOC is open."
MESSAGE " ---------------------"
TRANSMIT "^M^M^M^M"
WAITFOR " FIRST name -> " FOREVER
PAUSE 1
TRANSMIT "your_first_name_here^M"
WAITFOR " LAST name -> "
PAUSE 1
TRANSMIT "your_last_name_here^M"
WAITFOR "Password -> "
PAUSE 1
TRANSMIT "your_password_here^M"
;
; Bulletins Menu - NOT inclucded in script in order to have
; a chance to read bulletins. You may read
; the bulletins, and upon exit, the program
; will resume operation
; WAITFOR "L=list again) -> "
; PAUSE 1
; TRANSMIT "Q^M"
;
; Exec-PCý T O P M E N U
; (420 minutes left) TOP (FMRSEBALWXG, ?=HELP) -> F
; (271 minutes left) TOP (SBHFMREALWXG, ?=HELP) -> COMMAND FILE ABORTED.
; at Top Menu select Files Collection section
;
WAITFOR "TOP (" FOREVER
PAUSE 1
TRANSMIT "F"
;
; C O L L E C T I O N S E L E C T I O N
; newest prompt line
; COLLECTION SELECTION (ABCDEFGHIQT?, Q=T=QUIT, ?=HELP)-> A
; previous prompt line
: (420 minutes left) COLLECTION SELECTION (ABCDEFGHIQT?, Q=T=QUIT, ?=HELP) -> A
;
; at Collection Menu select Mahoney collection
;
WAITFOR "COLLECTION SELECTION ("
PAUSE 1
TRANSMIT "A"
;
; Exec-PCý F I L E S Y S T E M
; Mahoney MS-DOS Collection CPS=229
; sound tones to advise system ready
;
; newest prompt line
; (270 minutes left) FILE MENU (H,C,L,N,U,D,S,A,T,W,E,Z,F,X,Q,G,?=HELP) -> Y
; WAITFOR "Mahoney MS-DOS Collection"
; PAUSE 1
WAITFOR "FILE MENU ("
PAUSE 2
;
; start auto-log/print of file list
;
; get y or n input to indicate 'new files and print' routine
MESSAGE " "
MESSAGE " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
MESSAGE " ³ Do N)ew Files and print list? (y/n) ³"
MESSAGE " ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
; send prompt waiting signal
SOUND 880 20
SOUND 880 20
SOUND 880 20
SOUND 880 20
GET S0 1
FIND S0 "y"
;
; if yes then:
; leave msg in EXEC.DOC that file list added to EXEC.FIL
; close exec.doc
; open exec.fil
; turn printer on
; send N)ew files since.... command
; wait for the end of list prompt
; close exec.fil
; open exec.doc again
;
IF FOUND
MESSAGE " "
MESSAGE " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
MESSAGE " ³ N)ew files loaded into EXEC.FIL! ³"
MESSAGE " ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
MESSAGE " "
LOG CLOSE
LOG OPEN "exec.fil"
PRINTER ON
TRANSMIT "N"
WAITFOR ">>END OF LIST. Y=N=Q" FOREVER
PRINTER OFF
LOG CLOSE
LOG OPEN "exec.doc"
ELSE
MESSAGE " "
MESSAGE " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
MESSAGE " ³ N)ew files WERE NOT loaded into EXEC.FIL! ³"
MESSAGE " ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
MESSAGE " "
ENDIF
;
SOUND 440 20
SOUND 550 20
SOUND 440 20
SOUND 550 20
SOUND 440 20
SOUND 550 20
; end script....
;
; PROCOMM+ ASPECT file for EXEC-PC BBS.
; v1.0, Sat, 01-07-1989, 02:11 - minor mods to auto-log/print
; 1.1, Sat, 03-04-1989, 02:37 - modified logon file for new menu's
; 1.2, Mon, 03-20-1989, 23:46 - updated to latest menu prompts