www.jupiter-ace.co.uk
 
Previous Page > Software index > pu-kassette German Manual Examples.
Archive Search  
Full title PU-Kassette-Jupiter ACE
Tear of release 1984
Publisher BRD inc,
Producer / Author(s) Wolfgang Diez and Friedrich Hass
Memory 3K
Type Code examples in German
Cost : ? - unknown


Screenshot   


Instructions

German version of example Forth words from the German version of the Jupiter ACE programming handbook.

Split in chapters from 6 to 24,

loading examples for chapter 16 enter;

load kapitel16

Forth Definitions for example kapitel 16
Forth Definitions - NACHRICHT, INTEGER, EINGABE, J/N, TASTE, WARTE

: WARTE BEGIN INKEY UNTIL ; : TASTE BEGIN INKEY ?DUP UNTIL ; : J/N ." (J/N)?" BEGIN INKEY DUP ASCII j = IF 2 ELSE ASCII n = THEN ?DUP UNTIL 1- ; : EINGABE -32768 QUERY INVIS LINE VIS SWAP -32768 - IF ." JETZT HABEN SIE ABER" CR ." NICHT AUFGEPASST" QUIT THEN ; : INTEGER BEGIN RETYPE NUMBER DUP 4181 = IF ." UNGUELTIG" DROP DROP DROP 0 THEN UNTIL ; : NACHRICHT ASCII ~ WORD CLS BEGIN 32 0 DO 10 I AT SPACE DUP DUP 1+ SWAP C@ TYPE 11 0 AT 32 SPACES 1500 0 DO LOOP LOOP 0 UNTIL ;



Download

PU-German-examples [JA072] [CRC32 checksum 670af91c] | Distribution Permission Allowed | *



Click here to go back