image of READY prompt

Wang2200.org

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