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 %##.##