(71B) FORTH questions

[J-F Garnier]

(05-31-2023 12:42 PM)floppy Wrote:  in BASIC prompt "[B]>"
[B]>COPY :DOSLINK TO PERE12
[B]>CAT ALL (file there)
[B]>PLIST PERE12 (.. then copy from ILPER window)

Code:

3.1415926535897932e FCONSTANT ... (looong) ... ;

You created the text file on a Linux system, right?
I assume that you are quite experimented in Linux. Does the LF- vs CR/LF-terminated line issue sound familiar to you?
I'm suspecting this kind of thing.

Apparently you succeeded to load the file correctly above:

(05-29-2023 07:58 PM)floppy Wrote:  So far achieved:
- listing of HDRIVE1 content (file HDRIVE16.DAT)
- uploading TXT file into the HP71B

Code:

3.1415926535897932e FCONSTANT PINB
FVARIABLE B
FVARIABLE A
FVARIABLE TV
1.0e FVARIABLE R
DECIMAL
: PERE12 B STO ." Param B:  " F. CR X=0? IF F+ 4.0e F*
." ELLIPSE PERIM= " F. EXIT THEN X<>Y ." Param A:  " F. CR A
STO X=0? IF F+ 4.0e F* ." ELLIPSE PERIM= " F. EXIT THEN FENTER
F* X<>Y FENTER F* F+ TV STO FDROP 1.0e R F! FDROP BEGIN A RCL
FENTER B RCL FENTER RDN F* SQRT B STO RDN F- CHS R RCL 2.0e F*
R STO FDROP LASTX F/ A RCL X<>Y F- A STO FDROP B RCL X<>Y LASTX
X^2 R RCL F* TV RCL F- CHS TV STO FDROP X=Y? UNTIL 1/X TV RCL F*
PINB F* ." ELLIPSE PERIM= " F. CR ;
: TEST 3.0e 11.0e PERE12 ;

So why doesn't it work anymore?


And to save you another unsuccessful attempt, this is wrong:

Quote:n FORTH prompt "[F]\"
"[F]\"LOADF " PERE12"
..ERR:Invalid Filespec

FORTH doesn't use postfix parameters. This is " filespec" LOADF .

J-F