(71B) FORTH questions

[floppy]

Thanks. I made few progress.

Under FORTH prompt (for recovery of the lost display)
" RESET HPIL" BASICX
" CONTROL ON" BASICX
" RESTORE IO" BASICX
“ DISPLAY IS : DISPLAY” BASICX
“ PRINTER IS : PRINTER” BASICX

“ CAT :HDRIVE1” BASICX
.. NAME S TYPE LEN DATE TIME
.. PERE12 TEXT 768 05/29/23 17:16 (see attached code)

"COPY PERE12:HDRIVE1 TO MAIN:" BASICX
.. ERR: Invalid Filespec

BYE (it goes back to BASIC prompt)
> COPY PERE12:HDRIVE1 (which is linked to HDRIVE16.DAT)

FORTH (it goes to the FORTH prompt)
LOADF " PERE12”
.. ERR: Invalid Filespec (now I have to search what is going on here)

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 ;