%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2039 File Name:CASH Group Name: Password:03765 Option1:NL Option2: Option3: Option4: %Data Record 0\->A~Z 2\->O 99\->L L\<>99\=>"MIT 0 ANFANGEN(\<>99)" L\<>99\=>?\->L 0\->\theta \If L=99 \Then \Mat K[1,1]\->A \Mat K[1,2]\->B \Mat K[1,3]\->C \Mat K[1,4]\->D \Mat K[1,5]\->E \Mat K[1,6]\->F \Mat K[1,7]\->G \Mat K[1,8]\->H \Mat K[1,9]\->\theta \Else [[0,0,0,0,0,0,0,0,0]]\->\Mat K \IfEnd \ClrGraph \Prog "CASH2" \Orange \Text 57,1," SALDO IN DM" \For 1\->J \To 57 \Step 7 \Text J,60,": \slash " \Next \Lbl 2 0\->K \Fix 2 \Text 57,105,Z \Norm \Text 01,105,U \Text 08,105,V \Text 15,105,W \Text 22,105,P \Text 29,105,Q \Text 36,105,R \Text 43,105,M \Text 50,105,N \Text 1,65,A \Text 8,65,B \Text 15,65,C \Text 22,65,D \Text 29,65,E \Text 36,65,F \Text 43,65,G \Text 50,65,H \Fix 2 \Text 57,65,\theta \Norm \Lbl 0 \Getkey\->\r \Ans=\r\=>\Goto0 \r \Ans=0\=>\Goto0 \If \r=72 \Then \Isz U \Text 1,105,U \IfEnd \If \r=62 \Then \Isz V \Text 8,105,V \IfEnd \If \r=52 \Then \Isz W \Text 15,105,W \IfEnd \If \r=73 \Then \Isz P \Text 22,105,P \IfEnd \If \r=63 \Then \Isz Q \Text 29,105,Q \IfEnd \If \r=53 \Then \Isz R \Text 36,105,R \IfEnd \If \r=74 \Then \Isz M \Text 43,105,M \IfEnd \If \r=64 \Then \Isz N \Text 50,105,N \IfEnd \r=44\=>\Goto5 \Lbl 8 1\->O \Prog "CASH2" 0\->O \Text 57,105," " \Fix 2 \Text 57,105,Z \Norm \If \r=72\ And U<10 \Then \Text 01,105," " \Text 01,105,U \IfEnd \If \r=62\ And V<10 \Then \Text 08,105," " \Text 08,105,V \IfEnd \If \r=52\ And W<10 \Then \Text 15,105," " \Text 15,105,W \IfEnd \If \r=73\ And P<10 \Then \Text 22,105," " \Text 22,105,P \IfEnd \If \r=63\ And Q<10 \Then \Text 29,105," " \Text 29,105,Q \IfEnd \If \r=53\ And R<10 \Then \Text 36,105," " \Text 36,105,R \IfEnd \If \r=74\ And M<10 \Then \Text 43,105," " \Text 43,105,M \IfEnd \If \r=64\ And N<10 \Then \Text 50,105," " \Text 50,105,N \IfEnd K=1\=>\Goto6 31=\r\=>\Goto1 47=\r\=>\Goto4 \Goto0 \Lbl 1 A+U\->A V+B\->B W+C\->C D+P\->D E+Q\->E F+R\->F M+G\->G N+H\->H Z+\theta\->\theta 0\->U 0\->V 0\->W 0\->P 0\->Q 0\->R 0\->M 0\->N \ClrText " " " " \Locate 1,1,"BETRAG IN DM:" [[A,B,C,D,E,F,G,H,\theta]]\->\Mat K \Fix 2 \Locate 15,1,Z \Norm \Locate 1,2,"GEGEBEN IN DM:" ?\->I \If I-Z<0 \Then \Locate 1,3,"ZUWENIG" \Goto1 \Else \Locate 1,5,"WECHSELGELD IN DM:" \Fix 2 \Locate 15,6,I-Z \Norm \Locate 12,7,"PRESS EXE" \Do:\Getkey\->\r:\LpWhile \r\<>0 \Do:\LpWhile 31\<>\Getkey 0\->Z \Goto2 \Lbl 5 1\->K \For 1\->J \To 56 \Step 14 \Green \Text J,122,"S" \Next \Lbl 6 \Getkey\->\r \Ans=\r\=>\Goto6 \r \Ans=0\=>\Goto6 \If \r=31\ Or \r=47 \Then 0\->K \Goto7 \IfEnd \If \r=44 \Then 0\->K \Goto7 \IfEnd \If \r=72 \Then U>0\=>\Dsz U \Text 1,105,U U=0\=>\Text 01,105,U \IfEnd \If \r=62 \Then V>0\=>\Dsz V \Text 8,105,V V=0\=>\Text 08,105,V \IfEnd \If \r=52 \Then W>0\=>\Dsz W \Text 15,105,W W=0\=>\Text 15,105,W \IfEnd \If \r=73 \Then P>0\=>\Dsz P \Text 22,105,P P=0\=>\Text 22,105,P \IfEnd \If \r=63 \Then Q>0\=>\Dsz Q \Text 29,105,Q Q=0\=>\Text 29,105,Q \IfEnd \If \r=53 \Then R>0\=>\Dsz R \Text 36,105,R R=0\=>\Text 36,105,R \IfEnd \If \r=74 \Then M>0\=>\Dsz M \Text 43,105,M M=0\=>\Text 43,105,M \IfEnd \If \r=64 \Then N>0\=>\Dsz N \Text 50,105,N N=0\=>\Text 50,105,N \IfEnd \Goto8 \Lbl 7 \For 1\->J \To 56 \Step 14 \Green \Text J,122," " \Next \Goto0 \Lbl 4 [[A,B,C,D,E,F,G,H,\theta]]\->\Mat K "ERGEBNISSE GESPEICHERT" \Norm %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:271 File Name:CASH2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record O=1\=>\Goto2 O=2\=>\Goto1 O\<>1\=>O\<>2\=>\Prog "CASH" \Lbl 1 \Text 1,1,"1 COLA" \Text 8,1,"2 FANTA" \Text 15,1,"3 APFELSAFT" \Text 22,1,"4 ORANGENSAFT" \Text 29,1,"5 WASSER" \Text 36,1,"6 KIRSCHSAFT" \Text 43,1,"7 MARACUJASAFT" \Text 50,1,"8 WASSER STILL" \Goto3 \Lbl 2 (2.00*U+2.00*V+2.00*W+2.50*P+2.00*Q+2.00*R+2.00*M+2.00*N)\->Z \Lbl 3 0\->O %End %Header Record Format:VAL Communication SW:0 Data Type:MT Rows:1 Columns:9 Variable Name:Mat K Group Name: Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 1.2\EE+1 Value : 1 2 1 Value : 1 3 0 Value : 1 4 7 Value : 1 5 0 Value : 1 6 3 Value : 1 7 0 Value : 1 8 7 Value : 1 9 6.15\EE+1 %End