home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug035.ark / PAINT.PRN < prev    next >
Encoding:
Text File  |  1985-02-10  |  1.3 KB  |  42 lines
  1.                         * THIS IS MOSHELL'S FAMOUS "PAINTER" PROGRAM
  2.  
  3.                         * BY NOW YOU HAVE HEARD ABOUT IT IN SONG AND STORY
  4.  
  5.                         ; NOW IS YOUR CHANCE TO SEE IT IN REAL LIFE
  6.  
  7.                             ;WE START AT 200H
  8.  
  9.                         MAIN:    ORG    200H
  10. 0200=>
  11.                         SR    EQU    SWREG
  12. 000F=
  13.                             RESCALE    %JS1X,%5
  14. 0200=>1C 08 05 
  15.                             RESCALE %JS1Y,%5
  16. 0203=>1C 09 05 
  17.                         LOOP:    ONLIST    1,?SR
  18. 0206=>06 A0 0100 6F 
  19.                             FLY    ?SR,?JS1X,?JS1Y
  20. 020B=>08 6F 68 69 
  21.                             RECOLOR    ?SR,%WHITE+BRIGHT
  22. 020F=>1D 6F 0F 
  23.                             SHOW
  24. 0212=>01 
  25.                             RECOLOR    ?SR,?BUTTONS
  26. 0213=>1D 6F 6E 
  27.                             COMP    ?BUTTONS,%0
  28. 0216=>11 6E 00 
  29.                             JZ    LOOP
  30. 0219=>E4 0602
  31.                             BACKGRND ?SR    ;IF A BUTTON WAS PUSHED,PAINT THE
  32. 021C=>0F 6F 
  33.                                     ;OBJECT INTO THE BACKGROUND.
  34.  
  35.                             JUMP    LOOP
  36. 021E=>E0 0602
  37.                         
  38.            JZ    LOOP
  39. 0219=>E4 0602
  40.                             BACKGRND ?SR    ;IF A BUTTON WAS PUSHED,PAINT THE
  41. 021C=>0F 6F 
  42.                                     ;OBJECT INTO T