(71B) FORTH questions

[floppy]

(05-30-2023 03:05 PM)Valentin Albillo Wrote:  

(05-30-2023 02:07 PM)floppy Wrote:  .. weird.. something is uploaded, then cannot be uploaded again.. and CAT ALL dont see anything.

I don't know about the FORTH environment but in the BASIC environment CAT ALL initially only shows the data for the first file in the file chain, and you must press the [CURSOR DOWN] key repeatedly to see additional files, or [CURSOR UP] thereafter to redisplay the data for the previous file(s).

Have you tried using those cursor keys after excuting CAT ALL in the FORTH environment ? It might work ...

V.

You are the boss. The files are there. See screen copy in the attachment.

By using PLIST as recommended there https://www.hpmuseum.org/cgi-sys/cgiwrap...ead=248404 , we have
> PLIST PERE12 (into ILPER)

Code:

3.1415926535897932e FCONSTANT PINBFVARIABLE BFVARIABLE AFVARIABLE TV1.0e FVARIABLE RDECIMAL: 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 ASTO X=0? IF F+ 4.0e F* ." ELLIPSE PERIM= " F. EXIT THEN FENTERF* X<>Y FENTER F* F+ TV STO FDROP 1.0e R F! FDROP BEGIN A RCLFENTER 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 LASTXX^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 ;

The format looks a bit screwed up. Now it has to be reformatted/uploaded into FORTH. More to be done..