4HGR
5INPUT "WHAT'S YOUR NAME? "; a$
10HGR
20HCOLOR =2
30HPLOT 128, 10 TO 128, 120
40HCOLOR =7
50HPLOT 123, 10 TO 133, 120
60HCOLOR =15
70HPLOT 118, 10 TO 138, 120
80HCOLOR =2
90HPLOT 113, 10 TO 143, 120
100HCOLOR =7
110HPLOT 108, 10 TO 148, 120
120HCOLOR =15
130HPLOT 103, 10 TO 153, 120
140HCOLOR =2
150HPLOT 98, 10 TO 158, 120
160HCOLOR =7
170HPLOT 93, 10 TO 163, 120
180HCOLOR =15
190HPLOT 88, 10 TO 168, 120
200HCOLOR =2
210HPLOT 83, 10 TO 173, 120
220HCOLOR =7
230HPLOT 78, 10 TO 178, 120
240HCOLOR =15
250HPLOT 73, 10 TO 183, 120
260HCOLOR =2
270HPLOT 68, 10 TO 188, 120
280HCOLOR =7
290HPLOT 63, 10 TO 193, 120
300HCOLOR =15
310HPLOT 58, 10 TO 198, 120
320HCOLOR =2
330HPLOT 53, 10 TO 203, 120
340HCOLOR =7
350HPLOT 48, 10 TO 208, 120
360HCOLOR =15
370HPLOT 43, 10 TO 213, 120
380HCOLOR =2
390HPLOT 38, 10 TO 218, 120
400HCOLOR =7
410HPLOT 33, 10 TO 223, 120
420HCOLOR =15
430HPLOT 28, 10 TO 228, 120
440HCOLOR =2
450HPLOT 23, 10 TO 233, 120
460HCOLOR =7
470HPLOT 18, 10 TO 238, 120
480HCOLOR =15
490HPLOT 13, 10 TO 243, 120
500HCOLOR =2
510HPLOT 8, 10 TO 248, 120
520HCOLOR =7
530HPLOT 3, 10 TO 253, 120
550? "THAT'S ALL, "; a$
560END
