- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hi,
My name is D.SundarChand from Hyderabad,Telangana,India.
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I am guessing that this application had a user interface where you put some text of the screen and get keypresses to pick a 'menu' option maybe or intercept the arrow keys to navigate a 'menu'? I clearly know nothing about you application and what the user interface needs to do but my suggestion to you is to build some of the QuickWin examples that come with Fortran and see if any of them have a user interface that can be easily modified to suit your application. It might be a lot easier than you think and will give a much more modern look and feel.
Link Copied
- « Previous
-
- 1
- 2
- Next »
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
In FPS-4 the fl32 command-line compiler had options /MW for QuickWin graphics and /MWs for Standard graphics and QuickWin graphics.

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
- « Previous
-
- 1
- 2
- Next »