home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / apps / bbs / nest_kit / nestlogo / nestware.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1993-03-12  |  1KB  |  53 lines
  1. CLS
  2. FOR t#=1 TO 4
  3.   FOR r#=100 TO 200
  4.     nw_logo(r#,50)
  5.   NEXT r#
  6.   FOR r#=50 TO 100
  7.     nw_logo(200,r#)
  8.   NEXT r#
  9.   FOR r#=200 DOWNTO 100
  10.     nw_logo(r#,100)
  11.   NEXT r#
  12.   FOR r#=100 DOWNTO 50
  13.     nw_logo(100,r#)
  14.   NEXT r#
  15. NEXT t#
  16. > PROCEDURE nw_logo(x%,y%)
  17.   IF done#=FALSE
  18.     done#=TRUE
  19. ' ## INLINE:
  20. ' $0000: 00 5b 00 20 00 01 00 00 00 00 00 00 00 00 00 00 
  21. ' $0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 
  22. ' $0020: f0 00 00 00 00 00 00 00 00 00 00 04 38 00 00 00 
  23. ' $0030: 00 00 00 00 00 00 00 08 6c 00 00 00 00 00 00 00 
  24. ' $0040: 00 00 00 10 d4 00 00 00 00 00 00 00 00 00 00 10 
  25. ' $0050: aa 00 00 00 00 00 00 00 00 00 00 21 42 00 00 00 
  26. ' $0060: 00 00 00 00 00 00 00 79 57 c0 00 00 00 00 00 00 
  27. ' $0070: 00 00 00 7e 23 c0 00 00 00 00 00 00 00 00 00 7e 
  28. ' $0080: 37 c0 00 00 00 00 00 00 00 00 00 7f 13 c0 00 00 
  29. ' $0090: 00 00 00 00 00 00 00 7f e3 c0 00 00 00 00 00 00 
  30. ' $00a0: 00 00 00 7f fb c0 00 00 00 00 00 00 00 00 03 9f 
  31. ' $00b0: e7 c0 00 00 00 00 00 00 00 00 0c 1d f3 e0 00 00 
  32. ' $00c0: 00 00 00 00 00 00 02 1c fb d0 00 00 00 00 00 00 
  33. ' $00d0: 00 00 04 0c 7f d0 00 78 fc 00 00 00 00 00 04 2c 
  34. ' $00e0: 3f c8 00 c4 30 00 00 00 00 00 08 7c 1f e8 78 e0 
  35. ' $00f0: 31 8c 78 d8 78 00 08 7c 0f c4 cc f0 31 8c 8c e0 
  36. ' $0100: cc 00 10 bc 1b cc cc 78 31 ac 7c c0 cc 00 08 fe 
  37. ' $0110: 2f f8 fc 3c 31 ac cc c0 fc 00 09 be 20 08 c0 1c 
  38. ' $0120: 31 ac cc c0 c0 00 05 7e 40 50 c4 8c 31 ac cc c0 
  39. ' $0130: c4 00 03 82 40 20 78 78 31 f8 7c c0 78 00 01 c6 
  40. ' $0140: 20 c0 00 00 00 00 00 00 00 00 00 7e 2f 00 00 00 
  41. ' $0150: 00 00 00 00 00 00 00 00 18 00 00 00 00 00 00 00 
  42. ' $0160: 00 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 
  43. ' $0170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  44. ' $0180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  45. ' $0190: 00 00 0d 0a 
  46. ' 404  Bytes.
  47.     INLINE nw_logo%,404
  48.     a$=STRING$(404," ")
  49.     BMOVE nw_logo%,V:a$,404
  50.   ENDIF
  51.   PUT x%,y%,a$
  52. RETURN
  53.