Listing of file='BDIAG11' on disk='vmedia/732-0050A.wvd.zip'
# 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 "