Listing of file='P61D010A' on disk='vmedia/702-0079.wvd.zip'
# Sector 643, program filename = 'P61D010A' 0010 REM % P61D010A MOD 4/7/80 G. CARRIER 0050 SELECT PRINT 005(64) : Q7,Q9=0 0070 IF Q9=0THEN 100 : IF Q9=1THEN 80 : IF Q9=2THEN 1350 : GOTO 50 0080 REM 0100 PRINT HEX(03);"2200 HARDWARE DIGNOSTICS - 2261W ----------------------" : PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIGNSOTIC MENU ; KEY 'RESET' AND SF'31" : PRINT HEX(010A0A0A);"1. 204","2. 214","3. 215","4. 216" 0110 PRINT HEX(0C0C); : INPUT "SELECT PRINT ADDRESS",Q : PRINT HEX(0A0A0D) 0120 INPUT "KEY 'EXEC' TO START",Z9$ 0130 PRINT "-------------------------" : PRINT "EXECUTING PROGRAM" 0140 DIM T$(1)1,C$(5)22,I$(1)5,C1$(5)22,A$64,C2$(22)1,C3$(10) 0150 GOSUB '100 0200 IF Q9=1THEN 450 0220 PRINT HEX(0C) : PRINT "1. THIS IS THE FIRST LINE OF THE PRINT OUT" : PRINT : PRINT : PRINT : PRINT : PRINT "6. THIS IS THE SIXTH LINE." : PRINT "7. VERTICAL TAB STARTS FROM THIS LINE" : FOR I=1TO 8 : N=(1+I)*6 : PRINT HEX(0B) : PRINTUSING 340,N 0340 %##. VERTICAL TAB, HEX(0B) 0350 NEXT I : PRINT "55. THE NEXT TEST IS FOR THE LINE FEED CODE HEX(0A)" : FOR I=1TO 3 : PRINT HEX(0A) : NEXT I : PRINT "59. THIS LINE SHOULD BE PRINTED BEFORE FORM FEED HEX(0C)" : PRINT HEX(0C) 0410 PRINT "1.-----------------------THIS SHOULD BE THE FIRST LINE AFTER FORM FEED.-----------------------------------------" 0420 A$=HEX(410D00420D00430D00440D00450D00460D) : PRINT A$ 0450 FOR I=1TO 10 : PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=!@#$%^&*()-+';/./:?.abcdefgh ijklmnopqrstuvwxyz!@#$%^&*()-+1234567890-=!@#$" : PRINT HEX(0E) 0470 PRINT "TTTT====5555wwwwjjjjMMMM;;;;;;;;jjjjjjjjTT==55wwjjMM;;;;" : NEXT I : FOR I=1TO 448 : PRINT "AB"; : NEXT I : PRINT HEX(0B) : IF Q9=1THEN 670 0530 PRINT "THIS LINE SHOULD NOT BE PRINTED, UNLESS THE PRINTER IS NOT RESPOND ING TO THE DELETE CODE HEX(7F)";HEX(7F) : PRINT "37. YOU SHOULD HEAR THE BELL SOUND THREE TIMES" : PRINT HEX(07) : FOR D=1TO 300 : NEXT D 0580 PRINT HEX(07) : FOR D=1TO 300 : NEXT D : PRINT HEX(07) : PRINT "38. AFTER THIS LINE IS PRINTED THERE SHOULD BE A FORM-FEED" : PRINT HEX(0C) : N=1 0590 IF Q7=1THEN 50 0650 PRINT "EXAMINE THE FOLLOWING OUTPUT FOR PRINT QUALITY AND CONSISTENCY IN THE PRINT PATTERN" : PRINT HEX(0E);"TEST 2" 0670 P3=1 : FOR I=1TO 22 : BIN(STR(I$(1),1))=INT(RND(1)*94+33) : C2$(I)=STR(I$(1),1) : STR(I$(1),2)=STR(I$(1),1) : MAT COPY I$()TO C1$()<P3,5> : P3=P3+5 : NEXT I : FOR I=1TO 22 : PRINT TAB(I*5-5);C2$(I); : NEXT I : FOR I=1TO 5 : FOR J=1TO 5 : PRINT C1$(J); : NEXT J : NEXT I : PRINT HEX(0D) : N=N+1 0800 IF N<10THEN 670 : IF Q7=1THEN 50 : IF Q9=1THEN 930 0850 PRINT HEX(0C);HEX(0E);"TEST 3" : P3=1 : N=33 : P4=1 : FOR I=1TO 110 : IF N<=112THEN 930 : N=33 0930 BIN(I$(1))=N : N=N+1 : MAT COPY I$()TO C$()<P3,1> : P3=P3+1 : NEXT I 0980 FOR I=1TO 95 : FOR J=1TO 5 : IF P4=2THEN 1030 : PRINT C$(J); : GOTO 1040 1030 PRINT HEX(0E);C$(J); 1040 NEXT J : T$(1)=STR(C$(5),22,1) : MAT COPY C$()<1,109>TO C1$()<2,109> : MAT COPY T$()<1,1>TO C1$()<1,1> : MAT COPY C1$()<1,110>TO C$()<1,110> : NEXT I : IF P4>1THEN 1050 : P4=2 : GOTO 980 1050 IF Q7=1THEN 50 : IF Q9=1THEN 450 1130 PRINT HEX(0D0C);HEX(0E);"TEST 4" : A$="TUIHZ-/.#+/TUIHZ-/.#+/TUIHZ-/.#+/TUIHZ-/.#+/TUIHZ-/.#+/T" : FOR I=1TO 25 : PRINT HEX(0E);A$ : NEXT I : FOR I=1TO 25 : PRINT A$;A$ : NEXT I 1135 IF Q7=1THEN 50 1140 PRINT HEX(0C0E);"TEST 5" 1220 DATA "SKIP 1 LINE","SKIP 2 LINES","SKIP 3 LINES","SKIP 4 LINES","SKIP 5 L INES","SKIP 6 LINES","SKIP 7 LINES","SKIP 8 LINES","SKIP 9 LINES" : INIT(0A)L3$ : FOR I=1TO 9 : READ C3$(I) : NEXT I : FOR I=1TO 9 1280 PRINT C3$(I) : PRINT STR(L3$,1,I) : NEXT I : PRINT HEX(0A0A0A0A0E);"THIS SHOULD BE THE LAST LINE OF THIS PAGE, END OF TEST" : SELECT PRINT 005(64) 1340 SELECT PRINT 005(64) : PRINT "END OF PRINTER DIAGNOSTIC" : GOTO 50 1350 Q7=1 1360 GOSUB '100 : INPUT "ENTER THE NUMBER OF THE TEST DESIRED, 1-5",Q8 : IF Q8=1THEN 220 : IF Q8=2THEN 650 : IF Q8=3THEN 850 : IF Q8=4THEN 1130 : IF Q8=5THEN 1140 : GOTO 50 1500 DEFFN'100 : ON Q GOTO 1520,1530,1540,1550 1520 SELECT PRINT 204(136) : RETURN 1530 SELECT PRINT 214(136) : RETURN 1540 SELECT PRINT 215(136) : RETURN 1550 SELECT PRINT 216(136) : RETURN 9010 DEFFN'31 : SELECT PRINT 005(64) : LOAD DC T"START"