Twinkle, Twinkle Little Star
Dim LittleStar As New Star(Size:=Little)
Dim I As New Observer()
LittleStar.Twinkle(2)
I.Wonder(LittleStar, Options.WhatYouAre)
I.Observe(LittleStar, Locations.UpAboveTheWorld, Distances.SoHigh)
I.Comparison(LittleStar, Objects.Diamond, Locations.InTheSky)
LittleStar.Twinkle(2)
I.Wonder(RepeatPrevious)
|
