The power of BMPtoCODE example generated program image

You can now witness the power of BMPtoCode by copying and pasting this program in BBC Basic For Windows
No longer do you need to send image files... No longer
This ENTIRE program was created by BMPtoCode
The image has been converted to DATA and has been compressed heavily so you can put complex image data within your program

NOTE: I will release the BBC Basic For Windows Version of BMPtoCode as soon as I can find where I put it.. The version of BMPtoCode
that was used to create this requires LBB (liberty basic booster) or Liberty Basic. I have posted that version in a board in this forum
for LBB tools.
Here is the LBB version of BMPtoCODE (creates a BBC Basic program) link

I have hundreds of programs and they get moved around to different media so it will take some time to find.


     MODE 8
     OFF:VDU 5:COLOUR 0:CLG
     PROC_image(100,500)
     WAIT 0:END
     DEF PROC_image(h,v)
     u=0:r=0:g=0:b=0:a=0:c=0:t=0
     ost$=""
     READ x,y:REPEAT
       READ nst$,t
       IF nst$="0" THEN r=0:g=0:b=0 :REM 'black              0   0   0
       IF nst$="1" THEN r=192:g=128:b=64:REM  ' brown      192 128  64
       IF nst$="2" THEN r=64:g=64:b=192 :REM'dark blue     64  64 192
       IF nst$="3" THEN r=128:g=128:b=128:REM' dark grey 128 128 128
       IF nst$="4" THEN r=128:g=0:b=0:REM'dark red       128   0   0
       IF nst$="5" THEN r=224:g=192:b=0 :REM'dark yellow  224   192   0
       IF nst$="6" THEN r=128:g=160:b=192:REM'flat blue  128 160 192
       IF nst$="7" THEN r=32:g=192:b=64 :REM'green        32 192  64
       IF nst$="8" THEN r=166:g=202:b=240:REM'light blue 166 202 240
       IF nst$="9" THEN r=192:g=192:b=192:REM 'light gray 192 192 192
       IF nst$="a" THEN r=192:g=224:b=0:REM  'light green  192 224   0
       IF nst$="b" THEN r=224:g=32:b=64:REM'light red    224  32  64
       IF nst$="c" THEN r=0:g=160:b=192 :REM'medblue        0 160 192
       IF nst$="d" THEN r=224:g=128:b=64 :REM 'orange       224 128 64
       IF nst$="e" THEN r=224:g=160:b=192:REM'pink       224 160 192
       IF nst$="f" THEN r=160:g=64:b=192:REM'purple      160 64 192
       IF nst$="g" THEN r=192:g=220:b=192:REM'tan        192 220 192
       IF nst$="h" THEN r=255:g=255:b=255:REM'white      255 255 255
       IF nst$="i" THEN r=255:g=255:b=0:REM'yellow       255 255 0
       COLOUR 0,r,g,b:GCOL 0
       FOR u=0 TO t
         a=a+1: MOVE h+c,v-a:DRAW h+c,v-a:IF a>x  THEN c=c+1:a=0
       NEXT u
     UNTIL nst$="100000"
     MOVE 0,0:ENDPROC
     DATA 49,49
     DATA 9,177,0,18,9,0,0,0,9,27,0,22,9,26,0,20,h,0,0,0,9,26,0,4,h,0,0,16,9,27,0,15,h,1,0,3,9,36,2,8,0
     DATA 3,9,36,2,0,h,0,2,6,0,3,9,37,2,2,h,0,2,3,0,3,9,37,2,0,h,0,2,5,0,3,9,30,2,1,9,3,2,9,h,0
     DATA 0,1,9,31,2,0,9,2,2,1,h,0,2,8,0,1,9,25,0,2,9,2,2,15,0,1,9,21,0,7,9,2,2,3,h,0,2,2,h,0,2
     DATA 4,h,0,0,1,9,15,0,13,9,4,2,10,0,3,9,14,0,6,g,4,0,2,9,4,2,11,h,0,0,1,9,13,0,4,g,4,0,0,g,2
     DATA 0,1,2,3,0,1,2,0,h,0,2,0,h,0,2,7,0,0,h,0,9,13,0,3,g,5,0,0,g,2,0,1,2,4,0,1,h,0,2,3,h
     DATA 0,2,4,0,1,9,13,0,2,g,6,0,0,g,2,0,0,2,8,h,0,2,7,0,1,h,0,9,12,0,2,g,7,0,0,g,1,0,1,2,16
     DATA 0,3,9,0,0,1,9,9,0,1,g,9,0,0,g,0,0,1,2,16,h,0,0,8,9,5,0,2,g,9,0,0,g,0,0,1,2,3,0,0,2
     DATA 13,0,4,g,0,9,0,0,2,9,2,0,2,g,10,0,0,g,0,0,1,2,0,h,0,2,7,h,0,2,8,0,2,g,2,0,2,9,2,0,2
     DATA g,10,0,0,g,0,0,1,2,19,0,1,g,4,0,1,9,1,0,2,g,10,0,0,g,1,0,2,2,10,h,0,2,2,h,0,2,1,0,3,g
     DATA 3,0,2,9,0,0,2,g,10,0,0,g,1,0,2,2,17,0,3,g,2,0,2,9,1,0,1,g,11,0,0,g,0,0,3,2,2,9,0,2,14
     DATA 0,3,g,0,0,3,9,1,0,1,g,11,0,5,9,6,2,0,h,0,2,10,0,2,g,0,0,3,9,1,0,1,g,9,0,7,9,7,2,2,h
     DATA 0,2,7,0,2,g,0,0,2,9,0,0,0,9,0,0,1,g,8,0,1,2,0,0,0,9,12,2,2,h,0,2,7,0,1,g,2,0,6,g,7
     DATA 0,1,2,0,0,0,9,13,2,9,0,0,h,0,0,1,g,2,0,6,g,7,0,1,2,0,9,12,2,11,0,3,g,3,0,3,g,1,0,0,g
     DATA 6,0,1,9,12,2,11,0,4,g,5,0,0,g,2,0,0,g,6,0,1,9,11,2,12,h,0,0,3,g,3,0,1,g,3,0,0,g,7,0,0
     DATA 9,11,2,0,h,0,2,9,h,0,0,5,g,1,0,4,g,1,0,0,g,7,0,1,9,10,2,3,h,0,2,7,0,5,g,0,0,8,g,7,0
     DATA 0,9,6,0,5,2,0,0,2,2,5,0,2,h,0,0,3,g,0,0,7,g,8,0,0,9,5,0,24,g,1,0,3,9,0,0,1,g,8,0,0
     DATA 9,4,0,12,h,0,0,10,g,2,0,3,9,0,0,1,g,8,0,0,9,4,0,5,h,1,0,16,g,2,0,2,9,1,0,1,g,8,0,0,9
     DATA 4,0,24,g,2,0,3,9,0,0,1,g,8,0,1,9,4,0,12,9,0,0,1,9,0,0,4,9,0,0,1,g,2,0,2,9,0,0,1,g,9
     DATA 0,2,9,25,0,1,g,2,0,2,9,0,0,1,g,9,0,2,9,25,0,2,g,1,0,2,9,0,0,1,g,9,0,1,9,27,0,5,9,2,0
     DATA 1,g,8,0,1,9,27,0,5,9,2,0,1,g,9,0,0,100000,0