home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 176-200 / apd186 / crap.bak / crap.amosSourceCode
AMOS Source Code  |  1994-01-01  |  2KB  |  61 lines
  1. Dir$="df0:"
  2. Reserve As Chip Work 5,4624
  3. Reserve As Chip Work 4,28482
  4. Bload "hum",Start(5)
  5. Bload "stars2",Start(4)
  6. Auto View Off 
  7. Screen Open 1,50,50,16,Lowres : Cls 0
  8. Screen Open 0,704,256,16,Hires : Hide : Curs Off : Cls 0
  9. Fade 1
  10. For N=0 To 500
  11.    X=Rnd(640) : Y=Rnd(256)
  12.    Plot X,Y
  13. Next : Ink 8
  14. For N=0 To 500
  15.    X=Rnd(640) : Y=Rnd(256)
  16.    Plot X,Y
  17. Next : Ink 7
  18. For N=0 To 500
  19.    X=Rnd(640) : Y=Rnd(256)
  20.    Plot X,Y
  21. Next : Auto View On : View 
  22. Volume 0
  23. Sam Loop On 
  24. Sam Raw 15,Start(5)+150,Length(5),10227
  25. For N=0 To 63 : Volume N : Wait 5 : If N=35 Then Fade 15 To(1) : 
  26. Next : Pen 1
  27. Wait 250
  28. X1=318 : X2=322
  29. Y1=126 : Y2=130
  30. For N=128 To 10 Step -1
  31.    Ink 0
  32.    Bar X1,Y1 To X2,Y2
  33.    Ink 9
  34.    Wait Vbl : Plot X2,Y1 : Draw To X2,Y2 : Draw To X1,Y2
  35.    Wait 2
  36.    Add X1,-1 : Add X2,1
  37.    Add Y1,-1 : Add Y2,1
  38. Next 
  39. For N=63 To 0 Step -1 : Volume N : Wait 5 : Next : Sam Loop Off 
  40. Wait 50 : Volume 63
  41. Sam Raw 15,Start(4),Length(4),11000
  42. Wait 200
  43. Auto View Off 
  44. Wind Open 1,230,50,22,15,16
  45. Border 0,0,2 : Paper 0 : Clw : Curs Off 
  46. Auto View On : View : Pen 12
  47. For N=0 To 51
  48.    Read A$ : Wait Vbl 
  49.    Centre A$ : Print : Print : Wait 5
  50. Next N : Restore 
  51. Data "David Bowie","Terry Wogan","Sue Pollard","Kylie Minogue","Sylvester Stalone","Christopher Biggins","Maddonna"
  52. Data "Selina Scott","Michael Barrymore","Bill Cosby","Paul Gascoin","Peter Davidson","Wendy Craig","Michael J Fox"
  53. Data "Liberace","Jimmy Mulville","Sandra Dickenson","Phillip Scholfield","Lenny Henry","Kim Bassinger","Malcome Maclaren"
  54. Data "Steve Wright","Jason Donnovan","Jimmy Tarbuck","Cliff Richard","Steve Davis","Sean Connery","Patrick Moore"
  55. Data "Keith Chegwyn","Paul Daniels","Gloria Hunniford","Rutger Hauer","Bruce Willis","Alannah Miles","David Bellamy"
  56. Data "Timmy Mallett","Sybil Sheppard","Jonnathon Ross","Terence Trent Darby","Sigourney Weaver","Mr T","Christopher Reeve"
  57. Data "Mark Wing Davey","Mel Gibson","Janet Jackson","Rowan Atkinson","Geoff Goldblum","Jimmy Hendrix","Larry Hagman"
  58. Data "Steve McQueen","Stephanie Beecham","Edd The Duck"
  59. Fade 2 : Wait 45
  60. For A=1 To 16 : Erase A : Next 
  61. 'Run "psych.amos"