home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo11.AMOS / Demo11.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  2.7 KB  |  103 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *           Demo 11 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Dim B(4)
  9. Unpack 16 To 0
  10. Screen Hide 0
  11. For A=0 To 3
  12.   B(A)=Logbase(A)
  13. Next 
  14. Screen Open 1,320,265,2,0
  15. Curs Off : Cls 0 : Screen Hide 1
  16. B(4)=Logbase(0)
  17. Screen 0
  18. Copper Off 
  19. Cop Reset 
  20. Cop Move $100,$200
  21. Cop Wait $FE,$FF
  22. Cop Swap 
  23. Cop Reset 
  24. A$=Chr$(0)+Chr$(0)
  25. For A=0 To 7
  26.   Cop Movel $120+A*4,Varptr(A$)
  27. Next 
  28. Cop Move $100,0
  29. Cop Wait $80,$2E
  30. For A=0 To 31
  31.   Cop Move $180+A*2,Colour(A mod 16)
  32. Next 
  33. Cop Movel $108,0 : Rem    BPL1MOD BPL2MOD 
  34. Cop Movel $102,0 : Rem    BPLCON1 BPLCON2   
  35. Cop Move $8E,$3081 : Rem  DIWSTRT   
  36. Cop Move $90,$30C1 : Rem  DIWSTOP 
  37. Cop Move $92,$38 : Rem    DDFSTRT 
  38. Cop Move $94,$D0 : Rem    DFFSTOP 
  39. Cop Movel $E0,B(0)
  40. Cop Movel $E4,B(1)
  41. Cop Movel $E8,B(2)
  42. Cop Movel $EC,B(3)
  43. Cop Movel $F0,B(4)
  44. Cop Move $100,$5200 : Rem BLPCON0  
  45. Cop Move $96,$8180 : Rem  DMACON  
  46. For D=0 To 8
  47.   For A=5 To 15
  48.     C=Colour(A)
  49.     R=(C and $F00)/$100
  50.     G=(C and $F0)/$10
  51.     B=C and $F
  52.     C=Min(R+D,15)*$100+Min(G+D,15)*$10+Min(B+D,15)
  53.     Cop Move $1A0+A*2,C
  54.   Next 
  55.   Cop Wait 0,$32+D*2
  56. Next 
  57. For D=7 To 0 Step -1
  58.   For A=5 To 15
  59.     C=Colour(A)
  60.     R=(C and $F00)/$100
  61.     G=(C and $F0)/$10
  62.     B=C and $F
  63.     C=Min(R+D,15)*$100+Min(G+D,15)*$10+Min(B+D,15)
  64.     Cop Move $1A0+A*2,C
  65.   Next 
  66.   Cop Wait 0,$120+(7-D)*2
  67. Next 
  68. Cop Wait 0,$12E
  69. Cop Move $100,0 : Rem     DMACON   
  70. Cop Wait $FE,$FF
  71. Cop Swap 
  72. Screen 1
  73. S$="HALLO USER!!!$$$$$$DIESES DEMO BENUTZT$$$COPPER-ANWEISUNGEN, UM$$$EINEN 16-FARBIGEN HINTERGRUND-$$$"
  74. S$=S$+"SCREEN MIT EINEM EINFARBIGEN$$$VORDERGRUNDSCREEN ZU$$$VERKN�PFEN!!!$$$"
  75. S$=S$+"DADURCH WIRD DIE SCHRIFT$$$AN DEN STELLEN UMGEF�RBT,$$$WO DIE SCHRIFT, DEN HINTERGRUND$$$"
  76. S$=S$+"STREIFT.$$$$$NAT�RLICH KANN MAN AUCH DIE FARBEN$$$SO FESTLEGEN, DASS MANCHE$$$TEILE DES BILDES$$$"
  77. S$=S$+"NICHT ï¿½BERDECKT WERDEN$$$WIE HIER ZUM BEISPIEL$$$DIE GRAUEN STELLEN...$$$$$$$"
  78. S$=S$+"GR�SSE AN$$$$$$HANS PETER$$$RALF$$$JARO$$$PIERRO$$$THE HITMAN$$$HENDRIK$$$"
  79. S$=S$+"MR. SNOOPY$$$MAD HENRY$$$MICHAEL$$$TOBI$$$CHRISTOPH$$$FLORIAN$$$"
  80. S$=S$+"CHRISTOPH$$$ANDRE$$$JOJO$$$STEFAN$$$STEFFEN$$$UND AN ALLE ANDEREN,$$$"
  81. S$=S$+"DIE ICH VERGESSEN HABE!"
  82. S$=S$+"$$$$$$$$$$$$$$$ENDE!$$$$$$$$$$$$$$$$$"
  83. Y=7 : B=1
  84. Def Scroll 1,0,1 To 320,265,0,-1
  85. Repeat 
  86.   Wait Vbl 
  87.   Scroll 1 : Wait Vbl 
  88.   Add Y,1,0 To 7 : If Y=0 Then Gosub TEX
  89. Until Mouse Key
  90. Copper On 
  91. Screen Close 0
  92. Screen Close 1
  93. End 
  94. TEX:
  95.   L=0
  96.   If B=Len(S$) Then B=1
  97.   While Mid$(S$,B+L,1)<>"$" : Inc L : Wend 
  98.   Inc B
  99.   If L=0 Then Return 
  100.   B$=Mid$(S$,B-1,L)
  101.   Add B,L
  102.   Text 160-Len(B$)*4,262,B$
  103. Return