Post Reply 
back to the nineties with a HP 38g and vm
07-23-2021, 04:34 AM
Post: #1
back to the nineties with a HP 38g and vm
I recently adopted a hp38g calculator.

I am using an prolific 2303 usb to serial adapter attached to a win8.1 machine.

Then there is a xp virtual machine under virtual box version 4x.

The hp comm 2 program runs fine with the serial port on both the host
and the guest os set to com1.

Files are being happily transferred both ways between the hp38g and the vm os.

As Scotty would say "That's the ticket!"

Thanks to the folks at hpcalc.org and hphomeview.com.

:)
Find all posts by this user
Quote this message in a reply
07-28-2021, 07:00 AM
Post: #2
RE: back to the nineties with a HP 38g and vm
What follows is a HP 38g HP-basic code for drawing a
pixellated line at an angle. I wanted to use the the pixon command
instead of the the line command.

The escape sequence \|> represents the store function.
The file name becomes SLASH000.000 when transferred to the computer.

Apparently coordinate 0,0 starts at the bottom left of the screen.

I used the montecar.zip file from the hp38g math section from "hpcalc.org"
as a starting point.


Code:

HP38AscD 5 SLASH1\|>Angle:
0\|>Xmin:
1.5\|>Xmax:
0\|>Ymin:
1\|>Ymax:
63\|>N:
FOR I=1 TO N STEP 1;
I*0.01\|>X:
J=I+1:
X+J*0.01\|>Y:
PIXON X;Y:
END:
BEEP 880;1:
FREEZE:

Cheers.
Find all posts by this user
Quote this message in a reply
08-11-2021, 09:16 PM
Post: #3
RE: back to the nineties with a HP 38g and vm
Here is a reverse slash program for the hp38g
(top left to bottom right)

Quote:HP38AscD 6 SLASH21\|>Angle:
0\|>Xmin:
1.6\|>Xmax:
0\|>Ymin:
1.6\|>Ymax:
160\|>N:
FOR I=1 TO N STEP 1;
(I-1)*0.01\|>X:
J=I+1:
(N-I+1)*0.01\|>Y:
PIXON X;Y:
END:
BEEP 880;1:
FREEZE:
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)