Listing of file='36dwdat' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 3861, program filename = '36dwdat' 0010 COM F$(200)2,K$(12,16),T1$32,T2$64 0020 DIM F,I,J 0160 RESTORE : T1$=HEX(010D02209050037E037F048204A1A608917C917DAD8498E590F005FF) 0180 T2$="1!2@3#4$5%6^7&8*9(0)<>[];:/?=+" : STR(T2$,31,34)=HEX(00100111021203130414051506160717081809190A1A0B1B0C1C0D 1D0E1E0F1F2722) 0210 FOR F=1TO 98 : READ F$(F) : NEXT F 0211 DATA " 3","z3","x3","c3","v3","b3","n3","m3",",3",".3","/3",HEX(0D31),"'3 ",";3","l3","k3" 0212 DATA "j3","h3","g3","f3","d3","s3","a3",HEX(7E32),"q3","w3","e3","r3","t3 ","y3","u3","i3" 0213 DATA "o3","p3","<3",HEX(7C32),HEX(0831),"=3","-3","03","93","83","73","63 ","53","43","33","23" 0214 DATA "13"," 3","Z3","X3","C3","V3","B3","N3","M3",",3",".3","?3",HEX(0D31 ),HEX(2233),":3","L3" 0215 DATA "K3","J3","H3","G3","F3","D3","S3","A3",HEX(7F32),"Q3","W3","E3","R3 ","T3","Y3","U3" 0216 DATA "I3","O3","P3",">3",HEX(7D32),HEX(0831),"+3",HEX(FF31),")3","(3","*3 ","&3","^3","%3","$3","#3" 0217 DATA "@3","!3" 0221 FOR F=99TO 125 : READ F$(F) : NEXT F 0222 DATA HEX(F032),HEX(4F32),HEX(4832),HEX(4232),HEX(4A32),HEX(8233),HEX(4932 ),HEX(4332),HEX(8432),HEX(0D33),HEX(4C32),HEX(4632),HEX(4D32),HEX(4532),H EX(5032),HEX(5F32) 0223 DATA HEX(E533),HEX(5232),HEX(5A32),HEX(A133),HEX(5932),HEX(5332),HEX(0D33 ),HEX(5C32),HEX(5632),HEX(5D32),HEX(5532) 0231 FOR F=126TO 137 : READ F$(F) : NEXT F 0232 DATA "-3","[3","73","83","93","63","53","43","13","23","33",".3","03" 0241 FOR F=140TO 172 : READ F$(F) : NEXT F 0243 DATA HEX(0032),HEX(0132),HEX(0232),HEX(0332),HEX(0432),HEX(0532),HEX(0632 ),HEX(0732),HEX(0832),HEX(0932),HEX(0A32),HEX(0B32),HEX(0C32),HEX(0D32),H EX(0E32),HEX(0F32) 0244 DATA HEX(1032),HEX(1132),HEX(1232),HEX(1332),HEX(1432),HEX(1532),HEX(1632 ),HEX(1732),HEX(1832),HEX(1932),HEX(1A32),HEX(1B32),HEX(1C32),HEX(1D32),H EX(1E32),HEX(1F32) 0251 FOR F=175TO 194 : READ F$(F) : NEXT F 0252 DATA HEX(7E32),"q1","11",HEX(0032) 0253 DATA HEX(7F32),"Q1","!1",HEX(1032) 0254 DATA HEX(7E32),"Q1","11",HEX(0032) 0255 DATA HEX(7F32),"Q1","!1",HEX(1032) 0256 DATA HEX(7E32),"Q1","11",HEX(0032) 0490 FOR I=1TO 12 : FOR J=1TO 16 : READ K$(I,J) : NEXT J : NEXT I 0510 DATA "0706'0 ","0710'1","0714'2","0718'3","0724'4","0728'5","0732'6","073 6'7","0742'8","0746'9","0750'10","0754'11","0760'12","0764'13","0768'14", "0772'15" 0530 DATA "0706'16","0710'17","0714'18","0718'19","0724'20","0728'21","0732'22 ","0736'23","0742'24","0746'25","0750'26","0754'27","0760'28","0764'29"," 0768'30","0772'31" 0550 DATA "1910 ","1104 !",HEX(313534362022),"1112 #","1116 $","1120 %","1128 &","1546 '","1136 (","1140 )","1132 *","1148 +","1736 ,","1144 -","1740 .","1744 /" 0570 DATA "1140 0","1104 1","1108 2","1112 3","1116 4","1120 5","1124 6","1128 7","1132 8","1136 9","1542 :","1542 ;","1345 <","1148 =","1345 >","1744 ?" 0590 DATA "1108 @","1506 A","1724 B","1716 C","1514 D","1313 E","1518 F","1522 G","1526 H","1333 I","1530 J","1534 K","1538 L","1732 M","1728 N","1337 O" 0610 DATA "1341 P","1305 Q","1317 R","1510 S","1321 T","1329 U","1720 V","1309 W","1712 X","1325 Y","1708 Z","1910","1910","1910","1124 ^","1910" 0630 DATA "1910","1506 a","1724 b","1716 c","1514 d","1313 e","1518 f","1522 g ","1526 h","1333 i","1530 j","1534 k","1538 l","1732 m","1728 n","1337 o" 0650 DATA "1341 p","1305 q","1317 r","1510 s","1321 t","1329 u","1720 v","1309 w","1712 x","1325 y","1708 z","1910","1910","1910","0701RST","1910" 0670 DATA "1173 -","1169 [","1369 7","1373 8","1377 9","1577 6","1573 5","1569 4","1769 1","1773 2","1777 3","1977 .","1971 0","1158 R","1258 U","1358 N" 0690 DATA "0777EDT","1349 GL","1166P.S","1366N.S","1910 ",HEX(31393632208D), "1562 ^","1910 ","1172ERA","1362DEL","1162INS",HEX(31373538205F),HEX(31 3736362084),HEX(31373538205F),"1910 ","1177DTB" 0710 DATA "1700 SH","1703IFT","1704FT","1748 SH","1750HIF","1752FT","1152 BS", "1552ET","1550 RE","1552ET","1772 R","1872 E","1972 T","1372CNT","1502CK" ,"1500LOC" 0730 DATA "1910","1913","1916","1919SPA","1922CE","1925","1928BAR","1931","193 4","1937","1940","1942","1100","1200","1301","1300TAB" 0740 LOAD DC T"36dwkbd" 7010 DEFFN'1 : FOR F=1TO 200 : PRINT HEXOF(F$(F));" "; : NEXT F