image of READY prompt

Wang2200.org

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"