Text Scroller

Blitz3D Forums/Blitz3D Beginners Area/Text Scroller

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Yeah.. like this:
Graphics 800,600,0,2
	
	font=LoadFont("Calligraph421 BT",100,1)
	SetFont font

	oldfile$="DungeonBlitz"	
	exists=OpenFile(oldfile$+".bb")
	If exists Then CloseFile exists:DeleteFile(oldfile$+".bb")
	file=WriteFile(oldfile$+".bb")
	WriteLine file,("    Function "+oldfile$+"Text(x,y,r=255,g=255,b=222)")
	WriteLine file,("        x=0:y=0")
	WriteLine file,("        color r,g,b")
		
	
	A$="DungeonBlitz"
	Text 0,0,A$
	width=StringWidth(A$)
	height=StringHeight(A$)
	
	newx=0
	newy=0
	
	count=0
     	
	For x = 0 To width
		For y = 0 To height
			GetColor x,y
			If ColorRed()+ColorGreen()+ColorBlue() > 0 Then count=count+1
			If ColorRed()+ColorGreen()+ColorBlue() = 0 Then
				Color 0,0,255
				If count = 1 Then Plot newx,newy-1:WriteLine file,("        Plot x+"+newx+",y+"+Str(newy-1))
				If count > 1 Then Line newx,newy-(count),newx,newy-1:WriteLine file,("        Line x+"+newx+",y+"+Str(Newy-count)+",x+"+newx+",y+"+Str(newy-1))
				count = 0
				End If
			newy=newy+1
			Next
		Color 0,0,255
		If count = 1 Then Plot newx,newy-1:WriteLine file,("        Plot x+"+newx+",y+"+Str(newy-1))
		If count > 1 Then Line newx,newy-(count),newx,newy-1:WriteLine file,("        Line x+"+newx+",y+"+Str(Newy-count)+",x+"+newx+",y+"+Str(newy-1))
		count=0
		newx=newx+1
		newy=0
		Next
	WriteLine file,("    End Function")
	WaitKey()
	End


Simple program, which outputs a function which draws the text hehe. Of course you'd have to change the font name, the oldfile$ (where its being saved to, minus the .bb extension - it just overwrites the file if it exists) and the text itself to print. Not quite what you're looking for.. but here's a really cool example for people with nothing to do:

