image of READY prompt

Wang2200.org

Listing of file='M3' on disk='vmedia/tbo_81.wvd.zip'

# Sector 369, program filename = 'M3'
0010 COM D$(1)6
   : DIM X$1,E$2
0020 E$=HEX(07DC)
   : ADDC(E$,STR(D$(1),2,2))
   : ADDC(E$,STR(D$(1),2,2))
0030 HEXPRINT D$();
   : PRINT "   ";
   : HEXPRINT E$;
0040 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
0060 PRINT "   BOARD";A+1;
0080 A=0
   : FOR I=1TO 8
   : X$=D$(1)
   : AND (X$,80)
   : IF STR(X$,1,1)=HEX(00)THEN 130
   : A=I+4
0130 ROTATE(STR(D$(1),1,1),1)
   : NEXT I
   : IF A=0THEN 180
0150 A=A-8*INT((A-1)/8)
   : PRINT ,"CHIP # ";A+B;" IS BAD"
0160 IF STR(D$(1),4,1)=HEX(00)THEN 190
   : ADDC(E$,STR(D$(1),4,2))
   : STR(D$(1),4,1)=HEX(00)
   : PRINT " OR POSSIBLY ";
   : HEXPRINT E$;
   : GOTO 40
0180 PRINT " MEMORY PROBLEM, NOT DECODABLE"
0190 LOAD DC T"MEM" 50,200