SETTEXTPOSITION trouble-Reg.

DSChand · ‎05-15-2026

      SUBROUTINE CASE()
      module MSFLIB
      include 'FGRAPH.FI'
      INCLUDE 'FGRAPH.FD'
      USE IFQWIN
      CALL COLOR (0,11)
      CALL SETTEXTPOSITION (1,1,XY)    
      CALL OUTTEXT (CHAR(201))
      DO I=1,77
         CALL OUTTEXT (CHAR(205))
      ENDDO
      CALL SETTEXTPOSITION (1,79,XY)
      CALL OUTTEXT (CHAR(187))
      CALL SETTEXTPOSITION (2,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (2,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (3,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (3,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (4,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (4,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (5,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (5,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (6,1,XY)
      CALL OUTTEXT (CHAR(204))
      DO I=1,77
         CALL OUTTEXT (CHAR(205))
      ENDDO
      CALL SETTEXTPOSITION (6,79,XY)
      CALL OUTTEXT (CHAR(185))
      DO  I = 7,24
          CALL SETTEXTPOSITION (I,1,XY)
	  CALL OUTTEXT (CHAR(186))
          CALL SETTEXTPOSITION (I,79,XY)
          CALL OUTTEXT (CHAR(186))
      ENDDO
      CALL SETTEXTPOSITION (25,1,XY)
      CALL OUTTEXT (CHAR(200))
      DO I=1,77
         CALL OUTTEXT (CHAR(205))
      ENDDO
      CALL OUTTEXT (CHAR(188))
      CALL COLOR (0,13) 
      CALL SETTEXTPOSITION (2,32,XY)
      CALL OUTTEXT('P R E N A T A L   E P O C H')
      CALL SETTEXTPOSITION (3,2,XY)
      CALL OUTTEXT('  Copyright (C) 1989 Master Computer Services, Hyderab&
     &ad  (Phone :27000369)  ')
      CALL SETTEXTPOSITION (4,34,XY)
      CALL OUTTEXT('Version 1.0')
      CALL SETTEXTPOSITION (5,28,XY)
      CALL OUTTEXT ('Serial Number : 01-1995')
      RETURN
      END

_______SUB-ROUTINE___________
      SUBROUTINE HELP ()
      INCLUDE 'FGRAPH.FD'
      USE IFQWIN
      RECORD/XYCOORD/XY
      CALL SETTEXTPOSITION(24,2,XY)
      CALL COLOR(13,14)
      CALL OUTTEXT(CHAR(25))
      CALL OUTTEXT(' Scroll Up          ' ) 
      CALL OUTTEXT(CHAR(24))
      CALL OUTTEXT(' Scroll Down          ' ) 
      CALL OUTTEXT('  Esc Escape         ' ) 
      CALL OUTTEXT (CHAR(26))
      CALL OUTTEXT ('Right            ')
      CALL OUTTEXT (CHAR(27))
      CALL OUTTEXT ('Left                ')
      CALL OUTTEXT ('Choose')
      CALL OUTTEXT(CHAR(17))
      CALL OUTTEXT(CHAR(217))
      RETURN 
      END

      MODULE msflib
      include 'FGRAPH.FI'
      INCLUDE 'FGRAPH.FD'
      USE IFQWIN
      use IFCORE
      use IFPORT
      RECORD/XYCOORD/XY
      CHARACTER        NAME*20,IM*4,PLACE*20,LM*5,INDEX*4,EAST*4,WEST*4,&
     &NORTH*5,SOUTH*5,AM*2,PM*2,HORZN*5,LIGHT*10,EIM*2,EGIM*2
      INTEGER          D,Y,IH,IMM,IS
      INTEGER*2        FG
      REAL             LOP,LAP,LC,LCT,LOZ,NPLNT,LMT
      DOUBLE PRECISION L,G,F,DM,CM,PL,PF,R,PA,QA,A
      COMMON/C/PL,PF,R
      COMMON/CO/T,E
      COMMON/COM/L(10),G(10),F(10),DM,CM
      COMMON/COMM/PLN,PLA,PRA,PDEC
      DIMENSION PLANT(2,2),NPLNT(2)
      FG=GRAPHICSMODE($TEXTC80)
      DATA EAST,WEST,NORTH,SOUTH,AM,PM/'EAST','WEST','NORTH','SOUTH',&
     &'AM','PM'/
      FG=GRAPHICSMODE()
      CALL CASE()
      CALL HELP()
001   CALL SETTEXTPOSITION(11,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Name:                        EX:Sri Rama Rao) ')
      CALL SETTEXTPOSITION (11,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('                   ')
      CALL SETTEXTPOSITION (13,10,XY)
      CALL COLOR(0,10)
002   CALL OUTTEXT ('Date of Birth                  EX:06/08/1947) ')
      CALL SETTEXTPOSITION (13,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
      CALL SETTEXTPOSITION (15,10,XY)
      CALL COLOR(0,10)
003   CALL OUTTEXT ('Time of Birth                 EX:08 34 43 PM) ')
      CALL SETTEXTPOSITION (15,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('          ')
      CALL SETTEXTPOSITION (17,10,XY)
      CALL COLOR(0,10)
004   CALL OUTTEXT ('Place of Birth                     EX:Guntur) ')
      CALL SETTEXTPOSITION (17,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('                    ')
005   CALL SETTEXTPOSITION(19,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Longitude of Birth Place      EX:081.15 EAST) ')
      CALL SETTEXTPOSITION(19,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
006   CALL SETTEXTPOSITION (21,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Latitude of Birth Place      EX:016.72 NORTH) ')
      CALL SETTEXTPOSITION (21,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
007   CALL SETTEXTPOSITION (23,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Longitude of Country          EX:082.50 EAST) ')
      CALL SETTEXTPOSITION (23,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
      END

Please try to guide and solve my errors while compiling the above.

Steve_Lionel · ‎05-23-2026

Same as your other thread - "MODULE msflib" doesn't belong.