# Appendix B: Examples

## B.3 Symbols

                PROGRAM EXA_3
          C     USE DISLIN         for Fortran 90!
                CHARACTER*20 CTIT,CSTR*2
                CTIT='Symbols'

                CALL SETPAG('DA4P')
                CALL DISINI
                CALL COMPLX
                CALL PAGERA

                CALL HEIGHT(60)

                NL=NLMESS(CTIT)
                CALL MESSAG(CTIT,(2100-NL)/2,200)

                CALL HEIGHT(50)
                CALL HSYMBL(120)

                NY=150

                DO I=0,23
                  IF(MOD(I,4).EQ.0) THEN
                    NY=NY+400
                    NXP=550
                  ELSE
                    NXP=NXP+350
                  END IF

                  IF(I.LT.10) THEN
                    WRITE(CSTR,'(I1)') I
                  ELSE
                    WRITE(CSTR,'(I2)') I
                  END IF

                  NL=NLMESS(CSTR)/2
                  CALL MESSAG(CSTR,NXP-NL,NY+150)
                  CALL SYMBOL(I,NXP,NY)
                END DO

                CALL DISFIN
                END

Figure B.3: Symbols

Next | Previous | Contents