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"