
202 Servicing Personal Computers
620 REM
630 GOSUB 730
640 CLS: PRINT "CONTINUOUS PRINT ROUTINE"
650 PRINT: PRINT "PRESS <BREAK> TO ABORT"
660 FOR PC=64 TO 127: P*=STRING*(64,PC): LPRINT P*: NEXT PC
670 GOTO 660
680 REM
690 REM ** EXIT PROGRAM **
700 REM
710 LPRINT
CHR*(27); CHR*(70):
LPRINT CHR*(18)
720 CLS: END
730 REM
740 REM ** SET PRINTER SUBROUTINE **
750 REM
760 CLS: PRINT "SET PRINTER ROUTINE"
770 PRINT: PRINT "TYPE:-"
780 PRINT " <C> FOR CONDENSED"
790 PRINT " <E> FOR EMPHASIZED"
800 PRINT " <N> FOR NORMAL"
810 PRINT "ENTER YOUR CHOICE "
820 R*=INKEY*
830 IF R*="" GOTO 820
840 IF R*="C" OR R$="c" LPRINT
CHR*(15):
RETURN
850 IF R$="E ...