Commit e3648b18 by kollo

changed german umlaut to UTF-8

parent c3ba8db6
......@@ -233,7 +233,7 @@ kug:
torus:
GPRINT anzfl;" Flchen. in ";CTIMER-t;" Sekunden."
GPRINT anzfl;" Flächen. in ";CTIMER-t;" Sekunden."
SHOWPAGE
RETURN
......@@ -267,7 +267,7 @@ PROCEDURE sort
ENDIF
NEXT i
@progress(anzfl,i)
print
PRINT
PRINT "in ";ctimer-t;" Sekunden."
SHOWPAGE
RETURN
......@@ -284,7 +284,7 @@ PROCEDURE load
meldung$=SPACE$(68)
BGET #1,VARPTR(meldung$),64
BGET #1,VARPTR(anzfl),8
PRINT anzfl;" Flchen."
PRINT anzfl;" Flächen."
BGET #1,VARPTR(sortstart),8
PRINT meldung$
BGET #1,VARPTR(welt(0)),anzfl*8*13
......
......@@ -29,13 +29,13 @@ PRINT "Koordinatenkreuz..."
' @add4fl(0,x_1,y_2,z_1/2,x_2,y_2,z_1/2,x_2,y_2,z_2/2,x_1,y_2,z_2/2)
' @add4fl(0,x_1,y_2,z_1/2,x_1,y_2,z_2/2,x_1,y_1,z_2/2,x_1,y_1,z_1/2)
PRINT "WWFkt."
' Auenkugel: Transparent
' Außenkugel: Transparent
r=0.5
spsp=PI/15
st=PI/15
FOR phi=0 TO 2*PI STEP spsp
FOR theta=0.05 TO PI STEP st
PRINT chr$(13);"Flchen:"'anzworld%;
PRINT chr$(13);"Flächen:"'anzworld%;
FLUSH
@polar1(r,theta,phi)
@polar2(r,theta+st,phi)
......@@ -51,7 +51,7 @@ st=PI/10
print
FOR phi=0 TO 2*PI STEP spsp
FOR theta=0.05 TO PI STEP st
PRINT chr$(13);"Flchen:"'anzworld%;
PRINT chr$(13);"Flächen:"'anzworld%;
@polar1(r,theta,phi)
@polar2(r,theta+st,phi)
@polar3(r,theta+st,phi+spsp)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment