home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d14.amos / d14.amosSourceCode < prev    next >
AMOS Source Code  |  1978-02-21  |  1KB  |  13 lines
  1. Palette $0,$0,$0 : Screen Open 1,320,250,16,Lowres
  2. Screen Hide 1 : Screen Open 0,336,180,16,Lowres : Hide On : Flash Off : Curs Off : Cls 0 : Auto View Off : Set Rainbow 0,0,180,"","",""
  3. Rainbow 0,0,50,180 : Wave 0 To 15 : TEMP1=1 : TEMP2=1
  4. For LOP=89 To 0 Step -1 : Rain(0,LOP)=TEMP2*16 : Rain(0,179-LOP)=TEMP2*16 : Play 96-(20+(LOP/2)),0 : View : Add TEMP1,1,1 To 6 : If TEMP1=6 Then Inc TEMP2
  5. Next LOP
  6. Get Sprite Palette : Autoback 1 : Screen Show 1 : Paper 0 : Pen 1 : Locate 0,11 : Centre "BOB Demo (beweeg de muis !!)." : Double Buffer 
  7. TEMP$="Anim 0,(1,1)(2,1)(3,1)(4,1)(5,1)(6,1)(7,1)(8,1)(9,1)(10,1)(11,1)(12,1)(13,1)(14,1) ; "
  8. BALL$=TEMP$+"Loop: Let X=XSscreen(0,XMouse) ; Let Y=YScreen(0,YMouse) ; Jump Loop ;"
  9. X Mouse=200 : Y Mouse=200 : AMOUNT=10 : WHICH=1 : Channel AMOUNT To Bob AMOUNT : Bob AMOUNT,X Screen(0,X Mouse),Y Screen(0,Y Mouse),1 : Amal AMOUNT,BALL$
  10. For LOP=1 To AMOUNT-1 : Channel LOP To Bob LOP : Bob LOP,-200,-200, : Amal LOP,TEMP$ : Amal On LOP : Next LOP
  11. Amal On AMOUNT : Repeat : Bob WHICH,X Bob(WHICH+1),Y Bob(WHICH+1),1 : Add WHICH,1,1 To AMOUNT-1 : Until False or Mouse Key
  12. For J=1 To 179 : Rain(0,J)=$0 : Next J : Set Rainbow 0,0,16,"","","" : Rainbow 0,0,0,0
  13. Bob Off : Cls : Wait 4 : Screen Close 1 : Dir$="AMOS DEMONSTRATIONS #1:" : Erase 1 : Run "menu.amos"