Listing of file='EXPAN-05' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 221, program filename = 'EXPAN-05' 0010 DIM A$(117,2)64,R$64 : R$=HEX(0597346AD2C8B9A6F3E2D0A1B2C3D6E9F8A7B4C1D2E0F158ACE367BED159ACEF15 7EDB04ACB19D3C6F2E0A9C1B2D5E7F0B1C2A6F8E2D18BC02A987DFE1B5A8D5) : X=0 : Y=1638 0020 X=X+1 : IF X=8THEN 120 : FOR A=1TO 117 : FOR B=1TO 2 : ON XGOSUB 40,50,60,70,80,90,100 : A$(A,B)=R$ : AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) : AND (A$(A,B),A$(A,B)) : Y=Y-1 0030 PRINT HEX(010A) : PRINTUSING 140,.00328*Y : IF A$(A,B)<>R$THEN 110 : NEXT B : NEXT A : GOTO 20 0040 ROTATE(R$,1) : RETURN 0050 ROTATE(R$,2) : RETURN 0060 ROTATE(R$,3) : RETURN 0070 ROTATE(R$,4) : RETURN 0080 ROTATE(R$,5) : RETURN 0090 ROTATE(R$,6) : RETURN 0100 ROTATE(R$,7) : RETURN 0110 H7$="NG" : GOTO 130 0120 H7$="OK" 0130 LOAD DC T"COM" 0140 %##.##