Perry Pumpkin

    'Perry the pumpkin.
 
    NoMainWin
 
    WindowWidth = 202
    WindowHeight = 268
    UpperLeftX = Int((DisplayWidth-WindowWidth)/2)
    UpperLeftY = Int((DisplayHeight-WindowHeight)/2)
    GraphicBox #Win.g, 0, 0, 196, 240
    Open "Perry" For Window_NF As #Win
    #Win, "TrapClose [Quit]"
    #Win.g, "when leftButtonUp [Whoa]"
 
    #Win.g, "down; fill black; backcolor black; color 240 240 0"
    #Win.g, "Place 36 20; Font Comic_Sans_MS 16"
    #Win.g, "|Do not click!"
    #Win.g, "color 216 114 1; backcolor 255 96 0"
    #Win.g, "size 4; place 96 131 ; ellipsefilled 160 158"
    #Win.g, "color 255 145 34; size 2"
    #Win.g, "place 96 131 ; ellipse 160 158"
    #Win.g, "place 96 131 ; ellipse 120 158"
    #Win.g, "place 96 131 ; ellipse 70 158"
    #Win.g, "color 38 15 0; size 7; line 106 123 119 98"
    #Win.g, "line 134 122 106 123; line 122 100 134 122"
    #Win.g, "line 72 99 64 123; line 72 99 85 124"
    #Win.g, "line 67 124 85 124; line 74 111 70 121"
    #Win.g, "line 74 111 80 122; line 73 120 80 122"
    #Win.g, "line 121 106 113 121; line 121 106 126 118"
    #Win.g, "line 113 118 126 118; color 111 46 2"
    #Win.g, "size 4; line 71 97 62 123"
    #Win.g, "color 111 46 2; line 71 97 87 124"
    #Win.g, "line 62 126 87 124; line 119 97 104 124; line 119 97 137 124"
    #Win.g, "line 106 126 137 124; line 74 157 67 177"
    #Win.g, "line 75 156 87 175; line 99 158 90 175"
    #Win.g, "line 100 159 110 176; line 120 159 131 173"
    #Win.g, "color 111 46 2; size 6; line 112 175 120 160"
    #Win.g, "line 68 175 85 175; line 80 174 68 178"
    #Win.g, "line 77 162 80 173; line 72 174 77 162"
    #Win.g, "line 132 174 114 175; line 121 167 125 173"
    #Win.g, "line 116 174 121 167; line 87 175 111 176"
    #Win.g, "line 99 164 94 175; line 99 164 107 174"
    #Win.g, "line 99 171 105 175; color 244 98 0"
    #Win.g, "backcolor 255 128 0; size 1"
    #Win.g, "place 96 62 ; ellipsefilled 44 18"
    #Win.g, "color 30 77 44; Size 6; line 87 46 87 59"
    #Win.g, "color 30 77 44; line 92 41 87 46"
    #Win.g, "line 98 36 92 41; line 107 32 98 36"
    #Win.g, "line 111 32 119 35; line 111 39 119 35"
    #Win.g, "line 106 47 111 39"
    #Win.g, "line 106 47 111 56; line 111 56 114 60"
    #Win.g, "line 107 64 114 60; line 100 65 107 64"
    #Win.g, "line 93 63 100 65; line 89 60 93 63"
    #Win.g, "color 45 100 53; line 106 50 106 60"
    #Win.g, "line 107 60 111 60"
    #Win.g, "line 101 51 110 60; line 109 40 103 51"
    #Win.g, "line 113 35 109 40; line 102 46 113 35"
    #Win.g, "line 101 60 102 46; line 101 60 105 62"
    #Win.g, "color 57 119 82; line 99 45 98 60; set 97 50"
    #Win.g, "line 110 36 99 45; line 112 34 110 36"
    #Win.g, "line 98 39 112 34; line 89 50 98 39"
    #Win.g, "line 89 50 91 59; line 91 59 101 62"
    #Win.g, "line 93 50 95 58 line 93 54 97 43"
    #Win.g, "flush"
 
Wait
 
[Quit]
    Close #Win
End
 
[Whoa]
    Msg$ = "Ahem..."+Chr$(13)+_
    "Perry Pumpkin gets nervous in the autumn."+Chr$(13)+Chr$(13)+_
    "There's a chance he'll get turned into pumpkin pie for Thanksgiving after Halloween."+Chr$(13)+Chr$(13)+_
    "But you clicking on the screen isn't helping."+Chr$(13)+Chr$(13)+_
    "It just scares him."
    Notice Msg$
Wait