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