%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:636

File Name:COUNDOWN

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\ClrText

\Green "SET:"

\Orange "      --:--:--"

\Green " STUNDEN"

\Green " MINUTEN"

\Green " SEKUNDEN"

\Green "  EXE = START"

00\->S

01\->M

10\->K

31\->A

\Locate 1,3,"\->"

\Do

\Getkey\->\r

\r=28\=>S<99\=>\Isz S

\r=37\=>S>00\=>\Dsz S

\r=37\=>S=9\=>\Locate 7,2,"  "

\Locate 7,2,S

\LpWhile \r\<>A

\Do:\LpWhile \Getkey=A

\Locate 1,3," "

\Locate 1,4,"\->"

\Do

\Getkey\->\r

\r=28\=>M<60\=>\Isz M

\r=37\=>M>00\=>\Dsz M

\r=37\=>M=9\=>\Locate 10,2,"  "

\Locate 10,2,M

\LpWhile \r\<>A

\Do:\LpWhile \Getkey=A

\Locate 1,4," "

\Locate 1,5,"\->"

\Do

\Getkey\->\r

\r=28\=>K<60\=>\Isz K

\r=37\=>K>00\=>\Dsz K

\r=37\=>K=9\=>\Locate 13,2,"  "

\Locate 13,2,K

\LpWhile \r\<>A

\Locate 1,1,"START !!!"

\Locate 1,5,"           "

\Locate 1,3,"           "

\Locate 1,4,"           "

\Locate 1,6,"             "

\Lbl 0

\For 1\->E \To 147

\Next 

K-1\->K

\If K<0:\Then 59\->K:\Dsz M:\IfEnd

\If M<0:\Then 59\->M:\Dsz S:\IfEnd

\Locate 14,2," "

\Locate 13,2,K

\Locate 11,2," "

\Locate 10,2,M

\Locate 08,2," "

\Locate 07,2,S

K\<>0\ Or M\<>0\ Or S\<>0\=>\Goto0

"FERTIG"

%End