Advertisement
Guest User

Forth ASCII Bird :D

a guest
Nov 4th, 2016
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. : DRAW ( n -- ) 0 DO DUP EMIT LOOP DROP ;
  2. : SOFFSET 32 ; : s/ 47 ; : s\ 92 ;
  3. : s_ 95 ; : s| 124 ; : s- 45 ;
  4. : A ( -- n ) 1 20 0 DO DUP SOFFSET SWAP DRAW s\ 1 DRAW DUP SOFFSET SWAP DRAW s\ 1 DRAW 1+ CR LOOP ;
  5. : B ( -- n ) 20 20 0 DO DUP SOFFSET SWAP DRAW s/ 1 DRAW DUP SOFFSET SWAP DRAW s/ 1 DRAW 1- CR LOOP ;
  6. : C ( -- ) s_ 40 DRAW CR ." Nice Day :D" ;
  7.      
  8. A DROP B DROP C
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement