home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd077 / counter.amos / counter.amosSourceCode < prev    next >
AMOS Source Code  |  1990-11-07  |  1KB  |  34 lines
  1. Screen Open 0,320,200,2,LORES
  2. Double Buffer 
  3. Cls 0 : Colour 0,$0 : Colour 1,
  4. Data 0,0,0,0,0,0,0,0
  5. Data $111,$222,$333,$444,$555,$666,$777
  6. Data $888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  7. Data $EEE,$DDD,$CCC,$BBB,$AAA,$999,$888
  8. Data $777,$666,$555,$444,$333,$222,$111,0,0,0,0,0,0,0
  9. Set Rainbow 0,1,48,"","","" : For F=0 To 38 : Read A : Rain(0,F)=A : Next F
  10. Rainbow 0,0,144,40
  11. FISH:
  12. Bob 4,140,100,1 : Bob 3,148,100,1 : Bob 2,156,100,1 : Bob 1,164,100,1
  13. CN=0 : P1=0 : P2=0 : P3=0 : P4=0
  14. Do 
  15. Repeat 
  16. M=Mouse Click
  17. Until M<>0
  18. If M=2 Then Goto FISH
  19. Gosub CNT
  20. Loop 
  21. CNT:
  22. Inc CN : For F=1 To 10 : Inc P1 : Gosub BLOB
  23. If P1=0 Then Inc P2 : For G=1 To 9 : Inc P2 : Gosub BLOB : Next G
  24. If P2=0 and P1=0 Then Inc P3 : For G=1 To 9 : Inc P3 : Gosub BLOB : Next G
  25. If P3=0 and P2=0 and P1=0 Then Inc P4 : For G=1 To 9 : Inc P4 : Gosub BLOB : Next G
  26. Next F : Return 
  27. BLOB:
  28. If P1=100 Then P1=0
  29. If P2=100 Then P2=0
  30. If P3=100 Then P3=0
  31. If P4=100 Then P4=0
  32. Bob 1,,100-P1,1 : Bob 2,,100-P2,1 : Bob 3,,100-P3,1 : Bob 4,,100-P4,1
  33. For H=1 To 140 : Next H
  34. Return