image of READY prompt

Wang2200.org

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

# Sector sector 339, program filename = 'BDIAG17E'
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
0310 IF K+K1+K2+K3+K4+K5+K6+K7+K8+K9+K0+A+J+S+I+X<>16THEN 8990
0320 IF A1+A(1)+A1(1,1)+B(1,1)+B(4,5)+Z8+Z9<>0THEN 8990
0400 Q$=A$AND A1$AND B$AND C$AND D$AND D1$AND A$()AND A1$()AND B$()AND C$()AND
      D$()
   : IF STR(Q$,1,1)<>HEX(FF)THEN 8990
0405 Q$=D1$()OR D2$()OR D3$()OR Z9$()
   : IF Q$<>" "THEN 8990
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 9000
8990 E(17)=E(17)+1
9000 PRINT AT(02,48,16);
   : IF E(17)=0THEN PRINT "OK";
   : ELSE PRINT E(17);"ERRORS"
9010 COM CLEAR K
   : LOAD DC T"BDIAG18 "