mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 02:49:17 +00:00
35 lines
2.2 KiB
Plaintext
35 lines
2.2 KiB
Plaintext
|
Screen 0 not modified
|
||
|
|
0 \\ Times Often: interactive loops 11Nov86
|
||
|
|
1
|
||
|
|
2 Dieses File enthaelt die Definitionen der beiden Utility-Worte
|
||
|
|
3 TIMES, OFTEN, die interaktiv benutzt werden koennen, was
|
||
|
|
4 normalerweise mit BEGIN WHILE ... nicht moeglich ist.
|
||
|
|
5
|
||
|
|
6 Benutzung: nur interaktiv!
|
||
|
|
7
|
||
|
|
8 a b ... nn times \ Wiederhole die Befehlsfolge "a b ..." nn mal,
|
||
|
|
9 \ oder bis eine Taste gedrueckt wird, oder
|
||
|
|
10 \ bis ein Fehler auftritt,
|
||
|
|
11
|
||
|
|
12 a b ... often \ Wiederhole die Befehlsfolge "a b ..."
|
||
|
|
13 \ so oft, bis eine Taste gedrueckt wird, oder
|
||
|
|
14 \ bis ein Fehler auftritt.
|
||
|
|
15
|
||
|
|
Screen 1 not modified
|
||
|
|
0 \ Times, Often 02feb86
|
||
|
|
1
|
||
|
|
2 also Forth definitions
|
||
|
|
3
|
||
|
|
4 : often stop? ?exit >in off ;
|
||
|
|
5
|
||
|
|
6 | Variable #times #times off
|
||
|
|
7
|
||
|
|
8 : times ( n --)
|
||
|
|
9 ?dup IF #times @ 2+ u< stop? or
|
||
|
|
10 IF #times off exit THEN 1 #times +!
|
||
|
|
11 ELSE stop? ?exit THEN >in off ;
|
||
|
|
12
|
||
|
|
13 toss definitions
|
||
|
|
14
|
||
|
|
15
|