%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1128 File Name:[]-0X-[] Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl S:0\->A~Z \Prog "PLAYERS" [[0,0,0][0,0,0][0,0,0]]\->\Mat B \ClrText \ClrGraph \ClrList \GridOff \AxesOff \LabelOff \BG-None \Lbl 1:A+1\->A 2\->\Dim \List 1 2\->\Dim \List 2 2\->\Dim \List 3 2\->\Dim \List 4 \If A=2 \Then 1\->\List 2[1] 3\->\List 1[2] 1\->\List 2[2] 1\->\List 3[1] 1\->\List 3[2] 3\->\List 4[2] \Goto2 \Else 2\->\List 2[1] 3\->\List 1[2] 2\->\List 2[2] 2\->\List 3[1] 3\->\List 4[1] 2\->\List 3[2] \Lbl 2:\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Blue \S-Gph2 \DrawOn,\xyLine,\List3,\List4,1,\Dot,\Blue \S-Gph3 \DrawOff \DrawStat \StoPict 1 \ClrGraph \BG-Pict 1 A=1\=>\Goto1 2\->\Dim \List 1 2\->\Dim \List 2 4\->\Dim \List 3 4\->\Dim \List 4 1.5\->\List 1[1] 1.5\->\List 2[1] 1\->\List 4[1] 1\->\List 3[2] 2\->\List 3[3] 3\->\List 4[3] 3\->\List 3[4] 2\->\List 4[4] \Lbl A:H=2\=>\GotoT H=0\=>\GotoV \If I=1 \Then 2\->I \GotoT \Else 1\->I \Lbl V:\Prog "RANPLAY" \Prog "SET D.A" \Prog "DIR D.A" \GotoB \Lbl T:\Getkey\->X X=72\=>\GotoB X=73\=>\GotoB X=74\=>\GotoB X=62\=>\GotoB X=63\=>\GotoB X=64\=>\GotoB X=52\=>\GotoB X=53\=>\GotoB X=54\=>\GotoB X=48\=>\GotoS \GotoT \Lbl B:\Prog "CHK2" Y\<>1\=>\GotoT \If X=72 \Then \List 1[1]-1\->\List 1[1] \List 2[1]-1\->\List 2[1] \GotoC \Else \If X=62 \Then \List 2[1]-1\->\List 2[1] \GotoC \Else \If X=52 \Then \List 1[1]+1\->\List 1[1] \List 2[1]-1\->\List 2[1] \GotoC \Else \If X=73 \Then \List 1[1]-1\->\List 1[1] \GotoC \Else \If X=63 \Then \GotoC \Else \If X=53 \Then \List 1[1]+1\->\List 1[1] \GotoC \Else \If X=74 \Then \List 1[1]-1\->\List 1[1] \List 2[1]+1\->\List 2[1] \GotoC \Else \If X=64 \Then \List 2[1]+1\->\List 2[1] \GotoC \Else \List 1[1]+1\->\List 1[1] \List 2[1]+1\->\List 2[1] \Lbl C:\List 1[1]\->\List 1[2] \List 2[1]\->\List 2[2] -A\->A \If A=2 \Then \S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Cross,\Blue \S-Gph2 \DrawOn,\Scatter,\List3,\List4,1,\Dot,\Blue \GotoD \Else \S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue \S-Gph2 \DrawOn,\Scatter,\List3,\List4,1,\Dot,\Blue \Lbl D:\DrawStat \StoPict 1 \ClrGraph \BG-Pict 1 1.5\->\List 1[1] 1.5\->\List 2[1] \Prog "REC" \Prog "CHK" Z=1\=>\GotoA \Lbl E:\Getkey\->X X=48\=>\GotoS X=31\=>\GotoS \GotoE %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:198 File Name:REC Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record X=72\=>3\->S X=72\=>1\->T X=73\=>2\->S X=73\=>1\->T X=74\=>1\->S X=74\=>1\->T X=62\=>3\->S X=62\=>2\->T X=63\=>2\->S X=63\=>2\->T X=64\=>1\->S X=64\=>2\->T X=52\=>3\->S X=52\=>3\->T X=53\=>2\->S X=53\=>3\->T X=54\=>1\->S X=54\=>3\->T A=2\=>1\->\Mat B[S,T] A=-2\=>2\->\Mat B[S,T] \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:717 File Name:CHK Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->Z \Mat B[1,1]\->M \Mat B[1,2]\->N \Mat B[1,3]\->O \Mat B[2,1]\->P \Mat B[2,2]\->Q \Mat B[2,3]\->R \Mat B[3,1]\->U \Mat B[3,2]\->V \Mat B[3,3]\->W U=0\=>\Goto3 U\<>V\=>\Goto1 U\<>W\=>\Goto1 0.5\->\List 1[1] 0.5\->\List 2[1] 2.5\->\List 1[2] 0.5\->\List 2[2] \Goto9 \Lbl 1:U\<>Q\=>\Goto2 U\<>O\=>\Goto2 0.5\->\List 1[1] 0.5\->\List 2[1] 2.5\->\List 1[2] 2.5\->\List 2[2] \Goto9 \Lbl 2:U\<>P\=>\Goto3 U\<>M\=>\Goto3 0.5\->\List 1[1] 0.5\->\List 2[1] 0.5\->\List 1[2] 2.5\->\List 2[2] \Goto9 \Lbl 3:V=0\=>\Goto4 V\<>Q\=>\Goto4 V\<>N\=>\Goto4 1.5\->\List 1[1] 0.5\->\List 2[1] 1.5\->\List 1[2] 2.5\->\List 2[2] \Goto9 \Lbl 4:W=0\=>\Goto6 W\<>Q\=>\Goto5 W\<>M\=>\Goto5 0.5\->\List 1[1] 2.5\->\List 2[1] 2.5\->\List 1[2] 0.5\->\List 2[2] \Goto9 \Lbl 5:W\<>R\=>\Goto6 W\<>O\=>\Goto6 2.5\->\List 1[1] 0.5\->\List 2[1] 2.5\->\List 1[2] 2.5\->\List 2[2] \Goto9 \Lbl 6:P=0\=>\Goto7 P\<>Q\=>\Goto7 P\<>R\=>\Goto7 0.5\->\List 1[1] 1.5\->\List 2[1] 2.5\->\List 1[2] 1.5\->\List 2[2] \Goto9 \Lbl 7:M=0\=>\Goto8 M\<>N\=>\Goto8 M\<>O\=>\Goto8 0.5\->\List 1[1] 2.5\->\List 2[1] 2.5\->\List 1[2] 2.5\->\List 2[2] \Goto9 \Lbl 8:U+V+W+P+Q+R+M+N+O=14\=>\GotoA 1\->Z \Return \Lbl 9:\S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot,\Green \DrawStat \Lbl A:\Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:283 File Name:CHK2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->Y \If X=72 \Then \Mat B[3,1]\<>0\=>\Return 1\->Y \Return \Else \If X=62 \Then \Mat B[3,2]\<>0\=>\Return 1\->Y \Return \Else \If X=52 \Then \Mat B[3,3]\<>0\=>\Return 1\->Y \Return \Else \If X=73 \Then \Mat B[2,1]\<>0\=>\Return 1\->Y \Return \Else \If X=63 \Then \Mat B[2,2]\<>0\=>\Return 1\->Y \Return \Else \If X=53 \Then \Mat B[2,3]\<>0\=>\Return 1\->Y \Return \Else \If X=74 \Then \Mat B[1,1]\<>0\=>\Return 1\->Y \Return \Else \If X=64 \Then \Mat B[1,2]\<>0\=>\Return 1\->Y \Return \Else \Mat B[1,3]\<>0\=>\Return 1\->Y \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:495 File Name:RANPLAY Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->K 0\->Y \Ran#\->R \Mat B[1,1]\->M \Mat B[1,2]\->N \Mat B[1,3]\->O \Mat B[2,1]\->P \Mat B[2,2]\->Q \Mat B[2,3]\->R \Mat B[3,1]\->U \Mat B[3,2]\->V \Mat B[3,3]\->W M=0\=>Y+1\->Y N=0\=>Y+1\->Y O=0\=>Y+1\->Y P=0\=>Y+1\->Y Q=0\=>Y+1\->Y R=0\=>Y+1\->Y U=0\=>Y+1\->Y V=0\=>Y+1\->Y W=0\=>Y+1\->Y Y\->\Dim \List 5 M\<>0\=>\GotoA K+1\->K 74\->\List 5[K] \Lbl A:N\<>0\=>\GotoB K+1\->K 64\->\List 5[K] \Lbl B:O\<>0\=>\GotoC K+1\->K 54\->\List 5[K] \Lbl C:P\<>0\=>\GotoD K+1\->K 73\->\List 5[K] \Lbl D:Q\<>0\=>\GotoE K+1\->K 63\->\List 5[K] \Lbl E:R\<>0\=>\GotoF K+1\->K 53\->\List 5[K] \Lbl F:U\<>0\=>\GotoG K+1\->K 72\->\List 5[K] \Lbl G:V\<>0\=>\GotoH K+1\->K 62\->\List 5[K] \Lbl H:W\<>0\=>\GotoI K+1\->K 52\->\List 5[K] \Lbl I:0\->Y \Lbl 1:Y+1\->Y Y=K+1\=>1\->Y \Ran#\<=1\ab/cK\=>\Goto2 \Goto1 \Lbl 2:\List 5[Y]\->X \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:833 File Name:DIR D.A Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->Y \Lbl S:Y+1\->Y Y=3\=>\Return 0\->K \Mat B[1,1]\->M \Mat B[1,2]\->N \Mat B[1,3]\->O \Mat B[2,1]\->P \Mat B[2,2]\->Q \Mat B[2,3]\->R \Mat B[3,1]\->U \Mat B[3,2]\->V \Mat B[3,3]\->W \If Y=1 \Then A>0\=>1\->K A<0\=>2\->K \GotoT \Else A>0\=>2\->K A<0\=>1\->K \Lbl T:U\<>0\=>\Goto1 V\<>K\=>\GotoA W\<>K\=>\GotoA 72\->X \GotoS \Lbl A:Q\<>K\=>\GotoB O\<>K\=>\GotoB 72\->X \GotoS \Lbl B:P\<>K\=>\Goto1 M\<>K\=>\Goto1 72\->X \GotoS \Lbl 1:V\<>0\=>\Goto2 U\<>K\=>\GotoC W\<>K\=>\GotoC 62\->X \GotoS \Lbl C:Q\<>K\=>\Goto2 N\<>K\=>\Goto2 62\->X \GotoS \Lbl 2:W\<>0\=>\Goto3 V\<>K\=>\GotoD U\<>K\=>\GotoD 52\->X \GotoS \Lbl D:Q\<>K\=>\GotoE M\<>K\=>\GotoE 52\->X \GotoS \Lbl E:R\<>K\=>\Goto3 O\<>K\=>\Goto3 52\->X \GotoS \Lbl 3:P\<>0\=>\Goto4 U\<>K\=>\GotoG M\<>K\=>\GotoG 73\->X \GotoS \Lbl G:Q\<>K\=>\Goto4 R\<>K\=>\Goto4 73\->X \GotoS \Lbl 4:Q\<>0\=>\Goto5 U\<>K\=>\GotoH O\<>K\=>\GotoH 63\->X \GotoS \Lbl H:V\<>K\=>\GotoI N\<>K\=>\GotoI 63\->X \GotoS \Lbl I:W\<>K\=>\GotoJ M\<>K\=>\GotoJ 63\->X \GotoS \Lbl J:P\<>K\=>\Goto5 R\<>K\=>\Goto5 63\->X \GotoS \Lbl 5:R\<>0\=>\Goto6 W\<>K\=>\GotoK O\<>K\=>\GotoK 53\->X \GotoS \Lbl K:Q\<>K\=>\Goto6 P\<>K\=>\Goto6 53\->X \GotoS \Lbl 6:M\<>0\=>\Goto7 P\<>K\=>\GotoL U\<>K\=>\GotoL 74\->X \GotoS \Lbl L:Q\<>K\=>\GotoM W\<>K\=>\GotoM 74\->X \GotoS \Lbl M:N\<>K\=>\Goto7 O\<>K\=>\Goto7 74\->X \GotoS \Lbl 7:N\<>0\=>\Goto8 Q\<>K\=>\GotoN V\<>K\=>\GotoN 64\->X \GotoS \Lbl N:M\<>K\=>\Goto8 O\<>K\=>\Goto8 64\->X \GotoS \Lbl 8:O\<>0\=>\GotoS W\<>K\=>\GotoO R\<>K\=>\GotoO 54\->X \GotoS \Lbl O:Q\<>K\=>\GotoP U\<>K\=>\GotoP 54\->X \GotoS \Lbl P:N\<>K\=>\GotoS M\<>K\=>\GotoS 54\->X \GotoS %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:357 File Name:PLAYERS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 1:\ClrText "====== 0 AND X ======" "NO.HUMAN PLAYERS?" "(0\->2), (9)." ?\->H H=9\=>\Goto2 H>2\=>\Goto1 H<0\=>\Goto1 H=0\=>\Return H=2\=>\Return H\<>1\=>\Goto1 \Ran#\->R \If R>0.5 \Then "YOU FIRST" 1\->I \Return \Else "YOU SECOND" 2\->I \Return \Lbl 2:\ClrText "WRITTEN BY\(-)" " " " " " SAMUEL MASON. " " " " 2001." \Lbl 3:\Getkey\->X X=31\=>\Goto4 X=48\=>\Goto4 \Goto3 \Lbl 4:\ClrText "PLAYED BY\(-)" " " " " " YOU. " " " " NOW." \Lbl 5:\Getkey\->X X=48\=>\Goto1 X=31\=>\Goto1 \Goto5 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:719 File Name:SET D.A Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->L \Lbl S:L+1\->L L=3\=>\Return 0\->Y 0\->K \Mat B[1,1]\->M \Mat B[1,2]\->N \Mat B[1,3]\->O \Mat B[2,1]\->P \Mat B[2,2]\->Q \Mat B[2,3]\->R \Mat B[3,1]\->U \Mat B[3,2]\->V \Mat B[3,3]\->W \If L=1 \Then A>0\=>1\->K A<0\=>2\->K \GotoA \Else A>0\=>2\->K A<0\=>1\->K \Lbl A:U\<>0\=>\Goto1 V+W=K\=>Y+1\->Y Q+O=K\=>Y+1\->Y P+M=K\=>Y+1\->Y Y\<=1\=>\Goto1 72\->X \GotoS \Lbl 1:0\->Y V\<>0\=>\Goto2 U+W=K\=>Y+1\->Y Q+N=K\=>Y+1\->Y Y\<>2\=>\Goto2 62\->X \GotoS \Lbl 2:0\->Y W\<>0\=>\Goto3 U+V=K\=>Y+1\->Y M+Q=K\=>Y+1\->Y R+O=K\=>Y+1\->Y Y\<=1\=>\Goto3 52\->X \GotoS \Lbl 3:0\->Y P\<>0\=>\Goto4 M+U=K\=>Y+1\->Y Q+R=K\=>Y+1\->Y Y\<>2\=>\Goto4 73\->X \GotoS \Lbl 4:0\->Y Q\<>0\=>\Goto5 U+O=K\=>Y+1\->Y V+N=K\=>Y+1\->Y W+M=K\=>Y+1\->Y P+R=K\=>Y+1\->Y Y\<=1\=>\Goto5 63\->X \GotoS \Lbl 5:0\->Y R\<>0\=>\Goto6 P+Q=K\=>Y+1\->Y O+W=K\=>Y+1\->Y Y\<>2\=>\Goto6 53\->X \GotoS \Lbl 6:0\->Y M\<>0\=>\Goto7 U+P=K\=>Y+1\->Y Q+W=K\=>Y+1\->Y N+O=K\=>Y+1\->Y Y\<=1\=>\Goto7 74\->X \GotoS \Lbl 7:0\->Y N\<>0\=>\Goto8 V+Q=K\=>Y+1\->Y M+O=K\=>Y+1\->Y Y\<>2\=>\Goto8 64\->X \GotoS \Lbl 8:0\->Y O\<>0\=>\Return U+Q=K\=>Y+1\->Y W+R=K\=>Y+1\->Y M+N=K\=>Y+1\->Y Y\<=1\=>\GotoS 54\->X \GotoS %End
Make your own free website on Tripod.com