%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:2282

File Name:ZILCH5.0

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\If A\<>1

\Then 1\->A

\ClrText

\Orange "UMBENENNSCHUTZ"

\Green "PROGRAMM: ZILCH5.0"

\Prog "ZILCH5.0"

\Else 0\->A

\IfEnd

0\->A~Z

0\->\r

0\->\theta

\ClrText

" "

" "

\Green " "

" "

\Orange " "

\Locate 5,3,"WUERFELSPIEL:"

\ClrGraph

\Text 58,15,"DRUECK EXE ODER WARTE !!!"

\Locate 9,5,"ZILCH"

\For 1\->E \To 999

\Getkey=31\=>\Break

\Next 

"NEUES SPIEL?"

"\=> EXE"

\Do

\Getkey\->\r

\LpWhile \r=0

\If \r=31

\Then [[0,0][0,0][0,0][0,0][0,0][0,0][0,0]]\->\Mat W

\IfEnd

\ClrText

\Orange "SPIELER1:    \(-)\(-)\(-)\(-)\(-)"

\Orange "SPIELER2:    \(-)\(-)\(-)\(-)\(-)"

" "

\Green "EXE          = OK"

\Green "5 BUCHSTABEN = OK"

\Orange "EXIT \=> ALTE NAMEN!"

0\->C

\For 1\->B \To 2

\Locate 11,B,"->"

\Locate 20,B,"<-"

\For 1\->A \To 5

\Do

\Getkey\->\r

\LpWhile \r=0

\r\->Z

\If \r\<>47\ And \r\<>31

\Then 13+A\->X

B\->Y

C*100+Z\->C

\Prog "ABC"

C\->\Mat W[7,B]

\Else 5\->A

0\->C

\r=47\=>2\->B

\IfEnd

A=5\=>0\->C

\Next 

\Do

\Getkey\->\r

\LpWhile \r=31

\Locate 11,B,"  "

\Locate 20,B,"  "

\Next 

\Lbl 0

\ClrText

\Orange "SPIELER:"

\For 2\->E \To 6

\Green "WUERFEL"

\Locate 8,E,E-1

\Locate 9,E,":"

\Next 

\Orange "PUNKTE:"

2\->B

\Lbl 1

0\->M

\Locate 11,7,"\(-)\(-)\(-)\(-)\(-)\slash\(-)\(-)\(-)\(-)\(-)"

\For 2\->E \To 6

\Locate 10,E,"   "

\Next 

\If B=2

\Then 1\->B

\Else 2\->B

\IfEnd

0\->G

0\->\theta

\For 1\->E \To 5

0\->\Mat W[E,B]

\Next 

'NAME SPIELERWAHL'

\Mat W[7,B]\->Z

1\->Y

10\->X

'TEST'

\Locate 10,1,"     "

\Prog "ABC"

\Lbl 2

\For 1\->E \To 5

