Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
26 January 2024, 08:32:23 UTC
Revision 4a8b35607a656ff3b87ede58119fdbfc8c328d51 authored by Joshua Cogliati on 05 February 2022, 01:52:44 UTC, committed by GitHub on 05 February 2022, 01:52:44 UTC 
Adding PRINT NOT "FALSE to show using quoted false. (#125)
 
 
 
 
 1 parent   7834966 
  
 
 
  
  
 
   Raw File                
 
 
   
   
 
  
 Tip revision:  4a8b35607a656ff3b87ede58119fdbfc8c328d51  authored by  Joshua Cogliati  on 05 February 2022, 01:52:44 UTC 
 Adding PRINT NOT "FALSE to show using quoted false. (#125) 
 
 
 
 
  
 Tip revision:  4a8b356  
 
 
 
 
 transfer 
 
 
 
;;; -*- logo -*-

to transfer :transfer.limit :transfer.template :transfer.init
output cascade.2 (ifelse emptyp :transfer.limit ~
                         [[emptyp ?2]] ~
                         [list "transfer.end.test :transfer.limit]) ~
                 :transfer.template [] [butfirst ?2] :transfer.init
end

to transfer.end.test :the.condition.expression
if emptyp ?2 [output "true]
output run :the.condition.expression
end

to ?in
output first ?2
end

to ?out
output ?1
end

bury [transfer transfer.end.test ?in ?out]

 
 
 
  
 
   
 
   
 
 
     
  back to top