home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / QBUTIL5P.ZIP / PRINTDOC.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-09-16  |  978 b   |  26 lines
  1. '   Note: Simply run this routine using the QuickBASIC editor without any
  2. '   library.
  3. '
  4.     COLOR 15, 0: CLS
  5.     PRINT "QBUTIL - A QuickBASIC Programmer's Utility Set"
  6.     PRINT
  7. PrintLoop:
  8.     PRINT "Print the QBUTIL documentation files? [Y/N] :";
  9.     LOCATE , , 1
  10.     DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": PRINT A$
  11.     IF A$ = "Y" THEN
  12.         COLOR 15: CLS
  13.         PRINT "Printing the main documentation file"; : COLOR 31: PRINT ".....": COLOR 15
  14.         SHELL "TYPE QBUTIL5.PRN > prn:"
  15.         PRINT "Printing the Appendix A file"; : COLOR 31: PRINT "....": COLOR 15
  16.         SHELL "TYPE QBU-APA1.PRN > prn:"
  17.         PRINT "Printing the Appendix B file"; : COLOR 31: PRINT "....": COLOR 15
  18.         SHELL "TYPE QBU-APB.PRN > prn:"
  19.         PRINT "Printing the Appendix C file"; : COLOR 31: PRINT "....": COLOR 15
  20.         SHELL "TYPE QBU-APC.PRN > prn:"
  21.         COLOR 15: END
  22.     END IF
  23.     IF A$ <> "N" THEN BEEP: GOTO PrintLoop
  24.     CLS : END
  25.  
  26.