Christmas Lander v.2.0.0
The Christmas Gifts are running out.
Land to the Christmas Planet and get more gifts.
What's new in v.2.0.0
Comets, moving platforms, better graphics,
afterburner in horizontal thrust
The code of some images was added to this bas file
using BASIMAGE.BAS v0.22 by Dav.
Code: (Select All)
'============================================================
' Christmas Lander version 2.0.0 (QB64)
' Freeware (c) Filroe, December 14, 2025
' For Kalliroe
' What's new: Comets, moving platforms, better graphics
' afterburner in horizontal thrust
'============================================================
'The code of some images was added to this bas file using
'BASIMAGE.BAS v0.22 by Dav
'============================================================
'$ExeIcon:'CL.ico'
_Title ("Christmas Lander")
Dim Shared col4&, VelHor2
Dim Shared Scr.width, Scr.height As Integer
Scr.width = 1000
desktopH& = _DesktopHeight
If desktopH& <= 800 Then Scr.height = desktopH& - 80 Else Scr.height = 800
handle& = _NewImage(Scr.width, Scr.height, 32)
Lander& = _NewImage(45, 40, 32)
Dim Shared Gift&
Dim Shared Ufo&
Dim Shared TotalUfo As Integer, Gifts As Integer
Dim Shared Comet&
Dim Shared TotalComet As Integer, Comets As Integer
Dim cd&(11)
Gifts = 0
Gift& = _NewImage(27, 27, 32)
Ufo& = _NewImage(31, 31, 32)
Comet& = _NewImage(20, 20, 32)
Back& = _NewImage(Scr.width, Scr.height - 50, 32)
Saint& = ImageSaint&
Dim Shared Uranus&
Uranus& = ImageUranus&
Screen handle&
_ScreenMove 1, 1
Dim Shared MaxUfo, MaxComet, MaxLspeed, Xspeed!, DIFFICULTY
'==================== DIFFICULTY SETUP =====================
DIFFICULTY = 2 ' 1:EASY, 2:NORMAL, 3:HARD, 4:INSANE
'===========================================================
Const KEY_LEFT = 19200
Const KEY_RIGHT = 19712
Const KEY_UP = 18432
Const KEY_DOWN = 20480
Const KEY_Lctrla = 306
Const KEY_Rctrla = 305
Const KEY_Lctrlb = 100306
Const KEY_Rctrlb = 100305
Dim Lander.L As Single, Lander.T As Single ' ---- Lander's position
Dim Shared collision As Integer, YouWon As Integer, YouWon2 As Integer, Xcolor&, Xcolor2&
Xcolor& = _RGB(0, 200, 0) ' Collision detection color, used in platforms and ufos, nowhere else
Xcolor2& = _RGB(250, 100, 0)
Randomize Timer
Stage = 1
Stars = 0
'====================================================================
'======== If you don't want music, comment the next 4 lines =========
Timer1% = _FreeTimer
On Timer(Timer1%, 34) PlayMusic
Timer(Timer1%) On
PlayMusic
'====================================================================
ShowIntro
_PutImage , handle&, Lander&, (180, 90)-(224, 129) '--- get Lander& from Handle& portion
_PutImage , handle&, Gift&, (189, 139)-(215, 165) '--- get Gift& from Handle& portion
_PutImage , handle&, Ufo&, (235, 235)-(265, 265) '--- get Ufo& from Handle& portion
'===============================================================================================
Select Case DIFFICULTY
Case 1
MaxUfo = 4: MaxComet = 3: MaxLspeed = 2: Xspeed! = 2.1
Case 2
MaxUfo = 6: MaxComet = 4: MaxLspeed = 3: Xspeed! = 1.9
Case 3
MaxUfo = 8: MaxComet = 5: MaxLspeed = 4: Xspeed! = 1.7
Case 4
MaxUfo = 10: MaxComet = 6: MaxLspeed = 5: Xspeed! = 1.6
End Select
'----MaxUfo------Maximum Ufos (Fewer=easier)
'----MaxComet----Maximum Comets (Fewer=easier)
'----MaxLspeed---Maximum Lander speed (Less=easier to land but harder to avoid UFOs)
'----Xspeed!-----Maximum Landing crash-point speed (More=easier)
'HINT:If you stay at the top of the screen, the UFOs can't reach you.
'Use afterburner to brake or accelerate but not too often as it burns fuel a lot faster
'===============================================================================================
Background
_PutImage , handle&, Back&, (0, 50)-(Scr.width - 1, Scr.height - 1) '--- Get Back& (Background image) from Handle& portion
StartOver:
ClearKeyboard
GoSub Ini
'---------- Get ready LOOP -----------
L1 = 0: L2 = 2: L4 = 0: T1 = 0
Do
in$ = "": in$ = InKey$
If L1 < 10 Then L1 = L1 + 1 Else L1 = 0: LanderFlash "CHRISTMAS"
L4 = L4 + L2
If L4 > 200 Then L2 = -5
If L4 < 10 Then L2 = 5
col1& = _RGB(0, 50 + L4, 0): col0& = _RGB(0, 80, 0)
_PutImage (0, 50), Back&
DrawStars
DrawPlanet
DrawBase Bases, Lander.L
_PutImage (Lander.L, Lander.T), Lander&
T1 = T1 + 1: If T1 > 1000 Then T1 = 0
Select Case T1
Case 0 To 350
Line (351, 171)-(649, 359), _RGBA(0, 0, 110, 120), BF
Line (350, 170)-(650, 360), _RGB(0, 0, 150), B
_PutImage (370, 170), Saint&
_ClearColor _RGB(0, 0, 0), Saint&
TV.Noise 350, 170, 300, 190, 1000
col1& = _RGB(100, 250, 100)
col0& = _RGB(0, 100, 0)
PrintT 2, "GET MORE GIFTS !", 3, 380, 320, col1&, col0&
Case Else
PrintT 1, "STAGE" + Str$(Stage), 5, 405, 280, col1&, col0&
col1& = _RGB(50, 200, 0)
col0& = _RGB(0, 80, 0)
PrintT 0, "PRESS ENTER TO START", 3, 350, 320, col1&, col0&
PrintT 0, "LAND ON THE PLATFORMS", 3, 344, 140, col1&, col0&
PrintT 0, "AND GET THE CHRISTMAS GIFTS", 3, 299, 160, col1&, col0&
PrintT 0, "ARROWS : MOVE LANDER", 3, 350, 200, col1&, col0&
PrintT 0, "CTRL : AFTERBURNER", 3, 350, 220, col1&, col0&
PrintT 0, "ESC : EXIT", 3, 350, 240, col1&, col0&
End Select
_Delay .01
_Display
If in$ = Chr$(27) Then _AutoDisplay: GoTo TheEnd
If in$ = Chr$(13) Then Exit Do
Loop
_AutoDisplay
'============= Play LOOP ============
L1 = 0
Do
in$ = "": in$ = InKey$
If L1 < 10 Then L1 = L1 + 1 Else L1 = 0: LanderFlash "CHRISTMAS"
If Destroyed = 0 Or Destroyed = -1 Then
If collision = 0 Then Vel.Ver! = Vel.Ver! + .00984 * Lspeed: VelVer Vel.Ver! '------ Vertical Velocity accelarate in free fall
Lander.T = Lander.T + Vel.Ver!
If Lander.T > Scr.height - 40 Then collision = 4
Lander.L = Lander.L + Vel.Hor!
Alti = 1000 - Int((1000 * (Lander.T)) / (Scr.height - 40)): Altitude Alti
If Lander.T < 50 Then Lander.T = 50: Vel.Ver! = 0: VelVer Vel.Ver!
If Lander.L < 0 Then Lander.L = 0: Vel.Hor! = 0: VelHor Vel.Hor!
If Lander.L > Scr.width - 46 Then Lander.L = Scr.width - 46: Vel.Hor! = 0: VelHor Vel.Hor!
_PutImage (0, 50), Back&
DrawStars
DrawPlanet
DrawUfo TotalUfo, 1
DrawComet TotalComet, 1
DrawBase Bases, Lander.L
If Destroyed = 0 Then
_PutImage (Lander.L, Lander.T), Lander&
_ClearColor _RGB(0, 0, 0), Lander&
For I = 0 To 4 ' Lander's blinking lights
Line (Lander.L + 6 + I * 7, Lander.T + 17)-(Lander.L + 10 + I * 7, Lander.T + 21), _RGB(150 + Int(Rnd * 100), 80 + Int(Rnd * 80), 50 + Int(Rnd * 50)), BF
Line (Lander.L + 6 + I * 7, Lander.T + 17)-(Lander.L + 10 + I * 7, Lander.T + 21), _RGB(100, 100, 0), B
Next I
End If
End If
If Fuel1! < 20 Then PrintT 2, "LOW FUEL", 5, 403, 200, _RGB(250, 0, 0), _RGB(100, 0, 0)
If _KeyDown(KEY_Lctrla) Or _KeyDown(KEY_Rctrla) Or _KeyDown(KEY_Lctrlb) Or _KeyDown(KEY_Rctrlb) Then
afterburner = 2: afterburner2 = 1
PrintT 0, "AFTERBURNER", 2, 545, 5, _RGB(250, 0, 0), _RGB(100, 0, 0)
End If
If afterburner = 1 And afterburner2 = 1 Then afterburner2 = 0: Line (545, 5)-(670, 20), col4&, BF
If _KeyDown(KEY_LEFT) And Fuel1! > 0 And collision = 0 Then
Vel.Hor! = Vel.Hor! - .00984 * afterburner * Lspeed '------ Horizontal Velocity accelarate left
VelHor Vel.Hor!
If Fuel1! > 0 Then Fuel1! = Fuel1! - .001 * (afterburner ^ 4): Fuel Fuel1!
If Fuel1! < 0 Then Fuel1! = 0: Fuel Fuel1!
If afterburner = 1 And collision <> 4 Then Line (Lander.L + 47, Lander.T + 20)-(Lander.L + 56, Lander.T + 24), _RGB(120 + Int(Rnd * 130), 50, 50), BF ' Show Thrust
If afterburner = 2 And collision <> 4 Then Line (Lander.L + 47, Lander.T + 18)-(Lander.L + 59, Lander.T + 26), _RGB(120 + Int(Rnd * 130), 100, 100), BF ' Show Thrust
End If
If _KeyDown(KEY_RIGHT) And Fuel1! > 0 And collision = 0 Then
Vel.Hor! = Vel.Hor! + .00984 * afterburner * Lspeed '------ Horizontal Velocity accelarate right
VelHor Vel.Hor!
If Fuel1! > 0 Then Fuel1! = Fuel1! - .001 * (afterburner ^ 4): Fuel Fuel1!
If Fuel1! < 0 Then Fuel1! = 0: Fuel Fuel1!
If afterburner = 1 And collision <> 4 Then Line (Lander.L - 12, Lander.T + 20)-(Lander.L - 3, Lander.T + 24), _RGB(120 + Int(Rnd * 130), 50, 50), BF ' Show Thrust
If afterburner = 2 And collision <> 4 Then Line (Lander.L - 15, Lander.T + 18)-(Lander.L - 3, Lander.T + 26), _RGB(120 + Int(Rnd * 130), 100, 100), BF ' Show Thrust in afterburner
End If
If _KeyDown(KEY_UP) And Lander.T > 50 And Fuel1! > 0 Then
Vel.Ver! = Vel.Ver! - .00984 * 2 * afterburner * Lspeed: VelVer Vel.Ver! '------ Vertical Velocity accelarate up
If collision = 1 Then collision = 2
If Fuel1! > 0 Then Fuel1! = Fuel1! - .005 * (afterburner ^ 4): Fuel Fuel1! '------Fuel burns faster in afterburner
If Fuel1! < 0 Then Fuel1! = 0: Fuel Fuel1!
If afterburner = 1 And collision <> 4 Then Line (Lander.L + 20, Lander.T + 35)-(Lander.L + 24, Lander.T + 50), _RGB(120 + Int(Rnd * 130), 50, 50), BF ' Show Thrust
If afterburner = 2 And collision <> 4 Then Line (Lander.L + 18, Lander.T + 35)-(Lander.L + 26, Lander.T + 55), _RGB(120 + Int(Rnd * 130), 100, 100), BF ' Show Thrust in afterburner
End If
'----- collision detection down side (feet) -----
pd1& = Point(Lander.L + 4, Lander.T + 40)
pd2& = Point(Lander.L + 8, Lander.T + 40)
pd3& = Point(Lander.L + 36, Lander.T + 40)
pd4& = Point(Lander.L + 40, Lander.T + 40)
If collision = 0 And ((pd1& = Xcolor& Or pd2& = Xcolor&) And (pd3& = Xcolor& Or pd4& = Xcolor&)) Then collision = 1 ' -- NORMAL LANDING
If collision = 0 And ((pd1& = Xcolor& Or pd2& = Xcolor&) And (pd3& <> Xcolor& Or pd4& <> Xcolor&)) Then collision = 4: Cause = 3 ' --- CRASH
If collision = 0 And ((pd1& <> Xcolor& Or pd2& <> Xcolor&) And (pd3& = Xcolor& Or pd4& = Xcolor&)) Then collision = 4: Cause = 3 ' --- CRASH
If collision = 2 And pd1& <> Xcolor& And pd2& <> Xcolor& And pd3& <> Xcolor& And pd4& <> Xcolor& Then collision = 0 ' -- NORMAL LANDING AND LIFT OFF AGAIN
If collision = 0 And (pd2& = Xcolor2& Or pd3& = Xcolor2&) Then collision = 4 ' --- HIT BY THE COMET DOWN SIDE
'----- collision detection left side -----
cd&(1) = Point(Lander.L, Lander.T)
cd&(2) = Point(Lander.L - 1, Lander.T + 11)
cd&(3) = Point(Lander.L - 1, Lander.T + 22)
cd&(4) = Point(Lander.L - 1, Lander.T + 32)
'----- collision detection right side -----
cd&(5) = Point(Lander.L + 44, Lander.T)
cd&(6) = Point(Lander.L + 45, Lander.T + 11)
cd&(7) = Point(Lander.L + 45, Lander.T + 22)
cd&(8) = Point(Lander.L + 45, Lander.T + 32)
'----- collision detection up side -----
cd&(9) = Point(Lander.L + 11, Lander.T - 1)
cd&(10) = Point(Lander.L + 33, Lander.T - 1)
cd&(11) = Point(Lander.L + 22, Lander.T - 1)
For I = 1 To 11
If cd&(I) = Xcolor& Or cd&(I) = Xcolor2& Then collision = 4: Vel.Ver! = 0: VelVer Vel.Ver!: Vel.Hor! = 0: VelHor Vel.Hor!
Next I
'----------------------------------------
If collision = 1 And (Vel.Ver! > Xspeed! Or Vel.Hor! > Xspeed! Or Vel.Hor! < -Xspeed!) Then collision = 4: Cause = 4
If collision = 1 Then Vel.Ver! = 0: VelVer Vel.Ver!: Vel.Hor! = VelHor2: VelHor Vel.Hor!
If collision = 4 Then Vel.Ver! = 0: VelVer Vel.Ver!: Vel.Hor! = 0: VelHor Vel.Hor!: Destroyed = LanderExplode%(Lander.L, Lander.T)
_Display
_Delay .01
If YouWon = 1 Then Exit Do
If Destroyed = 1 Then Exit Do
If in$ = Chr$(27) Then Destroyed = 0: Exit Do
afterburner = 1
Loop
_AutoDisplay
If YouWon = 1 Then
EndGame 2, 0
_KeyClear 1
h = Lander.T: h2 = 1
Do
h2 = h2 + .5: h = h - (1 + h2)
_PutImage (0, 50), Back&
DrawStars
DrawPlanet
_PutImage (Lander.L, h), Lander&
_Delay .01
_Display
If h < 51 Then Exit Do
Loop Until InKey$ <> ""
_AutoDisplay
Stage = Stage + 1: GoTo StartOver
End If
If Destroyed = 1 Then
Line (0, 41)-(_Width, 49), col4&, BF
_PutImage (0, 50), Back&
DrawStars
DrawPlanet
DrawBase Bases, Lander.L
EndGame 1, Cause: GoTo StartOver
End If
' -----------------------------------------------------------
TheEnd:
_FreeImage Back&
_FreeImage Lander&
_FreeImage Gift&
_FreeImage Ufo&
_FreeImage Comet&
System
End
'============================================================
Ini:
VelHor2 = 0
Cause = 0
Destroyed = 0
YouWon = 0
YouWon2 = 0
afterburner = 1
afterburner2 = 0
collision = 0
Vel.Hor! = 0
Vel.Ver! = 0
Lander.L = Int(Scr.width / 2) - 20
Lander.T = 50
Lspeed = Int((Stage + 1) / 2)
If Lspeed > MaxLspeed Then Lspeed = MaxLspeed
col4& = _RGB(0, 25, 0)
Line (0, 0)-(_Width, 49), col4&, BF
Line (900, 25)-(990, 40), col4&, BF
PrintT 0, "STAGE" + Str$(Stage), 3, 820, 25, _RGB(0, 220, 0), _RGB(0, 70, 0)
col1& = _RGB(200, 200, 200)
col0& = _RGB(90, 90, 90)
PrintT 0, "DIFFICULTY" + Str$(DIFFICULTY), 2, 545, 25, _RGB(150, 150, 250), _RGB(50, 50, 150)
_PutImage (680, 8), Gift&
Line (715, 12)-(800, 27), col4&, BF
PrintT 0, LTrim$(Str$(Gifts)), 3, 715, 12, col1&, col0&
PrintT 0, "ALTITUDE (m)", 2, 5, 5, col1&, col0&
PrintT 0, " V.VERTICAL (m/s)", 2, 260, 5, col1&, col0&
PrintT 0, "V.HORIZONTAL (m/s)", 2, 260, 25, col1&, col0&
PrintT 0, " FUEL (lt)", 2, 5, 25, col1&, col0&
Alti = 935: Altitude Alti
Vel.Ver! = 0: VelVer Vel.Ver!
Vel.Hor! = 0: VelHor Vel.Hor!
Fuel1! = 100: Fuel Fuel1!
_PutImage (0, 50), Back&
_PutImage (Lander.L, Lander.T), Lander&
_ClearColor _RGB(0, 0, 0), Lander&
TotalUfo = Stage
If TotalUfo > MaxUfo Then TotalUfo = MaxUfo
DrawUfo TotalUfo, 0 '[TotalUfo:number of ufos], [0:reset position, 1
how ufos]
TotalComet = Stage
If TotalComet > MaxComet Then TotalComet = MaxComet
DrawComet TotalComet, 0 '[TotalComet:number of comets], [0:reset position, 1how comets]
Bases = 2 + Int(Rnd * 2) 'number of platforms
DrawBase Bases, -100
Return
' -----------------------------------------------------------
Function Single.To.Str$ (sts As Single)
Single.To.Str$ = Str$(Int(sts * 100) / 100)
End Function
' -----------------------------------------------------------
Function LanderExplode% (Lander.L, Lander.T)
Static D2%
D% = -2
If D2% < 40 Then D2% = D2% + 1 Else D2% = 0
If D2% = 1 Then D% = -1
If D2% = 40 Then D% = 1
If D2% Mod 5 = 0 Then
e1 = Int(Rnd * 50 + 200)
col1& = _RGB(e1, e1, 200): col0& = _RGB(0, 0, 0)
t1 = 5 + Int(Rnd * 6): t2 = 4 + Int(Rnd * 4): t3 = 3 + Int(Rnd * 2)
R1 = 5 + Int(Rnd * 20): R2 = 5 + Int(Rnd * 20): R3 = 5 + Int(Rnd * 20)
R4 = 5 + Int(Rnd * 20): R5 = 5 + Int(Rnd * 20): R6 = 5 + Int(Rnd * 20)
curve Lander.L + R1, Lander.T + R4, t1 + 3, 1, 2, col0&, 0, 360
curve Lander.L + R1, Lander.T + R4, 2, 1, t1, col1&, 0, 360
curve Lander.L + R2, Lander.T + R5, t2 + 3, 1, 2, col0&, 0, 360
curve Lander.L + R2, Lander.T + R5, 2, 1, t2, col1&, 0, 360
curve Lander.L + R3, Lander.T + R6, t3 + 3, 1, 2, col0&, 0, 360
curve Lander.L + R3, Lander.T + R6, 2, 1, t3, col1&, 0, 360
End If
LanderExplode% = D%
End Function
' -----------------------------------------------------------
Sub DrawBase (Bases, Lander.L)
Static BaseW, BaseWidth(), BaseLeft(), BaseTop(), Gift(), BaseD()
If Lander.L = -100 Then BaseW = 0
If BaseW = 0 And Bases > 0 Then
BaseW = Int(_Width / Bases)
collision = 0
ReDim BaseWidth(Bases), BaseLeft(Bases), BaseTop(Bases), Gift(Bases), BaseD(Bases)
For i = 1 To Bases
BaseWidth(i) = 100 '80 + Int(Rnd * 20)
BaseLeft(i) = 10 + Int(Rnd * (BaseW - BaseWidth(i) - 10))
BaseTop(i) = 500 + Int(Rnd * (_Height - 550))
BaseD(i) = Int(Rnd * 2) * 2 - 1 ' Base Direction left (-1) or right (1)
Gift(i) = 1 ' --- 1:Gift not taken, 0:Gift taken
Next i
End If
If collision = 1 Then
i2 = Int(_Width / Bases)
For i = 1 To Bases
If Lander.L < i2 * i Then Gift(i) = 0: Exit For
Next i
End If
i3 = 0
For i = 1 To Bases
BaseLeft(i) = BaseLeft(i) + BaseD(i)
If BaseLeft(i) > BaseW - BaseWidth(i) Then BaseD(i) = -1
If BaseLeft(i) < 0 Then BaseD(i) = 1
i1 = (i - 1) * BaseW + BaseLeft(i)
i2 = BaseTop(i)
Line (i1, i2)-(i1 + BaseWidth(i), i2 + 15), Xcolor&, BF ' --- DRAW BASES
Line (i1 - 1, i2 - 1)-(i1 + 1 + BaseWidth(i), i2 + 1 + 15), _RGB(0, 0, 0), B
If Gift(i) = 1 Then _PutImage (i1 + BaseWidth(i) / 2 - 13, i2 - 28), Gift& ' --- DRAW GIFT
If Gift(i) <> 1 Then i3 = i3 + 1
If collision = 1 And Gift(i) = 0 Then Gift(i) = 2: VelHor2 = BaseD(i)
Next i
If i3 = Bases Then YouWon = 1
If YouWon = 1 And YouWon2 = 0 Then ' how many gifts you got so far
YouWon2 = 1: Gifts = Gifts + Bases
Line (715, 12)-(800, 27), col4&, BF
PrintT 0, LTrim$(Str$(Gifts)), 3, 715, 12, _RGB(200, 200, 200), col4&
End If
End Sub
' -----------------------------------------------------------
Sub DrawUfo (UF, UFreset)
Static Ufos, UfoX(), UfoY(), UfoD(), UfoR(), sx(), sy()
Ufos = UF
If UFreset = 0 Then '0:Reset ufos position
ReDim UfoX(Ufos), UfoY(Ufos), UfoD(Ufos), UfoR(Ufos), sx(Ufos, 15), sy(Ufos, 15)
For i = 1 To Ufos
UfoY(i) = 100 + Int(Rnd * (_Height - 250))
UfoD(i) = Int(Rnd * 2) * 2 - 1 '-1:direction left, +1:direction right
UfoR(i) = 360 / i
If UfoD(i) = -1 Then UfoX(i) = -40 Else UfoX(i) = Scr.width + 10
For k = 1 To 15
sx(i, k) = k * (360 / 15) 'x pos
sy(i, k) = k * (360 / 15) 'y pos
Next k
Next i
Else
For i = 1 To Ufos
UfoX(i) = UfoX(i) + UfoD(i) * (1 + i * .2) 'ufo speed
If UfoY(i) > 100 Then
UfoR(i) = UfoR(i) + 1: If UfoR(i) > 360 Then UfoR(i) = UfoR(i) - 360
UfoY(i) = UfoY(i) + Sin(_Pi * UfoR(i) / 180)
End If
_PutImage (UfoX(i), UfoY(i)), Ufo&
_ClearColor _RGB(0, 0, 0), Ufo&
For k = 1 To 15
sx(i, k) = sx(i, k) + 1: If sx(i, k) >= 360 Then sx(i, k) = 360 - sx(i, k)
sy(i, k) = sy(i, k) + 1: If sy(i, k) >= 360 Then sy(i, k) = 360 - sy(i, k)
sxf = Sin(_Pi * sx(i, k) / 180) * 16 + 14
syf = Cos(_Pi * sy(i, k) / 180) * 16 + 14
Line (UfoX(i) + sxf, UfoY(i) + syf)-(UfoX(i) + sxf + 2, UfoY(i) + syf + 2), _RGB(50, 250, 50 + k * 10), BF
Next k
If UfoX(i) > Scr.width + 50 Or UfoX(i) < -50 Then
UfoY(i) = 100 + Int(Rnd * (_Height - 250))
UfoD(i) = UfoD(i) * -1 'change direction
End If
Next i
End If
End Sub
' -----------------------------------------------------------
Sub DrawComet (CO, COreset)
Static Comets, CometX(), CometY()
Comets = CO
If COreset = 0 Then '0:Reset Comets position
ReDim CometX(Comets), CometY(Comets)
For i = 1 To Comets
CometY(i) = -(500 + Int(Rnd * 100))
CometX(i) = 30 + Int(Rnd * (_Width - 50))
Next i
Else
For i = 1 To Comets
CometY(i) = CometY(i) + (1 + i * .8) 'Comet speed
If CometY(i) > _Height + 50 Then
CometY(i) = -(50 + Int(Rnd * 100))
CometX(i) = 30 + Int(Rnd * (_Width - 50))
End If
If CometY(i) > 50 Then
For i2 = 17 To 1 Step -1 ' --- DRAW COMET'S TAIL
x = CometX(i) + 10
y = CometY(i) + 15 - i2 * 5 - 5
r = 10 - Int(i2 / 2)
r2 = Int(r / 2) - 1
If y - r > 50 Then
d = Int(Rnd * 2) * 2 - 1
Line (x - r2 - d - 1, y - r2 - d)-(x + r2 + d, y + r2 + d + Int(Rnd * 5)), _RGB(200 - Rnd * (i2 * 10), 0, 0), BF
End If
Next i2
_PutImage (CometX(i), CometY(i)), Comet&: _ClearColor _RGB(0, 0, 0), Comet&
End If
Next i
End If
End Sub
' -----------------------------------------------------------
Sub DrawStars
Static Stars, Star(), StarX(), StarY()
If Stars = 0 Then
Stars = 50
Dim Star(Stars), StarX(Stars), StarY(Stars)
For i = 1 To Stars
StarX(i) = Int(Rnd * Scr.width)
StarY(i) = 53 + Int(Rnd * 300)
If Point(StarX(i), StarY(i) + 7) < _RGB(0, 0, 150) Then Star(i) = 1
Next i
End If
For i = 1 To Stars
If Star(i) = 1 Then
i2% = Int(Rnd * 25)
If i2% = 1 Then
scol& = _RGBA(100 + Int(Rnd * 100), 100 + Int(Rnd * 100), 0, 100)
Else
scol& = _RGBA(200, 200, 200, 125)
End If
Line (StarX(i) - 3, StarY(i))-(StarX(i) + 3, StarY(i)), scol&
Line (StarX(i), StarY(i) - 3)-(StarX(i), StarY(i) + 3), scol&
Line (StarX(i) - 1, StarY(i) - 1)-(StarX(i) + 1, StarY(i) + 1), scol&, BF
End If
Next i
End Sub
' -----------------------------------------------------------
Sub DrawPlanet
Static Planet, PlanetX!
If Planet = 0 Then
PlanetX! = -100
Planet = 1
Else
PlanetX! = PlanetX! + .1
If PlanetX! > _Width + 100 Then PlanetX! = -100
_PutImage (PlanetX!, 100), Uranus&
_ClearColor _RGB(0, 0, 0), Uranus&
End If
End Sub
' -----------------------------------------------------------
Sub ShowIntro
Cls , _RGB(0, 0, 0)
curve 400, 800, 500, 1, 5, _RGB(0, 0, 150), 0, 360 ' --- DRAW PLANET
Paint (400, Scr.height - 5), _RGB(0, 0, 50), _RGB(0, 0, 150)
Line (181, 90)-(181, 99), _RGB(220, 200, 0), BF ' --- DRAW LANDER
Line (223, 90)-(223, 99), _RGB(220, 200, 0), BF
Line (190, 90)-(214, 99), _RGB(220, 200, 0), BF
Line (192, 91)-(212, 98), _RGB(150, 150, 0), BF
Line (180, 100)-(224, 122), _RGB(210, 200, 110), BF
Line (182, 102)-(222, 120), _RGB(255, 130, 40), BF
Line (184, 124)-(188, 129), _RGB(255, 130, 40), BF
Line (216, 124)-(220, 129), _RGB(255, 130, 40), BF
Line (189, 139)-(215, 165), _RGB(70, 40, 80), B ' --- DRAW GIFT
Line (190, 140)-(214, 164), _RGB(180, 100, 190), BF
Line (190, 140)-(214, 164), _RGB(240, 100, 255), B
Line (191, 150)-(213, 154), _RGB(255, 155, 90), BF
Line (200, 141)-(204, 163), _RGB(255, 155, 90), BF
Circle (250, 250), 15, Xcolor&, 0, 2 * _Pi, 1 ' --- DRAW UFO
Paint (250, 250), Xcolor&, Xcolor&
Circle (250, 250), 6, _RGB(200, 200, 0), 0, 2 * _Pi, 1
Paint (250, 250), _RGB(200, 200, 0), _RGB(200, 200, 0)
Circle (95, 225), 10, _RGB(150, 10, 10), 0, 2 * _Pi, 1 ' --- DRAW COMET
Paint (95, 225), _RGB(150, 10, 10), _RGB(150, 10, 10)
Circle (95, 225), 8, Xcolor2&, 0, 2 * _Pi, 1
Paint (95, 225), Xcolor2&, Xcolor2&
_PutImage , handle&, Comet&, (85, 215)-(105, 235) '--- get Comet& from Handle& portion
For i = 17 To 1 Step -1 ' --- DRAW COMET'S TAIL
Circle (100 - i * 5, 230 - i * 5), 10 - i / 2, _RGB(200 - i * 10, 0, 0), 0, 2 * _Pi, 1: Paint (100 - i * 5, 230 - i * 5), _RGB(200 - i * 10, 0, 0), _RGB(200 - i * 10, 0, 0)
Next i
Circle (95, 225), 10, _RGB(150, 10, 10), 0, 2 * _Pi, 1
Paint (95, 225), _RGB(150, 10, 10), _RGB(150, 10, 10)
Circle (95, 225), 8, Xcolor2&, 0, 2 * _Pi, 1
Paint (95, 225), Xcolor2&, Xcolor2&
col1& = _RGB(250, 250, 150)
col0& = _RGB(100, 100, 50)
x = 110
PrintT 1, " GET THE CHRISTMAS GIFTS", 3, 110, 400, col1&, col0&
col1& = _RGB(110, 110, 250)
col0& = _RGB(50, 50, 150)
PrintT 0, " CHRISTMAS IS COMING ! SAINT NICHOLAS", 3, x, 450, col1&, col0&
PrintT 0, " IS PREPARING THE CHRISTMAS GIFTS", 3, x, 480, col1&, col0&
PrintT 0, " BUT SADLY THE GIFTS ARE NOT ENOUGH.", 3, x, 510, col1&, col0&
PrintT 0, " YOU HAVE TO TRAVEL TO THE CHRISTMAS", 3, x, 540, col1&, col0&
PrintT 0, " PLANET AND GET MORE GIFTS.", 3, x, 570, col1&, col0&
PrintT 0, "WILL YOU DO IT? THE KIDS COUNT ON YOU...", 3, x, 600, col1&, col0&
col1& = _RGB(200, 200, 200)
col0& = _RGB(80, 80, 120)
PrintT 0, "THIS GAME IS FREEWARE (C) FILROE, 2025", 2, 590, 5, col1&, col0&
col1& = _RGB(20, 200, 20)
col0& = _RGB(20, 50, 0)
Line (380, 6)-(420, 29), _RGB(250, 250, 200), BF
PrintT 0, Str$(DIFFICULTY), 3, 380, 10, col1&, col0&
PrintT 0, "SELECT DIFFICULTY (1-4):", 3, 10, 10, col1&, col0&
PrintT 0, "(1:EASY 2:NORMAL 3:HARD 4:INSANE)", 2, 10, 32, col1&, col0&
PrintT 0, "AND PRESS ENTER TO START", 3, 10, 50, col1&, col0&
text1$ = "CHRISTMAS": text2$ = "LANDER"
col0& = _RGB(100, 0, 0)
k = 0
Do
in$ = "": in$ = InKey$
If in$ = "1" Or in$ = "2" Or in$ = "3" Or in$ = "4" Then
DIFFICULTY = Val(in$)
col1& = _RGB(20, 200, 20): col0& = _RGB(20, 50, 0)
Line (380, 6)-(420, 29), _RGB(250, 250, 200), BF
PrintT 0, Str$(DIFFICULTY), 3, 380, 10, col1&, col0&
End If
If k < 250 Then k = k + 1 Else Exit Do '------- show intro for 25 secs
For i = 1 To Len(text1$)
col1& = _RGB(Int(Rnd * 150) + 150, 0, 0)
PrintT 2, Mid$(text1$, i, 1), i + 8, 150 + 2 * (i + 9) ^ 2, 100 - i * 5, col1&, col0&
PrintT 2, Mid$(text2$, i, 1), i + 11, 150 + 2 * (i + 12) ^ 2, 200, col1&, col0&
Next i
_Delay .1
Loop Until in$ = Chr$(13)
End Sub
' -----------------------------------------------------------
Sub Background
h1 = Int(Scr.height / 2) - 100
h2 = Int(Scr.height / 2) / 5
For i = 0 To Scr.height
i2 = 180 - i: If i2 < 1 Then i2 = 0
Line (0, i)-(Scr.width, i), _RGB(0, 0, i2)
Next i
d = Int(Rnd * 20)
For i = 1 To 5
If i = 5 Then c& = _RGB(60 - d, 100 - d, 70 - d + Int(Rnd * 30))
If i < 5 Then c& = _RGB(0, 15 + i * 18 - d, Int(Rnd * 50) - d)
' Xcolor& = _RGB(0, 200, 0) ' Collision detection color, used in platforms and ufos, nowhere else
' Xcolor2& = _RGB(250, 100, 0)
x1 = 0: y1 = h1 + i * h2
r1 = 15 + i * 2
r2 = 18 - i * 2
y3 = y1
Do
x2 = x1 + 1 + Int(Rnd * r1)
y4 = Int(Rnd * 2) * 2 - 1
If y1 < 210 Then y4 = 1
If i = 5 And y1 < _Height - 100 Then y4 = 1
y2 = y1 + (1 + Int(Rnd * r2)) * y4
Line (x1, y1)-(x2, y2), c&
x1 = x2: y1 = y2
If x2 >= Scr.width Then Exit Do
Loop
Paint (5, Scr.height - 5), c&
If i = 3 Or i = 4 Then
If i = 3 Then i5 = Int(_Width / 2) + 150 + Int(Rnd * (_Width / 2 - 300)) Else i5 = 150 + Int(Rnd * (_Width / 2 - 300))
i4 = 50 + Int(Rnd * 50): i4b = 50 + Int(Rnd * 50): i4c = 50 + Int(Rnd * 50)
For i3 = 1 To 28
Line (i5 + i3, y3 - i4)-(i5 + i3, _Height), _RGB(40, 40, 60 + i3 * 2) '------------BUILDINGS
Line (i5 + i3 + 50, y3 - i4b)-(i5 + i3 + 50, _Height), _RGB(40, 40, 60 + i3 * 2)
Line (i5 + i3 + 100, y3 - i4c)-(i5 + i3 + 100, _Height), _RGB(40, 40, 60 + i3 * 2)
Next i3
For i3 = 1 To 20
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 5, (y3 - i4) + i3 * 10)-(i5 + 8, (y3 - i4) + i3 * 10 + 5), c&, BF ' -----------WINDOWS
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 13, (y3 - i4) + i3 * 10)-(i5 + 16, (y3 - i4) + i3 * 10 + 5), c&, BF
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 21, (y3 - i4) + i3 * 10)-(i5 + 24, (y3 - i4) + i3 * 10 + 5), c&, BF
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 55, (y3 - i4b) + i3 * 10)-(i5 + 58, (y3 - i4b) + i3 * 10 + 5), c&, BF
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 63, (y3 - i4b) + i3 * 10)-(i5 + 66, (y3 - i4b) + i3 * 10 + 5), c&, BF
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 71, (y3 - i4b) + i3 * 10)-(i5 + 74, (y3 - i4b) + i3 * 10 + 5), c&, BF
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 105, (y3 - i4c) + i3 * 10)-(i5 + 108, (y3 - i4c) + i3 * 10 + 5), c&, BF
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 113, (y3 - i4c) + i3 * 10)-(i5 + 116, (y3 - i4c) + i3 * 10 + 5), c&, BF
c& = _RGB(50, 50, 50 + Int(Rnd * 130))
Line (i5 + 121, (y3 - i4c) + i3 * 10)-(i5 + 124, (y3 - i4c) + i3 * 10 + 5), c&, BF
Next i3
End If
Next i
End Sub
' -----------------------------------------------------------
Sub EndGame (eg, Cause)
ClearKeyboard
L1 = 0
Do
If eg = 1 Then col1& = _RGB(200, 200, 200): col0& = col4&: PrintT 1, "- FAILED -", 7, 325, 300, col1&, col0&
If eg = 2 Then
col1& = _RGB(150 + Rnd * 100, 50, 50): col0& = _RGB(125, 25, 25)
PrintT 2, " YOU MADE IT !", 5, 300, 300, col1&, col0&
PrintT 2, "MERRY CHRISTMAS !", 5, 300, 350, col1&, col0&
PrintT 2, " HO HO HO !", 5, 300, 400, col1&, col0&
End If
If Cause = 3 Then PrintT 1, "UNEVEN SURFACE LANDING", 4, 280, 350, col1&, col0&
If Cause = 4 Then PrintT 1, "HIGH HORIZONTAL", 4, 347, 350, col1&, col0&: PrintT 1, "OR VERTICAL SPEED", 4, 327, 380, col1&, col0&
_Display
_Delay .01
col1& = _RGB(0, 0, 0)
col0& = _RGB(0, 0, 0)
If eg = 1 Then PrintT 1, "- FAILED -", 7, 325, 300, col1&, col0&
If eg = 2 Then
PrintT 2, " YOU MADE IT !", 5, 300, 300, col1&, col0&
PrintT 2, "MERRY CHRISTMAS !", 5, 300, 350, col1&, col0&
PrintT 2, " HO HO HO !", 5, 300, 400, col1&, col0&
End If
If Cause = 3 Then PrintT 1, "UNEVEN SURFACE LANDING", 4, 280, 350, col1&, col0&
If Cause = 4 Then PrintT 1, "HIGH HORIZONTAL", 4, 347, 350, col1&, col0&: PrintT 1, "OR VERTICAL SPEED", 4, 327, 380, col1&, col0&
If L1 < 400 Then L1 = L1 + 1 Else L1 = 0: Exit Do
Loop Until InKey$ = Chr$(27)
_AutoDisplay
End Sub
' -----------------------------------------------------------
Sub ClearKeyboard
' _KeyClear 1
Do
in$ = "": in$ = InKey$
Loop Until in$ = ""
End Sub
' -----------------------------------------------------------
Sub LanderFlash (text$)
For i = 1 To Len(text$)
col1& = _RGB(Int(Rnd * 150) + 150, 0, 0): col0& = _RGB(100, 0, 0)
PrintT 0, Mid$(text$, i, 1), 3, 820 + (4 * (i - 1)) * 4, 5, col1&, col0&
Next i
End Sub
' -----------------------------------------------------------
Sub Altitude (Alti As Integer)
col1& = _RGB(200, 200, 0)
col0& = _RGB(100, 100, 0)
Line (140, 2)-(220, 18), _RGB(50, 50, 50), BF
PrintT 0, Str$(Alti), 2, 140, 5, col1&, col0&
End Sub
' -----------------------------------------------------------
Sub VelVer (Vel.Ver!)
If Vel.Ver! <= Xspeed! Then col3& = _RGB(50, 50, 50) Else col3& = _RGB(150, 50, 50)
Line (450, 2)-(530, 18), col3&, BF
col1& = _RGB(200, 200, 0)
col0& = _RGB(100, 100, 0)
PrintT 0, Left$(Single.To.Str$(Vel.Ver!), 5), 2, 455, 5, col1&, col0&
End Sub
' -----------------------------------------------------------
Sub VelHor (Vel.Hor!)
If Vel.Hor! >= -Xspeed! And Vel.Hor! <= Xspeed! Then col3& = _RGB(50, 50, 50) Else col3& = _RGB(150, 50, 50)
Line (450, 22)-(530, 38), col3&, BF
col1& = _RGB(200, 200, 0)
col0& = _RGB(100, 100, 0)
PrintT 0, Left$(Single.To.Str$(Vel.Hor!), 5), 2, 455, 25, col1&, col0&
End Sub
' -----------------------------------------------------------
Sub Fuel (Fuel1!)
Select Case Fuel1!
Case Is >= 20
col3& = _RGB(50, 50, 50)
Case Is < 20
col3& = _RGB(150, 50, 50)
End Select
Line (140, 22)-(220, 38), col3&, BF
col1& = _RGB(200, 200, 0)
col0& = _RGB(100, 100, 0)
PrintT 0, Left$(Str$(Fuel1!), 5), 2, 140, 25, col1&, col0&
End Sub
' -----------------------------------------------------------
Sub curve (cleft, ctop, cRa, caspect!, cthick, ccolor&, cstart, cend)
sx = 90 'x pos
sy = 90 'y pos
For sr2 = cRa To cRa + cthick
i2 = -1
For k2 = 1 To 360
sx = sx + 1: If sx >= 360 Then sx = 360 - sx
sy = sy + 1: If sy >= 360 Then sy = 360 - sy
sxf = Sin(_Pi * sx / 180) * sr2
syf = Cos(_Pi * sy / 180) * sr2 * caspect!
i2 = i2 + 1: If i2 > 360 Then i2 = i2 - 360 'i2:degrees
If i2 >= cstart And i2 <= cend Then Line (cleft + sxf, ctop + syf)-(cleft + sxf + 9, ctop + syf + 9), ccolor&, BF
Next k2
Next sr2
End Sub
' -----------------------------------------------------------
Sub PlayMusic
Play "mbV20o2 l4cf.l8el4fag.l8fl4gl8agl4f.l8fl4a>cl2dl4dl4c.<l8al4afg.l8fl4gl8agl4f.l8dl4dcl2f>l4dc.<l8al4afg.l8fl4g>dc.<l8al4a>cl2dl4dc.<l8al4afg.l8fl4gl8agl4f.l8dl4dcl1f"
End Sub
' -----------------------------------------------------------
Sub PrintT (style%, text$, psize, pleft, ptop, pcolor1&, pcolor2&)
For i = 1 To Len(text$)
xs = psize
col1& = pcolor1&: col0& = pcolor2&
If style% = 0 Then
s% = -1
xt = ptop
xl = pleft + (i - 1) * xs * 5
End If
If style% = 1 Then
s% = Int(Rnd * 500) + 500
xt = ptop
xl = pleft + (i - 1) * xs * 5
End If
If style% = 2 Then
s% = Int(Rnd * 500) + 500
xt = ptop + Int((Rnd * 2) * 2 - 1)
xl = pleft + (i - 1) * xs * 5 + Int((Rnd * 2) * 2 - 1)
End If
Select Case UCase$(Mid$(text$, i, 1))
Case "A"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Case "B"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 2 * xs, xt + xs)-(xl + 3 * xs, xt + 2 * xs), col1&, BF
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + xs)-(xl + 3 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Case "C"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "D"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + 1 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 1 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Case "E"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "F"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Case "G"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + 3 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 3 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "H"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Case "I"
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 1.4 * xs, xt + xs)-(xl + 2.6 * xs, xt + 4 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 1.4 * xs, xt + xs)-(xl + 2.6 * xs, xt + 4 * xs), col0&, B , s%
Case "J"
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt + 3 * xs)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl, xt + 3 * xs)-(xl + xs, xt + 5 * xs), col0&, B , s%
Case "K"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 2 * xs, xt + xs)-(xl + 3 * xs, xt + 2 * xs), col1&, BF
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + xs)-(xl + 3 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Case "L"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "M"
Line (xl, xt + xs)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + 1.6 * xs, xt + xs), col1&, BF
Line (xl + 2.4 * xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + 1.4 * xs, xt + xs)-(xl + 2.6 * xs, xt + 2 * xs), col1&, BF
Line (xl, xt + xs)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl, xt)-(xl + 1.6 * xs, xt + xs), col0&, B , s%
Line (xl + 2.4 * xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + 1.4 * xs, xt + xs)-(xl + 2.6 * xs, xt + 2 * xs), col0&, B , s%
Case "N"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + xs)-(xl + 2 * xs, xt + 2 * xs), col1&, BF
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + xs)-(xl + 2 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Case "O"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Case "P"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Case "Q"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 2 * xs, xt + 3 * xs)-(xl + 3 * xs, xt + 4 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + 3 * xs)-(xl + 3 * xs, xt + 4 * xs), col0&, B , s%
Case "R"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + 2 * xs, xt + 3 * xs)-(xl + 3 * xs, xt + 4 * xs), col1&, BF
Line (xl + 3 * xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + 3 * xs)-(xl + 3 * xs, xt + 4 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "S"
Line (xl, xt)-(xl + xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "T"
Line (xl + 1.4 * xs, xt + xs)-(xl + 2.6 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + 1.4 * xs, xt + xs)-(xl + 2.6 * xs, xt + 5 * xs), col0&, B , s%
Line (xl, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Case "U"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Case "V"
Line (xl, xt)-(xl + xs, xt + 3 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt + 3 * xs)-(xl + 1.6 * xs, xt + 4 * xs), col1&, BF
Line (xl + 2.4 * xs, xt + 3 * xs)-(xl + 4 * xs, xt + 4 * xs), col1&, BF
Line (xl + 1.4 * xs, xt + 4 * xs)-(xl + 2.6 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 3 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col0&, B , s%
Line (xl, xt + 3 * xs)-(xl + 1.6 * xs, xt + 4 * xs), col0&, B , s%
Line (xl + 2.4 * xs, xt + 3 * xs)-(xl + 4 * xs, xt + 4 * xs), col0&, B , s%
Line (xl + 1.4 * xs, xt + 4 * xs)-(xl + 2.6 * xs, xt + 5 * xs), col0&, B , s%
Case "W"
Line (xl, xt)-(xl + xs, xt + 4 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 4 * xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + 1.6 * xs, xt + 5 * xs), col1&, BF
Line (xl + 2.4 * xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + 1.4 * xs, xt + 3 * xs)-(xl + 2.6 * xs, xt + 4 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 4 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 4 * xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + 1.6 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 2.4 * xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 1.4 * xs, xt + 3 * xs)-(xl + 2.6 * xs, xt + 4 * xs), col0&, B , s%
Case "X"
Line (xl, xt)-(xl + xs, xt + xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + .4 * xs, xt + xs)-(xl + 1.6 * xs, xt + 2 * xs), col1&, BF
Line (xl + 2.4 * xs, xt + xs)-(xl + 3.6 * xs, xt + 2 * xs), col1&, BF
Line (xl + .4 * xs, xt + 3 * xs)-(xl + 1.6 * xs, xt + 4 * xs), col1&, BF
Line (xl + 2.4 * xs, xt + 3 * xs)-(xl + 3.6 * xs, xt + 4 * xs), col1&, BF
Line (xl + 1.4 * xs, xt + 2 * xs)-(xl + 2.6 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + .4 * xs, xt + xs)-(xl + 1.6 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 2.4 * xs, xt + xs)-(xl + 3.6 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + .4 * xs, xt + 3 * xs)-(xl + 1.6 * xs, xt + 4 * xs), col0&, B , s%
Line (xl + 2.4 * xs, xt + 3 * xs)-(xl + 3.6 * xs, xt + 4 * xs), col0&, B , s%
Line (xl + 1.4 * xs, xt + 2 * xs)-(xl + 2.6 * xs, xt + 3 * xs), col0&, B , s%
Case "Y"
Line (xl, xt)-(xl + xs, xt + xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + .4 * xs, xt + xs)-(xl + 1.6 * xs, xt + 2 * xs), col1&, BF
Line (xl + 2.4 * xs, xt + xs)-(xl + 3.6 * xs, xt + 2 * xs), col1&, BF
Line (xl + 1.4 * xs, xt + 2 * xs)-(xl + 2.6 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + .4 * xs, xt + xs)-(xl + 1.6 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 2.4 * xs, xt + xs)-(xl + 3.6 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 1.4 * xs, xt + 2 * xs)-(xl + 2.6 * xs, xt + 5 * xs), col0&, B , s%
Case "Z"
Line (xl, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + 3 * xs, xt + xs)-(xl + 4 * xs, xt + 2 * xs), col1&, BF
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 4 * xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + 3 * xs, xt + xs)-(xl + 4 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 4 * xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "0"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Case "1"
Line (xl + 2 * xs, xt)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 2 * xs, xt + xs), col1&, BF
Line (xl + 2 * xs, xt)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 2 * xs, xt + xs), col0&, B , s%
Case "2"
Line (xl, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt + 2 * xs)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl, xt + 2 * xs)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "3"
Line (xl, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Case "4"
Line (xl, xt)-(xl + xs, xt + 3 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 3 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Case "5"
Line (xl, xt)-(xl + xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "6"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 4 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt + 2 * xs)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "7"
Line (xl, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 2 * xs), col1&, BF
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 5 * xs), col0&, B , s%
Case "8"
Line (xl, xt)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 5 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "9"
Line (xl, xt)-(xl + xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 5 * xs), col0&, B , s%
Case "-"
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Case "+"
Line (xl + xs, xt + 2 * xs)-(xl + 4 * xs, xt + 3 * xs), col1&, BF
Line (xl + 2 * xs, xt + 1 * xs)-(xl + 3 * xs, xt + 4 * xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 4 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + 1 * xs)-(xl + 3 * xs, xt + 4 * xs), col0&, B , s%
Case "."
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col0&, B , s%
Case ","
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 6 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 6 * xs), col0&, B , s%
Case "/"
Line (xl + 3 * xs, xt + xs)-(xl + 4 * xs, xt + 2 * xs), col1&, BF
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 4 * xs), col1&, BF
Line (xl, xt + 4 * xs)-(xl + xs, xt + 5 * xs), col1&, BF
Line (xl + 3 * xs, xt + xs)-(xl + 4 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + 2 * xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 4 * xs), col0&, B , s%
Line (xl, xt + 4 * xs)-(xl + xs, xt + 5 * xs), col0&, B , s%
Case "?"
Line (xl, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col1&, BF
Line (xl, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + 3 * xs, xt)-(xl + 4 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 2 * xs)-(xl + 3 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col0&, B , s%
Case "("
Line (xl + xs, xt + xs)-(xl + 2 * xs, xt + 4 * xs), col1&, BF
Line (xl + 2 * xs, xt)-(xl + 3 * xs, xt + xs), col1&, BF
Line (xl + 2 * xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt + xs)-(xl + 2 * xs, xt + 4 * xs), col0&, B , s%
Line (xl + 2 * xs, xt)-(xl + 3 * xs, xt + xs), col0&, B , s%
Line (xl + 2 * xs, xt + 4 * xs)-(xl + 3 * xs, xt + 5 * xs), col0&, B , s%
Case ")"
Line (xl + 2 * xs, xt + xs)-(xl + 3 * xs, xt + 4 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 2 * xs, xt + xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col1&, BF
Line (xl + 2 * xs, xt + xs)-(xl + 3 * xs, xt + 4 * xs), col0&, B , s%
Line (xl + xs, xt)-(xl + 2 * xs, xt + xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col0&, B , s%
Case ":"
Line (xl + xs, xt + 1 * xs)-(xl + 2 * xs, xt + 2 * xs), col1&, BF
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 4 * xs), col1&, BF
Line (xl + xs, xt + 1 * xs)-(xl + 2 * xs, xt + 2 * xs), col0&, B , s%
Line (xl + xs, xt + 3 * xs)-(xl + 2 * xs, xt + 4 * xs), col0&, B , s%
Case "!"
Line (xl + xs, xt)-(xl + 2 * xs, xt + 3 * xs), col1&, BF
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col1&, BF
Line (xl + xs, xt)-(xl + 2 * xs, xt + 3 * xs), col0&, B , s%
Line (xl + xs, xt + 4 * xs)-(xl + 2 * xs, xt + 5 * xs), col0&, B , s%
End Select
Next i
End Sub
'-----------------------------------------------------------------------------------------
Sub TV.Noise (TV.L, TV.T, TV.W, TV.H, TV.N) 'Left Top Width Height Noise
Static y3
If y3 < TV.H Then y3 = y3 + 5 Else y3 = 0
For i = 1 To TV.N
x1 = 2 + Int(Rnd * (TV.W - 4))
y1 = 2 + Int(Rnd * (TV.H - 4))
x2 = x1 + Int(Rnd * 4) * Int(Rnd * 2) * 2 - 1
y2 = y1 + Int(Rnd * 4) * Int(Rnd * 2) * 2 - 1
tvp& = Point(TV.L + x1, TV.T + y1)
Line (TV.L + x1, TV.T + y1)-(TV.L + x2, TV.T + y2), tvp&, BF
Next i
End Sub
'-----------------------------------------------------------------------------------------
Function ImageSaint&
v& = _NewImage(260, 190, 32)
Dim m As _MEM: m = _MemImage(v&)
A$ = ""
A$ = A$ + "haIkM^0[\MENOoBaR6`#:1OQN_fH7#6^6`V;G^fXdB8#12AXd6A2]9RBZR#9"
A$ = A$ + "E9YDTRB:5Z31A4D3d8N439efAG0C07C\#dH25LKC:TB<XJJYlf4;L04a^6o0"
A$ = A$ + "K7\anJS_CVO[ilO>Ocj\N^O<cNO>kAj_VcIVm\O^nn_nN_fgnfg\m=Q9<Q9<"
A$ = A$ + "ba_noVoIc>[mOI><V>_W`4V#g2h2N6WfU?kYO`oPI7i0GlLL9cok;MDM=<Da"
A$ = A$ + "Cj<o#EmiCH2KB`hBa5h3a=`g?V^Vfdg?imcj7n:VMP7fkdQoQ?\gj\CiTN3c"
A$ = A$ + ">SCm3>k\?be]5^nI?USL]^]cnkV`4jCH7WMXiS73=^KQn0kT?HKNQ;I#O=>T"
A$ = A$ + "^GO`7n5=kAo3lFLL0jMToOBWmWcQWlilig1hcIK4g`4V#O0=goiNJ_;7>j1O"
A$ = A$ + "g>`OSm0lmWg1OO>m0Vh3J>>hShM_D?0Y;`So<nXcN:7n[TT7`WC0`_i`7mK>"
A$ = A$ + "Z^nW`h1FN0;#>W_GoM><V^VkK8M\#GP7c3MQ>0R7#L0iToc1Y_`TM4CX[`IN"
A$ = A$ + ":_gPL12h7aLf:0HKW6G^P7PkIX;P??#>K2J2HOM>7i66EgSV``4<f=5G0j=L"
A$ = A$ + "Xmon;BgPWlIlW>Z^fk34R7Ho?TgL_`342SYkECHh1ikPDL2ilK`T_3FP`l0G"
A$ = A$ + "oJQ7`Z[0nEHB?]j0g_NjWfE<kX7m:7EWgm1bYO#9j6\GfFQ3Nb7;PM1[GN0O"
A$ = A$ + ">1RAi4W#i`jO\adiMOPHnBdjCaLH_H<`>dn_\ERIHOiOPV2W?;Wh4b2olZQH"
A$ = A$ + "Y=V>o[5B^Va_QnN=oNCi2Hk6jg3j:8i;KL31T3A35NP9>QbA\ahSY[QB1iET"
A$ = A$ + "efOh1m7KP_2K[_3>_CM_C]<hkS0d;0M2TNj39^01>o6CgSGW8Zn^kRZ?7Gn3"
A$ = A$ + "=G6eGF>T?oBa5DRn1k5lS8g?QKEf6h7gPQ87P?VR7IH4;>jQVkL83TgSE_0<"
A$ = A$ + "WOXieic\fiGB\5ba74jnf^=OdBn4Ii1\j5<De9HB?Qb#<nPadlLFoO4DN<QN"
A$ = A$ + "nFKmca7TGgP;NUmeIOb_jIWcnneLH<LO\4L`OXgk>h2D]6<Fh14To=REO:k5"
A$ = A$ + "Ajl\kB7lWoU4[?nk^P?8W_3Tn9\O4?`^9nPHL1?a3M=S:NP#l2hWaadcRn2Y"
A$ = A$ + "h36jn9WcmHbX4S4a9XL>\4mPJSn1bW;7JO_^M`7<V]IPkOna?`F7RS9K4ba;"
A$ = A$ + "\G_VXRE3onjoZa535o<VjlFWkhg0k_9ffJS7#Kh3hg7R;0P]33QkK=14Gf#j"
A$ = A$ + "5#n5<4SYHKQlehNAK8b=>g:[`O[iD72fBTWChBFY62P;;VNnjIOCi2hNC8NP"
A$ = A$ + "M3f<HSWX_?3f]a58m4f[J31nG?W=aBFagf2bS_=iinfaA<^=?lMFk62aQH]I"
A$ = A$ + "X9n>POo9MJoDIi36KcghjC91lI0f9Lj?bS][T;`7k5S1A9j1C]=4jkR=67Of"
A$ = A$ + "^>_6B=7^_?22aOXLE\9j7DR^1SAm3`W7kU\C8Un2SYWK]1Yj3PFIY#c?V:OO"
A$ = A$ + "e_5NTeeebRiagY?6eo[]Cfmh[7Tf7Ub7XmK9L1SAnP#n#4dEm^Ta4hJVJgN<"
A$ = A$ + "ml[abAcW78Vn`;l;gU]3IRHiWP_lXO>odW`j3P#G;ZGV0RMmDS^1L]E:G`HS"
A$ = A$ + "?0mk2a5#>8^Yi2\jVXn\ZoWg77c=E>=N3o]ggJoHVJL?OW_>4QbkWhaokBSN"
A$ = A$ + "LmSQAGQHnEPcKa9hO^2_e4O`24CgP=U?4eaDm#Ea=ImY1fa`WA?H\_h8FWe3"
A$ = A$ + "Uh1V=k4cVM?gb2LOga\I?`=gkL4al?PTQbE3TFmWmUI2MldLdM=OPO?9RcKo"
A$ = A$ + "c;a9\CM4^hPaK<Tm7lie`5<Vh32YK0bKhKae9GPTU570e<9blQhYRY;SjA[M"
A$ = A$ + "E=Fa_oYMNO[ebcQIc^g]i1>n]^2>agm;fkL2UDkNQTaCkom5mShHL1M5OP=g"
A$ = A$ + "2Eo;`aQ=WWSimSa94BGXLj7D[N12SUNR#8M3#fJM:ocl`83OVkom]T3`_nYZ"
A$ = A$ + "5L=4BoQVLNfg?3V=k>3b3hPh8V[W#ON>PO2R9oSL]mcd_9eJBR=71]L1jkej"
A$ = A$ + "FBGMnW[FT\bgJ>NK>98>S]?gf6f[]Wf1^`6a7<6bAA^O4BF2IX^DNgZ7_TmO"
A$ = A$ + "2WiW`E[D8ogFIoBP\a#l3nWGY^>j;O9`Lnad9H5<g^Qkofn<c^gCLGmjhQ#j"
A$ = A$ + "G;n0N7I1ik0Tg3c5L91Sgh>i2F\OkRckBZ=aDX\NRhRciV`5<F\G8El5KR<o"
A$ = A$ + "2Im[g9_M>7nCjdiodn1Ok;]eWm?o?X_UoCa;X[C]F#E2_`QOjoeMjmNT]3b5"
A$ = A$ + "X?cnMcOon^e?mL>Q[Yc73PN\ho=`2M[gf?LR3hUlL^fE#\J4Bel#8O^4K^g^"
A$ = A$ + "hJXYl1Ll?k7a5>kLOYGe\;hClmVm2NUGX3?[GlkHf?acl?dIkQmLUk5PHiUl"
A$ = A$ + "HV?Pe7U#b;<_M>iNiWO=7o3JO_NW<nkh]nYG<66KQGRij2k0omGf1V[k=m6_"
A$ = A$ + "2g_Cof=5oP\]8G=Kfef=4R;h4WH^_4aOR2h?a]h3hN60O9d:ioij4^8F02Yb"
A$ = A$ + "m^;N7L12aSAiUhTe#o1Gn?>g6n#l0M]m2`WE27PEnognofM<kEoQ^YIWoObg"
A$ = A$ + "fQOdGf5<kiob_`I?_Oe;dm^nK1n]RC844W1KWUcPoNXWORQb;Iig0oHlaOSo"
A$ = A$ + "5U?k#6f9k_UlnmLGgl>WC;VM`c7So0geGg=Ogml]_67PShNVo>Lb\_I>l=17"
A$ = A$ + "1lKiF_hJkmMW=2:62fk=1O]5W`l_WkIM1W#9n<DPaeah3hkBIcM>4:>5]5FO"
A$ = A$ + "2bah9MPoXI7lIoYM0IO[lo_iENc[0nLa742`7TR;`7Loi5nKL\I_XGkO\3o;"
A$ = A$ + "n]oC6\L2aR_8fF;IO[Om#6mEm[nAGEn?Um^U0?^1=FoNPOhh;h8#72hPhh;K"
A$ = A$ + "=jK>QLecMGXW#H^0d98>OPlQ`2d<k6FXK`Zc[O`7l_[3XK<jL3Wl;kl^jIGn"
A$ = A$ + "7iK=k3oGNS>lcL`oW^?30G0o??Gl]]^4hTGk9O[ahG9okS#L0eb7lSl\ZS?`"
A$ = A$ + "ZWQ#O;Kg44Bg0TeT\?om7hmmI2?oOKi1BXg0ckIi64o`m\U>42OZoR?n\SMA"
A$ = A$ + "OH77e_b?ko57h_QoP?o3MIGeBX]CjN0H\L:^UDiMAKi3>n\]lKP^ng1GP\GH"
A$ = A$ + "n;I_PaWReZSP=>U8_oCOV_kI?c7dKcY3koWkhk=kCn=_SIGm=LWcn9?io7cN"
A$ = A$ + "Ako?gQSmN^NgWmYnooMM_olO#Geb_ken:nB^O3h;LlSknOh7T^b;\iNQM8bf"
A$ = A$ + "1;7#G>79a2>Vl_5WlQoOiTgCa70OaoTOigJDn00nEHg4OPO=;YiNSZkOG;kG"
A$ = A$ + "2_`:n?Kkaon0>RBnOkW;^U_og1^^5l:bn4K<>BiCefJg0a=dNM^3>0NiOoH;"
A$ = A$ + "d4n0TiULoQggKda50h_ic#V7iJ9_3ncn2g^kc5li:dW3G1L1jknafgoeIOeI"
A$ = A$ + "Ooin:m^kUa_`]A?[X4>PV`7PnmYh30eHc`#W?0>JVG4I0iW_>AgoNTO87_#K"
A$ = A$ + "Q\?1M;T>3`=#\7BIg0[i;=R?`gFQ#nM94G\Wn1LOYTSWVW7IOd9#l10mM83K"
A$ = A$ + "U[Qo#blYh:HOJeMPoFjKXSGKlAPd]QgOmoi7gi3#TMk3n0`;ielaBb5#\7f="
A$ = A$ + "a7PO3BU7L3E>1V;\?i44`f2Ok6jJo8dXkkKMO`ol=ga2KCRa7lcoln01i3hM"
A$ = A$ + "nO9ckcE0oPU?0M2dgQo5BMlnJcE1b:WGRl_lm_\oW?[FnP7ech_<;G0hEL9G"
A$ = A$ + "K_c7\9Z?UPS3E>`EbhaLa4?G\4j9dgl1X[PlMY\W:EmMB^FDocQ]b1Y:i2le"
A$ = A$ + "C2kMb=f2mf]n1`J_`KhglS_lk#O09CWR?`ok2iK1kndNl`VDaC`fhO^j;oWB"
A$ = A$ + "^5ikJi4:Q?0M8j:k5>_Wl_O#nP=MN:BNQi\=]`aM;[SVPnh:4heLM>fU`9PL"
A$ = A$ + "VeGSijo3eVWB>o9ZH6DhcTPWW?`MTmHmUnNWHY\;bWFK5\n<4K0\f4He185G"
A$ = A$ + "1OWeg24C2;?Rmh9OE`aTc;kiioa?b\\L0FIFdo_Fn0ReH^m=KC:^PBb11;O#"
A$ = A$ + "XmaVV?HYm1aToMnA<VLO^GV]KM`7\VlWPE71G]Mm`_X>=N3L=\lI#V[i`G_U"
A$ = A$ + "5_A9_WBn40gPTYAnfj;aDL5lgalkPoaCl8L>5bOSUHO_lkG]L10ikQDP]Y[h"
A$ = A$ + "38fT39nP5imblGQdmOiloU:g7S;8`n_Wi3F7nBhjolGM`LE:Nl6Zc^1TaML2"
A$ = A$ + "fh96P[>6gg\IgHFK5hk;En4ml]n4dJSQ?GQon<V]4PnR?hWkemGe;l1MYn1a"
A$ = A$ + "h3fDeih=Mg9d;Xabo6k3f4nSL=XO#8K64`G2ASg#5m:1aYae2iSebW;cOg?o"
A$ = A$ + "\JZ^1`7hk7PHbW_RGlogERIXEgnHL5i\U0N4kaCl8lkI\YoiK9jc;n0ffnP?"
A$ = A$ + "0T:74P?0k0J3O`[hHoE[M^PPi4k:l1UZC`fL0^L[?G^8Kma8cmiSHKOZh^In"
A$ = A$ + "<K>k^9h3F4cQ[?N=?MT_Na?S86WfSIYlLYbk0;O4[o0FMkC=O]O>4Hi38V1a"
A$ = A$ + "n>bMA[]4FINRW#XLMPg3=N]DieV6SQBiJba7DJ>:B^;=Dh3LSgB=o]cN1[lN"
A$ = A$ + "4K7Rig;?iN9W:mPc=VFKW5fakFDS\BG1dWUjm:E_W?V]3iFSG`o^TCH^L0aS"
A$ = A$ + "C8??e=6MoBM3YJlSl24mJ]L1h[_#cG7;72TL]ENgW?h]L1Gg:o>KL7\7;RkH"
A$ = A$ + ":n00aGXDnPV4SQGiUFV_:cUcbUVSRah3X>66Ll1U>oLX]gDc1[Kide1`ORjN"
A$ = A$ + "8fj5RC`^>g7RChYNd_A#K7P;PNY0KSZ;<h4lc]bZi22D;BDC2FIGR_XMnJKN"
A$ = A$ + "2HcQ0PmkBaE4Cg1oL?`oh5jJPi=kcH<l_j]Wgo4ih3Z9746Bl1<oFWHOOVJ;"
A$ = A$ + "Hg8>amO;khnIZjL8Uo4d_GL3bo3fn290N1b5:\CAmi01n<RAI<o76Km8aW?#"
A$ = A$ + "e]#Xi[CUCAf_3k:\nJd6[aDl1fLO
^78dWaHhin_m;eJk5ZQ?8fnIda7d#>"
A$ = A$ + "PEZ=0Z?a4P]anK6<L19\=?ejKK^lEBj4h[7Q]7aB<=39cW:>2fnlE>nPHj_W"
A$ = A$ + ":WRZQ[0^1[_6mc59KN:5kjYDm30e6SQciWmcVMoGB=<D:O#XLAJCa7DLOhbW"
A$ = A$ + "78#m7WD7fibfOe_jGgIK6jSm;oOnVVm[o^nf>`W52jkIKig0^P;oVWmY_V[K"
A$ = A$ + "9G2__ni9BkgNgjLk9O91]OPJM8D>;UZW\1GQnm^eoZ:[k_L[OQDWQabMH[om"
A$ = A$ + "bE_BUbE#<:\ioL\LM0OL6Sg[6O:2ZE7QBh3bE33UVSRan]K:o7hR_M>>Q:i0"
A$ = A$ + "TLZTW]bgM5dnDl;h7\Kj6n\[XKAg[Gaehd9_Tk[QlYPM]_>EOGcb?XO;eDB]"
A$ = A$ + "?K3]63i3Z1lBZU9ojERH64;o3]L50;G1nF<G\=eg5S?XDk5JB<6`oSU`7T[6"
A$ = A$ + "6:=74RmkYgX\9h3^gkm^g>WG24;`Jd30I#kLoK:Hi:0lgBg2h<l]Ea?66fhF"
A$ = A$ + "\M_K[ImF4oN:SjG[B^?4G0_SM1fOCCF7XB]6V:Xj5#l1Fmg]L5=]f6]iN#8N"
A$ = A$ + "THl1LLSI3d5la?A_5SQB[aaLe`#Yl1HGa#R?08iiHaf;W]0l<^]l0okn?Mk1"
A$ = A$ + "AOcK0nK^UkMfmL?gU3gl=]CO3dVJ=3mk?cCim^R^2RC0K12e[I]mBJnM=iHV"
A$ = A$ + "c>11oNH#<ki[Yf6SUKRnO7SK\l1ni1AZ[an:63Ub7DB>:FRm23An0d1^fH20"
A$ = A$ + "?#WJ7`Kjk\C^PiOFOb78P^3R?hkl]_nN[FC3eoi#?0h00QjWlaF?DCQD[eRf"
A$ = A$ + "NG6iPPollFiCkLifJ#XVJK<fg1?3mS:[_:\j6XJN>6j[H<0O#9L=UD33UTSR"
A$ = A$ + "ah3nAoUNKK<nP5iYhmVU3#m4THn4#OVe7PFo7VTo80O#<m3HoXS1ooEla_Gg"
A$ = A$ + "lLO^_fgcm>o?bhJKbaKafLGgmgea7LWgi=jh4j[keT?Pfh5T2hGbVdg`2]n8"
A$ = A$ + "4R?PeoPDiZ\M^JoL>b_NUBEKSQn^DafLA];Tf?=eTgbe4SQBk12id?0DB>95"
A$ = A$ + "S?Ph#^Yh3dH>bk`Dj3h;K9iBYcmb\Gn4WH7#_#NEbaUH_Ph4hgLAOTKMfmMo"
A$ = A$ + "7?ja9eWciG:^1h3aG:>m4^[nM=>2P^2ab[AnLbkaV`5\#gPln=0>3V7`:GWb"
A$ = A$ + "oNh_f#iLL>^RHiZ\__::9g4]cOEC<6Z]>6:]VWS5[`J\I86O0HMb1#]Tkd7O"
A$ = A$ + ">n]nmf^>cYNiELoGb5<WW#bA:VQ8GKUm:mUfNV3?4O0W?_lGoRc;[=3Y>FQh"
A$ = A$ + "OR1N1_R_n6R?0LKgdGK7f<XoogjgOam=^oeEl2HcP#CRS#8TJ]GEj6`fEJ]="
A$ = A$ + "V:WS]L5fJK<d_[THITS?0DZn1=963U^_kRLBJX`7h[O^SGHnHm]eEH^>KK=O"
A$ = A$ + "9b:8cPLTTolU3;U7#`G71MNl^n#cL`Nnagca>da3m5PKR_gJ_RP>_IKT^5Qd"
A$ = A$ + "?#nDT]1k58f:F>1h<GiLJnOgEeX>gc5jjWcQl[XFOT0FK2lmO#YefH<InJbE"
A$ = A$ + "iBc=AklImE<6:AgS^:WU72f;Ln_mk:ZmjlM?]Wg[Jf;oEo>WMdG`oQUl1B^a"
A$ = A$ + "G7LY_PeOmnn_GfaS=mHW>_leKGbHR?h]OI7OKM4fbN1M<]bjejk`Ho6h<PoS"
A$ = A$ + "GWjCmU=k?h:nP^j]=em:h?CMO6nT#ielj4`aP?;\f##l>dgKcE#TAKB]=VR["
A$ = A$ + "8F^:W:F6iR]P#YnD\fH<<4h3`FSeah36SbLMY\GoUMng^CWI9K`L[FIWfVSA"
A$ = A$ + "Qn]LLa>1a70lSc#ZS9i7bCl9llMPL7kEMIgMEWCL=An9`e;aLl#oSOi9_7US"
A$ = A$ + "?PkchKBl5a#YgHZeN=kWIU?S5o_Le[D<^2oLCdZk#^HIDbm\BSiH]aHX4k5:"
A$ = A$ + "Y66:974BI_`jHMJZ4n0a9XibAf8U\d9m`>\CFmel7OO>i#N7D:g0c1oCn_nm"
A$ = A$ + "kd71Pl<nGH5o84igcaQS_h2\o=O_N?5HO0?0j1ae<l2Yd;#LDYNNanbIgaa_"
A$ = A$ + "e13O0#[kbjo]c97[gTT[f6mUi;Y6XlmEQO_H\TkIUjCaJSa#9l<UD33]Q?Pm"
A$ = A$ + "mjJMKSajUb7Pm28SWRC#bOn0IcDl28gcnUhbPl5f80?0P?7^1;gE8^4[l?0I"
A$ = A$ + "#VCVeLYmMPWEbS?GGR72m3hj5`eN^k?P#gK9G>hL0m[hMdAH8a7h?gPeVMoJ"
A$ = A$ + "MfJ7AYe[TU[8EM=T:F6UH_0WkehCaJRa0S5:Q?8G=<D2O#\OkjT?PkUYVkCj"
A$ = A$ + "^KmUH:>QOaOWog^e`8To\bWlolN8IBa3`nF7Ch3\f;`ocf1g>l2L>88mAdaA"
A$ = A$ + "7Gl3:bRP#i<YlY1n81Xc=fF^N;U?0>EF3UX6A1gn]O3^llFl0RCHCkoPDPHl"
A$ = A$ + "KUM9oT3E;C=]NUBeGUCikbBGgV8_U;eVQJRa0Sg:IobhnLl1ilO`#P?0hk_L"
A$ = A$ + "OP\8b7TS?Fi9TQ2a9#M>P<YT;Oao<o2^i6O]_agYkoMiValO;jUS<>g;MoFc"
A$ = A$ + "iPU;`j31VoVe590k?lei;iGi=knLfWb>S7bQGlg\Ml<eJk2nGP]US=j4P>8f"
A$ = A$ + "lA`b70GH:^0>Wije:k72lmQj1P35HG7FBUO#QZG9[M6ne[Te71FO;HmE1nT:"
A$ = A$ + "Tm2ajKRQPcO_EDkcU6S1j12U\O;IMH8GOCKX`70Ba70?0b7:n1:O1#79YO]V"
A$ = A$ + "[V?c:G2G`gh[l7ib1JNoEnboYWMYGi7aicN0bdbOOFI\Hl1lMXo_nmnPm]Mo"
A$ = A$ + "cOOUOd?V3loBG4a=0hjRhM`;a=8kSbYK0e^M:N0;fTbkiPMMG8E_?XYe[DZl"
A$ = A$ + "H>U_:ZiJX_Ra#9l1MA>:>Th3D^e4J<?jMSlQTIdlX8;ae8bH<?\TkT<9bj`1"
A$ = A$ + "HA8IHf?nfW4S?0MI#OPHl1nl2F`i6lEnkGa;XlZBib0l1XKD:k4:U;XdJSNC"
A$ = A$ + "1klen[;CFnPJZG9olIXdJG`JKB=G3UZK#]aHX4nPLe`P#<^0l]`#R?PSgiOQ"
A$ = A$ + "QSePFoE8G3#G09o`ljLO0Mf]l0Q#:IGf?nfWTBo0hOB]?3a3Xc?Vo?dnFl2j"
A$ = A$ + "jD_HkSIWPl=A>^PQDL631>g\b^YbOhVD_BJO6:?VcIKB=G3eTgbU6SQ^Z67c"
A$ = A$ + "U32aF[ggDl12nc7bLefGR;`:7Q>2BVcRHL2dgo0Xg?n#`?GoR9_Z_WiUig9M"
A$ = A$ + "BBa7Xc5la9WWafgR?0K5\iL9_li2#?YLL1jk7baD`:;i_V[6[gVVZNURmMib"
A$ = A$ + "SiDfVDcm^n863e`7T[666Cl1;Fc6_GgHH6__]^1KWSaX3]?GP`;lOi[;8WP_"
A$ = A$ + "=l`3Pnn8?S_l\afGaI<5OPf>E[5lo:>QXgPR=9W?LLhMM\R]OiH:N>doa?gZ"
A$ = A$ + "U?5iHRo2Ba5Hi1BeCC7Cl1fj90HUi]o^H[CKYFSFBamD[m2_Y[^ledaBSa#Y"
A$ = A$ + "l1PLiTD>k562l1<F0OcZaa2`9PLRM^BNN;k4Ra98m0`62T=AFTiUA>SW1B6F"
A$ = A$ + "bdUhg09cVb7o2fh#6kl<4?#:n0b;J>g8>2Y\;Ph<B<57baAX9l1X??bVYF?E"
A$ = A$ + "TO1SY3#Ye^P>FlMijk1Q#=m?]BRa#9m<=iCRLi\LZL#HCc7Xi]\aXgOl]_]d"
A$ = A$ + "8GHUM2=G^bQ8OOe9ohWbGmYTMc5g_Ul2KiWc##L4anNUC2QZ9[BlE0L1S1m1"
A$ = A$ + "21[LM\j;:dJcXe_3YFC7;]f5`gRjHe4O`feaHXdNP#9e``#T?H9?`Fi;C:mN"
A$ = A$ + "39G8i=[LE8I\#OVO>68IhBh3ba5D2O#:>2Uk4nLPjE9a#HXWcAe`74C6=U<O"
A$ = A$ + ":M0ReWemkKR:?UZ=FS2edKD:=n2UF33S5n0a1#>XUBOPBh3`72:O0KZ<W5\6"
A$ = A$ + "2ImCH8^0Oo=6CG1ol?^Tc]E?GRoZdh:jGOdS5m5\cck?W=i^\h3JBm;FC];D"
A$ = A$ + "CO?8dhlnX>6:IObn;W_3Begdba7dE?W]i#O9a6;7O0_DN:F3O#<^0\ifj_>o"
A$ = A$ + "jLfF7C0lC7POk:H^n>hcS#iT\oiSO]AZjW^[h3\g[QKPoNXWo1Fo56[nSKZ>"
A$ = A$ + "0ne4I9e^#=aJdRJFC7;=63Ub7#^]T:63YFKGCa70Jbm2h79O_MeWla_eEl?H"
A$ = A$ + "=SW1DW_ij]9fNQH=l0;lIg2^0QBZQ2h1HK5WPm_eoc;ol?>47Qh1be7GDLEZ"
A$ = A$ + "mnG8n1QQ4?PPeNnHj`gDM0B]V<4[f5R]V;T3e\V>FJ<6:eNQBZQQHiXHKi3H"
A$ = A$ + "\_oh\V:k7K<L9_XgQDCoEWi`39G_#Fn6Mn_6^1ZS80f#LcglR]=TlOZNVVNQ"
A$ = A$ + "O#AW6#XNkHZGlm\>=dUgG7jl1aj71YZWiDeiDZLL>EOF_YfJeeaHXDOBDB=<"
A$ = A$ + "4;VSMQn1MYlO#kP;hU=NT8[k_6\YnQTb5H[l_EffWK`7Qf>ka_dccVl2MUT\"
A$ = A$ + "L[iH7Hm0QBh3TlK^eOaHeiD\LL>EMECmDdd[UBe?XdH<`hhB]o87G#ZLB:6O"
A$ = A$ + "#Ym796Ge7L2\o#6HA=>Gn[DmgHoo>XLgFj1T3R;X?OYcCd=Pk5P^P?HXjOA;"
A$ = A$ + "OP_=maj5:FK2BY3#ZeMQ#iZL9mHmDX6O:FRm2<OFGE33=Q?XfnWXFW0jB`hO"
A$ = A$ + "T5JclZe:o9KeSYk`jT;#f98^P^`V1R]cHT?`f[dB]N\Je1XTeTQHe=ECSeXV"
A$ = A$ + "S\Dm30U4SQB[iifFCC]Eo0;\nCX]L1\_TL`2Oi_>O5GoR#oOWOd3`50PWRJl"
A$ = A$ + "\=L139iO0[c\j_]jmWR?8EL2RE;CabSiHi5MKh3Lj7DaJjH9aHXTemM]_:IM"
A$ = A$ + "H8D>8#L8kBnP#l2=UKPanFIQmJ_li2dJa0f?EkmDfneaJjBCPF3Hba7HW?gW"
A$ = A$ + "?8Gm<3RE;CYjcj]ijZ6M4:=VSU^oJJOE]6nPCmdO?>lHOL_WIWEQ[QOT3mZW"
A$ = A$ + "nFCl7LSOgJ]7H_2WPeF5O^0^o9n0#]j8PM`3EK44O`IMZ_cRh32ic#K>;DK]"
A$ = A$ + "<5;?7Z]^63Q^<63U^>>FJ>:6bF1b;QLl1WaYo1ML0R?#L2]in4l4id=0n06k"
A$ = A$ + "3Ob^I>1[]7nl0bOZF^PJdAPkMJ^Z=]LO>n0VKZ]l1aZcYDi`ToaAk_^P?XVH"
A$ = A$ + "4V;63e\^_G2O#XLD<7O`1oQN_[`3H1[oF=iN4SACE_2l^E6#[iincGfgf`gW"
A$ = A$ + "_\WkLm5R7P?3NAO^PU[YSK]f?GR]2ni^\P?7mVT?hWhIn7F4O#\NRJZjL:eJ"
A$ = A$ + "bP>>Wg?bE_4?VCmCfZH=ZkcMI<6:U?XDm32UCB=U?XYj7PLL^a^Jl^oHOOI6"
A$ = A$ + "nOOI[nFn]Y77oOO8K2:U;X9nAHULGnhgZki0nFTl[FOoVP;0Xe<FjUbUb74:"
A$ = A$ + "VRiFK63U3Cb^0;GP`Q?jg\eGKXO#YjhW;63eH_#9aG8T=3`7TJkSa7D;?9i="
A$ = A$ + "O9n=8eHoHcS:K8j;>1]O9oSC]F>73JKA_XDL0FMOdeK>nPfV3cKJ^0ZG>F_H"
A$ = A$ + "Q?#e[D>nPHiH#ZjL:F><1n7m\n21i3hcKKmlEcJjH>O:FJ=?3O#^eUUHiP0j"
A$ = A$ + "<D3O`ILZO#G?<ZVk9<?D9S;a7Ii6o3lmWPoLZFIhfb1#^5[en0oJK#ib<ed0"
A$ = A$ + "i49l5<fD[U[J=Ml4OgdbonaC<emP#gCD\LJ:G#KbiV^07lT?VS?`OmB\9l1U"
A$ = A$ + "FWC:7VHO6R;#X;^n:eWRUD73eD33=Y_Yic7`n0`fjk3aV`5DjhBG<8b<OX5U"
A$ = A$ + "X_m2MRgiLiaVOG_#^>gjOBZe\=bS<jWIUb18N\Bd9X]f=h3FoFfTL10FWgQ?"
A$ = A$ + "`O=D8F=6ic7DbjfH\jJh9LVORNW?XVlB:G<6:U?PefSVZOPU3h\OfGNWHS0#"
A$ = A$ + "aJ<G<6[U;`Z[#>N1[<7_cLY`C`ln<_2nSf^N#73Bfg_F5eJ5=o=L0go]mIFi"
A$ = A$ + "hUjla67UV`3d6k6D?CIX4g1lYXM]BZ6m3:M]Kf?V4h7RDL1PSNd[\eGKUjCa"
A$ = A$ + "BRa#=m^iBlQPO>8#N;T;>20h`Kbm2=N3o7XLmeb=d4^PHl2U>O\EV4iG0bb<"
A$ = A$ + "NDe2E:`f`j[Z[F\=f2D270GgF>PfL]kSDa]I7aKh1f>N331Pn1fe=ULl1QFO"
A$ = A$ + "5B]V?7b7TWcQoTIi3NJWggZeGKMI_BZDnPBZY9oLBRlo857P=F2MMOCSnS#K"
A$ = A$ + "i22a;hnkicoGR>3U`G8dVm1GWm57#]f=#l4fdbnQVchP?l;JUibCa74KmF9E"
A$ = A$ + "M?j[CA9L1M5O0m6U^:63Ub]T[66FJ?`LnPBh0\n<X?jQR`7dGb5FMX;eWnM1"
A$ = A$ + "daAbojlX9LJ]iJ>4W`2M26Vi[<_N#kke_B_C\Yj7Hi3HK2EG3U`3dUl1e\V>"
A$ = A$ + "V;63UjKBOm3\n40O4TcNP#haO6Od>oI?c5P^Zm9G#<I<[<:j#8obk[;#<n3o"
A$ = A$ + "_Ga4IUmK3m7XeWVMae]=W36Ze]PK\0[iFceIQLRXDm3li3RUS1R?#aAXF^P^"
A$ = A$ + "bo10V_f78cZikQ_0TS?0OEEC=<XH<DR?1bYG#Oll7OHU;^RMQ\O=KO8Dbfg5"
A$ = A$ + "W_abaYf^_A75eSU7biZ\h2hmJh32i?a#aDDoVJi1jbh;XW1fL2eoIbYNP;Nf"
A$ = A$ + "YlgoBL8W?4`WoWk;mZLeo<fG#\59N2Bg1hDP_1nPV:oK1WCm1G#]aF_FI;[L"
A$ = A$ + "djBoSVbIISgIXG]mN5L^3mNZ<f<jh2j0n0n>nLh3JZ\OOb7T3MQL[_?ojRm3"
A$ = A$ + "n=G?OjB^0jW0[Ci;Km#ee7[JdC`^=nim#^lQBonfL^^9Tc[I<A]l1Bf7K1T<"
A$ = A$ + "KYn6\Fd5iWH9PS1jSgeL2]EW0W]LVW?llZ;^Nk:KRca5h;?Io<OKl39?7jkB"
A$ = A$ + "UObUnZIen`R]_=fVXcoJcQ\e5FJ[#Ql1TWHibOX^6[ck731>1d[Pem6G^lIO"
A$ = A$ + "n\ecXfV;[mUN1JlN=bI[:G6ogdDin^nU>n]UC`m<`lLL8H7QZU:kH=i301a7"
A$ = A$ + "l<>];O]b18HkKC[;L`7akN3[C`F?Gli24jPn[5_jJM26cejL=_j:>1NWH>hh"
A$ = A$ + "m__k`5S7;o`jVS8dL?k0LN>k;kZmh=1O`jlnQ?8^68SR>3MU_0BYC0nXTL[;"
A$ = A$ + ":?P1MaJ18So`7GMAleg[mZ[h4D]?Yn4kf[g4gYkMl_gjH\^=6SUPkiKO=^JM"
A$ = A$ + "JMb5\^lM#YPl36if^VOHQ>1OiIgg]nYC[GP7gMKjE6LOmL>b=<kO`Sjcj6KV"
A$ = A$ + "SG`?W1\b5k5N5[NYk:>QH[c4^lj\Wk9:<f[haM2ceC`=NmhGcJCGQ=Q]2U:;"
A$ = A$ + "ak?ich?MiLk=EW0jg4Oo_cWY>^P]h3^oKkJJlH5ba[WdIoiVmT?W?o\ciYmi"
A$ = A$ + "Ml2D?AaR1Pe?QBFH_d;[L?gSl[9c^8?6QCfecZW;[YW[mY=3;RW`=jZETUSo"
A$ = A$ + ":U?``9P^2OPggWYge=HC9_g4^1jCI=AW0NFl0geG_J^0NF\X^O^V6MN3?P?P"
A$ = A$ + "CPJ8RaTJ<J>o58iQMkl3ZWZ6jnBGV?DlJM=fUjICe>6`iKPJh3<nDX_eEXYe"
A$ = A$ + "^gV6WiYT>o3AWPSMAOH7WJSN68o7<g?3ji8oM=lG?U3oEf1?0[oAPEdE]`ag"
A$ = A$ + "kUlQ#KUg;SCXKRYL:\#gP5c79\LNYJ7?^5_0onnb_239o6d44:65[hW0h1Ze"
A$ = A$ + "V=3HOHOFFji5fh8k40?a3M=c?WfY][=In^Mk_TM1m=OP\MX?G7hgfFQ5c;9`"
A$ = A$ + "h:7_#36C2hgjVW[3dE0K4>lAnjSN^0;#O1loXd9H5^P6XG6j2hc5DZ=3T3<F"
A$ = A$ + "^0O>Qf`5H]OHgj;UORUNo`J;A^]ejO6;?#O:;8OClYn;nh>iGYcJ[h5V?>ES"
A$ = A$ + "?[e_2>ioWnOMWE_B3E8Ofhh=K8?`Zbo;^GS^6`cDROGOZ7mK4T;#0O:B_7YY"
A$ = A$ + "f1;iUMc_ZYF7mSSH\j5cecHVKWfYm3nfMeG<_CO8AmkLj11X[IO`=`ncgWb_"
A$ = A$ + "TWce^2g`BNQZlcmZSEIoaL>[8gOd_i>l9`^9m0R1oib[bO1Nl0472^gj?fiD"
A$ = A$ + ">YgP;WAiI[5BF?5?P6;#_ZZ9iRPfnmBaKXTkAQb]PH[Kmh3g7m?`2ioHHo?T"
A$ = A$ + "gl\cn8GGW:g#lVm7;`H5a=`Lk<NKUh?DP=^FOKIi4`nQ^llO<Q5n^MEKcFLO"
A$ = A$ + "Y>o5:m0HMa0>0=nPa?<61O3VCN?5?0?g9GDZEO0khNN]G:?4:]^\Ba9h3bo8"
A$ = A$ + "kcg#l1RWg97?g?#=ILYCWPiXTi9daSnLj:l2YlmE0m3JRO_gma54nNBDm3<L"
A$ = A$ + "_BW2h1HLPd3#j2P^GR7XF^0fNh0#O0h1JKn9:ITal[VLnG3OI9L2^e=kif=P"
A$ = A$ + "^2`;h[_0S3lO>Rn2e^nTdTa=\]<VkjolGm:nH88_PIlk>AcR=nH7QdGJ5m3l"
A$ = A$ + "^oISQ[d]Rea=Ok1J:7P0f]e5L0Fm2ZE^K8bMXh6Dc[JZMk#iPH:#>9Bm\17P"
A$ = A$ + "_n1aNfnD>bej6k5CGLh=JbHV#iXRdEH5o;0g`Fnk>jHoinAKXgo7j3`eL8K5"
A$ = A$ + "FAO[]l?0g;]lYL_Fc?Xi4JZlO8k3JS]1fafB>Z4I=kfe4NTnnU=^1e`IE3Wj"
A$ = A$ + "bH8<GF?TN1ZV50d_;Hm=gZS0c9DRnmH;1nXGnHVheiW_9]5LL`GFaTkSa5<V"
A$ = A$ + "TQkJTbVQ#0m`le9X[O>ZWU`9dDm3D^jVBV947Pmh=dNIcm`Ji5J:O:L1Tg>d"
A$ = A$ + "?]QoGn7fJKH:k5:iiLG=?B\iFHMHcJo`4G#J#m]G6giGN7f<Nf7ijk]WWb7R"
A$ = A$ + "e>oVA2:jJR8_B]NV<De?`b7h[3D<NQfTOBlb6SXB0n;X_T_KjL;nf?<i3adP"
A$ = A$ + "J:>7GPe>aBe=\CN>F8W0b:Q`:j1GHN;<DcKYD[Qkib5kV`7XL#TGllGS1B5g"
A$ = A$ + "AlYg#R?0075lJninlNIo7V2fJ8c7h_f#c?Lj?bSe[l1nL2JlI=SUKR<`HT?H"
A$ = A$ + "MLoH1_`mj>?LinoLk63a;`WegS;J2O0WKQh4FGm^Qa8li2n#GfE5EGAF[]GW"
A$ = A$ + "?gO;G`ei6?f5aMH<b74bo1K2XkmT7#Q6G0O#OhCYf<W2[O0Rkjal#O7;S_0_"
A$ = A$ + "_G<F2ea9\`>[Hj5\^\G8dcE5SI=GEOa;<4[3bQ4O0_Bi31N6=4dAPc1hVfV;"
A$ = A$ + "h]h6SSOdI=WJR;X<8O]R>03=O7]]=4;R36a6c>F];ZaoDm<EOIdfX7QlYYfG"
A$ = A$ + "i>F[SjF\4^PDiXhVH^RDSEP;#l17hTkne7Tm2#lVT_YaNVcmHd3KMoL7k6lk"
A$ = A$ + "UOniLOK7gG>?#ci3\bgUHOb#P?P[gLL1fi:fTL2L\YVM]SG7CbP3E#][URCH"
A$ = A$ + "MH[hfe`#Ii>GKW3<GN;`;9KfVGFn0N?7W#GT_V=]>aa6=UGBnaJJ8YSP\[l<"
A$ = A$ + "gokKUc7ZYoaTLg#5T3IaR_4O>L`micF[]1iZg6YS0f#dDIWLf0Dkf7jE\JB>"
A$ = A$ + "WM:]Q;H9O`FiNXO]=k7CFMoCl0eDGCK:M4dabJS0hP?hOgAU<g#6T[i4KaLj"
A$ = A$ + "8de?gIoQ]1<ODYiDo:L2=P?`??T2]>^5Z_4f4nPHWOjkmgn^dGRQ^O52iZ[9"
A$ = A$ + "Ra#ZLAHMYSPd90n7>VnWCSenJh#6Yh3#g\nhI<j60XFFIl7j9`lKnm#a^R?H"
A$ = A$ + "Wcg_Z=nU`QDj[Dk?OM>jBO7XjH\F>Fok_B?QDf>`HS7oIlAkMm1HnXHnn6kM"
A$ = A$ + "g;f;3jKPM3ZOh\Yd=4o8`cNdEUaQDOM;[aVSO[[`Cd4i7[N0enkZ9V4l:UlZ"
A$ = A$ + "hU:QoX9l1lNYfO53L__dlH^[c[MY?0S5`NEOk34Dl5W#g3hHC5oAYKHCje1a"
A$ = A$ + "jIBnK7?oihHWoQgIL9l3ZVKX_\4[gOEZlB=K_oJM#>nPB>6n_j2^01^g`m=d"
A$ = A$ + "g28NdDj3hhMWcinWmanR1km1il]XN6f5l0<gSbaXDW7CaG\oA<>1N^XLH^TW"
A$ = A$ + "kfW]`acnUgSYWQn<f6Tm]l2nPlY]Yn?XYL8UFGeU:KKc;Qn8?TXNUec=aQBO"
A$ = A$ + ">Aec\5`1H[OQJ17SV<OQM>2V;Pn[QN^WS?RaCS9iZa:Xo7Wji^jQNaTY570f"
A$ = A$ + "Ejo\E_S<OZa=fa8JOYiQ#GQBd_f?WlI<OKTkjBM3liIjSl>P[k#bgfjI>E]="
A$ = A$ + "gD>1U3KQd;dbGXa#X7#:^o#Hb>Qe?W0a`9W>R8G3W>XTie]POCCdU4O<4:60"
A$ = A$ + "fJe3KmI=XCnQHAM^d^eGnBbaiJj5jFnP^V;#kKd9X;Te[5JLPO_ER?c?n0eH"
A$ = A$ + "GR`1?iS=ZTWf]0h^k[a<=9GWF\6=\X^6FMnoC\SNmZVo3m2JJ?Kf6oaDf<DS"
A$ = A$ + "M2[;8kAjZio7:`Uc\CaCHS0^_COg?EL7J3ZY^HDOFCL0o=gbm^LnOa_HiJFX"
A$ = A$ + "C#ckM#lg^n8XQ795G#OU[a=9O35hNEYiOlH0Cn<HhPLenDShj9fa5b7`jn<P"
A$ = A$ + "lE#OF<kSY_oES>1nj1H[M2kn8dJZLOb58IJ;_DXl<T]AG_:^Xhk#\IZYn8L8"
A$ = A$ + "b5PM\S9IVMk0kfjBM5:=oflg6icBknJKM2:OM?gGGP#[I9fmSeV1UCA]InkB"
A$ = A$ + "iZRU[Q4K0K_?Dj2\Kc61R[eHB>I?7_`liek2NQLm_kDl3fNPQU?0#_mY8nPk"
A$ = A$ + "jV3FoTad?#f<\>i2Tn1QbIPM;cmW2Cf8<lQlW3mR6a=dDnQVdS5P?#nZfGV0"
A$ = A$ + "nPDbinO^=OmInFl;YmcmU?ime1GPEgP#j]`ij^=m02a5<ik`a9g0PJ>]FM7J"
A$ = A$ + "BmDk7;KUW2ZnXbU;Nl^ZS:T[8gLU^5nL6a\a8Em9dgeR`^MM3Hl3iNh4G`^7"
A$ = A$ + "nQBSEI]iQ#<n1YCP?#^g=g?[m<KE74FiO=7;bGlmnbOe8_kGk0f?[Al1Nji<"
A$ = A$ + "Fd=#j;fDM6;I]2O2SC^QLS9JKOKeFWT247C0j<DB>h]`?TkD_L#9idhBM6lF"
A$ = A$ + "gSlSGIYj48m26[f9XWmnS5>[mOI^hGcLoH[Yd3h#kom?:6??Qf3R9AZa>mE="
A$ = A$ + "dcn\da_nj5HGGCY70TCVf5CS0L1ada85?PEoR#aEHXW?1Ci>h4bQeM?e8Dl8"
A$ = A$ + "31VW5InMDWOVn34ib#\lS6N0h;T]6YZOhLL1l>a59F?SSc[H[9239dde0n9\"
A$ = A$ + "g0^LL<A?J\_h3`>4K<8hLPnj2e6UF[jOIWo]k5?oKLfiNJ_[E>ohgZLmAb]:"
A$ = A$ + "?PEmh2gA9mDPHfN`;kjW[CWT]dg#j94Km#X4\^h#VZcX9D2Bi3QndNQHmM1i"
A$ = A$ + "cQU[Yagc]hnOh8l?o#>MA]<MRI7i0GL#meicbeggT>7:7ZE^5Pn9Ql70K;nm"
A$ = A$ + "TO7L3=aW1L_5^_VD3QCl1CX?0n?:elCeTcbM5D?LmUlL^FgO[nbDXHhYi\c9"
A$ = A$ + ";4;^P0K_6JQ]5cLL1iZo#>f=egQ4g6On#\QZ?SCi4O`4bQLjZZi[GWl1Z^Y]"
A$ = A$ + "oOXndIYPncB8oAbO7ZG3Yj`Z?dSWmI\LlZ_i4Vh3V#:T;f23Ue2#V;]=b1:n"
A$ = A$ + "4flL<EL0be7`J_Z9geK9nJMR?H2M=b=VOC_^OEJL8T\6G?bNLK_M4iO;?#"
A$ = A$ + "OTO0Zo3Yo>dgEJOaW]Y?dAHR?H2a0n=XTibfDl1bVjHnICbHfNnXe_TBNBnB"
A$ = A$ + "df;6j3^0Ngf?:]mmQJkMQe`3>a7<Q^0Y6gDcLIm9O0eA[M^F>_hchLCWOajC"
A$ = A$ + "TR7Qg9>VB?Mnk^dF0fG:7>eiRUKBe8JCjkeMM<7Vh3V#<h7SAIc\e_gK:^0P"
A$ = A$ + "RW0PcY#j0TjgZiUE?NbfW#[AFg6oR#f1Xh_TZoefdJ6_]n=IR?H2UP#aH4KZ"
A$ = A$ + "72n>Db2nm1hJnmBVW[a#mZULckZk=h72M?QgmcC0]nJgGLWM]=3Cl1C`7QFG"
A$ = A$ + "G6:j4dEL9Zf82eghC=_[h1T=9a\10ideam\^f_RCl1C`7Qb?i=ML4jJI8h1h"
A$ = A$ + "j:VlZ\WX4NPD7WeaeBGj3Q9nP942QVcY?Gg?Ggl1jJ:ENo\RM1ci7;U7HMO]"
A$ = A$ + "dUl1CmcX9427JoGF`a;35o7dEb#a^NT>o`3HmCi#kjX[mO`D_>L2a#\JHZ=n"
A$ = A$ + "4OX05GRBdiOXNMZNBKGb7<eGSV#<#o_9fh6VgL8:SD2D=#>Vm92WgnnhX;`H"
A$ = A$ + "Jli4Fo8FO?#aL_VeWYQ2B5[aa4lkGm]5HShHJ\i4Fo0O;Aob9eJ3;ccZNZjH"
A$ = A$ + "`>2i[#UK03iceHWoM]O3Li<eTO4W#1PN`n3jin[]4^L^;0oPjQAeTWP[;i7;"
A$ = A$ + "D\69N9nOGGQnnjY[biPYnRn4Z1^a9?fOl5h0?[I?T3m?ga9lPoa?oUl3?Z7i"
A$ = A$ + "KH7l3RK8GM4dg0mF#^7>0d70oW;M\][Oi=1fnO0G[\o3UOCm1j2^0>g?jA_b"
A$ = A$ + "Aeha9\IQS?hdOQKc9HaLn1No_gin;^2o`3i`_:7oPUS#mZ4TGHl<j#Hi9jJn"
A$ = A$ + "2h0jBmY;5`AdWl0MEn6<5Ga9d4TT?867al]?V>4F>2E?A0VOEj_3GQO]9D3W"
A$ = A$ + "AGWS>eRV\neUkjAX;ZmbYeFe9dDD=O#5L4?R3lJRj;2On2gf=GOLigBaI4B7"
A$ = A$ + "3oNZjinB_ZUhYo_ooN#l<oMno55oH_]_HDlL_X[K9>kWmU_`fQ:lCYoi]^^>"
A$ = A$ + "kSLm;m33Gc`GFJoPCl^X[2gSAO=[oO6CSoV`04]Q;837Q\e#l4<f=T^4Y\1f"
A$ = A$ + "j70YcnbiZW;SVBN^4TR[`bI0OS\=bW?8TL_]_9GZo1em50gWlUe5W[mN:gSa"
A$ = A$ + "_?^kiPadH_9<l#O`74SS`cWUnjCHU9:AnQinAFmWk3LKm:4_Q_=3B76\5Bjk"
A$ = A$ + "4K>NMMagS\>G_U8[kdOCbjKiCWDh1OjoC7GSoV``2WfcOma9TQW`GO2[?<An"
A$ = A$ + "a5G33O1jaggl1jH`kFkL\ciKWGW_?dljnLPkHNm2Te;6SYaOCHHQ==O#>^Ri"
A$ = A$ + "_7CWRG`kjK]T?#b\lI0[]oBV>WM2jc3IG1kc#f[_ATgCQijC<U_1CXaH8c7T"
A$ = A$ + "Q[0IDTOQ?Pgan1OM^m1bYjmL`W?H5il]>7F[bjU0NN>V6o=QQ5jSaT]=V55b"
A$ = A$ + "7Xic5O0L0Qf^RQigMB?\3_3nPebeEGPadh_9<HP;oejhaR<gYV;]?7cSlZdc"
A$ = A$ + "Gl1;Wg^3iK\aNL#Y7#2<iCa9d4LBWf?Eg>FLnlW8GbOohniomjealR?#n?`M"
A$ = A$ + "LkBiE?n0`HQ?0<i3Q9D;Ll1MlHLh10RGX_0j2Xi]5O0L4Mfa`S?Xcgom9`^V"
A$ = A$ + "Adh`9<<`QfokOklMO8JKlLIBl9#8i#hLTMm3:nP=mmAlWh4O`4Z0^N\LTe[]"
A$ = A$ + "UL330MSMn`K[LC`GFDiRd;jB_QUaK\[Wof6WbB\7ALDMZO<ZU;H[W_SYaSCH"
A$ = A$ + "cQ#mKmXi?kl]kQnXoUfHL38cS<>__bi`Ln:K^70W#YnkCk?Pbo9ISc;lghH;"
A$ = A$ + "[g1[M8;mO#ZmmlS]lQZkLIMYW`lS;i5aDo?J2=1DoKeFcLJM9Sl\MMc=hVcg"
A$ = A$ + "oHja7XL#ZTm7L0o2O\7`mkhMOXLB4N1M<4Li?LRm]b1RLKGG`1`m0NVXlSNZ"
A$ = A$ + "6WW#]`f_#J;fdj>HcEIUGRU>W\VcGbE[P073QRRIB?[G#ZW97jDoPSZaSCHc"
A$ = A$ + "QVb3hGW>ZN3eo[eghe:oPaGObg1mAn2i[OPc^UnnJ;`e:jUi_6k5SSNbg1C8"
A$ = A$ + "6H\1a#8fJ]#>N0]NV4Z_UXjjeO=>efSa`^F=V^;UA2Uk1I]__FH\9I5O:f7b"
A$ = A$ + "l]P3`7Cl1C86:e_Qnj2DjJFDXehdHel;S]1;eQX=L4co]niVHW?gM0nPNc?Q"
A$ = A$ + "K535M?Z]fa=a9<1O4K=I;7G#KkeQBg1nKF3iCeKcdhOWN4E4SCE[AFnP>?O8"
A$ = A$ + "3`7dJKB<lP`;Z[o^LMFHJ=KM2QPR[HYSej2^PDj>#?39G_2bJ[Qh9FYVQgB^"
A$ = A$ + "BaiGl1UhkoNW?`FGDcg6TgU>ojjaN=F2oLCi9VdAH2a#YSQD_:\;kEXQh8DO"
A$ = A$ + "5Zfn6XU[`f[24O0bQhGQ^4Q\G0ILMNHUcC93WjjcfOEXoD;obXNI?o=ONYgW"
A$ = A$ + "VdAH2i#>o9ZnHjj4nmDIec19o8bY7QE>ef?cjJ4Z_XhON9>0oek1aI#?C6MS"
A$ = A$ + "hN\Fok\mFEkmRLg[dJ=cT>2CX=#eY#:k4Fgl1UbAP\S_LPh3HnjLm8i^6R?`"
A$ = A$ + "f3Xm?gk[ee9f7`GFZN2\Fl=V6W>Qe3BUSb:F231nPHb0feU0NOM:ok7_A=go"
A$ = A$ + "VBW:on=O>K\6CSCW`j17lTgI>:cH5V[I8c58I0klQ8?ZlA\fnSHKeU`b707e"
A$ = A$ + "VhNG][7=DgJSYaZCXOaIm3O51mO#O_fSeGSoQKPhH6c6nL[KSJMITmaYNP;N"
A$ = A$ + "fSmamNL[S30oee5aOHiMTm2h7aa0O0H<=NM2m;Ri;AIgkH0MejMLGR=UOGZU"
A$ = A$ + "?H:F3C#8T?3T^g3Mk4\PLR6KKDlm2i?oemJjhVR?0NlJc;Q9K6VP0f;PLTdC"
A$ = A$ + "PaaJNVQRlN9c9F2B5?>ICQ_]5UHSQ_m6Jkg4g;`o_ebM=5ka9HQ6;`hRQNl4"
A$ = A$ + "J3W1nlWaoJNDOdDNVn:nQ=iJ\9[emCm6QEaO7D:K%%h1"
btemp$ = ""
For i& = 1 To Len(A$) Step 4: B$ = Mid$(A$, i&, 4)
If InStr(1, B$, "%") Then
For C% = 1 To Len(B$): F$ = Mid$(B$, C%, 1)
If F$ <> "%" Then C$ = C$ + F$
Next: B$ = C$: End If: For j = 1 To Len(B$)
If Mid$(B$, j, 1) = "#" Then
Mid$(B$, j) = "@": End If: Next
For t% = Len(B$) To 1 Step -1
B& = B& * 64 + Asc(Mid$(B$, t%)) - 48
Next: X$ = "": For t% = 1 To Len(B$) - 1
X$ = X$ + Chr$(B& And 255): B& = B& \ 256
Next: btemp$ = btemp$ + X$: Next
btemp$ = _Inflate$(btemp$, m.SIZE)
_MemPut m, m.OFFSET, btemp$: _MemFree m
ImageSaint& = _CopyImage(v&): _FreeImage v&
End Function
'-------------------------------------------------------------------------------
Function ImageUranus& 'uranus2.png
v& = _NewImage(90, 90, 32)
Dim m As _MEM: m = _MemImage(v&)
A$ = ""
A$ = A$ + "haIkMN7NEFVeeOjfML6M:nYSjhHK#5YgQ0Q#852T09#2YW#:T#2M#0Ygk48m"
A$ = A$ + ":U09QNCUZDD#4E4#1k::RPE`bh<_clMM]on]^?W34mELdI6O7mmKnSmec9WL"
A$ = A$ + "J?[kemJ_fkmc9i7l3n1f?ho4oWho4O[7GiUnS\[kGLUf_ojoEfMlKo=FC_iK"
A$ = A$ + "blkf^=[3gn_glkf_E[agb=HoQ[oGKgj_mj\OceL5fEN9o8k7omXc_oM4gb?m"
A$ = A$ + "7H=i6n5FGKd]JakOc\L3c?KTAf5KTA5X=bN5Pm0A4XWXGNRa6EG\ad7>6CPf"
A$ = A$ + "4C8DKLa7\=TNi_eo`J;?oFHQNOg^eRKhJ]Oe?jkGh`oZSO8aE26dbKoV]DkD"
A$ = A$ + ";\a5I0f\B^7fDS?DK6a7R=kh2bVJ_kX=cnf5Kn96\=WhjZ=WH3dVMO3`VM\1"
A$ = A$ + "Hc=^0\i5?o^4jZ;F#RL<YP\5TBXfRBYWF1m[?f2C^gfDR<#;c0JWehKmV\[6"
A$ = A$ + "nngW`XoIR[Phn^YOUUMgJ]=oDkYENbAHUVHXFn95ZEHbQI5WJHFQ4iWFgLAQ"
A$ = A$ + "m[KF1Y6:gOg\RB=4[XTkZEL:1KUd_#LAYY5ZENjMc:;S`\bB[kF5Y5^EIjmd"
A$ = A$ + "Z:SX\UfoH\Z0_;=Q8\lC8LKBm=H;a^d<k^_i[mkEHfgThZ#G8d6L;`33eZ:["
A$ = A$ + "8]:b\7fBjGg]JjG?\ETF?\UB\\<2gFBo37l92`9R<mM4LSXb<3gQYUWAg\:i"
A$ = A$ + "aYXZ\R`Fl0jY]T\k97k57k]]\1d7Kiid7[f1eG[VLScZ9[X]UTJhFna6R]#f"
A$ = A$ + "_<[42a6BTMbJkML3fUnSon5>Na2UGZSgj=Jc9n^IE?hH\E<`8\=<T8\]<h8\"
A$ = A$ + "]>h8]7N#mbFo#kU]bQdKKe3Y?fJ6DdfZ6H_]UWE_\U3NGk0RbZ1<[VLkS]RL"
A$ = A$ + "SbZ6\\BFSZ:KQaQK;6lMYid;KYiB`aUUCDfb7DTF=3^g^H54[NXAK[MXaJ[N"
A$ = A$ + "PPo\^E#Z1JC;a0\9WH#f0jFk<o_]Kd^fO`?lkEhJmS6L]GV=^n4:HKO]=1F^"
A$ = A$ + "]78>KKC8FKWS=JK_gO_]M>bNKkH4mffj8kS]Yk_?fV7Adf3>lnJ?h8Ref``R"
A$ = A$ + "aF=heZ6H?]J>O0nYePLPo>0hmP[EWKTfb78H;Ae4eBD3[Me>HRQh9Fk`SfF7"
A$ = A$ + "_^[MXaH[TGSZiiFJVXSWDPFN9dIKQY4Q=RN4\MgoVOag[`gO:AojhmJU3V\V"
A$ = A$ + "17U]UAdCKoC:JkaWLLfC<iTLaS=Qh\ml0aJkUhA7KLf^0Wg6aF6AO\72\oQH"
A$ = A$ + "=HcS<JK33_?`7kU]ZQ2V?dnH[2NO]31\DLE`\U3>_2Qci2o5nN]`[eJBMPce"
A$ = A$ + "=XNJ[I8AJKTe\==\nJ[3NmZii]V1[m=JO2JGI6RE<Jnc9nP\ITFTFd]_afUn"
A$ = A$ + "m0<nFnUG^=QH2bZ>7]G=JKKS>Jk9WLRfAWNBfc>]D\3?mD\S<mD]3=SnI7JZ"
A$ = A$ + "YH?iDBa>hTCffg4B`f=Hnf6MO\76lnQ6IDfV0_g0hn6^oX]e[HTaJ[7^njQK"
A$ = A$ + "^^Q5]E7hN]32l5LN5PgeBDW>2O^6dWF97G;[;[7LNm`UG3jBR?_:`hEj=ZUe"
A$ = A$ + "RUUK?\b#;JNhcI1m[gf34CHf=mc_T_cRa1M_g^EJ6`G#3LG3Y_fSn0a067_m"
A$ = A$ + "Lc8IkUWMJf[<Wd]GNNIBTUmR4?k\b4\>EkYW>H>Ho1WBbfS2N_[a5[]eadGK"
A$ = A$ + "cS2N8a6_O>Z#hl`ACI4m5\[?>\FJ_[4>J]PO>\3n\hae<8dfiX?LElHM\>mk"
A$ = A$ + "indSGQC?bkSMii4Y]hDS`:?U`]:6DlF7_]Oggi`hhKIC`S5k[C_kfn69h;lb"
A$ = A$ + "3?Yh\WMjaK_dLBfNmiV^MRiWYMRlbf>a2bfN3RGJ>IH7KVYaj#Jfchhjmc>l"
A$ = A$ + "dBe>`TBffi4Rgf:j9KIL9H?dHR3<6=N`g=B\QA0o4]leQ^[fc\JYWPnTSO:n"
A$ = A$ + "l0mXMXS2CG9lmE2_OUXSiigkka8MWNbN1`I2]6\:lZ\^La?Hjh]I`9IagnVl"
A$ = A$ + "M6<>;oK]EM:hIXombfi`Safo3dKkXC\_faVFLf[>gD1Gc`>iRbfN[lca>E1i"
A$ = A$ + "J_=aY9>e2c5lN0f[>o\]S=SD]S0FO4dB>h4C`YI_cafGKk:gi3T8lkh1[S1="
A$ = A$ + "kHlPcLLmPc[7mkeYHXmVSX=#hSOGSdZ9D^aJAon21JcLo[PXJbYZHI382KYh"
A$ = A$ + "aYj\#[?WNcm5UE5?fbie=UPJjoFagO6A6Qd:[T<RdF=nFg9JW7h1RfN6_Hl;"
A$ = A$ + "=cT\GONY1F2>_`n36WSMj21S9>3hlkDh0]g]P13^?8F?bd>>hlc3OnXC>9k9"
A$ = A$ + "Q?oHS;NKGPgkH\aKKWH[XO_Id^g4i8g8hl3:<WLUK4^]daG?h_lE\>nLh1_m"
A$ = A$ + "XO;]kEPgTJ`Ch:8Z6of:F:HkB`KhBT7LlR_HlA^4l\_4h;E?0`JlD^BlRFHF"
A$ = A$ + "mfbZ7nm_5<nW#TN#]RjK3aFi0jQ]Mf?__a4]m\C9FkiWALf[<[D\G3=iC^P<"
A$ = A$ + "]g2<nd5T]m^5W[mnU>#km:I`^hm;IXf7Fl#]g[#`j5>0k=WCo]GOVXQS>bc="
A$ = A$ + "eT]WNB9JkKlPeXG_Sa1N3^_]70OOS2O9\N^UAS6>hlVT_4l6^1dFTn]`ie2N"
A$ = A$ + "GgPS6_8hI6nkbmRa;3<MIZV6Q[LKWGL^M5IdMZ1:<[LZY\BE_4hM]If;Kcm?"
A$ = A$ + ":KmTC?_Dj^UN8]ioAah;S8]>gJK1Yf3KiI72nMkY]K`h3>nn2O<1`g4]GMfY"
A$ = A$ + "2G>3`h\\CUOFfY;:K`fL\?X<`jb6Xm1U>HGlQU<4_aP\c\8dB#3i4Pg_R3[9"
A$ = A$ + "oh4Cbfoha3hhSaN4Nmg1gNKS;6KKS=6K[S>FkQ8oX3[U_4>jlR0GN]R?So2?"
A$ = A$ + "lIi71LVlL;;;`H_H[`h:X6CGTA?0Wk>eb7V;:?MZ?UJhG1e`_V<XVYneCKnY"
A$ = A$ + "d3;1ZKooY`iDKC;\2CPJOkGXDSEhf3?Z8IoM?]WH2AK_`dBdNmIe?keWCJ^L"
A$ = A$ + "O2WOKhbWYh\1S7XMfb7TmQU=8>>4kL4ODU3cnh:6VM^b6Zmn5=8kd;:7kTPe"
A$ = A$ + "_^`jYW^M<`j3?9YST0NoPK3>kQK7;J99HK3Mk]0NoPPgK#j7P_>_8XM_BdF["
A$ = A$ + "_F]lK_D`ibQkZJf;7l]<Zg_Dh`5COD:RX`D2aC#?E:1\^Hl>]<`hjXgDUBoH"
A$ = A$ + "V3NAjbmnkoF7S3[9oAKZA6RE9__eaWc]<lX\]9LN<AI?eTUV1j52WWMjfK2O"
A$ = A$ + "n]9ogY;8;km:N0P[3RH`fiZH8fWBlIPaOFU3gMlC:KH>Nm78\VlU_U?N=Hma"
A$ = A$ + "W:LkYPWK`k3#\GQg2[AcN7h7Ai:OhASo?aWMn#lPcb7RlPDWlQhl`5UCcX:e"
A$ = A$ + "o4d<4W]8j?E1P[i[8iPoLA19C_]B9<[2j=bB0[;WNC=CjShLb^_FcnMGggJH"
A$ = A$ + "lMOSGW=YN7PE2mSI59RfEfAJ?6iRfmm7U]Gf;OdYW\mRc\Of[QG]C<;hbc7M"
A$ = A$ + "I`ic0Onm:b;>3GnC0[ocE=<RQNn#hm7Gn#]cRFbkSNmYGd0]gJNi`[S`j<\G"
A$ = A$ + "NJYK??hmQa_mC0Fo8`[gYSK[LTPcSAN\Q?;N=h\lRXJDLh<LjjX6NGMSZ78T"
A$ = A$ + "O[Z\Y?9X3G:J5ZWPRo:lNAdKE5;Tn\^8j7K1d7aRA_X\djUEFjmRn66^=]Xk"
A$ = A$ + "Z=NjogEmCofYW839l>Ic9Z>H;W?3[Q?Kk2_[kWLlkSLCk7_b2WO1lWm:`W?1"
A$ = A$ + "eTlFDCbkTo0\g1Lnm;:7kS87h7EfPMLIQco5hao57N?<k?AlIE=2kChn>K93"
A$ = A$ + "gn`27Zm>;J`>\neWMf\7Yof;1Nol`_OjYUV]Gln]Khc?Rc?BL>_8?4edl#S2"
A$ = A$ + "oebcWd>D=<Pc[b;>;oMZF4UCLY3PJB#3Y:W>BhF9XMXn_^XT2f5;TN<9LFm["
A$ = A$ + "]PDI]0]jBB[WPglhC5N=e<VAGk`obahXm[Yf3dc>IUCofGGJ1KKI#QIk5oEk"
A$ = A$ + "3>d1PG]oa7[m<C=97OnEaWQdW?5eUl^Pc_KnX=SG^cEJ^fW0OmC0[oCE>4ko"
A$ = A$ + "ZZQKoG;NhfOQh?Ei#]o47o\5?2kSA[n\h3iLU<<k<i?H_jeIA=UI`[OVhe>3"
A$ = A$ + "ZW9=kPC8AlnYjeQK?6?e#ZLS?lmCm<PcZGDZG6[fE33eTCM:eXniYnWRO^Zj"
A$ = A$ + "_7L^BlFD6J8^nN3^^X4QGk=Lm57]S2hgE4m`]LaYIN45W#?Y7_AInMWo[C[n"
A$ = A$ + "N_nOS=V83VII4Z]dDjV]^n7V]Cj]cN0Sg7LXW6?17Tn2MX95_mRdgRG1]iG7"
A$ = A$ + "n\dWO7d=N?`jcFd01S7TmYR?G6JcE<Dk_17n_i3[AkhoJa33\WlRB37mUcaS"
A$ = A$ + "oLU>DW6oYb3?Oc?3kE8gj[0Nobc8Cb5T^m<C^OfSSg_mZNA=JhfPcKODaAOo"
A$ = A$ + "Rff\b9BO=LeKSnliaIdXMNV5O6\^2hcUQnAAd?l2B6mJ2Oh\_OFHMA`[[0L^"
A$ = A$ + "DlPDHBmPNI7Q=iTjSM5o;X7fZFT\jLW]I4AXFA9RO8b=\Zd3ff1mKL?hIma0"
A$ = A$ + "[O:`iW6o0?3kUONjCd[>g<\G5Ln4c;MkD;:;k38_f7El0mP_hahc07o;XM8L"
A$ = A$ + "nokB6^mg8n[Pcoe53FG5Lm:68HM^`[ce>;aY;8Cl\T9eiTU[fM]OaCT^mBXW"
A$ = A$ + "8nmQ`GbnV#BfN6=J9S2o7XA_9hdK2>]Z9ge[DecD_m`FnWG2i3U6]V3Shc53"
A$ = A$ + ">;ldaOCRiiT4h<c1[0hFBGY<N\;VJ6[TJLZB?_T3Wnle3;:oJiodhLkI6cc<"
A$ = A$ + "V`]5`<>;Sm#;Slc[WjXf>mML_TOOOTgi0XCN#b7M8hd_`iaId>XF`C]Xn3O>"
A$ = A$ + ";k\5VSmaUT[mYXAoYh_k?3FnG1CoK`QElGE\4ioPlTUaS5LnC:GjiZ^a<Y6B"
A$ = A$ + "QcmgNklk_mVDkc[<Kfg`ka;3FoRd?ZS?mnC>b<\WHL91_>Fj_:e<BOVT_Sj6"
A$ = A$ + "6NXY?A[0\Ni`[G6i2mEoWZ;AHliaIWo3Q]49So>lM8ONUTV7?e;Fi?1WecMa"
A$ = A$ + "hi[#`TaWH4f_mWOYo3SaoROl?a6BGI^WmZc<S]>I;9]#\UVIHf6ici>#_kA9"
A$ = A$ + "OcnQk\Od5?0mVkYASni9GXj;W`QGK^m3L6=j5VQmnPeO4NknTRcan4ZGiC17"
A$ = A$ + "ocE2>Ge#\o:Jeo5^]2aUo4F;nHi;QeS?2=mg]`nKWY8ZgQlYb;nYmR2]3a"
A$ = A$ + "W9NQIBoXX7D?gDCg>2noN<d#f^je7HmJYnUE>L=KU8l>W0b3Zi4dO`<`Z:0k"
A$ = A$ + "4FG>nX;dQ]:g7i0CFi1k:hHGIVT1K51FG<i9UW`:UV^gLX;6]miPfM6mhOlJ"
A$ = A$ + "5KeOhV\9gcP]ljMW]:YGh[P?KebWa=bWe]cNamBM^?:iLf?eon4S=Fd>RUce"
A$ = A$ + "48GE:N`iid?k]#GmdPe_?hc71nnA2W;=7k?9>=HiO1_NoI^mWb_k?1oEaWhb"
A$ = A$ + "GbAnmbSRl4nnP]WQSW^P10Wf3Vo6`[Und;=[dHODZfc1Fo\hkk#C>5K?\f_5"
A$ = A$ + "j5b61WG7NlG5mnLeZoWZ?Mi#]7m_k<7Bd1Y>`:9:6<^#lG8lDHmRDTHPXOd5"
A$ = A$ + "hd1bm7\Kn_Z6BE_^2i1GcU\#lj=o<Rf^][n7o=6S_<dfc]KnIc::o]BS[;D3"
A$ = A$ + "JgHNVN`i=#OIf6NCg5Njf3LjmA^n3BM3?e4Se><mKnHDCh;Co=NElgMBQcdO"
A$ = A$ + "Sg3LiLXKL>jaQ371Go<QeLKQcOVnIQc2O5OW#H]`icbck3ImAN3OGdODOB>M"
A$ = A$ + "Q2cc1=TnS>5m41NmcCO^?fdBf>ZjYmDBRNnAOA#3IKZWZXM\NjmoZE?#mRc;"
A$ = A$ + "Sj\FLVM7\bSWJYmF<J5^jFLhLG\5U#0>\fQg`][RJ9E>d?G#Na2BZGF\MlKN"
A$ = A$ + "=i=o^`SAOjR=ondAlHdEVO9io0WG3JcK6>afYVfMBN6Qck7_[7TLn?5eYM4j"
A$ = A$ + "mccAOgN1>WOUIUZmVhAh]cCnkbbQcO4QdYoHaO13m4BgFLL`G>nYX9[#[7O\"
A$ = A$ + "d>8TW`cFb0YVa1J_?hlkZNn1V[N0n6\>nbc[Od?kD]S?[Thm?Ahe9K?cDBdE"
A$ = A$ + "_nNaOoS0WhQI?h3BOYG=W3EWUhcGHnjeaL9fhXBaFc`RgFJfAiZ5GJciW0LJ"
A$ = A$ + "d?b7^MQXWD9h\7]MmLI^GbO8nm:;iX\97OTfEO9oT_AhLLQfJKdmZ3F1meO["
A$ = A$ + "jD3RnX4TE7HmjIVJ?4i0g>Hlf7FTD;HO\77Nc17O2fQ0[?2N>>6WSbga[`Ni"
A$ = A$ + "gH^b7]lgeOgNo?ThL`=Ela:WXGnkWD6JgUU=HKfXMT[CohCU6RghL\6LF_hm"
A$ = A$ + "70>oN51FClf`[?5a9#KjUXGg_8ac?c4icPRT\S2FoDlijA5FCNkM2NoP`]GI"
A$ = A$ + ">QKe0ON5ZGXXKDE6QiVaXjmlBY>gbYGB5T##PaNRlC#Je2W3cQaZ?DJ_`BIO"
A$ = A$ + "AEXaGJbAHig_H\>O?oQ_fHl_iWOif#RPi^7EW\RR?0[6bo9LNEhKNmlik1If"
A$ = A$ + "VKS?[2WgUZE1M3iih9YVQ3?AhBC6>5c4De6jY^#`Id?Tfa70VLF`7ickSQKn"
A$ = A$ + "94OZhc>_83`5BoFo\hc:?X_hLlHUWjcB_mn0Nn_?NbO77FWS3_?i2c4?>mcN"
A$ = A$ + "Ib;XL477LnhC;9k`Pe7DmcVN>9?fRK_5dmFGfQkjAc:#cEjREQWRBa_AYXEG"
A$ = A$ + "<e4VOl1BdEKQPai57g>Q^#]PT;4le76;mWZ0G:5_:;:Q^KS9jPoJSc=mF_IK"
A$ = A$ + "2mdO?Jcln]TneE7F_>V7o6ASkQMh<i29OnS#\Giih1`K7m?k#S?Ad>HV[<Ke"
A$ = A$ + "WSim9_7W0mCaY?CNI1_6od\WGe]lAZf5i[f;_fQg^LPBOI0>=6OlN5OT`HZW"
A$ = A$ + "lLdkjcBoVn0NnRC;\FjeZ?g_5JDWHnYkd\E>BEOjcbN[WAmlKl<[maV8i]Sg"
A$ = A$ + "f=jMKSiV_Q\IN]PI;7\ZBM=>QnL9hK^Hh`56OG\lPWUGL1H;8Fo]55GW]BH_"
A$ = A$ + "MUI`JBVM3_GMSn\bc;KllaNmBecSI2lK_j_NNlj?e]?iNfNKQDS]NM[RHUmg"
A$ = A$ + "SVa6#OK;`Ug:NUf1aS#]:2WODZmm0hQn9AohIXNhS0WnI5WViLoZ`]N=j7m9"
A$ = A$ + "Q[mfP1W6O2nZ5oS0SnHd1lXKkagWd^?7gnLj8o\nM><7n\hbW]H2`h?TS_7["
A$ = A$ + "C_3lI=717>CXIgL2N?N=j_b[PGnG0lnXXQmdlIjYWH:fC0Gha8oh^A7Ik`IF"
A$ = A$ + "?lWEB^aJ1_Z:eP]Z8ODY95XE2i0c?n>3>40AWMi4;ZObcQ^NXTnAHdWEjWGF"
A$ = A$ + "Mc:?;l[`NnRPOgY_6m=mN^V[`6D#]dVJ_J[]0dn;RggUVQ`iPInTMgFoP2gN"
A$ = A$ + "XQ5U]Ejohfhci^X>Um`WimRfan`ca1AkhYVHl^J3?2ilE>YGDck6=4Qe_9kY"
A$ = A$ + "ELJhMO0hcIEOl`GmIMh:NoX?ejXW`c_gi7dQmhk#h;Q`J7>cjdIH=Ch\ZmDa"
A$ = A$ + "9YWg_>n[e\`4>oRPc?g<CUn_X[S1jAPVM0L2egPM>l8]=SO??eYCoV6#8d_i"
A$ = A$ + "0]ZY7>EVJG]bacAAPe5#TOR1P^B#XI46Jj`W1CG^CoXKF5`3;:c#\5VMXf#S"
A$ = A$ + "Zcomm<O;o6K4Qf6K:AfFWoAMM2^<N=ZSH]2Wa_o317hQQC_=n\]C`i71LN?<"
A$ = A$ + "CjmQ6m10W?8lUW6LnIP?O4d6?6e^lB>o7heSjUOC=?;ZUkMA7i3a_`Ia_Vd\"
A$ = A$ + "o`j5NnI?g_CG6NkI;6m2G063FonB_#H<HkYa?cKG?Ln=#WjeZ7>o2lNN4j=n"
A$ = A$ + "Aa;The:_mn`Sm^^O>?6A_hl1_8S8:KC3UnP0FEC6dkGRU0g^<ldEZgHa`kZ6"
A$ = A$ + "lM5Pce`aE2V_2i=DH=LkBc9<K^i6kOg[3kPJdMJS8\fIcZgM`e7F7>cnTJ0W"
A$ = A$ + "G3hlj6L?]=C_=4>_Eii0Nm>YFUMSfaS1F_O_HmCCn`31F[IQlL`Q>>j7_0WW"
A$ = A$ + "_TSGk1[?=k[OGjAmk2^L6f[oO?bfN7VKhkZnZ2gomAWi3HV]OHQ:HnGB_0Lm"
A$ = A$ + "]el794>kASVJc9gk[[[E4_hl;bkgaEM<XO8oe?3i?>8NnN<`jM:\NTAI?\`I"
A$ = A$ + "M]RQ6#=X5D;HWlJE5l=5;95fG3V^B`gj#cHeh=L=2[ih:0SG:7[TeX26F:f_"
A$ = A$ + "jJ_V_BLFN]7C?J_=cnhWcgHiTK`Qcln^jL3gF;m9H3`WMJ7bc1eK]3`iMAlX"
A$ = A$ + "eSC[n:M8eK9UCDLJbmolTkoUQKoJ\7nTZ66ZSkDLnO:jgdKSNjKC=7^0\oDT"
A$ = A$ + "7k]YWA:>=ggIDm>4_=k1>3hik0?n<R3;<FlIaUImjTlk[?>o:caCmi_8_G7W"
A$ = A$ + "eH5jjQj`XQL8`j77^`^H^^K3\N;jJ=3LNePceR6#]PU;WNV]<hd2_UG0aOG9"
A$ = A$ + "goZ0GG=eC\>REWM?\Ea\X[9Kio8D[b1gGc_6NGGD<nGNYoDjMMK]AemfIc;J"
A$ = A$ + "o1WkRE6hLeJ_1i8D]D[SNa\Q1SV6k_fb#IVE`Yg1i^O4`imPWY7cik8NjeQ`"
A$ = A$ + "IaYUfABfa4WVhUYN]G3\n=hlm=a;`9MJ8d3ElIOB`kC2fXnFOJ`Ji?i<i1Nj"
A$ = A$ + "2`B`_g:?Zk1oKnhaG0WE>#`IFCDl6lJlJljnZPcZ?]^JcimkiimEcBGGG>2W"
A$ = A$ + "O2h4kJdACMS`YA3DWCK#e=VMgPc2oRcmZAW^Fd[[QXF`MaU57NEP_[UlW[5L"
A$ = A$ + "IehgM]hAHM4[Pn_VIGJm55W_QOiEIi6ZOfH4>7So>O=ET:h<cKOiJMTe<mJ]"
A$ = A$ + "N`i=1Wf7>_MdYmQe:?nnakaC#8od?=nF?4aQY>aWMBD33LkGPJ8D8lnEA;i4"
A$ = A$ + "Jf0^0mKVcm94G7\iDc3lK1dk8QM`?OChh_1jjW4]gCBN^gRSWRm1WRLZWAmX"
A$ = A$ + "6M6Qa_9[AW0mRGc;6oRP]bOW3SaSgcbjmA1SeN]W0n`N1Weljg9cRI;d?EEO"
A$ = A$ + "`6Do#Pc^B`BYE;LFAMY7REWknAc#H<k_G7e]YHm4K0MEM=]>Q4je55Wo3oj["
A$ = A$ + "a6#8]e6G4M0nL7]2`?CihWLIYS>5AMDSYN]5ONS<;8Wn<H\3[eL2aoaS2Wha"
A$ = A$ + "hckn0_?PG^]_Jb?d4IfF47QILM<e7T9C?WhLn5PSoB:G9kWOiYCOUW9c9#c:"
A$ = A$ + "`=_0=K6?c=`GL2^_g4<l=Po;mQC2VZSbW^h`^PI18LfaS1OEoJ?6LHioiX:o"
A$ = A$ + "<[kbWo10WOD`im#o6g=jNKScS76ncV5n1_bY90g]6`G5eQ6jZH_mjLh;L>dI"
A$ = A$ + "L1k_g4JYKPK_<N>C;mX_XhL;n3G_UK`]fV8NWWMdMbF4Nd;5nlB1SG>aZXnY"
A$ = A$ + "eU;jcXM\AMmfB=EZ^#7>[lQPck5LN_Pc?ZliYi6BL0jCYR3BO#N:>N8>g><j"
A$ = A$ + "R7U#e=N<>W?>LmW7>f;#O=OYY9lVS:L[1D3?lnG5MM=;mGSN1N2dKN3WN3h;"
A$ = A$ + "h^nMbCc;=ST\GBg6leieP7Wd;>>_6?W[7CbK?jIlNZiW;MS7UIh^gaj1Wg>k"
A$ = A$ + "9O8>Wf<Lce0WEj3eUIXf:4>SfK=PcR;_nQh1Sg0h[_Hcll4>_:hQ;H0aNAai"
A$ = A$ + ">fPO_U;NWW0meHVad9;?Zc\H`iU06_2REk5WG?[U2WEMQKEH=c_Ghl>8WXlC"
A$ = A$ + "_;`iMklDcWOh:k3^bn9NLR3#_#N:hh?3cDl`<GPSRGkSaikaVDbfaW8m5I:N"
A$ = A$ + "ZGn58WYhi_P^F`8We;8\gY[8lF7AcAmOek?o:h=oUW5?nIBnfIb[5hjc3Nol"
A$ = A$ + "ZN#NM>bDH]Um#?mTA?Sngn4d[lWTgkm[n<i5Wg5hlFeeC6HlVhLLeX?G;jU;"
A$ = A$ + "WLR;SJ#Z6]IYG_Bhce7Sg8lHi7LcJ6>LLeX]Fn#BjRNMDkomn7P?gBK\QgFK"
A$ = A$ + "jXK<?lVG8mL]:lf9nLMZOMXK8]n=A?Xg\nN?#][KQNg]EN?TgSMRgo7QN\[H"
A$ = A$ + "gSVHDXU#oYO<2=;A=CP7GmAUc9Qg?]ZEWJQ?<lZSP_kSB^cSBM4?;hnaPO[#"
A$ = A$ + "e_[NCMLhg?_;BaNAl9ZlZ77^iaej0goahhAE_ShaZ[eJ57UeQ3cmM8NL?=kI"
A$ = A$ + "N:d]N2FS?`h4FC=hD_bNicdNImOWh=M;jkD0HX`iER7[E8?7`WGJJ1aL>0[1"
A$ = A$ + "k[c;>k3[??>[N_bmE3jgU=hT\[jWnUgk^^N_gU=#QcQe:KJhON^DCO1dOo:T"
A$ = A$ + "W3`JW_LZAELj=U[n\d;gJ__jFf2eC]=jgafY7NkPjag9QZ;gQebgW;PGOoL>"
A$ = A$ + "RgT3`ie1YG3?1HmCl0DOSj55hlQI>O71LnIQWODR;d_4dHAGiHLDeoL4gAY5"
A$ = A$ + "Xm0LKG^]4?O8]1M=jYhY#SBc:Flh3<FF[MJJaijGPlS^KG>#d;4N9l3?7eR>"
A$ = A$ + "ab97hb8ZRNlD5liUb][1LO]3<l??>k=TVM=\>\h1W\MeoT_LL>Xkk?Ji6Hc]"
A$ = A$ + "aemFICAh<m4=O`Ii]K9mSgC`iJ9g`J`7c6QC_1j3mVieE[oZGS?<O>Mmm`[F"
A$ = A$ + "m^8Lh<Llm0GfYKk=f_V33aS3FohLN:oPbkmnPOilO3GkYT_#>ZnULHhh76MU"
A$ = A$ + "S#L8G8?S`C9T_QWQJlDhAgm2h\dP56oT><>>kaYg0:Wan#[#e3Z?;kAedbWk"
A$ = A$ + "76<k15^YJ4hLDeND=hJ5XID1h\RU0FGMo9O8JdegWQ;P_9lOiXQG5hlEmCnb"
A$ = A$ + "W_B`=Z1F>MYIPc]fVBD]cQc^J21WUfAell[EiOa[hZTGJ`j=2>[JXN#bAkZ5"
A$ = A$ + "GnYEmh<COe_g71_okDmec;gNG4k1mUMcJ_Rm`_KG\>\KW>3WcXY\Gdf57Cl]"
A$ = A$ + "3XI8#o<?8i?O2F7NLF?T?V3<V4Lonmamoh\flhRW>NVOfGBLPaYL3TW0\EN;"
A$ = A$ + "D?cg5eoiiH_aW4OV1OgZn^\8O4LnYLARgF1J55UToF9Y#]4Y40mdc3F_2d?4"
A$ = A$ + ">\JfOOnPOFN[GJj1IU?`h][l7oUom2=8ZQ9KoK\=V^eBKbd7YIb\DVO\1`\L"
A$ = A$ + "2VNbjaOWd[4WFm9G_?[c;NkA3Ajee7[EOeAo#e<Rn]RM2GGllmbA5?RknT6S"
A$ = A$ + "Wm0J]Ig<WYMAn8=Wg7S7cnQ_iSo_O]G#N67CBPM2[9G6h_R7ggjP[Vd;Llae"
A$ = A$ + "jQ;71mlRJof]FKE>KnLn8`=fYbW3nn#><FnhhL4LDJ5U3nF0h\3[9:7\Fg_h"
A$ = A$ + "ie9L`[W4Oe]\2j?Zda;5o6Gn?l;??HW_WkdB[CgW=Z#K1m5]]f<R\SfLS90j"
A$ = A$ + "WD#<3b#\5g?lgAmmJN\e=0NMicTd#F3JI[SiOklPP_JUGLK`E5Fk2V_ofm62"
A$ = A$ + "kO42=KaM=2?cCBaiomjLWOf]O0<N?\>\G`km0n_7mc^#[1PKS2m6`lc7X1]?"
A$ = A$ + "Ek_gn\\OdODlXJo1[?bcYS3c[i^dk5LRM0gHK`Af2iLN#US7]EE7b:4G6<^h"
A$ = A$ + "Tk<WkR[aAQcY:>=i3E];2W94nj2^m:TV1m19_dj]kkMfG6>gfkhF\n1>?RPK"
A$ = A$ + "V=Y`K]==lg=;lA??V[P7m3ji_[f#eg4F3ieNePeZNle:\FJfPgRK[LSKeE_X"
A$ = A$ + "7n]c?RKFGd;1i?QOWVah>lNOjWMgWNlLojn4Vk`MO[=NSMkFS8L[G:0gD8=9"
A$ = A$ + "_ngEN]m2?FQdSf[l0YL7X?\=h]KEmAgGh5Sg0k?G3N<Z1OLZ_6BWX8`g29:8"
A$ = A$ + "AV]DRnON]3UK\6Eo2k_UFQj5RniUac]4nmc8e;NmP=iF_N;Ao0W3Z9fhk>J7"
A$ = A$ + "AdNlMhW=K=?1lB[[SQZHn>EC?1UnA=`[E]BZVYePndJX?C[GON1gEnAQeZfL"
A$ = A$ + "e_9E?[`JQi2kgRKM`SVX`g7Vl8KQ#7mQi^OWVMS?lGh^Vo[FOZG\Cl__3fo\"
A$ = A$ + "mQcN8ig1lNKXkjkXW`cl<gb#X_^d3m7T?S:f8OVgTdnhhJPcXNR:?6;Vn6EN"
A$ = A$ + "BMVin9<FcBa?[`4jX3W[PnM\4egDiiClJ_abIOPkkS8ib6eGal[^EZk>Q>f8"
A$ = A$ + "KX1e<KlXA?a`KWcga<IF2cWNMDDbTgEe72F_L`HQce16;_N[RI8kZggmIVJI"
A$ = A$ + "hh6Dm<4KBnn9T7#On05>k;d?oPbgRnMNO<Z^GOQ_WWWiUYjm5OW#lNO1hlF8"
A$ = A$ + "N8UCFm]5<Gm]o1m6:7]l3Y#nfdW7mICn3F;HlZbUcWLP3QGR5WNGY7o1JU1n"
A$ = A$ + "F4lh2CXCFnPc54O7MhNiYf5?i2AS#h\joabc0?O\GX2dW;8m#Y?BGl[KV[iB"
A$ = A$ + "naFOKcmJ3\c=f67nX7OgJ[=YNf1K6DKhL`kA1XOD6JeE`<3G\`JVOY^V>Z3<"
A$ = A$ + "^^\YnYL84_P#cBDc\ElTeC?Ide>QlTZi;j`^j7\gMcJ?Pg#L\=Do0\#7ecMC"
A$ = A$ + "NO=lmjEo`MoB7SH]lN^QQRoF`d=bn6eo1Oajdg5IZKN=`[G9?^Eb[O=dKmZ7"
A$ = A$ + "0cS:m0ao6cg0]HQ]N2j5O\]gMkB0W5WNaPcZn5ESXZ9Oi<c9gLE0S;0?`Ag\"
A$ = A$ + "klRRcGa?k7JM_9g^UI7KX=h^fLKTQfJZ1_=fDYf`I3F[iTED21bn9]WRe?Qe"
A$ = A$ + "<WmJYoBeal<5WNe`Y5_Fj8[CiE0[G_jaWc_]7OYKBhjG8f8?f=Y#k3DXW7iE"
A$ = A$ + ">OXe<b]_FfK^FMDJY4[dKnQEkmJPA[cnF[G]bAil61GPO^F_a:I]eMKN>[0N"
A$ = A$ + "LeTCOY3PI32G^<`iBB6?6B[8FoLa2S]3FNm]m>]SR#;YRT3`F:i2G1J4ES7>"
A$ = A$ + "YU_d<INFPcU1f?OdVKd_k6n:kc_ogm=I9fQkcB?`FH35]S9Po^YA?o5>_0Eg"
A$ = A$ + "RVi;JeUA\Hd#FVZ9gk\KZ5MTEjd\mLnYNc^>`nekdA8P__>gec4hjG8f0?FY"
A$ = A$ + "][e6MDc6mlQj[2_V[EiMmVKGiP[UL3;Gm86L_F2MDo\^OGoOdL>dNKRZ5gSO"
A$ = A$ + "WbOYiF\<MKRU`mGYbiA^[Bm6><>1o1K1OSY3f2l6i1>G<mRXRT0WAoFceZjd"
A$ = A$ + "j:_n1b[5J=lc5aJdTB<Bk:oIGnG9>gnKo6\4JKS\<jB;\Q4:eP3OFhldkM7]"
A$ = A$ + "5d7YCeIV;9c:3L^:jmaBD=iTGDN#lXG3OQhli69Lm2g;6^Facm623gP2Q[lh"
A$ = A$ + "GWgWS`ce:L5LB7eL;de>RbiZXF`9iCEkIEO7FVViQg`g?;MCM=DY#o\^f8F<"
A$ = A$ + "i_Z:i0M7eNob1C:5^IYbGABMbiOCn;b7mh55?lZXK_;V_g8?hfU0>G^`IaWe"
A$ = A$ + "kQkmRlRPcUQ6]nkO`XSZKOUH\R6N]GV5K[JXUJ7JVU[d>2YifhkI[]IP_SI6"
A$ = A$ + "UOFNPgigGlj#?C;SI_G6O^[TnO_Hgi=lj<ToJa_Uo8?Qll8^U`NQce?LH>[;"
A$ = A$ + "2CG5lA=c=aEm<c2?Q`FeggjHOSjOVZQ`=WDhR><USnR;lc234oU?GlHGZ`J5"
A$ = A$ + "\>Xj<:Cj\<GeBTWRDH?Zl8CT?imF8ik4>k`Gha^PKG#Omc:e;>[G7?[U\oXo"
A$ = A$ + "X=W=N]inF0cP:QFeX_Fom`:HZ;<afLOD3NC]QeeVHSZK=cVH4]3\VlQPg;8:"
A$ = A$ + "ZC<6`KWNM0XWaWKV3L5h_Fc3#WK;UL3Ek2?L;Q9R7jZMZNLC5nZWBkgEXe4g"
A$ = A$ + "JCmRJiikKMCe3khBjLDmK#kOM1h<c`[Jb5iimFmISNc8N0HPZ_XLhbbGVS73"
A$ = A$ + "O^H`<Yi:N\R5Qg]5F?n\d=LJ7Lk51>G<lebhi9?djeL9X?_T<4G;0[#l8<S4"
A$ = A$ + "2bJb]lKokRa:Jd]NCF<=[1T?\Af#jJS]Q7BC\7PNN<e8ee?J79lcV3eT[[CW"
A$ = A$ + "2de>2nmDmRUBM#Ua<;[0];ecJ?L9_iU5obk\jEO`DOLMLCg<NUVSWJODXOn2"
A$ = A$ + "k7T?M?hZh`nhaJmcaCE_:MmDSOVL5;ULmnRU9lEGo#>>PZQ6O4\o[Dn<F<7;"
A$ = A$ + "AG_]9:laCN_laSa2SWLOX3k3WG8H\;lRc5VXhobC2_Nhm[BNoE]iU`[c2R=8"
A$ = A$ + "K4adEkBnIomaH5gdeLEF?KJ3\4`SG>1f4K8Dgb8kF[HNF]SJ4Ao#lJlP<OdZ"
A$ = A$ + "G8j75PnAQPe5jnlckYF_Q7E5L:aW4N[HiZn6WF>h6h^27f3>F]j=V[NG?cRD"
A$ = A$ + "G7F^NYh2mlhajNNG#OXnh\F?MlG76k9o\>j^nR8:GJ5n`Ihc5iZYV?gjjPaM"
A$ = A$ + "=gR_e_4Ln;bW;Bh<WOUQ7J5BK_`43db?6hbm9D;^>eR_FH\R[TnC[N:e[Ff0"
A$ = A$ + ";EZ3?g^Rn1jdS=\fHCX72[kXC[NNm5=<lP\#geZSW?_5cJ\>?:GmBdY5Zm\d"
A$ = A$ + "K57oFcoBcZWKG_LG^LEhYBQ`<Qk2WE=]n`I]NhCOhRRcNic2SmPcQbk_2aWm"
A$ = A$ + "XIXmKONL6>]kjKn2h\W0NTglOb[Q>^`jQc>=MG??j4kY36l8HK:A7Qe`Kj[f"
A$ = A$ + "?gG<Je]MSF8=i>]hJomHI4#S]1B=RgOX]b6OH]eVRZ7WI8:\N>TGL^hiKN2_"
A$ = A$ + "I^05R>RWmTXOP>BUjj<Am5AWgNaJW>ZGLBm3#N^LH\`GiU`Md3gEJaBgh2ij"
A$ = A$ + "l\O`7VO1mI]ViMo3lJeKAmn]4lh_HnI]oB[m2W;S?CNfg9M3YA371lCJ72Oc"
A$ = A$ + ";FdXSScYn0>[8J`I>V7hL1X?GR^fk#O_4Y]W8i<S;HbO5\=bN6f5]gAG\hoc"
A$ = A$ + "eL5F`XMdkFLW^N;=P0KZ=BVMhh2]=fTYNlYeCb;R6b<#_N>TCL>a`WahdeRP"
A$ = A$ + "`ImMjPc9nlDQlSX[9]jQeJV4^lS>?]LO^0NZd7Lj5ndFl6Ne#^#haCLmaKW7"
A$ = A$ + "?_N:FZb3[[o=2MM`]HMmM2FGQ`Jeg2RBdea5Of:6MEMkRQO8]g567hLO1WS]"
A$ = A$ + "CfLSZmfLkMk]iA_7V?7G#<BCQc?ldjN>BK7mUi5MG\9f[^K1O?gagHLfeo^6"
A$ = A$ + "L;FH=mf\4j#3\\20MJli=JhdCZkDSXVQ8eT?m8K?JeXG3WFJ8i[nPX_k<45;"
A$ = A$ + "OO4U3VG9edhAcFH]W`7?fQcB[fQ[G#OFj6^LQNcCj2USllh]7Lf7N[m6J=dE"
A$ = A$ + "72eYZ_cB;aKh3[UW3YQhdYen>Wg>?HVb9^XhYn4hc;8JZ=[g]Sm[LneW>h>:"
A$ = A$ + "L>OhAnf3D8?f56Mk\Y2OK<hInGmCo1f?jRdci_Zh6_^[d2Z9gV5E[^3?eRgU"
A$ = A$ + "VKg?m<MRBkX7XM`[_?LNfJ^]`YcSNPDXkkYTf;Zl`ZG1Z7ST;RloE8>Wj5^f"
A$ = A$ + "K[iK:LFcCf[VLmi]>LfKo6E]NO^SbORGN_;4Wf]ViIMCHmB8F<h]`iZ4_VgC"
A$ = A$ + "M=6G9k]46kdZma[MHMGLhHNXo9]RI1>?G>>KRIb]5>GPjK9L7ic>OdHF#Ddo"
A$ = A$ + "hnh_5AC^[oQoK8[nK0JK_[Ka2_YgUULKKX=P>g4KhXC?FlN8]SYBoYWNDjcA"
A$ = A$ + "W\I9nLm`IUKAAYPcU1OFkEENa:#3Eh\fSklQ8<Ae0kV]\Wnij3?e<hTGJGM;"
A$ = A$ + "D7_j[^_S^7CmhfndPlD?m5fW8\FG?h;FmjTgKYQMNL6m=U7AkkDN5iAEG;iZ"
A$ = A$ + "fPi1V:LN>X;?7QeBWf;ONAB77OfcWj3W9l\A5E#f?o[YG^;FLWGgeIQeX6Km"
A$ = A$ + "]Y=dBg?b768i33YIhkXe<cUfiZ7OFAk_kjmXnh\S?k`IUKVc9igdi1AlI?eW"
A$ = A$ + "ilG3nNN?MWWcj1;m=[2E;^VAVVEVRjDh3_mnLLH=_6jj[G_VnfShlaXm=>]K"
A$ = A$ + "ic[Nh<m3[4h0ZgHbcT^^PbciQB1WGPc>\6LFh]`NgS3LN1XS?QNRo[XjReY6"
A$ = A$ + "L[oCQanhdMl>_=fGL?FlDSHV1d<lCg<K<QQ>=nYW>NYW9kKV1HmlYNl52>G4"
A$ = A$ + "e5idW1_ee5_[f5`h:YfY:aG`G4WG6HDe2_Z7WEHYK>W2WYo7Nj5WW`7V[7C="
A$ = A$ + "d[==KH=KjU3NkI=C_VB?bkn5YCak[hcZVec[?kbQ#OS#;8?ha;P#nVV[b[Sn"
A$ = A$ + "l<R\MXGdNhbnIcU#iOdSIQ\6<C>g7AgkP=XN6dodH\_hGNiG^e]6g#;RFd#;"
A$ = A$ + "i>f47WNDQd2KRMWNie[>Qol>C0>7[bG[L41kRBB4MIe3EaQP7GU>GQWYI>lE"
A$ = A$ + "RcNaAOcCfeWE=7B_Q3[MO?0mRcdWYUcLmd[Q3We[giidNZCJ9I6\[_LO>o6^"
A$ = A$ + "lI<C>mggHbYYj^DOfW5kAW1N=VVV5=N=V5en>?d6W?L97g6?0C;dfK3?R^Hg"
A$ = A$ + "e=n[oG6>[Xign]JM[U=dR^]`YkBSIV;=WiRS7_8#S^g`W1[W7li55Wl:A]QJ"
A$ = A$ + "f]4UbnBEWKi>]ioklIaglYM8M352olQc>\^NLi_<n\dIlQcZGkB[g]n9m2U?"
A$ = A$ + "Tg7Y?[l3J_Eih[gi1fESR`i00SmgV7ioT_YIA?LlQccPl?c4LO>d[BQoc<2i"
A$ = A$ + "cb?7G>ZfMOo;5Sm5MXQg^5I[_Khd=bbVJ47N8Dg2e7>IZ?L6A3GPeKeKY2C#"
A$ = A$ + "k5AS6MSBhLBe8FR>7IN#jLmlh\Go6eWC_LYiF?>mGFXOWhm:djbbmbSUflRU"
A$ = A$ + ">AFN[SGG;5NmJhl?SVQ[>5n<E:LPB#cX#`IY7?GdNEM0Ro>m8enDE?6N9XN\"
A$ = A$ + "YCnnI#_MDNoYdSfJ3Vck<HOlg6H\ROgeNeF8=k?Jm^3gSe?ZADG;NjkbR^>N"
A$ = A$ + "WBD`5PC_XnBNkHic?eRZ__d5[N<Ylj\G]<j9^>Ge<OlD?QGo^^lENa6aYEoj"
A$ = A$ + "deM\G<gaIoB2WNQdUMG7mjkU3n:L[MNFgFVg__>nZAY<dUE=PUXn`07#J6jk"
A$ = A$ + "4XdTW3hl<P_>=l?<]NaLAYVg9Sn`DkQOfdd]A?NlPi3RLC3>j^JGkEl=okbm"
A$ = A$ + "gThn^a[ajJc^E;Zfg0[Ohc;WPJQ=l^al]hcb<SRNg:\>V^`lNTf1h\cSWhdj"
A$ = A$ + "jB#mbcS>YjO[`HQg^nXjhe2_U?=?nknRe1jkndJP7_6B_`3OFc0MYjkJVl;["
A$ = A$ + "JDlFWR_jC:Sg_Bdgk<Zg^8`ImME#mf#n746;OYC5=R93WMZDoeD2WK7^OfTA"
A$ = A$ + "OHZLk9Q?fQ7F[]QB_>^_kl[GO?oW=^[OgeIQdbkbjMk_K;=Z7O#QBm;PeCY7"
A$ = A$ + "M`VKTMbb3\>?`JmM9EicEhjIZj_T;W8eQkjMkG>_n;F_bi3WW2?e:j;Tn[;h"
A$ = A$ + "fnZk[naWS;ckOQPcj_o0Z_G;b;GNFDSUlU>U8kX=AlZ>Nb_[l>CXk]c6;kGW"
A$ = A$ + "A4Mb67e<<6jiYO=kfoO4<FQljedKmj]#KC3\HX>ancNYQR6bXI^]CUj45F?G"
A$ = A$ + "dZcCG;Chc[4M=fh^faTf8lIheER6R^n;ma[mUGlcgWSj5ZFljk?FnflFSW[f"
A$ = A$ + "JOemYJnl5lkelW;e7G6LNAdoWla[QnKA#NDGb\ac_`hYR^lT0W7Oh]g6=j_j"
A$ = A$ + "LIdQdJK<4SRc]96EPd3R;ng]W_=SfNGg\eM`jH5FSG_QAOVLmoPmIc8b>CMR"
A$ = A$ + "T7ollJmMjEm4WlnZW`LNGUj3_[>L_7mjiCi7eL1nRQWJ>l`mMJ>\^D9mVbUW"
A$ = A$ + "CH^hcNo^GG1o\nkhO9T?X8f;YNSW?lh5#ofVoieTmgMM0=IdTW#4:?3efQ7Z"
A$ = A$ + "1bLTb]c=e6JGK1cm_ef`kE0F4=o?n_5<fGdjkjV\NdVoX5G7_G;;lP<d#JY="
A$ = A$ + ":h2S;2nlC^aIYofB0FG#l:7?H=iimdG9hdjJ:f;_^b<dgcDZG3O^;V`WVbG<"
A$ = A$ + "4_gQaJ>DjjbDmEVk[2gog9D_?UFLXFadSOmg\4mgfQ2#gBLhlP3?7l_Y[[Ki"
A$ = A$ + "MKjd[aYA_M77efNoQe2K4QeB`hVHIiOSX73Pe<;j9eg#]8JeMo_E<fGd<d#R"
A$ = A$ + "\e=dM=SU5n#D^a1C_V6=iAV4N[W9lji0F_#heUZJGLH=i45NkKVM>\6LfEkV"
A$ = A$ + "j[iom`eo9i5Fe?[7?k7T^KIj8Aa`KE>g2ieFHK1LK5j_o>jjFK^D7b\RQmIN"
A$ = A$ + "m8?]NiaCamg]VK3RIc=h#J:c4UiRjOS]\Y^gQgkP]>LkOcjKogfA;^Q[gj1c"
A$ = A$ + "D\_]kN]TkLS]dACcQeA#O0jMW]9CmRcDJfhc^HZUY<>g;3\#mbaC_g90[4Wd"
A$ = A$ + "Yi2_l;6jnEOXD=?USfSNNUPglRYo95aa21W;#c?3m1?o=PAom998ge\f\aSl"
A$ = A$ + "<XV^Ibko<8_Wl7?^N#^=jEc#2\AFVng#;3`hd3XQFVTKOdaf=gOo9o^46k;^"
A$ = A$ + "i[nZ\0^?j5Bk^7;V>g8;=dg68J8SPLgSQJIVTjiT^VZileM=ghVQ[nK?TWX4"
A$ = A$ + "=o>_e[YIBkKF<>]LGoOdm;=N?c\Fk9dJUlW;\EoMeY0=[>j;T[W#d3Pi7CPX"
A$ = A$ + "578mX#m6XchMSeMlX=6l?<Bjak`30mQ>e8;;jiK2ne#;EbkUJ4nKoZ[hkfo_"
A$ = A$ + "3jj^l;cJfML3FH]m?jlRT4j8YSOTLX_CSTJF7?nCeeMc<`cj\E=H<cc5#o_:"
A$ = A$ + "0<^0=;9OmMG71kZ`klceAQkNnI?AUXmFRlaXofW1?FJ4RojnkBRZU6<N><[S"
A$ = A$ + "IcnYY#_b7?ii63iY_o^eBK#T;9W0X^Fha3XC=cB]eXg5AG]`JGSn>=nn5SKm"
A$ = A$ + "jo5F`=[QFh]ZYFTdkj4k<cnRia<RNd6K<X9>VNe6K\d3QY0F?Meo;b==?hg^"
A$ = A$ + "o^RX[i:l5TWVaQKFjNZ]#A9XGXJNDh^]GlEo]E8_42bV7JBc=f0XG51HC7]Z"
A$ = A$ + "YQ7CioAnP6NXTW[[]TIhgL[o<OXdP3dgfOGFo3e?;Q>f1kf^^_j_kkOG=^RO"
A$ = A$ + "l?eJe=O7<?g6JAef6H9e1fOfiVin>M=#hD3ViO=\NfFK\XW<Ee3Kd=UfYdA_"
A$ = A$ + "0OWnTA=K;Pe05bc#N2CE0WO1\F<?_mICNQW1mkAmZMbd?RaC]bSUnA8o`33O"
A$ = A$ + "WiRO]dm_9FZTW;Y>eD;a^dB;Q#K[ePOo_ikEhj5;^n[jb\FgPKf2WNme;ec_"
A$ = A$ + "FO_F:dOe<PKUE`]f6BgJ[=:ZUl1j9e9#_`L1j;CBm<3mlY1^?MQQPUcPN_ji"
A$ = A$ + "Xo^kKJ^J<lWJi`KSZcPl^ZO;SRjU76J]SPH8PWihOc\dl[9FBM\iFJ1g1[?M"
A$ = A$ + "\UFk_kO_MIo_`o_iMUGb?SNnMWF4]^9F?KNS`KBc\4KO;\DjD;LGGfi4DK#g"
A$ = A$ + "Tj40k74L#MmZ>Blf>b`KS=:Z7nnM1n`LAkhgeFW>d8HMJHT_M81cc=XFKiBT"
A$ = A$ + "1lfdk4i6Pgfo>gL;k^dJK0M[CF<MXifmMcgPMiGT_;Do_YhZ_\;eJn]LCVog"
A$ = A$ + "kMKmX]]RnTdB;jfd8;VFg8hK=eB6\95jAEJh?DcI?;fcWMGE0NA<0lWW=mo>"
A$ = A$ + "K^o\2XiFjDCAjPUYCM59kGc\TJ??g>eL;S0K;H[OFRM]mFPT[h^^QO]MIo3<"
A$ = A$ + "?joG1VSoTkhjoeF`=^1F4Pema_FHaiO;\nbnj420L3oF9kmH
YY0NVZ2^_n"
A$ = A$ + "eUFAO\J]e_0KWUJ#]gB9X>Jm;T>II5F0Flng:;X6o7]OkeLUfUnCnoOnokhO"
A$ = A$ + "_#GO9G2JUGkENYfoW[kG`lK^A[SggMJQg^6Km^c]fjC0]aR>`fK94\OF\P[a"
A$ = A$ + "4#K]Hl_]FDM\=FhMXEFk^Wk`Jh_oV\Ok?oWKGbgS>_o^jJQ2mo^Uoco_Mo?a"
A$ = A$ + "o9ngGlo3GQN9%%%0"
btemp$ = ""
For i& = 1 To Len(A$) Step 4: B$ = Mid$(A$, i&, 4)
If InStr(1, B$, "%") Then
For C% = 1 To Len(B$): F$ = Mid$(B$, C%, 1)
If F$ <> "%" Then C$ = C$ + F$
Next: B$ = C$: End If: For j = 1 To Len(B$)
If Mid$(B$, j, 1) = "#" Then
Mid$(B$, j) = "@": End If: Next
For t% = Len(B$) To 1 Step -1
B& = B& * 64 + Asc(Mid$(B$, t%)) - 48
Next: X$ = "": For t% = 1 To Len(B$) - 1
X$ = X$ + Chr$(B& And 255): B& = B& \ 256
Next: btemp$ = btemp$ + X$: Next
btemp$ = _Inflate$(btemp$, m.SIZE)
_MemPut m, m.OFFSET, btemp$: _MemFree m
ImageUranus& = _CopyImage(v&): _FreeImage v&
End Function
![[Image: Christmas-Lander.png]](https://i.ibb.co/YFVvY3g8/Christmas-Lander.png)
