Listing of file='M3' on disk='vmedia/701-2046C.wvd.zip'
# Sector 167, program filename = 'M3' 0010 REM . M3, 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,1)TO O8 : GOSUB '100 : E$=HEX(07DC) : ADDC(E$,STR(D$(1),2,2)) : ADDC(E$,STR(D$(1),2,2)) : HEXPRINT D$(); : PRINT " "; : HEXPRINT E$; 0210 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 : PRINT " BOARD";A+1; : A=0 : FOR I=1TO 8 : X$=D$(1) : AND (X$,80) : IF STR(X$,1,1)=HEX(00)THEN 340 : A=I+4 0340 ROTATE(STR(D$(1),1,1),1) : NEXT I : IF A=0THEN 450 : A=A-8*INT((A-1)/8) : PRINT ,"CHIP # ";A+B;" IS BAD" : IF STR(D$(1),4,1)=HEX(00)THEN 460 : ADDC(E$,STR(D$(1),4,2)) : STR(D$(1),4,1)=HEX(00) : PRINT " OR POSSIBLY "; : HEXPRINT E$; : GOTO 210 0450 PRINT " MEMORY PROBLEM, NOT DECODABLE" 0460 COM CLEAR : LOAD DC T#6,"M3.5" 0480 DEFFN'100 : ON O8GOTO 510,530,550 : STOP "SYSTEM ERROR" 0510 SELECT PRINT 005 : RETURN 0530 SELECT PRINT 215 : RETURN 0550 SELECT PRINT 211 : RETURN 0570 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"