Listing of file='P81D010P' on disk='vmedia/702-0079.wvd.zip'
# Sector 863, program filename = 'P81D010P'
0010 REM . 2281.PTR-01 00-00 (1/16/77)
0260 DIM A$20,A1$31,W$18,F$5,G$5,B$26,C1$26,B1$41,A3$1,Y$18
: DIM H1$1,R$10,R1$10,R2$10,A$(2)47,M$30,N$35,O$30,P$30,J$2,C$3,D1$35,K$1,I
1$64,I2$1,H2$2
0280 W$=HEX(093109320933093409350936093709380939)
: E1$="LINE FEED TEST"
: F1$="OPERATOR ACTION "
: G1$="SELECT"
: M$="ACCEPTABLE RESULT IS "
: Y$="UPPER & LOWER CASE "
0310 N$="VERTICALLY SPACED DOWN THIS PAGE "
: P$="2281-P PRINTER DIAGNOSTIC"
: O$="DEPRESS - RETURN(EXEC) "
: X$="CHARACTER SET"
: INIT(0A)C$,J$,K$
: GOSUB '65
: GOSUB 1980
0370 PRINT TAB(19);"STATIC PRINTER CONDITIONS "
: PRINT K$
: PRINT TAB(22);"POWER MUST BE ON"
: PRINT K$
: PRINT TAB(19);G1$;" LAMP MUST BE ON"
: PRINT K$
: PRINT TAB(18);"WIDE PAPER IN THE PRINTER"
: PRINT K$
0450 PRINT TAB(14);"ADJUST TOP OF FORM TO LINE NO. 1"
: PRINT K$
: PRINT TAB(22);"ADDRESS AT 215"
: PRINT K$
: PRINT TAB(3);O$;" TO START ";P$
0480 KEYIN H1$,490,490
: GOTO 480
0490 IF H1$=HEX(0D)THEN 510
: GOTO 480
0510 GOSUB '0
0530 DEFFN'0
0540 DEFFN'31
: RETURN CLEAR
: GOSUB 1970
: PRINT TAB(4);"* MASTER MENU *"
: GOSUB 2000
: PRINT TAB(17);D1$
: PRINT K$
: PRINT TAB(5);"1 - CONFIDENCE TEST";TAB(33);"6 - PAPER MOTION TESTS"
0590 PRINT TAB(5);"2 - COMPLETE PRINTER TEST";TAB(33);"7 - FORM FILLING COMMAN
DS "
: PRINT TAB(5);"3 - TABULATION TEST";TAB(33);"8 - REPETITIVE CHAR OUTPUT"
0610 PRINT TAB(5);"4 - ";Y$;TAB(33);"9 - OPERATOR ACTION TESTS"
: PRINT TAB(5);"5 - ";X$;" TEST";TAB(32);"16 - PRINTER SUB MENU "
: PRINT K$
: STOP " ( PRESS DESIRED S.F. KEY )"
0680 DEFFN'16
: RETURN CLEAR
: GOSUB 1970
: PRINT TAB(4);"* PRINTER SUB TEST MENU *"
: GOSUB 2000
: PRINT TAB(15);D1$
: PRINT K$
: PRINT TAB(5);"10 - ";Y$;TAB(33);"14 - CARRIAGE RETURN TEST"
0730 PRINT TAB(5);"11 - BACKSPACE/UNDERSCORE";TAB(33);"15 - MANUAL KEYS TEST"
: PRINT TAB(5);"12 - LINE FEED TEST";TAB(33);"16 - PRINT WHEEL ROTATION TES
T"
0750 PRINT TAB(5);"13 - VERTICAL TAB TEST";TAB(33);"31 - RETURN TO MASTER MENU
"
: PRINT K$;" STOP ( PRESS THE DESIRED S.F.KEY )"
0770 KEYIN H1$,790,790
: GOTO 770
: STOP " ( PRESS DESIRED S.F. KEY )"
0790 IF H1$<HEX(0A)THEN 770
: ON VAL(H1$)GOTO 770,770,770,770,770,770,770,770,770,830,850,870,890,910,9
40,950,770,770,770,770,770,770,770,770,770,770,770,770,770,770,970
: GOTO 770
0830 GOSUB '60(Y$)
: GOTO 2840
0850 GOSUB '60("BACKSPACE & UNDERSCORE")
: GOTO 3190
0870 GOSUB '60("LINE FEED")
: GOTO 4220
0890 GOSUB '60("VERTICAL TAB")
: I=5
: GOTO 4350
0910 GOSUB '60("CARRIAGE RETURN")
: GOTO 4460
0940 GOSUB '46
: GOTO 940
0950 GOSUB '60("PRINT WHEEL ROTATION")
0960 GOSUB '47
: GOTO 960
0970 GOSUB '0
1010 DEFFN'1
: GOSUB '60("CONFIDENCE")
: H1$=HEX(01)
: GOSUB '32
: GOSUB '95
: GOSUB '42
: PRINT J$;"PRINT WHEEL ROTATION TEST";K$
: INIT(5A)C1$
: K$=HEX(74)
: GOSUB 7820
: I=1
: K$=HEX(0A)
: GOSUB 4350
: PRINT HEX(E5)
: GOSUB 5510
: GOSUB '31
1170 DEFFN'2
: GOSUB '60("COMPLETE PRINTER")
: PRINT HEX(E80000)
: GOSUB 7860
: GOSUB '32
: GOSUB '33
: GOSUB '42
: I=5
: GOSUB '37
: GOSUB '36
: GOSUB '47
: GOSUB '35
: STOP "END OF PRINTER TEST"
: RETURN
1330 DEFFN'3
: GOSUB '60("TABULATION")
: GOSUB 7860
1350 GOSUB '32
: GOTO 1350
1410 DEFFN'4
: GOSUB '60(Y$)
: GOSUB 7860
1430 GOSUB '33
: GOTO 1430
1490 DEFFN'5
: GOSUB '60(X$)
: GOSUB 7860
1510 GOSUB '42
: GOTO 1510
1570 DEFFN'9
: GOSUB 7860
1590 GOSUB '35
: GOTO 1590
1650 DEFFN'7
: GOSUB '60("FORM FILLING COMMAND")
: GOSUB 7860
1670 GOSUB '50
: GOSUB '36
: GOTO 1670
1740 DEFFN'8
: GOSUB 7860
: GOTO 1880
1810 DEFFN'6
: GOSUB '60("PAPER MOTION")
: GOSUB 7860
: GOSUB '50
1840 GOSUB '37
: GOTO 1840
1880 GOSUB 1970
: PRINT J$
: PRINT TAB(8);"ENTER UP TO 2 CHARACTER/S THAT YOU WANT REPEATED "
: INPUT " OVER AND OVER AGAIN ARE ",H3$
: GOSUB '50
1920 PRINT H3$;
: GOTO 1920
1970 GOSUB '65
1980 PRINT J$
: PRINT HEX(030A);TAB(20);P$
2000 PRINT TAB(4);
: FOR I5=1TO 56
: PRINT "*";
: NEXT I5
: PRINT
: RETURN
2080 DEFFN'85
: GOSUB '50
: A$="12345678901234567890"
: PRINT A$;A$;A$;A$;A$;" TAB REFERENCE LINE."
: RETURN
2150 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"
2180 RETURN
2260 DEFFN'32
: GOSUB '50
: PRINT "INITIALIZING 2281-P TABULATION (HEX CODE 19)"
: FOR I=1TO 151
: PRINT HEX(2019);
: NEXT I
: PRINT K$
2410 PRINT "TAB TEST #1 TAB SET(HEX-1A), TAB(HEX-09) AND ";
: PRINT "PRINT HIGH ORDER #'S (1)0,(2)0,(3)0......(9)0"
: FOR I=9TO 109STEP 11
: PRINT TAB(I);HEX(1A);
: NEXT I
: PRINT
: PRINT W$
: GOSUB '85
: IF H1$=HEX(01)THEN 2700
2560 PRINT K$
: PRINT "TAB TEST #2 CLEAR TAB'S (30) & (40)";
: PRINT " SET 3 NEW LOCATIONS 25,35 & 45"
: PRINT HEX(090909190919)
: PRINT TAB(24);HEX(1A);
: PRINT TAB(35);HEX(1A);
: PRINT TAB(46);HEX(1A)
2670 PRINT HEX(0931093209320933093409350936093709380939)
: GOSUB '85
: PRINT K$
2700 PRINT "TAB TEST #3 CLEAR ALL TABS HEX(19) AND TEST FOR NO TABS"
: GOSUB '85
: FOR I=1TO 10
: PRINT HEX(0919);
: NEXT I
: PRINT
: PRINT "ERROR IF THIS LINE DOES NOT START IN COLUMN NO. 1 "
: RETURN
2830 DEFFN'33
2840 GOSUB '50
: PRINT C$
: PRINT Y$;" ";X$
: PRINT "ONE LINE OF (UPPER CASE), (LOWER CASE) AND ";
: PRINT "ALTERNATING ";Y$;" (AaBb ETC.)"
: PRINT K$
2930 B$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
: PRINT B$;B$;B$;B$
2990 C1$="abcdefghijklmnopqrstuvwxyz"
: PRINT C1$;C1$;C1$;C1$
3050 FOR I=1TO 2
: FOR J=1TO 26
: PRINT STR(B$,J,1);STR(C1$,J,1);
: NEXT J
: NEXT I
: PRINT
: IF VAL(H1$)=10THEN 2840
3190 DEFFN'95
: PRINT C$
: GOSUB '50
: PRINT "BACK SPACE & UNDERSCORE TEST",
: PRINT "PRINT ";Y$;" ";X$
: PRINT TAB(32);"THEN BACK SPACE AND UNDERSCORE AS INDICATED."
: PRINT K$
3280 INIT(08)B1$
: B$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
: C1$="abcdefghijklmnopqrstuvwxyz"
: IF H1$=HEX(01)THEN 3680
: GOSUB '75
: PRINT "UPPER CASE ONLY "
: INIT(08)B1$
: FOR J=1TO 2
: FOR I=1TO 26
: PRINT STR(B$,I,1);STR(C1$,I,1)
: NEXT I
: NEXT J
: PRINT HEX(20)
3410 FOR I=1TO 52
: PRINT HEX(0808085F)
: NEXT I
: PRINT HEX(0D00)
3490 GOSUB '75
: PRINT K$
: PRINT "LOWER CASE ONLY "
: FOR J=1TO 2
: FOR I=1TO 26
: PRINT STR(B$,I,1);STR(C1$,I,1)
: NEXT I
: NEXT J
: PRINT B1$;STR(B1$,1,11);B1$;STR(B1$,1,11)
: FOR I=1TO 52
: PRINT HEX(205F)
: NEXT I
: PRINT HEX(0D00)
: GOTO 3680
3680 PRINT K$
: GOSUB '75
: PRINT "TITLE BLOCK ONLY "
: PRINT B$,C1$;
: PRINT "* UNDERLINE TEST AREA *"
: FOR I=1TO 26
: PRINT HEX(08)
: NEXT I
: FOR I=1TO 26
: PRINT HEX(5F)
: NEXT I
: PRINT C1$
: PRINT HEX(0D00)
: IF VAL(H1$)=11THEN 3190
: RETURN
3880 DEFFN'42
: PRINT K$
: GOSUB '50
: PRINT TAB(27);"86 ";X$;"-CODES 1E TO 7A (3RD CHARACTER IS HEX(20)SPACE CO
DE)";J$
: A3$=HEX(1E)
: B=0
: FOR I=1TO 93
: IF I<>48THEN 3960
: B=0
3960 B=B+1
: STR(A$(INT(I/48)+1),B)=A3$
: ADD(A3$,01)
: NEXT I
: FOR J=1TO 5
: GOSUB '50
: PRINT TAB(15);A$(1);A$(2)
: IF J=1THEN 4070
4040 NEXT J
: IF VAL(H1$)=13THEN 3880
: RETURN
4070 IF H1$<>HEX(01)THEN 4040
: J=5
: GOTO 4040
4120 DEFFN'37
: PRINT HEX(0C)
: PRINT "SPECIAL PAPER MOTION HEX CODES ";
: PRINT "- TOP OF FORM(0C),LINE FEED(0D),";
: PRINT " VERTICAL TAB(0C)"
: PRINT K$
4220 DEFFN'43
: GOSUB '50
: PRINT K$
: PRINT E1$;" #1 - HEX CODE (0A)"
: FOR I=1TO 7
: PRINT HEX(0A0A2D)
: NEXT I
: PRINT J$
: PRINT M$;" 7 DASHES ";N$
: IF VAL(H1$)=12THEN 4220
4350 GOSUB '70
: PRINT "VERTICAL TAB TEST (HEX CODE-0B)"
: FOR I=1TO 9
: PRINT HEX(0B);"VERTICAL TAB NO.";I
: NEXT I
: PRINT M$;I;" EVENLY SPACED VERTICAL ";
: PRINT "TABS SIX LINES APART."
: IF VAL(H1$)=13THEN 4350
: I=1
4460 GOSUB '50
: GOSUB '70
4480 PRINT "CARRIAGE RETURN TEST - TESTING HEX CODE(0D), ";
: PRINT "HARDWARE C/R AND LINE OVER RUN."
4520 PRINT J$
: PRINT "1-5 LINES OF 82 CHARACTERS ENDING THE LINE ";
: PRINT "WITH A CARRIAGE RETURN - HEX CODE (0D)."
: PRINT K$
: GOSUB 4870
: FOR I=1TO 5
: PRINT A$;STR(A$,1,9);
4580 PRINT " PROGRAM SENT HEX CODE (0D) AT THE END OF THIS LINE.";
: PRINT HEX(0D)
: IF H1$=HEX(01)THEN 4640
4610 NEXT I
: IF H1$=HEX(01)THEN 4740
: GOTO 4660
4640 I=5
: GOTO 4610
4660 PRINT J$
: PRINT "PRINT 5 LINES OF 132 CHARACTERS PER LINE, ";
: PRINT "UTILIZING THE HARDWARE C/R."
: PRINT K$
: FOR I=1TO 5
: PRINT A$;A$;A$;A$;A$;A$;STR(A$,1,12);
: NEXT I
: GOTO 4750
4740 I=1
4750 PRINT J$
: PRINT "PRINT ";I;" LINE/S OF 158 CHARACTERS PER LINE,";
: PRINT "DEMONSTRATING HARDWARE C/R (LINE OVER RUN)."
: PRINT K$
: A$="123456789-123456789-"
: FOR I=1TO 5
: PRINT A$;A$;A$;A$;A$;A$;STR(A$,1,12);
4820 PRINT "OVER RUN ON THE NEXT LINE."
: IF H1$=HEX(01)THEN 4970
4840 NEXT I
: IF VAL(H1$)=14THEN 4480
: RETURN
4870 A$="123456789-123456789-"
: RETURN
4910 DEFFN'70
: PRINT HEX(0C)
: PRINT "(TOP OF FORM TEST - HEX CODE OC) MUST BE THE FIRST ";
: PRINT "LINE OF PRINT AT THE TOP OF A NEW PAGE."
: PRINT K$
: RETURN
4970 I=5
: GOTO 4840
5050 DEFFN'36
: PRINT HEX(0C)
: PRINT HEX(E5)
: PRINT J$
: PRINT TAB(20);"THIS IS THE FORM FILLING AND PLOT COMMAND CODE TEST SECTIO
N"
: PRINT J$
: PRINT "TEST #1 CHECK FOR HORIZONTAL MOVEMENT & OVERPRINTING"
: PRINT K$
: PRINT HEX(E5);
: PRINT "1";
5130 F$=HEX(E7016E0000)
: PRINT F$;"HOME"
: PRINT HEX(E4);
: G$=HEX(E7FE9A0000)
: PRINT G$;
: PRINT HEX(E5);
: PRINT F$;"HOME"
: PRINT
5210 PRINT " 'HOME' SHOULD BE OVERPRINTED, AND 6 INCHES FROM THE '1' TESTING
INCREMENTAL SPACING AND HORIZONTAL MOVEMENT CODE (E7)"
: PRINT
: PRINT HEX(E5)
5280 PRINT C$
: PRINT "TEST #2"
: PRINT "PRINTS '1','3' & '6' VERTICALLY DOWN THE CENTER OF THE PAGE"
: PRINT "THERE SHOULD BE 3 INCHES BETWEEN THE TOP OF EACH NUMBER"
: PRINT J$
: PRINT HEX(E701650030E4);"1"
5400 PRINT HEX(E700000121E4);"6"
: PRINT HEX(E70000FF6F);"3"
5500 PRINT HEX(E700000064E5)
5510 PRINT "TEST #3 MOVE COMMAND (E7) AND SET HOME (E4)"
: PRINT "PRINTS INTERSECTING DIAGONAL LINES, THEY SHOULD INTERSECT AT EXACT
LY 1'' FROM THE START OF ANY CORNER"
5530 PRINT "THE WORD 'HOME' SHOULD BE OVER PRINTED AND APPEAR EXACTLY AT THE I
NTERSECT"
: PRINT HEX(E700CF0090E4)
: J=1
: K=1
: GOSUB 6230
: PRINT HEX(E7004C0000)
: J=-1
: K=1
: GOSUB 6230
: PRINT HEX(E70020FFDBE4);"HOME"
: PRINT HEX(E700DD0170)
5700 PRINT HEX(E700000000);"HOME"
: PRINT HEX(E5)
: PRINT HEX(E700000040)
: PRINT HEX(E5)
: PRINT "TEST #4"
: PRINT "TESTING SET LEFT MARGIN CODE (E8) & LINE SPACING (E9)"
5760 PRINT "THE LINE THRU THE MIDDLE OF THE '$' SHOULD BE 7 INCHES FROM THE LE
FT REFERENCE LINE & LINE SPACING SHOULD BE 4 LINES PER INCH"
: PRINT K$
: PRINT HEX(E5);
: FOR I=1TO 65
: PLOT <,-1,".">
: NEXT I
5820 X=230
: Y=23
: Z=500
: PRINT HEX(E80196E90E00)
: PRINT HEX(E700000000)
: FOR I=1TO 5
: PRINTUSING 5900,X;Y;Z
: X=X+2
: Y=Y-.5
: Z=Z+X-Y
: NEXT I
5900 %$#,###.## $##.## $####.##
5910 PRINT HEX(E80000E90A00);
: IF H1$=HEX(01)THEN 6290
: PRINT HEX(E80000E90FFF);
: PRINT J$
: PRINT HEX(E5)
: INIT(5F)F$
: T=6
: L=15
: PRINT "TEST #5 TESTS THE LINES FEED SPACING "
: PRINT "3 COLUMNS OF LINES PRINTING AS FOLLOWS"
6060 PRINT "COLUMN #1 SHOULD BE 3 LINES PER INCH, COLUMN #2 7 LINES PER INCH &
COLUMN #3 13 LINES PER INCH"
: PRINT K$
: PRINT HEX(E5)
: PRINT HEX(E700000010E4)
: GOSUB 6280
: PRINT HEX(E700000000E911FF)
: T=0
: L=7
: GOSUB 6280
6160 PRINT HEX(E700000000E903FF)
: T=12
: L=28
: GOSUB 6280
: PRINT HEX(E5E90DFF)
: GOTO 6320
6230 SELECT PLOT 415
: FOR I=1TO 76
: PLOT <J,K,".">
: NEXT I
: RETURN
6280 FOR I=1TO L
: PRINT TAB(T);F$
: NEXT I
6290 RETURN
6320 PRINT J$
: SELECT PLOT 415
: PRINT HEX(7F)
: PRINT J$;"TEST #6"
: PRINT "THIS IS A TEST OF THE INCREMENTAL SPACING USING THE PLOT COMMAND"
: PRINT K$
: PRINT HEX(E5)
: PRINT HEX(E8003CE4)
: PLOT 19<,-2,".">
: PLOT 90<2,,".">
: PLOT 19<,2,".">
: PLOT 90<-2,,".">
6480 FOR I=1TO 3
: PLOT 30<2,,>
: PLOT 5<,-2,".">
: PLOT 5<,2,>
: NEXT I
: FOR I=1TO 2
: PRINT HEX(E700390000E4);
: PRINT HEX(E700000019);I;
: NEXT I
: PRINT HEX(E7FFAD0023);"THIS IS A 3 INCH RULER"
: PRINT HEX(E5);
: RETURN
6640 DEFFN'65
: SELECT PRINT 005(64)
: RETURN
6670 DEFFN'50
: SELECT PRINT 215(132)
: RETURN
6740 DEFFN'75
: SELECT PRINT 415
: RETURN
6770 PRINT HEX(0C)
6780 DEFFN'55
: SELECT PRINT 215(157)
: RETURN
6820 DEFFN'60(B$)
: GOSUB '65
: PRINT HEX(030A0A0A0A)
: PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: PRINT TAB(10);"* *"
6860 PRINT TAB(10);"*";TAB(35-INT(LEN(B$)/2));B$;TAB(56);"*"
: PRINT TAB(10);"* *"
: PRINT TAB(10);"* TEST IN PROGRESS *"
6890 PRINT TAB(10);"* *"
: PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: PRINT K$
: PRINT TAB(10);"KEY HALT/STEP & SFK 31 TO RETURN TO MAIN MENU"
6930 GOSUB '50
: RETURN
6970 DEFFN'35
: GOSUB 1970
: PRINT J$
: PRINT TAB(5);O$;" TO END ";
: PRINT "RIBBON SELECTION TESTS"
: GOSUB '50
7010 G$="BLACK"
: I2$=HEX(E5)
: KEYIN H1$,7030,7030
: GOTO 7040
7030 SELECT P
: IF H1$=HEX(0D)THEN 7070
7040 GOSUB 7060
: G$="RED"
: I2$=HEX(06)
: GOSUB 7060
: GOTO 7010
7060 PRINT I2$;"THIS IS THE RIBBON SELECTION TEST, VERIFY THAT THIS LINE IS ";
G$
: RETURN
7070 PRINT J$
: PRINT HEX(E5)
: PRINT F1$;" & VERIFY TEST",
: PRINT "(";G1$;"/DE";G1$;")";
: PRINT "(HEAD MOTION) "
: PRINT K$
: I=1
: GOSUB 1970
: PRINT K$
: PRINT TAB(5);O$;"TO EXIT ";G1$;"/DE";G1$;" TEST"
7140 GOSUB '50
: IF I=9THEN 7220
7150 PRINT "LINE NO ";I;" OPERATOR MUST DE";G1$;" AND RE";G1$;
: PRINT " THE PRINTER UNDER TEST, AT THE END OF THIS LINE"
: PRINT HEX(07)
: I=I+1
: KEYIN H1$,7200,7200
: GOTO 7140
7200 IF H1$=HEX(0D)THEN 7220
: GOTO 7150
7220 PRINT K$
: I=I-1
: PRINT "THE ";I;" LINES ABOVE SHOULD BE IDENTICAL, ";
: PRINT "IF NOT THEN - - ERROR - - THE PRINTER LOST DATA"
: GOSUB 1970
: PRINT J$
: PRINT TAB(5);O$;" TO EXIT HEAD MOTION TEST"
: GOSUB '50
: I=1
7280 L$="(*LEFT TO RIGHT*"
: KEYIN H1$,7300,7300
: GOTO 7310
7300 IF H1$=HEX(0D)THEN 7360
7310 PRINT HEX(087FE5);
: GOSUB 7340
: L$="(*RIGHT TO LEFT*"
: GOSUB 7340
: GOTO 7280
7340 PRINT "LINE NO ";I;" VERIFY THAT THE PRINT MECHANISM IS PRINTING FROM ";L
$;" ) AT THIS TIME"
: I=I+1
: RETURN
7360 PRINT K$
: GOSUB 1970
: PRINT J$
: PRINT TAB(10);O$;" TO EXIT PITCH ";G1$;" TEST"
7380 SELECT PRINT 215(171)
7390 PRINT "OPERATOR SELECT THE DESIRED PITCH - ";
: PRINT "10 PITCH BALL (132 CHARACTER LINE) OR ";
: PRINT "12 PITCH BALL (157 CHARACTER LINE) ";
7420 PRINT "CHARACTER 131132TH CHARACTER 156";
: PRINT "157TH CHARACTER"
: KEYIN H1$,7450,7450
: GOTO 7390
7450 IF H1$=HEX(0D)THEN 7470
: GOTO 7380
7470 DEFFN'46
: GOSUB '50
: PRINT C$
: PRINT HEX(E5E7003C003CE4);"*"
: GOSUB '65
: PRINT HEX(03)
: PRINT TAB(9);" ****OPERATOR ACTION REQUIRED****"
: PRINT K$
: PRINT TAB(13);"PERFORM THE FOLLOWING FUNCTIONS"
: PRINT K$
: PRINT " 1. DESELECT THE PRINTER"
7530 PRINT " 2. PRESS PUSH FOR UPPER OPER/SET HOME KEYS CONCURRENTLY"
: PRINT " 3. RELEASE PUSH UPPER KEY THEN PRESS DIRECTIONAL KEY/S"
7550 PRINT " 4. RELEASE DIRECTION KEY THEN PRESS PUSH UPPER CASE/HOME"
: PRINT " CONCURRENTLY"
: PRINT " 5. THEN RE/SELECT THE PRINTER AND KEY RETURN/EXEC"
7580 KEYIN H1$,7590,7590
: GOTO 7580
7590 IF H1$=HEX(0D)THEN 7610
: GOTO 7580
7610 GOSUB '50
: PRINT HEX(E700000000);"*"
: PRINT K$
: PRINT " THERE IS AN ERROR IN THE MECHANICAL KEY TESTED IF THE '*' DID NOT
OVERPRINT ITSELF"
: RETURN
7680 DEFFN'47
: GOSUB '50
: PRINT C$;J$
: PRINT HEX(0D)
: PRINT " WHEEL ROTATION TEST"
: PRINT " CHECK CHARACTERS FOR PRINT QUALITY & CONSISTENCY"
: PRINT "LINE 1 PRINTS 'Zt', LINE 2 PRINTS 'D%', LINE 3 PRINTS 'K#'"
7720 PRINT K$
: FOR I=1TO 3
: ON I-1GOTO 7760,7780
: INIT(5A)C1$
: K$=HEX(74)
: GOTO 7790
7760 INIT(44)C1$
: K$=HEX(25)
: GOTO 7790
7780 INIT(4B)C1$
: K$=HEX(23)
7790 GOSUB 7820
: PRINT J$
: NEXT I
: K$=HEX(0A)
: RETURN
7820 FOR J=2TO 26STEP 2
: STR(C1$,J,1)=K$
: NEXT J
: PRINT C1$;C1$;C1$;C1$;STR(C1$,1,22)
: RETURN
7860 H1$=HEX(00)
: RETURN