Initial commit

screen/loadscr.bas

@@ -0,0 +1,43 @@
+	CLS
+	input"Datei (*.SSC): ",OutFile$
+	print"Bereite Ausgabe vor.";
+	open "I",#1,OutFile$
+	print".";
+	open "B",#2,OutFile$
+	print".";
+	line input#1,Header$
+	input#1,HWide$,VWide$,ScrMo$
+	if val(ScrMo$)>=0 and val(ScrMo$)<=10 then LastLine=24 else LastLine=30
+	print".";
+	close #1
+	print".";
+	HWide=val(HWide$)
+	VWide=val(VWide$)
+	ScreenMode=val(ScrMo$)
+	print".";
+	get$ #2,19,Dummy$
+	Dummy$=""
+	print".vorbereitet"
+	delay .5
+	cls
+	screen ScreenMode
+	locate LastLine-1,1:print"HeaderInfo: ";Header$;
+	locate LastLine,1:print space$(40);
+	locate LastLine,1:print"Lese und Zeige Bild.";
+	HeadLengt=len(Header$)+4
+	Schritt=13
+	Skale=int(HWide*VWide/Schritt)
+	get$ #2,HeadLengt,Dummy$
+	for y=1 to VWide
+	  for x=1 to HWide
+	    get$ #2,1,PixCol$
+	    incr Pixel,1
+	    PixCol=ascii(PixCol$)
+	    if PixCol=-1 then PixCol=0
+	    pset(x,y),PixCol
+	    if Pixel/Skale=int(Pixel/Skale) then print".";
+	  next x
+	next y
+	print".fertig";
+1	a$=inkey$:if a$="" then 1
+

screen/savescr.bas

@@ -0,0 +1,40 @@
+	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";