home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / scrollers / circle_scroll.amos / circle_scroll.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1980-04-05  |  1002 b   |  32 lines
  1. Screen Open 0,320,200,2,0 : Hide 
  2. Paper 0 : Cls 
  3. Flash Off : Curs Off 
  4. Get Sprite Palette 
  5. For I=0 To 3
  6.    For J=0 To 3
  7.       Colour I+16+J*4,Colour(I)
  8.    Next 
  9. Next 
  10. A$="Bonjour , Voila un exemple de circle scroll en amos formule cree a partir de mon play editor et c est genial ce truc et meme que ouaip. d ailleur on peut voir 21 sprites ou bobs a l ecran !!! super non ??"
  11. A$=Upper$(A$) : Synchro Off : FON$="ABCDEFGHIJKLMNOPQRSTUVWXYZ !?:.()123456789"
  12. B$="L: PL1;L A=27;L R3=0;P: P;If R3=0 J P;L X=368;L Y=150;L A=R3;P;J L"
  13. For I=0 To 20
  14.    Channel I To Sprite I+8
  15.    Amal I,B$ : Amal On I : Amal Freeze I
  16. Next : L=Len(A$)
  17. For I=1 To L
  18.    Mid$(A$,I,1)=Chr$(Instr(FON$,Mid$(A$,I,1)))
  19. Next : AD=Varptr(A$)
  20. SC=22
  21. For I=0 To 20
  22.    Sprite I+8,368,150,Peek(AD+I)
  23.    Amal On I : For J=0 To 16 : Synchro : Wait Vbl : Next 
  24. Next : Every 1 Proc EVER
  25. Do 
  26.    For I=0 To 20
  27.       If Amreg(I,3)=0 : Amreg(I,3)=Peek(AD+SC) : Add SC,1,0 To L : End If 
  28.    Next 
  29. Loop 
  30. Procedure EVER
  31.    Synchro : Every On 
  32. End Proc