Listing of file='WCPD520A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 531, program filename = 'WCPD520A' 0010 REM . WCPD520A, 00-00 (06/28/75), 12002 : PRINT TAB(1);"COM CLEAR ..........................."; : FOR I=1 TO 26 : NEXT I : DIM A(2),B$(2),C(2,2),D$(2,2) : A=1 : B=2 : C=3 : DIM X(2),Y$3 0150 FOR I=1TO 2 : READ A(I),B$(I) : FOR J=1TO 2 : READ C(I,J),D$(I,J) : NEXT J : NEXT I : DATA 1,"A",2,"B",3,"C" : DATA 4,"D",5,"E",6,"F" 0180 X(1)=4 : X(2)=5 : Y$="123" : COM CLEAR Y$ : LOAD DC T"WCPD530A" 0210 DEFFN'15 : LOAD DC T"START"50