Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

"Help!!"

Status
Not open for further replies.

StefAdi

Programmer
Apr 15, 2006
4
RO
How modify file.ASP in file.WAS??
 
If you are asking how to convert a .ASP file from older versions of Procomm to the .WAS format from newer versions, this is not directly possible. I have a program on my site that converts from .ASP to version 1.0 .WAS, which would then let you use the Directory and ASPECT Conversion utility that comes with newer versions of Procomm to conver the script to the latest format. However, I have not used this program myself and it may be easier to rewrite the script then send it through two conversion utilities and try to fix what comes out.

 
I have tryed to rewrite the script but some syntax in the DOS version not have equivalents in the windows version.Please help me convert this file :

-----------------------------------------------------------------
include "Vid_Attr.INC"

;*+ MAIN - Procedure
;
proc MAIN

strlen S1 N0
if (0 < N0)
switch S1 ; Switch base request in S1

case "CODE" ; QE1M Code download
execute "QE1MCode"
endcase

case "ATERM" ; Quad Mapper/Framer Initilization
case "BTERM"
case "ARING"
case "BRING"
case "DRING"
case "INIT"
case "MAP"
case "SOTLB"
case "SYNLB"
execute "QMF_INIT"
endcase

case "QMPS" ; Port Status Routine
execute "PORTSTAT"
endcase

case "REFR" ; Refresh the Screen
case "REF"
S1=S0
S0=$NULL
execute S1
endcase

case "MAIN" ; Quad Mapper/Framer Main Menu
case "M"
clear VAmenu
execute "QMF_Menu"
endcase

case "QUIT" ; Quit to DOS
case "Q"
quit
endcase

case "EXIT" ; Exit to Procomm
case "E"
case "X"
clear VAmenu
exit
endcase

case "RB" ; Read Byte
case "WB" ; Write Byte
execute "QMF_RdWt"
endcase

case "RETURN"
endcase

case "FRAME"
execute "FRAMINIT" ; exit to Framer Operation
endcase

default
vidsave 2
box 10 30 14 55 VAnote
atsay 12 32 VAnote "NOT A VALID SELECTION"
pause 1
vidrest 2
endcase

endswitch
endif

switch S0
case "QMF_MENU"
case "PORTSTAT"
case "MENUDRIV"
case "FRAMINIT"
execute S0
endcase
endswitch

S0=$NULL
S1=$NULL
execute "QMF_MENU" ; this is the safety net

endproc
 
There is no direct correlation for atsay, but you could use termwrites or termputs to write a string to the screen or use sdlgmsgbox to display a message in a dialog box. You can use sbsave to save the scrollback buffer to a text file, or use snapshot to save just the current screen.

 
Please give me few exemple. How rewrite this:
vidsave 2
box 10 30 14 55 VAnote
atsay 12 32 VAnote "NOT A VALID SELECTION"
pause 1
vidrest 2
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top