home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / support.mdl < prev    next >
Text File  |  1995-07-19  |  3KB  |  118 lines
  1.         SPARKWARE
  2.  
  3. :1ST /NONULL /FONT /DISPLAY:One moment please...
  4.  
  5. :START
  6.         ASSIGN(_Default$,"48")
  7.         CALL "@API$(5)LOGO.MDL"
  8.  
  9. :TOP
  10.         DISPLAY OFF
  11.         SCREEN(2,RESTORE)
  12.         QPRINT("The customer support menu",4,35,True)
  13.         QPRINT("Customer support BBS: (615) 230-8822",6,35,True)
  14.         QPRINT("Internet address: help@sparkware.com",7,39,True)
  15.         SCREEN(3,SAVE)
  16.  
  17.         CLEAR_BOXES
  18.         DIALOG_BOX(1,1,49,1,"1",12,5,112,112,1,116,15)
  19.         QPRINT("View the @READER@ tutorial",12,11,True)
  20.         DIALOG_BOX(2,1,50,2,"2",14,5,112,112,1,116,15)
  21.         QPRINT("View the new user's guide",14,11,True)
  22.         DIALOG_BOX(3,1,51,3,"3",16,5,112,112,1,116,15)
  23.         QPRINT("View the @READER@ manual",16,11,True)
  24.         DIALOG_BOX(4,1,52,4,"4",18,5,112,112,1,116,15)
  25.         QPRINT("View the advanced user's guide",18,11,True)
  26.         DIALOG_BOX(5,1,53,5,"5",20,5,112,112,1,116,15)
  27.         QPRINT("View the programmer's guide",20,11,True)
  28.         DIALOG_BOX(6,1,54,6,"6",22,5,112,112,1,116,15)
  29.         QPRINT("View the telnet script guide",22,11,True)
  30.         DIALOG_BOX(7,1,55,7,"7",18,46,112,112,1,116,15)
  31.         QPRINT("Create a boot diskette",18,52,True)
  32.         DIALOG_BOX(8,1,57,8,"8",20,46,112,112,1,116,15)
  33.         QPRINT("Extra features",20,52,True)
  34.         DIALOG_BOX(9,1,27,9,"Q",22,46,112,112,1,116,15)
  35.         QPRINT("Quit & return to @READER@",22,52,True)
  36.  
  37.         DISPLAY ON
  38.         GET(Choice$,1)
  39.  
  40.         ON Choice$ GOTO 1,2,3,4,5,6,7,8
  41.         EXIT
  42.  
  43. :1
  44.         IF EXIST "#1TUTOR.MDL" THEN
  45.                 CALL "#1TUTOR.MDL"
  46.         ELSE
  47.                 ASSIGN(Description$,"@READER@ tutorial")
  48.                 GOSUB NotOnFile
  49.         END IF
  50.         GOTO START
  51.  
  52. :2
  53.         ASSIGN(FileSpec$,"@API$(5)NOVICE.EXE")
  54.         ASSIGN(Description$,"@READER@ new user's guide")
  55.         GOSUB RunSpec
  56.         GOTO TOP
  57.  
  58. :3
  59.         ASSIGN(FileSpec$,"@API$(5)MANUAL.EXE")
  60.         ASSIGN(Description$,"@READER@ manual")
  61.         GOSUB RunSpec
  62.         GOTO TOP
  63.  
  64. :4
  65.         ASSIGN(FileSpec$,"@API$(5)ADVANCED.EXE")
  66.         ASSIGN(Description$,"@READER@ advanced user's guide")
  67.         GOSUB RunSpec
  68.         GOTO TOP
  69.  
  70. :5
  71.         ASSIGN(FileSpec$,"@API$(5)1ST-PROG.EXE")
  72.         ASSIGN(Description$,"@READER@ programmer's guide")
  73.         GOSUB RunSpec
  74.         GOTO TOP
  75.  
  76. :6
  77.         ASSIGN(FileSpec$,"@API$(5)SCRIPT.EXE")
  78.         ASSIGN(Description$,"@READER@ telnet script guide")
  79.         GOSUB RunSpec
  80.         GOTO TOP
  81.  
  82. :7
  83.         IF EXIST "BOOTDISK.MDL" THEN
  84.                 CALL "BOOTDISK.MDL"
  85.         ELSE
  86.                 ASSIGN(Description$,"Create a boot diskette")
  87.                 GOSUB NotOnFile
  88.         END IF
  89.         GOTO START
  90.  
  91. :8
  92.         IF EXIST "$$EXTRA.MDL" THEN
  93.                 CALL "$$EXTRA.MDL"
  94.                 IF NOT COMPARE(@API$(106),"") THEN EXIT
  95.         ELSE
  96.                 ASSIGN(Description$,"Extra features")
  97.                 GOSUB NotOnFile
  98.         END IF
  99.         GOTO START
  100.  
  101. :RUNSPEC
  102.         IF EXIST FileSpec$ THEN
  103.                 ASSIGN(Cmd$,FileSpec$+"/SS /SCRNSAVE")
  104.                 SHELL Cmd$
  105.         ELSE
  106.                 GOSUB NotOnFile
  107.         END IF
  108.         RETURN
  109.  
  110. :NOTONFILE
  111.         SCREEN(3,RESTORE)
  112.         BOX(12,10,18,70,112,112,1,1)
  113.         QPRINT("Sorry, but @READER@ could not locate",14,-1,112)
  114.         QPRINT(Description$,16,-1,112)
  115.         PAUSE 10
  116.         RETURN
  117.  
  118.