home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / circlescroll.amos / circlescroll.amosSourceCode < prev    next >
AMOS Source Code  |  1993-03-07  |  903b  |  33 lines
  1. 'not Easy Amos 
  2. Screen Open 0,320,200,2,0 : Hide 
  3. Paper 0 : Cls 
  4. Flash Off : Curs Off 
  5. Get Sprite Palette 
  6. For I=0 To 3
  7.    For J=0 To 3
  8.       Colour I+16+J*4,Colour(I)
  9.    Next 
  10. Next 
  11. A$="HELLO! WELL HOW DO YOU LIKE THIS THEN !! NOT BAD HEY? (21 SPRITES!!!)                    "
  12. A$=Upper$(A$) : Synchro Off : FON$="ABCDEFGHIJKLMNOPQRSTUVWXYZ !?:.()123456789"
  13. 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"
  14. For I=0 To 20
  15.    Channel I To Sprite I+8
  16.    Amal I,B$ : Amal On I : Amal Freeze I
  17. Next : L=Len(A$)
  18. For I=1 To L
  19.    Mid$(A$,I,1)=Chr$(Instr(FON$,Mid$(A$,I,1)))
  20. Next : AD=Varptr(A$)
  21. SC=22
  22. For I=0 To 20
  23.    Sprite I+8,368,150,Peek(AD+I)
  24.    Amal On I : For J=0 To 16 : Synchro : Wait Vbl : Next 
  25. Next : Every 1 Proc EVER
  26. Do 
  27.    For I=0 To 20
  28.       If Amreg(I,3)=0 : Amreg(I,3)=Peek(AD+SC) : Add SC,1,0 To L : End If 
  29.    Next 
  30. Loop 
  31. Procedure EVER
  32.    Synchro : Every On 
  33. End Proc