ô > BBCtoBMP v1.09 0ô Convert BBC screen image to Windows Bitmap (ô v1.00 18-Jun-1999 Initial version. (Bô v1.01 12-Jul-1999 Read ScrSave compressed files and palettes 2,ô v1.02 11-Jul-2009 Made Windows binary. &5500:Þ mem% &4FFF ‹ Þ blk% &27F : ª=î … ö:òClose_All:ñÀ" at line "+Ãž,Ÿ<>17 € Ÿ<128):òexit(Ÿ) ´AA$=¤OS_GetEnv:d$=".":s$="/":ços%=32:òWin_TextIO:d$="\":s$="." ¾XçA$="":è"BBC Screen image: "in$:è"BBC Screen mode: "mode$:è"Output bitmap: "out$ ÈKçA$="":è"Options: "opt$:A$=in$+" "+out$+" "+mode$+" "+opt$+" " Òfquit$=¤cl(" -q",1):sm%=¤cl("-s",0):rle%=¬¤cl("-u",0)„¤cl("-c",0):vb%=¤cl("-v",0):mode$=¤cl("-m",1) ÜUcpr%=¬(¤cl("-r",0)„¬¤cl("-l",0)):brd%=¤cl("-b",0)€1:ç¤cl("-?",0):òsyntax:òexit(0) æ:in$=¤cl("",0):out$=¤cl("",0):çmode$="":mode$=¤cl("",0) ð(çin$="" „ out$="":òsyntax:òexit(220) ú%mode%=»mode$€7:çmode$="":mode%=-1 $ços%=32:ç§in$,".")=0:in$=in$+"." : )ô Examine file to work out image type ")ô ----------------------------------- ,GX%!2=0:X%!6=0:ç¤file(in$,5)<>1:ñ"File '"in$"' not found":òexit(214) 6.scr%=0:fsize%=X%!10:çX%!2=0:çX%!6=0:òrdInf @>çcpr%=0:scr%=(X%?5=&FF € X%!2<>X%!6 € (X%?9=0 „ X%?9=&FF)) JBçscr%:cpr%=(X%?5=&FF € X%?9=0)€(X%?8+1):çmode%<0:mode%=X%?716 T: ^ô Load source file hô ---------------- rCòload:çcpr%:çmem%=0:ñ"No memory for decompression":òexit(128-2) |*çmode%€-8:ñ"Unknown MODE":òexit(128-1) †: Cô Set mode parameters, note only usable BMP BitCount% is 1 or 4 šCô ------------------------------------------------------------- ¤Rçmode%=0:ColoursUsed%=2 :BitCount%=1:sz%=8:px%=8:xs%=1:ys%=2:zebra%=0:cols%=80 ®cçmode%=1:ColoursUsed%=4 :BitCount%=4:sz%=2:px%=4:xs%=2:ys%=2:zebra%=0:cols%=80:çsm%:xs%=1:ys%=1 ¸cçmode%=2:ColoursUsed%=16:BitCount%=4:sz%=2:px%=2:xs%=4:ys%=2:zebra%=0:cols%=80:çsm%:xs%=2:ys%=1 ÂRçmode%=3:ColoursUsed%=2 :BitCount%=1:sz%=8:px%=8:xs%=1:ys%=2:zebra%=2:cols%=80 Ìcçmode%=4:ColoursUsed%=2 :BitCount%=1:sz%=8:px%=8:xs%=2:ys%=2:zebra%=0:cols%=40:çsm%:xs%=1:ys%=1 Öcçmode%=5:ColoursUsed%=4 :BitCount%=4:sz%=2:px%=4:xs%=4:ys%=2:zebra%=0:cols%=40:çsm%:xs%=2:ys%=1 àcçmode%=6:ColoursUsed%=2 :BitCount%=1:sz%=8:px%=8:xs%=2:ys%=2:zebra%=2:cols%=40:çsm%:xs%=1:ys%=1 êXçmode%=7:ColoursUsed%=8 :BitCount%=4:ñ"MODE 7 not supported":òClose_All:òexit(128-1) ô: þ3ô Read palette entries from load/exec addresses 3ô --------------------------------------------- 3çscr%„cpr%=0:ãA%=0¸15:palette%(A%)=¤rgb(A%€7):í \çscr%„cpr%=0:çColoursUsed%=4:palette%(1)=¤rgb(1):palette%(2)=¤rgb(3):palette%(3)=¤rgb(7) &4çscr%„cpr%=0:çColoursUsed%=2:palette%(1)=¤rgb(7) 0Jçscr%:col%=X%!6 € &FFF:ãA%=0¸3:palette%(A%)=¤rgb(col%€7):col%=col%8:í :Jçscr%:col%=X%!2 € &FFF:ãA%=4¸7:palette%(A%)=¤rgb(col%€7):col%=col%8:í Dvçscr%:çmode%=2:çmem%:ãA%=0¸3:palette%(A%*2+8)=¤rgb((mem%?A%)€7):palette%(A%*2+9)=¤rgb((mem%?A%)16):í:!mem%=mem%!4 N: Xô Calculate variables bô ------------------- lxsz%=cols%40 vrows%=(fsize%cols%)€-8 €'Width% =(cols%+2*xsz%*brd%)*xs%*px% Š-Height%=(rows%+16*brd%)*ys%+zebra%*ys%*28 ”: žõ ¨ô Open output file ²ô ---------------- ¼Eout%=®(out$):çout%=0:ñ"Can't open '"out$"'":òClose_All:òexit(192) Æ: Ðô File header Úô ----------- äZBits%=BitCount%:ç ColoursUsed%<4:çrle%:BitCount%=4:ô Need more colours for compression îNumColours%=2^BitCount% ø#DataOffset%=14+40+4*NumColours% .FileSize%=DataOffset%+(Width%*Height%)/sz% : òwr16(out%,—"B"+—"M"*256) òwr32(out%,FileSize%) *òwr32(out%,0) 4òwr32(out%,DataOffset%) >: Hô Info header Rô ----------- \òwr32(out%,40) fòwr32(out%,Width%) pòwr32(out%,Height%) z/òwr16(out%,1) :ô Number of planes „òwr16(out%,BitCount%) Ž-òwr32(out%,0) :ô No compression ˜-òwr32(out%,0) :ô No compression ¢1òwr32(out%,0) :ô X pixels per metre ¬1òwr32(out%,0) :ô Y pixels per metre ¶+òwr32(out%,ColoursUsed%):ô Colours used À6òwr32(out%,0) :ô Colours important 0=all Ê: Ôô Colour table Þô ------------ èã colour%=0 ¸ NumColours%-1 ò!òwr32(out%,palette%(colour%)) ü í colour% : ô Raster data ô ----------- $cnt%=0:last%=-1 .Bç brd%:òblank(8) :ô Bottom border 8<ç zebra%:òblank(6) :ô Stripes B/ã row%=rows%-1 ¸ 0 ˆ -1:çvb%:ñ½13;row%;" "; L6ç (row%€7)=7:òline:ç zebra%:òblank(2) :ô Stripes Vã sq%=1 ¸ ys% `:ç brd%:ã N%=1 ¸ xsz%:òbyte(0):í :ô Left border jã col%=0 ¸ cols%-1 tFptr%=blk%+col%*8+(row%€7):ç blk%=0:ptr%=mem%+ptr%+(row%8)*cols%*8 ~Gç mem%+blk%:òbyte(?ptr%) ‹ Ï#in%=ptr%+(row%8)*cols%*8:òbyte(š#in%) ˆ í col% ’;ç brd%:ã N%=1 ¸ xsz%:òbyte(0):í :ô Right border œòeol ¦ í sq% ° í row% º?ç brd%:òblank(8) :ô Top border Ähç rle%:ç ¢#out%>FileSize%:Ù#out%:out%=0:BitCount%=Bits%:rle%=£:ô Couldn't compress, try uncompressed Î ý out%<>0 Ø-ç rle%:Õ#out%,0:Õ#out%,1:FileSize%=¢#out% âcç rle%:Ï#out%=2:òwr32(out%,FileSize%):Ï#out%=30:òwr32(out%,2):òwr32(out%,FileSize%-DataOffset%) ìçvb%:ñ½13;" ";½13; ö: ô Finished ô -------- òClose_All:î … òexit(0) 2ços%<32:ÿ"SetType "+out$+" 69C":ÿ"Stamp "+out$ (òexit(0):à 2: <4Ý¤rgb(A%)=(A%€1)*&FF0000+(A%€2)*&7F80+(A%4)*&FF F: PÝòblank(N%):N%=N%*ys% Zõ d2ã col%=1 ¸ (cols%+2*xsz%*brd%):òbyte(0):í:òeol nN%=N%-1:ýN%<1 xá ‚: Œ Ýòeol –*ç rle%:òout(-1):òwr16(out%,0):cnt%=0:á :ç rle%=0:B%=(Width%px%)ƒ4:ç B%:ã B%=B% ¸ 3:òbyte(0):í ªá ´: ¾Ýòbyte(B%) Èç ColoursUsed%=2 :òmode0:á Òç ColoursUsed%=4 :òmode1:á Üç ColoursUsed%=16:òmode2:á æá ð: úÝòmode0 PçBitCount%=1:çxs%=1:Õ#out%,B%:á ‹ çBitCount%=1:Õ#out%,¤l(B%):Õ#out%,¤r(B%):á +A0%=B%€15:B%=B%16:òmode1:B%=A0%:òmode1 á "hÝ¤l(A%)=(A%€&80)„((A%2)€&40)„((A%2)€&20)„((A%4)€&10)„((A%4)€8)„((A%8)€4)„((A%8)€2)„((A%16)€1) ,`Ý¤r(A%)=((A%€8)*16)„((A%€8)*8)„((A%€4)*8)„((A%€4)*4)„((A%€2)*4)„((A%€2)*2)„((A%€1)*2)„(A%€1) 6: @Ýòmode1 JVA1%=((B%€&80)4)„((B%€&08)*2) :çxs%>1:òout(A1%„(A1%16)):çxs%=4:òout(A1%„(A1%16)) TkA2%=((B%€&40)2)„((B%€&04)*4) :çxs%=1:òout(A1%„(A2%16)) ‹ òout(A2%„(A2%16)):çxs%=4:òout(A2%„(A2%16)) ^XA3%= (B%€&20)„((B%€&02)*8) :çxs%>1:òout(A3%„(A3%16)):çxs%=4:òout(A3%„(A3%16)) hmA4%= ((B%€&10)*2)„((B%€&01)*16):çxs%=1:òout(A3%„(A4%16)) ‹ òout(A4%„(A4%16)):çxs%=4:òout(A4%„(A4%16)) rá |: †Ýòmode2 7A1%=(B%€&80)„((B%€&20)*2)„((B%€&08)*4)„((B%€&02)*8) š,çxs%=4:A%=A1%„(A1%16):òout(A%):òout(A%) ¤&4FFF:ç(ptr%€3)<>cpr%-1:ptr%=ptr%-&4FFF ÚýN%=0:ýÅ#in%:Ù#in%:in%=0 äfsize%=ptr%+1-cpr%:á î: øô Read LDPIC screen image ô ----------------------- Ýòldpic çmem%=0:á 'bits%=0:dw%=¤get(8):mode%=¤get(8)€7 *9ã colour%=15 ¸ 0 ˆ -1:ctrl%?colour%=¤get(4):í colour% 4stp%=¤get(8):cw%=¤get(8) >6fsize%=256* ("&"+Á"5050504028282004",mode%*2+1,2)) Hoff%=stp%-1:addr%=mem%+off% Rõ \"cnt%=1:ç¤get(1):cnt%=¤get(cw%) fbyt%=¤get(dw%) p.ã A%=1 ¸ cnt%:?addr%=byt%:addr%=addr%+stp% z4ç addr%>=mem%+fsize%:off%=off%-1:addr%=mem%+off% „í Žý off%<0 „ Å#in%:bits%=0 ˜"ç addr%>mem%:fsize%=addr%-mem% ¢Kç #in%+24>¢#in%:ãA%=0¸15:palette%(A%)=¤rgb(ctrl%?A%):íA%:Ù#in%:in%=0:á ¬ã colour%=15 ¸ 0 ˆ -1 ¶name%?(colour%*4+3)=0 À%name%?(colour%*4+2)=¤get(4):ô red Ê'name%?(colour%*4+1)=¤get(4):ô green Ô&name%?(colour%*4+0)=¤get(4):ô blue Þ í colour% è ô Need to read control flags òã colour%=15 ¸ 0 ˆ -1 ünum%=ctrl%?colour% :palette%(colour%)=name%!(num%*4) „ (name%!(num%*4)*16) í colour% Ù#in%:in%=0 $á .: 8&Ý¤bit:çbits%=0:byte%=š#in%:bits%=8 B*byte%=byte%*2:bits%=bits%-1:=byte%€256 L.Ý¤get(N%):êA%,B%:ãB%=1¸N%:A%=(A%2)„¤bit:í VõA%=A%2:N%=N%+1:ýN%>8:=A% `: jô Read in .inf file tô ----------------- ~3ÝòrdInf:in%=Ž(¤fn_noext(in$)+s$+"inf"):çin%=0:á ˆA%=0:õB%=š#in%:çB%=10:B%=13 ’Fname%?A%=B%:A%=A%+1:ýÅ#in% „ A%>78 „ B%=13:name%?A%=13:Ù#in%:in%=0 œIA$=$name%:X%!2=»¤cl("",0):X%!2= ("&"+¤cl("",0)):X%!6= ("&"+¤cl("",0)) ¦á °: ºsÝòsyntax:ñ"Syntax: BBCtoBMP -mode -border -ldpic -raw -scr -small -uncomp -verbose":á Ä1Ýòwr32(O%,A%):!zp%=A%:ãA%=0¸3:Õ#O%,zp%?A%:í:á Î1Ýòwr16(O%,A%):!zp%=A%:ãA%=0¸1:Õ#O%,zp%?A%:í:á ØÝòwr(A%):á â: ì!Ý¤fn_noext(A$):ç§A$,s$)=0:=A$ ö1ê A%:A%=©A$+1:õA%=A%-1:ý§":"+s$+d$,ÁA$,A%,1)) "çÁA$,A%,1)=s$:=ÀA$,A%-1) ‹ =A$ : !ô > BLib.Close 1.00 09Aug1998 ÝòClose_All:*EXEC ("in%=in%:çin%:A%=in%:in%=0:Ù#A% 2'out%=out%:çout%:A%=out%:out%=0:Ù#A% <á F: P#Ýògbpb(A%,chn%,addr%,num%,ptr%) Z>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ç<&FFFFF:Ö&FFD1:á dçA%=1„A%=3:Ï#?X%=X%!9 n5õ:çA%=1„A%=2:Õ#?X%,?X%!1 ‹ çA%=3„A%=4:?X%!1=š#?X% x5X%!1=X%!1+1:X%!5=X%!5-1:ý(Å#?X% € A%>2)„ X%!5<1:á ‚: Œ#ô > BLib.ProgEnv 1.06 20Apr2020 –:Ý¤OS_GetEnv:êA$,A%,X%,Y%:X%=1:os%=((º&FFF4)€&FF00)256 Mços%>31:ç>&FFFFF:ÞX%ê256:È™"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ ªCA%=&600-&7B00*(>&8000)-&3F00*(>&C000):ç!(-&100)=@%:A%=-&300 ´;ç?(¸P-3)=0:A%=&100:ç“<&FFFF:A%=-&300:ç!(“+512)=@%:A%=“ ¾cA$=$A%:ç=&8F00:run$=A$:È™16¸A$,,A%:È™72,"",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ ÈUãY%=-1¸0:A$=" "+A$:õA$=ÁA$,2):ý—A$<>32:ç—A$=34:A%=§A$,"""",2)+1 ‹ A%=§A$+" "," ") Ò9çY%:run$=ÁA$,1-(—A$=34),A%-1+2*(—A$=34)):A$=ÁA$,A%+1) Ü í:=A$ æ#Ýòos(A$):ç—A$=42:ÿA$ ‹ ç©A$:×A$ ðá úFÝòexit(A%):ÿ"FX1,"+Ã(A%€255):quit$=quit$:A$=quit$:quit$="":òos(A$) ç>&FFFFF: A% ‹ à á : "#ô > BLib.CmdLine 1.11 27Jul2009 ,cÝ¤cl(l$,n%):çl$="":A$=¤s(A$):ç—A$=34:A%=§A$+" "" ",""" ",2):l$=ÁA$,2,A%-2):A$=¤s(ÁA$,A%+1)):=l$ 6<çl$="":A%=§A$+" "," "):l$=ÀA$,A%-1):A$=¤s(ÁA$,A%+1)):=l$ @Kçn%=0:çl$<>"":A%=§A$,l$):çA%:A$=¤s(ÀA$,A%-1)+ÁA$,§A$," ",A%)+1))+" ":=¹ Jçn%=0:çl$<>"":=£ T%A%=§À" ",—l$=32)+A$,l$):çA%=0:="" ^'A$=ÀA$,A%-1)+¤s(ÁA$,§A$," ",A%)+1)) hCç—l$=32:l$=ÁA$,A%):A$=ÀA$,A%-1):=Ál$,1-(—l$=34),©l$+2*(—l$=34)) rPç—ÁA$,A%,1)<>34:l$=ÁA$,A%,§A$+" "," ",A%)-A%):A$=ÀA$,A%-1)+ÁA$,A%+©l$+1):=l$ |Hl$=ÁA$,A%+1,§A$+" ",""" ",A%+1)-A%-1):A$=ÀA$,A%-1)+ÁA$,A%+©l$+3):=l$ †/Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " +çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " š=A$ ¤: ®ô > BLib.Win.TextIO ¸ÝòWin_TextIO Â/È™"GetStdHandle",-10 ¸ @hfile%(1):*INPUT 13 Ì0È™"GetStdHandle",-11 ¸ @hfile%(2):*OUTPUT 14 Ö%È™"SetConsoleMode",@hfile%(1),0:á à: êô > BLib.Generic.FileIO ôKÝ¤file(A$,A%):ç<&FFFF:$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF þç§A$,".")=0:A$=A$+"." EçA%=255 „ A%=5:X%!14=Ž(A$):çX%!14:X%!10=¢#X%!14:Ù#X%!14:X%!14=&33 1çA%=255:çX%?6=0:ÿ"LOAD """+A$+""" "+Ã~X%!2:=1 çA%=5:çX%!14:=1 ‹ çA%=5:=0 &FçA%=0:ÿ"SAVE """+A$+""" "+Ã~X%!10+" "+Ã~X%!14:X%!10=X%!14-X%!10:=1 0BçA%=7:ÿ"SAVE """+A$+""" "+Ã~+"+"+Ã~X%!10:X%!10=X%!14-X%!10:=1 :çA%=8 Œ Dê …:î … ê:=2 Nÿ"mkdir "+A$:=2 XÍ b=0 ÿ