1HGR2
2READC,D,A,B,V,W:IFC>127THENEND
3P=0:FORY=BTOW:HCOLOR=C:IFPTHENHCOLOR=D
4P=NOTP:HPLOTA,YTOV,Y:NEXT:GOTO2
50 DATA 3,3,0,0,140,90
52 DATA 3,3,140,0,279,90
60 DATA 1,6,0,90,140,191
62 DATA 1,6,140,90,279,191
64 DATA 4,1,157,121,208,191
70 DATA 0,7,141,116,231,135
71 DATA 7,0,156,20,209,126
72 DATA 0,7,210,17,213,121
75 DATA 7,0,145,9,212,20
76 DATA 0,7,162,0,220,20
77 DATA 5,0,172,91,187,123
78 DATA 7,7,169,31,191,63
79 DATA 7,7,165,39,194,60
80 DATA 5,1,0,163,63,191
82 DATA 5,1,63,167,177,191
84 DATA 5,1,177,185,230,191
90 DATA 5,0,23,0,39,178
91 DATA 1,5,1,13,99,44
92 DATA 5,0,0,0,20,191
94 DATA 0,5,66,0,81,187
96 DATA 1,5,66,1,99,19
97 DATA 0,0,177,32,181,50
999 DATA 128,0,0,0,0,0