8 lines
351 B
Fortran
8 lines
351 B
Fortran
WRITE(6,100)
|
|
STOP
|
|
100 FORMAT(6X,12HWRITE(6,100)/6X,4HSTOP/
|
|
.42H 100 FORMAT(6X,12HWRITE(6,100)/6X,4HSTOP/ ,2(/5X,67H.
|
|
.42H 100 FORMAT(6X,12HWRITE(6,100)/6X,4HSTOP/ ,2(/5X,67H.
|
|
.)/T48,2H)/T1,5X2(21H.)/T48,2H)/T1,5X2(21H)/
|
|
.T62,10H)/6X3HEND)T1,5X2(28H.T62,10H)/6X3HEND)T1,5X2(28H)/6X3HEND)
|
|
END
|