Home > Previous Page >  Pu-kassette German Manual Examples
Archive Search  

Pu-kassette German Manual Examples

Full title Pu-kassette German Manual Examples
Year of release 1984
Publisher BRD inc,
Producer / Author(s) Wolfgang Diez and Friedrich Hass
Memory 3K
Type Education
Cost : unknown
Download German Manual Examples [CRC32 670af91c]
Distribution Permission Allowed | Group 1

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 ;

Screen shots

  

Cassette Body