.PO8
.OP
.PL72
.HE                              - # -                   FORTH FP50
 
                           FORT F 50
 #############

 W.B 8/85

 FORTH-79-Compile mi Ergaenzunge fue Floating-Point-Operatn.
 (unte Ausnutzun de ROM-Routinen);
 Optione de i BASI geschriebene Editor :
 COP٠ 'z'
 OPE #2,"P 'pron  all Textausgabe au Drucker
 CLOS # 'proff  all Textausgabe au Screen
 SAVŠ 's  ges.Compile m.alle Neudefn.
 CHARS-Neudefinitio 'd  kompl.Zeichensat neudefb.
 FORGEԠ 'f'
 COMPILE-Modu󠠠 ':'
 INTERPRET-Modu󠠠 ';'
 Byteweis mc-Eingab堠 'mc  dez.0...255 Abbruc m -1
 i Compilermodu koenne Optione nich geaender werde (mi 
  '; daz de INTERPRET-Modu einschalten);
 al Variablenname nu grosz Einzelbuchstabe moeglic (ausze 
  I  un K) d.h e gib nu 2 numerisch Variabl !;
 Variablenforma entsprich de de Spectrum-BASIà ( Byte),
 jed Variabl kan al Integer un al Gleitpunktzahl
 verwende werde (be Anwendun al Intege werde nu da 3.
 un 4 Byt verwendet wi auc i BASI be ganze Zahle <=
 65535);
 Integerzahle  0...65535 be Ausgab vo Integerzahlen
 werde be meh al  Stelle di letzte  durc ei Komma
 abgetrennt;
 Gleitpunktzahle  Forma un Bereic entsprich de des
 BASIC;
 alle Worte di nu fue Integerzahle zugelasse sind,is ein
 Prozentzeiche vorangestell (dies sin䠠 schnelle򠠠 als
 entsprechend Gleitpunktoperationen);
 all Gleitpunktoperatione koenne auc au al Integervariable
 benutzt Variabl zurueckgreife (durc Beibehaltun de BASIC-
 Zahlenformat fue di Variable moeglic !) zu Initialisieren
 sollte di fue beide genutzte Variable au Nul gesetzt
 werde dami nich bei Uebergan au Gleitpunktwort ein
 Exponen erscheint;
 Wortdefinitio beginn mi Doppelpunk danach de neuen
 Wortname eingebe (recht obe erschein dan di Adress des
 neue Worte i Dictionary) abgeschlosse wir di Definition
 mi eine Semikolo (INTERPRET-Modu wiede eingeschaltet);
 di scho definierte Wort muesse i de Schreibweise mit
 de si definier wurden eingegebe werde (Klein nicht
 gleic Groszbuchstabe !);
 i INTERPRET-Modu musz jede Befeh bzw jed Befehsfolg mit
 eine Semikolo abgeschlosse werde (sons werde dies nur
 aufgeliste un nich abgearbeitet);
 waehren de Interpretatio is BREA meis wirkungslos;
.pa
 Besonderheite de scho vorhandene Vokabular :
  Winkelfunktione fue Radian un dezimalgeteilt堠 Grad
 (entsprechend Wort unterscheide sic durc蠠 letzten
 Buchstaben 'R bzw 'D');
  '79-ST ; gib nu ein Meldun uebe di Ar de Compilers
 aus;
  INKE bing de ASCII-Wer de gerad gedrueckte Tast auf
 de Stack;
  KE entsprich 'INKEY',warte abe au de Tastendruck;
  WAI warte au Tastendruc (nu 'Y ! bevo Programm
 fortgesetz wird durc blinkende Fel recht󠠠 unten
 angezeigt;
  VLIS gib scho definiert Wort aus warte abe wi WAIT
 au Tastendruc (nu 'Y moeglich);
  mi VLIS nich aufgelistet Wort (IF THEN ELSE BEGIN,
 WHILE UNTIL REPEAT werde durc BASIC-Edito gesetzt;
  BLEE erwarte zwe Wert au de Stac di dene der
 Registe D un H̠ entspreche bei direkte Aufru der
 ROM-Routin 03B5H;
  all scho definierte Wort di i ihre Schreibweise
 BASIC-Toke entspreche erwarte di gleiche Paramete wie
 i BASIC;
  'I','J un 'K kopiere di gerad aktuelle Wert vom
 RETURN-Stac au Computationstac (fue di  innersten
 Schleifen) e koenne beliebi viel Schleife verschachtelt
 werden;

 FP-50-Dictionar :

 ABOR AB ACS ACS AN ASN ASN A ATN ATN ATTR
 BEE BEGI BLEE BORDE BRIGHT
 CDUM CIRCL CL CMOV COS COS COUN C CSto C(c C C?
 DELET DEPT D DRA DRO DUM DUP
 ELS EMI ERAS EXECU EXI EXITL EX EXPECT
 FIEL FIL FIN FLAS flgtst
  I IN INKE IN INVERS
 J
  KEY
 LEAV L LOOP
 MA MI MOVE
 NEGAT NO number
 O OVER
 PA PAPE PIC PLO POIN PROVE prstr P(c P!
 QUER QUIT
 REPEA RN ROL RO R R(c)
 SG SIN SIN SPAC SPACE SPtoC SQ STKSW SWAP
 TA TAN TAN THE TYPE
 VLIST
 WAI WHIL WOR wrdsch
 UNTIL
 0 0 0 1 1 2 2 2toC 79-STA
 ?DU >I +LOO -LOO > -TRAIL
         > < <>
   (c  + '
.pa
  INTEGER-Wort :
 %AND
 %D %DUMP
 EXIT%L
 %FIELD
 %I
 %LEAV %LOOP
 %MA %MI %MO %MOVE
 %NOT
 %OR
 %XOR
 %+LOO %/MOD
 %0 %1 %1 %2 %2-
 % % % % % % % %< %> %<=
 % %(c % % %+!

  TESTF  BORDE CL WAI 25  D 17  D   PLO LOO LOOP
200 200 BLEE ;

  TESTIN  BORDE CL WAI   % 25  %D 17  %D  %(c)
% PLO %LOO   %+ %LOO  1 BEE ;



Anmerkung (c steh fue da nich druckbar Copyright-Zeichen
 mi de Kodierun砠 127de  7Fhex.


                        **** E N D E ****