bytE DCOMMD=770,DNUM=769

card SIO=$E453,DBUFF=772,DSECNO=778

;**********************************

PROC JREAD(CARD SECNUM)

  DNUM  =1
  DCOMMD='R
  DBUFF =$600
  DSECNO=SECNUM
  [32 SIO]

RETURN

PROC MAIN()

BYTE NOISY=65,A1

CARD A

    A1=NOISY
    NOISY=0
    FOR A=1 TO 702 STEP 18 DO
      JREAD(A)
    OD
    FOR A=1 TO 702 STEP 18 DO
      JREAD(703-A)
      JREAD(703-A)
    OD
    NOISY=A1 JREAD(1) NOISY=0
    FOR A=360 TO 368 DO
      JREAD(A)
    OD
    FOR A=1 TO 3 DO
      JREAD(A)
    OD
    NOISY=A1

RETURN