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 >
Text File  |  1995-07-19  |  4KB  |  121 lines
  1.         SPARKWARE
  2.  
  3. :1ST /FONT /DISPLAY:One moment please...
  4.  
  5.         ASSIGN(_Default$,"143")
  6.         CALL "@API$(5)LOGO.MDL"
  7.  
  8. :TOP
  9.         DISPLAY OFF
  10.         SCREEN(2,RESTORE)
  11.         IF COMPARE(@API(98),True) THEN
  12.                 QPRINT("Extra functions menu",5,35,True)
  13.                 QPRINT(@API$(11),6,35,True)
  14.         ELSE
  15.                 QPRINT("Extra functions menu",6,44,True)
  16.         END IF
  17.         SCREEN(3,SAVE)
  18.  
  19.         CLEAR_BOXES
  20.         DIALOG_BOX(1,1,67,1,"  Manage capture files      ",12,5,112,112,1,116,15)
  21.         DIALOG_BOX(2,1,81,2,"  Manage QWK mail packets   ",14,5,112,112,1,116,15)
  22.         DIALOG_BOX(3,1,82,3,"  Manage reply packets      ",16,5,112,112,1,116,15)
  23.         DIALOG_BOX(4,1,69,4,"  Edit system text files    ",18,5,112,112,1,116,15)
  24.         DIALOG_BOX(5,1,90,5,"  View Zmodem transfer log  ",12,46,112,112,1,116,15)
  25.         DIALOG_BOX(6,1,86,6,"  Record a VOC sound file   ",14,46,112,112,1,116,15)
  26.         DIALOG_BOX(7,1,65,7,"  Archived new files list   ",16,46,112,112,1,116,15)
  27.         DIALOG_BOX(8,1,80,8,"  Pack your folders         ",18,46,112,112,1,116,15)
  28.  
  29.         DIALOG_BOX(9,0,27,9,"  The [ESC] key returns you to @READER@  ",21,30,112,112,1,116,15)
  30.  
  31.         DISPLAY ON
  32.         GET(Choice$,1)
  33.  
  34.         ON Choice$ GOTO CAPTURE,PACKETS,REPLIES,EDIT,LOGS,RECORD,NEWFILES,PACK
  35.         EXIT
  36.  
  37. :CAPTURE
  38.         LITERAL ON
  39.         SETAPI(SP,106,"FEATURE=MANAGER @API$(5)*.CAP <ABS>")
  40.         EXIT
  41.  
  42. :PACKETS
  43.         LITERAL ON
  44.         SETAPI(SP,106,"FEATURE=MANAGER @API$(1)*.Q* <ABS>")
  45.         EXIT
  46.  
  47. :REPLIES
  48.         LITERAL ON
  49.         SETAPI(SP,106,"FEATURE=MANAGER @API$(1)*.REP <ABS>")
  50.         EXIT
  51.  
  52. :EDIT
  53.         LITERAL ON
  54.         SETAPI(SP,106,"FILE=$$EDITF.CMD")
  55.         EXIT
  56.  
  57. :LOGS
  58.         LIST @API$(5)DSZ.LOG
  59.         GOTO TOP
  60.  
  61. :RECORD
  62.         IF COMPARE(@SWITCH(10),True) THEN
  63.                 IF COMPARE(@API(174),True) THEN
  64.                         SETAPI(SP,106,"FEATURE=RECORD")
  65.                         EXIT
  66.                 END IF
  67.         END IF
  68.         DISPLAY OFF
  69.         SCREEN(3,RESTORE)
  70.         QPRINT("You must have a sound card installed in your computer system",14,10,True)
  71.         QPRINT("and you must also have turned on the 'MultiMedia' switch in")
  72.         QPRINT("@READER@'s SETUP/SWITCHES area before you may record sound")
  73.         QPRINT("files.")
  74.         DISPLAY ON
  75.         GOSUB PRESS
  76.         GOTO TOP
  77.  
  78. :NEWFILES
  79.         IF COMPARE(@API(98),True) THEN
  80.                 LITERAL ON
  81.                 SETAPI(SP,106,"@API$(5)NEWFILES /F@API$(14)NEWFILES.DAT /NOCLS /CURSOR_OFF /IN:@API$(5)NEWFILES.IN /OUT:NEWFILES.CFG /DISPLAY:Loading...")
  82.                 EXIT
  83.         END IF
  84.         DISPLAY OFF
  85.         SCREEN(3,RESTORE)
  86.         QPRINT("You cannot view your archived files list unless you are",12,13,True)
  87.         QPRINT("reading messages with @READER@.")
  88.         QPRINT("")
  89.         QPRINT("Please select a bulletin board system from the 'Opening")
  90.         QPRINT("menu' screen.  When you arrive at the 'Read messages'")
  91.         QPRINT("screen you will be able to view your list of archived")
  92.         QPRINT("files by selecting the 'Extra features' button.")
  93.         DISPLAY ON
  94.         GOSUB PRESS
  95.         GOTO TOP
  96.  
  97. :PACK
  98.         IF NOT COMPARE(@API(98),True) THEN
  99.                 LITERAL ON
  100.                 SETAPI(SP,106,"1ST-UTIL /FOLDERS /API:API.$$$ /CURSOR_OFF /NOCLS")
  101.                 EXIT
  102.         END IF
  103.         DISPLAY OFF
  104.         SCREEN(3,RESTORE)
  105.         QPRINT("You cannot pack folders while you are reading messages",13,13,True)
  106.         QPRINT("with @READER@.")
  107.         QPRINT("")
  108.         QPRINT("Please return back to the 'Opening menu' and select the")
  109.         QPRINT("'Extra features' button and you will be able to pack your")
  110.         QPRINT("folders.")
  111.         DISPLAY ON
  112.         GOSUB PRESS
  113.         GOTO TOP
  114.  
  115. :PRESS
  116.         CLEAR_BOXES
  117.         DIALOG_BOX(1,0,27,1,"  Press any key to continue...  ",21,23,112,112,1,116,15)
  118.         GET(Choice$,1)
  119.         RETURN
  120.  
  121.