'=========================================================================== ' Subject: DEMO WITH A NICE PICTURE Date: 03-17-98 (13:34) ' Author: Warren Seyle Code: QB, QBasic, PDS ' Origin: wseyle@awod.com Packet: DEMOS.ABC '=========================================================================== DECLARE SUB GPrint (Text$, X AS INTEGER, Y AS INTEGER, FColor AS INTEGER, sx AS INTEGER, sy AS INTEGER) DECLARE SUB BlankScreen () DECLARE SUB ShowScreen () DECLARE SUB LoadGraphics () DECLARE SUB ShowBackGround () DECLARE SUB ShowBlond () DECLARE SUB LoadPalette () DECLARE SUB Title (X AS INTEGER, Y AS INTEGER) DECLARE SUB Frame (X AS INTEGER, Y AS INTEGER, X1 AS INTEGER, Y1 AS INTEGER) DEFINT A-Z REDIM SHARED RedOctagon(500) AS INTEGER SCREEN 13 COLOR 15: LOCATE 10, 10 PRINT "For YU, William YU!" LOCATE 12, 13: PRINT "Press any key" DO LOOP WHILE INKEY$ = "" BlankScreen LoadPalette LoadGraphics ShowBackGround ShowBlond ShowScreen GPrint "Excellent", 115, 175, 247, 1, 1 DO LOOP WHILE INKEY$ = "" SCREEN 0 CLS COLOR 15 END RedOctagonImage: DATA 144,144,144,141,131,131,131,131,131,131,131,126,144,144,144 DATA 144,144,141,141,131,131,131,131,131,131,131,126,126,144,144 DATA 144,141,141,141,131,131,131,131,131,131,131,126,126,126,144 DATA 141,141,141,141,131,131,131,131,131,131,131,126,126,126,126 DATA 130,130,130,130,141,141,141,141,141,141,141,122,122,122,122 DATA 130,130,130,130,141,141,141,141,141,141,141,122,122,122,122 DATA 130,130,130,130,141,141,141,141,141,141,141,122,122,122,122 DATA 130,130,130,130,141,141,141,141,141,141,141,122,122,122,122 DATA 130,130,130,130,141,141,141,141,141,141,141,122,122,122,122 DATA 130,130,130,130,141,141,141,141,141,141,141,122,122,122,122 DATA 122,122,122,122,119,119,119,119,119,119,119,109,109,109,109 DATA 144,122,122,122,119,119,119,119,119,119,119,109,109,109,144 DATA 144,144,122,122,119,119,119,119,119,119,119,109,109,144,144 DATA 144,144,144,122,119,119,119,119,119,119,119,109,144,144,144 BlondBeauty: DATA 193,152,210,152,032,193,193,193,152,210,032,152,152,193,193,193,193,152 DATA 193,193,152,193,152,152,050,117,012,243,181,202,023,148,229,181,155,205 DATA 012,012,148,229,251,207,184,202,184,184,229,184,155,148,229,229,184,184 DATA 202,202,159,159,026,159,201,140,140,196,207,103,202,202,148,012,021,021 DATA 223,223,117,050,117,223,021,223,160,096,201,201,180,092,110,161,161,161 DATA 161,045,161,045,045,045,045,045,161,161,232,045,250,250,250,250,250,250 DATA 032,152,193,193,193,193,152,193,193,193,152,193,193,193,193,152,152,152 DATA 152,152,152,152,117,117,117,108,229,184,229,155,229,155,202,202,155,021 DATA 160,048,202,201,145,028,207,014,184,184,229,185,229,229,148,229,229,229 DATA 184,184,201,201,207,140,014,103,207,140,028,028,055,201,202,184,048,012 DATA 167,012,223,223,021,223,223,223,223,043,201,245,127,110,110,092,161,161 DATA 232,161,161,045,173,173,161,161,040,040,045,173,045,250,250,173,250,250 DATA 152,193,152,193,152,152,152,152,152,152,152,152,152,152,152,152,152,117 DATA 152,152,050,050,117,117,148,167,202,014,014,229,148,202,202,229,148,184 DATA 202,205,229,229,140,140,201,202,184,229,229,229,023,023,205,203,096,205 DATA 205,033,229,202,202,125,103,140,140,140,028,196,055,028,028,202,184,229 DATA 023,160,021,223,012,012,021,223,160,243,154,201,140,110,110,072,161,182 DATA 161,161,040,045,045,045,045,161,161,170,040,045,045,045,045,045,173,045 DATA 032,152,152,210,193,152,032,152,210,193,152,032,152,152,210,152,193,050 DATA 152,152,152,152,117,051,021,021,026,207,207,014,184,184,148,184,014,229 DATA 023,121,203,229,202,224,246,026,229,229,229,203,023,203,023,023,023,023 DATA 203,203,148,148,229,202,201,014,207,207,207,207,140,055,028,055,207,207 DATA 184,148,048,096,223,160,043,012,043,012,184,245,240,134,110,110,182,084 DATA 161,161,161,045,040,161,161,161,133,170,040,040,045,040,161,045,045,045 DATA 152,193,152,152,152,210,193,193,152,032,152,193,032,152,152,152,152,088 DATA 050,050,152,152,061,155,048,181,207,195,192,028,207,202,125,202,184,203 DATA 096,096,148,184,066,023,096,155,181,066,096,023,167,096,096,096,023,023 DATA 148,229,229,229,026,184,202,026,026,201,140,207,028,028,028,055,055,207 DATA 207,202,184,148,096,012,012,223,012,023,184,201,207,143,092,084,084,161 DATA 161,161,161,161,161,040,161,186,170,170,161,161,161,161,161,161,040,161 DATA 032,193,152,193,152,032,152,210,193,032,152,210,210,210,032,152,115,152 DATA 152,088,117,243,103,223,148,195,028,145,028,052,207,201,201,246,148,023 DATA 043,012,066,096,021,160,096,203,203,066,243,043,023,023,203,066,229,229 DATA 184,202,065,014,014,014,240,201,014,014,014,140,207,028,028,028,192,195 DATA 145,192,014,201,184,229,023,096,023,023,229,195,180,143,182,143,084,182 DATA 170,170,170,161,170,170,186,170,186,170,170,186,092,110,170,092,161,170 DATA 152,193,032,210,210,193,032,193,210,152,210,152,152,193,152,210,152,138 DATA 152,152,117,103,224,167,201,028,140,028,120,120,192,201,184,203,023,160 DATA 243,043,203,203,023,203,203,023,148,090,148,229,184,184,184,184,184,202 DATA 105,184,202,026,125,125,014,125,201,014,014,140,207,028,028,055,055,145 DATA 192,055,207,207,140,201,202,184,229,023,184,120,180,110,198,217,143,110 DATA 092,092,092,170,040,170,170,161,170,092,170,007,239,239,239,110,092,170 DATA 032,152,210,193,152,152,193,032,152,193,210,032,032,152,138,152,152,152 DATA 152,088,033,051,096,229,207,120,145,014,192,028,145,184,184,023,023,043 DATA 096,023,023,023,023,096,066,203,066,229,184,184,013,229,148,203,023,023 DATA 148,148,184,202,184,201,201,014,240,014,014,014,014,014,014,140,028,028 DATA 145,145,191,207,207,028,014,202,184,148,183,191,198,180,107,182,163,198 DATA 110,182,170,170,170,083,186,170,133,170,092,110,239,239,239,239,239,110 DATA 152,210,152,152,032,193,193,152,152,210,152,193,210,152,115,152,152,138 DATA 152,152,096,051,096,202,195,120,120,207,014,140,192,014,184,184,203,202 DATA 240,125,184,229,023,203,205,203,148,023,023,023,023,023,203,066,229,184 DATA 229,184,184,184,184,184,125,201,125,014,014,240,195,145,195,207,140,207 DATA 140,028,055,028,055,207,028,207,014,201,014,145,180,217,234,084,143,110 DATA 092,249,161,170,092,186,239,092,170,040,092,239,239,239,102,239,110,239 DATA 193,032,032,210,032,152,210,152,152,193,152,032,152,193,152,210,210,152,115,50,243,202,183,159,120,120,191,14,201,184,207,192,229,184,246,66,26,184,229,246,184,26,184,66,246,203,246,184,185,203,246,229,229,184,184,184,184,184,184,184,125,201,207,207,145,55,55,55,145,145,195,28,240,195,28,195,28,28,140,28,28,55,145,35,64,171,93,217,123,123,143,182,170,249,170,239,239,92,161,161,92,7,239,252,57,151,239,239 DATA 152,210,210,32,152,210,152,210,152,193,152,152,138,32,152,32,152,223,117,160,184,159,207,195,145,120,240,125,184,184,202,192,26,184,184,243,43,43,23,23,23,96,66,184,26,26,202,201,184,201,201,125,201,201,184,202,184,201,207,207,100,28,145,77,77,35,35,35,64,64,35,145,120,145,55,145,192,145,145,145,120,52,46,77,219,11,35,84,123,182,161,249,182,133,170,92,57,92,232,170,110,7,239,151,102,102,102,57 DATA 193,193,115,50,152,210,152,152,32,193,115,50,152,152,152,117,223,117,117,183,207,207,195,145,120,28,14,105,229,246,229,207,202,202,246,229,203,160,160,43,43,96,43,96,96,121,23,205,246,246,66,184,184,245,207,207,145,145,145,192,207,207,125,14,140,195,55,120,145,120,120,120,120,192,120,52,145,145,145,120,145,77,120,52,35,35,219,84,161,199,232,113,232,199,83,92,239,182,161,182,182,110,239,57,102,102,222,238 DATA 152,193,152,115,193,152,152,210,152,152,152,152,88,117,50,117,117,12,96,55,85,120,28,28,192,195,14,184,246,66,203,201,14,184,184,66,229,184,203,23,23,43,243,43,160,43,160,43,43,203,148,229,201,145,64,35,35,46,35,145,120,191,207,245,207,145,35,137,35,120,145,120,127,192,145,145,120,120,120,192,120,192,120,120,52,35,217,84,199,232,232,232,199,249,249,92,92,161,170,84,110,110,239,57,102,139,238,128 DATA 152,193,152,193,152,152,138,152,50,50,152,152,117,12,243,229,229,184,207,207,195,145,207,140,14,14,125,159,184,246,184,229,14,184,26,184,246,229,229,184,229,90,66,203,203,90,246,184,184,184,245,145,107,64,64,77,191,207,195,240,207,195,120,35,64,64,35,120,35,77,180,28,195,195,191,192,145,145,192,120,145,180,120,120,120,52,217,219,182,189,189,232,199,161,161,123,182,249,143,93,182,110,110,102,238,238,95,95 DATA 152,152,152,152,138,152,152,152,115,152,223,96,183,202,159,55,55,201,14,207,145,145,240,240,201,201,125,184,184,229,184,184,184,201,184,184,229,246,246,148,184,229,185,13,184,184,184,90,202,55,137,64,46,120,145,207,240,240,240,240,140,195,120,64,85,68,68,68,162,171,46,87,240,201,240,191,195,191,192,192,180,52,77,120,180,180,52,84,189,182,199,189,199,116,143,182,182,123,93,161,83,170,239,57,238,231,42,149 DATA 152,210,193,193,115,193,152,117,152,181,96,148,160,148,35,35,35,55,28,14,201,240,207,14,65,65,201,154,26,184,184,229,184,184,201,184,184,184,229,184,184,184,184,184,184,184,184,195,145,120,35,120,145,145,240,195,207,207,65,184,207,191,64,234,68,194,194,208,189,68,84,163,52,245,246,240,65,100,192,192,192,192,120,120,180,120,180,35,171,162,68,189,189,93,199,182,182,68,93,182,170,92,239,198,231,42,149,149 DATA 152,152,193,152,152,152,138,117,117,167,223,223,167,202,120,120,180,145,145,140,14,65,26,140,14,201,184,229,184,26,201,201,201,201,184,14,14,14,65,125,125,154,184,154,14,195,120,120,35,120,192,207,240,14,14,201,184,184,184,207,120,64,189,208,68,171,52,120,55,35,162,143,52,52,240,184,240,65,100,100,195,191,127,127,180,180,52,217,219,234,68,68,93,199,199,182,68,93,182,182,182,92,57,238,42,95,41,191 DATA 210,32,152,32,152,115,152,152,50,12,243,12,223,26,240,100,28,192,195,192,55,207,14,184,184,125,14,184,246,66,246,184,201,201,125,184,26,125,201,184,184,201,240,195,120,120,145,145,207,14,240,201,184,184,201,201,14,245,159,120,217,162,35,52,120,145,120,64,171,162,171,219,84,219,127,154,201,245,240,240,166,195,195,192,127,180,180,46,171,162,162,162,68,189,182,68,93,182,116,93,93,84,110,238,42,149,191,69 DATA 32,210,210,79,210,210,115,210,152,138,88,175,66,140,240,140,195,195,28,195,195,28,207,14,201,184,202,201,184,184,13,229,184,184,202,201,201,14,240,240,240,192,145,145,145,145,195,14,245,207,207,184,245,201,245,245,245,14,35,171,52,120,120,195,120,64,93,93,11,182,171,171,35,219,180,127,245,13,13,65,240,100,192,127,120,87,52,180,52,35,219,11,234,171,68,162,68,199,199,199,182,171,217,87,95,149,191,195 DATA 210,210,210,210,210,115,210,152,175,117,243,184,14,195,145,191,195,14,14,28,191,195,28,14,140,207,184,184,26,26,184,184,184,184,184,184,26,184,184,202,207,120,120,100,195,55,240,14,145,95,245,184,184,245,184,245,14,120,180,120,191,120,95,35,171,171,68,68,68,234,234,162,52,52,180,52,100,245,135,168,65,240,100,191,127,87,180,52,84,217,171,171,162,234,162,171,171,234,189,189,93,84,198,238,120,149,191,191 DATA 115,152,32,115,138,152,115,43,160,43,184,14,207,195,192,195,195,145,191,195,14,65,240,195,14,14,207,14,184,184,201,125,26,125,125,125,154,125,201,195,180,145,207,145,145,100,195,145,145,245,184,245,71,185,245,240,195,180,180,95,120,120,180,35,219,85,234,68,64,192,145,192,35,180,52,180,127,14,184,184,245,240,100,192,95,180,52,35,52,219,35,219,219,162,171,234,68,189,93,199,249,110,238,42,149,191,100,195 DATA 152,88,117,152,88,152,160,66,96,184,125,201,240,28,180,191,207,192,191,240,14,184,201,14,201,14,240,201,14,201,184,184,184,184,184,26,202,207,192,52,207,201,145,145,195,240,145,145,195,245,245,184,184,245,206,240,120,120,127,149,180,35,180,171,68,68,162,217,35,145,240,207,207,35,52,87,87,191,245,13,184,100,191,191,127,180,35,217,35,35,171,171,171,171,162,171,171,93,182,182,182,134,87,149,41,191,100,195 DATA 32,152,88,117,117,117,243,43,184,184,14,202,145,145,120,192,191,140,140,14,125,125,184,184,154,201,184,154,202,154,184,26,184,184,246,184,28,145,120,240,245,195,145,240,240,191,120,145,100,206,245,245,245,245,245,100,149,180,95,180,52,52,198,107,68,171,107,219,35,35,120,120,171,35,180,52,163,87,65,154,227,14,195,127,127,87,52,84,219,11,162,171,162,162,182,93,171,171,84,84,162,163,238,42,191,195,195,100 DATA 138,88,50,178,223,223,23,207,14,207,201,191,195,180,28,207,195,195,207,14,14,207,240,207,125,125,201,201,184,184,184,246,90,229,14,195,180,145,240,14,55,145,195,240,145,35,120,191,191,240,245,240,245,245,240,145,120,127,120,35,42,217,162,68,171,171,143,143,64,42,120,107,234,171,35,219,87,192,191,195,154,164,240,195,195,127,52,35,219,171,11,11,171,162,93,171,171,219,35,171,143,163,198,95,191,195,100,195 DATA 223,88,223,243,90,202,26,28,201,195,207,195,145,192,195,195,28,195,195,140,240,240,140,195,14,14,14,125,184,168,13,185,201,192,145,145,140,240,14,195,240,245,245,195,120,120,120,69,100,100,245,60,245,240,206,69,42,69,180,42,180,171,68,162,182,143,68,171,198,180,234,68,68,162,219,52,192,195,191,156,13,184,13,14,191,192,87,219,219,162,219,171,11,171,11,219,217,219,219,217,219,180,180,120,145,191,195,240 DATA 181,66,66,160,160,23,148,207,120,192,192,195,192,195,28,166,140,14,14,65,125,229,184,184,125,14,65,184,65,201,14,195,145,55,192,195,14,14,240,14,100,240,195,120,145,35,100,69,206,245,206,245,245,240,100,145,120,145,180,120,217,162,171,182,171,171,171,171,68,68,68,68,68,93,163,195,191,191,192,166,154,154,90,154,100,149,42,52,219,162,85,171,64,171,171,171,64,171,171,171,64,64,180,238,95,195,195,195 DATA 160,175,223,160,23,205,184,207,55,195,145,195,195,140,240,14,14,65,125,184,246,13,203,121,135,246,184,184,184,240,145,28,120,195,14,14,14,245,245,240,206,145,120,35,137,195,145,240,206,245,245,154,206,206,195,95,42,35,42,180,171,217,182,171,182,171,182,143,171,68,189,68,68,171,140,195,127,127,120,191,154,65,154,184,65,191,127,42,35,171,162,11,171,46,219,46,219,64,217,85,217,171,35,120,191,240,14,14 DATA 175,152,74,223,148,201,229,207,145,145,120,192,140,207,195,14,240,65,13,90,23,135,135,203,135,203,246,14,195,145,195,14,125,154,168,184,245,245,100,100,195,191,120,120,95,95,100,34,100,34,245,185,71,184,34,95,149,180,95,107,134,143,143,143,123,182,143,171,68,68,194,208,162,69,207,180,180,52,87,127,166,65,156,156,65,100,127,87,52,72,11,162,85,171,64,171,35,35,171,171,35,64,180,55,207,14,245,184 DATA 22,96,99,96,43,184,148,120,35,77,127,192,195,195,240,240,14,125,13,168,43,99,121,121,23,185,240,28,28,65,168,184,245,184,60,245,245,69,100,100,95,120,120,145,191,69,100,100,69,41,41,69,206,185,184,207,35,180,95,123,198,143,123,123,143,182,171,189,189,146,194,189,149,145,180,171,219,72,52,42,191,195,132,132,227,166,192,42,52,180,93,11,234,171,171,64,180,35,107,35,107,120,120,195,14,201,184,154 DATA 178,175,152,121,23,66,202,107,35,87,192,140,192,195,140,140,14,67,13,135,121,121,203,121,184,195,240,154,65,184,184,70,168,70,184,245,100,240,100,95,180,35,35,41,95,100,100,34,100,100,191,95,41,34,60,245,95,180,217,134,134,143,123,123,123,116,182,68,68,68,68,42,120,143,64,171,171,35,219,163,127,100,192,191,100,195,69,192,87,52,35,234,68,17,107,219,64,64,35,35,120,145,207,184,203,23,43,160 DATA 43,210,43,223,66,229,107,11,87,192,195,195,28,227,227,240,184,135,67,135,90,135,66,207,240,26,154,184,67,168,168,90,90,71,60,245,206,206,95,180,120,180,231,120,95,100,240,206,245,245,206,100,69,69,206,245,195,95,143,198,134,143,123,123,123,123,171,189,68,93,238,107,171,217,234,93,162,84,219,52,127,127,42,127,149,191,195,192,120,180,52,171,234,68,142,107,171,77,120,145,145,195,184,185,23,99,99,223 DATA 175,175,43,23,201,55,234,87,28,195,140,192,195,14,195,14,67,121,13,90,135,13,195,154,121,90,13,90,90,67,27,27,71,71,245,245,245,41,120,180,217,198,198,231,95,206,71,185,90,90,154,245,245,100,69,206,245,195,217,102,134,134,123,123,94,182,93,171,182,217,171,68,198,171,68,171,162,234,219,180,87,180,52,42,127,42,191,127,127,35,46,217,11,234,31,142,107,180,55,145,196,201,184,23,23,160,223,88 DATA 88,160,243,26,55,234,52,28,140,227,192,240,14,65,140,67,203,13,13,67,184,207,154,184,90,27,27,27,27,90,90,71,71,154,154,245,191,145,95,95,102,231,102,198,231,100,135,187,135,90,71,100,69,206,100,100,245,240,180,198,143,123,123,123,182,182,189,182,143,217,171,198,107,68,68,68,68,162,219,52,217,52,163,87,180,52,127,192,87,87,52,11,171,85,68,31,142,107,145,120,207,201,185,23,23,43,178,88 DATA 178,121,140,120,219,52,195,227,140,28,140,125,125,14,13,13,246,246,67,67,140,105,168,13,27,135,135,27,38,67,27,71,184,60,245,195,191,41,95,95,231,134,198,198,134,41,71,154,90,30,203,184,191,95,100,100,100,195,100,191,143,94,116,116,116,182,182,182,84,143,180,180,208,189,189,68,208,68,219,219,35,180,52,52,163,180,180,180,87,120,52,72,162,11,85,142,68,142,137,145,254,14,23,148,23,43,88,88 DATA 121,202,77,46,84,140,227,14,195,227,125,105,154,26,105,105,172,246,246,201,184,26,105,27,135,135,135,203,158,67,90,168,245,100,245,245,100,41,41,95,231,198,134,134,134,95,60,191,184,48,172,185,154,41,95,100,95,191,100,100,95,171,113,116,116,116,116,171,143,180,238,171,189,171,68,208,68,162,11,171,180,46,72,52,72,163,52,52,120,77,120,46,234,11,11,234,142,142,85,55,201,183,23,23,96,43,223,88 DATA 229,120,52,162,28,65,14,195,227,13,13,246,26,26,246,172,147,184,125,246,201,14,105,13,187,179,135,27,90,71,65,154,184,154,5,34,100,248,41,231,102,252,242,123,143,102,206,206,100,90,203,255,255,245,95,95,95,191,100,206,100,123,189,113,189,116,249,110,238,95,35,68,68,68,68,68,146,68,171,219,46,219,46,219,219,46,219,217,180,87,35,46,46,11,11,85,85,234,142,107,201,148,148,23,23,160,175,88 DATA 140,127,52,28,227,166,140,125,13,67,67,184,125,121,43,43,121,26,203,121,140,201,227,13,172,135,135,197,70,154,13,38,71,71,5,206,100,3,212,231,174,198,242,123,123,242,95,206,145,245,255,204,63,206,191,180,198,95,248,206,248,217,116,189,113,116,94,231,95,198,171,68,162,68,68,208,208,68,234,234,162,171,171,171,171,171,219,46,219,35,46,198,219,171,234,11,11,107,85,85,137,184,243,203,43,223,223,88 DATA 192,127,192,195,227,26,13,13,38,13,105,65,121,121,43,147,13,105,90,125,105,184,13,175,99,97,90,168,13,38,71,60,71,154,5,206,34,69,95,231,231,252,242,123,94,123,134,231,95,95,31,63,63,95,100,231,238,238,95,100,41,134,116,116,189,116,134,102,95,217,93,171,68,93,68,194,208,234,234,68,234,234,234,162,162,162,46,171,162,171,35,46,35,11,162,234,171,64,171,64,85,120,159,148,99,223,175,88 DATA 195,140,227,201,105,154,105,105,184,105,105,121,147,121,121,121,125,13,13,14,14,156,184,13,49,135,67,90,38,60,71,90,70,71,5,206,248,3,41,231,134,252,242,94,94,116,94,123,143,198,180,217,171,231,95,180,198,231,231,231,198,143,116,116,189,123,252,231,198,171,68,234,68,68,68,142,84,11,234,234,68,234,234,162,68,208,107,162,68,234,171,171,35,46,64,11,85,85,64,35,64,137,137,201,243,223,175,223 DATA 65,65,125,154,105,105,105,105,184,246,43,99,203,66,147,97,125,105,125,105,105,184,184,125,187,27,27,67,71,168,60,71,60,71,154,34,248,212,231,174,174,242,242,242,94,116,94,116,123,171,123,143,217,134,41,143,238,238,198,198,134,94,116,116,94,134,252,134,143,84,171,93,93,93,234,171,107,142,68,142,68,142,189,234,234,68,31,107,234,68,142,234,35,171,171,11,11,85,107,85,64,64,77,77,207,148,223,88 DATA 125,65,154,65,65,154,184,13,246,172,172,67,66,147,203,246,105,121,227,168,246,26,67,246,147,38,38,71,71,60,60,245,60,5,54,206,41,212,231,231,252,252,242,242,86,94,116,116,116,116,116,123,171,143,143,143,238,238,238,134,123,94,189,189,94,242,198,180,163,180,162,162,93,162,68,162,234,68,31,31,194,31,142,234,234,208,194,68,142,68,31,194,142,171,46,11,85,11,85,85,107,137,77,55,55,28,202,43 DATA 14,14,227,105,13,246,38,147,147,246,105,147,203,147,172,26,147,43,13,246,105,168,246,147,135,90,27,38,168,60,154,60,5,5,245,34,3,212,231,231,252,252,242,94,94,94,116,189,113,116,199,116,116,123,134,238,95,231,198,198,94,116,199,249,94,134,102,238,238,219,162,171,162,68,93,234,68,142,68,194,194,194,68,68,142,68,194,194,68,142,31,31,31,85,107,64,11,64,64,35,64,85,107,55,103,159,202,121 DATA 125,105,105,26,125,13,246,121,121,121,121,121,147,114,229,105,99,203,246,168,121,184,172,172,97,38,135,90,90,5,5,5,245,34,34,69,248,212,95,102,252,252,242,86,94,86,94,116,199,199,116,182,143,143,198,198,198,102,134,123,182,116,116,182,242,231,238,238,217,84,171,84,171,219,46,35,85,234,31,63,165,31,31,142,68,234,208,63,31,68,31,194,194,68,142,85,171,11,77,77,35,137,107,137,196,207,148,243 DATA 14,125,125,184,140,65,246,203,43,99,147,172,49,121,13,13,99,105,246,121,97,26,187,187,97,27,38,38,60,5,245,206,206,206,248,248,212,231,174,102,252,242,86,242,86,116,94,116,116,116,116,249,143,134,198,252,231,102,134,94,116,116,94,242,198,212,41,180,217,182,143,219,163,87,120,46,162,142,31,194,165,194,68,234,142,208,17,194,194,31,194,63,194,63,68,142,107,46,145,77,35,77,137,77,55,196,103,202 DATA 125,14,140,240,14,240,246,172,99,172,172,172,97,105,246,147,175,105,13,203,67,13,49,187,101,27,27,71,70,245,206,206,213,248,34,41,212,231,231,252,252,252,242,242,86,94,116,116,199,116,249,123,242,134,134,198,102,102,242,94,94,123,238,41,69,100,240,95,180,180,143,182,95,192,180,46,142,68,68,31,194,194,68,142,234,234,68,194,165,194,31,194,194,136,31,142,85,64,55,55,77,55,28,137,137,202,243,21 DATA 38,70,227,195,192,28,127,125,135,99,147,246,125,67,246,49,49,97,147,246,121,124,49,187,135,27,38,71,70,5,5,34,34,34,248,41,212,231,252,252,252,242,94,94,116,116,116,199,113,116,94,94,134,134,252,198,252,102,134,94,123,42,69,100,100,34,206,240,245,195,42,198,149,120,180,64,11,234,85,194,194,208,107,68,171,68,142,194,194,194,31,68,31,165,31,31,85,35,145,207,28,103,229,159,196,55,183,223 DATA 13,70,245,164,240,195,192,191,28,192,192,14,184,13,135,172,121,67,99,97,99,124,172,121,97,27,38,158,70,245,206,206,100,248,248,41,95,231,102,252,242,123,94,94,94,116,113,116,116,249,94,242,252,252,198,198,102,252,134,94,252,213,156,69,191,191,100,206,245,34,191,95,191,42,180,217,171,46,234,68,31,142,234,217,64,11,142,68,63,194,31,31,208,142,194,234,85,64,196,202,159,148,148,66,61,196,55,229 DATA 158,168,164,245,166,245,156,195,100,156,246,246,105,97,147,172,147,147,49,49,172,115,172,172,187,27,27,71,168,5,5,34,34,41,41,212,95,102,252,242,242,242,94,116,249,116,199,116,249,242,102,102,102,252,252,102,102,102,242,123,34,197,27,197,156,42,191,100,191,195,191,69,149,120,52,171,46,171,234,142,68,85,142,46,219,171,234,85,194,194,194,31,142,208,17,85,11,107,28,202,202,205,96,66,155,183,255,202 DATA 168,71,70,164,227,156,65,156,100,195,156,38,13,67,147,49,121,187,172,147,147,2,49,187,187,27,38,71,60,245,206,206,69,41,41,222,231,252,252,242,83,94,94,94,116,113,199,94,252,212,212,231,231,102,252,231,102,134,123,123,69,184,23,254,185,240,69,154,41,238,41,100,127,35,219,171,162,171,162,234,68,11,11,171,46,46,11,234,194,31,31,68,17,142,234,85,11,46,120,202,203,96,167,148,155,205,51,196 DATA 70,70,154,245,100,65,156,65,156,100,100,154,67,67,76,49,121,147,172,147,121,175,124,172,30,97,197,71,168,5,206,34,100,69,95,231,102,198,123,94,123,94,249,116,116,199,116,242,41,212,231,231,252,252,102,231,102,102,242,134,95,154,185,207,221,71,166,156,191,102,100,69,42,35,171,234,171,11,234,162,46,11,64,11,171,171,162,11,31,31,31,31,234,234,85,64,64,137,46,207,66,23,96,160,23,223,160,55 DATA 70,154,5,245,240,213,112,245,65,156,100,156,70,168,38,187,203,38,49,13,246,172,124,49,172,187,27,158,60,245,206,248,69,212,238,231,252,134,242,94,94,116,116,116,249,116,249,94,3,231,231,212,231,102,102,102,252,134,123,242,41,41,14,255,204,154,90,245,95,100,191,127,35,217,234,234,171,171,11,162,87,46,64,11,64,162,85,171,208,68,31,31,31,85,234,11,11,77,159,207,201,229,160,43,160,160,12,51 DATA 245,164,245,164,156,156,65,206,156,213,166,166,112,154,168,67,203,67,99,105,184,187,176,49,30,187,27,38,60,5,248,213,41,128,231,238,252,123,249,123,249,249,94,249,116,116,249,94,252,29,231,135,135,206,102,252,252,242,94,134,95,127,107,31,64,168,90,69,213,240,180,52,35,234,162,171,11,171,219,52,127,52,171,11,11,11,234,171,142,68,162,234,31,194,142,85,120,77,203,224,224,103,121,160,117,160,96,243 DATA 164,164,164,206,100,156,206,156,5,156,206,245,245,154,154,13,97,38,179,184,105,121,49,175,172,187,27,158,70,245,206,69,41,95,102,198,242,242,123,249,249,94,249,116,116,94,94,123,123,252,231,3,80,54,41,102,134,94,94,123,134,231,240,35,65,197,246,156,14,191,42,217,171,171,162,162,68,162,52,145,192,52,11,11,171,85,68,234,17,208,68,142,17,11,234,17,85,77,207,229,207,145,229,96,160,223,21,167 DATA 245,164,164,156,227,112,112,156,213,156,156,156,156,245,156,125,246,70,172,105,105,184,49,153,179,187,147,197,60,206,34,248,41,231,238,252,110,94,249,83,94,249,123,94,94,94,94,94,94,242,242,252,212,34,248,231,242,94,94,123,134,198,95,156,206,154,245,140,42,52,35,35,234,234,171,234,234,11,35,120,191,120,171,171,11,162,234,234,194,194,17,68,162,46,11,11,64,46,46,55,140,1,160,121,160,178,178,50 DATA 164,206,156,164,213,156,156,213,213,213,156,156,156,245,14,156,168,105,179,38,125,14,153,49,111,111,101,27,70,206,213,69,41,212,102,134,249,94,242,94,252,252,134,123,94,242,242,94,123,94,94,242,231,212,212,231,134,123,94,123,123,134,110,149,14,191,14,195,52,35,219,171,68,171,46,162,162,171,219,87,192,52,46,11,11,234,68,234,208,194,208,234,46,52,11,219,52,55,145,201,66,43,99,178,205,88,138,152 DATA 164,164,206,206,156,156,213,213,213,213,213,156,34,100,206,166,65,105,97,172,13,26,49,114,111,172,187,76,38,70,206,248,149,95,238,198,92,123,123,242,3,235,235,80,212,231,231,252,242,123,94,94,252,231,212,41,231,134,94,123,123,123,198,156,100,120,52,180,35,219,171,234,234,93,171,234,219,162,52,120,145,52,46,84,162,162,234,208,194,208,173,162,52,120,35,46,46,145,28,28,26,74,96,96,178,160,115,152 DATA 164,206,156,164,206,213,156,213,213,100,69,213,156,156,156,164,154,245,13,111,114,187,244,49,111,49,30,187,197,70,206,69,212,128,238,198,134,134,134,102,29,235,3,95,235,235,235,3,174,174,94,94,123,252,212,212,134,123,83,123,123,92,132,245,127,87,35,52,219,162,162,234,234,68,162,84,35,35,219,87,120,52,72,64,11,234,11,208,194,173,234,52,52,120,46,46,46,77,145,201,26,229,121,50,88,178,88,152 DATA 156,156,156,213,164,206,213,213,132,213,213,34,156,34,213,213,112,156,164,135,175,147,111,10,49,153,111,30,101,71,245,213,128,238,102,102,102,198,242,102,3,3,3,242,123,174,54,54,235,29,252,94,242,123,94,123,83,94,123,123,94,57,90,195,127,87,52,72,217,85,234,68,162,234,68,219,219,219,46,52,180,52,46,219,219,234,208,194,173,208,46,46,52,52,46,35,46,77,55,28,140,224,66,22,88,138,160,160 DATA 112,213,156,206,166,156,156,156,156,166,213,166,69,132,213,213,213,112,206,112,71,179,49,49,49,10,10,153,187,197,70,213,41,128,238,102,198,198,198,231,3,235,29,29,189,194,231,235,54,235,174,123,123,242,94,249,123,242,242,92,92,164,70,191,127,180,52,219,11,68,208,68,68,162,142,162,84,46,219,87,180,52,46,46,11,68,194,194,208,162,120,52,52,219,35,46,46,120,192,28,140,201,205,178,175,210,22,1 DATA 206,112,206,206,112,206,112,213,213,213,166,213,213,69,213,100,248,213,34,206,213,112,30,114,49,49,49,111,111,76,158,206,69,95,238,180,102,57,252,102,3,3,29,29,242,116,189,41,54,54,235,29,242,94,94,94,94,94,242,242,102,27,14,127,180,180,52,163,162,189,68,93,68,171,93,234,171,162,217,77,52,46,219,219,162,234,208,194,208,52,52,46,46,219,46,46,52,77,120,55,28,201,202,121,74,115,115,96 DATA 164,65,164,164,206,156,213,206,156,213,213,156,213,227,69,213,69,213,69,248,34,213,248,30,49,175,10,49,111,187,197,112,69,41,222,102,198,134,198,102,41,80,29,174,29,242,189,134,54,60,54,3,242,123,94,92,242,94,123,102,70,38,213,149,87,180,163,72,93,173,208,234,234,68,68,189,68,171,219,180,46,219,219,46,11,234,208,173,93,11,180,52,219,11,11,52,77,52,120,120,28,28,229,201,66,43,138,88 DATA 112,245,164,245,112,206,156,156,34,166,213,156,213,213,213,248,69,69,132,132,248,248,213,34,179,179,49,49,111,30,76,70,34,41,149,238,198,143,92,252,222,54,3,174,29,29,174,102,54,60,54,174,123,242,123,242,242,242,242,132,38,154,166,87,52,42,180,52,93,93,173,162,162,93,68,173,162,162,219,219,72,11,72,11,234,208,31,208,162,219,46,46,46,46,219,52,77,52,77,120,77,55,140,202,155,155,99,138 DATA 206,112,164,164,164,206,164,156,156,213,156,112,156,213,213,132,132,132,132,41,132,41,69,248,60,172,49,179,49,111,187,197,112,213,212,238,252,134,123,123,134,248,235,3,29,174,29,235,54,24,80,252,242,92,242,242,242,134,149,60,13,245,95,52,42,127,87,163,162,162,93,68,162,234,189,162,162,162,72,219,162,162,219,234,173,234,208,208,11,162,219,46,52,46,77,46,87,77,77,77,77,77,55,140,202,155,224,203 DATA 164,206,156,5,164,164,156,112,206,156,156,213,156,213,166,213,132,212,230,41,230,69,132,41,213,30,49,111,49,10,111,97,70,206,41,128,238,123,110,123,242,102,34,235,3,174,29,29,24,54,231,252,242,242,242,134,239,132,70,168,70,240,52,198,87,127,180,84,219,84,162,189,93,93,93,72,162,93,162,162,68,162,162,162,234,17,208,162,219,11,219,46,46,52,46,52,77,52,145,77,145,77,137,145,103,229,155,96 DATA 164,245,164,245,164,245,156,65,245,156,156,213,213,213,213,132,149,191,149,128,149,41,41,230,41,70,10,49,49,49,111,30,27,164,69,212,198,134,242,134,92,252,231,80,235,3,29,235,80,212,198,252,239,242,252,222,206,65,105,38,154,120,180,87,180,87,52,219,72,84,93,93,93,189,162,162,93,162,93,234,93,162,234,17,162,93,208,234,162,219,11,219,35,52,52,77,52,77,120,77,77,77,64,137,77,184,96,23 DATA 156,112,245,65,206,112,245,213,156,112,156,156,166,156,69,132,41,128,128,128,222,128,212,41,41,248,101,179,111,49,187,172,97,71,206,248,102,198,134,123,134,110,242,222,34,54,235,3,174,102,252,57,134,102,132,70,70,245,158,90,191,238,52,180,87,163,163,163,72,72,219,162,93,162,84,162,72,234,93,208,234,234,234,162,162,17,173,234,46,11,11,46,72,120,52,52,46,46,77,145,77,52,137,107,107,55,160,33 DATA 112,245,206,112,65,206,213,156,213,156,213,206,213,213,166,69,149,149,128,42,238,128,128,128,212,149,5,187,172,179,179,179,187,76,70,213,212,198,134,123,242,252,242,134,102,222,231,198,252,134,239,252,222,164,158,60,164,168,90,105,127,52,87,72,163,87,52,163,198,72,162,84,162,163,72,72,84,173,93,208,93,162,162,162,162,208,17,234,46,72,46,219,46,52,77,52,77,46,52,77,77,137,46,64,137,137,246,21 DATA 164,112,245,206,213,156,206,156,100,213,100,100,100,69,69,230,149,42,102,238,57,198,87,102,42,128,248,197,187,179,179,187,179,101,27,206,248,128,238,134,110,134,242,134,252,102,102,239,239,102,239,213,67,38,70,154,154,158,168,65,42,180,72,87,191,87,87,72,52,163,84,84,162,163,72,163,162,93,173,173,162,162,162,162,162,234,68,162,72,46,72,46,46,46,120,77,52,77,46,46,35,137,137,137,46,64,55,243 DATA 213,164,156,156,156,213,213,132,248,69,166,213,132,132,149,149,128,238,238,57,180,57,198,87,102,238,128,206,27,97,187,187,111,49,187,38,206,69,231,57,134,134,252,134,57,238,102,102,139,128,38,187,67,168,71,70,154,38,154,195,87,52,35,191,191,87,87,87,52,52,72,162,84,52,163,72,163,93,173,93,162,11,11,162,11,173,17,11,46,52,46,52,46,52,52,192,77,77,77,46,137,46,46,46,137,137,137,202 DATA 206,156,213,213,156,213,100,69,100,69,69,100,69,191,149,149,139,238,87,198,198,198,87,57,180,57,238,128,70,67,101,67,49,111,111,101,70,213,41,222,134,57,198,102,238,102,238,215,213,172,49,76,27,158,154,154,70,154,245,192,180,219,163,191,191,87,163,217,87,163,84,219,162,163,87,84,84,162,93,173,162,162,93,173,234,17,173,162,46,120,46,72,52,46,77,120,77,77,52,77,46,137,137,137,137,137,137,140 DATA 213,156,213,156,34,132,166,166,132,132,132,69,191,149,149,95,238,87,180,163,198,163,180,198,110,198,87,102,248,203,187,135,179,172,187,172,97,70,213,230,95,102,222,139,128,128,112,227,168,49,49,67,67,158,164,65,154,65,240,127,52,72,87,191,192,87,163,163,52,180,163,72,219,163,163,52,72,84,162,173,162,162,162,162,234,234,234,11,72,52,120,46,46,52,52,77,120,77,77,46,137,11,46,64,137,77,77,55 DATA 69,248,100,166,166,100,132,213,166,191,149,149,149,127,128,238,87,180,198,163,163,143,110,110,163,110,198,87,222,158,97,135,121,97,184,187,187,38,164,166,230,128,139,132,67,147,99,64,172,175,99,97,38,90,154,156,245,65,227,127,163,84,52,191,132,180,72,52,163,72,219,219,219,219,87,219,219,162,162,68,93,162,162,11,93,68,208,162,11,52,87,46,52,46,52,77,77,145,77,46,64,137,137,137,137,77,77,28 DATA 213,166,248,132,100,166,69,191,149,149,149,128,149,95,42,180,87,110,110,110,217,110,143,182,123,110,110,57,102,156,67,147,147,43,168,147,187,147,168,154,65,13,172,176,114,114,99,192,121,114,172,97,13,245,154,227,154,65,100,120,46,219,87,192,192,52,72,180,219,52,52,163,219,163,46,72,72,162,234,234,208,11,93,234,208,208,17,234,162,52,77,46,52,52,77,52,77,77,77,77,64,64,64,77,137,55,55,103 DATA 132,69,191,132,69,191,132,149,149,149,149,42,128,87,87,238,163,52,217,182,84,84,84,84,182,182,110,163,87,128,135,97,135,187,203,76,49,114,114,114,124,59,244,175,114,124,175,121,49,175,172,97,154,65,184,166,125,156,192,120,52,219,52,127,87,52,217,52,52,219,163,52,52,219,72,52,219,162,162,234,31,208,85,93,234,208,208,234,11,46,52,52,52,52,127,52,77,120,77,77,35,64,221,137,77,77,55,55 DATA 132,132,132,69,132,69,149,149,149,128,127,42,42,238,198,163,217,163,182,84,182,182,182,249,182,182,182,110,57,102,168,38,97,147,121,67,99,114,114,124,2,58,2,2,114,114,246,66,147,124,187,13,164,65,184,100,65,240,191,120,87,64,219,180,52,52,219,217,52,219,219,219,163,219,219,52,163,162,162,208,208,194,194,162,93,208,208,208,11,46,52,77,52,77,127,77,77,46,180,77,137,46,85,64,137,201,28,55 DATA 230,132,132,132,69,132,132,191,127,149,128,95,238,87,180,180,217,217,219,182,162,84,84,93,182,84,84,110,163,87,213,121,27,97,172,67,172,176,124,114,124,58,104,2,176,114,67,147,114,244,147,71,65,154,65,227,65,227,192,120,52,219,11,180,52,52,11,72,52,52,219,219,11,84,219,219,72,11,93,142,31,136,165,194,208,208,136,208,93,11,46,87,77,77,192,77,52,46,77,77,64,137,137,107,137,26,103,140 DATA 191,132,191,132,132,191,149,128,149,95,42,42,42,238,163,163,163,163,84,84,182,182,182,182,249,84,182,72,239,57,132,172,97,97,172,147,135,49,22,114,58,2,58,59,244,179,103,206,114,175,187,105,164,125,156,14,227,240,192,52,87,219,171,52,46,163,84,217,52,72,72,35,171,234,219,162,11,219,11,68,208,194,165,165,194,68,194,194,234,11,35,145,52,127,192,192,77,77,77,77,64,77,137,64,64,207,202,125 DATA 149,41,41,149,69,149,128,42,149,149,42,238,87,198,198,163,217,217,217,84,182,84,161,171,93,182,110,110,110,139,149,172,97,67,101,179,147,49,114,176,114,244,244,124,115,172,184,234,49,172,175,105,156,154,227,227,227,195,127,87,120,46,171,219,35,84,72,52,180,163,52,72,219,68,171,11,171,64,162,68,208,31,136,225,194,208,208,31,194,46,46,52,145,127,192,28,77,46,46,137,77,77,55,107,137,55,121,96 DATA 149,149,41,149,149,149,127,149,149,149,42,42,180,180,57,180,110,163,217,84,123,143,84,182,84,110,84,110,57,198,222,172,203,76,97,187,111,172,114,22,114,58,244,244,244,246,55,204,135,172,172,154,245,65,65,245,154,100,127,145,77,35,11,46,52,35,35,180,52,52,52,163,46,234,142,162,171,11,234,17,68,17,136,165,136,31,208,194,63,142,46,52,145,77,195,127,192,46,11,46,55,77,28,77,137,207,246,88 DATA 128,149,128,149,149,149,149,149,42,128,42,42,238,238,180,57,163,163,143,163,84,163,84,84,182,182,110,163,57,102,42,38,76,203,97,97,175,187,153,114,114,124,244,114,175,105,137,136,14,43,135,125,125,14,156,26,65,195,192,180,120,52,11,171,180,46,219,52,180,46,52,219,219,11,68,11,85,171,11,234,17,68,194,165,106,136,17,31,194,31,64,35,46,145,77,145,77,145,77,85,55,55,28,77,77,207,246,22 DATA 95,149,149,149,69,149,149,132,149,149,128,42,42,238,180,198,163,198,163,110,143,84,143,84,92,84,110,110,110,57,238,154,67,38,67,97,172,99,172,176,176,124,176,124,175,105,137,225,145,172,246,65,65,227,154,168,125,227,127,52,180,77,171,234,52,35,219,52,163,35,163,219,11,11,142,234,234,11,234,234,234,17,208,136,165,165,194,136,165,194,142,52,77,120,52,77,145,77,77,11,46,103,55,28,145,140,66,210 DATA 149,149,149,149,132,149,149,149,149,128,42,238,238,87,238,198,163,163,163,143,84,163,182,110,84,182,92,110,110,57,238,206,67,168,38,67,172,153,99,49,114,176,114,114,172,105,77,225,77,147,246,227,227,65,246,168,125,14,127,52,77,52,171,162,52,11,219,219,35,72,52,72,171,234,162,234,17,162,11,85,234,234,31,136,165,165,136,136,63,194,208,64,145,52,77,192,28,28,77,85,46,28,77,103,28,140,105,58 DATA 149,41,149,69,149,41,69,149,149,42,128,139,87,238,198,180,163,163,198,163,110,110,110,110,182,84,110,110,57,163,57,156,67,125,67,13,111,114,49,172,49,153,175,99,175,125,14,85,28,246,203,195,227,14,147,105,154,227,120,127,52,180,171,85,217,219,163,11,217,217,217,219,234,162,171,85,142,162,234,162,142,11,17,136,165,165,136,194,136,136,31,142,77,52,145,77,192,28,55,46,64,55,28,140,140,103,184,115 DATA 149,149,230,132,132,132,230,191,149,42,149,128,222,238,87,198,198,198,163,57,198,163,110,84,110,92,84,134,57,102,139,156,13,65,67,67,187,175,111,97,22,49,172,111,114,121,125,140,13,147,184,192,14,125,203,184,154,14,192,127,77,52,171,162,219,35,46,72,162,52,219,171,68,162,11,162,68,234,142,234,234,162,208,194,165,165,136,194,136,194,194,234,35,145,55,145,55,28,145,46,11,120,103,201,26,202,184,58 DATA 149,69,191,191,149,149,149,149,149,139,128,149,42,231,87,102,57,163,57,110,57,110,163,143,84,110,110,110,110,57,139,213,38,227,168,67,147,49,49,13,114,99,172,172,153,99,147,147,121,43,140,52,140,154,147,13,154,65,192,127,120,52,11,11,171,219,217,52,162,72,84,162,234,162,171,85,31,142,31,234,208,11,234,136,165,165,165,194,165,136,63,208,64,77,192,77,145,28,145,77,77,77,140,26,246,1,121,115 DATA 230,248,69,69,132,191,191,149,149,149,139,42,139,42,57,180,163,198,198,198,134,163,110,110,110,182,92,163,239,163,57,132,67,227,154,38,147,49,99,13,114,147,147,172,176,111,175,172,172,90,120,127,125,105,147,13,164,14,192,120,192,46,46,234,219,219,72,52,162,46,219,162,234,162,162,85,68,31,234,234,85,11,208,194,165,165,165,136,31,136,136,194,11,137,140,28,28,140,55,77,77,77,14,201,99,121,178,22 DATA 100,100,213,132,191,41,132,42,191,149,128,128,42,95,238,57,198,57,180,110,163,134,163,182,110,110,110,110,110,57,139,230,67,195,65,13,147,49,172,13,176,99,187,187,172,99,49,147,172,202,35,191,65,67,203,38,105,14,192,192,28,52,46,162,162,11,52,11,162,219,219,68,234,162,11,68,31,208,234,173,234,11,17,136,165,165,136,194,31,136,31,31,85,145,192,28,28,140,196,28,55,77,28,184,22,22,79,47 DATA 156,213,213,156,213,132,191,132,191,149,149,128,42,231,87,238,198,57,57,57,198,163,110,110,143,92,163,110,110,134,57,132,67,195,65,168,76,172,67,67,172,121,147,147,172,49,49,172,27,145,120,14,105,147,13,168,13,65,166,192,195,120,35,85,171,171,180,219,11,72,11,162,234,171,162,142,208,17,234,11,162,162,85,31,165,165,136,136,31,31,136,17,17,64,55,28,192,26,140,14,28,77,105,22,88,244,47,214 DATA 112,206,156,213,156,69,69,149,149,149,128,42,128,42,238,238,198,57,198,198,57,198,163,110,110,134,110,198,57,57,102,132,67,140,195,105,147,99,26,147,99,121,187,172,147,135,172,135,184,52,127,125,13,147,154,67,67,125,140,195,28,180,46,11,171,219,52,52,11,11,162,68,68,85,142,194,208,85,234,162,234,85,234,136,136,165,63,136,17,31,31,31,234,11,120,103,28,184,140,26,202,77,66,244,58,58,39,9 DATA 245,164,206,156,213,213,213,69,191,41,149,95,139,238,139,238,87,87,198,57,198,57,110,134,110,110,239,239,239,139,222,156,67,166,14,13,97,172,14,121,172,13,176,172,97,147,187,121,28,180,140,227,172,105,154,76,203,184,195,195,191,52,35,171,46,219,217,46,171,171,11,234,68,142,194,142,162,11,234,85,162,11,68,31,136,165,31,63,136,17,31,31,17,85,145,140,28,229,14,246,224,140,246,22,210,15,39,20 DATA 70,70,164,156,156,213,100,69,41,149,41,95,42,222,238,238,102,198,57,238,198,198,163,110,242,84,110,110,57,102,139,112,13,140,227,105,135,203,140,147,172,13,153,147,147,97,67,184,87,192,227,168,67,156,168,147,67,125,195,140,28,52,35,162,219,219,217,219,11,171,208,194,194,68,17,162,46,219,11,162,11,234,17,208,63,165,17,136,63,234,31,31,17,85,77,196,240,229,26,178,66,140,74,115,47,9,15,39 DATA 158,71,70,245,206,156,166,69,149,149,128,128,42,42,139,102,87,102,198,238,57,57,163,57,110,134,110,239,163,102,222,154,38,140,240,65,147,125,227,172,246,187,172,187,172,135,67,28,127,140,65,13,168,125,97,172,246,125,195,227,195,52,46,217,219,46,219,162,162,11,68,17,68,208,162,219,217,11,11,85,162,162,142,31,136,31,31,31,136,17,31,31,208,85,77,28,140,201,121,88,74,66,58,58,47,9,20,18 DATA 101,67,168,70,245,156,213,100,132,41,149,128,231,238,102,87,102,102,57,57,198,163,57,110,110,110,239,110,239,87,139,168,13,227,227,125,203,14,14,147,246,172,99,147,97,97,13,195,192,227,105,13,154,13,187,187,13,13,140,227,192,35,219,46,52,219,171,35,171,68,68,68,194,208,162,11,72,219,162,162,85,11,68,31,136,31,234,63,194,17,17,31,194,85,145,28,140,184,22,178,178,175,47,210,9,214,15,37 DATA 179,97,197,158,70,164,213,166,213,41,127,149,139,42,238,102,180,238,57,198,102,198,198,163,198,57,134,239,57,102,128,38,168,125,65,227,13,140,227,203,229,153,187,67,121,121,227,28,227,105,168,105,13,38,187,67,67,105,14,195,120,35,11,219,64,171,234,194,194,194,194,208,173,84,11,219,46,162,162,11,162,162,17,17,165,234,17,208,17,31,17,31,31,234,28,201,201,246,22,22,178,210,39,47,47,39,39,37 DATA 114,30,101,67,71,245,206,213,166,41,212,128,128,95,238,238,238,57,238,57,180,239,102,57,57,239,198,57,102,139,248,38,13,105,227,125,168,195,14,246,105,178,99,13,147,105,14,140,227,13,105,38,13,67,147,97,13,168,227,28,120,46,64,46,84,162,234,173,173,93,93,208,234,162,219,219,35,11,11,162,11,162,85,31,31,234,85,31,17,17,31,31,194,17,120,140,155,66,175,115,115,47,15,39,39,9,39,18 DATA 59,49,187,27,158,5,206,156,100,191,127,149,128,102,139,102,238,102,57,57,238,238,198,198,110,110,239,102,102,222,213,97,67,184,227,227,125,140,227,105,168,114,172,246,38,125,140,227,168,67,168,38,168,38,187,135,13,13,14,120,77,11,52,219,162,162,162,11,46,46,72,162,162,219,162,84,52,234,234,11,11,17,234,31,17,64,11,17,142,17,17,31,194,17,55,14,96,178,58,58,47,47,47,39,39,37,4,37 DATA 104,2,49,101,38,70,164,213,248,41,212,128,42,139,231,87,102,238,57,102,57,102,57,238,57,239,57,102,139,128,5,67,67,105,125,14,140,140,125,105,67,49,187,203,105,14,227,65,13,13,168,246,105,97,121,168,168,184,195,35,11,35,64,64,11,163,52,163,84,72,163,219,162,162,219,11,46,11,162,162,234,234,142,31,17,11,11,31,234,17,142,194,136,208,145,26,175,58,210,210,47,9,39,9,39,37,37,18 DATA 58,2,114,187,197,168,70,156,213,132,149,212,128,42,222,57,57,87,102,198,57,102,57,102,57,102,57,102,222,230,97,76,38,13,156,105,227,195,105,105,246,172,172,147,105,65,227,105,13,168,38,105,168,172,246,13,105,207,35,64,35,46,46,52,52,52,163,52,52,163,72,84,162,162,162,142,68,234,234,11,234,234,31,17,85,11,85,142,31,208,17,31,136,208,192,121,88,115,115,47,47,39,39,37,39,37,37,4 DATA 39,58,104,175,135,90,5,65,206,41,69,149,128,222,42,222,102,102,198,102,198,198,102,102,102,57,102,102,139,248,49,172,97,121,105,38,14,140,38,13,135,67,187,172,184,227,105,168,13,246,105,168,227,154,240,207,145,35,77,64,46,11,192,127,52,52,52,87,87,52,163,72,84,162,162,234,162,234,171,162,234,31,234,31,234,85,85,17,142,31,142,31,31,208,207,203,178,178,22,115,210,15,39,15,18,15,47,37 DATA 8,36,47,114,172,38,70,206,132,213,41,128,128,128,231,238,238,57,102,57,57,239,239,102,57,102,102,231,222,70,179,187,147,121,168,67,240,140,246,67,147,121,135,49,125,105,13,246,246,13,67,67,168,26,65,125,192,46,46,52,46,192,28,52,52,87,87,120,52,52,52,219,162,162,11,84,11,85,11,142,17,234,142,17,142,11,85,142,31,17,142,31,136,208,184,243,99,88,115,210,47,9,39,39,37,37,18,37 DATA 8,36,8,20,124,101,38,245,156,100,132,41,41,128,95,222,102,238,102,57,134,198,238,102,57,102,102,238,41,168,187,111,49,203,97,246,140,65,13,67,187,121,67,121,105,105,13,67,67,67,67,168,125,13,105,192,77,120,52,77,52,145,77,120,52,87,87,87,87,120,52,72,162,219,162,11,162,234,17,17,17,17,234,31,85,85,64,85,31,142,107,31,63,85,201,74,88,210,210,79,47,9,47,15,39,18,37,37 DATA 8,8,8,36,18,58,135,168,245,166,69,41,230,128,102,238,238,102,198,163,57,102,102,57,102,231,139,222,248,67,67,49,175,67,172,184,227,184,121,97,147,187,97,203,13,105,105,147,13,67,13,105,168,125,28,192,140,145,77,77,127,120,52,46,192,127,127,120,87,52,52,219,162,11,11,234,17,234,17,234,17,234,17,17,85,11,64,46,17,17,85,17,136,35,201,43,50,244,210,210,79,9,37,37,18,37,37,18 DATA 8,8,18,8,36,4,20,97,112,156,132,69,69,149,42,231,102,57,102,239,163,57,198,102,87,139,222,128,5,203,135,203,135,76,121,125,14,105,147,147,147,147,147,135,38,13,168,97,76,246,38,13,125,227,28,65,125,28,120,120,120,77,52,52,52,120,120,87,87,52,46,217,46,219,234,85,17,17,162,17,85,17,142,17,85,64,46,64,142,85,85,85,31,28,202,205,43,223,58,79,47,15,20,15,18,37,18,36 DATA 37,214,39,4,8,8,18,37,175,154,191,132,69,41,128,238,198,198,57,198,134,239,57,102,102,102,139,127,158,135,67,135,246,203,67,26,125,172,111,147,101,175,172,172,246,13,67,121,121,67,13,154,105,125,14,26,140,192,192,145,46,46,35,120,77,52,87,52,35,46,171,46,219,11,162,162,17,85,11,11,234,17,17,85,85,11,77,46,85,11,107,17,31,202,229,96,74,22,79,47,9,15,39,39,37,37,37,18 DATA 18,59,114,104,20,4,8,8,8,20,67,166,213,248,41,222,87,198,198,57,87,57,102,57,102,238,231,230,203,135,135,67,90,67,13,154,168,147,49,49,172,49,172,121,246,13,105,187,203,13,67,13,125,65,105,65,140,28,192,52,64,11,77,52,52,77,46,35,46,11,11,219,219,219,11,11,173,17,11,85,17,17,142,85,85,46,196,137,46,55,64,17,142,160,74,115,58,210,47,9,20,15,37,37,18,36,36,118 DATA 4,58,49,49,175,47,8,37,4,18,39,175,13,156,149,128,231,57,134,239,110,102,57,102,102,238,139,164,135,135,203,135,121,67,246,26,246,147,172,172,147,172,187,121,76,121,13,147,13,203,67,246,154,105,105,201,227,28,77,46,85,46,46,77,127,120,52,46,85,162,11,11,46,11,171,85,85,11,11,85,85,17,17,64,137,55,140,77,77,77,77,107,55,21,21,138,115,210,210,47,15,37,15,39,37,8,118,118 DATA 8,47,49,179,49,179,59,15,20,37,39,4,18,176,154,128,42,198,180,198,198,102,102,238,238,222,128,90,135,135,135,121,203,135,203,203,121,135,121,187,172,172,147,172,246,13,13,67,187,187,67,13,125,105,154,125,28,145,46,11,46,77,52,120,120,52,46,142,142,85,85,46,46,219,11,234,11,85,85,17,17,17,85,77,28,140,55,55,196,77,55,85,229,88,22,115,47,79,47,47,47,15,36,18,37,8,8,37 DATA 4,104,10,49,179,30,135,179,104,4,4,4,8,39,115,65,128,238,198,57,87,102,139,238,238,128,132,111,187,135,135,135,121,203,246,135,135,121,121,172,172,43,172,43,203,203,67,246,147,121,38,184,105,105,184,14,28,52,46,46,52,52,145,77,35,11,31,208,31,234,11,35,11,64,11,11,85,46,85,85,17,85,28,159,140,140,28,201,28,137,137,46,178,58,50,115,210,79,9,9,39,47,15,37,37,15,37,18 DATA 18,58,49,179,179,172,135,135,27,175,98,4,20,39,20,47,99,166,87,57,198,87,238,222,128,128,60,47,58,49,121,203,90,203,121,43,160,49,179,160,49,49,99,172,135,67,13,97,172,97,67,97,105,105,154,227,28,52,72,77,77,77,180,85,234,85,68,17,17,85,11,46,46,11,11,11,64,85,85,17,85,77,140,103,224,103,140,202,196,77,64,26,115,115,115,47,47,47,20,39,15,39,37,15,18,15,18,37 DATA 47,59,49,49,179,135,135,27,90,38,135,236,98,47,15,47,236,47,172,240,87,102,238,139,128,149,187,79,98,58,135,43,203,135,121,43,179,43,99,179,179,49,172,172,121,246,13,97,121,121,203,203,13,13,26,28,77,120,77,120,120,35,85,208,68,17,31,31,85,85,46,64,11,171,64,85,85,85,17,17,85,103,201,140,159,140,229,202,196,137,55,99,88,115,138,210,47,9,39,15,37,39,18,37,37,37,37,18 DATA 37,115,99,49,43,179,135,90,60,60,245,245,185,203,59,104,47,157,47,104,49,125,41,128,149,213,2,47,47,115,97,135,23,43,179,160,160,99,43,43,43,179,135,172,172,184,246,67,187,147,135,67,105,168,125,28,127,127,127,52,35,142,17,234,234,31,31,31,85,46,46,64,85,85,234,142,64,17,204,17,77,26,159,26,201,66,155,103,28,28,205,138,58,79,47,47,9,15,39,39,15,37,4,18,39,18,15,37 DATA 15,2,10,49,179,135,135,197,71,70,206,69,69,41,191,185,49,79,79,47,47,58,244,121,168,76,98,47,98,115,187,121,135,135,43,179,43,179,179,43,135,43,179,121,175,135,38,13,187,147,67,67,13,105,140,140,192,28,120,46,208,208,85,17,17,17,17,11,11,107,85,142,142,142,31,11,107,17,17,64,55,159,201,26,229,205,229,196,140,202,22,115,210,47,15,15,20,39,15,39,37,37,15,36,18,37,37,37 DATA 4,59,49,49,179,30,135,135,71,245,206,69,41,149,238,198,198,191,90,88,47,47,47,47,79,47,47,47,98,115,172,121,43,135,43,99,30,99,172,99,179,121,49,172,179,43,246,67,97,67,121,38,105,227,140,140,195,192,46,162,11,11,93,85,234,85,46,64,11,85,31,142,31,31,17,107,31,17,107,140,159,140,159,229,66,205,159,201,202,74,22,115,115,47,20,15,15,37,15,20,15,37,37,39,39,37,18,18 DATA 179,49,49,175,49,135,135,27,71,70,206,69,41,41,95,180,198,217,217,95,185,175,79,79,47,47,47,15,214,47,179,135,135,43,43,49,99,99,99,49,99,43,43,135,99,97,67,67,67,67,203,38,125,14,140,195,192,77,46,46,46,46,11,11,46,46,11,11,85,31,17,17,31,194,31,17,85,46,77,229,202,201,26,229,202,202,202,202,43,138,115,47,79,39,15,39,20,15,15,18,37,18,18,129,36,129,36,37 DATA 23,179,49,179,179,172,30,27,90,71,245,34,69,41,212,238,180,198,217,134,217,231,245,179,79,79,47,15,39,47,43,43,23,43,43,135,99,49,49,43,160,172,49,121,135,135,147,67,67,121,184,184,14,227,195,192,77,52,52,52,46,46,77,52,77,46,137,85,85,17,17,17,136,11,85,85,137,77,26,26,66,66,96,205,229,66,229,66,175,115,115,58,47,39,20,37,15,15,39,37,18,37,37,4,8,8,36,18 DATA 30,49,49,49,49,30,135,135,197,60,70,206,100,69,95,238,198,217,110,163,134,163,238,231,69,179,79,79,79,79,175,135,179,121,43,99,99,160,43,49,160,99,43,135,38,67,43,13,105,90,125,125,227,140,140,127,145,120,127,52,46,52,77,145,46,52,46,46,85,17,31,136,11,46,46,77,28,140,229,74,74,175,223,160,43,21,160,178,175,244,115,115,47,39,15,15,39,37,18,37,4,36,18,37,37,18,8,36 DATA 135,49,49,49,179,43,135,135,90,70,5,245,248,41,41,42,238,198,217,84,143,198,198,238,95,158,49,49,59,244,179,99,43,99,179,99,99,172,99,99,49,99,121,160,121,135,203,229,105,125,65,14,227,195,195,140,192,77,145,77,192,28,145,77,52,145,77,11,85,17,31,85,55,77,77,140,155,229,99,99,178,178,74,43,138,43,244,115,115,47,47,39,39,39,39,20,18,18,15,37,37,15,18,37,18,37,8,36 DATA 172,172,179,99,179,187,30,135,197,158,71,112,206,248,41,95,238,180,134,143,143,110,198,238,149,206,135,135,43,179,99,172,49,99,172,99,49,99,99,99,99,172,147,49,43,99,96,246,105,125,26,140,195,140,227,195,192,28,192,28,28,28,77,145,145,77,46,11,85,17,46,55,77,28,201,26,205,74,175,175,175,50,88,115,124,175,79,79,47,39,47,39,47,39,18,15,37,39,20,18,37,36,37,37,37,18,37,18 DATA 172,49,179,49,172,179,135,135,27,71,60,5,206,100,41,212,238,238,163,143,163,110,198,139,231,100,135,43,135,49,49,49,99,43,99,175,99,49,49,49,178,99,43,99,175,49,121,23,184,125,14,28,140,14,227,140,195,192,28,201,28,28,28,28,28,77,46,46,46,28,103,28,140,201,205,99,178,175,22,178,88,244,244,244,115,47,47,39,98,47,47,39,39,15,20,36,37,18,37,37,20,15,37,36,18,37,18,37 DATA 179,49,179,179,49,172,187,135,27,90,60,5,5,34,69,41,128,102,198,134,143,198,163,102,231,230,121,43,135,43,49,179,172,172,49,176,175,49,99,175,49,49,99,172,178,172,184,184,207,28,14,28,140,227,14,201,26,140,140,140,140,140,201,140,28,55,145,28,140,201,140,201,26,205,178,175,124,244,115,244,244,244,115,58,79,79,47,39,47,47,15,39,37,37,37,15,39,37,18,18,18,37,18,15,39,15,37,8 DATA 135,179,179,179,30,187,135,27,27,38,60,245,206,206,248,69,95,42,238,198,134,110,198,238,139,95,27,135,172,172,43,49,49,172,175,49,175,99,49,99,49,175,175,99,175,43,202,55,77,140,201,28,28,13,66,105,26,201,201,125,26,227,140,140,140,140,140,26,26,201,26,205,175,175,175,58,115,115,58,104,115,58,47,104,47,47,79,79,47,15,15,20,39,15,18,37,18,36,37,37,20,37,15,37,37,18,37,18 DATA 172,172,135,172,49,179,187,135,197,71,5,5,54,34,34,41,41,128,231,180,57,180,102,198,238,102,67,43,179,172,49,49,175,175,49,49,175,49,175,114,175,176,244,114,175,66,26,229,43,229,195,28,140,246,43,121,121,66,66,155,66,246,26,105,202,229,66,66,224,205,43,43,49,244,244,244,58,47,79,47,115,47,79,115,47,47,98,47,15,214,47,39,15,20,4,18,37,20,37,18,15,18,18,37,18,37,39,18 DATA 22,179,172,179,30,179,135,101,90,70,70,206,206,206,206,248,69,212,95,231,238,198,57,238,102,163,38,187,99,49,172,49,175,49,49,178,153,49,114,176,175,175,114,22,124,244,175,124,22,66,195,96,26,121,99,49,99,147,22,99,99,43,74,121,121,121,205,121,178,175,178,43,172,22,244,115,58,115,47,47,79,104,79,79,47,47,15,39,79,15,15,39,20,18,37,37,18,36,18,37,37,39,4,15,4,36,37,18 SUB BlankScreen STATIC Cmr% ' Blank the Screen while Drawing .. OUT &H3C4, 1 Cmr% = INP(&H3C5) OUT &H3C5, Cmr% OR &H20 END SUB SUB Frame (X AS INTEGER, Y AS INTEGER, X1 AS INTEGER, Y1 AS INTEGER) LINE (X + 2, Y + 2)-(X1 - 2, Y1 - 2), 19, B LINE (X + 3, Y + 3)-(X1 - 3, Y1 - 3), 25, B LINE (X + 4, Y + 4)-(X1 - 4, Y1 - 4), 44, B LINE (X + 5, Y + 5)-(X1 - 5, Y1 - 5), 53, B LINE (X + 6, Y + 6)-(X1 - 6, Y1 - 6), 56, B LINE (X + 7, Y + 7)-(X1 - 7, Y1 - 7), 62, B LINE (X + 8, Y + 8)-(X1 - 8, Y1 - 8), 73, B LINE (X + 9, Y + 9)-(X1 - 9, Y1 - 9), 75, B LINE (X + 10, Y + 10)-(X1 - 10, Y1 - 10), 78, B LINE (X + 11, Y + 11)-(X1 - 11, Y1 - 11), 81, B LINE (X + 12, Y + 12)-(X1 - 12, Y1 - 12), 82, B LINE (X + 13, Y + 13)-(X1 - 13, Y1 - 13), 89, B LINE (X + 14, Y + 14)-(X1 - 14, Y1 - 14), 91, B LINE (X + 15, Y + 15)-(X1 - 15, Y1 - 15), 89, B LINE (X + 16, Y + 16)-(X1 - 16, Y1 - 16), 82, B LINE (X + 17, Y + 17)-(X1 - 17, Y1 - 17), 81, B LINE (X + 18, Y + 18)-(X1 - 18, Y1 - 18), 78, B LINE (X + 19, Y + 19)-(X1 - 19, Y1 - 19), 75, B LINE (X + 20, Y + 20)-(X1 - 20, Y1 - 20), 73, B LINE (X + 21, Y + 21)-(X1 - 21, Y1 - 21), 62, B LINE (X + 22, Y + 22)-(X1 - 22, Y1 - 22), 56, B LINE (X + 23, Y + 23)-(X1 - 23, Y1 - 23), 53, B LINE (X + 24, Y + 24)-(X1 - 24, Y1 - 24), 44, B LINE (X + 25, Y + 25)-(X1 - 25, Y1 - 25), 25, B LINE (X + 26, Y + 26)-(X1 - 26, Y1 - 26), 19, B END SUB SUB GPrint (Text$, X AS INTEGER, Y AS INTEGER, FColor AS INTEGER, sx AS INTEGER, sy AS INTEGER) A = LEN(Text$) FOR I = 1 TO A SELECT CASE LCASE$(MID$(Text$, I, 1)) CASE "a" LINE (X, Y)-(X, Y - 5 * sy), FColor LINE -(X + 4 * sx, Y - 8 * sy), FColor LINE -(X + 5 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 5 * sy), FColor LINE -(X + 7 * sx, Y), FColor LINE (X, Y - 4 * sy)-(X + 7 * sx, Y - 4 * sy), FColor X = X + 10 * sx CASE "b" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor LINE -(X + 8 * sx, Y - 8 * sy), FColor LINE -(X + 8 * sx, Y - 5 * sy), FColor LINE -(X + 7 * sx, Y - 4 * sy), FColor LINE -(X, Y - 4 * sy), FColor LINE (X + 8 * sx, Y - 3 * sy)-(X + 8 * sx, Y - 1 * sy), FColor LINE -(X + 7 * sx, Y), FColor LINE -(X, Y), FColor LINE (X + 7 * sx, Y - 4 * sy)-(X + 8 * sx, Y - 3 * sy), FColor X = X + 10 * sx CASE "c" LINE (X, Y - 1 * sy)-(X, Y - 7 * sy), FColor LINE -(X + 1 * sx, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor LINE (X, Y - 1 * sy)-(X + 1 * sx, Y), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor X = X + 10 * sx CASE "d" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X, Y), FColor X = X + 10 * sx CASE "e" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor LINE (X, Y)-(X + 7 * sx, Y), FColor LINE (X, Y - 4 * sy)-(X + 4 * sx, Y - 4 * sy), FColor X = X + 10 * sx CASE "f" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor LINE (X, Y - 4 * sy)-(X + 4 * sx, Y - 4 * sy), FColor X = X + 10 * sx CASE "g" LINE (X + 5 * sx, Y - 3 * sy)-(X + 6 * sx, Y - 3 * sy), FColor LINE -(X + 7 * sx, Y - 2 * sy), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X + 1 * sx, Y), FColor LINE -(X, Y - 1 * sy), FColor LINE -(X, Y - 7 * sy), FColor LINE -(X + 1 * sx, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor X = X + 10 * sx CASE "h" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE (X + 7 * sx, Y)-(X + 7 * sx, Y - 8 * sy), FColor LINE (X, Y - 4 * sy)-(X + 7 * sx, Y - 4 * sy), FColor X = X + 10 * sx CASE "i" LINE (X, Y)-(X + 6 * sx, Y), FColor LINE (X, Y - 8 * sy)-(X + 6 * sx, Y - 8 * sy), FColor LINE (X + 3 * sx, Y)-(X + 3 * sx, Y - 8 * sy), FColor X = X + 9 * sx CASE "j" LINE (X, Y - 2 * sy)-(X, Y - 1 * sy), FColor LINE -(X + 1 * sx, Y), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor X = X + 10 * sx CASE "k" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE (X, Y - 4 * sy)-(X + 7 * sx, Y - 8 * sy), FColor LINE (X, Y - 4 * sy)-(X + 7 * sx, Y), FColor X = X + 10 * sx CASE "l" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE (X, Y)-(X + 6 * sx, Y), FColor X = X + 9 * sx CASE "m" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 3 * sx, Y - 5 * sy), FColor LINE -(X + 4 * sx, Y - 5 * sy), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y), FColor X = X + 10 * sx CASE "n" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor X = X + 10 * sx CASE "o" LINE (X, Y - 2 * sy)-(X, Y - 6 * sy), FColor LINE -(X + 1 * sx, Y - 7 * sy), FColor LINE -(X + 2 * sx, Y - 8 * sy), FColor LINE -(X + 5 * sx, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 7 * sy), FColor LINE -(X + 7 * sx, Y - 6 * sy), FColor LINE -(X + 7 * sx, Y - 2 * sy), FColor LINE -(X + 6 * sx, Y - 1 * sy), FColor LINE -(X + 5 * sx, Y), FColor LINE -(X + 2 * sx, Y), FColor LINE -(X + 1 * sx, Y - 1 * sy), FColor LINE -(X, Y - 2 * sy), FColor X = X + 10 * sx CASE "p" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor LINE -(X + 7 * sx, Y - 5 * sy), FColor LINE -(X + 6 * sx, Y - 4 * sy), FColor LINE -(X, Y - 4 * sy), FColor X = X + 10 * sx CASE "q" LINE (X, Y - 3 * sy)-(X, Y - 6 * sy), FColor LINE -(X + 2 * sx, Y - 8 * sy), FColor LINE -(X + 5 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 6 * sy), FColor LINE -(X + 7 * sx, Y - 3 * sy), FColor LINE -(X + 5 * sx, Y - 1 * sy), FColor LINE -(X + 2 * sx, Y - 1 * sy), FColor LINE -(X, Y - 3 * sy), FColor LINE (X + 3 * sx, Y - 3 * sy)-(X + 5 * sx, Y), FColor X = X + 10 * sx CASE "r" LINE (X, Y)-(X, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor LINE -(X + 7 * sx, Y - 5 * sy), FColor LINE -(X + 6 * sx, Y - 4 * sy), FColor LINE -(X, Y - 4 * sy), FColor LINE (X + 2 * sx, Y - 4 * sy)-(X + 7 * sx, Y), FColor X = X + 10 * sx CASE "s" LINE (X, Y - 2 * sy)-(X + 2 * sx, Y), FColor LINE -(X + 5 * sx, Y), FColor LINE -(X + 7 * sx, Y - 2 * sy), FColor LINE -(X + 5 * sx, Y - 4 * sy), FColor LINE -(X + 2 * sx, Y - 4 * sy), FColor LINE -(X, Y - 6 * sy), FColor LINE -(X + 2 * sx, Y - 8 * sy), FColor LINE -(X + 5 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 6 * sy), FColor X = X + 10 * sx CASE "t" LINE (X, Y - 8 * sy)-(X + 6 * sx, Y - 8 * sy), FColor LINE (X + 3 * sx, Y - 8 * sy)-(X + 3 * sx, Y), FColor X = X + 9 * sx CASE "u" LINE (X, Y - 8 * sy)-(X, Y - 1 * sy), FColor LINE -(X + 1 * sx, Y), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor X = X + 10 * sx CASE "v" LINE (X, Y - 8 * sy)-(X + 3 * sx, Y), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor X = X + 9 * sx CASE "w" LINE (X, Y - 8 * sy)-(X, Y), FColor LINE -(X + 3 * sx, Y - 3 * sy), FColor LINE -(X + 4 * sx, Y - 3 * sy), FColor LINE -(X + 7 * sx, Y), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor X = X + 10 * sx CASE "x" LINE (X, Y - 8 * sy)-(X + 7 * sx, Y), FColor LINE (X, Y)-(X + 7 * sx, Y - 8 * sy), FColor X = X + 10 * sx CASE "y" LINE (X, Y - 8 * sy)-(X + 3 * sx, Y - 5 * sy), FColor LINE -(X + 3 * sx, Y), FColor LINE (X + 3 * sx, Y - 5 * sy)-(X + 6 * sx, Y - 8 * sy), FColor X = X + 9 * sx CASE "z" LINE (X, Y - 8 * sy)-(X + 7 * sx, Y - 8 * sy), FColor LINE -(X, Y), FColor LINE -(X + 7 * sx, Y), FColor X = X + 10 * sx CASE "1" LINE (X, Y - 6 * sy)-(X + 2 * sx, Y - 8 * sy), FColor LINE -(X + 3 * sx, Y - 8 * sy), FColor LINE -(X + 3 * sx, Y), FColor LINE (X, Y)-(X + 6 * sx, Y), FColor X = X + 9 * sx CASE "2" LINE (X + 7 * sx, Y)-(X, Y), FColor LINE -(X + 7 * sx, Y - 6 * sy), FColor LINE -(X + 5 * sx, Y - 8 * sy), FColor LINE -(X + 2 * sx, Y - 8 * sy), FColor LINE -(X, Y - 6 * sy), FColor X = X + 10 * sx CASE "3" LINE (X, Y - 1 * sy)-(X + 1 * sx, Y), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 1 * sx, Y - 8 * sy), FColor LINE -(X, Y - 7 * sy), FColor LINE (X + 7 * sx, Y - 4 * sy)-(X + 3 * sx, Y - 4 * sy), FColor X = X + 10 * sx CASE "4" LINE (X, Y - 8 * sy)-(X, Y - 4 * sy), FColor LINE -(X + 7 * sx, Y - 4 * sy), FColor LINE (X + 6 * sx, Y - 8 * sy)-(X + 6 * sx, Y), FColor X = X + 10 * sx CASE "5" LINE (X, Y)-(X + 5 * sx, Y), FColor LINE -(X + 7 * sx, Y - 2 * sy), FColor LINE -(X + 7 * sx, Y - 3 * sy), FColor LINE -(X + 6 * sx, Y - 4 * sy), FColor LINE -(X, Y - 4 * sy), FColor LINE -(X, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 8 * sy), FColor X = X + 10 * sx CASE "6" LINE (X + 7 * sx, Y - 7 * sy)-(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 1 * sx, Y - 8 * sy), FColor LINE -(X, Y - 7 * sy), FColor LINE -(X, Y - 1 * sy), FColor LINE -(X + 1 * sy, Y), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor LINE -(X + 7 * sx, Y - 3 * sy), FColor LINE -(X + 6 * sx, Y - 4 * sy), FColor LINE -(X, Y - 4 * sy), FColor X = X + 10 * sx CASE "7" LINE (X, Y - 8 * sy)-(X + 7 * sx, Y - 8 * sy), FColor LINE -(X, Y), FColor X = X + 10 * sx CASE "8" LINE (X, Y - 5 * sy)-(X, Y - 7 * sy), FColor LINE -(X + 1 * sx, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor LINE -(X + 7 * sx, Y - 5 * sy), FColor LINE -(X + 6 * sx, Y - 4 * sy), FColor LINE -(X + 1 * sx, Y - 4 * sy), FColor LINE -(X, Y - 3 * sy), FColor LINE -(X, Y - 1 * sy), FColor LINE -(X + 1 * sx, Y), FColor LINE -(X + 6 * sx, Y), FColor LINE -(X + 7 * sx, Y - 1 * sy), FColor LINE -(X + 7 * sx, Y - 3 * sy), FColor LINE -(X + 6 * sx, Y - 4 * sy), FColor X = X + 10 * sx CASE "9" LINE (X, Y - 5 * sy)-(X, Y - 7 * sy), FColor LINE -(X + 1 * sx, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 8 * sy), FColor LINE -(X + 7 * sx, Y - 7 * sy), FColor LINE -(X + 7 * sx, Y), FColor LINE (X + 7 * sx, Y - 4 * sy)-(X + 1 * sx, Y - 4 * sy), FColor LINE -(X, Y - 5 * sy), FColor X = X + 10 * sx CASE "0" LINE (X, Y - 2 * sy)-(X, Y - 6 * sy), FColor LINE -(X + 1 * sx, Y - 7 * sy), FColor LINE -(X + 2 * sx, Y - 8 * sy), FColor LINE -(X + 5 * sx, Y - 8 * sy), FColor LINE -(X + 6 * sx, Y - 7 * sy), FColor LINE -(X + 7 * sx, Y - 6 * sy), FColor LINE -(X + 7 * sx, Y - 2 * sy), FColor LINE -(X + 6 * sx, Y - 1 * sy), FColor LINE -(X + 5 * sx, Y), FColor LINE -(X + 2 * sx, Y), FColor LINE -(X + 1 * sx, Y - 1 * sy), FColor LINE -(X, Y - 2 * sy), FColor LINE (X + 1 * sx, Y - 1 * sy)-(X + 6 * sx, Y - 7 * sy), FColor X = X + 10 * sx CASE "." LINE (X, Y)-(X, Y - 1 * sy), FColor LINE -(X + 1 * sx, Y - 1 * sy), FColor LINE -(X + 1 * sx, Y), FColor LINE -(X, Y), FColor 'PAINT (x + 1, y + 1), fcolor X = X + 6 * sx CASE " " X = X + 10 * sx CASE ELSE LOCATE 5, 1: COLOR 3: PRINT "Sorry not done yet" END SELECT NEXT I END SUB SUB LoadGraphics FOR R% = 0 TO 13 FOR C% = 0 TO 14 READ P% PSET (C%, R%), P% NEXT: NEXT GET (0, 0)-(14, 13), RedOctagon CLS END SUB SUB LoadPalette 'colors used for frame PALETTE 19, 524288 PALETTE 25, 786432 PALETTE 44, 1048576 PALETTE 53, 1310720 PALETTE 56, 1572864 PALETTE 62, 1835008 PALETTE 73, 2097152 PALETTE 75, 2359296 PALETTE 78, 2621440 PALETTE 81, 2883584 PALETTE 82, 3145728 PALETTE 89, 3407872 PALETTE 91, 3670016 'colors for red octagon PALETTE 109, 7 PALETTE 119, 15 PALETTE 122, 23 PALETTE 126, 31 PALETTE 130, 39 PALETTE 131, 47 PALETTE 141, 55 PALETTE 144, 855309 'orange colors for letters PALETTE 188, 9788: PALETTE 190, 9276: PALETTE 200, 8764 PALETTE 209, 8252: PALETTE 211, 7740: PALETTE 216, 7228 PALETTE 218, 6716: PALETTE 220, 6204: PALETTE 226, 5692 PALETTE 228, 5180: PALETTE 233, 4668: PALETTE 237, 4156 PALETTE 241, 3644: PALETTE 247, 3132: PALETTE 253, 2620 'colors for letter background PALETTE 6, 4369: PALETTE 16, 6168: PALETTE 150, 9252 PALETTE 169, 12336: PALETTE 177, 15420 'blond colors PALETTE 0, 0: PALETTE 1, 791570: PALETTE 2, 264204 PALETTE 3, 988972: PALETTE 4, 132102: PALETTE 5, 791585 PALETTE 7, 1188656: PALETTE 8, 131588: PALETTE 9, 395782 PALETTE 10, 395792: PALETTE 11, 1582895: PALETTE 12, 790544 PALETTE 13, 791578 PALETTE 14, 1055265 PALETTE 15, 395270 PALETTE 17, 1846065 PALETTE 18, 394244 PALETTE 19, 131586 PALETTE 20, 132104 PALETTE 21, 659470 PALETTE 22, 396300 PALETTE 23, 791060 PALETTE 24, 659489 PALETTE 26, 923676 PALETTE 27, 659480 PALETTE 28, 1187364 PALETTE 29, 1054768 PALETTE 30, 527380 PALETTE 31, 2042931 PALETTE 32, 526856 PALETTE 33, 923156 PALETTE 34, 923173 PALETTE 35, 1450540 PALETTE 36, 132098 PALETTE 37, 132612 PALETTE 38, 659994 PALETTE 39, 263686 PALETTE 40, 1189943 PALETTE 41, 1055273 PALETTE 42, 1187627 PALETTE 43, 659475 PALETTE 45, 1256504 PALETTE 46, 1451052 PALETTE 47, 264200 PALETTE 48, 922132 PALETTE 49, 527376 PALETTE 50, 527884 PALETTE 51, 1186330 PALETTE 52, 1319468 PALETTE 54, 791076 PALETTE 55, 1318692 PALETTE 57, 1187887 PALETTE 58, 264714 PALETTE 59, 395276 PALETTE 60, 791071 PALETTE 61, 1054742 PALETTE 63, 2370867 PALETTE 64, 1582124 PALETTE 65, 923936 PALETTE 66, 791574 PALETTE 67, 659992 PALETTE 68, 1780019 PALETTE 69, 1055271 PALETTE 70, 791582 PALETTE 71, 791069 PALETTE 72, 1319983 PALETTE 74, 528400 PALETTE 76, 528409 PALETTE 77, 1450792 PALETTE 79, 395272 PALETTE 80, 922919 PALETTE 83, 1319477 PALETTE 84, 1451057 PALETTE 85, 1714223 PALETTE 86, 1450808 PALETTE 87, 1187884 PALETTE 88, 527372 PALETTE 90, 791066 PALETTE 92, 1319731 PALETTE 93, 1583155 PALETTE 94, 1450549 PALETTE 95, 1186859 PALETTE 96, 791058 PALETTE 97, 528406 PALETTE 98, 263688 PALETTE 99, 527888 PALETTE 100, 1055269 PALETTE 101, 527894 PALETTE 102, 1187375 PALETTE 103, 1317918 PALETTE 104, 264202 PALETTE 105, 792092 PALETTE 106, 2569527 PALETTE 107, 1844268 PALETTE 108, 922642 PALETTE 110, 1319473 PALETTE 111, 396306 PALETTE 112, 792098 PALETTE 113, 1582138 PALETTE 114, 395790 PALETTE 115, 526858 PALETTE 116, 1582135 PALETTE 117, 658956 PALETTE 118, 263684 PALETTE 120, 1318953 PALETTE 121, 659990 PALETTE 123, 1450547 PALETTE 124, 264716 PALETTE 125, 923679 PALETTE 127, 1187881 PALETTE 128, 1055787 PALETTE 129, 394242 PALETTE 132, 924199 PALETTE 133, 1123382 PALETTE 134, 1318961 PALETTE 135, 659478 PALETTE 136, 2109495 PALETTE 137, 1647656 PALETTE 138, 396298 PALETTE 139, 1056301 PALETTE 140, 1055778 PALETTE 142, 1845552 PALETTE 143, 1450801 PALETTE 145, 1384487 PALETTE 146, 1715256 PALETTE 147, 528404 PALETTE 148, 922647 PALETTE 149, 1121321 PALETTE 151, 1056304 PALETTE 152, 658698 PALETTE 153, 396304 PALETTE 154, 857631 PALETTE 155, 923158 PALETTE 156, 923682 PALETTE 157, 263690 PALETTE 158, 659997 PALETTE 159, 1186333 PALETTE 160, 659472 PALETTE 161, 1386293 PALETTE 162, 1582897 PALETTE 163, 1319471 PALETTE 164, 792097 PALETTE 165, 2371640 PALETTE 166, 924197 PALETTE 167, 791056 PALETTE 168, 791580 PALETTE 170, 1319988 PALETTE 171, 1582128 PALETTE 172, 527890 PALETTE 173, 1714996 PALETTE 174, 1186354 PALETTE 175, 527374 PALETTE 176, 396302 PALETTE 178, 527886 PALETTE 179, 527378 PALETTE 180, 1318956 PALETTE 181, 922644 PALETTE 182, 1451059 PALETTE 183, 1054232 PALETTE 184, 923163 PALETTE 185, 922138 PALETTE 186, 1188659 PALETTE 187, 527892 PALETTE 189, 1714230 PALETTE 191, 1121319 PALETTE 192, 1187623 PALETTE 193, 527368 PALETTE 194, 2108470 PALETTE 195, 1121317 PALETTE 196, 1449762 PALETTE 197, 659482 PALETTE 198, 1318959 PALETTE 199, 1582902 PALETTE 201, 1055262 PALETTE 202, 1055003 PALETTE 203, 791063 PALETTE 204, 2238510 PALETTE 205, 791572 PALETTE 206, 923170 PALETTE 207, 1252386 PALETTE 208, 1846068 PALETTE 210, 395784 PALETTE 212, 1055275 PALETTE 213, 923685 PALETTE 214, 132616 PALETTE 215, 1055792 PALETTE 217, 1450543 PALETTE 219, 1451055 PALETTE 221, 1975592 PALETTE 222, 1055789 PALETTE 223, 658958 PALETTE 224, 1054744 PALETTE 225, 2699060 PALETTE 227, 924450 PALETTE 229, 923160 PALETTE 230, 924201 PALETTE 231, 1186861 PALETTE 232, 1386552 PALETTE 234, 1714225 PALETTE 235, 922153 PALETTE 236, 395274 PALETTE 238, 1187629 PALETTE 239, 1187890 PALETTE 240, 1055266 PALETTE 242, 1318964 PALETTE 243, 922130 PALETTE 244, 395788 PALETTE 245, 923168 PALETTE 246, 791576 PALETTE 248, 923687 PALETTE 249, 1451062 PALETTE 250, 1454136 PALETTE 251, 1054230 PALETTE 252, 1252914 PALETTE 254, 1382941 PALETTE 255, 1777698 END SUB SUB ShowBackGround FOR R% = 0 TO 195 STEP 14 FOR C% = 0 TO 314 STEP 15 PUT (C%, R%), RedOctagon, PSET NEXT NEXT END SUB SUB ShowBlond RESTORE BlondBeauty FOR R% = 0 TO 122 FOR C% = 0 TO 107 READ P% PSET (C% + 104, R% + 34), P% NEXT NEXT LINE (103, 33)-(212, 157), 255, B Frame 76, 6, 239, 184 Title 110, 11 END SUB SUB ShowScreen STATIC Cmr% ' Turn the Screen back On .. OUT &H3C4, 1 Cmr% = INP(&H3C5) OUT &H3C5, Cmr% AND &HDF END SUB SUB Title (X AS INTEGER, Y AS INTEGER) 'B LINE (X + 1, Y + 1)-(X + 13, Y + 1), 253 LINE (X + 1, Y + 2)-(X + 13, Y + 2), 247 LINE (X + 1, Y + 3)-(X + 15, Y + 3), 241 LINE (X + 3, Y + 4)-(X + 15, Y + 4), 237 LINE (X + 3, Y + 5)-(X + 15, Y + 5), 233 LINE (X + 3, Y + 6)-(X + 15, Y + 6), 228 LINE (X + 3, Y + 7)-(X + 15, Y + 7), 226 LINE (X + 3, Y + 8)-(X + 15, Y + 8), 220 LINE (X + 3, Y + 9)-(X + 15, Y + 9), 218 LINE (X + 3, Y + 10)-(X + 15, Y + 10), 216 LINE (X + 3, Y + 11)-(X + 15, Y + 11), 211 LINE (X + 3, Y + 12)-(X + 15, Y + 12), 209 LINE (X + 1, Y + 13)-(X + 15, Y + 13), 200 LINE (X + 1, Y + 14)-(X + 13, Y + 14), 190 LINE (X + 1, Y + 15)-(X + 13, Y + 15), 188 PSET (X, Y), 177: PSET (X + 1, Y), 169 LINE (X + 2, Y)-(X + 14, Y), 150: PSET (X, Y + 1), 169 LINE (X, Y + 2)-(X, Y + 4), 150: PSET (X + 1, Y + 4), 16 PSET (X + 2, Y + 4), 6: LINE (X + 2, Y + 5)-(X + 2, Y + 12), 150 PSET (X + 1, Y + 12), 169: PSET (X, Y + 12), 177: PSET (X, Y + 13), 169 LINE (X, Y + 14)-(X, Y + 16), 150: PSET (X + 1, Y + 16), 16 LINE (X + 2, Y + 16)-(X + 14, Y + 16), 6: LINE -(X + 14, Y + 14), 6 LINE -(X + 16, Y + 14), 6: LINE -(X + 16, Y + 4), 6 PSET (X + 16, Y + 3), 16: PSET (X + 16, Y + 9), 16 LINE (X + 16, Y + 2)-(X + 15, Y + 2), 150: PSET (X + 14, Y + 2), 6 PSET (X + 14, Y + 1), 16 LINE (X + 8, Y + 6)-(X + 8, Y + 4), 6: LINE -(X + 10, Y + 4), 6 LINE (X + 10, Y + 5)-(X + 10, Y + 6), 150: LINE -(X + 9, Y + 6), 150 PSET (X + 9, Y + 5), 0 LINE (X + 8, Y + 12)-(X + 8, Y + 10), 6: LINE -(X + 10, Y + 10), 6 LINE (X + 10, Y + 11)-(X + 10, Y + 12), 150: LINE -(X + 9, Y + 12), 150 PSET (X + 9, Y + 11), 0 LINE (X + 16, Y + 8)-(X + 14, Y + 8), 6 'l X = X + 21 LINE (X + 1, Y + 1)-(X + 7, Y + 1), 253 LINE (X + 1, Y + 2)-(X + 7, Y + 2), 247 LINE (X + 1, Y + 3)-(X + 7, Y + 3), 241 LINE (X + 3, Y + 4)-(X + 7, Y + 4), 237 LINE (X + 3, Y + 5)-(X + 7, Y + 5), 233 LINE (X + 3, Y + 6)-(X + 7, Y + 6), 228 LINE (X + 3, Y + 7)-(X + 7, Y + 7), 226 LINE (X + 3, Y + 8)-(X + 7, Y + 8), 220 LINE (X + 3, Y + 9)-(X + 7, Y + 9), 218 LINE (X + 3, Y + 10)-(X + 7, Y + 10), 216 LINE (X + 3, Y + 11)-(X + 7, Y + 11), 211 LINE (X + 3, Y + 12)-(X + 7, Y + 12), 209 LINE (X + 1, Y + 13)-(X + 9, Y + 13), 200 LINE (X + 1, Y + 14)-(X + 9, Y + 14), 190 LINE (X + 1, Y + 15)-(X + 9, Y + 15), 188 PSET (X, Y), 177: PSET (X + 1, Y), 169: LINE (X + 2, Y)-(X + 8, Y), 150 PSET (X, Y + 1), 169: LINE (X, Y + 2)-(X, Y + 4), 150 PSET (X + 1, Y + 4), 16: PSET (X + 2, Y + 4), 6 LINE (X + 2, Y + 5)-(X + 2, Y + 12), 150 PSET (X, Y + 12), 177: PSET (X + 1, Y + 12), 169 PSET (X, Y + 13), 169: LINE (X, Y + 14)-(X, Y + 16), 150 PSET (X + 1, Y + 16), 16: LINE (X + 2, Y + 16)-(X + 10, Y + 16), 6 LINE -(X + 10, Y + 14), 6 PSET (X + 10, Y + 13), 16: LINE (X + 9, Y + 12)-(X + 10, Y + 12), 150 LINE (X + 8, Y + 11)-(X + 8, Y + 2), 6: PSET (X + 8, Y + 1), 16 'o X = X + 15: Y = Y + 4 LINE (X + 3, Y + 1)-(X + 11, Y + 1), 233 LINE (X + 3, Y + 2)-(X + 11, Y + 2), 228 LINE (X + 1, Y + 3)-(X + 13, Y + 3), 226 LINE (X + 1, Y + 4)-(X + 13, Y + 4), 220 LINE (X + 1, Y + 5)-(X + 13, Y + 5), 218 LINE (X + 1, Y + 6)-(X + 13, Y + 6), 216 LINE (X + 1, Y + 7)-(X + 13, Y + 7), 211 LINE (X + 1, Y + 8)-(X + 13, Y + 8), 209 LINE (X + 1, Y + 9)-(X + 13, Y + 9), 200 LINE (X + 3, Y + 10)-(X + 11, Y + 10), 190 LINE (X + 3, Y + 11)-(X + 11, Y + 11), 188 PSET (X + 2, Y), 177: PSET (X + 3, Y), 169: LINE (X + 4, Y)-(X + 12, Y), 150 PSET (X + 2, Y + 1), 169: PSET (X + 2, Y + 2), 150: PSET (X + 1, Y + 2), 169 PSET (X, Y + 2), 177: PSET (X, Y + 3), 169: PSET (X + 1, Y + 10), 16 LINE (X, Y + 4)-(X, Y + 10), 150: PSET (X + 2, Y + 10), 6 LINE (X + 2, Y + 11)-(X + 2, Y + 12), 150: PSET (X + 3, Y + 12), 16 LINE (X + 4, Y + 12)-(X + 12, Y + 12), 6: LINE -(X + 12, Y + 10), 6 LINE -(X + 14, Y + 10), 6: LINE -(X + 14, Y + 4), 6 PSET (X + 14, Y + 3), 16: LINE (X + 14, Y + 2)-(X + 13, Y + 2), 150 PSET (X + 12, Y + 2), 6: PSET (X + 12, Y + 1), 16 LINE (X + 6, Y + 8)-(X + 6, Y + 4), 6: LINE -(X + 8, Y + 4), 6 LINE (X + 8, Y + 5)-(X + 8, Y + 8), 150: LINE -(X + 7, Y + 8), 150 LINE (X + 7, Y + 5)-(X + 7, Y + 7), 0 'n X = X + 18 LINE (X + 1, Y + 1)-(X + 11, Y + 1), 233 LINE (X + 1, Y + 2)-(X + 11, Y + 2), 228 LINE (X + 1, Y + 3)-(X + 13, Y + 3), 226 LINE (X + 1, Y + 4)-(X + 13, Y + 4), 220 LINE (X + 1, Y + 5)-(X + 5, Y + 5), 218 LINE (X + 9, Y + 5)-(X + 13, Y + 5), 218 LINE (X + 1, Y + 6)-(X + 5, Y + 6), 216 LINE (X + 9, Y + 6)-(X + 13, Y + 6), 216 LINE (X + 1, Y + 7)-(X + 5, Y + 7), 211 LINE (X + 9, Y + 7)-(X + 13, Y + 7), 211 LINE (X + 1, Y + 8)-(X + 5, Y + 8), 209 LINE (X + 9, Y + 8)-(X + 13, Y + 8), 209 LINE (X + 1, Y + 9)-(X + 5, Y + 9), 200 LINE (X + 9, Y + 9)-(X + 13, Y + 9), 200 LINE (X + 1, Y + 10)-(X + 5, Y + 10), 190 LINE (X + 9, Y + 10)-(X + 13, Y + 10), 190 LINE (X + 1, Y + 11)-(X + 5, Y + 11), 188 LINE (X + 9, Y + 11)-(X + 13, Y + 11), 188 PSET (X, Y), 177: PSET (X + 1, Y), 169: LINE (X + 2, Y)-(X + 12, Y), 150 PSET (X + 5, Y), 169: PSET (X, Y + 1), 169: PSET (X + 4, Y + 1), 16 PSET (X + 4, Y + 2), 6: LINE (X, Y + 2)-(X, Y + 12), 150 LINE (X + 8, Y + 5)-(X + 8, Y + 12), 150 PSET (X + 1, Y + 12), 16: PSET (X + 9, Y + 12), 16 LINE (X + 2, Y + 12)-(X + 6, Y + 12), 6: LINE -(X + 6, Y + 4), 6 LINE -(X + 8, Y + 4), 6: LINE (X + 10, Y + 12)-(X + 14, Y + 12), 6 LINE -(X + 14, Y + 4), 6: PSET (X + 14, Y + 3), 16 LINE (X + 13, Y + 2)-(X + 14, Y + 2), 150: PSET (X + 12, Y + 2), 6 PSET (X + 12, Y + 1), 16 'd X = X + 18: Y = Y - 4 LINE (X + 7, Y + 1)-(X + 13, Y + 1), 253 LINE (X + 7, Y + 2)-(X + 13, Y + 2), 247 LINE (X + 7, Y + 3)-(X + 13, Y + 3), 241 LINE (X + 9, Y + 4)-(X + 13, Y + 4), 237 LINE (X + 9, Y + 5)-(X + 13, Y + 5), 233 LINE (X + 9, Y + 6)-(X + 13, Y + 6), 228 LINE (X + 3, Y + 7)-(X + 13, Y + 7), 226 LINE (X + 3, Y + 8)-(X + 13, Y + 8), 220 LINE (X + 1, Y + 9)-(X + 13, Y + 9), 218 LINE (X + 1, Y + 10)-(X + 13, Y + 10), 216 LINE (X + 1, Y + 11)-(X + 13, Y + 11), 211 LINE (X + 1, Y + 12)-(X + 13, Y + 12), 209 LINE (X + 1, Y + 13)-(X + 15, Y + 13), 200 LINE (X + 3, Y + 14)-(X + 15, Y + 14), 190 LINE (X + 3, Y + 15)-(X + 15, Y + 15), 188 PSET (X + 6, Y), 177: PSET (X + 7, Y), 169: LINE (X + 8, Y)-(X + 14, Y), 150 PSET (X + 6, Y + 1), 169: LINE (X + 6, Y + 2)-(X + 6, Y + 4), 150 PSET (X + 7, Y + 4), 16: PSET (X + 8, Y + 4), 6 LINE (X + 8, Y + 5)-(X + 8, Y + 6), 150: LINE -(X + 4, Y + 6), 150 PSET (X + 3, Y + 6), 169: PSET (X + 2, Y + 6), 177: PSET (X + 2, Y + 7), 169 PSET (X + 2, Y + 8), 150: PSET (X + 1, Y + 8), 169: PSET (X, Y + 8), 177 PSET (X, Y + 9), 169: LINE (X, Y + 10)-(X, Y + 14), 150 PSET (X + 1, Y + 14), 16: PSET (X + 2, Y + 14), 6 LINE (X + 2, Y + 15)-(X + 2, Y + 16), 150: PSET (X + 3, Y + 16), 16 LINE (X + 4, Y + 16)-(X + 16, Y + 16), 6: LINE -(X + 16, Y + 14), 6 LINE (X + 10, Y + 15)-(X + 10, Y + 14), 6: PSET (X + 11, Y + 16), 16 PSET (X + 16, Y + 13), 16: LINE (X + 15, Y + 12)-(X + 16, Y + 12), 150 LINE (X + 14, Y + 12)-(X + 14, Y + 2), 6: PSET (X + 14, Y + 1), 16 LINE (X + 6, Y + 12)-(X + 6, Y + 10), 6: LINE -(X + 8, Y + 10), 6 LINE (X + 8, Y + 11)-(X + 8, Y + 12), 150: LINE -(X + 7, Y + 12), 150 PSET (X + 7, Y + 11), 0 '! X = X + 19 LINE (X + 3, Y + 1)-(X + 7, Y + 1), 253 LINE (X + 3, Y + 2)-(X + 7, Y + 2), 247 LINE (X + 1, Y + 3)-(X + 9, Y + 3), 241 LINE (X + 1, Y + 4)-(X + 9, Y + 4), 237 LINE (X + 1, Y + 5)-(X + 9, Y + 5), 233 LINE (X + 1, Y + 6)-(X + 9, Y + 6), 228 LINE (X + 1, Y + 7)-(X + 9, Y + 7), 226 LINE (X + 3, Y + 8)-(X + 7, Y + 8), 220 LINE (X + 3, Y + 9)-(X + 7, Y + 9), 218 LINE (X + 3, Y + 10)-(X + 7, Y + 10), 216 LINE (X + 3, Y + 11)-(X + 7, Y + 11), 211 LINE (X + 3, Y + 13)-(X + 7, Y + 13), 209 LINE (X + 3, Y + 14)-(X + 7, Y + 14), 200 LINE (X + 3, Y + 15)-(X + 7, Y + 15), 190 PSET (X + 2, Y), 177: PSET (X + 3, Y), 169: LINE (X + 4, Y)-(X + 8, Y), 150 PSET (X + 2, Y + 1), 169: PSET (X + 2, Y + 2), 150: PSET (X, Y + 2), 177 PSET (X + 1, Y + 2), 169: PSET (X, Y + 3), 169 LINE (X, Y + 4)-(X, Y + 8), 150: PSET (X + 1, Y + 8), 16 PSET (X + 2, Y + 8), 6: LINE (X + 2, Y + 9)-(X + 2, Y + 16), 150 PSET (X + 2, Y + 13), 169: PSET (X + 3, Y + 16), 16 LINE (X + 4, Y + 16)-(X + 8, Y + 16), 6: LINE -(X + 8, Y + 8), 6 LINE -(X + 10, Y + 8), 6: LINE -(X + 10, Y + 4), 6 PSET (X + 8, Y + 13), 150: PSET (X + 3, Y + 12), 16 LINE (X + 4, Y + 12)-(X + 7, Y + 12), 6: PSET (X + 10, Y + 3), 16 LINE (X + 9, Y + 2)-(X + 10, Y + 2), 150: PSET (X + 8, Y + 2), 6 PSET (X + 8, Y + 1), 16 END SUB