(because if it doesn't show true application, its not a good example)
This is a preview image of a tool I am working on that is dedicated to icon image to code that will allow a person to convert a 16 color BMP image to code that can be inserted into any program placed anywhere on screen.
(no external files and this is a new project started from scratch)
It took about 6 hours to work out all the issues with the tool and to create this final example of what it can do.
Code: Select all
MODE 8
VDU 5
PROCscribjelly(800,300)
PROCcolumbine(800,400)
PROChoney(800,500)
PROCflour(800,600)
PROCbjuice(800,700)
GCOL 15
MOVE 400,900:PRINT "Elder Scrolls Online BEWITCHED SUGAR SKULLS"
MOVE 500,650:PRINT"FLOUR (5)"
MOVE 500,350:PRINT"SCRIB JELLY (2)"
MOVE 500,450:PRINT"COLUMBINE (2)"
MOVE 500,750:PRINT"BERVEZ JUICE (2)"
MOVE 500,550:PRINT"HONEY (5)"
MOVE 10,100:PRINT" The images and all you see on this screen is made with 100% CODE"
MOVE 10,50:PRINT" no external image files are being used to display this"
END
DEFPROCscribjelly(h,v)
LOCAL DATA
RESTORE +1
FOR y=1 TO 60 STEP 2
FOR x=1 TO 80 STEP 2
READ c
GCOL c
LINE h+x,v+y,h+x,v+y
NEXT x
NEXT y
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,7,7,2,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,3,3,3,3,3,3,3,3,3,3,0,0,0,3,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,2,2,2,3,3,3,3,3,3,3,3,3,3,7,3,3,3,3,3,2,2,7,7,7,2,0,0,0,0,0
DATA 0,0,0,0,0,3,0,3,2,2,2,2,2,2,3,7,3,3,7,7,7,7,7,7,7,7,7,7,7,7,3,2,2,2,3,3,0,0,0,0
DATA 0,0,0,0,0,0,3,7,3,2,2,2,3,7,3,3,3,3,7,7,3,3,3,3,3,3,7,3,3,3,7,3,2,2,0,0,7,0,0,0
DATA 0,0,0,0,0,0,0,7,2,7,2,3,2,2,7,3,3,3,7,3,7,7,3,3,3,3,3,3,3,3,7,7,3,3,3,2,0,3,0,0
DATA 0,0,0,0,0,0,0,0,3,3,3,2,3,3,3,7,7,3,7,7,7,7,3,3,3,7,3,7,3,3,7,3,7,7,3,2,0,0,0,0
DATA 0,0,0,0,0,0,0,0,3,3,3,2,3,3,3,7,7,3,7,7,7,7,3,3,3,7,3,7,3,3,7,3,7,7,3,2,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,3,3,2,2,3,2,3,7,3,3,7,3,3,3,3,7,3,7,7,7,3,7,7,7,3,3,2,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,3,3,2,2,3,3,7,3,3,7,3,3,3,3,7,3,7,7,7,7,3,7,7,3,3,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,3,3,2,2,3,7,3,2,7,3,3,3,3,7,7,7,7,7,7,3,3,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,3,2,3,2,2,7,3,2,7,3,3,3,3,7,7,7,7,7,7,3,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,2,7,3,2,3,7,3,7,7,7,3,3,7,7,7,7,7,3,3,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,3,7,2,3,7,7,7,7,7,7,3,7,7,7,7,7,3,3,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,2,7,3,3,3,7,7,7,7,7,7,7,7,7,7,3,3,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,7,7,3,3,3,7,7,7,3,7,7,7,3,3,2,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,7,7,3,3,3,7,7,7,3,7,7,7,3,3,2,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,3,3,7,3,3,3,3,3,3,3,3,3,3,3,7,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,3,3,3,2,2,2,3,3,3,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
ENDPROC
DEFPROCcolumbine(h,v)
LOCAL DATA
RESTORE+1
FOR y=1 TO 58 STEP 2
FOR x=1 TO 82 STEP 2
READ c
GCOL c
LINE h+x,v+y,h+x,v+y
NEXT x
NEXT y
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,3,11,11,11,11,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,11,3,11,11,11,11,7,11,0,3,11,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,11,11,3,11,11,11,3,11,3,3,7,11,0,0,0,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,11,11,7,3,11,7,3,11,3,3,7,7,2,0,3,11,11,11,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,3,3,3,3,3,3,7,11,3,7,7,11,2,2,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,2,3,3,3,3,3,3,3,7,7,11,0,2,2,2,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,2,3,3,3,3,3,3,3,2,2,7,7,7,0,0,2,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,3,3,3,3,3,3,3,2,3,3,3,6,6,0,0,2,2,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,6,6,2,3,3,3,3,2,7,7,7,7,2,7,0,0,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,6,0,2,2,2,2,7,7,2,2,0,7,2,0,0,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,6,6,6,2,7,6,6,0,0,6,7,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,6,7,7,7,6,0,0,6,0,0,0,0,0,0,0,1,1,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,7,1,1,3,3,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,1,7,7,7,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,2,0,0,0,1,7,7,7,7,7,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,0,3,0,0,3,1,1,7,3,5,5,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,5,1,1,0,0,0,0,0,0,0,6,3,0,0,2,1,1,7,7,7,7,7,7,7,3,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,5,7,1,7,5,1,0,0,0,0,0,0,0,6,0,0,0,0,0,7,1,7,1,0,0,0,1,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,1,7,7,5,1,7,0,0,0,0,0,0,0,7,0,0,0,0,0,1,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,1,5,5,7,7,3,3,7,1,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,5,5,7,7,7,7,7,3,0,0,0,0,0,6,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,7,7,7,7,7,7,3,1,0,0,0,0,7,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,5,7,7,7,7,7,7,7,1,3,1,0,0,7,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,1,5,7,7,7,7,7,1,3,1,7,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,1,5,1,7,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
ENDPROC
DEFPROChoney(h,v)
LOCAL DATA
RESTORE +1
FOR y=1 TO 78 STEP 2
FOR x=1 TO 68 STEP 2
READ c
GCOL c
LINE h+x,v+y,h+x,v+y
NEXT x
NEXT y
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,7,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,3,1,7,7,7,1,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,1,1,3,3,1,1,3,1,1,7,7,7,3,1,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,3,1,1,1,3,1,1,3,3,1,7,7,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,1,3,1,1,1,1,1,1,1,3,3,7,3,3,3,7,7,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,1,1,1,3,1,3,1,1,1,1,1,3,3,7,3,3,3,7,3,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,1,3,3,1,1,1,1,1,1,1,3,3,3,7,7,7,7,7,3,7,1,1,7,0,0,0,0,0,0
DATA 0,0,0,1,1,1,1,1,1,1,1,3,1,1,3,3,3,1,7,1,7,15,7,7,7,3,1,7,7,0,0,0,0,0
DATA 0,0,0,1,1,1,1,0,1,1,1,3,3,3,3,1,3,1,3,3,7,7,3,7,1,3,1,1,1,0,0,0,0,0
DATA 0,0,0,1,3,1,1,1,1,3,1,3,3,1,3,1,1,1,3,3,7,7,7,3,1,3,3,1,1,0,0,0,0,0
DATA 0,0,0,0,3,1,1,1,1,3,3,3,1,3,1,1,1,1,7,7,7,7,7,3,1,7,3,1,3,0,0,0,0,0
DATA 0,0,0,0,1,1,1,1,3,1,1,3,1,1,1,1,1,3,7,7,7,1,3,7,7,7,3,3,3,0,0,0,0,0
DATA 0,0,0,0,1,1,1,3,1,1,1,3,1,1,1,1,3,7,3,7,3,3,7,7,3,7,3,3,3,0,0,0,0,0
DATA 0,0,0,0,1,1,1,1,1,1,1,3,1,1,1,3,7,3,7,1,3,7,1,7,7,7,3,3,3,0,0,0,0,0
DATA 0,0,0,0,1,1,1,1,1,1,1,1,1,1,3,7,7,7,7,7,7,7,7,1,7,7,3,3,3,0,0,0,0,0
DATA 0,0,0,0,1,1,1,1,1,1,1,3,7,7,3,3,3,7,7,7,3,3,3,3,3,7,7,3,3,0,0,0,0,0
DATA 0,0,0,0,1,1,1,1,1,1,1,7,3,3,3,3,7,7,3,3,3,3,7,7,7,3,3,3,7,0,0,0,0,0
DATA 0,0,0,0,0,1,1,1,1,1,1,7,7,7,3,3,3,3,3,1,7,7,3,3,7,3,3,3,7,0,0,0,0,0
DATA 0,0,0,0,1,1,1,1,1,3,7,7,1,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,7,0,0,0,0
DATA 0,0,0,0,1,1,1,1,1,7,3,3,3,1,3,3,3,3,3,1,3,3,3,3,3,3,3,7,3,7,0,0,0,0
DATA 0,0,0,0,3,1,7,3,3,3,3,3,3,3,3,1,3,1,7,1,3,1,3,1,3,3,7,3,3,7,7,0,0,0
DATA 0,0,0,0,3,7,3,7,7,3,1,3,1,1,1,1,3,3,7,1,3,1,3,7,7,1,1,7,3,7,0,0,0,0
DATA 0,0,0,0,3,3,7,3,3,7,3,3,7,3,3,1,7,7,11,3,7,7,7,1,3,3,7,7,7,0,0,0,0,0
DATA 0,0,0,0,7,3,3,7,3,7,3,7,3,1,3,7,7,3,7,7,3,1,3,3,3,7,3,7,7,0,0,0,0,0
DATA 0,0,0,0,0,7,7,3,7,3,3,3,3,7,7,1,7,7,7,1,3,1,3,3,3,3,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,3,3,7,3,3,7,7,3,7,3,3,3,7,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,7,7,3,3,7,3,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,7,3,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
ENDPROC
DEFPROCflour(h,v)
LOCAL DATA
RESTORE+1
FOR y=1 TO 66 STEP 2
FOR x=1 TO 72 STEP 2
READ c
GCOL c
LINE h+x,v+y,h+x,v+y
NEXT x
NEXT y
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,7,0,7,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,7,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,15,7,7,7,7,7,0,0,0,0,0
DATA 0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0
DATA 0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,15,15,15,7,7,7,7,7,7,7,7,0,0
DATA 0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,15,15,15,15,7,7,7,7,7,7,0,0,0,0
DATA 0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,15,15,15,15,15,15,7,7,7,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,15,15,15,15,15,15,7,7,7,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,15,15,15,15,15,15,15,7,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,15,15,15,15,15,15,15,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,15,15,15,15,15,7,7,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,15,15,15,15,15,15,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,15,15,15,15,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,0,0,7,7,7,7,15,15,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,0,7,7,7,7,7,7,7,15,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
ENDPROC
DEFPROCbjuice(h,v)
LOCAL DATA
RESTORE+1
FOR y=1 TO 78 STEP 2
FOR x=1 TO 84 STEP 2
READ c
GCOL c
LINE h+x,v+y,h+x,v+y
NEXT x
NEXT y
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,1,0,0,0,0,1,0,0,0,0,0,0,1,1,7,7,7,7,1,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,1,7,3,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,7,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,7,1,0,0,0,1,1,1,1,1,1,1,7,7,7,7,1,0,0,1,7,7,7,7,7,7,1,1,7,7,0,0,0,0,0,0,0
DATA 0,0,0,0,7,0,0,0,1,1,1,1,1,1,3,7,7,7,7,7,7,7,1,1,7,7,7,7,7,7,7,7,7,1,1,3,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,1,1,1,1,3,7,7,7,7,7,7,7,7,7,1,1,1,7,7,7,7,7,7,7,7,7,7,7,1,1,0,0,0,0,0
DATA 0,0,0,0,0,1,1,1,1,1,3,7,7,7,7,7,7,7,7,7,7,1,1,1,7,7,7,7,7,7,7,7,7,7,7,7,1,0,0,0,0,0
DATA 0,0,0,0,0,1,1,1,1,1,7,7,7,7,7,7,7,7,7,7,7,1,1,1,7,7,7,7,7,7,7,7,7,7,7,7,7,1,0,0,0,0
DATA 0,0,0,0,1,1,3,3,3,7,7,7,7,7,7,7,7,7,7,7,7,1,1,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,1,0,0,0
DATA 0,0,0,0,1,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,1,0,0,0
DATA 0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,1,0,0,0
DATA 0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,1,0,1,1,0,1,3,7,7,7,7,7,7,7,7,7,7,7,1,0,0,0
DATA 0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,1,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0
DATA 0,0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,1,1,1,15,7,7,7,7,7,15,15,7,7,7,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,1,15,7,7,15,15,15,7,7,7,7,7,3,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,1,7,7,7,7,7,7,7,7,7,3,0,0,1,1,0,0,0,0
DATA 0,0,0,0,0,0,1,0,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,3,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,7,1,0,0,0,0,0,1,7,7,1,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,7,7,3,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,1,1,0,0,0,0,0,0,0,1,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,1,1,7,7,7,7,7,7,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,1,1,3,7,7,7,7,7,7,3,1,0,0,3,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,15,15,7,7,7,7,1,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,1,1,1,3,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,1,1,1,1,1,1,3,7,7,7,3,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,7,7,7,7,7,3,1,3,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,1,3,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,3,7,7,1,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,3,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,1,7,3,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,3,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,3,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
ENDPROC