43 lines
998 B
QBasic
43 lines
998 B
QBasic
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
|
||
|