%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:562

File Name:PRIMZAHL

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl A

2\->A

\ClrText

"BITTE GEBEN SIE DIE"

"ZAHL EIN:"

" "

\Orange "KEINE EINGBE + EXE"

\Orange " \=>VARIABLE 'D' WIRD"

\Orange "  ZERLEGT !!!"

\Do

\Locate 11,2,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)"

\Prog "EINGABE"

\r\<>44\=>B=0\=>D\<>0\=>D\->B

\LpWhile B<2

\If \Int B\<>B

\Then \Orange "DIE ZAHL WIRD IN EINENATUERLICHE"

\Orange "UMGEWANDELT !!!"

\Int B\->B

\IfEnd

B\->D

\For 1\->E \To 7

" "

\Next 

1\->E

\Do

0\->F

\Do

1\->C

\Frac (B/A)=0\=>0\->C

\If C=0

\Then \Isz F

B/A\->B

\If F=1

\Then " "

\Locate 2,7,A

\Else A\->G

0\->H

\Do

G/10\->G

\Isz H

\LpWhile G>1

\Locate 2+H,7,"^"

\Locate 3+H,7,F

\IfEnd

E*A\->E

F=1\=>E\<>A\=>\Locate 1,7,"*"

\IfEnd

\LpWhile C=0

\If A\<>2

\Then A+2\->A

\Else \Isz A

\IfEnd

\LpWhile \sqrtB+1>A

\If D/E\<>1

\Then " "

\Locate 1,7,"*"

\Locate 2,7,D/E

\IfEnd

\AxesOff

\Cls

\Text 58,1,"SIND:"

\Orange \Text 58,26,D

\AxesOn

\Locate 21,7," "

\Do

\Getkey\->\r

\LpWhile \r=0

\r=47\=>\Return

\GotoA

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:227

File Name:EINGABE

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

0\->B

0\->F

31\->\theta

31\->\r

11\->X

\Lbl 1

\r\->\theta

\Getkey\->\r

\r=\theta\ Or \r=0\=>\Goto1

0.5\->F

\r=71\=>0\->F

\r=72\=>1\->F

\r=62\=>2\->F

\r=52\=>3\->F

\r=73\=>4\->F

\r=63\=>5\->F

\r=53\=>6\->F

\r=74\=>7\->F

\r=64\=>8\->F

\r=54\=>9\->F

\r=31\ Or \r=44\=>0.6\->F

\If F\<>0.5\ And F\<>0.6

\Then \Locate X,2,F

\Isz X

B*10+F\->B

\IfEnd

F\<>0.6\ And X\<=21\=>\Goto1

\r=44\=>00\->B

%End