prgmCHAR

[0000000000000000][0000000000000000]->Pic000
[72121212121F1F1D][0D0D0D0D0D121213]->Pic001
[6040404040C0C0A0][8080808080404060]->Pic002
[9A93F29CF28F8893][6D7D1D7E1D00070C]->Pic003
[505070D070D05050][A0A080E080008080]->Pic004
[0F0B10081F234A4B][2C3B0804001D353D]->Pic005
[A000204080406060][A020000000808080]->Pic006
[020719204344744F][0301061F3C384847]->Pic007
[50282848F0204080][80D0D0B8B02060A0]->Pic008
[0000000000000003][0000000000000000]->Pic009
[0000000000000080][0000000000000000]->Pic00A
[6122242816224486][0102040810204080]->Pic00B
[2626477FFFF16838][1F1F7C4C8C901808]->Pic00C
[2040C08040C00000][C0804080C0400000]->Pic00D
[22322F3F7F404626][3C1D1F38383F391D]->Pic00E
[C000008080404020][C0008000008080C0]->Pic00F
[0B10081322262627][3B08040C1D191D3C]->Pic010
[0020408000000000][20000000E0101020]->Pic011
[0719204344744F0F][01061F3C3848472F]->Pic012
[282848F0204080A0][D0D0B8B02060A0A0]->Pic013
[0000000000000302][0000000000000003]->Pic014
[0000000000008050][0000000000000080]->Pic015
[E122E48FF1234187][0102040810204080]->Pic016
[080404F8F1F2BCC0][070303F70E0C70C0]->Pic017
[C4E2918B07030100][381C0F0404020100]->Pic018
[000000E060C08000][000000E0A0000000]->Pic019
[0203020704070F08][0301010303070707]->Pic01A
[322CA07090F0F008][C0CCD070600000F0]->Pic01B
[0901010201030202][0805070100000101]->Pic01C
[F0F46004087E7171][F4F46400808080A0]->Pic01D
[000000030408080E][0000000003070709]->Pic01E
[704AE525097E8488][00703ADAF796040C]->Pic01F
[E122642DF5274181][0102040810204080]->Pic020
[110909F1F1F2BCC0][0E0606FE0E0C70C0]->Pic021
[908848443C3B1F1C][6070303C04271110]->Pic022
[0909080C0B0F1F10][070F0F07070E0E0F]->Pic023
[C4C8B080E0E0E010][00001040C00000E0]->Pic024
[1303020402040809][110B0E0201030706]->Pic025
[E0E8C00810E0F8C4][E8E8C80000000000]->Pic026
[E094CA4A12FC0810][00E074B4EE2C0818]->Pic027
[000001060810111D][00000001070F0E12]->Pic028
[A1A2E42F34274187][0102040810204080]->Pic029
[4321317B7E361D1F][3C1E3E444E0E0719]->Pic02A
[96BFD15153FF818D][1B08204050707E72]->Pic02B
[808040A010906000][0080C00000000000]->Pic02C
[1F16201027449694][5F761008183B6B7B]->Pic02D
[4000408000808080][4040000000000000]->Pic02E
[040E32408788E89F][07030D3F7970908F]->Pic02F
[A0505090E0408000][00A0A0706040C040]->Pic030
[0000000000000007][0000000000000000]->Pic031
[E182E42FF4274587][0102040810204080]->Pic032
[0E0A171F3F3D1A0E][01071C1424240602]->Pic033
[2040C08040C00000][C0804080C0400000]->Pic034
[FA1CF28F8F936010][15FF1D04040C1F0F]->Pic035
[52EC58C0C0C04020][A0D08000004080C0]->Pic036
[0508041121454999][1D04020E1E3A3E6E]->Pic037
[801020C020AE31B1][90000000C0C0C0C0]->Pic038
[030C1021223A2707][00030F1E1C242317]->Pic039
[949424F81020C0D0][E868DC581030D0D0]->Pic03A
[0000000000000101][0000000000000001]->Pic03B
[000000000000C028][00000000000000C0]->Pic03C
[E182E4AFF1214181][0102040810204080]->Pic03D
[1008077C78795E60][0F07007B07063860]->Pic03E
[1008C4AF9D0F0600][E0F03C1312080400]->Pic03F
[0000008080000000][0000008080000000]->Pic040
[FC14F58E899F7F11][0BF31207060E0E0E]->Pic041
[96D52B6620E0E0E0][6868CDE6C0000000]->Pic042
[4080000000000000][0080000000000000]->Pic043
[1303020402182046][110B0E0201071F3D]->Pic044
[E0E8C00810F19AD6][E8E8C80000006068]->Pic045
[0000000000C02020][0000000000000000]->Pic046
[000001060810101D][00000001070F0F12]->Pic047
[E094CA4A12FC0810][00E074B4EE2C0818]->Pic048
[E122242F35274587][0102040810204080]->Pic049
[60100C7B78795E60][1F0F037C07063860]->Pic04A
[C0402030F0EC7C70][0080C0D0109C4440]->Pic04B
[4999FA1CF28F8F93][3E6E15FF1D04040C]->Pic04C
[31B152EC58C0C040][C0C0A0D080000080]->Pic04D
[2707050804112145][23171D04020E1E3A]->Pic04E
[C0D0801020C020AE][D0D090000000C0C0]->Pic04F
[0101030C1021223A][000100030F1E1C24]->Pic050
[C028949424F81020][00C0E868DC581030]->Pic051
[E1A2E4AFF5274181][0102040810204080]->Pic052
[444444253E3E3A3E][3B3B3B1A24262622]->Pic053
[8080800000000000][0000000000000000]->Pic054
[96BFD15153FF818D][7B48206070707E72]->Pic055
[40C0A0D088C8B080][8040600000000000]->Pic056
[0B10081322439293][3B08040C1D3D6D7D]->Pic057
[0020408040404040][2000000080808080]->Pic058
[0719204344744F0F][01061F3C3848472F]->Pic059
[282848F0204080A0][D0D0B8B02060A0A0]->Pic05A
[0000000000000302][0000000000000003]->Pic05B
[0000000000008050][0000000000000080]->Pic05C
[000000000000000000000000000000000000000000000000000000000000]->GDB0
[00090A001415000000000000003100003B3C000000000000005B5C000000]
[000708001213001E1F002827002F3000393A00474800505100595A000000]
[000506001011001C1D002526002D2E003738004445464E4F005758000000]
[000304000E0F001A1B002324002B2C003536004142434C4D005556000000]
[000102000C0D001718192122002A00003334003E3F404A4B005354000000]
[000000000000000000000000000000000000000000000000000000000000]
[000000000000000000000000000000000000000000000000000000000000]
ClrDraw^^r^^r
Repeat getKey(15)
0->X
->Y
For(I,GDB0,GDB0+240)
Pt-On(X,Y,{I}*4*4+Pic000->T)
Pt-On(X,Y,T+8)^^r
X+8->X
!If -240
->X
Y+8->Y
End
End
DispGraph^^r^^r
End