image of READY prompt

Wang2200.org

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"