Listing of file='32K' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 269, program filename = '32K' 0010 DIM A$(224,2)64,R$(2)64 0020 L=0 : X=0 0030 R$(1)=HEX(0597346AD2C8B9A6F3E2D0A1B2C3D6E9F8A7B4C1D2E0F158ACE367BED159ACE F157EDB04ACB19D3C6F2E0A9C1B2D5E7F0B1C2A6F8E2D18BC02A987DFE1B5A8D5) 0040 X=X+1 0050 FOR A=1TO 224 0060 FOR B=1TO 2 0070 ON X GOSUB 140,150,160,170,180,190,200 0080 A$(A,B)=R$(1) 0090 AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) 0100 AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) 0110 IF A$(A,B)<>R$(1)THEN 210 0120 NEXT B : NEXT A : PRINT HEX(01) : PRINT "LOOP";L 0130 IF L=20THEN 1270 : GOTO 40 0140 ROTATE(R$(1),1) : RETURN 0150 ROTATE(R$(1),2) : RETURN 0160 ROTATE(R$(1),3) : RETURN 0170 ROTATE(R$(1),4) : RETURN 0180 ROTATE(R$(1),5) : RETURN 0190 ROTATE(R$(1),6) : RETURN 0200 X=0 : L=L+1 : RETURN 0210 IF A<=32THEN 250 0220 IF A<=96THEN 260 0230 IF A<=160THEN 270 0240 IF A<=224THEN 280 0250 PRINT "BOARD 1 FAILS" : GOTO 290 0260 PRINT "BOARD 2 FAILS" : GOTO 290 0270 PRINT "BOARD 3 FAILS" : GOTO 290 0280 PRINT "BOARD 4 FAILS" 0290 IF A<=32THEN 370 0300 IF A<=64THEN 360 0310 IF A<=96THEN 370 0320 IF A<=128THEN 360 0330 IF A<=160THEN 370 0340 IF A<=192THEN 360 0350 IF A<=224THEN 370 0360 L=1 : GOTO 380 0370 L=2 0380 FOR C=1TO 64 0390 IF STR(A$(A,B),C,1)<>STR(R$(1),C,1)THEN 410 0400 NEXT C : PRINT HEX(01) : PRINT : PRINT : PRINT "SEARCHING BYTE" : GOTO 380 0410 IF C<=4THEN 510 0420 IF C<=12THEN 500 0430 IF C<=20THEN 510 0440 IF C<=28THEN 500 0450 IF C<=36THEN 510 0460 IF C<=44THEN 500 0470 IF C<=52THEN 510 0480 IF C<=60THEN 500 0490 IF C<=64THEN 510 0500 S=1 : GOTO 520 0510 S=2 0520 R$(2)=R$(1) 0530 XOR (STR(R$(2),C,1),STR(A$(A,B),C,1)) 0540 IF STR(R$(2),C,1)=HEX(00)THEN 610 0550 IF L=1THEN 570 0560 IF L=2THEN 590 0570 IF S=1THEN 620 0580 IF S=2THEN 780 0590 IF S=1THEN 940 0600 IF S=2THEN 1100 0610 PRINT HEX(01) : PRINT : PRINT : PRINT : PRINT "SEARCHING BIT" : GOTO 520 0620 IF STR(R$(2),C,1)=HEX(08)THEN 700 0630 IF STR(R$(2),C,1)=HEX(04)THEN 710 0640 IF STR(R$(2),C,1)=HEX(02)THEN 720 0650 IF STR(R$(2),C,1)=HEX(01)THEN 730 0660 IF STR(R$(2),C,1)=HEX(80)THEN 740 0670 IF STR(R$(2),C,1)=HEX(40)THEN 750 0680 IF STR(R$(2),C,1)=HEX(20)THEN 760 0690 IF STR(R$(2),C,1)=HEX(10)THEN 770 0700 PRINT "FAILURE AT L-9" : GOTO 1260 0710 PRINT "FAILURE AT L-10" : GOTO 1260 0720 PRINT "FAILURE AT L-11" : GOTO 1260 0730 PRINT "FAILURE AT L-12" : GOTO 1260 0740 PRINT "FAILURE AT L-13" : GOTO 1260 0750 PRINT "FAILURE AT L-14" : GOTO 1260 0760 PRINT "FAILURE AT L-15" : GOTO 1260 0770 PRINT "FAILURE AT L-16" : GOTO 1260 0780 IF STR(R$(2),C,1)=HEX(08)THEN 860 0790 IF STR(R$(2),C,1)=HEX(04)THEN 870 0800 IF STR(R$(2),C,1)=HEX(02)THEN 880 0810 IF STR(R$(2),C,1)=HEX(01)THEN 890 0820 IF STR(R$(2),C,1)=HEX(80)THEN 900 0830 IF STR(R$(2),C,1)=HEX(40)THEN 910 0840 IF STR(R$(2),C,1)=HEX(20)THEN 920 0850 IF STR(R$(2),C,1)=HEX(10)THEN 930 0860 PRINT "FAILURE AT L-1" : GOTO 1260 0870 PRINT "FAILURE AT L-2" : GOTO 1260 0880 PRINT "FAILURE AT L-3" : GOTO 1260 0890 PRINT "FAILURE AT L-4" : GOTO 1260 0900 PRINT "FAILURE AT L-5" : GOTO 1260 0910 PRINT "FAILURE AT L-6" : GOTO 1260 0920 PRINT "FAILURE AT L-7" : GOTO 1260 0930 PRINT "FAILURE AT L-8" : GOTO 1260 0940 IF STR(R$(2),C,1)=HEX(08)THEN 1020 0950 IF STR(R$(2),C,1)=HEX(04)THEN 1030 0960 IF STR(R$(2),C,1)=HEX(02)THEN 1040 0970 IF STR(R$(2),C,1)=HEX(01)THEN 1050 0980 IF STR(R$(2),C,1)=HEX(80)THEN 1060 0990 IF STR(R$(2),C,1)=HEX(40)THEN 1070 1000 IF STR(R$(2),C,1)=HEX(20)THEN 1080 1010 IF STR(R$(2),C,1)=HEX(10)THEN 1090 1020 PRINT "FAILURE AT L-25" : GOTO 1260 1030 PRINT "FAILURE AT L-26" : GOTO 1260 1040 PRINT "FAILURE AT L-27" : GOTO 1260 1050 PRINT "FAILURE AT L-28" : GOTO 1260 1060 PRINT "FAILURE AT L-29" : GOTO 1260 1070 PRINT "FAILURE AT L-30" : GOTO 1260 1080 PRINT "FAILURE AT L-31" : GOTO 1260 1090 PRINT "FAILURE AT L-32" : GOTO 1260 1100 IF STR(R$(2),C,1)=HEX(08)THEN 1180 1110 IF STR(R$(2),C,1)=HEX(04)THEN 1190 1120 IF STR(R$(2),C,1)=HEX(02)THEN 1200 1130 IF STR(R$(2),C,1)=HEX(01)THEN 1210 1140 IF STR(R$(2),C,1)=HEX(80)THEN 1220 1150 IF STR(R$(2),C,1)=HEX(40)THEN 1230 1160 IF STR(R$(2),C,1)=HEX(20)THEN 1240 1170 IF STR(R$(2),C,1)=HEX(10)THEN 1250 1180 PRINT "FAILURE AT L-17" : GOTO 1260 1190 PRINT "FAILURE AT L-18" : GOTO 1260 1200 PRINT "FAILURE AT L-19" : GOTO 1260 1210 PRINT "FAILURE AT L-20" : GOTO 1260 1220 PRINT "FAILURE AT L-21" : GOTO 1260 1230 PRINT "FAILURE AT L-22" : GOTO 1260 1240 PRINT "FAILURE AT L-23" : GOTO 1260 1250 PRINT "FAILURE AT L-24" : GOTO 1260 1260 PRINT HEX(07) : GOTO 1260 1270 GOTO 10