home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / COMPUTER / PRINTER / PRNTER3.ARC / PRINTES1.BAS < prev    next >
Encoding:
BASIC Source File  |  1983-09-19  |  2.5 KB  |  64 lines
  1. 10 'PRINTER SPEED TEST
  2. 20 'ADAPTED FROM PC MAGAZINE ISSUE OF 10/83
  3. 30 NLINES = 50          'NUMBER OF LINES TO TIME
  4. 40 TEST$ = "Here is a line of text, representative of normal typing.   1234567"
  5. 50 LTEST = LEN(TEST$)   'LENGTH OF TEST LINE
  6. 60 CLS
  7. 70 LINE INPUT "SPECIFY PRINTER MAKE AND MODEL: ";MODEL$
  8. 80 LINE INPUT "IS THE PRINTER BUFFERED? (Y/N) ";BUFF$
  9. 90 IF BUFF$ = "" THEN 80
  10. 100 BUFF$ = CHR$ (ASC(BUFF$) AND 95)
  11. 110 IF BUFF$ = "Y" THEN GOSUB 530
  12. 120 GOSUB 430
  13. 130 LPRINT SPECIAL$;
  14. 140 PRINT "INSERT PAPER AND PRESS 'ENTER' KEY TO BEGIN TEST."
  15. 150 LINE INPUT START$
  16. 160 LPRINT
  17. 170 LPRINT "PRINTER SPEED TEST, "; MODEL$, DATE$
  18. 180 LPRINT
  19. 190 TIME$ = "0"
  20. 200 FOR LOOP = 1 TO NLINES
  21. 210 LPRINT TEST$
  22. 220 NEXT LOOP
  23. 230 IF BUFF$ <> "Y" THEN 250
  24. 240 PRINT "REMEMBER TO PRESS A KEY...."
  25. 250 APAUSE$ = INKEY$
  26. 260 IF APAUSE$ = "" THEN 250
  27. 270 ELAPSED$ = TIME$
  28. 280 MINS$ = MID$(ELAPSED$,4,2)
  29. 290 SECS$ = RIGHT$(ELAPSED$,2)
  30. 300 MINUTES = VAL(MINS$)
  31. 310 SECONDS = VAL(SECS$)
  32. 320 TOTSECONDS = (MINUTES * 60) + SECONDS
  33. 330 TOTMIN = MINUTES + (SECONDS/60)
  34. 340 TOTCHARS = LTEST * NLINES
  35. 350 THROUGHPUT = TOTCHARS/TOTSECONDS
  36. 360 LPRINT
  37. 370 LPRINT "THROUGHPUT REPORT FOR ";MODEL$
  38. 380 LPRINT "ELAPSED TIME = ";TOTSECONDS; " SECONDS FOR"; NLINES; " LINES OF TEXT    ."
  39. 390 LPRINT THROUGHPUT; " CHARACTERS PER SECOND FOR"; TOTCHARS; "CHARACTERS."
  40. 400 LPRINT NLINES/TOTMIN " LINES PER MINUTE."
  41. 410 LPRINT CHR$(12)
  42. 420 END
  43. 430 'GATHER SPECIAL CHARACTERS FROM KEYBOARD AND SEND THEM TO THE PRINTER.
  44. 440 PRINT "ENTER SPECIAL CHARACTERS BY PRESSING THE KEYSTROKES YOU WISH"
  45. 450 PRINT "TO TRANSMIT TO THE PRINTER.  PRESS 'ENTER' WHEN DONE."
  46. 460 SPECIAL$ = ""
  47. 470 WHILE X$ <> CHR$(13)
  48. 480     X$ = INKEY$
  49. 490     IF X$ = CHR$(13) THEN GOTO 510
  50. 500     SPECIAL$ = SPECIAL$ + X$
  51. 510 WEND
  52. 520 RETURN
  53. 530 'SET UP FOR KEYBOARD CONTROL OF TIMING.
  54. 540 PRINT:PRINT "THE COMPUTER WILL START THE CLOCK."
  55. 550 PRINT "THE PRINTER'S BELL WILL SOUND WHEN IT IS DONE PRINTING."
  56. 560 PRINT "PRESS ANY KEY WHEN YOU HEAR THE BELL OR WHEN PRINTING STOPS."
  57. 570 PRINT "THIS WILL STOP THE CLOCK."
  58. 580 PRINT
  59. 590 RETURN
  60. EN PRINTING STOPS."
  61. 570 PRINT "THIS WILL STOP THE CLOCK."
  62. 580 PRINT
  63. 590 RETURN
  64.