PROC MAIN()

BYTE RND=53770

BYTE ARRAY DLST=
[112 68 00 $90
4 4 4 4 4 4 4 4 4 4
4 4 4 4 4 4 4 4 4 4
4 4 4 4 4 4 4 4 4 4
4 4 4 4 4 4 4 4 4 4]

BYTE POINTER L                 

CARD DL=560

  L=712 L^=0
  L=708 L^=4
  L=709 L^=8
  L=710 L^=12
  L=53768 L^=0
  L=53775 L^=3
  L=53760 L^=3
  L=53761 L^=15
  L=756 L^=$80
  L=559 L^=35

  DL=DLST

  FOR L=$9000 TO $9600 DO
    L^=RND&63
  OD

  DO
    FOR L=$8000 TO $8200 DO
      L^=RND
    OD
  OD

RETURN