File: mouse-doodle

package info (click to toggle)
brandy 1.23.6-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,268 kB
  • sloc: ansic: 39,421; makefile: 91; sh: 1
file content (14 lines) | stat: -rw-r--r-- 353 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   10REM>mouse-doodle
   20MODE 13
   30OFF
   40GCOL0,RND(63)
   50T%=0
   60REPEAT
   70MOUSE X%, Y%, B%
   80IF B% = 7 THEN ON:END
   90IF B% = 6 THEN CLS: GOTO 70
  100IF (B% AND 4) OR T%=1 THEN DRAW X%,Y% ELSE MOVE X%,Y%
  110IF B% AND 1 THEN GCOL0,RND(63)
  120IF B% = 2 THEN T%=T% EOR 1: REPEAT: MOUSE A, B, C: UNTIL C=0
  130WAIT 1
  140UNTIL 0