home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / burns.amos / burns.amosSourceCode
Encoding:
AMOS Source Code  |  1991-03-22  |  4.0 KB  |  97 lines
  1. '=-=-=-=-=-=-=-=  Rabbie Burns  =-=-=-=-=-=-=  
  2. '=-=-=-=-=-=-=-=      by        =-=-=-=-=-=-=
  3. '=-=-=-=-=-=-=-= John J. Cassar =-=-=-=-=-=-=
  4. '
  5. Screen Open 0,640,256,8,Hires
  6. Palette $0,$888,$FFF,$444,$F,$777,$999
  7. Flash Off : Hide On : Curs Off : Cls 4
  8. Ink 6 : Ellipse 330,130,155,120
  9. Ink 1 : Paint 320,130
  10. Ink 3 : Ellipse 330,130,145,115
  11. '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  12. Ink 2
  13. Repeat 
  14.    Read C,D : Plot C,D
  15.    Repeat 
  16.       Read C,D
  17.       If C=999 Then Goto FIN
  18.       Wait 3 : Wait Vbl 
  19.       '** Speed can be adjusted by changing the Wait value **
  20.       Draw To C,D
  21. FIN:
  22.    Until C=999
  23. Until D=999
  24. Wait 50
  25. '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  26. Ink 5 : Plot 270,86
  27.         Draw To 276,86 : Draw To 276,84 : Draw To 274,83
  28.         Draw To 270,83 : Draw To 270,84 : Draw To 272,85
  29.         Draw To 265,85
  30.         Paint 182,140
  31. Ink 3 : Paint 320,40 : Paint 270,80 : Paint 310,76
  32.         Paint 350,118 : Paint 300,140 : Paint 274,85
  33.         Plot 270,83
  34. Ink 2 : Paint 330,100 : Paint 267,92
  35.         Paint 378,90, : Paint 270,129 : Paint 340,150
  36.         Paint 290,160 : Paint 370,160 : Paint 403,155
  37. '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  38.    Set Font 0
  39.    Pen 2 : Paper 4 : Locate 60,29 : Print "Rabbie Burns"
  40.    Repeat 
  41.    Until Mouse Key
  42.    Show 
  43.    ' ** The Picture can be save by removing the next       ** 
  44.    ' ** rem statment from the next line                    ** 
  45.    Rem Save Iff "Burns.iff"   
  46.    Run "AutoExec.AMOS"
  47.    End 
  48. '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  49. Data 335,214,335,206,330,201,325,189,300,181,280,171,277,188
  50. Data 272,188,272,181,275,181,275,173,270,175,262,180,255,175
  51. Data 240,174,220,156,210,154,250,144,255,139,270,116,295,131
  52. Data 300,129,320,129,300,133,315,134,332,133,320,136,302,136
  53. Data 320,140,330,139,320,143,312,143,317,148,310,145,310,156
  54. Data 330,171,335,199,340,201,340,211,335,214,999,0
  55. Data 330,181,320,175,305,168,290,164,275,164,280,149,280,136
  56. Data 307,148,307,159,320,165,330,174,330,181,999,0
  57. Data 250,154,270,125,275,126,277,136,275,139,270,136,272,131
  58. Data 260,149,250,154,999,0
  59. Data 335,194,340,191,355,174,365,156,372,141,372,129,390,141
  60. Data 377,156,405,170,375,176,335,194,345,196,355,196,365,198
  61. Data 375,199,395,198,407,194,417,183,420,186,425,188,430,186
  62. Data 437,181,440,176,440,168,455,156,422,143,417,136,395,128
  63. Data 380,119,370,111,377,109,377,100,387,93,390,86,390,81
  64. Data 395,76,395,71,392,64,390,56,385,51,380,46,370,41
  65. Data 360,36,350,35,345,34,335,31,320,33,307,35,300,36
  66. Data 290,39,280,43,270,49,260,56,257,55,255,65,255,69
  67. Data 260,73,260,64,265,61,270,64,275,65,282,61,295,56
  68. Data 305,55,320,51,330,49,340,43,345,43,345,45,347,46
  69. Data 340,56,337,59,340,66,350,71,350,81,352,81,352,88
  70. Data 347,91,350,99,355,100,355,101,357,106,370,96,370,91
  71. Data 375,91,375,81,377,80,382,83,382,91,380,94,370,99
  72. Data 365,104,362,104,350,111,340,119,325,124,315,126,305,128
  73. Data 300,126,290,124,280,119,275,111,267,106,265,103,260,101
  74. Data 252,96,252,91,255,89,260,86,262,94,265,96,272,96
  75. Data 272,94,267,88,260,86,999,0
  76. Data 337,194,355,166,362,156,365,149,360,104,999,0
  77. Data 317,79,330,79,320,75,310,74,300,75,292,75,290,79
  78. Data 290,81,300,85,300,84,302,84,302,86,305,88,317,89,999,0
  79. Data 325,81,320,79,310,79,300,81,310,80,315,80,335,84
  80. Data 320,84,317,86,315,86,312,86,310,85,310,84,307,85
  81. Data 305,85,310,89,999,0
  82. Data 260,86,260,84,257,81,257,79,262,76,270,76,280,80
  83. Data 282,84,280,89,275,94,275,96,280,98,285,98,290,96
  84. Data 300,100,300,101,295,101,290,100,290,101,287,100,287,101
  85. Data 285,101,277,105,285,106,292,105,305,108,305,105,315,109
  86. Data 307,108,305,109,295,108,290,109,287,108,285,109,287,111
  87. Data 295,111,297,114,302,115,297,118,290,116,287,118,287,120
  88. Data 295,124,300,125,310,126,340,118,325,124,340,119,999,0
  89. Data 260,73,262,76,999,0
  90. Data 270,86,276,86,276,84,274,83,270,83,270,84,272,85
  91. Data 265,85,999,0
  92. Data 265,103,258,95,999,0
  93. Data 360,109,340,121,320,126,300,128,325,128,350,121,360,116
  94. Data 360,109,999,0
  95. Data 400,161,400,149,410,136,420,144,415,144,412,140,407,144
  96. Data 405,164,400,161,999,0
  97. Data 315,84,314,84,999,999