Listing of file='P21D030A' on disk='vmedia/702-0079.wvd.zip'
# Sector 29, program filename = 'P21D030A'
0005 REM % P21D030A MOD 1/10/80 J. BROOKS
0020 DIM B$64
0025 PRINT HEX(03);"2200 HARDWARE DIAGNOSTICS - 2221W PRINTER ----------------
------"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSTIC MENU ; KEY 'RESET' AN
D SF'31";HEX(01)
: GOSUB 1600
: B$="ABCDEFGHIJKLLMNOPQRSTUVWXYZ1234567890-=<';/.,ABCDEFGHIJKLMNOPQRS"
: STOP "KEY SF'15 FOR TEST"
0460 DEFFN'15
: GOSUB '100
: J=1
0480 J1=0
0490 PRINT STR(B$,1,J)
: J1=J1+1
: IF J1=1THEN 490
: J=J+1
: IF J>64THEN 540
: GOTO 480
0540 J=1
0550 J1=0
0560 PRINT B$;STR(B$,1,J)
: J1=J1+1
: IF J1=1THEN 560
: J=J+1
: IF J>64THEN 610
: GOTO 550
0610 PRINT B$;B$;"A"
: PRINT B$;B$;"A"
: PRINT B$;B$;"AB"
: PRINT B$;B$;"AB"
: PRINT B$;B$;"ABC"
: PRINT B$;B$;"ABC"
0665 DEFFN'14
: GOSUB '100
: PRINT B$;B$;"ABCD"
: PRINT B$;B$;"ABCD"
: PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=<';/.,!@#$%^&*()-+??,.>abcde
fghijklmnopqrstuvwxyz1234567890-=<;/.,ABCDEFGHIJKLMNOPQRSTUVWXYZAB1234"
: SELECT PRINT 005(64)
: STOP
0720 DEFFN'13
: GOSUB '100
0730 PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
0740 PRINT "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
0750 PRINT "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"
: GOTO 730
0770 DEFFN'12
: GOSUB '100
0780 PRINT "
"
: GOTO 780
0795 DEFFN'11
: GOSUB '100
0800 PRINT HEX(0E)
: PRINT "THIS IS A TEST OF THE WANG MODEL 2272 MATRIX PRINTER TEST TEST"
: PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 !@#$%^&*()-+>:?.,,./;<=- abc
defghijklmnopqrstuvwxyz abcdefghijklmnopqrstuvwxyz 1234567890"
: PRINT HEX(0E)
0840 PRINT "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+>:?.,/;<=-+-*/^"
: GOTO 800
0860 DEFFN'00
: SELECT PRINT 005
: PRINT "SZETO'S TEST SF01"
: PRINT "INCREMENT TEST SF31"
: PRINT "132 CHARACTER TEST SF14"
: PRINT "ABE TEST SF13"
: PRINT "SPACES FOR ADJUSTMENTS SF12"
: PRINT "CHARACTER QUALITY TEST SF11"
: STOP
0999 DEFFN'01
: GOSUB '100
: 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)
: PRINT N;". VERTICAL TAB , HEX(0B)"
: NEXT I
1080 PRINT "55. THE NEXT TEST IS FOR THE LINE FEED CODE HEX(0A)"
: FOR I=1TO 3
: PRINT HEX(0A)
: NEXT I
: PRINT "58. THIS LINE SHOULD BE PRINTED BEFORE END OF DOCUMENT"
1130 PRINT "1.-------------------------THIS SHOULD BE THE FIRST LINE AFTER END
OF DOCUMENT.-----------------------------------------------------"
: A$=HEX(410D00420D00430D00440D00450D00460D)
: PRINT A$
: FOR I=1TO 10
1170 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=!@#$%^&*()-+';/.,:?.,abcdefg
hijklmnopqrstuvwxyz!@#$%^&*()-+1234567890-=:?.,/;'ABCDEFGHIJK"
: PRINT HEX(0E)
: PRINT "TTTT====5555wwwwjjjjMMMM;;;;;;;;jjjjjjjjTT==55wwjjMM;;;;jjjjBBBNNN
"
: NEXT I
: FOR I=1TO 264
: PRINT "AB";
: NEXT I
1230 PRINT HEX(0B)
: PRINT "37. VERTICAL TAB, HEX(0B)"
: FOR I=1TO 10
: PRINT HEX(0A)
: NEXT I
: PRINT "48. 10 LINE-FEEDS, HEX(0A)"
: PRINT "THIS LINE SHOULD NOT BE PRINTED, UNLESS THE PRINTER IS NOT RESPOND
ING TO THE DELETE CODE HEX(7F)";HEX(7F)
: PRINT "50. YOU SHOULD HEAR THE BELL SOUND THREE TIMES"
: PRINT HEX(07)
1310 FOR D=1TO 300
: NEXT D
: PRINT HEX(07)
: FOR D=1TO 300
: NEXT D
: PRINT HEX(07)
: PRINT "51. AFTER THIS LINE IS PRINTED THERE SHOULD BE A FORM-FEED"
: PRINT HEX(0C)
: PRINT "66. --------------------------------------------------------------
-------------------------------------------------------------"
1500 DEFFN'100
: ON Q GOTO 1520,1530,1540,1550
1520 SELECT PRINT 204(132)
: RETURN
1530 SELECT PRINT 214(132)
: RETURN
1540 SELECT PRINT 215(132)
: RETURN
1550 SELECT PRINT 216(132)
: RETURN
1600 PRINT HEX(010A0A0A0A);"1. 204","2. 214","3. 215","4. 216"
: PRINT HEX(0C0C);
: INPUT "SELECT PRINTER ADDRESS ",Q
: PRINT HEX(0A0A0A0D);
: RETURN
9000 PRINT HEX(03);"2200 HARDWARE DIGNOSTICS - 2221 PRINTER ------------------
------"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIGNSOTIC MENU ; KEY 'RESET' AND
SF'31";HEX(01)
9010 DEFFN'31
: SELECT PRINT 005(64)
: LOAD DC T"START"