Post by Admin on Nov 17, 2019 5:21:59 GMT
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.
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