Hello

by Stan Munson

Type MAIN to run the program. Type CS HELLO to run the program again.
Try changing the pen color (SETPC) and width (SETW).
Try using a narrow pen of a different color after a wide pen.
Type just HELLO to run the program without erasing the image.

Hello.lgo

TO HELLO
  TELL 0
  ST
  DRAW.PICTURE HELLO.LIST
  HT
END

TO DRAW.PICTURE :PICTURE
  IF EMPTY? :PICTURE [STOP]
  DRAW.LINES FIRST :PICTURE
  DRAW.PICTURE BUTFIRST :PICTURE
END

TO DRAW.LINES :LINES
  PU SETPOS FIRST :LINES
  PD DRAW.POINTS BUTFIRST :LINES
  PENUP
END

TO DRAW.POINTS :POINTS
  IF EMPTY? :POINTS [STOP]
  SETHEADING TOWARDS FIRST :POINTS
  KILL.SOME.TIME
  SETPOS FIRST :POINTS
  DRAW.POINTS BUTFIRST :POINTS
END

TO KILL.SOME.TIME
  REPEAT 37 [HIDETURTLE SHOWTURTLE]
END

TO HELLO.LIST
  OUTPUT [ [ [-43 -13] [-44 -13] [-45 -13] [-46 -13] [-47 -13] [-48 -13] [-49 -13] [-51 -12] [-52 -11] [-52 -10] [-53 -9] [-56 -6] [-59 -4] [-59 -3] [-60 -2] [-61 -2] [-62 -1] [-63 0] [-64 2] [-64 3] [-64 4] [-64 6] [-64 9] [-64 12] [-62 13] [-61 14] [-61 15] [-60 16] [-59 16] [-58 17] [-56 17] [-53 17] [-49 18] [-46 18] [-45 18] [-42 18] [-41 18] [-41 17] [-41 16] [-41 15] [-41 14] [-41 13] [-41 12] [-41 11] [-41 10] [-41 9] [-41 8] [-41 7] [-41 6] [-41 4] [-41 1] [-41 0] [-41 -1] [-41 -2] [-41 -3] [-41 -4] [-41 -6] [-41 -7] [-43 -9] [-43 -10] [-43 -11] [-44 -11] [-44 -10] [-42 -9] [-42 -8] [-42 -7] [-42 -6] [-43 -6] [-44 -5] [-45 -5] [-46 -5] [-47 -5] [-48 -5] [-48 -6] [-48 -7] [-48 -8] [-49 -8] [-51 -7] [-52 -4] [-52 -3] [-52 -2] [-52 -1] [-52 0] [-50 0] [-49 0] [-48 0] [-46 0] [-45 0] [-45 -1] [-45 -2] [-45 -3] [-45 -4] [-45 -5] [-45 -6] [-45 -7] [-45 -8] [-45 -9] [-46 -9] [-46 -8] [-46 -7] [-46 -6] [-47 -6] [-47 -5] [-47 -4] [-47 -3] [-48 -3] [-48 -2] [-49 -2] [-50 -2] [-52 -2] [-55 -3] [-56 -4] [-56 -5] [-56 -6] [-56 -7] [-54 -8] [-53 -9] [-52 -11] [-50 -12] [-49 -12] [-48 -12] [-47 -12] [-46 -12] [-46 -11] [-46 -10] [-46 -9] [-46 -6] [-46 -5] [-46 -4] [-46 -3] [-47 -3] [-48 -3] [-49 -5] [-51 -6] [-51 -7] [-52 -8] [-52 -9] [-52 -10] [-52 -11] [-51 -11] [-50 -10] [-50 -8] [-50 -6] [-50 -5] [-50 -4] [-50 -3] [-50 -2] [-51 -2] [-52 -2] [-52 -3] [-51 -4] [-50 -4] [-50 -6] [-49 -8] [-48 -10] [-45 -12] [-45 -13] [-44 -13] [-44 -12] [-42 -11] [-42 -10] [-41 -10] [-41 -9] [-41 -8] [-41 -7] [-40 -5] [-38 -3] [-37 0] [-36 2] [-36 3] [-34 4] [-34 5] [-33 7] [-30 10] [-28 12] [-25 13] [-22 15] [-21 16] [-18 16] [-17 16] [-16 16] [-13 15] [-9 13] [-6 12] [-5 10] [-5 9] [-5 7] [-4 5] [-4 3] [-4 0] [-6 -3] [-12 -4] [-16 -5] [-21 -6] [-24 -8] [-26 -9] [-29 -10] [-30 -11] [-32 -11] [-33 -12] [-34 -13] [-38 -13] [-40 -13] [-41 -13] [-42 -13] [-42 -12] [-39 -10] [-38 -8] [-37 -8] [-34 -6] [-33 -5] [-30 -3] [-29 -2] [-29 -3] [-30 -6] [-32 -9] [-33 -11] [-33 -10] [-30 -8] [-30 -6] [-30 -4] [-30 -3] [-30 -2] [-30 -1] [-31 -1] [-32 -1] [-33 -1] [-34 -1] [-34 -2] [-35 -3] [-36 -3] [-36 -5] [-36 -7] [-36 -8] [-36 -9] [-36 -10] [-35 -10] [-34 -8] [-31 -5] [-30 -3] [-30 -2] [-29 -1] [-29 -2] [-29 -3] [-30 -5] [-30 -6] [-31 -7] [-32 -8] [-33 -8] [-34 -8] [-35 -8] [-36 -8] [-37 -10] [-37 -11] [-37 -12] [-38 -13] [-37 -13] [-34 -11] [-33 -9] [-33 -8] [-33 -7] [-31 -6] [-31 -5] [-31 -4] [-32 -4] [-33 -4] [-34 -4] [-35 -4] [-36 -4] [-37 -4] [-37 -5] [-37 -6] [-37 -7] [-36 -7] [-35 -7] [-35 -6] [-36 -6]] [ [-43 -14] [-47 -14] [-53 -14] [-69 -14] [-85 -12] [-101 -9] [-104 -8] [-104 -7] [-105 -5] [-105 -3] [-106 0] [-106 4] [-106 9] [-106 15] [-106 20] [-105 24] [-102 28] [-99 32] [-96 37] [-91 43] [-86 47] [-82 52] [-78 55] [-74 57] [-69 60] [-65 61] [-59 62] [-55 63] [-49 64] [-42 64] [-37 64] [-30 64] [-12 64] [-7 62] [-4 60] [-1 58] [4 55] [11 51] [15 47] [19 43] [20 41] [20 38] [20 34] [20 30] [20 27] [20 24] [20 21] [19 18] [17 15] [15 11] [12 8] [9 6] [7 4] [4 2] [3 1] [0 0] [-1 -1] [-4 -2] [-7 -3] [-10 -3] [-12 -4] [-13 -4] [-16 -5] [-18 -5] [-20 -5] [-21 -6] [-23 -6] [-25 -6] [-28 -6] [-31 -6] [-32 -6]] [ [-50 -15] [-51 -15] [-53 -15] [-57 -15] [-64 -15] [-68 -15] [-72 -16] [-76 -17] [-80 -19] [-83 -19] [-84 -20] [-85 -22] [-88 -23] [-90 -25] [-92 -27] [-93 -28] [-93 -30] [-95 -31] [-95 -34] [-95 -38] [-95 -43] [-94 -47] [-93 -51] [-92 -54] [-90 -57] [-89 -59] [-86 -62] [-81 -65] [-76 -69] [-60 -72] [-44 -75] [-37 -76] [-21 -76] [-15 -76] [-9 -76] [-5 -76] [-2 -76] [-2 -75] [0 -72] [3 -69] [6 -66] [7 -63] [7 -60] [7 -56] [7 -51] [7 -47] [7 -42] [5 -37] [4 -33] [4 -30] [3 -28] [1 -25] [0 -22] [-4 -18] [-8 -15] [-12 -12] [-12 -11] [-13 -11] [-13 -10] [-15 -9] [-16 -9] [-17 -9] [-20 -8] [-21 -7] [-23 -7] [-23 -6]] [ [-67 -28] [-67 -29] [-67 -30] [-66 -33] [-65 -36] [-64 -39] [-62 -41] [-61 -42] [-61 -43] [-61 -44] [-60 -45] [-58 -46] [-56 -47] [-53 -47] [-53 -48] [-48 -48] [-44 -48] [-41 -48] [-40 -48] [-38 -48] [-37 -47] [-35 -46] [-33 -44] [-32 -43] [-30 -42] [-29 -40] [-28 -39] [-26 -37] [-25 -36] [-25 -35] [-25 -34] [-25 -33] [-25 -32]] [ [-63 57] [-62 57] [-61 57] [-60 57] [-59 57] [-58 58] [-57 58] [-57 59] [-56 61] [-54 62] [-53 63] [-52 65] [-50 67] [-50 69] [-49 70] [-49 72] [-49 73] [-49 75] [-48 77] [-48 79] [-48 80] [-48 82] [-48 83] [-48 84] [-49 84] [-50 84] [-51 84] [-52 84] [-52 83] [-53 83] [-53 82] [-53 81] [-53 80] [-53 79] [-53 78] [-53 77] [-53 76] [-53 75] [-53 74] [-52 74] [-50 74] [-50 73] [-49 73] [-46 73] [-45 73] [-43 73] [-41 73] [-38 73] [-35 75] [-33 76] [-31 78] [-29 79] [-28 81] [-27 83] [-26 85] [-25 87] [-25 89] [-25 90] [-25 91] [-25 92] [-26 92] [-27 92] [-28 92] [-29 92] [-29 91] [-29 90] [-29 89] [-29 88] [-29 87] [-29 86] [-29 85] [-29 84] [-29 83] [-29 82] [-28 82] [-26 81] [-25 81] [-22 81] [-21 81] [-17 81]] [ [-41 53] [-40 53] [-36 53] [-33 53] [-30 53] [-29 54] [-28 55] [-25 57] [-23 59] [-21 61] [-21 62] [-21 63] [-21 64] [-20 66] [-18 68] [-18 70] [-18 72] [-18 73] [-18 74] [-19 74] [-20 74] [-21 74] [-22 74] [-23 74] [-23 73] [-23 72] [-23 71] [-22 71] [-22 70] [-21 70] [-21 69] [-18 69] [-17 69] [-16 69] [-13 68] [-12 68] [-10 68] [-9 68] [-9 69] [-8 69] [-7 71] [-5 73] [-4 74] [-2 76] [-1 77] [0 79] [2 80] [3 82] [3 83] [3 84] [3 85] [3 86] [2 86] [1 87] [-1 87] [-3 87] [-4 87] [-5 87] [-6 86] [-7 85] [-7 83] [-8 82] [-8 81] [-8 80] [-8 79] [-6 78] [-2 76] [0 76] [3 75] [8 74] [24 73] [40 72] [44 72] [45 72] [46 72] [45 72]] [ [20 34] [20 35] [20 36] [20 37] [20 38] [20 39] [20 41] [22 42] [22 44] [23 45] [23 47] [25 48] [26 49] [27 50] [29 51] [31 52] [32 52] [34 53] [35 53] [36 53] [38 53] [40 53] [44 53] [50 51] [54 50] [54 49] [54 48] [55 46] [55 43] [56 39] [56 36] [56 34] [56 31] [56 28] [56 26] [55 24] [53 22] [52 20] [52 18] [50 17] [48 15] [47 14] [44 12] [43 10] [40 8] [36 6] [32 5] [31 5] [28 5] [25 5] [21 5] [20 5] [19 5] [18 5] [17 5] [16 6] [15 6] [13 7] [13 8] [12 8] [12 9] [12 10]] [ [-79 54] [-79 55] [-79 57] [-82 60] [-83 63] [-84 64] [-84 65] [-86 66] [-87 67] [-91 69] [-94 71] [-96 73] [-99 73] [-103 74] [-107 74] [-111 74] [-114 74] [-116 74] [-119 73] [-123 70] [-124 68] [-126 67] [-127 64] [-128 62] [-130 59] [-130 57] [-130 55] [-130 53] [-130 51] [-130 49] [-130 48] [-130 47] [-130 44] [-129 42] [-129 40] [-128 39] [-128 38] [-128 37] [-127 35] [-124 34] [-123 32] [-120 31] [-120 30] [-119 29] [-116 28] [-115 27] [-112 26] [-111 26] [-109 26] [-108 26] [-107 26] [-106 26] [-105 26]] [ [-55 -73] [-55 -74] [-56 -75] [-58 -77] [-60 -79] [-60 -81] [-63 -83] [-64 -85] [-67 -87] [-69 -90] [-71 -91] [-72 -93] [-72 -95] [-74 -98] [-76 -100] [-77 -101] [-80 -104] [-87 -106] [-91 -108] [-93 -108] [-97 -109] [-99 -109] [-100 -109]] [ [-30 -79] [-30 -80] [-31 -82] [-31 -85] [-34 -88] [-37 -92] [-40 -95] [-42 -97] [-43 -99] [-44 -100] [-44 -101] [-44 -103] [-44 -104] [-45 -106] [-46 -106] [-46 -108] [-46 -110] [-46 -112] [-46 -113] [-45 -115] [-44 -116] [-41 -119] [-40 -120] [-39 -120] [-39 -121]] [ [-145 -95] [-145 -96] [-145 -97] [-143 -98] [-141 -99] [-134 -100] [-127 -100] [-121 -100] [-99 -101] [-81 -102] [-75 -103] [-72 -103] [-65 -103] [-58 -103] [-42 -104] [-26 -104] [-19 -104] [-13 -105] [-7 -106] [-2 -108] [-1 -109] [2 -110] [9 -113] [27 -114] [34 -116] [35 -117] [35 -116]] [ [95 42] [95 43] [95 45] [95 47] [95 49] [95 51] [95 53] [97 54] [98 55] [99 56] [100 57] [101 57] [101 56] [101 55] [101 54] [101 52] [101 51] [101 49] [101 47] [101 45] [101 42] [101 40] [100 37] [100 35] [99 33] [99 30] [98 28] [98 26] [96 23] [95 21] [94 18] [92 15] [91 13] [90 12] [88 10] [86 5] [84 3] [83 2] [83 0] [82 -3] [80 -6] [79 -8] [78 -11] [76 -13] [75 -16] [75 -17] [74 -19] [74 -20] [74 -21] [74 -22] [74 -23] [73 -23] [72 -23]] [ [126 54] [126 53] [125 52] [124 49] [120 43] [119 40] [118 37] [116 33] [115 29] [112 25] [112 22] [111 21] [110 19] [108 16] [108 14] [107 13] [107 10] [106 8] [104 5] [103 4] [103 2] [102 0] [100 -2] [99 -4] [99 -5] [99 -6] [99 -7] [98 -8] [96 -10] [96 -12] [95 -15] [94 -17] [94 -19] [93 -19] [92 -21] [91 -23] [91 -22] [93 -20] [94 -17] [95 -14] [97 -11] [98 -9] [98 -7] [99 -5] [99 -3] [100 0] [100 2] [100 5] [100 11] [100 13] [100 15] [99 15] [98 15] [95 15] [94 15] [92 15] [91 15] [90 15] [88 15] [87 13] [86 12] [86 11] [86 10] [86 9] [86 8] [86 7] [86 6] [87 6] [88 6] [89 6] [91 5] [94 5] [95 5] [97 5] [101 4] [106 4] [110 3] [111 3] [112 3] [113 3] [114 3] [115 3] [117 4] [121 5] [125 5] [127 6] [130 7] [130 8] [130 9] [130 10] [130 11] [130 12] [129 12] [128 13] [127 13] [126 13] [125 13] [124 13] [123 13] [122 13] [120 13] [120 12] [119 11] [119 10] [118 8] [116 7] [115 5] [115 4] [114 2] [114 1] [114 0] [114 -1] [112 -2] [112 -4] [112 -5] [112 -6] [112 -7] [113 -7] [113 -8] [114 -8] [115 -8] [116 -8] [119 -8] [123 -9] [125 -9] [126 -9] [127 -9] [128 -9] [129 -9] [130 -8] [131 -7] [134 -6] [136 -4] [138 -3] [139 -1] [142 0] [143 2] [145 4] [147 6] [151 9] [154 12] [156 15] [158 18] [161 21] [162 25] [165 28] [166 31] [166 33] [166 37] [167 41] [167 46] [167 49] [167 52] [167 54] [167 56] [166 56] [165 56] [162 55] [159 53] [159 51] [158 50] [158 48] [156 46] [155 44] [155 41] [153 37] [151 33] [150 30] [148 28] [148 26] [147 24] [147 21] [147 18] [146 14] [146 9] [145 7] [145 5] [145 3] [145 1] [145 -1] [145 -4] [145 -6] [145 -7] [145 -8] [146 -8] [147 -8] [149 -8] [153 -8] [155 -8] [157 -8] [159 -8] [160 -8] [162 -6] [163 -4] [166 -3] [166 -1] [167 1] [169 4] [170 7] [174 10] [175 12] [179 16] [182 19] [186 23] [187 26] [190 29] [192 31] [194 34] [195 37] [195 39] [195 41] [196 43] [196 45] [196 47] [196 48] [196 49] [195 49] [194 49] [192 50] [191 50] [190 50] [190 49] [188 48] [186 46] [185 45] [184 43] [183 40] [182 38] [182 36] [180 34] [180 31] [179 29] [179 26] [178 23] [176 21] [175 18] [175 16] [175 14] [175 11] [174 9] [174 8] [174 7] [174 6] [174 4] [174 3] [174 0] [176 -2] [177 -3] [178 -3] [179 -3] [181 -3] [183 -3] [184 -3] [186 -1] [187 1] [190 3] [191 5] [194 7] [195 9] [198 11] [199 12] [202 13] [205 15] [206 16] [207 16] [206 16] [204 15] [203 14] [203 13] [200 12] [199 10] [198 9] [198 8] [196 6] [196 5] [195 4] [195 3] [195 2] [195 1] [195 0] [195 -1] [197 -1] [199 -2] [201 -2] [203 -2] [205 -2] [206 -2] [207 -2] [208 -1] [209 0] [210 2] [210 3] [212 5] [214 6] [214 8] [215 9] [215 11] [215 12] [215 14] [215 16] [215 18] [215 20] [215 21] [215 23] [215 24] [214 24] [212 24] [211 25] [209 25] [208 25] [207 25] [206 24] [206 23] [206 22] [206 21] [206 20] [206 19] [207 19] [209 18] [211 18] [214 17] [217 17] [218 17] [219 17] [221 17] [222 17] [222 18] [223 18]] [ [269 60] [269 59] [268 58] [268 55] [265 52] [264 50] [263 47] [261 45] [261 43] [260 41] [259 37] [258 34] [257 31] [257 30] [256 28] [256 25] [255 23] [253 21] [252 19] [252 17] [251 14] [251 13] [250 12] [249 11] [249 9] [248 9] [248 8] [248 6] [248 5] [248 3] [247 1] [245 -1] [245 -2]] [ [239 -16] [239 -17] [240 -17] [240 -16] [240 -15] [240 -16] [241 -16] [242 -16] [241 -16] [240 -16]] [ [-257 115]] [ [-244 -50]] [ [-191 82]] [ [-187 -41]]]
END

TO MAIN
  CS CT HELLO
  PRINT "|Type 'CS HELLO' to run this program again.|
  PRINT "|Try changing the pen color (SETPC) and width (SETW).|
  PRINT "|Try using a narrow pen of a different color after a wide pen.|
END

MAIN

---

Procedure	MAIN
Description	A hello demo with a simple drawing and written hello
Level	Intermediate
Tags	Art