10 'PRINTER SPEED TEST 20 'ADAPTED FROM PC MAGAZINE ISSUE OF 10/83 30 NLINES = 50 'NUMBER OF LINES TO TIME 40 TEST$ = "Here is a line of text, representative of normal typing. 1234567" 50 LTEST = LEN(TEST$) 'LENGTH OF TEST LINE 60 CLS 70 LINE INPUT "SPECIFY PRINTER MAKE AND MODEL: ";MODEL$ 80 LINE INPUT "IS THE PRINTER BUFFERED? (Y/N) ";BUFF$ 90 IF BUFF$ = "" THEN 80 100 BUFF$ = CHR$ (ASC(BUFF$) AND 95) 110 IF BUFF$ = "Y" THEN GOSUB 530 120 GOSUB 430 130 LPRINT SPECIAL$; 140 PRINT "INSERT PAPER AND PRESS 'ENTER' KEY TO BEGIN TEST." 150 LINE INPUT START$ 160 LPRINT 170 LPRINT "PRINTER SPEED TEST, "; MODEL$, DATE$ 180 LPRINT 190 TIME$ = "0" 200 FOR LOOP = 1 TO NLINES 210 LPRINT TEST$ 220 NEXT LOOP 230 IF BUFF$ <> "Y" THEN 250 240 PRINT "REMEMBER TO PRESS A KEY...." 250 APAUSE$ = INKEY$ 260 IF APAUSE$ = "" THEN 250 270 ELAPSED$ = TIME$ 280 MINS$ = MID$(ELAPSED$,4,2) 290 SECS$ = RIGHT$(ELAPSED$,2) 300 MINUTES = VAL(MINS$) 310 SECONDS = VAL(SECS$) 320 TOTSECONDS = (MINUTES * 60) + SECONDS 330 TOTMIN = MINUTES + (SECONDS/60) 340 TOTCHARS = LTEST * NLINES 350 THROUGHPUT = TOTCHARS/TOTSECONDS 360 LPRINT 370 LPRINT "THROUGHPUT REPORT FOR ";MODEL$ 380 LPRINT "ELAPSED TIME = ";TOTSECONDS; " SECONDS FOR"; NLINES; " LINES OF TEXT ." 390 LPRINT THROUGHPUT; " CHARACTERS PER SECOND FOR"; TOTCHARS; "CHARACTERS." 400 LPRINT NLINES/TOTMIN " LINES PER MINUTE." 410 LPRINT CHR$(12) 420 END 430 'GATHER SPECIAL CHARACTERS FROM KEYBOARD AND SEND THEM TO THE PRINTER. 440 PRINT "ENTER SPECIAL CHARACTERS BY PRESSING THE KEYSTROKES YOU WISH" 450 PRINT "TO TRANSMIT TO THE PRINTER. PRESS 'ENTER' WHEN DONE." 460 SPECIAL$ = "" 470 WHILE X$ <> CHR$(13) 480 X$ = INKEY$ 490 IF X$ = CHR$(13) THEN GOTO 510 500 SPECIAL$ = SPECIAL$ + X$ 510 WEND 520 RETURN 530 'SET UP FOR KEYBOARD CONTROL OF TIMING. 540 PRINT:PRINT "THE COMPUTER WILL START THE CLOCK." 550 PRINT "THE PRINTER'S BELL WILL SOUND WHEN IT IS DONE PRINTING." 560 PRINT "PRESS ANY KEY WHEN YOU HEAR THE BELL OR WHEN PRINTING STOPS." 570 PRINT "THIS WILL STOP THE CLOCK." 580 PRINT 590 RETURN EN PRINTING STOPS." 570 PRINT "THIS WILL STOP THE CLOCK." 580 PRINT 590 RETURN