Listing of file='P01D010A' on disk='vmedia/702-0079.wvd.zip'
# Sector 95, program filename = 'P01D010A'
0005 REM % P01D010A MOD 4/7/80 G. CARRIER
0160 REM THE 2201 PROGRAM
0170 DIM A$26,B$26
: DATA "a c e g i k m o q s u w yz"
: DATA " b d f h j l n p r t v x"
: READ A$,B$
0180 PRINT HEX(03);"2200 HARDWARE DIAGNOSTICS - 2201 TYPEWRITER --------------
-------"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSTIC MENU ; KEY 'RESET' AN
D SF'31";HEX(01)
0200 PRINT HEX(010A0A0A0A0A);
: INPUT "SELECT CONTROLLER ADDRESS (204,211,215)",D$
: PRINT HEX(0A0A0D);
0230 INPUT "NUMBER OF PASSES",M
: SELECT PRINT <D$>
0250 PRINT HEX(0D0919091909190919091909190919091909190919091909190D);
: FOR X=1TO 14
: PRINT TAB(9*X);HEX(1A);
: NEXT X
: PRINT HEX(0D);
: PRINT A$;" ";A$;" ";A$;" ";A$;
0290 FOR X=1TO 119
: PRINT HEX(08);
: NEXT X
: PRINT B$;" ";B$;" ";B$;" ";B$;
: PRINT HEX(0D);
: FOR X=1TO 60
: PRINT HEX(2D5D);
: NEXT X
: PRINT HEX(0D);
: FOR X=1TO 14
: PRINT HEX(0931);
: NEXT X
: PRINT HEX(0D);
: PRINT "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz><@2#3$4%5^6&7
*8(9)0-+=:;/?'";
0350 PRINT HEX(20202020);"ABCDEFGHIJKLMNOPQRSTUVWXYZ@#$%&*()>?+";HEX(0D);
: PRINT "Now is the time for all good men to come and see the quick brown f
ox jump over the lazy dog";HEX(0D);
: FOR X=1TO 14
: PRINT "9>67z-gq;";
: NEXT X
: PRINT HEX(0D);
: FOR Z=1TO 3
: FOR X=1TO 8
: PRINT "12345 67890 ";
: NEXT X
: PRINT HEX(0D);
: NEXT Z
0410 M=M-1
: IF M<>0THEN 250
: SELECT PRINT 005(64)
: GOTO 160
0450 M=M-1
: IF M<>0THEN 290
: SELECT PRINT 005(64)
: GOTO 180
0480 DEFFN'31
: SELECT PRINT 005(64)
: LOAD DC T"START"