Simulated Underline Cursor

    1 REM Simulated Underlining           Cursor Routine
    2 REM RESET  1985 Richard Bredhoff                962 E 107 St                    Brooklyn, NY                    11236
    3 REM SYNCWARE NEWS                   2068 Screen Utility             Competition Entry
    9 BORDER 1: PAPER 1: CLS : INK 6
   10 LET g$="This is a demontration of the   simulated 'underline' cursor    routine."
   11 LET g$=g$+CHR$ 13+"It can be used to print any     instructions for games, or util-ities and effect of a screen    full of printing appearing      suddenly is avoided."
   12 LET g$=g$+CHR$ 13+"The string to be printed can be of any length, have any legal   'name' and may include any of   the control characters, simply  by concatenating the new charac-ters to the existing string."
   13 LET g$=g$+CHR$ 13+"Of course, the BEEP can be made longer or shorter or eliminated entirely, as can the two PAUSES in line 30.     " 
   14 LET g$=g$+CHR$ 13+"If the text is longer than one  screen, any additional screens  may be displayed on demand, to  allow for variations in reading speed and comprehension, as     shown."
   15 LET g$=g$+CHR$ 13+"The variabe 'pager' is initiallyset to 0, turned on when the    first page is nearly full (PRINTLEN g$) and turned off by the   subroutine."
   19 LET pager=0
   20 FOR t=1 TO LEN g$
   22 IF t>520 AND t<522 THEN LET pager=1
   24 IF pager=1 THEN GO SUB 1010
   30 PRINT "_";: BEEP .001,20: PRINT CHR$ 8;" ";: PAUSE 1: PRINT CHR$ 8;g$(t);: PAUSE 1
   40 NEXT t
   45 PRINT AT 21,0;"Press any key to reread Page 1..": PAUSE 0: CLS : GO TO 20
   50 STOP 
 1010 PRINT AT 21,0;"Press any key to continue...": PAUSE 0
 1020 LET pager=0: CLS : RETURN 
 9990 STOP 
 9995 CLEAR : SAVE "A WINNER !" LINE 1