back to the nineties with a HP 38g and vm

[Liamtoh Resu]

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.