home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug035.ark / PAINT.FAS < prev    next >
Encoding:
Text File  |  1984-04-29  |  454 b   |  19 lines
  1. * THIS IS MOSHELL'S FAMOUS "PAINTER" PROGRAM
  2. * BY NOW YOU HAVE HEARD ABOUT IT IN SONG AND STORY
  3. ; NOW IS YOUR CHANCE TO SEE IT IN REAL LIFE
  4.     ;WE START AT 200H
  5. MAIN:    ORG    200H
  6. SR    EQU    SWREG
  7.     RESCALE    %JS1X,%5
  8.     RESCALE %JS1Y,%5
  9. LOOP:    ONLIST    1,?SR
  10.     FLY    ?SR,?JS1X,?JS1Y
  11.     RECOLOR    ?SR,%WHITE+BRIGHT
  12.     SHOW
  13.     RECOLOR    ?SR,?BUTTONS
  14.     COMP    ?BUTTONS,%0
  15.     JZ    LOOP
  16.     BACKGRND ?SR    ;IF A BUTTON WAS PUSHED,PAINT THE
  17.             ;OBJECT INTO THE BACKGROUND.
  18.     JUMP    LOOP
  19.