image of READY prompt

Wang2200.org

Listing of file='28K' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 394, program filename = '28K'
0010 DIM A$(192,2)64,R$(2)64
0020 L=0
   : X=0
0030 R$(1)=HEX(0134679852AFBECD32A5B9C1D0E8F1A5B9C145CE60A9B02D67FC28D18AD19BD
     E1A8364CFB9A20F49AC10789847FDBEA2C8D0B9D3C0E1A2B3C4D5E6F9A8B7C059)
0040 X=X+1
0050 FOR A=1TO 192
0060 FOR B=1TO 2
0070 ON X GOSUB 140,150,160,170,180,190,200,210
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 220
0120 NEXT B
   : NEXT A
   : PRINT HEX(01)
   : PRINT "LOOP";L
0130 IF L=30THEN 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),5)
   : RETURN
0200 ROTATE(R$(1),7)
   : RETURN
0210 X=0
   : L=L+1
   : RETURN
0220 IF A<=32THEN 260
0230 IF A<=96THEN 270
0240 IF A<=160THEN 280
0250 IF A<=192THEN 290
0260 PRINT "BOARD 1 FAILS"
   : GOTO 300
0270 PRINT "BOARD 2 FAILS"
   : GOTO 300
0280 PRINT "BOARD 3 FAILS"
   : GOTO 300
0290 PRINT "BOARD 4 FAILS"
0300 IF A<=32THEN 370
0310 IF A<=64THEN 360
0320 IF A<=96THEN 370
0330 IF A<=128THEN 360
0340 IF A<=160THEN 370
0350 IF A<=192THEN 360
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