image of READY prompt

Wang2200.org

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