home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo4.AMOS / Demo4.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  1.4 KB  |  38 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *            Demo 4 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Hide 
  9. Unpack 6 To 0 : Screen Hide 0
  10. Screen Open 1,320,128,4,0 : Screen Hide 1
  11. Curs Off : Flash Off : Cls 0
  12. Get Palette 0
  13. For C=0 To 58
  14.   Y=C/10 : X=C-(Y*10) : Zoom 0,X*32,Y*32,X*32+32,Y*32+32 To 1,0,0,64,128
  15.   Get Block C+1,0,0,64,128
  16. Next 
  17. Screen Open 0,768,128,4,0
  18. Curs Off : Flash Off : Cls 0
  19. Get Palette 1
  20. Screen Display 0,128,40,320,128
  21. S=8 : B=1
  22. S$="HOTSOFT PRESENTS A LITTLE DEMO WITH A BIG SCROLLER!!!    "
  23. S$=S$+"THE LOWER SCROLLER IS A CLONE OF THE UPPER SCROLLER, SO "
  24. S$=S$+"I DON'T LOSE ANY TIME ON SCROLLING TWO TIMES.      AND "
  25. S$=S$+"I ALSO USE A TURBO SCROLLER WHICH ALLOWS ME TO SCROLL "
  26. S$=S$+"IN 64 DIFFERENT SPEEDS WITHOUT JERKING!!!      WEIRD!!!     "
  27. S$=S$+"BE CAREFUL NOT TOO LOOK TO LONG AT THIS SCROLLER OR YOU'LL "
  28. S$=S$+"GET BOX-EYES!             SEE YOU AT THE NEXT DEMO!!!"
  29. S$=S$+"      "
  30. Screen Close 1
  31. Screen Clone 1 : Screen Display 1,128,178,320,128
  32. Repeat 
  33.   Add XX,S : If XX>63 Then Gosub NEWLETTER
  34.   Screen Offset 0,XX+X+80,0 : Screen Offset 1,XX+X+80,0 : E=E+Mouse Key : Wait Vbl 
  35. Until E
  36. End 
  37. NEWLETTER: XX=XX-64 : X=X+64 : A=Asc(Mid$(S$,B,1))-32 : Add B,1,1 To Len(S$) : If X>384 Then X=X-384
  38.   Put Block A+1,X,0 : Put Block A+1,X+384,0 : Return