%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1304 File Name:SUDO SIX Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A~Z \Cls \ViewWindow 1,127,0,1,63,0 \Identity 6\->\Mat A \Fill(0,\Mat A) \For 1\->Z \To 51 \Step 10 \Text Z,1,">" \Text Z,10,"<" \Next \Text 58,10,"[" \Text 58,46,"]" {1,2,3,4,5,6}\->\List 1 \For 1\->A \To 6 \Lbl 1 \Int 6\Ran#+1\->N \List 1[N]=0\=>\Goto1 N\->\Mat A[1,A] 0\->\List 1[N] \PxlOn 3,A+3 \F-Line A+10,3,A+10,5 \Next \Text 1,20,"\Line 1 OK" \Lbl 2 \For 4\->Z \To 9 \PxlOff 13,Z \Next {1,2,3,4,5,6}\->\List 1 \For 1\->A \To 6 \Lbl B \Int 6\Ran#+1\->N \List 1[N]=0\=>\GotoB N=\Mat A[1,A]\=>\Goto2 N\->\Mat A[2,A] 0\->\List 1[N] \PxlOn 13,A+3 \F-Line A+16,3,A+16,5 \Next \Text 11,20,"\Line 2 OK" \Lbl 3 \For 4\->Z \To 9 \PxlOff 23,Z \Next {1,2,3,4,5,6}\->\List 1 \For 1\->A \To 6 \Lbl C \Int 6\Ran#+1\->N \List 1[N]=0\=>\GotoC N=\Mat A[1,A]\ Or N=\Mat A[2,A]\=>\Goto3 N\->\Mat A[3,A] 0\->\List 1[N] \PxlOn 23,A+3 \F-Line A+22,3,A+22,5 \Next \Text 21,20,"\Line 3 OK" \Lbl 4 \For 4\->Z \To 9 \PxlOff 33,Z \Next {1,2,3,4,5,6}\->\List 1 \For 1\->A \To 6 \Lbl D \Int 6\Ran#+1\->N \List 1[N]=0\=>\GotoD N=\Mat A[1,A]\ Or N=\Mat A[2,A]\ Or N=\Mat A[3,A]\=>\Goto4 N\->\Mat A[4,A] 0\->\List 1[N] \PxlOn 33,A+3 \F-Line A+28,3,A+28,5 \Next \Text 31,20,"\Line 4 OK" \Lbl 5 \For 4\->Z \To 9 \PxlOff 43,Z \Next {1,2,3,4,5,6}\->\List 1 \For 1\->A \To 6 \Lbl E \Int 6\Ran#+1\->N \List 1[N]=0\=>\GotoE N=\Mat A[1,A]\ Or N=\Mat A[2,A]\ Or N=\Mat A[3,A]\ Or N=\Mat A[4,A]\=>\Goto5 N\->\Mat A[5,A] 0\->\List 1[N] \PxlOn 43,A+3 \F-Line A+34,3,A+34,5 \Next \Text 41,20,"\Line 5 OK" \Lbl 6 \For 1\->A \To 6 {0,0,0,0,0}\->\List 1 {1,2,3,4,5,6}\->\List 2 \For 1\->B \To 5 \Mat A[B,A]\->\List 1[B] \Next \For 1\->C \To 6 \For 1\->D \To 5 \If \List 2[C]=\List 1[D] \Then 0\->\List 2[C] \IfEnd \Next \Next \For 1\->E \To 6 \If \List 2[E]\<>0 \Then \List 2[E]\->N \IfEnd \Next N\->\Mat A[6,A] \PxlOn 53,A+3 \F-Line A+40,3,A+40,5 \Next \Text 51,20,"\Line 6 OK" \F-Line 65,1,127,1 \F-Line 127,1,127,63 \F-Line 127,63,65,63 \F-Line 65,63,65,1 \For 66\->A \To 126 \Step 10 \F-Line A,2,A,62 \Next \For 62\->B \To 2 \Step \(-)10 \F-Line 66,B,126,B \Next \For 5\->L \To 55 \Step 10 \Isz U \For 70\->C \To 120 \Step 10 \Isz V \Text L,C,\Mat A[U,V] \Next 0\->V \Next \Do \LpWhile \Getkey\<>31 %End