home *** CD-ROM | disk | FTP | other *** search
/ YPA: Your Privacy Assured / YPA.ISO / other_goodies / dup_stuff / uniwavedemo.lha / UniWave.amos / UniWave.amosSourceCode
AMOS Source Code  |  1995-03-10  |  2KB  |  67 lines
  1. ' ************************************************************** 
  2. '
  3. ' UniWave, UniWave.amos, and additional graphic files    
  4. ' are Copyright 1995 Seumas McNally, all rights reserved.
  5. '
  6. ' You Are LAME (and breaking Copyright law) if you use this code 
  7. ' in your own programs without permission from the author. 
  8. '
  9. ' ************************************************************** 
  10. '
  11. Randomize Timer
  12. '
  13. Screen Open 0,320,200,16,Lowres
  14. Curs Off : Flash Off : Cls 0
  15. Double Buffer : Autoback 0 : Update Off : Hide 
  16. '
  17. Load Iff "FTOpenPic1_1.iff",1 : Screen Hide 1
  18. Load Iff "FTOpenPic3_1.iff",2 : Screen Hide 2
  19. Get Block 1,0,78,320,82,1
  20. '
  21. A$="CoDe aNd GfX bY LoNgBoW oF D.U.P.!"
  22. Cls 0 : Locate 0,0 : Pen 5 : Paper 0 : Print "   ";
  23. For A=1 To Len(A$)
  24.  Pen 15-A mod 11
  25.  Print Mid$(A$,A,1);
  26. Next A
  27. Get Block 2,0,0,320,8,1
  28. '
  29. Degree 
  30. Dim SN(750)
  31. For A=0 To 750 : SN(A)=(Sin(A)*4) : Next A
  32. '
  33. '
  34. Screen 1 : Ink 0
  35. Bar 0,0 To 319,2
  36. Bar 0,0 To 4,199
  37. Bar 0,197 To 319,199
  38. Bar 316,0 To 319,199
  39. '
  40. Screen 0
  41. Get Palette 1
  42. DUPX=0
  43. Shift Up 3,5,15,1
  44. T=Timer
  45. While Mouse Key=0 and(Inkey$="")
  46.  Add O,20,1 To 360
  47.  Add OO,5,1 To 360
  48.  OOO=OO+O : If OOO>360 : OOO=OOO-360 : End If 
  49.  For A=0 To 304 Step 16
  50.   Screen Copy 1,A,0,A+16,200 To Logic(0),A,SN(A+O)
  51.  Next 
  52.  For A=0 To 190 Step 10
  53.   Screen Copy Logic(0),-10,A,330,A+10 To Logic(0),-10+SN(A+OOO),A
  54.  Next 
  55.  If Timer-T>300 : If DUPX<90 : Add DUPX,1 : Else DUPX=90 : End If : End If 
  56.  Add D,10,1 To 360
  57.  Add DD,15,1 To 360
  58.  Z=(Sin(D)*30)
  59.  'ZZ=(Sin(D)*10)
  60.  If DD>270 or DD<90 : Put Block 1,-320+(Sin(DUPX)*320),60+Z : End If 
  61.  If Timer-T>1000
  62.   Put Block 2,-(Sin(DD)*10),100+Z-26-(Sin(DD)*22)
  63.  End If 
  64.  If DD>=90 and DD<=270 : Put Block 1,-320+(Sin(DUPX)*320),60+Z : End If 
  65.  Screen Swap 0
  66.  Wait Vbl 
  67. Wend