Fortran PowerStation

Hi,

My name is D.SundarChand from Hyderabad,Telangana,India.Originally,I have developed in MSDOS Fortran 5.0 in 1983.After that I am busy with my Jobs.Now,I am a retired person.That is why I want to update that softwares in to Windows/Visual Fortran environment.I am facing trouble at the time of linking,call color, the below main routine and subroutine color routine from MSFLIB.F90 in the visual Studio Environment of Intel Visual Fortran 8.1,  Microsoft Fortran PowerStation 4.0 the color routine not working and it displays unresolved external symbols _bkcolor,_textcolor. Object file not created due to these 2 errors. How can I solve this problem?I tried in so many ways.but not succeeded.Please help me in this matter at the earliest.I have already developed interface to Assembly Language routines to Fortran.But in that also object file not created.Because they are in MSDOS Assembler 5.0.Only these 2 problems are pending.In assembler it is indicating no errors.but object file not created.

How to resolve these 2 troubles?

I.1.FORTRAN MAIN PROGRAM 

      CALL SETTEXTPOSITION (9,6,XY)

      CALL COLOR (#000000,#00ff00)

      CALL OUTTEXT('Year')

      CALL COLOR (#000000,#00ff00)

      CALL SETTEXTPOSITION (9,48,XY)

      CALL COLOR (#00ff00,#000000)

      CALL OUTTEXT('    ')

      READ (*,010)      YB

 010  FORMAT(I4)

          END

2.FORTRAN SUBROUTINE 

      SUBROUTINE COLOR (K,L)

      USE MSFLIB

      J=SETBKCOLOR(K)

      I=SETTEXTCOLOR(L)

      RETURN

      END

Kindly let me know the fault in the Main Program and Subroutine and their corrections.

II.1.CURSIZ.ASM
Data    Segment Public 'DATA'
Data    EndS
DGROUP  GROUP Data
Code    Segment 'CODE'
        Assume Cs:Code, Ds:DGROUP, Ss:DGROUP
PUBLIC  CURSIZ
CURSIZ  Proc   Far
        Push Bp
        Mov    Bp, Sp
        Mov Ah, 1
        Les     bx, DWord Ptr [Bp + 10]
        Mov ECH, Es:[Ebx]
        Les     bx, DWord Ptr [Bp + 06]
        Mov ECL, Es:[Ebx]
        Int
        Mov Sp, Bp
        Pop    Bp
        Ret 08
        CURSIZ  EndP
        Code   EndS
End

2.KEY.ASM 

DATA    SEGMENT PUBLIC 'DATA'
DATA    ENDS
DGROUP  GROUP DATA
CODE    SEGMENT 'CODE'
        ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
PUBLIC  KEY 
KEY     PROC   FAR
        PUSH   BP
        MOV    BP,SP
        MOV    AH,0
        INT    
        LES    BX,DWORD PTR[BP+10]
        MOV    ES:[EBX],AH
        LES    BX,DWORD PTR[BP+06]
        MOV    ES:[EBX],AL
        MOV    SP,BP
        POP    BP
        RET    08
        KEY    ENDP
        CODE   ENDS
END

Kindly let me know the fault in the .ASM routines and their corrections.

Thanks,

with regards,

D.SundarChand

+091-8688568699

sunderchand1957@gmail.com