%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:66 File Name:D Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record J=1\=>1\->J J=2\=>10\->J J=3\=>100\->J J=4\=>1000\->J 10\Frac (\Int (J*G)/10000)\->K \Int K\->K %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:255 File Name:D.ET Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 15\->O \Green \Text 2,M+11,"\(-)-\(-)" \Green \Text 6,M+8,"{( )}" \Green \Text 12,M+12,"<=>" \Green \Text 16,M+4,".----." \Green \Text 21,M+1,"\slash \!mark" \Green \Text 26,M,"\!mark'\!mark \!mark \!mark" \Green \Text 31,M,"(0)--' \slash" \Green \Text 36,M+1,"L----\slash" \Green \Text 41,M+7,"\!mark \!mark\!mark \!mark" \Green \Text 46,M+7,"\!mark=\!mark\!mark=\!mark" \Green \Text 51,M+7,"\!mark=\!mark\!mark=\!mark" \Green \Text 56,M+3,"( ]( ) " \Text 1,1,"" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:258 File Name:D.PROG Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If V=1 \Then {0,0,0,0,0,0}\->\List 2 {0,0,0,0}\->\List 3 {0,0,0,0}\->\List 4 \IfEnd \If V=2 \Then {0,0,0,0,0,0,0,0,0,0,0,0}\->\List 2 {0,0,0,0,0,0,0,0}\->\List 3 {0,0,0,0,0,0,0,0}\->\List 4 \IfEnd \If V=3 \Then {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}\->\List 2 {0,0,0,0,0,0,0,0,0,0,0,0}\->\List 3 {0,0,0,0,0,0,0,0,0,0,0,0}\->\List 4 \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:268 File Name:DL.1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record {1011,10,10,10,110,11,10,1110,11,1100,101,101,1001,100,1001,110,1,10,1100,1,110,1101,11,100,101,1101,11,1100,1001,10,0,100,1001,10,1000,110,11,1000,100,101,111,101,111,1001,1100,11,1100,101,101,1,0,1010,1010,100,11,1100,1001,1100,1001,1010,1110,1001,1000,1110}\->\List 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:277 File Name:DL.2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record {1011,10,1010,110,1011,10,1010,110,11,100,1011,100,1011,0,1110,101,101,1,10,1000,10,100,111,1101,1101,101,1,110,1101,101,1001,110,11,100,1001,1000,1110,1,1110,101,101,1001,1010,10,1010,1000,10,100,1,1010,110,101,111,111,1101,101,1001,1110,1001,1000,1100,1001,1010,1100}\->\List 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:276 File Name:DL.3 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record {11,10,1010,110,11,1010,10,1110,1101,101,11,0,1100,111,1,110,11,100,1101,101,111,1,100,101,1101,1,1010,100,1001,1100,101,101,11,100,1011,1100,1011,110,1101,101,101,1001,110,1011,110,1001,10,1100,1001,1110,1,1010,1100,11,100,111,1011,1010,1000,1010,1010,1100,1001,1100}\->\List 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:5856 File Name:DOOM I Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 'DOOM I \AxesOff \CoordOff \Lbl A \ViewWindow 1,127,1,1,63,1 3\->B \For 1\->A \To 50 \Step B \Getkey=46\=>\GotoD \Cls \Isz B A-2>0\=>\Text 27,A-2,"D" \Text 27,126-A,"M" \Text \Int (A/2+2),57,"O" \Text 60-(\Int (A/2+8)),67,"O" \Text 1,1,"" \Next \Horizontal 63 \F-Line 127,63,127,1 \Horizontal 1 \F-Line 1,1,1,63 54\->A 55\->B \Orange \F-Line A+2,B-1,A+15,B-1 \Orange \F-Line A+16,B-1,A+13,B-3 \Orange \F-Line A+12,B-4,A+10,B-7 \Orange \F-Line A+10,B-8,A+10,B-23 \Orange \F-Line A+10,B-24,A+12,B-27 \Orange \F-Line A+13,B-28,A+16,B-30 \Orange \F-Line A+15,B-30,A+2,B-30 \Orange \F-Line A+1,B-30,A+4,B-28 \Orange \F-Line A+5,B-27,A+7,B-24 \Orange \F-Line A+7,B-23,A+7,B-8 \Orange \F-Line A+7,B-7,A+5,B-4 \Orange \F-Line A+4,B-3,A+1,B-1 \Text 1,1,"" 3\->M \Prog "D.ET" 95\->M \Prog "D.ET" \Green \Horizontal 3 \Text 55,33,"PAR LOIC LE DRU" \Text 1,1,"" \While \Getkey\<>31 \WhileEnd \Lbl D 74\->A 6\->C 1\->F 0\->S 30\->P 1\->V \Lbl B \Cls \ClrList \Prog "D.PROG" V=1\=>\Prog "DL.1" V=2\=>\Prog "DL.2" V=3\=>\Prog "DL.3" \Int 64\Ran#+1\->E \Int 4\Ran#+1\->D (\Int 3\Ran#+4)*V\->G \For 1\->R \To G \Int 64\Ran#+1\->\List 2[R] \Next (\Int 3\Ran#+2)*V\->G \For 1\->T \To G \Int 64\Ran#+1\->\List 3[T] \Next (\Int 3\Ran#+2)*V\->G \For 1\->T \To G \Int 64\Ran#+1\->\List 4[T] \Next \Orange \F-Line 1,1,1,63 \Orange \F-Line 3,3,3,61 \Orange \Horizontal 63 \Orange \F-Line 3,61,124,61 \Orange \F-Line 127,63,127,1 \Orange \F-Line 125,61,125,3 \Orange \Horizontal 1 \Orange \F-Line 125,3,3,3 \F-Line 5,59,36,59 \F-Line 36,58,36,55 \F-Line 36,55,5,55 \F-Line 5,55,5,59 \Orange \F-Line 6,58,35,58 \Orange \F-Line 6,57,35,57 \Orange \F-Line 6,56,35,56 \Text 55,5,"\theta\theta\theta\theta\theta\theta *1" \F-Line 80,3,A-3,12 \F-Line A-3,12,A+3,12 \F-Line A+3,12,86,3 \F-Line A-3,12,A-3,3 \Goto2 \Lbl 3 D\->J \List 1[E]\->G \Prog "D" K\->H \If H=1 \Then \Green \F-Line 4,9,124,9 \Green \F-Line 4,55,124,55 \Goto4 \IfEnd \If H=0 \Then 0\->N \For 1\->G \To \Dim \List 4 D=1\=>E+8=\List 4[G]\=>1\->N D=2\=>E+1=\List 4[G]\=>1\->N D=3\=>E-8=\List 4[G]\=>1\->N D=4\=>E-1=\List 4[G]\=>1\->N \Next \If N=1 \Then \Green \Text 46,67,"OOOO" \Text 1,1,"" \IfEnd 0\->N \For 1\->G \To \Dim \List 3 D=1\=>E+8=\List 3[G]\=>1\->N D=2\=>E+1=\List 3[G]\=>1\->N D=3\=>E-8=\List 3[G]\=>1\->N D=4\=>E-1=\List 3[G]\=>1\->N \Next \If N=1 \Then \Green \Text 42,40,"\(-)---\(-)" \Green \Text 47,40,"\!mark (+) \!mark" \Green \Text 52,40,"\(-)---\(-)" \Text 1,1,"" \IfEnd \IfEnd D\->J D=1\=>\List 1[E+8]\->G D=2\=>\List 1[E+1]\->G D=3\=>\List 1[E-8]\->G D=4\=>\List 1[E-1]\->G \Prog "D" \If K=1 \Then \Green \F-Line 40,23,88,23 \Green \F-Line 88,23,88,41 \Green \F-Line 88,41,40,41 \Green \F-Line 40,41,40,23 2\->I 2\->L \Goto5 \IfEnd \If K=0 \Then 0\->N \For 1\->G \To \Dim \List 4 D=1\=>E+16=\List 4[G]\=>1\->N D=2\=>E+2=\List 4[G]\=>1\->N D=3\=>E-16=\List 4[G]\=>1\->N D=4\=>E-2=\List 4[G]\=>1\->N \Next \If N=1 \Then \Green \Text 39,67,"\Deg>\Deg>" \IfEnd 0\->N \For 1\->G \To \Dim \List 3 D=1\=>E+16=\List 3[G]\=>1\->N D=2\=>E+2=\List 3[G]\=>1\->N D=3\=>E-16=\List 3[G]\=>1\->N D=4\=>E-2=\List 3[G]\=>1\->N \Next \If N=1 \Then \Green \Text 38,55,"[+]" \IfEnd \IfEnd D-1\->J J=0\=>4\->J D=1\=>\List 1[E+16]\->G D=2\=>\List 1[E+2]\->G D=3\=>\List 1[E-16]\->G D=4\=>\List 1[E-2]\->G \Prog "D" \If K=1 \Then \Green \F-Line 40,23,52,28 \Green \F-Line 52,28,52,36 \Green \F-Line 52,36,40,41 \Green \F-Line 40,41,40,23 2\->I \IfEnd D+1\->J J=5\=>1\->J D=1\=>\List 1[E+16]\->G D=2\=>\List 1[E+2]\->G D=3\=>\List 1[E-16]\->G D=4\=>\List 1[E-2]\->G \Prog "D" \If K=1 \Then \Green \F-Line 88,23,76,28 \Green \F-Line 76,28,76,36 \Green \F-Line 76,36,88,41 \Green \F-Line 88,41,88,23 2\->L \IfEnd D\->J D=1\=>\List 1[E+16]\->G D=2\=>\List 1[E+2]\->G D=3\=>\List 1[E-16]\->G D=4\=>\List 1[E-2]\->G \Prog "D" \If K=1 \Then \Green \F-Line 52,28,76,28 \Green \F-Line 76,28,76,36 \Green \F-Line 76,36,52,36 \Green \F-Line 52,36,52,28 \IfEnd \Lbl 5 D+1\->J J=5\=>1\->J D=1\=>\List 1[E+8]\->G D=2\=>\List 1[E+1]\->G D=3\=>\List 1[E-8]\->G D=4\=>\List 1[E-1]\->G \Prog "D" \If K=1 \Then \Green \F-Line 124,9,88,23 \Green \F-Line 88,23,88,41 \Green \F-Line 88,41,124,55 \Isz L \Goto6 \IfEnd D\->J D=1\=>\List 1[E+9]\->G D=2\=>\List 1[E-7]\->G D=3\=>\List 1[E-9]\->G D=4\=>\List 1[E+7]\->G \Prog "D" \If K=1 \Then \Green \F-Line 124,23,88,23 \Green \F-Line 88,23,88,41 \Green \F-Line 88,41,124,41 \Isz L \Goto6 \IfEnd D+1\->J J=5\=>1\->J D=1\=>\List 1[E+17]\->G D=2\=>\List 1[E-6]\->G D=3\=>\List 1[E-17]\->G D=4\=>\List 1[E+6]\->G \Prog "D" \If K=1 \Then \Green \F-Line 124,23,100,28 \Green \F-Line 100,28,100,36 \Green \F-Line 100,36,124,41 \Goto6 \IfEnd D\->J D=1\=>\List 1[E+18]\->G D=2\=>\List 1[E-14]\->G D=3\=>\List 1[E-18]\->G D=4\=>\List 1[E+14]\->G \Prog "D" \If K=1 \Then \Green \F-Line 124,28,100,28 \Green \F-Line 100,28,100,36 \Green \F-Line 100,36,124,36 \IfEnd \Lbl 6 D-1\->J J=0\=>4\->J D=1\=>\List 1[E+8]\->G D=2\=>\List 1[E+1]\->G D=3\=>\List 1[E-8]\->G D=4\=>\List 1[E-1]\->G \Prog "D" \If K=1 \Then \Green \F-Line 4,9,40,23 \Green \F-Line 40,23,40,41 \Green \F-Line 40,41,4,55 \Isz I \Goto7 \IfEnd D\->J D=1\=>\List 1[E+7]\->G D=2\=>\List 1[E+9]\->G D=3\=>\List 1[E-7]\->G D=4\=>\List 1[E-9]\->G \Prog "D" \If K=1 \Then \Green \F-Line 4,23,40,23 \Green \F-Line 40,23,40,41 \Green \F-Line 40,41,4,41 \Isz I \Goto7 \IfEnd D-1\->J J=0\=>4\->J D=1\=>\List 1[E+15]\->G D=2\=>\List 1[E+10]\->G D=3\=>\List 1[E-15]\->G D=4\=>\List 1[E-10]\->G \Prog "D" \If K=1 \Then \Green \F-Line 4,23,28,28 \Green \F-Line 28,28,28,36 \Green \F-Line 28,36,4,41 \Goto7 \IfEnd D\->J D=1\=>\List 1[E+14]\->G D=2\=>\List 1[E+18]\->G D=3\=>\List 1[E-14]\->G D=4\=>\List 1[E-18]\->G \Prog "D" \If K=1 \Then \Green \F-Line 4,28,28,28 \Green \F-Line 28,28,28,36 \Green \F-Line 28,36,4,36 \IfEnd \Lbl 7 \If I=0 \Then 0\->N \For 1\->G \To \Dim \List 4 D=1\=>E+15=\List 4[G]\=>1\->N D=2\=>E+10=\List 4[G]\=>1\->N D=3\=>E-15=\List 4[G]\=>1\->N D=4\=>E-10=\List 4[G]\=>1\->N \Next \If N=1 \Then \Green \Text 39,34,"\Deg>\Deg>" \IfEnd 0\->N \For 1\->G \To \Dim \List 3 D=1\=>E+15=\List 3[G]\=>1\->N D=2\=>E+10=\List 3[G]\=>1\->N D=3\=>E-15=\List 3[G]\=>1\->N D=4\=>E-10=\List 3[G]\=>1\->N \Next \If N=1 \Then \Green \Text 38,24,"[+]" \Text 1,1,"" \IfEnd \IfEnd \If I<3:\Then D\->J D=1\=>\List 1[E+15]\->G D=2\=>\List 1[E+10]\->G D=3\=>\List 1[E-15]\->G D=4\=>\List 1[E-10]\->G \Prog "D" \If K=1 \Then \If I=2\ Or I=0 \Then \Green \F-Line 40,28,28,28 \Green \F-Line 28,28,28,36 \Green \F-Line 28,36,40,36 \IfEnd \If I<2 \Then \Green \F-Line 40,36,52,36 \Green \F-Line 52,36,52,28 \Green \F-Line 52,28,40,28 \IfEnd \IfEnd \IfEnd \If L=0 \Then 0\->N \For 1\->G \To \Dim \List 4 D=1\=>E+17=\List 4[G]\=>1\->N D=2\=>E-6=\List 4[G]\=>1\->N D=3\=>E-17=\List 4[G]\=>1\->N D=4\=>E+6=\List 4[G]\->N \Next \If N=1 \Then \Green \Text 39,98,"\Deg>\Deg>" \Text 1,1,"" \IfEnd 0\->N:\For 1\->G \To \Dim \List 3 D=1\=>E+17=\List 3[G]\=>1\->N D=2\=>E-6=\List 3[G]\=>1\->N D=3\=>E-17=\List 3[G]\=>1\->N D=4\=>E+6=\List 3[G]\=>1\->N \Next \If N=1 \Then \Green \Text 38,88,"[+]" \Text 1,1,"" \IfEnd \IfEnd \If L<3:\Then D\->J D=1\=>\List 1[E+17]\->G D=2\=>\List 1[E-6]\->G D=3\=>\List 1[E-17]\->G D=4\=>\List 1[E+6]\->G \Prog "D" \If K=1 \Then \If L=2\ Or L=0 \Then \Green \F-Line 88,28,100,28 \Green \F-Line 100,28,100,36 \Green \F-Line 100,36,88,36 \IfEnd \If L<2 \Then \Green \F-Line 88,36,76,36 \Green \F-Line 76,36,76,28 \Green \F-Line 76,28,88,28 \IfEnd \IfEnd \IfEnd \Lbl 4 \If \Sum \List 2=0 \Then \Text 25,50,"NEXT LEVEL"\Disp\Isz V V=4\=>\GotoC \GotoB \IfEnd \For 1\->G \To \Dim \List 2 \If E=\List 2[G] \Then 1\->S G\->R 0\->Q \Goto8 \IfEnd \Next 0\->B \For 1\->G \To \Dim \List 4 0\->N E=\List 4[G]\=>1\->N N=1\=>G\->U N=1\=>1\->B \Next \If B=1 \Then \Isz F \If C=0 \Then \Dsz F 6\->C \Text 55,5,"\theta\theta\theta\theta\theta\theta *" \IfEnd \Text 55,37,F 0\->\List 4[U] \IfEnd 0\->B \For 1\->G \To \Dim \List 3 0\->N E=\List 3[G]\=>1\->N N=1\=>G\->T N=1\=>1\->B \Next \If B=1\ And P<30 \Then \Orange \F-Line P+6,58,35,58 \Orange \F-Line P+6,57,35,57 \Orange \F-Line P+6,56,35,56 30\->P 0\->\List 3[T] \IfEnd \Lbl 9 \Text 1,1,"" \Lbl 1 \If O=0 \Then 0\->\List 2[R] \Goto2 \IfEnd \If S=1 \Then \Isz Q Q=4\=>1\->Q \If Q=1 \Then \For 57\->G \To 63 G=59\=>62\->G \Orange \F-Line M+4,31,G,4 \Next \For 31\->G \To 59 \Step +6 \Orange \Text G,10," " \Next \Text 1,1,"" P-3\->P \Orange \Text 5,6+P," " \Text 1,1,"" P\<=0\=>\Text 28,50,"GAME OVER"\DispP\<=0\=>\GotoA \IfEnd \IfEnd \If \Getkey=68\ And H=0:\Then \If D=1:\Then E+8\->E \IfEnd \If D=2:\Then \Isz E \IfEnd \If D=3:\Then E-8\->E \IfEnd \If D=4:\Then \Dsz E \IfEnd \Goto2 \IfEnd \If \Getkey=57:\Then \Isz D D=5\=>1\->D \Goto2 \IfEnd \If \Getkey=66:\Then D+2\->D D=5\=>1\->D:D=6\=>2\->D \Goto2 \IfEnd \If \Getkey=77:\Then D-1\->D D=0\=>4\->D \Goto2 \IfEnd \If \Getkey=78\ And C>0:\Then 0\->B A-83\->B B/3*1.5\->B A=83\=>0\->B A-55\->N N*3\->N \Text 46,\Int (A+B-2),"\aster" \Dsz C 0\->G \Int 3\Ran#-1\->G 32+G\->G \Text 55,5+C*4," " \Green \PlotOn N,G \Text 46,\Int (A+B-2)," " N>M\=>NO-5\->O \If C=0:\Then \Text 55,5," " \If F>1:\Then 6\->C F-1\->F \Text 55,5,"\theta\theta\theta\theta\theta\theta *" \Text 55,37,F \IfEnd \IfEnd \Text 46,1," " \IfEnd \If \Getkey=38\ Or \Getkey=27:\Then \If A\<=94\ And A\>=58:\Then \For 1\->G \To 20 \Getkey=38\=>A-2\->A \Getkey=27\=>A+2\->A \Next A>94\=>94\->A A<58\=>58\->A \Goto0 \IfEnd \Goto1 \Lbl 0 \For 51\->B \To 63 \Step 6 \Text B,49," " \Next \F-Line 80,3,A-3,12 \F-Line A-3,12,A+3,12 \F-Line A+3,12,86,3 A<83\=>\F-Line A-3,12,A-3,3 A\>=83\=>\F-Line A+3,12,A+3,3 \IfEnd \Goto1 \Lbl 2 \For 1\->B \To 56 \Step 6 \Green \Text B,4," " \Next \Text 1,1,"" 0\->I 0\->L 0\->S 1\->O \Text 1,1,"" \Goto3 \Lbl 8 \Int 82\Ran#+8\->M \Prog "D.ET" \Goto9 \GotoC \Cls \Text 27,58,"THE END"\Disp\GotoA %End