Listing of file='BDIAG13' on disk='vmedia/mvp-diag-3.5.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 "