Listing of file='BDIAG17B' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 869, program filename = 'BDIAG17B' 0030 COM K,K1,K2,K3,K4,K5,K6,K7,K8,K9,K0,A,J,S,I,X 0090 COM A$1,A1$2,B$5,C$,D$100,D1$124 : COM A$(1)1,A1$(1,1)1,B$(1),C$(256)1,D$(2,3)4,D1$(255,1)1,D2$(1,255)2,D3$( 1,1)124 : COM Z9$(1000)1 0200 COM A,A1,Z9,A(1),A1(1,1),B(4,5) 0250 COM Z8 0800 K,K1,K2,K3,K4,K5,K6,K7,K8,K9,K0,A,A1,J,S,I,X,Z9,Z8,A(1),A1(1,1),B(4,5),B( 1,1)=1 0810 A$,A1$,B$,C$,D$,D1$,A$(),A1$(),B$(),C$(),D$(),D1$(),D2$(),D3$(),Z9$()=ALL (FF) 8980 GOTO 9010 8990 E(17)=E(17)+1 : PRINT AT(02,48,16);E(17);"ERRORS" 9010 COM CLEAR K : LOAD DC T"BDIAG17C"