Lemons Tech

325 N. Hwy 65 P.O. Drawer 429 Buffalo, M0 65622 (417)345 7643

CODE. THAT GROUP OF"

620 PRINT "OF NUMBERS IS THE INITIATING STATUS CODE

630 PRINT "WRITE IT DOWN AS USUAL."

640 INPUT "PRESS <ENTER> WHEN READY FOR THE NEXT

PART OF THE TEST";A$

650 CLS: PRINT "NOW WE ARE GOING TO TRY TO DETERMINE THE PRINTER BUSY SIGNAL." 660 PRINT "YOU MUST FILL THE PRINTER BUFFER SOMEHOW TO DETERMINE THIS VALUE";

670 PRINT "ADJUST LINE 690 SO THAT YOU ARE ASSURED OF SENDING AT LEAST"

680 PRINT "ENOUGH CHARACTERS TO DO THIS" 690 B$=STRING$(255,"T")

700 INPUT "PRESS <ENTER> WHEN YOUR PRINTER IS READY TO PRINT";A$ 710 LPRINT B$;B$

720 FOR X%=0 TO 64: PRINT PEEK(PP%);: NEXT X%: PRINT 730 PRINT "HOPEFULLY THIS STRING OF 510 CHARACTERS KEPT YOUR PRINTER BUSY."

740 PRINT "YOU SHOULD HAVE A SERIES OF NUMBERS YOU HAVEN'T SEEN BEFORE."

750 PRINT "THIS IS THE PRINTER BUSY/BUFFER FULL SIGNAL. CALL IT BZ% FOR USE";

760 PRINT "LATER ON. WRITE IT DOWN ALSO."

770 INPUT "PRESS <ENTER> WHEN READY FOR THE NEXT

780 CLS: PRINT "THIS IS THE NEXT TO LAST TEST. TURN THE PRINTER OFF AGAIN."

790 PRINT "NOW REMOVE THE PAPER FROM THE PRINTER. YES, WE'RE GOING TO MAKE" 800 PRINT "A LITTLE NOISE (IF YOU HAVE AN OUT OF PAPER BELL/BUZZER)."

810 PRINT "YOU MAY NOW SEE TWO VALUES WE HAVEN'T SEEN BEFORE,THE FIRST WILL";

820 PRINT "BE THE INITIATING WITHOUT PAPER SIGNAL, AND THE LAST GROUP WILL"

830 PRINT "BE THE OUT OF PAPER SIGNAL THE PRINTER SENDS TO THE COMPUTER."

840 PRINT "TO KEEP THE NOISE LEVEL TO A MINIMUM WE WILL RUN THIS LIKE THE"

850 PRINT "TEST FOR ST% (INITIATION), THAT IS PRESS

<ENTER> AND RAPIDLY"

860 PRINT "TURN THE PRINTER ON."

870 IN PUT" PR ESS <ENTER> WHEN READY TO START THIS

880 FOR X%=1 TO 100: PRINT PEEK (PP%);:NEXT X%: PRINT 890 PRINT "IF YOU HAVE TWO SETS OF NUMBERS AND THE FIRST IS NOT THE SAME AS";

900 PRINT "THE INITIATION (ST%) VALUE, THEN IT IS AN INITIATION WITHOUT"

910 PRINT "PAPER SIGNAL IP%. THE LAST GROUP IS THE ACTUAL OUT OF PAPER"

920 PRINT "SIGNAL, NP%. WRITE IT DOWN WITH ALL THOSE OTHERS."

930 INPUT "PRESS <ENTER> WHEN READY FOR THE LAST TEST ";A$

940 CLS: PRINT "FOR THIS LAST TEST WE SHOULD SHUT DOWN BOTH THE PRINTER AND THE" 950 PRINT "COMPUTER. BUT FIRST SAVE THIS PROGRAM SO YOU CAN RE-ENTER HERE"

960 PRINT "LATER. TO DO SO LOAD THE PROGRAM, TYPE RUN, HIT THE <BREAK> KEY"; 78 80-U.S. Journal

970 PRINT "AT THE FIRST PROMPT AND THEN TYPE GOTO 940. THIS WILL GET YOU"

980 PRINT "BACK TO THIS POINT IN THE PROGRAM."

990 PRINT "WHILE THE SYSTEM IS SHUT DOWN,

DISCONNECT THE CABLE FROM THE"

1000 PRINT"PRINTER TO THE TRS-80 AT EITHER THE

INTERFACE CARD EDGE OR THE"

1010 PRINT "PRINTER ITSELF, WHICHEVER IS EASIER."

1020 INPUT "PRESS <BREAK> TO SET UP FOR THIS TEST, OR

1030 CLS: PRINT "THIS IS A TEST OF THE PRINTER NOT

THERE SIGNAL. IT SHOULD BE 255";

0 0

Post a comment