40 lines
1.0 KiB
QBasic
40 lines
1.0 KiB
QBasic
CLS
|
||
input"Bilddatei (*.EXE): ",Includer$
|
||
input"Ausgabedatei (*.SSC): ",OutFile$
|
||
input"Bildschirmmodus (0-12): ",ScreenMode
|
||
input"Capturebereich, Breite: ",HWide
|
||
input"Capturebereich, H”he : ",VWide
|
||
screen ScreenMode
|
||
if ScreenMode>=0 and ScreenMode<=10 then LastLine=24 else LastLine=30
|
||
locate LastLine,1
|
||
print"Lese und Schreibe Bild.";
|
||
line (0,0)-(HWide,VWide),1,B
|
||
print".";
|
||
LastPos=POS(0)
|
||
locate 1,1
|
||
shell Includer$
|
||
locate LastLine,LastPos
|
||
print".";
|
||
open "O",#1,OutFile$
|
||
print".";
|
||
print#1,"RoboCop INDUSTRIES SaveScrFile (Horizontal/Vertical/ScrMode)"
|
||
print#1,chr$(34);
|
||
print#1,using "####";HWide;
|
||
print#1,chr$(34);",";chr$(34);
|
||
print#1,using "####";VWide;
|
||
print#1,chr$(34);",";chr$(34);
|
||
print#1,using "##";ScreenMode;
|
||
print#1,chr$(34);chr$(26)
|
||
print ".";
|
||
LastPoint=POS(0)
|
||
for y=1 to VWide
|
||
for x=1 to HWide
|
||
PixData=POINT(x,y)
|
||
if PixData=-1 then PixData=0
|
||
print#1,chr$(PixData);
|
||
next x
|
||
next y
|
||
locate LastLine,LastPoint
|
||
print".";
|
||
close #1
|
||
print".fertig"; |