image of READY prompt

Wang2200.org

Listing of file='P31D030B' on disk='vmedia/702-0079.wvd.zip'

# Sector 373, program filename = 'P31D030B'
0005 REM % P31D030B   MOD 1/14/80   J. BROOKS
0010 REM 2231 (132) DIAG
0050 SELECT PRINT 005
   : Q7=0
   : GOSUB 9000
   : Q9=0
   : STOP "KEY SF'0 TO START TEST"
0130 DEFFN'0
   : PRINT "-------------------------"
   : PRINT "EXECUTING PROGRAM"
   : DIM T$(1)1,C$(5)26,I$(1)5,C1$(5)26,A$64,C2$(26)1,C3$(10)
0160 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)
   : PRINT "1.THIS SHOULD BE THE FIRST LINE AFTER FORM FEED."
   : A$=HEX(410D00420D00430D00440D00450D00460D)
   : PRINT A$
0450 FOR I=1TO 10
   : PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=!@#$%^&*()-+';/./:?.abcdefgh
     ijklmnopqrstuvwxyz!@#$%^&*()-+1234567890-=!@#$AaBbCcDdEeFfGgHhIiJj"
   : PRINT HEX(0E)
0470 PRINT "TTTT====5555wwwwjjjjMMMM;;;;;;;;jjjjjjjjTTTT====5555wwwwjjjjMM;;;;
     "
   : NEXT I
   : FOR I=1TO 528
   : 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
   : 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 26
   : 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 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 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 130
   : IF N<=126THEN 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),26,1)
   : MAT COPY C$()<1,129>TO C1$()<2,129>
   : MAT COPY T$()<1,1>TO C1$()<1,1>
   : MAT COPY C1$()<1,130>TO C$()<1,130>
   : 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-/.#+/TUIHZ-/.#+/"
   : FOR I=1TO 25
   : PRINT HEX(0E);A$
   : NEXT I
   : FOR I=1TO 25
   : PRINT A$;A$
   : NEXT I
   : IF Q7=1THEN 50
1140 PRINT HEX(0C0E);"TEST 5"
   : 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)
   : PRINT "END OF PRINTER DIAGNOSTIC"
   : GOTO 50
   : 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
1700 DEFFN'100
   : ON Q GOTO 1720,1730,1740,1750
1720 SELECT PRINT 204(132)
   : RETURN
1730 SELECT PRINT 214(132)
   : RETURN
1740 SELECT PRINT 215(132)
   : RETURN
1750 SELECT PRINT 216(132)
   : RETURN
9000 PRINT HEX(03);"2200 HARDWARE DIAGNOSTICS - 2231W 12 PITCH ---------------
     ------"
   : PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSTIC MENU ; KEY 'RESET' AN
     D SF'31"
   : PRINT HEX(010A0A0A0A);"1. 204","2. 214","3. 215","4. 216"
   : PRINT HEX(0C0C);
   : INPUT "SELECT PRINTER ADDRESS ",Q
   : PRINT HEX(0A0A0D)
   : RETURN
9010 DEFFN'31
   : SELECT PRINT 005(64)
   : LOAD DC T"START"