\Mat W[E,B]=\Int \Mat W[E,B]\=>\Int (6\Ran#+1)\->\Mat W[E,B]

\Next 

'MISCHEN'

\Lbl 3

G+1\->G

'PUNKTE(M)'

0\->P~X

0\->I

0\->H

0\->K

0\->L

\For 1\->E \To 5

0\->C

\If \Mat W[E,B]=\Int \Mat W[E,B]

\Then \Mat W[E,B]\->C

\Else \Int \Mat W[E,B]\->D

\IfEnd

C=1\=>\Isz U

C=2\=>\Isz V

C=3\=>\Isz W

C=4\=>\Isz P

C=5\=>\Isz Q

C=6\=>\Isz R

D=1\=>\Isz H

D=2\=>\Isz I

D=3\=>\Isz K

D=4\=>\Isz L

D=5\=>\Isz S

D=6\=>\Isz T

\Next 

0\->M

Q=1\=>50+M\->M

Q=2\=>100+M\->M

U=1\=>100+M\->M

U=2\=>200+M\->M

U=3\=>1000+M\->M

V=3\=>200+M\->M

W=3\=>300+M\->M

P=3\=>400+M\->M

Q=3\=>500+M\->M

R=3\=>600+M\->M

U=4\=>2000+M\->M

V=4\=>400+M\->M

W=4\=>600+M\->M

P=4\=>800+M\->M

Q=4\=>1000+M\->M

R=4\=>1200+M\->M

U=1\=>V=1\=>W=1\=>P=1\=>Q=1\=>R=1\=>1500+M\->M

\Do

0\->\theta

\theta\<>0\=>"FEHLER"

\LpWhile \theta\<>0

S=1\=>50+\theta\->\theta

S=2\=>100+\theta\->\theta

H=1\=>100+\theta\->\theta

H=2\=>200+\theta\->\theta

I=3\=>1000+\theta\->\theta

I=3\=>200+\theta\->\theta

K=3\=>300+\theta\->\theta

L=3\=>400+\theta\->\theta

S=3\=>500+\theta\->\theta

T=3\=>600+\theta\->\theta

H=4\=>2000+\theta\->\theta

I=4\=>400+\theta\->\theta

K=4\=>600+\theta\->\theta

L=4\=>800+\theta\->\theta

S=4\=>1000+\theta\->\theta

T=4\=>1200+\theta\->\theta

H=1\=>I=1\=>K=1\=>L=1\=>S=1\=>1500+\theta\->\theta

\Lbl 4

'ANZEIGEN'

\For 1\->E \To 6

\Locate 11,E+1,\Int \Mat W[E,B]

\Next 

U<1\ And Q<1\=>0\->M

M=0\=>0\->\theta

M=0\=>0\->\theta

\Locate 17,7,\theta+M

\Lbl 5

\Getkey\->\r

M>0\ And \r=0\=>\Goto5

\If G>1\ And H+I+K+L+S+T<1\ And \r=32

\Then 31\->\r

\IfEnd

\r=32\=>\Goto2

\If \r=31\ Or M=0

\Then \r=31\=>\Mat W[6,B]+\theta+M\->\Mat W[6,B]

'

\Locate 17,7,"\(-)\(-)\(-)\(-)\(-)"

'\Locate 10,7,\Mat W[7,B]'

\Goto1

\IfEnd

\If \r=72\ Or \r=62\ Or \r=52\ Or \r=73\ Or \r=63

\Then \r=72\=>1\->N

\r=62\=>2\->N

\r=52\=>3\->N

\r=73\=>4\->N

\r=63\=>5\->N

\Int \Mat W[N,B]+0.1\->\Mat W[N,B]

\Locate 10,N+1,"["

\Locate 12,N+1,"]"

\IfEnd

\Goto5

\Lbl .

\ClrText

\If \Mat W[7,1]\<>\Mat W[7,2]

\Then "      HAT GEWONNEN!"

"PUNKTE:"

"      HAT VERLOREN!"

"PUNKTE:"

\Mat W[7,1]\->Z

1\->X

3\->Y

\Mat W[6,1]>\Mat W[6,2]\=>1\->Y

\Prog "ABC"

\Locate 9,Y+1,\Mat W[6,1]

\Mat X[7,2]\->Z

1\->X

3\->Y

\Mat W[6,2]>\Mat W[6,1]\=>1\->Y

\Locate 9,Y+1,\Mat W[6,2]

\Prog "ABC"

\Else "GLEICHSTAND"

\IfEnd

"BITTE DRUECK EXE !!!"

"ODER EXIT"

\Do

\Getkey\->\r

\LpWhile \r\<>31\ And \r\<>47

\r\<>47\=>\Goto0

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1371

File Name:ABC

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

0\->V

Z\->W

\Do

U\<>61\=>(100(U-\Int U)\->U

U=61\=>V\->U

W/100\->W

\Isz V

\LpWhile W>1

'ANZAHL LETTERS':V\->V

'CODE':Z\->Z

Z/(10^(2V-2))\->Z

\Lbl 0

\Int Z\->W

\Isz U

W\>=25\ And W\<=77\=>\Goto1

(W\>=10\ And W\<=19)\ Or (W\>=84\ And W\<=99)\=>\Goto2

(W\>=20\ And W\<=24\ And W\<>23)\ Or (W\>=81\ And W\<=89\ And W\<>83)\=>\Goto3

Z=0\=>\Return

\Goto4

\Lbl 1

'ALPHA'

\If (W+4)/10=\Int ((W+4)/10)

\Then W=76\=>\Locate X,Y,"A"

W=66\=>\Locate X,Y,"B"

W=56\=>\Locate X,Y,"C"

W=46\=>\Locate X,Y,"D"

W=36\=>\Locate X,Y,"E"

W=26\=>\Locate X,Y,"F"

\Goto4

\IfEnd

\If (W/5)=\Int (W/5)

\Then W=75\=>\Locate X,Y,"G"

W=65\=>\Locate X,Y,"H"

W=55\=>\Locate X,Y,"I"

W=45\=>\Locate X,Y,"J"

W=35\=>\Locate X,Y,"K"

W=25\=>\Locate X,Y,"L"

\Goto4

\IfEnd

\If (W-4)/10=\Int ((W-4)/10)

\Then W=74\=>\Locate X,Y,"M"

W=64\=>\Locate X,Y,"N"

W=54\=>\Locate X,Y,"O"

\Goto4

\IfEnd

\If ((W-3)/10)=\Int ((W-3)/10)

\Then W=73\=>\Locate X,Y,"P"

W=63\=>\Locate X,Y,"Q"

W=53\=>\Locate X,Y,"R"

W=43\=>\Locate X,Y,"S"

W=33\=>\Locate X,Y,"T"

\Goto4

\IfEnd

\If W/2=\Int (W/2)

\Then W=72\=>\Locate X,Y,"U"

W=62\=>\Locate X,Y,"V"

W=52\=>\Locate X,Y,"W"

W=42\=>\Locate X,Y,"X"

W=32\=>\Locate X,Y,"Y"

\Goto4

\IfEnd

W=71\=>\Locate X,Y,"Z"

W=67\=>\Locate X,Y,"\r"

W=57\=>\Locate X,Y,"\theta"

W=61\=>\Locate X,Y," "

\Goto4

\Lbl 2

'NORMAL'

W=10\=>\Locate X,Y,"\x^2"

W=11\=>\Locate X,Y,"^"

W=12\=>\Locate X,Y,"X"

W=13\=>\Locate X,Y,"\ab/c"

W=14\=>\Locate X,Y,"("

W=15\=>\Locate X,Y,")"

W=16\=>\Locate X,Y,","

W=17\=>\Locate X,Y,"\->"

W=18\=>\Locate X,Y,"\EE"

W=19\=>\Locate X,Y,"."

W=91\=>\Locate X,Y,"1"

W=92\=>\Locate X,Y,"2"

W=93\=>\Locate X,Y,"3"

W=94\=>\Locate X,Y,"4"

W=95\=>\Locate X,Y,"5"

W=96\=>\Locate X,Y,"6"

W=97\=>\Locate X,Y,"7"

W=98\=>\Locate X,Y,"8"

W=99\=>\Locate X,Y,"9"

W=90\=>\Locate X,Y,"0"

W=87\=>\Locate X,Y,"*"

W=86\=>\Locate X,Y,"+"

W=85\=>\Locate X,Y,"-"

W=84\=>\Locate X,Y,"/"

\Goto4

\Lbl 3

'SHIFT'

W=81\=>\Locate X,Y,"\sqrt"

W=80\=>\Locate X,Y,"}"

W=88\=>\Locate X,Y,"{"

W=89\=>\Locate X,Y,"["

W=20\=>\Locate X,Y,"]"

W=21\=>\Locate X,Y,"="

W=22\=>\Locate X,Y,"\Pi"

W=24\=>\Locate X,Y,"\10^x"

\Lbl 4

\Isz X

(100*(Z-\Int Z))\->Z

X>21\=>\Isz Y

X>21\=>2\->X

Y>7\=>"FEHLER 001"

U<V\=>\Goto0

\Return

%End