\ Ein kleines Logikspiel                          23aug09mb
( : at at-xy ; )                                                                
Variable Anzahl               8 Anzahl !                        
4 Value mindestens            9 Value höchstens                
Create Leuchten höchstens allot                                
: schalten ( n -- ) 
  ( Anzahl @ + ) Anzahl @ mod Leuchten + dup c@                
  IF false ELSE true THEN swap c! ;                             
: 3schalten ( n -- ) 
  dup 1+ schalten dup 1- schalten schalten ; 
: zeigen ( -- ) 0 0 at Anzahl @ dup                               
  cr 0 DO I 3 .r 2 spaces LOOP                                    
  cr 0 DO Leuchten I + c@ 3 .r 2 spaces LOOP ;                  
: start page Leuchten höchstens erase zeigen                     
  BEGIN 1 pad c! key pad 1+ c! pad number?                        
  WHILE 3schalten zeigen REPEAT drop ;