??>SUB ReadString (str AS STRING)
??>ASM LDS BX,str
??>ASM MOV AX,[BX]
TG>A little example for dynamic and fixed length strings.
TG>From the XMAS package (Magic XMAS):
TG>'**********************************************************************
TG>'  OPEN95.BAS  Offnen von Dateien mit Long File Names mit PowerBASIC
TG>'               - die Datei wird wenn nicht vorhanden erstellt und
TG>'                 wieder geschlossen
TG>'               - es wird ein DOS 8.3 konformer Dateiname zur weiteren
TG>'                 Nutzung unter PowerBASIC zuruckgeliefert.
It's been so long since my german in high school. [grin]
TG>DECLARE FUNCTION GetStrLoc (BYVAL INTEGER) AS INTEGER
TG>CLS
TG>PRINT
TG>PRINT "Creating File 'Open95.Demo' ..."
TG>OPEN Win95Open$("Open95.Demo") FOR OUTPUT AS #1
TG>PRINT #1, "Long File Routines for Win95 by Thomas Gohel "
TG>CLOSE #1
Thanks.
I might have mentioned that I was looking for accessing strings from
internal assembly code in the main and in proceedures. GetStrLoc does
not work there.
I do have your library file on long file names, and I plan to use it
in a future project. It's good stuff, thanks for your contribution.
___ Blue Wave/QWK v2.12
--- Maximus/2 3.01
---------------