home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The First Hungarian Family
/
The_First_Hungarian_Family_CD-ROM.bin
/
internet
/
offlread
/
1st200
/
a
/
$$extra.mdl
< prev
next >
Wrap
Text File
|
1995-07-19
|
4KB
|
121 lines
SPARKWARE
:1ST /FONT /DISPLAY:One moment please...
ASSIGN(_Default$,"143")
CALL "@API$(5)LOGO.MDL"
:TOP
DISPLAY OFF
SCREEN(2,RESTORE)
IF COMPARE(@API(98),True) THEN
QPRINT("Extra functions menu",5,35,True)
QPRINT(@API$(11),6,35,True)
ELSE
QPRINT("Extra functions menu",6,44,True)
END IF
SCREEN(3,SAVE)
CLEAR_BOXES
DIALOG_BOX(1,1,67,1," Manage capture files ",12,5,112,112,1,116,15)
DIALOG_BOX(2,1,81,2," Manage QWK mail packets ",14,5,112,112,1,116,15)
DIALOG_BOX(3,1,82,3," Manage reply packets ",16,5,112,112,1,116,15)
DIALOG_BOX(4,1,69,4," Edit system text files ",18,5,112,112,1,116,15)
DIALOG_BOX(5,1,90,5," View Zmodem transfer log ",12,46,112,112,1,116,15)
DIALOG_BOX(6,1,86,6," Record a VOC sound file ",14,46,112,112,1,116,15)
DIALOG_BOX(7,1,65,7," Archived new files list ",16,46,112,112,1,116,15)
DIALOG_BOX(8,1,80,8," Pack your folders ",18,46,112,112,1,116,15)
DIALOG_BOX(9,0,27,9," The [ESC] key returns you to @READER@ ",21,30,112,112,1,116,15)
DISPLAY ON
GET(Choice$,1)
ON Choice$ GOTO CAPTURE,PACKETS,REPLIES,EDIT,LOGS,RECORD,NEWFILES,PACK
EXIT
:CAPTURE
LITERAL ON
SETAPI(SP,106,"FEATURE=MANAGER @API$(5)*.CAP <ABS>")
EXIT
:PACKETS
LITERAL ON
SETAPI(SP,106,"FEATURE=MANAGER @API$(1)*.Q* <ABS>")
EXIT
:REPLIES
LITERAL ON
SETAPI(SP,106,"FEATURE=MANAGER @API$(1)*.REP <ABS>")
EXIT
:EDIT
LITERAL ON
SETAPI(SP,106,"FILE=$$EDITF.CMD")
EXIT
:LOGS
LIST @API$(5)DSZ.LOG
GOTO TOP
:RECORD
IF COMPARE(@SWITCH(10),True) THEN
IF COMPARE(@API(174),True) THEN
SETAPI(SP,106,"FEATURE=RECORD")
EXIT
END IF
END IF
DISPLAY OFF
SCREEN(3,RESTORE)
QPRINT("You must have a sound card installed in your computer system",14,10,True)
QPRINT("and you must also have turned on the 'MultiMedia' switch in")
QPRINT("@READER@'s SETUP/SWITCHES area before you may record sound")
QPRINT("files.")
DISPLAY ON
GOSUB PRESS
GOTO TOP
:NEWFILES
IF COMPARE(@API(98),True) THEN
LITERAL ON
SETAPI(SP,106,"@API$(5)NEWFILES /F@API$(14)NEWFILES.DAT /NOCLS /CURSOR_OFF /IN:@API$(5)NEWFILES.IN /OUT:NEWFILES.CFG /DISPLAY:Loading...")
EXIT
END IF
DISPLAY OFF
SCREEN(3,RESTORE)
QPRINT("You cannot view your archived files list unless you are",12,13,True)
QPRINT("reading messages with @READER@.")
QPRINT("")
QPRINT("Please select a bulletin board system from the 'Opening")
QPRINT("menu' screen. When you arrive at the 'Read messages'")
QPRINT("screen you will be able to view your list of archived")
QPRINT("files by selecting the 'Extra features' button.")
DISPLAY ON
GOSUB PRESS
GOTO TOP
:PACK
IF NOT COMPARE(@API(98),True) THEN
LITERAL ON
SETAPI(SP,106,"1ST-UTIL /FOLDERS /API:API.$$$ /CURSOR_OFF /NOCLS")
EXIT
END IF
DISPLAY OFF
SCREEN(3,RESTORE)
QPRINT("You cannot pack folders while you are reading messages",13,13,True)
QPRINT("with @READER@.")
QPRINT("")
QPRINT("Please return back to the 'Opening menu' and select the")
QPRINT("'Extra features' button and you will be able to pack your")
QPRINT("folders.")
DISPLAY ON
GOSUB PRESS
GOTO TOP
:PRESS
CLEAR_BOXES
DIALOG_BOX(1,0,27,1," Press any key to continue... ",21,23,112,112,1,116,15)
GET(Choice$,1)
RETURN