/* help.c Larn is copyrighted 1986 by Noah Morgan. */
* help function to display the help info
* format of the .larn.help file
* 1st character of file: # of pages of help available (ascii digit)
* page (23 lines) for the introductory message (not counted in above)
* pages of help text (23 lines per page)
char tmbuf
[128]; /* intermediate translation buffer when not a VT100 */
if ((j
=openhelp()) < 0) return; /* open the help file and get # pages */
for (i
=0; i
<23; i
++) lgetl(); /* skip over intro message */
lprcat(lgetl()); /* print out each line that we read in */
{ tmcapcnv(tmbuf
,lgetl()); lprcat(tmbuf
); } /* intercept \33's */
lprcat(" ---- Press "); standout("return");
lprcat(" to exit, "); standout("space");
lprcat(" for more help ---- ");
i
=0; while ((i
!=' ') && (i
!='\n') && (i
!='\33')) i
=getchar();
if ((i
=='\n') || (i
=='\33'))
lrclose(); setscroll(); drawscreen(); return;
lrclose(); retcont(); drawscreen();
* function to display the welcome message and background
char tmbuf
[128]; /* intermediate translation buffer when not a VT100 */
if (openhelp() < 0) return; /* open the help file */
lprcat(lgetl()); /* print out each line that we read in */
{ tmcapcnv(tmbuf
,lgetl()); lprcat(tmbuf
); } /* intercept \33's */
lrclose(); retcont(); /* press return to continue */
* function to say press return to continue and reset scroll when done
cursor(1,24); lprcat("Press "); standout("return");
lprcat(" to continue: "); while (getchar() != '\n');
* routine to open the help file and return the first character - '0'
lprintf("Can't open help file \"%s\" ",helpfile
);
lflush(); sleep(4); drawscreen(); setscroll(); return(-1);
resetscroll(); return(lgetc() - '0');