home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd559 / amoner4 / copyrights.amos / copyrights.amosSourceCode < prev   
AMOS Source Code  |  1993-11-29  |  2KB  |  86 lines
  1. Set Buffer 80
  2. Screen Open 0,1000,200,8,Hires
  3. Cls 0
  4. Music 1
  5. FONT20NUMBER=0 : FONT12NUMBER=0
  6. Global FONT20NUMBER
  7. Global FONT12NUMBER
  8. _GET_FONTS
  9. Channel 1 To Screen Offset 0
  10. Channel 2 To Screen Offset 0
  11. _DIR=1
  12. Copper On 
  13. For X=1 To 7
  14.    Wait 150
  15.    Amal 1,"Move 310,0,50"
  16.    Amal 2,"Move -310,0,50"
  17.    Read LINE1$
  18.    Read LINE2$
  19.    Read LINE3$
  20.    If _DIR=2
  21.       Ink 0
  22.       Bar 0,0 To 600,200
  23.       Ink Rnd(3)+4,0
  24.       Set Font FONT20NUMBER
  25.       Text 40,100,LINE1$
  26.       Set Font FONT12NUMBER
  27.       Text 80,130,LINE2$
  28.       Text 80,145,LINE3$
  29.       Amal On 2
  30.    End If 
  31.    If _DIR=1
  32.       Ink 0
  33.       Bar 401,0 To 1000,200
  34.       Ink Rnd(3)+4,0
  35.       Set Font FONT20NUMBER
  36.       Text 690,100,LINE1$
  37.       Set Font FONT12NUMBER
  38.       Text 730,130,LINE2$
  39.       Text 730,145,LINE3$
  40.       Amal On 1
  41.    End If 
  42.    While Chanmv(1)
  43.    Wend 
  44.    While Chanmv(2)
  45.    Wend 
  46.    Amal Off 
  47.    _DIR=(3-_DIR)
  48. Next X
  49. For X=63 To 1 Step -1
  50.    Volume X : Wait 5
  51. Next X
  52. Music Off 
  53. Data "AMOS"
  54. Data "Copyright by Europress"
  55. Data ""
  56. Data "AMOS Compiler"
  57. Data "Copyright by Europress"
  58. Data ""
  59. Data "AMOS 3D"
  60. Data "Copyright by Voodoo Software"
  61. Data "             &    Europress"
  62. Data "DPaint IV"
  63. Data "Copyright by Electronic Arts"
  64. Data ""
  65. Data "BootIntro v1.0"
  66. Data "Copyright by Roger Fischlin"
  67. Data ""
  68. Data "MED v3.00"
  69. Data "Copyright by Teijo Kinnunen"
  70. Data ""
  71. Data "CEDPro2"
  72. Data "Copyright by Cygnus Software"
  73. Data "        & ASDG Incorporated"
  74. Procedure _GET_FONTS
  75.   Get Fonts 
  76.   _FONT_NUMBER=0
  77.   While((FONT20NUMBER=0) or(FONT12NUMBER=0))
  78.     Inc _FONT_NUMBER
  79.     _FONT_NAME$=Upper$(Left$(Font$(_FONT_NUMBER),29))
  80.     _FONT_SIZE$=Upper$(Mid$(Font$(_FONT_NUMBER),30,4))
  81.     If(Instr(_FONT_NAME$,"DIAMOND")>0) and(Instr(_FONT_SIZE$,"12")>0) Then FONT12NUMBER=_FONT_NUMBER
  82.     If(Instr(_FONT_NAME$,"DIAMOND")>0) and(Instr(_FONT_SIZE$,"20")>0) Then FONT20NUMBER=_FONT_NUMBER
  83.   Wend 
  84. End Proc
  85. Copper Off 
  86. Run "AmoNER004:Autoexec.Amos"