home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ansi / avatar1.arj / DEMO1.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-07-18  |  676 b   |  31 lines
  1. include avatar.inc
  2.  
  3. AVTbegin        ;; Start an Avatar program
  4.  
  5. Reset           ;; Restore all windows to full screen
  6. Cls             ;; Clear the screen, and move to position 1,1
  7.  
  8. ;; Let's cover the screen with some pseudowindows
  9. locate          5, 5
  10. initarea        48, 16, 71
  11.  
  12. locate          15, 15
  13. initarea        35, 4, 13, 176
  14.  
  15. locate          3, 40
  16. initarea        83, 10, 5, '*'
  17.  
  18. locate          8, 8
  19. initarea        0, 5, 10
  20.  
  21. locate          8, 60
  22. initarea        27, 6, 18, 254
  23.  
  24. locate          3, 16
  25. setcolor        7, "AVATAR console"
  26.  
  27. locate          3, 50, "Demonstration"
  28. locate          23, 1
  29.  
  30. AVTend          ;; End the program
  31.