Listing of file='BDIAG13' on disk='vmedia/732-0050A.wvd.zip'
# Sector 965, program filename = 'BDIAG13'
0020 PRINT AT(13,00);"VER............ <-- TESTING",
0080 S=SPACE
0090 DIM A$(256)1,V$(256)1
0100 FOR I=1TO 256
: A$(I)=BIN(I-1)
: NEXT I
: V$()=ALL(00)
0110 STR(V$(),49,10)=ALL(01)
: FOR I=1TO 256
: IF VER(A$(I),"#")<>VAL(V$(I))THEN 8990
: NEXT I
0120 STR(V$(),66,6)=ALL(01)
: FOR I=1TO 256
: IF VER(A$(I),"H")<>VAL(V$(I))THEN 8990
: NEXT I
0130 STR(V$(),66,26),STR(V$(),98,26)=ALL(01)
: FOR I=1TO 256
: IF VER(A$(I),"N")<>VAL(V$(I))THEN 8990
: NEXT I
0140 STR(V$(),49,10)=ALL(00)
: FOR I=1TO 256
: IF VER(A$(I),"A")<>VAL(V$(I))THEN 8990
: NEXT I
0150 V$()=ALL(01)
: FOR I=1TO 256
: IF VER(A$(I),"X")<>VAL(V$(I))THEN 8990
: NEXT I
0160 V$()=ALL(00)
: V$(33),V$(44),V$(46)=HEX(01)
: FOR I=1TO 256
: IF VER(A$(I),"+")<>VAL(V$(I))THEN 8990
: NEXT I
0170 V$()=ALL(00)
: V$(65)=HEX(01)
: FOR I=1TO 256
: IF VER(A$(I),"@")<>VAL(V$(I))THEN 8990
: NEXT I
0200 READ N
: FOR I=1TO N
: READ M,F$
0210 FOR J=1TO M
: READ A$,X
: IF VER(A$,STR(F$,,LEN(F$)))<>XTHEN 8990
: NEXT J,I
0220 DATA 3
0230 DATA 7,"AAAAA","ABCDE",5,"Z",1,"@ABCD",0,"ABCDEF",5,"abcdef",5,"abC.E",3,
" AB",0
0240 DATA 7,"A#NHPX+.A#NHPX+$","Z",1,"z",1,"12",0,"M9876 .m1BFA%-$",16,"A1234
5 ,B",7,"Z1z:33",3,"ABC",1
0250 DATA 3,"AN#XP","ABCDE",2,"AB12345",5,"AB3",5
0300 IF VER("ABCDE","AAA")<>3OR VER("12345","######")<>5OR VER("!@$%^&*(),#","
!@$%^&*(),#")<>10THEN 8990
8980 I=SPACE
: IF I=STHEN 9000
8990 E(13)=E(13)+1
9000 PRINT AT(13,16,16);
: IF E(13)=0THEN PRINT "OK"
: ELSE PRINT E(13);"ERRORS"
9010 LOAD DC T"BDIAG14 "