Listing of file='P63D010A' on disk='vmedia/702-0079.wvd.zip'
# Sector 433, program filename = 'P63D010A' 0010 REM % P63D010A MOD 4/7/80 G. CARRIER 0020 DIM P1$34 : P1$="PROGRAM ID: 2263.PTR-01 (11/03/77)" 0030 DIM A1$20,A$2 : DIM B$34 : DIM C2$(26)1 : DIM D$49 : DIM E$49 : DIM G$(4)40,G1$(4)40 : DIM H5$1 : DIM I$(1)8,I5$1,I6$1,I7$(1)5 : DIM K$(1) : DIM K2$1 : DIM K1$1 : DIM Q$1 : DIM M$1 : DIM T$(1)1 0040 B$=HEX(00300131023203330434053406360737083809390A410B420C430D440E450F46) 0080 SELECT P0 : GOSUB 830 : GOSUB '101 : GOSUB 830 0090 PRINT HEX(010A0A0A0A0A) : PRINT "THE PRINTER IS A MODEL #(1 OR 2) " : PRINT HEX(0A0A) : PRINT TAB(21);"1 = 2263-1 (400 LPM)" : PRINT TAB(21);"2 = 2263-2 (600 LPM)" : PRINT HEX(0C0C0C0C0C) 0100 FOR I=1TO 33 : PRINT HEX(09) : NEXT I : INPUT M$ : IF M$="1"THEN 110 : IF M$="2"THEN 120 : PRINT HEX(0A0A0A0A0A0A) : PRINT TAB(15);"WRONG REPLY - PLEASE TRY AGAIN" : GOTO 90 0110 GOSUB 830 : PRINT HEX(0A) : PRINT "WE ARE TESTING A MODEL 2236-1 (400 LINES PER MINUTE PRINTER" : GOTO 130 0120 GOSUB 830 : PRINT HEX(0A) : PRINT "WE ARE TESTING A MODEL 2236-2 (600 LINES PER MINUTE PRINTER)" 0130 PRINT "(Y OR N REPLY)"; : INPUT Q$ : IF Q$=HEX(59)THEN 140 : GOTO 80 0140 Q$=HEX(00) : GOTO 160 0150 GOSUB 830 : PRINT HEX(010A0A0A0A0A) : PRINT "IS THIS A QUALITY ASSURANCE TEST"; : INPUT Q$ 0160 GOSUB 830 : T=1 : P1=12 : P2=160 : S=1 : F=1 : F1=0 : PRINT HEX(0A) : PRINT TAB(17);"STATIC PRINTER CONDITIONS" : PRINT HEX(0A) : PRINT TAB(12);"1 - THE ON LAMP MUST BE ILLUMINATED" : PRINT TAB(12);"2 - THE RUN LAMP MUST BE ILLUMINATED" 0170 PRINT HEX(0A) : PRINT TAB(12);"3 - WIDE (( LINED )) PAPER IN THE PRINTER" : PRINT TAB(12);"4 - ADJUST TOP OF FORM TO LINE NO 4" : PRINT HEX(0A0A) 0180 PRINT TAB(6);"DEPRESS RETURN(EXEC) TO START 2263 PRINTER DIAGNOSTIC:" 0190 $IF ON /000,200 : T2=80 : GOTO 210 0200 T2=8000 0210 GOSUB 1790 : GOSUB '0 0220 GOSUB '100 : PRINT HEX(7F0C);"TEST NO.";T; : SELECT PRINT 005(64) : PRINT "TEST NO.";T;" "; : F=1 0230 ON TGOTO 240,250,260,270,280,290,310,320,330,290 : STOP "NO SUCH TEST NO" 0240 PRINT "DATA BUFFER "; : GOTO 340 0250 PRINT "(HAMMER ADJUSTMENT) "; : GOTO 340 0260 PRINT "(TABULATION) "; : GOTO 340 0270 PRINT "(SPIRAL PRINT SAMPLE) "; : GOTO 340 0280 PRINT "(SPECIAL PAPER MOTION)"; : GOTO 340 0290 PRINT "(HEX CODE CHARACTER) "; : GOTO 340 0300 PRINT "(CARRIAGE RETURN) "; : GOTO 340 0310 PRINT "(SPECIAL PATTERN) "; : GOTO 340 0320 PRINT "(LINES PER MINUTE) "; : GOTO 340 0330 PRINT "SELECT/DESELECT/AUDIO "; 0340 IF F=1THEN 350 : PRINT TAB(85);P1$; : PRINT HEX(0A0A0A) : RETURN 0350 PRINT HEX(0D) : GOSUB '100 : F=0 : GOTO 230 0360 J=5 : I=4 : PRINT "LINE NO.";I;" END OF DOCUMENT TEST" : FOR I=5TO 62 : PRINT "LINE NO.";I : J=J+1 : NEXT I : PRINT "LINE NO.";J;" LINE";J;"MUST BE THE LAST LINE "; 0370 PRINT "PRINTED ON THIS PAGE - THE NEXT PAGE **( MUST )** BE BLANK." : RETURN 0380 PRINT "EOD TEST - END OF DOCUMENT TEST, THIS MUST "; : PRINT "BE THE FIRST LINE OF PRINT ON A NEW PAGE" : PRINT HEX(0A0A) : RETURN 0390 DEFFN'0 : RETURN CLEAR 0400 GOSUB 830 : PRINT TAB(16);"SPECIAL FUNCTION KEY DESIGNATION" : PRINT TAB(6);"1 - TEST 1 DATA BUFFER TESTS NO. 1 & 2" : PRINT TAB(6);"2 - TEST 2 HAMMER ADJUSTMENT TEST" 0410 PRINT TAB(6);"3 - TEST 3 TABULATION TEST" : PRINT TAB(6);"4 - TEST 4 NORMAL SPIRAL PATTERN" : PRINT TAB(6);"5 - TEST 5 SPECIAL PAPER MOTION TESTS" : PRINT TAB(6);"6 - TEST 6 NORMAL HEX CODE TEST" 0420 PRINT TAB(6);"7 - TEST 7 SPECIAL PATTERN - PRINT CONSISTENCY TEST" : PRINT TAB(6);"8 - TEST 8 LINES PER MINUTE TEST" : PRINT TAB(5);"31 - RETURN TO SYSTEM MENU";HEX(0A) : F1=1 : GOSUB '100 0430 STOP " (( SF # 16 HAS ADDITIONAL MENU ))" 0440 DEFFN'1 : F=1 : GOTO 850 0450 DEFFN'2 : F=2 : GOTO 850 0460 DEFFN'3 : GOSUB 830 : F=3 : GOTO 850 0470 DEFFN'4 : F=4 : GOTO 850 0480 DEFFN'5 : F=5 : GOTO 850 0490 DEFFN'6 : F=6 : GOTO 850 0500 DEFFN'7 : F=7 : GOTO 850 0510 DEFFN'8 : F=8 : GOTO 850 0520 DEFFN'9 : F=9 : GOTO 850 0530 DEFFN'10 : F1=0 : F=1 : GOTO 860 0540 DEFFN'16 : RETURN CLEAR 0550 GOSUB 830 : PRINT TAB(15);"SPECIAL FUNCTION KEY DESIGNATION" : PRINT HEX(0A) : PRINT TAB(5);" 9 - SELECT DESELECT/AUDIO ALARM TEST" : PRINT ">>>> 10 - **** ALL 2263 PRINTER "; : PRINT "TESTS (1 TO 8) **** <<<<" : PRINT HEX(0A) 0560 PRINT TAB(5);"18 - OUTPUT ONE INPUT CHARACTER OVER AND OVER" : PRINT TAB(5);"19 - OUTPUT TWO INPUT CHARACTERS OVER AND OVER" : PRINT TAB(5);"20 - ALTERNATING BIT PATTERN (*U)" 0570 PRINT TAB(5);"21 - OUTPUT ONE INPUT HEX CODE OVER AND OVER" : GOSUB '100 : STOP " (( SF # 31 HAS ADDITIONAL MENU ))" : PRINT HEX(0A) : STOP " (( PRESS S.F. KEY OF DESIRED TEST ))" : F=1 0580 GOTO 580 0590 PRINT HEX(0A) : FOR I=1TO 14 : PRINT G$(1);G$(2);G$(3);STR(G$(4),1,39) : NEXT I : RETURN 0600 DEFFN'18 : GOSUB '37 : PRINT HEX(0A0A) : SELECT PRINT 005(64) : PRINT TAB(15);"INPUT THE CHARACTER THAT YOU WANT " : PRINT TAB(15);"REPEATED OVER AND OVER AGAIN"; : GOSUB '100 : INPUT H1$ 0610 PRINT H1$; : GOTO 610 0620 RETURN 0630 DEFFN'19 : GOSUB '37 : SELECT PRINT 005(64) : PRINT TAB(15);"INPUT THE TWO CHARACTERS THAT YOU WANT " : PRINT TAB(15);"REPEATED OVER AND OVER AGAIN"; : GOSUB '100 : INPUT H3$ 0640 PRINT H3$; : GOTO 640 0650 RETURN 0660 DEFFN'20 : GOSUB '100 : GOSUB '37 : GOSUB '100 0670 PRINT "U*"; : GOTO 670 0680 DEFFN'22 : F1=2 : GOTO 1200 0690 DEFFN'23 : F1=2 : GOTO 1210 0700 DEFFN'24 : F1=2 : GOTO 1240 0710 DEFFN'25 : F1=2 : GOTO 1260 0720 DEFFN'26 : F1=2 : GOTO 1270 0730 DEFFN'27 : F1=2 : GOTO 1340 0740 DEFFN'21 : GOSUB '37 : SELECT PRINT 005(64) 0750 PRINT TAB(11);"ENTER THE 2 DIGIT HEX CODE YOU DESIRE"; : INPUT A$ : $TRAN(A$,B$)R : IF POS(A$>0F)=0THEN 760 : GOSUB 830 : PRINT HEX(0A0A) : PRINT TAB(13);"ILLEGAL HEX DIGITS. PLEASE TRY AGAIN" : PRINT HEX(0A0A) : GOTO 750 0760 ROTATE(STR(A$,1,1),4) : OR (A$,STR(A$,2)) : GOSUB '100 0770 PRINT STR(A$,1,1); : GOTO 770 0780 DEFFN'31 : RETURN CLEAR : LOAD DC T"START" 0790 GOSUB 830 : PRINT TAB(15);"SPECIAL FUNCTION KEY DESIGNATION" : PRINT HEX(0A) : PRINT TAB(15);"22 - LINE FEED TEST NO.1" : PRINT TAB(15);"23 - LINE FEED TEST NO.2" : PRINT TAB(15);"24 - VERTICAL TAB TEST" 0800 PRINT TAB(15);"25 - (EOD) END OF DOCUMENT TEST" : PRINT TAB(15);"26 - CARRAGE RETURN TESTS" : PRINT TAB(15);"27 - INTERMIXED CONTROL CODES" : PRINT HEX(0A) : GOSUB '100 0810 STOP " (( S.F # 10 = FULL 2261W DIAGNOSTIC ))" 0820 DEFFN'37 : SELECT PRINT 005(80) : PRINT HEX(03) : GOSUB 830 : PRINT HEX(0A0A) : RETURN 0830 SELECT PRINT 005(80) : PRINT HEX(030A);TAB(20);"2263-";M$;" PRINTER DIAGNOSTIC" : PRINT TAB(16);P1$ : FOR I5=1TO 64 : PRINT "*"; : NEXT I5 : PRINT : RETURN 0840 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 HEX(0A0A) : RETURN 0850 F1=1 0860 RETURN CLEAR 0870 GOSUB 830 : IF T<>7THEN 880 : MAT REDIM G$(4)40 0880 ON FGOTO 890,950,1020,1140,1190,1380,1480,1520,1620 0890 T=1 0900 GOSUB 220 : PRINT "DATA BITS 1 THROUGH 6 HEX(3F=?)" : A1$=HEX(3F) : GOSUB 930 : PRINT "DATA BITS 5 & 6 HEX(30=0)" : A1$=HEX(30) : GOSUB 930 : PRINT "DATA BITS 1,3,5 & 6 HEX(35=5)" : A1$=HEX(35) : GOSUB 930 0910 PRINT "DATA BITS 2,4,5 & 6 HEX(3A=:)" : A1$=HEX(3A) : GOSUB 930 : PRINT "DATA BITS 5,6 & 7 HEX(70=p)" : A1$=HEX(70) : GOSUB 930 : PRINT "DATA BITS 2,4 & 6 HEX(2A=*)" : A1$=HEX(2A) : GOSUB 930 0920 PRINT "DATA BITS 1,3,5 & 7 HEX(55=U)" : A1$=HEX(55) : GOSUB 930 : GOTO 940 0930 INIT(A1$)G$() : FOR I=1TO 5 : FOR J=1TO K : PRINT G$(1);G$(2);G$(3);STR(G$(4),1,12) : NEXT J : NEXT I : PRINT HEX(0A0A) : RETURN 0940 ON F1GOTO 900 0950 T=2 : GOSUB 220 : PRINT TAB(50);"VERIFY CHARACTER PRINT QUALITY ?" 0960 PRINT HEX(0B0B0A) : PRINT TAB(32); : PRINT "VERIFY LEFT AND RIGHT SIDE OF EACH CHARACTER"; : PRINT " FOR GOOD SHARP QUALITY" : INIT(48)G$() : GOSUB 1000 : PRINT TAB(34); : PRINT "VERIFY TOP AND BOTTOM OF EACH CHARACTER FOR"; 0970 PRINT " GOOD SHARP QUALITY" : INIT(5A)G$() : GOSUB 1000 : INIT(4F)G$() : PRINT TAB(41); : PRINT "VERIFY ALL SIDES FOR GOOD SHARP CHARACTER QUALITY" : INIT(4F)G$() : GOSUB 1000 : PRINT TAB(32);"ADJUST IMPRESSION CONTROL AND/OR "; 0980 PRINT "CHARACTER PHASING FOR GOOD QUALITY" : PRINT TAB(49);"( - * ONLY --- IF NECESSARY * - )" 0990 GOTO 1010 1000 PRINT HEX(0A) : FOR I=1TO 6 : FOR I1=1TO 4 : PRINT STR(G$(1),1,33); : NEXT I1 : NEXT I : PRINT HEX(0B0A) : RETURN 1010 ON F1GOTO 950 1020 T=3 : GOSUB 220 : PRINT HEX(0B0B) : PRINT "TABULATION TEST #1 - PRINT STATEMENT SPACING" : INIT(56)K1$ : PRINT HEX(0A) : PRINT "ZONE 1 "; : FOR J=2TO 9 : IF J<9THEN 1030 : PRINT "Z-9"; : GOTO 1040 1030 PRINT "ZONE";J;" "; 1040 NEXT J : PRINT HEX(0D) : L1=15 : PRINT "V "; : FOR J=1TO 7 : GOSUB 1110 : NEXT J : PRINT "V"; : PRINT HEX(0D) : PRINT "COLUMNS 1-15","COLUMNS 16-31","COLUMNS 32-47","COLUMNS 48-63", 1050 PRINT "COLUMNS 64-79","COLUMNS 80-95","COLUMNS 96-111", : PRINT "COLUMNS 112,127","LAST"; 1060 INIT(5E)K1$ : PRINT "^ "; : FOR J=1TO 7 : GOSUB 1110 : NEXT J : PRINT "^"; : PRINT HEX(0D) : PRINT HEX(0B0B) : PRINT "TABULATION TEST #2 - PRINT TAB(XY) -SPACE OVER EVERY 10" : L1=99 : GOSUB 1110 : PRINT "1"; : L1=9 : FOR J=1TO 3 : GOSUB 1110 : PRINT "1"; : NEXT J 1070 PRINT HEX(0D) : PRINT "COLUMNS 1 "; : FOR J=2TO 9 : PRINT " ";J; : NEXT J : PRINT " 0 "; : FOR J=1TO 3 : PRINT " ";J; : NEXT J : PRINT HEX(0D) : FOR I=1TO 13 : PRINT " 0"; : NEXT I : PRINT HEX(0D) : FOR I=1TO 13 : PRINT " ^"; : NEXT I : PRINT HEX(0D) : PRINT "TAB TO >"; 1080 I1=10 : FOR I=9TO 130STEP 10 : IF I1=130THEN 1090 : PRINT TAB(I);"TAB";I1; : I1=I1+10 : GOTO 1100 1090 PRINT TAB(I);"TAB"; 1100 NEXT I : GOTO 1130 1110 IF L1<>15THEN 1120 : PRINT K1$; 1120 FOR I=1TO L1 : PRINT HEX(20); : NEXT I : RETURN 1130 ON F1GOTO 1020 1140 T=4 : GOSUB 220 : INIT(21)K1$ : FOR I=1TO 4 : FOR I1=1TO 40 : LET STR(G$(I),(I1),1)=K1$ : ADD(K1$,01) : IF K1$=HEX(60)THEN 1150 : GOTO 1160 1150 INIT(21)K1$ 1160 NEXT I1 : NEXT I : FOR I=1TO 132 : PRINT STR(G$(1),1,40); : PRINT STR(G$(2),1,40); : PRINT STR(G$(3),1,40); : PRINT STR(G$(4),1,12); : IF I=59THEN 1170 : IF I=119THEN 1170 : GOTO 1180 1170 GOSUB 380 1180 T$(1)=STR(G$(1),1,1) : MAT COPY G$()<2,159>TO G1$()<1,159> : MAT COPY T$()<1,1>TO G1$()<160,1> : MAT COPY G1$()TO G$() : NEXT I : ON F1GOTO 1140 1190 T=5 1200 GOSUB 220 : PRINT "LINE FEED TEST #1 - (HEX CODE 0A)" : PRINT HEX(0A2A) : FOR I=1TO 17 : PRINT HEX(0A0A2A) : NEXT I : PRINT HEX(0A) : PRINT "ACCEPTABLE RESULT IS 18 STARS "; : PRINT "VERTICALLY SPACED DOWN THIS PAGE." : ON F1GOTO 1210,1190 1210 GOSUB 840 : PRINT "LINE FEED TEST #2 - (HEX CODE 0A)" : K=2 : GOSUB 1230 : K=23 : GOSUB 1230 : K=23 : GOSUB 1230 : PRINT HEX(0A0A) : PRINT "ACCEPTABLE RESULT IS 3 REFERENCE LINES "; : PRINT "VERTICALLY SPACED DOWN THIS PAGE." : ON F1GOTO 1240,1210 1220 GOTO 1240 1230 FOR I=1TO K : PRINT HEX(0A) : NEXT I : PRINT "** - REFERENCE LINE" : RETURN 1240 GOSUB 840 : PRINT "VERTICAL TAB TEST (HEX CODE-0B)" : FOR I=1TO 10 : PRINT HEX(0B);"VERTICAL TAB NO.";I : NEXT I : I=10 : PRINT "ACCEPTABLE RESULTS ON THIS PAGE IS "; : PRINT "10 EVENLY SPACED VERTICAL "; 1250 PRINT "TABS SIX LINES APART." : ON F1GOTO 1260,1240 1260 GOSUB 840 : GOSUB 360 : ON F1GOTO 1270,1260 1270 GOSUB 840 : PRINT "CARRIAGE RETURN TEST - TESTING HEX CODE(0D), "; : PRINT "HARDWARE C/R AND LINE OVER RUN." : PRINT HEX(0A0A) : PRINT "FIVE LINES OF 82 CHARACTERS ENDING THE LINE "; 1280 PRINT "WITH A CARRIAGE RETURN - HEX CODE (0D)." : PRINT HEX(0A) : FOR I=1TO 5 : PRINT "123456789-123456789-1232456789"; : PRINT " PROGRAM SENT HEX CODE(0D) AT THE END OF THIS LINE."; : PRINT HEX(0D) : NEXT I : PRINT HEX(0A0A) 1290 PRINT "PRINT 5 LINES OF 132 CHARACTERS PER LINE, "; : PRINT "UTILIZING THE HARDWARE C/R." : PRINT HEX(0A) : GOSUB 1320 : FOR I=1TO 5 : FOR J=1TO 3 : PRINT G$(1); : NEXT J : PRINT STR(G$(1),1,12); : NEXT I : GOSUB 1320 : PRINT HEX(0A0A) : PRINT "PRINT 5 LINES TO "; 1300 PRINT "DEMONSTRAT HARDWARE C/R (LINE OVER RUN), "; : PRINT HEX(0A) : FOR I=1TO 5 : FOR J=1TO 2 : PRINT G$(1); : NEXT J : PRINT STR(G$(1),1,36); : PRINT " CHARACTER 132"; : PRINT "OVER 132 CHARACTERS FROM LINE ABOVE." : NEXT I : ON F1GOTO 1340,1270 1310 GOTO 1340 1320 G$(1)="123456789-123456789-123456789-123456789-" : RETURN 1330 ON F1GOTO 1370,1270 1340 GOSUB '100 : PRINT HEX(0C) : PRINT "INTERMIXED PAPER MOTION & DATA TEST" : PRINT HEX(0A0A) : PRINT "*** ** * THE REST OF THIS PAGE (MUST BE) BLANK * **"; : PRINT HEX(202A2A2A0C4C494E4520233120); 1350 PRINT "(SENT TOF HEX-0C)-THIS MUST BE THE FIRST LINE OF PRINT "; : PRINT "ON A NEW "; : PRINT HEX(504147452E0B4C494E4520233720); : PRINT "(SENT 1 VERTICAL TAB TO POSTION TO THIS LINE "; 1360 PRINT HEX(484558204F42290A0A0A0A0A0A00004C494E452023313220); : PRINT "SENT 6 LINE FEED (HEX-0A'S) TO POSITION TO THIS LINE" 1370 ON F1GOTO 1190,1340 1380 T=6 : GOSUB 1400 : GOTO 1460 1390 P1=10 : P2=136 1400 GOSUB 220 : INIT(20)G$(1) : FOR I=1TO 90 : PRINT STR(G$(1),1,40);STR(G$(1),1,17); : PRINT " HEX CODE "; : H5$=STR(G$(1),1,1) : HEXPRINT H5$; : PRINT " ";STR(G$(1),1,40);STR(G$(1),1,16) 1410 ADD(G$(1),01) : IF STR(G$(1),1,1)=HEX(60)THEN 1440 : IF STR(G$(1),1,1)<>HEX(7F)THEN 1420 : INIT(20)G$() 1420 IF STR(G$(1),1,1)<>HEX(5B)THEN 1430 : GOSUB 380 1430 NEXT I : RETURN 1440 PRINT HEX(0B);TAB(47); : PRINT "DEFAULT CHARACTERS (HEX-61 TO HEX-7A)" : PRINT HEX(0A) : GOTO 1410 1450 PRINT HEX(0C) : GOTO 1430 1460 PRINT HEX(0A0A0A) : PRINT TAB(51);"64 CHARACTER SET-CODES 20 TO 5F " : PRINT HEX(0A0A) : INIT(2A)G$(1) : PRINT TAB(33);G$(1);STR(G$(1),1,26) : INIT(1F)D$ : INIT(3F)E$ : FOR I=1TO 32 : ADD(STR(D$,I),01) : ADD(STR(E$,I),01) : NEXT I 1470 STR(E$,49,1)=HEX(20) : FOR I=1TO 5 : PRINT TAB(33);"*";STR(D$,1,32); : PRINT STR(E$,1,32);"*" : NEXT I : PRINT TAB(33);G$(1);STR(G$(1),1,26) : ON F1GOTO 1380 1480 T=7 : S=1 : MAT REDIM G$(5)26 : GOSUB 220 : N=1 1490 P3=1 : FOR I=1TO 26 1500 BIN(STR(I$(1),1))=INT(RND(1)*90+33) : C2$(I)=STR(I$(1),1) : IF C2$(I)=HEX(60)THEN 1500 : STR(I$(1),2)=STR(I$(1),1) : MAT COPY I$()TO G$()<P3,5> : P3=P3+5 : NEXT I : FOR I=1TO 26 : PRINT TAB(I*5-5);C2$(I); : NEXT I : FOR I=1TO 5 : FOR J=1TO 5 : PRINT G$(J); : NEXT J : NEXT I : PRINT HEX(0D) 1510 N=N+1 : IF N<10THEN 1490 : ON F1GOTO 1480 1520 T=8 : GOSUB 830 : GOSUB 220 : INIT(21)K2$ : MAT REDIM G$(4)40 : FOR I=1TO 4 : FOR I1=1TO 40 : LET STR(G$(I),(I1),1)=K2$ : ADD(K2$,01) : IF K2$=HEX(60)THEN 1530 : GOTO 1540 1530 INIT(21)K2$ 1540 L=1 : NEXT I1 : NEXT I : SELECT PRINT 005(64) : PRINT HEX(0A) : PRINT " NOTE - READ ALL INSTRUCTION BEFORE CONTINU"; : PRINT "ING WITH THIS TEST" : PRINT HEX(0A) : PRINT "ENSURE THE FOLLOWING CONDITIONS" : PRINT HEX(0A) 1550 PRINT "1. ON THE PRINTER THAT POWER AND RUN LAMPS "; : PRINT "ARE ILLUMINATED" : PRINT "2. SOME TYPE OF STOP WATCH IS REQUIRED" : PRINT "3. FOR TIME TEST TO START -- DEPRESS RETURN/EXEC" 1560 PRINT "4. AFTER SIXTY (60) SECONDS DEPRESS HALT/STEP" : PRINT " TIME TEST IS COMPLETED" : PRINT "5. DEPRESS SPECIAL FUNCTION KEY 30 TO CONTINUE TESTING" 1570 KEYIN K$,1580,1580 : GOTO 1570 1580 GOSUB '100 1590 PRINT STR(G$(1),1,40); : PRINT STR(G$(2),1,40); : PRINT STR(G$(3),1,40); : PRINT " LINE #";L : L=L+1 1600 T$(1)=STR(G$(1),1,1) : MAT COPY G$()<2,159>TO G1$()<1,159> : MAT COPY T$()<1,1>TO G1$()<160,1> : MAT COPY G1$()TO G$() : GOTO 1590 1610 DEFFN'30 : RETURN CLEAR : ON F1GOTO 1520 1620 T=9 : GOSUB 1760 : PRINT HEX(0C0C0C) : PRINT TAB(17);" " : GOSUB 1770 : PRINT TAB(8);"(TO START SELECT/DESELECT AND AUDIO ALARM TESTS)" : SELECT PRINT 215(132) : PRINT HEX(0C) : GOSUB 1790 1630 GOSUB 1760 : PRINT TAB(15);"(TO EXIT SELECT DESELECT TEST)" : GOSUB '100 : PRINT HEX(0A0A0A) : PRINT HEX(0E);" VERIFY THAT THE AUDIO ALARM IS SOUNDING" : PRINT HEX(0A0A0A) : K=1 : GOSUB 1800 : GOSUB 1760 : ON F1GOTO 1620 : GOSUB 830 1640 IF Q$=HEX(59)THEN 1660 1650 STOP " 2261W PRINTER DIAGNOSTIC IS COMPLETED" 1660 GOSUB '100 : PRINT HEX(7F0C) : PRINT HEX(0E); : PRINT TAB(5);"QUALITY ASSURANCE CHECK LIST" : PRINT HEX(0A0A) : PRINT TAB(56);"YES / NO" : FOR I=1TO 80 : PRINT "-"; : NEXT I : PRINT HEX(0A) : PRINT "TEST #1 (DATA BUFFER) "; : GOSUB '200 1670 PRINT "2 (HAMMER/CHARACTER QUALITY)"; : GOSUB '200 : PRINT "3 (TABULATION)"; : GOSUB '200 : PRINT "4 (SPIRAL PATTER)"; : GOSUB '200 : PRINT "5 (SPECIAL PAPER MOTION)" : PRINT HEX(0A) : PRINT " "; : PRINT " (LINE FEED TEST #1)"; : GOSUB '201 1680 PRINT " (LINE FEED TEST #2)"; : GOSUB '201 : PRINT " (VERTICAL TAB)"; : GOSUB '201 : PRINT " (CARRIAGE RETURN)"; : GOSUB '201 : PRINT " (INTERMIXED PAPER MOTION CHARACTERS)"; : GOSUB '200 : PRINT "6 (HEX CHARACTER SET)"; : GOSUB '200 1690 PRINT "7 (PRINT QUALITY AND CONSISTENCY)"; : GOSUB '200 : PRINT "8 (LINES PER MINUTE )" : PRINT " ";L;"LINES PER MINUTE)"; : GOSUB '201 : PRINT " (AUDIO ALARM & SELECT DESELECT)"; : GOSUB '201 : PRINT TAB(56); : PRINT HEX(0A) 1700 PRINT " PRINTER ACCEPTABLE (YES/NO)"; : PRINT TAB(56); : PRINT HEX(5F5F5F202F205F5F0D0A0A) : PRINT " PRINTER ACCEPTED BY"; : PRINT TAB(50);"------------------------------" : PRINT HEX(0C0C) : GOTO 1650 1710 DEFFN'200 : J=1 : GOTO 1730 1720 DEFFN'201 : J=0 1730 PRINT ":"; : PRINT TAB(56); : PRINT HEX(5F5F5F202F205F5F0D0A0A) : IF J=00THEN 1740 : PRINT "TEST #"; : GOTO 1750 1740 PRINT " "; 1750 RETURN 1760 GOSUB 830 : PRINT HEX(0A0A) : PRINT TAB(20);"OPERATOR ACTION REQUIRED" 1770 PRINT HEX(0A0A) : PRINT TAB(21);"DEPRESS - RETURN(EXEC)" : PRINT HEX(0A0A) : RETURN 1780 T1=1 : J=T2 : GOTO 1810 1790 T1=2 : J=T2 : GOTO 1810 1800 T1=3 : J=T2/50 : K=1 1810 FOR I=1TO J : KEYIN K$(1),1820,1820 : GOTO 1830 1820 IF K$(1)=HEX(0D)THEN 1840 1830 NEXT I : GOTO 1860 1840 I=J : NEXT I 1850 RETURN 1860 ON T1GOTO 1810,1890,1900 1870 STOP "ERROR IN KEYIN SUBROUTINE" 1880 GOTO 1850 1890 PRINT HEX(07) : GOTO 1810 1900 GOSUB '102 : PRINT "THE OPERATOR MUST DEPRESS STOP AND RUN ON THIS PRINTER "; : PRINT "AT LEAST ONCE PER LINE FOR ABOUT 5 LINES "; : PRINT "OF PRINT AT THIS TIME-LINE NO.";K : PRINT HEX(07) : K=K+1 : GOTO 1810 2000 DEFFN'101 : PRINT HEX(010A0A0A0A0A0A);"1. 204","2. 214","3. 215","4. 216" : PRINT HEX(0C0C); : INPUT "SELECT PRINTER ADDRESS",Q : RETURN 2500 DEFFN '100 : ON Q GOTO 2520,2530,2540,2550 2520 SELECT PRINT 204(132) : RETURN 2530 SELECT PRINT 214(132) : RETURN 2540 SELECT PRINT 215(132) 2550 SELECT PRINT 216(132) : RETURN 3000 DEFFN'102 : ON Q GOTO 3020,3030,3040,3050 3020 SELECT PRINT 004(160) : RETURN 3030 SELECT PRINT 014(160) : RETURN 3040 SELECT PRINT 015(160) : RETURN 3050 SELECT PRINT 016(160) : RETURN