10    DEG
20    DIM E(1:201,1:2)
60    INTEGER Preamble,Size
78    Npoints=201
82    ! HP 8510 HPIB interface assignments.
90    !
91    ASSIGN @Hpib TO 7
100   ASSIGN @Nwa TO 716
110   ASSIGN @Nwa_data1 TO 716;FORMAT OFF
120   ASSIGN @Nwa_data2 TO 716;FORMAT ON
121   REMOTE @Hpib
122   ABORT @Hpib
123   CLEAR @Nwa
170   !
171   OUTPUT @Nwa;"DEBUON"
175   PRINTER IS CRT
180   Size=3216
190   Preamble=9025
200    OUTPUT @Nwa;"FORM3; HOLD; OUTPDATA"
210     ENTER @Nwa_data1;Preamble,Size,E(*)
343    INPUT "ENTER DATA FILE NAME",Fln$
344    CREATE ASCII Fln$,50
345    ASSIGN @Path_1 TO Fln$
349    OUTPUT @Path_1;E(*)
353    ASSIGN @Path_1 TO *
354    PRINTER IS CRT
355   END