CALL PRTSC
 Sends the current screen image to the printer.

 Useful in making hard-copy printouts of program screens
 for documentation, and in menu-driven applications to keep
 a consistent user-interface with other menu options.

 Same as simultaneously pressing the Shift-PrtSc keys.

 * Documenting screens
 @...SAY...GET...
 @...SAY...GET...
 @...SAY...GET...
 * CALL PRTSC   && comment out during program execution
 READ

 @...SAY...GET...
 @...SAY...GET...
 @...SAY...GET...
 CALL PRTSC     && remove comment to print documentation
 READ

 * Menu option
 PROMPT "....." MESSAGE "..."
 PROMPT "PrtSc" MESSAGE "Print current screen image"
 PROMPT "....." MESSAGE "..."
 MENU TO choice
 DO CASE
    CASE choice = 1
       <appropriate code>
    CASE choice = 2
       IF ISPRINTER()
          CALL PRTSC
       ELSE
          @...SAY "Error -- printer not ready"
       ENDIF
    CASE choice = 3
       <appropriate code>
 ENDCASE


             Placed in the Public Domain by Tom Rettig Assoc.