image of READY prompt

Wang2200.org

Listing of file='M4 ' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 162, program filename = 'M4'
0010 COM D$(1)6
   : DIM X$1,E$2
0020 N=.5*(256-VAL(STR(H7$,5)))
   : E$=HEX(07DC)
   : ADDC(E$,STR(H7$,2,2))
   : ADDC(E$,STR(H7$,2,2))
0030 HEXPRINT H7$;
   : PRINT "   PROBABLE RANGE AS FOLLOWS:"
   : IF STR(D$(1),4,1)=HEX(00)THEN 40
   : ADDC(E$,STR(D$(1),4,2))
   : N=2*N
0040 FOR I=1TO N
   : B=INT(VAL(E$)/32)
   : A=INT(B/2)
   : B=16*(B-2*A)
0050 X$=STR(E$,2)
   : AND (X$,10)
   : B=8-VAL(X$)/2+B
0070 STR(B$,4*A+.125*B+1,1)="*"
0080 ADDC(E$,02)
   : NEXT I
   : FOR I=1TO 16
   : IF STR(B$,I,1)=" "THEN 130
   : A=INT((I-1)*.25)
   : B=(I-1-4*A)*8
0100 PRINT "   BOARD";A+1;
0110   PRINT " BAD CHIP PROBABLE RANGE IS (#";B+1;" TO #";B+8;")"
0130 NEXT I
0191 LOAD DC T"M0"