home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG035.ARK
/
PAINT.FAS
< prev
next >
Wrap
Text File
|
1984-04-29
|
454b
|
19 lines
* THIS IS MOSHELL'S FAMOUS "PAINTER" PROGRAM
* BY NOW YOU HAVE HEARD ABOUT IT IN SONG AND STORY
; NOW IS YOUR CHANCE TO SEE IT IN REAL LIFE
;WE START AT 200H
MAIN: ORG 200H
SR EQU SWREG
RESCALE %JS1X,%5
RESCALE %JS1Y,%5
LOOP: ONLIST 1,?SR
FLY ?SR,?JS1X,?JS1Y
RECOLOR ?SR,%WHITE+BRIGHT
SHOW
RECOLOR ?SR,?BUTTONS
COMP ?BUTTONS,%0
JZ LOOP
BACKGRND ?SR ;IF A BUTTON WAS PUSHED,PAINT THE
;OBJECT INTO THE BACKGROUND.
JUMP LOOP