      PROGRAM TWIM13
C        a trivial Fortran wimp program which 
C        demontrates text drawing in RISC OS 3.5 or greater
C        also works in RISC OS before 3.5 but then only
C        demonstrates the compatiblity with these versions
C        needs the Wimp and graphics  libraries
C
C        initialise the wimp
      CALL WPINIT('TWIMP13')
C        set up the desk-top
      CALL SETUP
C       start wimp poll
      CALL WPLOOP(1)
C        that's all we can do here
      END
C
      SUBROUTINE SETUP
C             create a white window
      COMMON/ADMIN/IWH
      CHARACTER*12 TITLE
      SAVE TITLE
      CALL WPCHWC(3,0)
      TITLE = 'TWIMP 13'//CHAR(0)
      CALL WPMKNW(736,200,0,0,736,200,0,0,TITLE,IWH)
C             create big and little icons
      CALL WPTXTW('WWWWWWWWWW',IWBIG)
      CALL WPTXTW('iiiiiiiiii',IWSMA)
      CALL WPADTI(IWH,400,-40,IWBIG+16,40,'WWWWWWWWWW',0,I)
      CALL WPADTI(IWH,400,-88,IWSMA+16,40,'iiiiiiiiii',0,I)
C             open the window
      CALL WPOPNW(IWH)
      RETURN
      END
C
      SUBROUTINE WQPLOT(IWH)
C           plot text here
      CALL WPTEXT(16,-8,'wide character icon')
      CALL WPTEXT(16,-56,'narrow character icon')
      CALL WPTXTC(0,0,0,255,255,255)
      CALL WPTXTF(16,-104,IWH,'Some black desktop font text')
      CALL WPTXTC(255,0,0,255,255,255)
      CALL WPTXTF(16,-160,IWH,'Some red desktop font text')
      CALL WPTXTW('Some red desktop font text',IWID)
C            draw black rectangle round text
      CALL WPSETC(0,7)
      CALL GRRECT(16,-160,16+IWID,-192 ,.FALSE.)
      RETURN
      END
C
      SUBROUTINE WQCLSW(DUM)
C           user has asked to close a window so kill task
      CALL WPQUIT
      RETURN
      END
C
      SUBROUTINE WQMODF(JFONT)
C           desktop font changed, resize the icons and force redraw
      COMMON/ADMIN/IWH
      CALL WPTXTW('WWWWWWWWWW',IWBIG)
      CALL WPTXTW('iiiiiiiiii',IWSMA)
      CALL WPSTIS(IWH,0,400,-40,IWBIG+16,40)
      CALL WPSTIS(IWH,1,400,-88,IWSMA+16,40)
      CALL WPPLOT(IWH,-1)
      RETURN
      END
