[Ralph Wilson]

The EZ-Transfer tool was created by techsoft.de, the German distributor of HTBasic. You would need to contact them for support.

[Ralph Wilson]

HTBasic 21.1.016 has been posted that resolves the problem of LPT printing on Windows 11. It can be downloaded here:

dl-HTBasic

[Ralph Wilson]

Hi Jesus,

A SUB program is different from a subroutine that you GOSUB to and RETURN from. A SUB program must be placed after the main program’s END statement. And each SUB program (or DEF FN) you add after this must be added after any other existing SUBs or DEF FNs. A SUB program can have arguments and can be called with or without the CALL keyword. For example:

Mysub("Hello")
M$="There"
CALL Mysub(M$)
GOSUB Mysub
BEEP
STOP
 Mysub:!
 PRINT "Hi"
 RETURN
END
SUB Mysub(A$)
    PRINT A$
SUBEND

Note that the name of a SUB program can be the same as the label name for a subroutine, as above, but this is not good practice since it can be confusing.

Ralph

[Ralph Wilson]

I think we have a fix for this. If you can email me at htbsupport@transera.com, I’ll send you a link.

[Ralph Wilson]

Hi Bert,

There are two things that you may need to do to fix this.

First, if you are accessing a network printer, you need to map it to lpt1 with NET USE. If the printer is on another computer, you will need the password of a user on that computer so that you have permission to execute this as follows:

NET USE LPT1: \\computer_name\printer_name /PERSISTENT:YES /USER:userid thePassword

This user does not have to be logged in, but simply exist.

Second, since you are now on a new computer/OS, the default setting for the printer may need to be changed in Properties/Advanced with the option “Print directly to the printer” vs “Spool print documents…”.

If you are still having problems with these settings, a possible workaround is the following:

In your program, direct your output to a file instead of lpt1 (ISC 26). Then, when you are ready to print the file, use:

EXECUTE "start /min notepad /p "&Path$&File$ ! where Path$ is the folder path to your file and File$ is the name of the file

Alternately, if you are actually printing to lpt1, you could try:

EXECUTE "print /d:lpt1 "&Path$&File$ ! since lpt1 is the default, you can omit /d:lpt1

Or, if printing to a network printer named “printer1” on a computer named “copyroom”:

EXECUTE "print /d:\\copyroom\printer1 "&Path$&File$

Note: In the above examples, a command line window is opened by EXECUTE that you will have to manually close.

Let us know if any of this helps.

Ralph

[Ralph Wilson]

I’m not sure if it will make a difference, but I noticed that you are checking for version 21.1.009 of HTBasic, but the current version is .015. You should download that version to have the latest.

[Ralph Wilson]

Looks like some of the code got cut off. Here it is again.

OPTION BASE 1
DIM Data$(200,259)[20] ! Final array of data
DIM Lines$(200)[5180] ! 5180 is 259 values times max length of 20 each
DIM R$[5180] ! temporary comma delimited row string
DIM Col$(259)[20] ! temporary single row array of extracted column values
F$=”your folder path to data file”
ASSIGN @Samples TO F$&”\sample.csv”;FORMAT ON
ENTER @Samples;Lines$(*) ! get all 200 rows of data
ASSIGN @Samples TO *

FOR Row=1 TO 200
I=1
R$=Lines$(Row)
GOSUB Split ! get comma delimited data from R$ into Col$()
FOR Col=1 TO I ! 259
Data$(Row,Col)=Col$(Col) ! transfer to Data$
NEXT Col
NEXT Row
PRINT “Total: “;Total
GOTO Exit

Split: !extract comma delimited values from string
P=POS(R$,”,”)
IF P>0 AND P

[Ralph Wilson]

I’m not able to run your sample program because I don’t have a local copy of Excel installed. Mine is the cloud-based Microsoft 365 subscription which doesn’t have a local excel.exe file that can be called. However, as a workaround, I used the sample.xlsx file that Pat provided and did a SAVE AS in CSV format. You can do the same with your data file. I then wrote the below program you can try out that gets the data directly from this file and into the same array, probably faster than going through Excel. However, this assumes there are not embedded commas in your string data.

Another problem with the Excel interface is you are not getting the HTB error code which could be any number of things. So it’s hard to troubleshoot without knowing the exact line number and error code/message that is causing it to fail.

Also, since you have been helpful on the forum to others, I could get you a complimentary license key to HTBasic 2021 so you could try that out and see if it makes any difference. If you are interested, send me an email at htbsupport@transera.com.

Thanks,

Ralph

Here’s the program:

OPTION BASE 1
DIM Data$(200,259)[20] ! Final array of data
DIM Lines$(200)[5180] ! 5180 is 259 values times max length of 20 each
DIM R$[5180] ! temporary comma delimited row string
DIM Col$(259)[20] ! temporary single row array of extracted column values
F$=”your folder path to data file”
ASSIGN @Samples TO F$&”\sample.csv”;FORMAT ON
ENTER @Samples;Lines$(*) ! get all 200 rows of data
ASSIGN @Samples TO *

FOR Row=1 TO 200
I=1
R$=Lines$(Row)
GOSUB Split ! get comma delimited data from R$ into Col$()
FOR Col=1 TO I ! 259
Data$(Row,Col)=Col$(Col) ! transfer to Data$
NEXT Col
NEXT Row
PRINT “Total: “;Total
GOTO Exit

Split: !extract comma delimited values from string
P=POS(R$,”,”)
IF P>0 AND P

[Ralph Wilson]

There will probably be some changes that you will have to make depending on what version of HPBasic you are porting. You can download the RMB to HTB Porting Guide and the HTBasic 2021 Trial Version for free on the download page if you would like to get a better idea.

[Ralph Wilson]

Setting the DEFAULT BUTTON attribute to -1 is supposed to disable Enter/Return:

DIALOG “QUESTION”,P$(1),Btn;SET (“DEFAULT BUTTON”:-1)

However, this did not work for me. I tried setting it to 1, which did work to make “No” the default button. So, I assume -1 not working must be a bug. I will get this submitted and we should be able to fix it.

If you want to discuss this further, you can reach me at htbsupport@transera.com

[Ralph Wilson]

CONTROL KBD,7;3 ! disables all keyboard keys
CONTROL KBD,7;0 ! enables all keyboard keys
CONTROL KBD,7;1 ! disables all keys except RESET
CONTROL KBD,7;2 ! disables RESET key only

Is this what you mean?

[Ralph Wilson]

If you are able to upgrade to Windows 7 or newer, it would be better to get HTBasic 2021 since version 10.1 is no longer being supported with updates to drivers and bug fixes.

[Ralph Wilson]

Sorry, the Trial version is here: https://transera.com/downloads/

[Ralph Wilson]

You could try downloading HTBasic Trial version 10.1 to see if it works for you:

dl-HTBasic

[Ralph Wilson]

Yes, it does work with Win 7 and 10. Not sure about your issue with the “DDE limitation”, but as noted, you can find out with the trial version.

[Author]

Posts