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