        SPARKWARE

        SCREEN(1,SAVE)
        ASSIGN(FileSpec$,0,"PCBOARD.HLP")
        SAVER 180

:TOP
	ASSIGN(Value$,0,"Page 1")
	GOSUB DRAWBOX
        DIALOG_BOX(1,1,0,INTRO,"A) Introduction        ",5,11,112,7,1,116,15)
	DIALOG_BOX(2,1,0,LOGGING,"B) Logging into PCBoard",7,11,112,7,1,116,15)
	DIALOG_BOX(3,1,0,GENERAL,"C) General information ",9,11,112,7,1,116,15)
	DIALOG_BOX(4,1,0,BASIC,"D) Basic usage         ",11,11,112,7,1,116,15)
	DIALOG_BOX(5,1,0,ABANDON,"E) Abandon a conference",13,11,112,7,1,116,15)
	DIALOG_BOX(6,1,0,BULLETIN,"F) Bulletins           ",15,11,112,7,1,116,15)
	DIALOG_BOX(7,1,0,CHAT,"G) Chat between nodes  ",17,11,112,7,1,116,15)
	DIALOG_BOX(8,1,0,COMMENTS,"H) Comments to Sysop   ",19,11,112,7,1,116,15)
	DIALOG_BOX(9,1,0,DOWNLOAD,"I) Download a file     ",5,44,112,7,1,116,15)
	DIALOG_BOX(10,1,0,DLBATCH,"J) Download Batch      ",7,44,112,7,1,116,15)
	DIALOG_BOX(11,1,0,DOOR,"K) Open a Door         ",9,44,112,7,1,116,15)
	DIALOG_BOX(12,1,0,ENTER,"L) Enter a message     ",11,44,112,7,1,116,15)
	DIALOG_BOX(13,1,0,FILEDIRS,"M) File directories    ",13,44,112,7,1,116,15)
	DIALOG_BOX(14,1,0,FLAG4DL,"N) Flag for downloading",15,44,112,7,1,116,15)
	DIALOG_BOX(15,1,0,GOODBYE,"O) Goodbye (Hangup)    ",17,44,112,7,1,116,15)
	DIALOG_BOX(16,1,0,HELP,"P) Help functions      ",19,44,112,7,1,116,15)
        DIALOG_BOX(17,1,0,1,"1) More features...          ",24,5,112,112,1,116,112)
        DIALOG_BOX(18,1,27,2,"Q) Quit this help            ",24,44,112,112,1,116,112)
        DISPLAY ON
        GET(Choice$,17)
        CLEAR_BOXES
        IF COMPARE(Choice$,1) THEN GOTO TOP1
        IF COMPARE(Choice$,2) THEN GOTO DONE
        GOSUB SHOW
        GOTO TOP

:TOP1
	ASSIGN(Value$,0,"Page 2")
	GOSUB DRAWBOX
	DIALOG_BOX(1,1,0,INITIAL,"A) Initial welcome     ",5,11,112,7,1,116,15)
	DIALOG_BOX(2,1,0,JOIN,"B) Join a conference   ",7,11,112,7,1,116,15)
	DIALOG_BOX(3,1,0,KILL,"C) Kill a message      ",9,11,112,7,1,116,15)
	DIALOG_BOX(4,1,0,LANGUAGE,"D) Language            ",11,11,112,7,1,116,15)
	DIALOG_BOX(5,1,0,LOCATE,"E) Locate files        ",13,11,112,7,1,116,15)
	DIALOG_BOX(6,1,0,MENU,"F) PCBoard menus       ",15,11,112,7,1,116,15)
	DIALOG_BOX(7,1,0,MODE,"G) Mode command        ",17,11,112,7,1,116,15)
	DIALOG_BOX(8,1,0,NEWFILES,"H) New files           ",19,11,112,7,1,116,15)
	DIALOG_BOX(9,1,0,NEWS,"I) News file display   ",5,44,112,7,1,116,15)
	DIALOG_BOX(10,1,0,PAGE,"J) Operator page       ",7,44,112,7,1,116,15)
	DIALOG_BOX(11,1,0,PAGELEN,"K) Page length set     ",9,44,112,7,1,116,15)
	DIALOG_BOX(12,1,0,QUICK,"L) Quick message scan  ",11,44,112,7,1,116,15)
	DIALOG_BOX(13,1,0,READ,"M) Read messages       ",13,44,112,7,1,116,15)
	DIALOG_BOX(14,1,0,REPLY,"N) Reply to a message  ",15,44,112,7,1,116,15)
	DIALOG_BOX(15,1,0,REREAD,"O) ReRead memorized msg",17,44,112,7,1,116,15)
	DIALOG_BOX(16,1,0,SCRIPT,"P) Script questionnaire",19,44,112,7,1,116,15)
        DIALOG_BOX(17,1,0,1,"1) More features...          ",24,5,112,112,1,116,112)
        DIALOG_BOX(18,1,27,2,"Q) Quit this help            ",24,44,112,112,1,116,112)
        DISPLAY ON
        GET(Choice$,17)
        CLEAR_BOXES
        IF COMPARE(Choice$,1) THEN GOTO TOP2
        IF COMPARE(Choice$,2) THEN GOTO DONE
        GOSUB SHOW
        GOTO TOP1

