Listing of file='P21W010A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 93, program filename = 'P21W010A'
0010 REM P21W010A 00-00 6/20/75 12002
: DIM T$(1)1,C$(5)26,I$(1)5,C1$(5)26,A$64,C2$(26)1,C3$(10)
0020 SELECT PRINT 005
: PRINT HEX(03);"WCS SYSTEM DIAGNOSTIC - 2221W"
: PRINT "-----------------------------------"
: PRINT "EXECUTING PROGRAM"
0030 SELECT PRINT 005
: PRINT "*** TURN ON PRINTER ***"
: INPUT "KEY EXEC TO RETURN",Z
0040 SELECT PRINT 215(132)
: PRINT HEX(0C)
0060 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 120,N
0120 %##. VERTICAL TAB, HEX(0B)
0130 NEXT I
0140 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 END OF DOCUMENT"
0190 PRINT "1.-------------------------THIS SHOULD BE THE FIRST LINE AFTER END
OF DOCUMENT.-----------------------------------------------------"
0200 A$=HEX(410D00420D00430D00440D00450D00460D)
: PRINT A$
: FOR I=1TO 10
0230 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=!@#$%^&*()-+';/./:?.abcdefgh
ijklmnopqrstuvwxyz!@#$%^&*()-+1234567890-=';/.:?.ABCDEFGHIJKLMNOPQ"
0240 PRINT HEX(0E)
: PRINT "TTTT====5555wwwwjjjjMMMM;;;;;;;;jjjjjjjjTT==55wwjjMM;;;;jjjjBBBNNN
"
: NEXT I
: FOR I=1TO 264
: PRINT "AB";
0280 NEXT I
: PRINT HEX(0B)
: 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"
0320 PRINT HEX(07)
: FOR D=1TO 300
: NEXT D
: PRINT HEX(07)
: FOR D=1TO 300
: NEXT D
: PRINT HEX(07)
0390 PRINT "38. AFTER THIS LINE IS PRINTED THERE SHOULD BE A FORM-FEED"
: PRINT HEX(0C)
: N=1
: PRINT "EXAMINE THE FOLLOWING OUTPUT FOR PRINT QUALITY AND CONSISTENCY IN
THE PRINT PATTERN"
0440 PRINT HEX(0E);"TEST 2"
0460 P3=1
: FOR I=1TO 26
: BIN(STR(I$(1),1))=INT(RND(1)*94+33)
: C2$(I)=STR(I$(1),1)
0490 STR(I$(1),2)=STR(I$(1),1)
: MAT COPY I$()TO C1$()<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 C1$(J);
: NEXT J
: NEXT I
: PRINT HEX(0D)
: N=N+1
: IF N<10THEN 460
: PRINT HEX(0C);HEX(0E);"TEST 3"
: P3=1
: N=33
: P4=1
0700 FOR I=1TO 130
: IF N<=126THEN 730
: N=33
0730 BIN(I$(1))=N
: N=N+1
: MAT COPY I$()TO C$()<P3,1>
0760 P3=P3+1
: NEXT I
0790 FOR I=1TO 95
: FOR J=1TO 5
: IF P4=2THEN 840
: PRINT C$(J);
: GOTO 850
0840 PRINT HEX(0E);C$(J);
0850 NEXT J
: T$(1)=STR(C$(5),26,1)
: MAT COPY C$()<1,129>TO C1$()<2,129>
: MAT COPY T$()<1,1>TO C1$()<1,1>
: MAT COPY C1$()TO C$()
: NEXT I
: IF P4>1THEN 960
: P4=2
: GOTO 790
0960 PRINT HEX(0D0C);HEX(0E);"TEST 4"
0970 A$="TUIHZ-/.#+/TUIHZ-/.#+/TUIHZ-/.#+/TUIHZ-/.#+/TUIHZ-/.#+/TUIHZ-/.#+/"
: FOR I=1TO 25
: PRINT HEX(0E);A$
: NEXT I
: FOR I=1TO 25
: PRINT A$;A$
: NEXT I
: PRINT HEX(0C0E);"TEST 5"
1060 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
1090 FOR I=1TO 9
: PRINT C3$(I)
: PRINT STR(L3$,1,I)
: NEXT I
1120 PRINT HEX(0A0A0A0A0E);"THIS SHOULD BE THE LAST LINE OF PRINT ON THIS PAGE
"
: PRINT HEX(0E);"THIS IS THE FIRST LINE OF PRINT AND THE END OF THE TEST"
: SELECT PRINT 005(64)
: GOTO 20
1150 DEFFN'15
: SELECT PRINT 005(64)
: LOAD DC T"START"50