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