:TOP2
	ASSIGN(Value$,0,"Page 3")
	GOSUB DRAWBOX
	DIALOG_BOX(1,1,0,SELECT,"A) Select conferences  ",5,11,112,7,1,116,15)
	DIALOG_BOX(2,1,0,PROTOCOL,"B) Transfer protocols  ",7,11,112,7,1,116,15)
	DIALOG_BOX(3,1,0,TEST,"C) Test a file         ",9,11,112,7,1,116,15)
	DIALOG_BOX(4,1,0,TEXT,"D) Text search messages",11,11,112,7,1,116,15)
	DIALOG_BOX(5,1,0,UPLOAD,"E) Upload a file       ",13,11,112,7,1,116,15)
	DIALOG_BOX(6,1,0,UPBATCH,"F) Upload batch        ",15,11,112,7,1,116,15)
	DIALOG_BOX(7,1,0,USERS,"G) Users list          ",17,11,112,7,1,116,15)
	DIALOG_BOX(8,1,0,VIEW,"H) View settings       ",19,11,112,7,1,116,15)
	DIALOG_BOX(9,1,0,WRITE,"I) Write user info     ",5,44,112,7,1,116,15)
	DIALOG_BOX(10,1,0,EXPERT,"J) Xpert mode          ",7,44,112,7,1,116,15)
	DIALOG_BOX(11,1,0,YOURS,"K) Your personal mail  ",9,44,112,7,1,116,15)
	DIALOG_BOX(12,1,0,ZIPPY,"L) Zippy directory scan",11,44,112,7,1,116,15)
	DIALOG_BOX(13,1,0,BOOLEAN,"M) Boolean text scans  ",13,44,112,7,1,116,15)
        DIALOG_BOX(14,1,0,1,"1) More features...          ",24,5,112,112,1,116,112)
        DIALOG_BOX(15,1,27,2,"Q) Quit this help            ",24,44,112,112,1,116,112)
        DISPLAY ON
        GET(Choice$,14)
        CLEAR_BOXES
        IF COMPARE(Choice$,1) THEN GOTO TOP
        IF COMPARE(Choice$,2) THEN GOTO DONE
        GOSUB SHOW
        GOTO TOP2

:DONE
        DISPLAY OFF
        BLOAD("SCREEN.$$$",1)
        BOX(8,19,17,60,31,112,1,1)
        FILLSCRN(9,20,16,59,32,30,112)
        QPRINT("Clark Development Company, Inc.",10,-1,-1)
        QPRINT("Post Office Box 571365",11,-1,-1)
        QPRINT("Murray, UT 84157-1365",12,-1,-1)
        QPRINT("(801) 261-1686",13,-1,-1)
        QPRINT("Toll Free Order Line:  800-356-1686",15,-1,-1)
        BLINK ON
        DISPLAY ON
        PAUSE 3
	EXIT

:DRAWBOX
        DISPLAY OFF
	CLS
	CURSOR OFF
	BLINK OFF
	FILLSCRN(1,1,25,80,32,94,7)
	QPRINT("Help with PCBoard",1,-1,-1)
	BOX(3,5,21,75,143,112,1,1,"",Value$)
	RETURN

:SHOW
        IF NOT EXIST(FileSpec$) THEN RETURN
        SCREEN(2,SAVE)
        DISPLAY OFF
        OPEN("I",1,FileSpec$)
        FILLSCRN(1,1,25,80,32,94,112)
        QPRINT("Help with PCBoard",2,-1,-1)
        BOX(4,5,19,76,142,7,1,0)
        DISPLAY ON
        SET_WINDOW(5,7,18,74)
        ATTRIBUTE(143,7)
        BOX(9,20,13,60,112,112,1,1,"Scanning...")
        ASSIGN(Find$,0,":"+Choice$)

:SHOW_LOOP
        DISPLAY OFF
        CLS
        MREAD(1,14,Find$)
        ASSIGN(Find$,0,"")
        SCREEN(3,SAVE)
        BOX(21,5,23,76,112,15,1,1,"Press any key to continue or [ESC] to quit")
        DISPLAY ON
        PAUSE
        SCREEN(3,RESTORE)
        IF LASTKEY=27 THEN GOTO SHOW_DONE
        IF NOT EOF(1) THEN GOTO SHOW_LOOP

:SHOW_DONE
        CLOSE 1
        SET_WINDOW(1,1,25,80)
        SCREEN(2,RESTORE)
        RETURN

