(71B) FORTH questions

[floppy]

Thanks.

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 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 ;

[B]>FORTH

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

looks like no success so far.