home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
shelp50a.zip
/
HELPDEMO.PRG
< prev
next >
Wrap
Text File
|
1991-08-11
|
5KB
|
141 lines
FUNCTION HELPDEMO
External superbuild && Complete Superhelp System
*External minibuild && Superhelp Help Building System
*External codebuild && Superhelp Code Generating System
Set key -30 to superbuild && Call to the Complete Superhelp System
*Set key -30 to minibuild && Call to the Superhelp Help Building System
*Set key -31 to codebuild && Call to the Superhelp Code Generating System
Set key -9 to helpmgr
Set Key -4 to Register
Set Key -2 to Nowait
Set Key -20 to Helpcon
Set scoreboard off
Set Exclusive Off
Setcolor('W+/B,W+/R')
Store ' ' to A,B,C,D,E,F,G,H,I,J,K,L,M,N,O
shelpproc = 'MASTER'
Clear Screen
@01,03 SAY '┌───────────────────────────────────────────────────────────────────────┐'
@02,03 SAY '│ ░███ ░█ ░█ ░█████ ░██████ ░█████ ░█ ░█ ░██████ ░███ ░█████ │'
@03,03 SAY '│ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ │'
@04,03 SAY '│ ░█ ░█ ░█ ░█ ░█ ░█ █ ░█ ░█ ░█ ░█ ░█ █ ░█ ░█ ░█ │'
@05,03 SAY '│ ░███ ░█ ░█ ░████ ░███ ░████ ░█████ ░███ ░█ ░████ │'
@06,03 SAY '│ ░█ ░█ ░█ ░█ ░█ █ ░███ ░█ ░█ ░█ █ ░█ ░█ ░█ │'
@07,03 SAY '│ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░█ ░██ ░█ │'
@08,03 SAY '│ ░███ ░███ ░███ ░██████ ░██ ░█ ░█ ░█ ░██████ ░██████ ░███ │'
@09,03 SAY '│ │'
@10,03 SAY '│ Version 5.0 │'
@11,03 SAY '└───────────────────────────────────────────────────────────────────────┘'
@ 13,26 SAY '** BEFORE GETTING STARTED **'
@ 15,10 Say '1. Please print the PRINT.ME and HINTS.TXT files.'
@ 16,10 SAY '2. Setup Project Information.'
@ 17,10 SAY '3. Setup Window Defaults.'
@ 18,10 SAY '4. Select Field Level or Conceptual Level Help.'
@ 19,10 SAY '5. Always best to develop Field and Conceptual Level Help.'
@ 20,10 SAY '6. Now test the best looking help system ever!'
INKEY(0)
CLEAR SCREEN
@0,0 to 24,79
@20,5 to 23,74
Setcolor('GR+/B')
@ 2,25 Say 'Superhelp Code Generator v5.0'
@ 3,38 Say 'Demo'
@ 4,50 Say ' F1 - Help'
@ 6,50 Say ' F3 - Inkey Help'
@ 7,50 Say ' F5 - Link Windows'
@ 8,50 Say ' F10 - Help Manager'
@ 9,50 Say 'Alt F1 - Create Help'
@10,50 Say ' ESC - Exits'
Setcolor('W+/B,W+/R,N/W,N/W,B')
@21,10 Say 'Help was created using Simulated Memoedit with Reference File.'
@22,10 Say 'Try using all the Superhelp Commands to generate sample help.'
Do While Lastkey() != 27
@ 5,10 Say ' 1. Introduction ' get A
@ 6,10 Say ' 2. Window Commands ' get B
@ 7,10 Say ' 3. Color Commands ' get C
@ 8,10 Say ' 4. Shadow Commands ' get D
@ 9,10 Say ' 5. Help Code Generation ' get E
@10,10 Say ' 6. User Guide Generation ' get F
@11,10 Say ' 7. Data Dictionary Generation ' get G
@12,10 Say ' 8. Help Text Commands ' get H
@13,10 Say ' 9. System Defaults ' get I
@14,10 Say '10. Import/Export Text ' get J
@15,10 Say '11. Project Setup ' get K
@16,10 Say '12. Color Setup ' get L
@17,10 Say '13. Screen Capture ' get M
@18,10 Say '14. Help Manager ' get N
@19,10 Say '15. Link Windows ' get O
Read
CLOSE ALL
Enddo
RETURN NIL
Function Register
LOCAL GETLIST:={}
Set Key -4 To
rscr = savescreen(0,0,24,79)
Setcolor('W+/B,W+/R')
clear screen
fname = space(15)
lname = space(20)
add1 = space(25)
add2 = space(25)
city = space(15)
state = space(2)
zip = space(10)
phone = space(13)
@0,0 to 24,79
@19,5 to 22,74
Setcolor('GR+/B')
@ 2,25 Say 'Superhelp Code Generator v5.0'
@ 3,31 Say 'Link Windows Demo'
@ 6,54 Say 'F1 - Help'
@ 7,50 Say 'Alt F1 - Create Help'
@ 8,53 Say 'F10 - Help Manager'
Setcolor('W+/B,W+/R,N/W,N/W,B')
shelpvar = 'Customer'
@20,10 Say 'Help was created using Simulated Memoedit with Reference File.'
@21,10 Say 'Try using all the Superhelp Commands to generate sample help.'
@ 5,10 Say 'Name : ' Get fname
@ 5,40 Get lname
@ 6,10 Say 'Address : ' Get add1
@ 7,10 Say ' ' Get add2
@ 8,10 Say 'City : ' Get city
@ 9,10 Say 'State : ' Get state
@10,10 Say 'Zipcode : ' Get zip Pict '99999-9999'
@11,10 Say 'Phone No : ' Get phone Pict '(999)999-9999'
Read
Restscreen(0,0,24,79,rscr)
Set Key -4 To Register
Return''
Function Nowait
Set Key -2 To
rscr = savescreen(0,0,24,79)
Setcolor('W+/B,W+/R')
clear screen
Setcolor('GR+/B')
@ 2,25 Say 'Superhelp Code Generator v2.6'
@ 3,31 Say 'Inkey Window Demo'
Setcolor('W+/B,W+/R')
@ 4,54 Say 'F1 - Help'
@ 5,50 Say 'Alt F1 - Create Help'
@ 7,20 to 13,60 DOUBLE
@ 9,22 Say 'This is an example of a no wait'
@10,22 Say 'state in Clipper using ENKEY().'
@11,22 Say 'Create Help by press Alt-F1.'
@14,20 Say 'Syntax: ENKEY(time,PROCNAME(),variable)'
@15,20 Say ' │ │ │ '
@16,20 Say ' │ │ └──> Name assigned to Var'
@17,20 Say ' │ └───> Clipper Function '
@18,20 Say ' └───> Just like Inkey parameter'
pass = 0
keyp = STR(Enkey(0,PROCNAME(0),"INKEY1"),3)
Restscreen(0,0,24,79,rscr)
Set Key -2 To Nowait
Return''