home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / new_define.asc < prev    next >
Text File  |  1980-08-29  |  383b  |  19 lines
  1. 'This is just a little program to show that the new instructions work
  2. '
  3. Object Limit 1
  4. Reserve Object Chip 1,100
  5. Define Attr 1,1 To 2,0
  6. Define Move 1,2 To 100,100
  7. Define Draw 1,3 To 120,100
  8. Define Attr 1,4 To 5,0
  9. Define Draw 1,5 To 120,60
  10. Define Stop 1,6
  11. Object Draw 1
  12. Define Attr 1,6 To 4,0
  13. Define Draw 1,7 To 100,60
  14. Define Stop 1,8
  15. Object Draw 1
  16. Object Erase 1
  17. Object Limit 0
  18. End 
  19.