31 lines
723 B
QBasic
31 lines
723 B
QBasic
cls
|
||
screen 12
|
||
call WriteLn("Calculating and Drawing Graphic, please wait ... ( )",30,80)
|
||
for z=400 to 480 step 2
|
||
pset (0,z),0
|
||
for s=1 to 640 step 2
|
||
if st=0 then st=1
|
||
st=st+.01
|
||
if st>=5 then st=1
|
||
locate 30,64
|
||
if st>=1 then st$="-"
|
||
if st>=2 then st$="\"
|
||
if st>=3 then st$="|"
|
||
if st>=4 then st$="/"
|
||
print st$;
|
||
anz$=" Aktuelle Pos.: Z"+mid$(str$(z),2,5)+" S"+mid$(str$(s),2,5)+" Farbe: "+str$(farbe)+" "
|
||
call WriteLn(anz$,29,80)
|
||
farbe=0 'farbe=int(rnd(1)*256)+1
|
||
pset (s,z),farbe 'line -(s,z),farbe
|
||
next s
|
||
next z
|
||
locate 1,80:print" ";
|
||
call WriteLn("Graphic contruction complete.",30,80)
|
||
goto Ende
|
||
|
||
sub WriteLn (s$,x,ymax) SHARED PUBLIC
|
||
locate x,(ymax/2)-len(s$)/2
|
||
print s$;
|
||
end sub
|
||
|
||
Ende: |