home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / comm / firstpcb.zip / PCBOARD.INS < prev    next >
Text File  |  1993-05-15  |  6KB  |  149 lines
  1.         SPARKWARE
  2.  
  3.         SCREEN(1,SAVE)
  4.         ASSIGN(FileSpec$,0,"PCBOARD.HLP")
  5.         SAVER 180
  6.  
  7. :TOP
  8.     ASSIGN(Value$,0,"Page 1")
  9.     GOSUB DRAWBOX
  10.         DIALOG_BOX(1,1,0,INTRO,"A) Introduction        ",5,11,112,7,1,116,15)
  11.     DIALOG_BOX(2,1,0,LOGGING,"B) Logging into PCBoard",7,11,112,7,1,116,15)
  12.     DIALOG_BOX(3,1,0,GENERAL,"C) General information ",9,11,112,7,1,116,15)
  13.     DIALOG_BOX(4,1,0,BASIC,"D) Basic usage         ",11,11,112,7,1,116,15)
  14.     DIALOG_BOX(5,1,0,ABANDON,"E) Abandon a conference",13,11,112,7,1,116,15)
  15.     DIALOG_BOX(6,1,0,BULLETIN,"F) Bulletins           ",15,11,112,7,1,116,15)
  16.     DIALOG_BOX(7,1,0,CHAT,"G) Chat between nodes  ",17,11,112,7,1,116,15)
  17.     DIALOG_BOX(8,1,0,COMMENTS,"H) Comments to Sysop   ",19,11,112,7,1,116,15)
  18.     DIALOG_BOX(9,1,0,DOWNLOAD,"I) Download a file     ",5,44,112,7,1,116,15)
  19.     DIALOG_BOX(10,1,0,DLBATCH,"J) Download Batch      ",7,44,112,7,1,116,15)
  20.     DIALOG_BOX(11,1,0,DOOR,"K) Open a Door         ",9,44,112,7,1,116,15)
  21.     DIALOG_BOX(12,1,0,ENTER,"L) Enter a message     ",11,44,112,7,1,116,15)
  22.     DIALOG_BOX(13,1,0,FILEDIRS,"M) File directories    ",13,44,112,7,1,116,15)
  23.     DIALOG_BOX(14,1,0,FLAG4DL,"N) Flag for downloading",15,44,112,7,1,116,15)
  24.     DIALOG_BOX(15,1,0,GOODBYE,"O) Goodbye (Hangup)    ",17,44,112,7,1,116,15)
  25.     DIALOG_BOX(16,1,0,HELP,"P) Help functions      ",19,44,112,7,1,116,15)
  26.         DIALOG_BOX(17,1,0,1,"1) More features...          ",24,5,112,112,1,116,112)
  27.         DIALOG_BOX(18,1,27,2,"Q) Quit this help            ",24,44,112,112,1,116,112)
  28.         DISPLAY ON
  29.         GET(Choice$,17)
  30.         CLEAR_BOXES
  31.         IF COMPARE(Choice$,1) THEN GOTO TOP1
  32.         IF COMPARE(Choice$,2) THEN GOTO DONE
  33.         GOSUB SHOW
  34.         GOTO TOP
  35.  
  36. :TOP1
  37.     ASSIGN(Value$,0,"Page 2")
  38.     GOSUB DRAWBOX
  39.     DIALOG_BOX(1,1,0,INITIAL,"A) Initial welcome     ",5,11,112,7,1,116,15)
  40.     DIALOG_BOX(2,1,0,JOIN,"B) Join a conference   ",7,11,112,7,1,116,15)
  41.     DIALOG_BOX(3,1,0,KILL,"C) Kill a message      ",9,11,112,7,1,116,15)
  42.     DIALOG_BOX(4,1,0,LANGUAGE,"D) Language            ",11,11,112,7,1,116,15)
  43.     DIALOG_BOX(5,1,0,LOCATE,"E) Locate files        ",13,11,112,7,1,116,15)
  44.     DIALOG_BOX(6,1,0,MENU,"F) PCBoard menus       ",15,11,112,7,1,116,15)
  45.     DIALOG_BOX(7,1,0,MODE,"G) Mode command        ",17,11,112,7,1,116,15)
  46.     DIALOG_BOX(8,1,0,NEWFILES,"H) New files           ",19,11,112,7,1,116,15)
  47.     DIALOG_BOX(9,1,0,NEWS,"I) News file display   ",5,44,112,7,1,116,15)
  48.     DIALOG_BOX(10,1,0,PAGE,"J) Operator page       ",7,44,112,7,1,116,15)
  49.     DIALOG_BOX(11,1,0,PAGELEN,"K) Page length set     ",9,44,112,7,1,116,15)
  50.     DIALOG_BOX(12,1,0,QUICK,"L) Quick message scan  ",11,44,112,7,1,116,15)
  51.     DIALOG_BOX(13,1,0,READ,"M) Read messages       ",13,44,112,7,1,116,15)
  52.     DIALOG_BOX(14,1,0,REPLY,"N) Reply to a message  ",15,44,112,7,1,116,15)
  53.     DIALOG_BOX(15,1,0,REREAD,"O) ReRead memorized msg",17,44,112,7,1,116,15)
  54.     DIALOG_BOX(16,1,0,SCRIPT,"P) Script questionnaire",19,44,112,7,1,116,15)
  55.         DIALOG_BOX(17,1,0,1,"1) More features...          ",24,5,112,112,1,116,112)
  56.         DIALOG_BOX(18,1,27,2,"Q) Quit this help            ",24,44,112,112,1,116,112)
  57.         DISPLAY ON
  58.         GET(Choice$,17)
  59.         CLEAR_BOXES
  60.         IF COMPARE(Choice$,1) THEN GOTO TOP2
  61.         IF COMPARE(Choice$,2) THEN GOTO DONE
  62.         GOSUB SHOW
  63.         GOTO TOP1
  64.  
  65. :TOP2
  66.     ASSIGN(Value$,0,"Page 3")
  67.     GOSUB DRAWBOX
  68.     DIALOG_BOX(1,1,0,SELECT,"A) Select conferences  ",5,11,112,7,1,116,15)
  69.     DIALOG_BOX(2,1,0,PROTOCOL,"B) Transfer protocols  ",7,11,112,7,1,116,15)
  70.     DIALOG_BOX(3,1,0,TEST,"C) Test a file         ",9,11,112,7,1,116,15)
  71.     DIALOG_BOX(4,1,0,TEXT,"D) Text search messages",11,11,112,7,1,116,15)
  72.     DIALOG_BOX(5,1,0,UPLOAD,"E) Upload a file       ",13,11,112,7,1,116,15)
  73.     DIALOG_BOX(6,1,0,UPBATCH,"F) Upload batch        ",15,11,112,7,1,116,15)
  74.     DIALOG_BOX(7,1,0,USERS,"G) Users list          ",17,11,112,7,1,116,15)
  75.     DIALOG_BOX(8,1,0,VIEW,"H) View settings       ",19,11,112,7,1,116,15)
  76.     DIALOG_BOX(9,1,0,WRITE,"I) Write user info     ",5,44,112,7,1,116,15)
  77.     DIALOG_BOX(10,1,0,EXPERT,"J) Xpert mode          ",7,44,112,7,1,116,15)
  78.     DIALOG_BOX(11,1,0,YOURS,"K) Your personal mail  ",9,44,112,7,1,116,15)
  79.     DIALOG_BOX(12,1,0,ZIPPY,"L) Zippy directory scan",11,44,112,7,1,116,15)
  80.     DIALOG_BOX(13,1,0,BOOLEAN,"M) Boolean text scans  ",13,44,112,7,1,116,15)
  81.         DIALOG_BOX(14,1,0,1,"1) More features...          ",24,5,112,112,1,116,112)
  82.         DIALOG_BOX(15,1,27,2,"Q) Quit this help            ",24,44,112,112,1,116,112)
  83.         DISPLAY ON
  84.         GET(Choice$,14)
  85.         CLEAR_BOXES
  86.         IF COMPARE(Choice$,1) THEN GOTO TOP
  87.         IF COMPARE(Choice$,2) THEN GOTO DONE
  88.         GOSUB SHOW
  89.         GOTO TOP2
  90.  
  91. :DONE
  92.         DISPLAY OFF
  93.         BLOAD("SCREEN.$$$",1)
  94.         BOX(8,19,17,60,31,112,1,1)
  95.         FILLSCRN(9,20,16,59,32,30,112)
  96.         QPRINT("Clark Development Company, Inc.",10,-1,-1)
  97.         QPRINT("Post Office Box 571365",11,-1,-1)
  98.         QPRINT("Murray, UT 84157-1365",12,-1,-1)
  99.         QPRINT("(801) 261-1686",13,-1,-1)
  100.         QPRINT("Toll Free Order Line:  800-356-1686",15,-1,-1)
  101.         BLINK ON
  102.         DISPLAY ON
  103.         PAUSE 3
  104.     EXIT
  105.  
  106. :DRAWBOX
  107.         DISPLAY OFF
  108.     CLS
  109.     CURSOR OFF
  110.     BLINK OFF
  111.     FILLSCRN(1,1,25,80,32,94,7)
  112.     QPRINT("Help with PCBoard",1,-1,-1)
  113.     BOX(3,5,21,75,143,112,1,1,"",Value$)
  114.     RETURN
  115.  
  116. :SHOW
  117.         IF NOT EXIST(FileSpec$) THEN RETURN
  118.         SCREEN(2,SAVE)
  119.         DISPLAY OFF
  120.         OPEN("I",1,FileSpec$)
  121.         FILLSCRN(1,1,25,80,32,94,112)
  122.         QPRINT("Help with PCBoard",2,-1,-1)
  123.         BOX(4,5,19,76,142,7,1,0)
  124.         DISPLAY ON
  125.         SET_WINDOW(5,7,18,74)
  126.         ATTRIBUTE(143,7)
  127.         BOX(9,20,13,60,112,112,1,1,"Scanning...")
  128.         ASSIGN(Find$,0,":"+Choice$)
  129.  
  130. :SHOW_LOOP
  131.         DISPLAY OFF
  132.         CLS
  133.         MREAD(1,14,Find$)
  134.         ASSIGN(Find$,0,"")
  135.         SCREEN(3,SAVE)
  136.         BOX(21,5,23,76,112,15,1,1,"Press any key to continue or [ESC] to quit")
  137.         DISPLAY ON
  138.         PAUSE
  139.         SCREEN(3,RESTORE)
  140.         IF LASTKEY=27 THEN GOTO SHOW_DONE
  141.         IF NOT EOF(1) THEN GOTO SHOW_LOOP
  142.  
  143. :SHOW_DONE
  144.         CLOSE 1
  145.         SET_WINDOW(1,1,25,80)
  146.         SCREEN(2,RESTORE)
  147.         RETURN
  148.  
  149.