1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | beep open window 640, 512 setrgb 0, 127, 127, 127 clear window setrgb 1, 0, 0, 255 setrgb 2, 0, 255, 0 setrgb 3, 255, 0, 0 triangle 5, 5 to 5, 35 to 35, 35 gtriangle 45, 5 to 45, 35 to 75, 5 circle 100, 20, 17 fill circle 140, 20, 17 rectangle 165, 5, 195, 35 fill rectangle 205, 5, 235, 35 line 245, 5 to 275, 35 line 275, 5 to 245, 35 dot 285,5 dot 315,5 dot 285,35 dot 315,35 setrgb 1, 0, 0, 0 line 320, 0 to 320, 512 text$ = "1234567890xXXxXffFFfFiiIIiImmMMmMggGGgG" line 0, 100, 640, 100 text 320, 100, text$, "lb" line 0, 140, 640, 140 text 320, 140, text$, "cb" line 0, 180, 640, 180 text 320, 180, text$, "rb" line 0, 220, 640, 220 text 320, 220, text$, "lt" line 0, 260, 640, 260 text 320, 260, text$, "lb" line 0, 300, 640, 300 text 320, 300, text$, "lc" beep pause 0.5 beep pause 0.5 beep pause 0.5 beep pause 0.5 beep pause 0.5 |