(slightly altered, so its standalone, not a function)
    Graphics 800,600
        Color 255,255,255
        Line x+3,y+79,x+3,y+81
        Line x+4,y+28,x+4,y+29
        Line x+4,y+79,x+4,y+81
        Line x+5,y+27,x+5,y+29
        Line x+5,y+78,x+5,y+81
        Line x+6,y+27,x+6,y+29
        Line x+6,y+78,x+6,y+81
        Line x+7,y+26,x+7,y+29
        Line x+7,y+78,x+7,y+81
        Line x+8,y+26,x+8,y+29
        Line x+8,y+78,x+8,y+81
        Line x+9,y+26,x+9,y+29
        Line x+9,y+78,x+9,y+80
        Line x+10,y+26,x+10,y+29
        Line x+10,y+58,x+10,y+80
        Line x+11,y+26,x+11,y+80
        Line x+12,y+25,x+12,y+80
        Line x+13,y+25,x+13,y+80
        Line x+14,y+25,x+14,y+80
        Line x+15,y+25,x+15,y+80
        Line x+16,y+25,x+16,y+80
        Line x+17,y+24,x+17,y+80
        Line x+18,y+24,x+18,y+47
        Line x+18,y+71,x+18,y+79
        Line x+19,y+24,x+19,y+29
        Line x+19,y+74,x+19,y+79
        Line x+20,y+24,x+20,y+28
        Line x+20,y+74,x+20,y+79
        Line x+21,y+24,x+21,y+28
        Line x+21,y+75,x+21,y+79
        Line x+22,y+24,x+22,y+28
        Line x+22,y+75,x+22,y+79
        Line x+23,y+23,x+23,y+27
        Line x+23,y+75,x+23,y+79
        Line x+24,y+23,x+24,y+27
        Line x+24,y+75,x+24,y+79
        Line x+25,y+23,x+25,y+27
        Line x+25,y+76,x+25,y+79
        Line x+26,y+23,x+26,y+27
        Line x+26,y+76,x+26,y+79
        Line x+27,y+23,x+27,y+27
        Line x+27,y+76,x+27,y+79
        Line x+28,y+23,x+28,y+26
        Line x+28,y+76,x+28,y+79
        Line x+29,y+23,x+29,y+26
        Line x+29,y+76,x+29,y+79
        Line x+30,y+22,x+30,y+26
        Line x+30,y+76,x+30,y+79
        Line x+31,y+22,x+31,y+26
        Line x+31,y+76,x+31,y+79
        Line x+32,y+22,x+32,y+26
        Line x+32,y+76,x+32,y+79
        Line x+33,y+22,x+33,y+26
        Line x+33,y+76,x+33,y+79
        Line x+34,y+22,x+34,y+26
        Line x+34,y+76,x+34,y+79
        Line x+35,y+22,x+35,y+26
        Line x+35,y+76,x+35,y+79
        Line x+36,y+22,x+36,y+26
        Line x+36,y+76,x+36,y+79
        Line x+37,y+22,x+37,y+26
        Line x+37,y+75,x+37,y+79
        Line x+38,y+22,x+38,y+26
        Line x+38,y+75,x+38,y+79
        Line x+39,y+22,x+39,y+27
        Line x+39,y+75,x+39,y+79
        Line x+40,y+22,x+40,y+27
        Line x+40,y+75,x+40,y+79
        Line x+41,y+22,x+41,y+27
        Line x+41,y+74,x+41,y+78
        Line x+42,y+22,x+42,y+27
        Line x+42,y+74,x+42,y+78
        Line x+43,y+22,x+43,y+28
        Line x+43,y+74,x+43,y+78
        Line x+44,y+22,x+44,y+28
        Line x+44,y+73,x+44,y+78
        Line x+45,y+22,x+45,y+29
        Line x+45,y+73,x+45,y+78
        Line x+46,y+22,x+46,y+29
        Line x+46,y+72,x+46,y+77
        Line x+47,y+23,x+47,y+30
        Line x+47,y+72,x+47,y+77
        Line x+48,y+23,x+48,y+30
        Line x+48,y+71,x+48,y+77
        Line x+49,y+23,x+49,y+31
        Line x+49,y+70,x+49,y+76
        Line x+50,y+23,x+50,y+32
        Line x+50,y+69,x+50,y+76
        Line x+51,y+23,x+51,y+33
        Line x+51,y+69,x+51,y+75
        Line x+52,y+24,x+52,y+34
        Line x+52,y+67,x+52,y+75
        Line x+53,y+24,x+53,y+35
        Line x+53,y+66,x+53,y+74
        Line x+54,y+24,x+54,y+37
        Line x+54,y+65,x+54,y+74
        Line x+55,y+25,x+55,y+39
        Line x+55,y+63,x+55,y+73
        Line x+56,y+25,x+56,y+41
        Line x+56,y+61,x+56,y+72
        Line x+57,y+26,x+57,y+45
        Line x+57,y+57,x+57,y+71
        Line x+58,y+27,x+58,y+70
        Line x+59,y+27,x+59,y+69
        Line x+60,y+28,x+60,y+68
        Line x+61,y+29,x+61,y+67
        Line x+62,y+30,x+62,y+65
        Line x+63,y+31,x+63,y+64
        Line x+64,y+33,x+64,y+62
        Line x+65,y+35,x+65,y+60
        Line x+66,y+37,x+66,y+57
        Line x+67,y+41,x+67,y+53
        Line x+78,y+49,x+78,y+72
        Line x+79,y+49,x+79,y+76
        Line x+80,y+48,x+80,y+77
        Line x+81,y+48,x+81,y+79
        Line x+82,y+48,x+82,y+79
        Line x+83,y+47,x+83,y+80
        Line x+84,y+47,x+84,y+80
        Line x+85,y+46,x+85,y+81
        Line x+86,y+46,x+86,y+54
        Line x+86,y+68,x+86,y+81
        Line x+87,y+46,x+87,y+50
        Line x+87,y+72,x+87,y+81
        Line x+88,y+46,x+88,y+49
        Line x+88,y+73,x+88,y+81
        Line x+89,y+46,x+89,y+48
        Line x+89,y+74,x+89,y+81
        Line x+90,y+74,x+90,y+81
        Line x+91,y+75,x+91,y+81
        Line x+92,y+75,x+92,y+80
        Line x+93,y+75,x+93,y+80
        Line x+94,y+75,x+94,y+79
        Line x+95,y+74,x+95,y+79
        Line x+96,y+74,x+96,y+78
        Line x+97,y+74,x+97,y+77
        Line x+98,y+73,x+98,y+77
        Line x+99,y+48,x+99,y+50
        Line x+99,y+73,x+99,y+76
        Line x+100,y+48,x+100,y+52
        Line x+100,y+72,x+100,y+76
        Line x+101,y+48,x+101,y+82
        Line x+102,y+47,x+102,y+82
        Line x+103,y+47,x+103,y+82
        Line x+104,y+46,x+104,y+82
        Line x+105,y+46,x+105,y+81
        Line x+106,y+46,x+106,y+81
        Line x+107,y+46,x+107,y+80
        Line x+108,y+46,x+108,y+79
        Line x+109,y+46,x+109,y+50
        Line x+116,y+49,x+116,y+51
        Line x+117,y+49,x+117,y+51
        Line x+118,y+49,x+118,y+51
        Line x+119,y+48,x+119,y+51
        Line x+120,y+48,x+120,y+51
        Line x+121,y+47,x+121,y+51
        Line x+122,y+47,x+122,y+53
        Line x+123,y+47,x+123,y+55
        Line x+124,y+46,x+124,y+81
        Line x+125,y+46,x+125,y+81
        Line x+126,y+46,x+126,y+81
        Line x+127,y+46,x+127,y+81
        Line x+128,y+47,x+128,y+80
        Line x+129,y+48,x+129,y+80
        Line x+130,y+49,x+130,y+80
        Line x+131,y+50,x+131,y+79
        Line x+132,y+49,x+132,y+53
        Line x+133,y+49,x+133,y+52
        Line x+134,y+48,x+134,y+52
        Line x+135,y+48,x+135,y+51
        Line x+136,y+48,x+136,y+51
        Line x+137,y+47,x+137,y+50
        Line x+138,y+47,x+138,y+50
        Line x+139,y+47,x+139,y+50
        Line x+140,y+46,x+140,y+51
        Line x+141,y+46,x+141,y+51
        Line x+142,y+46,x+142,y+52
        Line x+143,y+46,x+143,y+53
        Line x+144,y+46,x+144,y+55
        Line x+144,y+78,x+144,y+81
        Line x+145,y+46,x+145,y+58
        Line x+145,y+73,x+145,y+81
        Line x+146,y+46,x+146,y+81
        Line x+147,y+46,x+147,y+81
        Line x+148,y+46,x+148,y+80
        Line x+149,y+47,x+149,y+80
        Line x+150,y+48,x+150,y+80
        Line x+151,y+49,x+151,y+79
        Line x+152,y+50,x+152,y+79
        Line x+153,y+54,x+153,y+78
        Line x+154,y+75,x+154,y+78
        Line x+155,y+75,x+155,y+78
        Line x+156,y+75,x+156,y+78
        Line x+157,y+75,x+157,y+77
        Line x+158,y+75,x+158,y+77
        Line x+162,y+88,x+162,y+93
        Line x+163,y+87,x+163,y+94
        Line x+164,y+56,x+164,y+64
        Line x+164,y+85,x+164,y+95
        Line x+165,y+53,x+165,y+67
        Line x+165,y+85,x+165,y+95
        Line x+166,y+52,x+166,y+68
        Line x+166,y+84,x+166,y+96
        Line x+167,y+50,x+167,y+69
        Line x+167,y+83,x+167,y+96
        Line x+168,y+50,x+168,y+70
        Line x+168,y+83,x+168,y+96
        Line x+169,y+49,x+169,y+71
        Line x+169,y+83,x+169,y+96
        Line x+170,y+48,x+170,y+72
        Line x+170,y+83,x+170,y+96
        Line x+171,y+48,x+171,y+72
        Line x+171,y+83,x+171,y+86
        Line x+171,y+91,x+171,y+96
        Line x+172,y+47,x+172,y+55
        Line x+172,y+61,x+172,y+73
        Line x+172,y+92,x+172,y+96
        Line x+173,y+47,x+173,y+53
        Line x+173,y+63,x+173,y+73
        Line x+173,y+92,x+173,y+96
        Line x+174,y+46,x+174,y+52
        Line x+174,y+65,x+174,y+73
        Line x+174,y+93,x+174,y+96
        Line x+175,y+46,x+175,y+51
        Line x+175,y+66,x+175,y+73
        Line x+175,y+93,x+175,y+96
        Line x+176,y+46,x+176,y+50
        Line x+176,y+66,x+176,y+73
        Line x+176,y+93,x+176,y+96
        Line x+177,y+46,x+177,y+50
        Line x+177,y+67,x+177,y+73
        Line x+177,y+93,x+177,y+96
        Line x+178,y+46,x+178,y+49
        Line x+178,y+67,x+178,y+73
        Line x+178,y+93,x+178,y+96
        Line x+179,y+46,x+179,y+49
        Line x+179,y+68,x+179,y+73
        Line x+179,y+93,x+179,y+96
        Line x+180,y+46,x+180,y+49
        Line x+180,y+68,x+180,y+73
        Line x+180,y+92,x+180,y+95
        Line x+181,y+46,x+181,y+49
        Line x+181,y+68,x+181,y+72
        Line x+181,y+92,x+181,y+95
        Line x+182,y+46,x+182,y+50
        Line x+182,y+68,x+182,y+72
        Line x+182,y+92,x+182,y+95
        Line x+183,y+46,x+183,y+51
        Line x+183,y+67,x+183,y+71
        Line x+183,y+91,x+183,y+95
        Line x+184,y+46,x+184,y+52
        Line x+184,y+63,x+184,y+71
        Line x+184,y+91,x+184,y+95
        Line x+185,y+47,x+185,y+53
        Line x+185,y+60,x+185,y+73
        Line x+185,y+90,x+185,y+94
        Line x+186,y+47,x+186,y+75
        Line x+186,y+89,x+186,y+94
        Line x+187,y+47,x+187,y+77
        Line x+187,y+88,x+187,y+94
        Line x+188,y+48,x+188,y+79
        Line x+188,y+87,x+188,y+93
        Line x+189,y+48,x+189,y+81
        Line x+189,y+86,x+189,y+93
        Line x+190,y+49,x+190,y+92
        Line x+191,y+49,x+191,y+64
        Line x+191,y+67,x+191,y+92
        Line x+192,y+49,x+192,y+62
        Line x+192,y+69,x+192,y+91
        Line x+193,y+49,x+193,y+60
        Line x+193,y+71,x+193,y+91
        Line x+194,y+49,x+194,y+54
        Line x+194,y+72,x+194,y+90
        Line x+195,y+49,x+195,y+54
        Line x+195,y+73,x+195,y+89
        Line x+196,y+49,x+196,y+54
        Line x+196,y+75,x+196,y+88
        Line x+197,y+49,x+197,y+54
        Line x+197,y+76,x+197,y+87
        Line x+198,y+49,x+198,y+54
        Line x+198,y+78,x+198,y+86
        Line x+199,y+49,x+199,y+54
        Line x+199,y+80,x+199,y+84
        Line x+200,y+49,x+200,y+54
        Line x+201,y+49,x+201,y+54
        Line x+206,y+60,x+206,y+70
        Line x+207,y+57,x+207,y+73
        Line x+208,y+55,x+208,y+75
        Line x+209,y+53,x+209,y+76
        Line x+210,y+52,x+210,y+77
        Line x+211,y+51,x+211,y+78
        Line x+212,y+50,x+212,y+79
        Line x+213,y+49,x+213,y+79
        Line x+214,y+48,x+214,y+56
        Line x+214,y+62,x+214,y+80
        Line x+215,y+48,x+215,y+54
        Line x+215,y+61,x+215,y+65
        Line x+215,y+69,x+215,y+80
        Line x+216,y+47,x+216,y+52
        Line x+216,y+61,x+216,y+64
        Line x+216,y+71,x+216,y+80
        Line x+217,y+47,x+217,y+51
        Line x+217,y+61,x+217,y+64
        Line x+217,y+72,x+217,y+81
        Line x+218,y+46,x+218,y+50
        Line x+218,y+61,x+218,y+64
        Line x+218,y+73,x+218,y+81
        Line x+219,y+46,x+219,y+50
        Line x+219,y+60,x+219,y+64
        Line x+219,y+74,x+219,y+81
        Line x+220,y+46,x+220,y+49
        Line x+220,y+60,x+220,y+63
        Line x+220,y+74,x+220,y+81
        Line x+221,y+46,x+221,y+49
        Line x+221,y+59,x+221,y+63
        Line x+221,y+75,x+221,y+81
        Line x+222,y+46,x+222,y+49
        Line x+222,y+58,x+222,y+63
        Line x+222,y+75,x+222,y+81
        Line x+223,y+46,x+223,y+50
        Line x+223,y+57,x+223,y+62
        Line x+223,y+75,x+223,y+81
        Line x+224,y+46,x+224,y+51
        Line x+224,y+56,x+224,y+62
        Line x+224,y+75,x+224,y+81
        Line x+225,y+46,x+225,y+61
        Line x+225,y+75,x+225,y+81
        Line x+226,y+46,x+226,y+61
        Line x+226,y+75,x+226,y+81
        Line x+227,y+46,x+227,y+60
        Line x+227,y+74,x+227,y+81
        Line x+228,y+47,x+228,y+60
        Line x+228,y+74,x+228,y+81
        Line x+229,y+47,x+229,y+59
        Line x+229,y+74,x+229,y+81
        Line x+230,y+48,x+230,y+59
        Line x+230,y+73,x+230,y+80
        Line x+231,y+49,x+231,y+58
        Line x+231,y+72,x+231,y+80
        Line x+232,y+50,x+232,y+57
        Line x+232,y+72,x+232,y+79
        Line x+233,y+52,x+233,y+56
        Line x+233,y+71,x+233,y+78
        Line x+234,y+69,x+234,y+77
        Line x+235,y+68,x+235,y+75
        Line x+236,y+68,x+236,y+74
        Line x+237,y+68,x+237,y+72
        Line x+238,y+68,x+238,y+71
        Line x+242,y+59,x+242,y+70
        Line x+243,y+56,x+243,y+73
        Line x+244,y+54,x+244,y+75
        Line x+245,y+53,x+245,y+76
        Line x+246,y+51,x+246,y+77
        Line x+247,y+50,x+247,y+78
        Line x+248,y+49,x+248,y+79
        Line x+249,y+49,x+249,y+79
        Line x+250,y+48,x+250,y+57
        Line x+250,y+66,x+250,y+80
        Line x+251,y+47,x+251,y+54
        Line x+251,y+70,x+251,y+80
        Line x+252,y+47,x+252,y+53
        Line x+252,y+71,x+252,y+81
        Line x+253,y+47,x+253,y+52
        Line x+253,y+73,x+253,y+81
        Line x+254,y+46,x+254,y+51
        Line x+254,y+74,x+254,y+81
        Line x+255,y+46,x+255,y+50
        Line x+255,y+75,x+255,y+81
        Line x+256,y+46,x+256,y+50
        Line x+256,y+76,x+256,y+81
        Line x+257,y+46,x+257,y+50
        Line x+257,y+76,x+257,y+81
        Line x+258,y+46,x+258,y+50
        Line x+258,y+77,x+258,y+81
        Line x+259,y+46,x+259,y+50
        Line x+259,y+77,x+259,y+81
        Line x+260,y+46,x+260,y+51
        Line x+260,y+77,x+260,y+81
        Line x+261,y+46,x+261,y+51
        Line x+261,y+77,x+261,y+81
        Line x+262,y+46,x+262,y+52
        Line x+262,y+76,x+262,y+81
        Line x+263,y+46,x+263,y+53
        Line x+263,y+76,x+263,y+80
        Line x+264,y+46,x+264,y+54
        Line x+264,y+75,x+264,y+80
        Line x+265,y+47,x+265,y+56
        Line x+265,y+74,x+265,y+80
        Line x+266,y+47,x+266,y+58
        Line x+266,y+73,x+266,y+79
        Line x+267,y+47,x+267,y+61
        Line x+267,y+70,x+267,y+79
        Line x+268,y+48,x+268,y+78
        Line x+269,y+48,x+269,y+77
        Line x+270,y+49,x+270,y+76
        Line x+271,y+50,x+271,y+75
        Line x+272,y+51,x+272,y+74
        Line x+273,y+53,x+273,y+73
        Line x+274,y+55,x+274,y+71
        Line x+275,y+58,x+275,y+68
        Line x+279,y+49,x+279,y+51
        Line x+280,y+49,x+280,y+51
        Line x+281,y+49,x+281,y+51
        Line x+282,y+48,x+282,y+51
        Line x+283,y+48,x+283,y+51
        Line x+284,y+47,x+284,y+51
        Line x+285,y+47,x+285,y+53
        Line x+286,y+47,x+286,y+55
        Line x+287,y+46,x+287,y+81
        Line x+288,y+46,x+288,y+81
        Line x+289,y+46,x+289,y+81
        Line x+290,y+46,x+290,y+81
        Line x+291,y+47,x+291,y+80
        Line x+292,y+48,x+292,y+80
        Line x+293,y+49,x+293,y+80
        Line x+294,y+50,x+294,y+79
        Line x+295,y+49,x+295,y+53
        Line x+296,y+49,x+296,y+52
        Line x+297,y+48,x+297,y+52
        Line x+298,y+48,x+298,y+51
        Line x+299,y+48,x+299,y+51
        Line x+300,y+47,x+300,y+50
        Line x+301,y+47,x+301,y+50
        Line x+302,y+47,x+302,y+50
        Line x+303,y+46,x+303,y+51
        Line x+304,y+46,x+304,y+51
        Line x+305,y+46,x+305,y+52
        Line x+306,y+46,x+306,y+53
        Line x+307,y+46,x+307,y+55
        Line x+307,y+78,x+307,y+81
        Line x+308,y+46,x+308,y+58
        Line x+308,y+73,x+308,y+81
        Line x+309,y+46,x+309,y+81
        Line x+310,y+46,x+310,y+81
        Line x+311,y+46,x+311,y+80
        Line x+312,y+47,x+312,y+80
        Line x+313,y+48,x+313,y+80
        Line x+314,y+49,x+314,y+79
        Line x+315,y+50,x+315,y+79
        Line x+316,y+54,x+316,y+78
        Line x+317,y+75,x+317,y+78
        Line x+318,y+75,x+318,y+78
        Line x+319,y+75,x+319,y+78
        Line x+320,y+75,x+320,y+77
        Line x+321,y+75,x+321,y+77
        Line x+327,y+25,x+327,y+27
        Line x+328,y+25,x+328,y+27
        Line x+329,y+25,x+329,y+27
        Line x+330,y+24,x+330,y+27
        Line x+331,y+24,x+331,y+27
        Line x+332,y+24,x+332,y+26
        Line x+332,y+80,x+332,y+81
        Line x+333,y+24,x+333,y+26
        Line x+333,y+75,x+333,y+81
        Line x+334,y+24,x+334,y+26
        Line x+334,y+64,x+334,y+81
        Line x+335,y+23,x+335,y+80
        Line x+336,y+23,x+336,y+80
        Line x+337,y+23,x+337,y+79
        Line x+338,y+23,x+338,y+80
        Line x+339,y+23,x+339,y+80
        Line x+340,y+23,x+340,y+80
        Line x+341,y+22,x+341,y+80
        Line x+342,y+22,x+342,y+80
        Line x+343,y+22,x+343,y+30
        Line x+343,y+50,x+343,y+53
        Line x+343,y+74,x+343,y+80
        Line x+344,y+22,x+344,y+26
        Line x+344,y+50,x+344,y+53
        Line x+344,y+75,x+344,y+80
        Line x+345,y+22,x+345,y+25
        Line x+345,y+50,x+345,y+53
        Line x+345,y+76,x+345,y+81
        Line x+346,y+22,x+346,y+25
        Line x+346,y+50,x+346,y+52
        Line x+346,y+77,x+346,y+81
        Line x+347,y+22,x+347,y+25
        Line x+347,y+50,x+347,y+52
        Line x+347,y+77,x+347,y+81
        Line x+348,y+22,x+348,y+25
        Line x+348,y+50,x+348,y+52
        Line x+348,y+77,x+348,y+81
        Line x+349,y+22,x+349,y+25
        Line x+349,y+49,x+349,y+52
        Line x+349,y+78,x+349,y+81
        Line x+350,y+22,x+350,y+25
        Line x+350,y+49,x+350,y+52
        Line x+350,y+78,x+350,y+81
        Line x+351,y+22,x+351,y+25
        Line x+351,y+49,x+351,y+52
        Line x+351,y+78,x+351,y+81
        Line x+352,y+22,x+352,y+26
        Line x+352,y+49,x+352,y+52
        Line x+352,y+78,x+352,y+81
        Line x+353,y+22,x+353,y+26
        Line x+353,y+48,x+353,y+53
        Line x+353,y+78,x+353,y+81
        Line x+354,y+22,x+354,y+27
        Line x+354,y+48,x+354,y+53
        Line x+354,y+78,x+354,y+81
        Line x+355,y+22,x+355,y+27
        Line x+355,y+47,x+355,y+53
        Line x+355,y+78,x+355,y+81
        Line x+356,y+22,x+356,y+28
        Line x+356,y+47,x+356,y+53
        Line x+356,y+77,x+356,y+81
        Line x+357,y+23,x+357,y+29
        Line x+357,y+46,x+357,y+54
        Line x+357,y+77,x+357,y+81
        Line x+358,y+23,x+358,y+30
        Line x+358,y+45,x+358,y+54
        Line x+358,y+77,x+358,y+81
        Line x+359,y+23,x+359,y+31
        Line x+359,y+44,x+359,y+55
        Line x+359,y+76,x+359,y+81
        Line x+360,y+23,x+360,y+34
        Line x+360,y+41,x+360,y+56
        Line x+360,y+76,x+360,y+80
        Line x+361,y+24,x+361,y+57
        Line x+361,y+75,x+361,y+80
        Line x+362,y+24,x+362,y+58
        Line x+362,y+74,x+362,y+80
        Line x+363,y+25,x+363,y+47
        Line x+363,y+50,x+363,y+60
        Line x+363,y+72,x+363,y+80
        Line x+364,y+25,x+364,y+46
        Line x+364,y+50,x+364,y+62
        Line x+364,y+70,x+364,y+79
        Line x+365,y+26,x+365,y+45
        Line x+365,y+50,x+365,y+79
        Line x+366,y+27,x+366,y+44
        Line x+366,y+51,x+366,y+78
        Line x+367,y+29,x+367,y+42
        Line x+367,y+51,x+367,y+78
        Line x+368,y+31,x+368,y+39
        Line x+368,y+52,x+368,y+77
        Line x+369,y+53,x+369,y+76
        Line x+370,y+54,x+370,y+75
        Line x+371,y+54,x+371,y+74
        Line x+372,y+56,x+372,y+73
        Line x+373,y+57,x+373,y+71
        Line x+374,y+60,x+374,y+68
        Line x+385,y+78,x+385,y+83
        Line x+386,y+25,x+386,y+83
        Line x+387,y+25,x+387,y+83
        Line x+388,y+25,x+388,y+83
        Line x+389,y+25,x+389,y+82
        Line x+390,y+25,x+390,y+82
        Line x+391,y+24,x+391,y+81
        Line x+392,y+24,x+392,y+80
        Line x+393,y+24,x+393,y+80
        Line x+394,y+23,x+394,y+32
        Line x+394,y+75,x+394,y+79
        Line x+395,y+23,x+395,y+27
        Line x+395,y+76,x+395,y+79
        Line x+396,y+23,x+396,y+26
        Line x+396,y+75,x+396,y+78
        Line x+397,y+23,x+397,y+25
        Line x+397,y+75,x+397,y+78
        Line x+398,y+23,x+398,y+25
        Line x+398,y+75,x+398,y+78
        Line x+399,y+75,x+399,y+77
        Line x+404,y+50,x+404,y+52
        Line x+405,y+49,x+405,y+52
        Line x+406,y+49,x+406,y+52
        Line x+407,y+49,x+407,y+52
        Line x+408,y+28,x+408,y+32
        Line x+408,y+49,x+408,y+52
        Line x+409,y+27,x+409,y+33
        Line x+409,y+48,x+409,y+53
        Line x+410,y+26,x+410,y+34
        Line x+410,y+48,x+410,y+81
        Line x+411,y+26,x+411,y+34
        Line x+411,y+47,x+411,y+81
        Line x+412,y+26,x+412,y+34
        Line x+412,y+47,x+412,y+81
        Line x+413,y+26,x+413,y+34
        Line x+413,y+46,x+413,y+81
        Line x+414,y+26,x+414,y+34
        Line x+414,y+46,x+414,y+80
        Line x+415,y+26,x+415,y+34
        Line x+415,y+46,x+415,y+80
        Line x+416,y+27,x+416,y+33
        Line x+416,y+46,x+416,y+80
        Line x+417,y+28,x+417,y+32
        Line x+417,y+46,x+417,y+79
        Line x+428,y+50,x+428,y+52
        Line x+429,y+49,x+429,y+52
        Line x+430,y+48,x+430,y+52
        Line x+431,y+47,x+431,y+78
        Line x+432,y+46,x+432,y+79
        Line x+433,y+46,x+433,y+79
        Line x+434,y+45,x+434,y+80
        Line x+435,y+44,x+435,y+80
        Line x+436,y+43,x+436,y+80
        Line x+437,y+42,x+437,y+81
        Line x+438,y+41,x+438,y+81
        Line x+439,y+41,x+439,y+51
        Line x+439,y+70,x+439,y+81
        Line x+440,y+41,x+440,y+45
        Line x+440,y+48,x+440,y+51
        Line x+440,y+73,x+440,y+81
        Line x+441,y+41,x+441,y+43
        Line x+441,y+48,x+441,y+51
        Line x+441,y+75,x+441,y+81
        Line x+442,y+48,x+442,y+51
        Line x+442,y+76,x+442,y+81
        Line x+443,y+48,x+443,y+51
        Line x+443,y+76,x+443,y+81
        Line x+444,y+48,x+444,y+51
        Line x+444,y+77,x+444,y+81
        Line x+445,y+48,x+445,y+51
        Line x+445,y+77,x+445,y+81
        Line x+446,y+48,x+446,y+51
        Line x+446,y+77,x+446,y+81
        Line x+447,y+48,x+447,y+51
        Line x+447,y+77,x+447,y+80
        Line x+448,y+48,x+448,y+51
        Line x+448,y+77,x+448,y+80
        Line x+449,y+48,x+449,y+51
        Line x+449,y+76,x+449,y+80
        Line x+450,y+48,x+450,y+51
        Line x+450,y+76,x+450,y+79
        Line x+451,y+48,x+451,y+51
        Line x+451,y+75,x+451,y+79
        Line x+452,y+48,x+452,y+51
        Line x+452,y+75,x+452,y+79
        Line x+453,y+75,x+453,y+78
        Line x+454,y+75,x+454,y+77
        Line x+458,y+76,x+458,y+78
        Line x+459,y+75,x+459,y+79
        Line x+460,y+48,x+460,y+53
        Line x+460,y+74,x+460,y+79
        Line x+461,y+47,x+461,y+53
        Line x+461,y+73,x+461,y+79
        Line x+462,y+47,x+462,y+53
        Line x+462,y+72,x+462,y+80
        Line x+463,y+47,x+463,y+53
        Line x+463,y+71,x+463,y+80
        Line x+464,y+47,x+464,y+53
        Line x+464,y+70,x+464,y+80
        Line x+465,y+47,x+465,y+53
        Line x+465,y+69,x+465,y+80
        Line x+466,y+47,x+466,y+52
        Line x+466,y+69,x+466,y+80
        Line x+467,y+47,x+467,y+52
        Line x+467,y+68,x+467,y+80
        Line x+468,y+47,x+468,y+52
        Line x+468,y+67,x+468,y+80
        Line x+469,y+47,x+469,y+52
        Line x+469,y+66,x+469,y+72
        Line x+469,y+74,x+469,y+80
        Line x+470,y+47,x+470,y+52
        Line x+470,y+65,x+470,y+72
        Line x+470,y+74,x+470,y+80
        Line x+471,y+47,x+471,y+52
        Line x+471,y+64,x+471,y+71
        Line x+471,y+74,x+471,y+80
        Line x+472,y+47,x+472,y+52
        Line x+472,y+63,x+472,y+70
        Line x+472,y+74,x+472,y+80
        Line x+473,y+47,x+473,y+52
        Line x+473,y+62,x+473,y+69
        Line x+473,y+74,x+473,y+80
        Line x+474,y+47,x+474,y+52
        Line x+474,y+61,x+474,y+68
        Line x+474,y+75,x+474,y+80
        Line x+475,y+47,x+475,y+52
        Line x+475,y+60,x+475,y+67
        Line x+475,y+75,x+475,y+80
        Line x+476,y+47,x+476,y+52
        Line x+476,y+59,x+476,y+66
        Line x+476,y+75,x+476,y+80
        Line x+477,y+47,x+477,y+52
        Line x+477,y+59,x+477,y+65
        Line x+477,y+75,x+477,y+80
        Line x+478,y+47,x+478,y+52
        Line x+478,y+58,x+478,y+64
        Line x+478,y+75,x+478,y+80
        Line x+479,y+47,x+479,y+52
        Line x+479,y+57,x+479,y+63
        Line x+479,y+75,x+479,y+80
        Line x+480,y+47,x+480,y+52
        Line x+480,y+56,x+480,y+62
        Line x+480,y+75,x+480,y+80
        Line x+481,y+47,x+481,y+52
        Line x+481,y+55,x+481,y+61
        Line x+481,y+75,x+481,y+80
        Line x+482,y+47,x+482,y+52
        Line x+482,y+54,x+482,y+60
        Line x+482,y+75,x+482,y+80
        Line x+483,y+47,x+483,y+60
        Line x+483,y+75,x+483,y+80
        Line x+484,y+47,x+484,y+59
        Line x+484,y+75,x+484,y+80
        Line x+485,y+47,x+485,y+58
        Line x+485,y+75,x+485,y+80
        Line x+486,y+47,x+486,y+57
        Line x+486,y+75,x+486,y+80
        Line x+487,y+47,x+487,y+56
        Line x+487,y+75,x+487,y+79
        Line x+488,y+47,x+488,y+55
        Line x+488,y+75,x+488,y+79
        Line x+489,y+47,x+489,y+54
        Line x+489,y+75,x+489,y+79
        Line x+490,y+47,x+490,y+53
        Line x+490,y+75,x+490,y+79
        Line x+491,y+47,x+491,y+52
        Line x+491,y+75,x+491,y+79
        Line x+492,y+47,x+492,y+51
        Line x+492,y+75,x+492,y+77
        Line x+493,y+47,x+493,y+50
	WaitKey()
	End


+BlackD