home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo2.AMOS / Demo2.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  4.1 KB  |  89 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *            Demo 2 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Screen Close 0 : Close Editor : Close Workbench 
  9. Unpack 15 To 0 : Screen Hide 0 : Hide 
  10. Screen Open 2,320,58,16,Lowres : Flash Off : Curs Off : Paper 0 : Pen 1 : Cls 0
  11. For A=0 To 31 : Colour A,0 : Next 
  12. Screen Open 1,320,25,8,Lowres : Flash Off : Curs Off : Paper 0 : Pen 1 : Cls 0
  13. Screen Display 1,,205,, : Palette 0,$FF0,$DD0,$BB0,$990,$770,$550,$0
  14. Set Rainbow 1,7,100,"","","" : B=0 : C=0
  15. For A=0 To 99
  16.   Rain(1,A)=C*256+B
  17.   If(C=15 and B>0) and(A and 2) Then Dec B
  18.   If(B=15 and C<15) and(A and 2) Then Inc C
  19.   If(C=0 and B<15) and(A and 2) Then Inc B
  20. Next 
  21. SC$=" abcdefghijklmnopqrstuvwxyz0123456789!?:;G(),-.'FSWTOC"
  22. S$="hi gramlinT  always new stuff from   hotsoft  T that demo on your gamedisk was nice but the gram"
  23. S$=S$+"lin logo...          Ci have painted some new gramlin-logos"
  24. S$=S$+" for you!   here comes the first:          WC16 colours are used!     now the bigger one:         "
  25. S$=S$+" Wonly 13 colours used!               Cand now....    the biggest!         CWmodern style, hasn't it? good"
  26. S$=S$+" looking logo!     any 8 colors you want!          WWWWWCOthat's all for today...            Cstop!   T    WOthe logos"
  27. S$=S$+" are saved as brush on this disk!          OCnow we go...         OFFFFFFFFFFT              O  "
  28. S$=S$+" beinahe vergessen.......the greetings......to  this guy and that guy, finally to these boyz and those gals"
  29. S$=S$+" to all my friends and to all my disks, to all my funsticks and to my bytes, to myself and... that's getting"
  30. S$=S$+" silly.     c. u. at the next demo!         OCSthe end!ST      "
  31. S=31 : B=0 : SP=8 : HY=210 : SY=1 : LO=0 : ST=-176 : L=Len(S$) : BO=-1
  32. Def Scroll 1,0,0 To 320,25,-SP,0 : Rainbow 1,0,206,89
  33. Music 1
  34. Do 
  35.   If BO Then Add HY,SY : Add SY,1 : If HY>260 Then SY=-SY+1
  36.   Add S,SP
  37.   If S>31 Then Gosub NLET
  38.   Dec ST
  39.   Exit If Mouse Key=1
  40.   If Mouse Key=2 Then ST=1 : SP=0
  41.   If ST=-175 and LO<>3 Then Screen 2 : Fade 2 : Screen 1 : ST=-176
  42.   Wait Vbl 
  43.   If BO Then Screen Display 1,,HY,,
  44.   If ST<1 Then SP=8 : Scroll 1 : Screen Copy 0,X*32+S,Y*25+134,X*32+S+SP,Y*25+159 To 1,319-SP,0
  45. Loop 
  46. Screen 2 : Fade 1 : B=64 : Screen 2 : Fade 4
  47. For A=HY To 0 Step -2
  48.   Wait Vbl : Screen Display 1,,A,,
  49.   If B>0 Then Dec B : Volume B
  50.   If B=0 Then B=-1 : Screen 1 : Fade 1
  51. Next 
  52. Rainbow 1,0,0,0 : Music Off : Screen Close 0 : Screen Close 1 : Screen Close 2
  53. End 
  54. NLET:
  55.   S=0
  56.   Add B,1,1 To L
  57.   C=Instr(SC$,Mid$(S$,B,1))-1
  58.   Y=C/10
  59.   X=C-Y*10
  60.   If C<50 Then Return 
  61.   If C=50 Then ST=75 : X=0 : SP=0 : Y=0 : C=0 : Add LO,1,1 To 9 : Gosub SHOLO
  62.   If C=51 Then ST=100 : X=0 : SP=0 : Y=0 : C=0
  63.   If C=52 Then X=0 : SP=0 : Y=0 : C=0 : BO= Not BO
  64.   If C=53 Then Gosub COCH
  65. Return 
  66. COCH:
  67.   Add CO,1,0 To 7 : Screen 1
  68.   If CO=0 Then Palette 0,$FF0,$DD0,$BB0,$990,$770,$550,0
  69.   If CO=1 Then Palette 0,$F00,$D00,$B00,$900,$700,$500,0
  70.   If CO=2 Then Palette 0,$F0,$D0,$B0,$90,$70,$50,0
  71.   If CO=3 Then Palette 0,$F,$D,$B,$9,$7,$5,0
  72.   If CO=4 Then Palette 0,$FFF,$DDD,$BBB,$999,$777,$555,0
  73.   If CO=5 Then Palette 0,$F0F,$D0D,$B0B,$909,$707,$505,0
  74.   If CO=6 Then Palette 0,$FF,$DD,$BB,$99,$77,$55,0
  75.   If CO=7 Then Palette 0,$F88,$D77,$B55,$944,$733,$522,0
  76. Return 
  77. SHOLO:
  78.   Screen 2
  79.   If LO=1 Then Cls 0 : Screen Copy 0,0,0,142,40 To 2,89,0 : Screen 0 : Palette 0,$FFF,$FF0,$DB0,$B90,$A60,$840,$8F8,$7E7,$6C8,$5B5,$595,$484,$F,$55F,$AAF
  80.   If LO=2 Then Cls 0 : Screen Copy 0,0,40,215,77 To 2,53,0 : Screen 0 : Palette 0,$559,$66A,$77B,$99C,$AAD,$CCE,$FFF,$CCD,$A9C,$87A,$759,$537
  81.   If LO=3 Then Cls 0 : Screen Copy 0,0,77,297,134 To 2,12,0 : Screen 0 : Palette 0,$FEE,$FDD,$EBB,$DAA,$C88,$B66,$A55
  82.   If LO=4 Then Screen 0 : Palette 0,$FFE,$FFD,$EEB,$DDA,$CC8,$BB6,$AA5
  83.   If LO=5 Then Screen 0 : Palette 0,$FEF,$FDF,$EBE,$DAD,$C8C,$B6B,$A5A
  84.   If LO=6 Then Screen 0 : Palette 0,$EFE,$DFD,$BEB,$ADA,$8C8,$6B6,$5A5
  85.   If LO=7 Then Screen 0 : Palette 0,$EFF,$DFF,$BEE,$ADD,$8CC,$6BB,$5AA
  86.   If LO=8 Then Screen 0 : Palette 0,$FFF,$DDD,$BBB,$AAA,$888,$666,$555
  87.   If LO=9 Then Cls 0 : ST=0
  88.   Screen 2 : Fade 2 To 0 : Screen 1
  89. Return