' *****************************************************************************
' ***                                                                       ***
' ***                     GFA Basic Globe Demonstration                     ***
' ***                                                                       ***
' ***                           By Rick Gilliland                           ***
' ***                         From Alaskan Software                         ***
' ***                                                                       ***
' ***           Any questions or comments may be left to me on the          ***
' ***                                                                       ***
' ***                      STING BBS (612)-789-0278                         ***
' ***                                                                       ***
' ***                                or on                                  ***
' ***                                                                       ***
' ***                     GEnie.  Michtron Roundtable                       ***
' ***                                                                       ***
' ***                         Address - ANCHORAGE                           ***
' ***                                                                       ***
' *****************************************************************************
'
Cls
Deffill 0,2,8
Setcolor 0,0,0,0
Setcolor 3,7,7,7
Rez=Xbios(4)
If Rez=0
  Setcolor 15,7,7,7
  Print At(5,10);"This Demostration works only in"
  Print At(5,11);"  medium or high resolution."
  Print At(17,13);"Sorry"
  Box 30,69,281,110
  Box 28,67,283,112
  Box 126,93,169,105
  Box 124,91,171,107
  Repeat
    Mouse X,Y,K
  Until K=1 And (X>124 And X<171 And Y>91 And Y<107)
  Setcolor 0,7,7,7
  Setcolor 15,0,0,0
  End
Endif
If Rez=1
  Yoff=2.2
  Yoff2=1
  Xx=640
  Yy=200
Endif
If Rez=2
  Yoff=1
  Yoff2=2
  Xx=640
  Yy=400
Endif
'
Box 193,5*Yoff2,438,65*Yoff2
Box 188,2*Yoff2,443,68*Yoff2
Box 48,85*Yoff2,584,130*Yoff2
Box 43,82*Yoff2,589,133*Yoff2
Box 274,149*Yoff2,349,162*Yoff2
Box 269,146*Yoff2,354,165*Yoff2
'
Print At(26,2);"GFA Basic Globe Demonstration"
Print At(26,4);"             by              "
Print At(26,5);"       Rick Gilliland        "
Print At(26,7);"            from             "
Print At(26,8);"      Alaskan Software       "
Print At(8,12);"This demonstration works best in high resolution but is made to"
Print At(8,13);"work in medium resolution as well. When you get tired of watching"
Print At(8,14);"it, just press any key and it will return you back to the desktop"
Print At(8,15);"if you are using the program version, or back to basic if you are"
Print At(8,16);"using the GFA Basic language."
Print At(36,20);"Tap Here"
Repeat
  Mouse X,Y,K
Until K=1 And (X>269 And X<354 And Y>146*Yoff2 And Y<165*Yoff2)
Cls
Repeat
  Size=Random(100)+30
  Size=Int(Size/10)*10
  Step_size=Size/10
  Xpos=Random(Xx-(Size*2))+Size
  Ypos=Random(Yy-(Size*2))+Size
  Color 0
  Deffill 1,8
  Pcircle Xpos,Ypos,Size
  Color 1
  For T=0 To Size Step Step_size
    Ellipse Xpos,Ypos,T,Size/Yoff
    Ellipse Xpos,Ypos,Size,T/Yoff
  Next T
Until Inkey$<>""