image of READY prompt

Wang2200.org

Listing of file='BDIAG11' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector sector 670, program filename = 'BDIAG11 '
0020 PRINT AT(11,00);"ALL,HEX........ <-- TESTING",
0080 S=SPACE
0090 DIM A$1,B$3,Z$(4)124
0100 B$,C$,A$=ALL(FF)
   : IF A$<>HEX(FF)THEN 8990
   : IF B$<>HEX(FFFFFF)THEN 8990
   : IF C$<>HEX(FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)THEN 8990
0110 A$,B$,C$=ALL("XYZ")
   : IF A$<>"X"THEN 8990
   : IF B$<>"XXX"THEN 8990
   : IF C$<>"XXXXXXXXXXXXXXXX"THEN 8990
0120 C$,B$,A$=ALL(HEX(4142))
   : IF A$<>"A"THEN 8990
   : IF B$<>"AAA"THEN 8990
   : IF C$<>"AAAAAAAAAAAAAAAA"THEN 8990
0130 A$=HEX(00)
   : FOR I=0TO 256
   : B$=ALL(A$)
   : C$=A$&A$&A$
   : IF B$<>C$THEN 8990
   : A$=ADDHEX(01)
   : NEXT I
0140 Z$()=ALL(45)
   : IF POS(Z$()<>"E")<>0THEN 8990
0195 Z$()=HEX(000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F
     202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F404142434
     445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F606162636465666768
     696A6B6C6D6E6F70717273747576)
0200 STR(Z$(),120)=HEX(7778797A7B7C7D7E7F808182838485868788898A8B8C8D8E8F90919
     2939495969798999A9B9C9D9E9FA0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6
     B7B8B9BABBBCBDBEBFC0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DAD
     BDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEB)
0220 STR(Z$(),237)=HEX(ECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF)
0230 A$=HEX(00)
   : FOR I=1TO 256
   : IF STR(Z$(),I,1)<>A$THEN 8990
   : A$=ADDHEX(01)
   : NEXT I
0300 IF 1=2THEN A$=HEX(3A0DFDFCFFFDFF22)
0310 IF VAL(HEX(45))<>69THEN 8990
0400 GOTO 8980
0410 PRINT HEX(010203)
   : DATA HEX(03)
   : INPUT HEX(4455)A$
0420 STOP HEX(AB)
   : PRINTUSING "#",HEX(44)
   : IF HEX(02)=HEX(03)THEN LET A$=HEX(04)
   : GOSUB '200(HEX(45))
0430 DEFFN'200HEX(454647)
   : PRINT HEXOF(HEX(13))
   : X=VAL(HEX(45))
   : Y=POS(A$=HEX(45))
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(11)=E(11)+1
9000 PRINT AT(11,16,16);
   : IF E(11)=0THEN PRINT "OK"
   : ELSE PRINT E(11);"ERRORS"
9010 LOAD DC T"BDIAG12 "