Listing of file='M4' on disk='vmedia/701-2046C.wvd.zip'
# Sector 437, program filename = 'M4' 0010 REM . M4, 00-00 (6/28/75), 12002 0100 COM D$(1)6 : DIM X$1,E$2,D9$(32)8 : DATA LOAD DC OPEN T#6,"DATA1" : DATA LOAD DC #6,D9$() : CONVERT STR(D9$(1),8)TO O8 : GOSUB '100 : N=.5*(256-VAL(STR(D$(1),5))) : E$=HEX(07DC) : ADDC(E$,STR(D$(1),2,2)) : ADDC(E$,STR(D$(1),2,2)) : HEXPRINT D$(); 0200 PRINT " PROBABLE RANGE AS FOLLOWS:" : IF STR(D$(1),4,1)=HEX(00)THEN 240 : ADDC(E$,STR(D$(1),4,2)) : N=2*N 0240 FOR I=1TO N : B=INT(VAL(E$)/32) : A=INT(B/2) : B=16*(B-2*A) : X$=STR(E$,2) : AND (X$,10) : B=8-VAL(X$)/2+B : STR(B$,4*A+.125*B+1,1)="*" : ADDC(E$,02) : NEXT I : FOR I=1TO 16 : IF STR(B$,I,1)=" "THEN 400 : A=INT((I-1)*.25) : B=(I-1-4*A)*8 0380 PRINT " BOARD";A+1; : PRINT " BAD CHIP PROBABLE RANGE IS (#";B+1;" TO #";B+8;")" 0400 NEXT I : COM CLEAR : LOAD DC T#6,"M3.5" 0430 DEFFN'100 : ON O8GOTO 460,480,500 : STOP "SYSTEM ERROR" 0460 SELECT PRINT 005 : RETURN 0480 SELECT PRINT 215 : RETURN 0500 SELECT PRINT 211 : RETURN 0520 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"