This page (revision-21) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 29-Jul-2010 13:57 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
21 03-Feb-2023 15:21 27 KB Carsten Strotmann to previous

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 141 changed 3 lines
: input# ( string -- n )
pad c/l 1- >expect
pad F83-number? 2drop ;
: input# ( string -- n )
pad c/l 1- >expect
pad F83-number? 2drop ;
At line 146 added 23 lines
Die Definition der Worter, die sechs oben genannten Aktionen symbolisch aus­führen sollen, richtet sich nach den Spielregeln, die für jedes Würfelergebnis genau eine Handlung vorschreiben:
{{{
\ nehmen trinken links rechts schieben
: nehmen bright ." ein Glas nehmen" normal 2 spaces ;
: trinken bright ." alle Gläser austrinken" normal 2 spaces ;
: links bright ." ein Glas nach links" normal 2 spaces ;
: rechts bright ." ein Glas nach rechts" normal 2 spaces ;
: schieben ;
}}}
SCHIEBEN ist eine Dummyprozedur, ein Füllsel, dessen Notwendigkeit sich erst sehr spät ergibt. Für den Dialog mit dern Anwender wird deflniert:
{{{
: Anfrage cr ." Sollen Sie nehmen, trinken oder schieben?"
cr ." Bitte Ihre Augenzahl und <cr> : " ;
: Glückwunsch cr ." Viel Glück beim nächsten Wurf ..." ;
}}}