ô > M7toBMP v1.00 7ô Convert MODE 7 BBC screen image to Windows Bitmap -ô v1.00 18-Jun-1999 JGH: Initial version. (Gô v1.01 12-Jul-1999 JGH: Read ScrSave compressed files and palettes 21ô v1.02 11-Jul-2009 JGH: Made Windows binary. <,ô v1.00 Initial verion based on BBCtoBMP F: PFÞ ctrl% 31,name% 79,zp% 5,palette% 15,mem% &3FF:X%=ctrl%:Y%=X%256 Z: d=î … ö:òClose_All:ñÀ" at line "+Ãž,Ÿ<>17 € Ÿ<128):òexit(Ÿ) n8A$=¤OS_GetEnv:quit$=¤cl(" -q",1):ços%=32:òWin_TextIO x!ç¤cl("-?",0):òsyntax:òexit(0) ‚0vb%=¤cl("-v",0):in$=¤cl("",0):out$=¤cl("",0) Œ>çin$="":è"BBC MODE 7 image: "in$:è"Output bitmap: "out$ –(çin$="" „ out$="":òsyntax:òexit(220) $ços%=32:ç§in$,".")=0:in$=in$+"." ª9ç¤file(in$,5)<>1:ñ"File '"in$"' not found":òexit(214) ´Afsize%=X%!10:çfsize%>&400:ñ"File '"in$"' too long":òexit(255) ¾ÿ"LOAD "+in$+" "+Ã~mem% È:out%=®(out$):çout%=0:ñ"Can't open '"out$"'":òexit(192) Ò vb%=¹ Ü: æ2xs%=2:ys%=2 :ô 2x2 output pixels ð: úô Define mode variables ô --------------------- cols%=40:rows%=25 -BitCount%=4:NumColours%=16:ColoursUsed%=8 ": ,ô Set palette entries 6ô ------------------- @"ã A%=0 ¸ 15:palette%?A%=A%€7:í J: Tô Calculate variables ^ô ------------------- h+Width%=cols%*6*xs%:Height%=rows%*10*ys% r#DataOffset%=14+40+4*NumColours% |,FileSize%=DataOffset%+(Width%*Height%)/2 †: ô File header šô ----------- ¤òwr16(out%,—"B"+—"M"*256) ®òwr32(out%,FileSize%) ¸òwr32(out%,0) Âòwr32(out%,DataOffset%) Ì: Öô Info header àô ----------- êòwr32(out%,40) ôòwr32(out%,Width%) þòwr32(out%,Height%) /òwr16(out%,1) :ô Number of planes òwr16(out%,BitCount%) -òwr32(out%,0) :ô No compression &-òwr32(out%,0) :ô No compression 01òwr32(out%,0) :ô X pixels per metre :1òwr32(out%,0) :ô Y pixels per metre D+òwr32(out%,ColoursUsed%):ô Colours used N6òwr32(out%,0) :ô Colours important 0=all X: bô Colour table lô ------------ vã colour%=0 ¸ NumColours%-1 €-Õ#out%,(((palette%?colour%)€4)<>0):ô blue Š.Õ#out%,(((palette%?colour%)€2)<>0):ô green ”,Õ#out%,(((palette%?colour%)€1)<>0):ô red ž1Õ#out%,0 :ô unused ¨í ²: ¼ô Raster data Æô ----------- Ð/ã row%=rows%-1 ¸ 0 ˆ -1:çvb%:ñ½13;row%;" "; Úã pix%=10*ys%-1 ¸ 0 ˆ -1 äã col%=0 ¸ cols%-1 ˆ 2 î5ptr%=col%+row%*40:B%=mem%?ptr%:ô C%=mem%?(ptr%+1) ø: gô MODE 7 is essentially a MODE 2 bitmap, as it needs 16 colours, 4bits per pixel, 2 pixels per byte : ô Temp'y test code ?X%=B%€127:A%=10:Ö &FFF1 *Õ#out%,X%?pix% 4 >2ô BPUT#out%,col%:BPUT#out%,row%:BPUT#out%,col% H:ô IFxs%=2:BPUT#out%,col%:BPUT#out%,row%:BPUT#out%,col% R: \: fí:í:í:çvb%:ñ½13;" ";½13; p: zô Finished „ô -------- ŽòClose_All:î … òexit(0) ˜2ços%<32:ÿ"SetType "+out$+" 69C":ÿ"Stamp "+out$ ¢òexit(0):à ¬: ¶: À: Ê7Ýòsyntax:ñ"Syntax: M7toBMP -v":á Ô1Ýòwr32(O%,A%):!zp%=A%:ãA%=0¸3:Õ#O%,zp%?A%:í:á Þ1Ýòwr16(O%,A%):!zp%=A%:ãA%=0¸1:Õ#O%,zp%?A%:í:á è: ò!ô > BLib.Close 1.00 09Aug1998 üÝòClose_All:*EXEC "in%=in%:çin%:A%=in%:in%=0:Ù#A% 'out%=out%:çout%:A%=out%:out%=0:Ù#A% á $: .#ô > BLib.ProgEnv 1.05 09Jan2007 8:Ý¤OS_GetEnv:êA$,A%,X%,Y%:X%=1:os%=((º&FFF4)€&FF00)256 BLços%=32:ç>&FFFF:ÞX%ê256:È™"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ Lços%=32:A$=$&100 Vgç©A$=0:ç“>&FFFF:run$=$&8100:È™16¸A$,,A%:È™72,"",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ `2ç©A$=0:ç?(¸P-3):A$=$&600 ‹ ç©A$=0:A$=$(-&300) j*ãY%=-1¸0:A$=" "+A$:õA$=ÁA$,2):ý—A$<>32 t6çY%:ç—A$=34:A%=§A$,"""",2)+1 ‹ çY%:A%=§A$+" "," ") ~-çY%:run$=ÀA$,A%-1):çrun$<>"":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$) °ços%=32:È˜ A% ºços%<6:à ‹ *Quit Äá Î: Ø#ô > BLib.CmdLine 1.10 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$ ì<çl$="":A%=§A$+" "," "):l$=ÀA$,A%-1):A$=¤s(ÁA$,A%+1)):=l$ öGçn%=0:çl$<>"":A%=§A$,l$):çA%:A$=¤s(ÀA$,A%-1)+ÁA$,§A$," ",A%)+1)):=¹ çn%=0:çl$<>"":=£ %A%=§À" ",—l$=32)+A$,l$):çA%=0:="" 'A$=ÀA$,A%-1)+¤s(ÁA$,§A$," ",A%)+1)) Cç—l$=32:l$=ÁA$,A%):A$=ÀA$,A%-1):=Ál$,1-(—l$=34),©l$+2*(—l$=34)) (Pç—ÁA$,A%,1)<>34:l$=ÁA$,A%,§A$+" "," ",A%)-A%):A$=ÀA$,A%-1)+ÁA$,A%+©l$+1):=l$ 2Jl$=ÁA$,A%+1,§A$+""" ",""" ",A%+1)-A%-1):A$=ÀA$,A%-1)+ÁA$,A%+©l$+3):=l$ " " F+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " P=A$ Z: dô > BLib.Win.TextIO nÝòWin_TextIO x/È™ "GetStdHandle",-10 ¸ @hfile%(1):*INPUT 1 ‚0È™ "GetStdHandle",-11 ¸ @hfile%(2):*OUTPUT 2 Œ&È™ "SetConsoleMode",@hfile%(1),0:á –: ô > BLib.Generic.FileIO ªJÝ¤file(A$,A%):ços%<32:$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF ´ç§A$,".")=0:A$=A$+"." ¾;çA%=255 „ A%=5:X%!14=Ž(A$):çX%!14:X%!10=¢#X%!14:Ù#X%!14 È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 æBçA%=7:ÿ"SAVE """+A$+""" "+Ã~+"+"+Ã~X%!10:X%!10=X%!14-X%!10:=1 ðçA%=8 Œ úê …:î … ê:=2 ÿ"MKDIR "+A$:=2 Í =0 ÿ