Programmer 7500/MAX_PROGRAMMERS.iso/CLIPPER/MISC/JBCALC10.ZIP/JBHELP.PRG

Text File | 1988-01-17 | 1.8 KB | 41 lines

* JBHELP.PRG
PARAMETERS JBHELP1,JBHELP2,JBHELP3
SAVE SCREEN TO JBSCR
SET COLOR TO N/W
@ JABTOP+5,JABLEFT+1  SAY "  HELP! - Press Any Key... "
@ JABTOP+6,JABLEFT+1  SAY "                           "
@ JABTOP+7,JABLEFT+1  SAY " TAB-> ()Clear Current No "
@ JABTOP+8,JABLEFT+1  SAY "  M -> Store to Memory     "
@ JABTOP+9,JABLEFT+1  SAY "  R -> Restore from Mem    "
@ JABTOP+10,JABLEFT+1 SAY " F2 -> Clear Memory        "
@ JABTOP+11,JABLEFT+1 SAY " F3 -> Use with Sin,Cos,Tan"
@ JABTOP+12,JABLEFT+1 SAY " "+chr(27)+chr(26)+" -> Degrees/Radians     "
@ JABTOP+13,JABLEFT+1 SAY " "+chr(25)+chr(24)+" -> Dec,Hex,Oct,Bin Mode"
@ JABTOP+14,JABLEFT+1 SAY "  ^ -> Raise No. to Power  "
@ JABTOP+15,JABLEFT+1 SAY "  N -> ± - Negate Current  "
@ JABTOP+16,JABLEFT+1 SAY "  X -> 1/x : Inverse       "
@ JABTOP+17,JABLEFT+1 SAY " BSP-> Backspace - Rubout  "
SET COLOR TO N*/W
@ JABTOP+05,JABLEFT+24 SAY "..."
SET COLOR TO N/W
SET CONS OFF
WAIT
SET CONS ON
@ JABTOP+5,JABLEFT+1  SAY " Func. Keys   F2 - Clr.Mem "
@ JABTOP+6,JABLEFT+1  SAY " ┌─3─╖┌─4─╖┌─╖┌─╖┌─╖┌─╖┌─╖ "
@ JABTOP+7,JABLEFT+1  SAY " │Arc║│Log║│║│7║│8║│9║│/║ "
@ JABTOP+8,JABLEFT+1  SAY " ╘═══╝╘═══╝╘═╝╘═╝╘═╝╘═╝╘═╝ "
@ JABTOP+9,JABLEFT+1  SAY " ┌─5─╖┌─6─╖┌─╖┌─╖┌─╖┌─╖┌─╖ "
@ JABTOP+10,JABLEFT+1 SAY " │Sin║│Exp║│%║│4║│5║│6║│*║ "
@ JABTOP+11,JABLEFT+1 SAY " ╘═══╝╘═══╝╘═╝╘═╝╘═╝╘═╝╘═╝ "
@ JABTOP+12,JABLEFT+1 SAY " ┌─7─╖┌─8─╖┌─╖┌─╖┌─╖┌─╖┌─╖ "
@ JABTOP+13,JABLEFT+1 SAY " │Cos║│ π ║│M║│1║│2║│3║│-║ "
@ JABTOP+14,JABLEFT+1 SAY " ╘═══╝╘═══╝╘═╝╘═╝╘═╝╘═╝╘═╝ "
@ JABTOP+15,JABLEFT+1 SAY " ┌─9─╖┌─0─╖┌─╖┌─╖┌─╖┌─╖┌─╖ "
@ JABTOP+16,JABLEFT+1 SAY " │Tan║│ √x║│R║│0║│.║│=║│+║ "
@ JABTOP+17,JABLEFT+1 SAY " ╘═══╝╘═══╝╘═╝╘═╝╘═╝╘═╝╘═╝ "
DO JBREDO WITH JBSYMBOL,JBT,JBL
SET COLOR TO W/N
RESTORE SCREEN FROM JBSCR
RETURN