%Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:A Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:B Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:C Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:D Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:E Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:F Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:G Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:H Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:I Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:J Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:K Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:L Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:M Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:N Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:O Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:P Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Q Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:R Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:S Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:T Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:U Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:V Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:W Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:X Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Y Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Z Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\r Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\theta Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:161 File Name:GB\@2DDECO2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 1\->M \Do \If M=1 \Then 1\->I 63\->J 1\->H \Else 63\->I 1\->J \(-)1\->H \IfEnd \For I\->P \To J \Step H \Mat A[1,P]\->K 100(\Frac .01K)\->U \Int (100(\Frac .0001K))\->V \F-Line M,U+1,M,V \Isz M M=127\=>\Break \Next M=127\=>\Break \LpWhile 1=1 {1,1}\->\Dim \Mat A \StoPict 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2644 File Name:GB\@2DDECOR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Cls \If Z=\(-)1 \Then \RclPict 3 \Text 20,45,"CONTINUE?" \Text 58,1," YES NO " \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=29))=0 \If \Ans=29 \Then \Cls \Text 20,45,"PRESS EXE" \Stop \IfEnd \Cls \RclPict 3 \StoPict 1 \Return \IfEnd \Text 7,58,"\Dms\Dms\Dms" \Horizontal 57 \Text 1,5,"< >" \Text 1,35,":" \Text 1,32,"\theta" \Text 1,55,"{" \Text 1,69,"}" \F-Line 28,63,28,58 \F-Line 52,63,52,58 \F-Line 74,63,74,58 \F-Line 1,55,31,55 \PlotOn 31,56 \F-Line 127,55,97,55 \PlotOn 97,56 \Green \PlotOn 1,1 \Green \PlotOn 127,1 \Green \Horizontal 2 \F-Line 93,63,93,57 \F-Line 110,63,110,57 \StoPict 1 \If Z=1 \Then \StoV-Win 1 \ViewWindow -3,3,0,-2,4.5,0 \Rad \RclPict 1 \For -3\->M \To 3 \Step 0.047 \sin M\x^2\->N N<0\=>\F-Line M,\(-)1.5,M,N N\>=0\=>\F-Line M,\(-)1.55+N,M,N \Next \StoPict 1 \RclV-Win 1 \RclPict 1 \Deg \GotoZ \IfEnd Z=2\=>[[1610,1709,1809,1909,1908,1908,1908,1908,1908,1908,1908,1908,1908,1908,1908,1908,1907,1906,1906,1906,1906,1906,1906,1906,1906,1806,1706,1706,1706,1606,1506,1506,1606,1706,1706,1706,1705,1804,1904,2004,2004,2004,2004,1904,1804,1704,1704,1704,1704,1704,1804,1904,2004,2104,2104,2104,2104,2104,2104,2104,2104,2104,2104]]\->\Mat A Z=3\=>[[2610,2610,2511,2511,2511,2510,2509,2508,2507,2506,2505,2504,2604,2604,2604,2605,2706,2707,2808,2809,2809,2909,3009,3008,2708,2507,2406,2405,2304,2304,2204,2104,2104,2105,2006,2007,2008,2008,2008,2107,2105,2304,2304,2304,2304,2404,2404,2404,2304,2304,3004,2904,2804,2704,2704,2804,2904,2904,3004,3004,3004,3004,3004]]\->\Mat A Z=4\=>[[2808,2809,2809,2710,2711,2713,2615,2516,2517,2417,2417,2417,2418,2418,2317,2317,2316,2316,2316,2215,2215,2215,2215,2215,2215,2215,2215,2215,2316,2316,2316,2317,2417,2418,2419,2519,2518,2517,2516,2714,2713,2712,2711,2810,2810,2810,2810,2810,2811,2712,2713,2714,2616,2517,2418,2418,2418,2318,2318,2317,2217,2217,2217]]\->\Mat A Z=5\=>[[2714,2813,2913,2912,3011,3010,3110,3109,3109,3109,3108,3108,3107,3107,3107,3107,3007,3007,3007,3007,2907,2908,2908,2908,2909,2909,2809,2809,2809,2808,2703,2704,2706,2713,2714,2715,2615,2616,2519,2523,2317,2413,2413,2511,2511,2511,2610,2609,2607,2605,2504,2508,2509,2409,2409,2408,2408,2508,2507,2607,2707,2707,2707]]\->\Mat A Z=6\=>[[3004,3004,3004,3004,3004,3004,3004,3004,3004,3004,2920,2220,1614,2314,2404,2404,2404,2404,2404,2404,2404,2404,2404,2404,2404,2404,2314,1614,2321,3121,3204,3204,3204,3204,3204,3204,3204,3204,3204,3204,3204,3204,3121,2321,1917,2717,2804,2804,2804,2804,2804,2804,2804,2804,2804,2804,2804,2804,2717,2417,2419,2420,2421]]\->\Mat A Z=7\=>[[2304,2304,2104,2104,2704,2704,2504,2504,2704,2704,2504,2504,2704,2704,2104,2104,2304,2304,2104,2104,2304,2304,2104,2104,2304,2304,3104,3109,2910,2910,3109,3104,2304,2304,2104,2104,2304,2304,2104,2104,2304,2304,2904,3004,3104,3204,3204,3204,3204,3104,3004,2904,2304,2304,2504,2504,2304,2311,2513,2514,2315,2315,2515]]\->\Mat A Z=8\=>\Mat C\->\Mat A Z=9\=>\Mat D\->\Mat A Z=10\=>\Mat E\->\Mat A Z=11\=>\Mat F\->\Mat A Z=12\=>\Mat G\->\Mat A \Prog "GB-DECO2" \Lbl Z \Text 20,43,"SAVE MAP?" \Text 58,1," YES NO " \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=29))=0 \Cls \RclPict 1 \Ans=79\=>\StoPict 3 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:655 File Name:GB\@2DDEST Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \r>0\=>\Goto\r \If \Frac U>.5 \Then \Int U+1\->U \Else \Int U\->U \IfEnd \If \Frac V>0.5 \Then \Int V+1\->V \Else \Int V\->V \IfEnd \If U<2\ Or U>126\ Or V<4\ Or V>54 \Then V<54\=>3\->O \Return \IfEnd \PxlChg 64-V,U \PxlTest 64-V,U \PxlChg 64-V,U \Isz S U\->\List 1[S] V\->\List 2[S] \Ans=1\=>\Return T=5\=>\Return \Mat B[\Abs (G-3),11]\->M 25\->N M=6\ Or M=7\ Or M=9\=>36\->N M=10\=>49\->N \If (D-U)\x^2+((E+2)-V)\x^2\<=N \Then 1\->O \Return \Else 2\->O \Return \IfEnd \Lbl \r \If O=1 \Then D\->U E\->V \Else \List 1[S]\->U \List 2[S]\->V \IfEnd U>125\ Or U<2\ Or V<4\=>\Return \Cls \RclPict 1 T=4\ Or Z=3\=>4\->P Z>0\=>P<4\=>\Isz P \If P<4 \Then \For (\(-)P/2)\->N \To (P/2) \For (\(-)P/2)\->M \To (P/2) \PlotOff U+M,V+N \Next \Next \If P=2 \Then \PlotOff U,V+2 \PlotOff U,V-2 \PlotOff U-2,V \PlotOff U+2,V \Else \For 0\->M \To 1 \PlotOff U+M,V+3 \PlotOff U+M,V-2 \PlotOff U-2,V+M \PlotOff U+3,V+M \Next \IfEnd \IfEnd \If P\>=4 \Then \Text 62-V,U-2," " \For 0\->M \To 3 \PlotOff U-3,V-2+M \PlotOff U+2,V-2+M \Next \For 0\->M \To 1 \PlotOff U-4,V-1+M \PlotOff U+3,V-1+M \PlotOff U-1+M,V+3 \PlotOff U-1+M,V-4 \Next \IfEnd \StoPict 1 \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:442 File Name:GB\@2DMOB01 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \F-Line U-1,V+1,U+2,V+1 \F-Line U,V,U+1,V \If \cos W<0 \Then \F-Line U+2,V+2,U,V+3 \Else \F-Line U+1,V+3,U,V+3 \PlotOn U-1,V+2 \IfEnd \r=0\=>\Return Q=2\=>\Goto2 Q=3\=>\Goto3 \Green \F-Line 63,56,D,E \For 0\->M \To 180 \Step 30 \Green \F-Line D,E,D+5\cos M,E+5\sin M \Orange \F-Line D+7\cos M,E+7\sin M,D+9\cos M,E+9\sin M \Next \Int ((2+P)(.5\Abs (A-D)))\->R 2\->P \Goto4 \Lbl 2 \Orange \F-Line 63,56,D,E \Orange \F-Line 61,56,D-2,E \Orange \F-Line 65,56,D+2,E \sqrt((63-D)\x^2+(56-E)\x^2)\->M (M+0.3MP)/50\->M \Int (200M)\->R 3\->P \Goto4 \Lbl 3 \If D-A>0 \Then \Orange \F-Line A+3,V+3,D,E \Else \Orange \F-Line A-2,V+3,D,E \IfEnd \For 30\->M \To 360 \Step 30 \Orange \F-Line D,E,D+11\cos M,E+11\sin M \Next \Int (4+P)(125-\Abs (A-D))\->R 4\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:673 File Name:GB\@2DMOB02 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \F-Line U-1,V+1,U+1,V+1 \F-Line U-2,V+2,U+2,V+2 \PlotOn U-2,V \PlotOn U+2,V \If \cos W<0 \Then \F-Line U+2,V+3,U,V+5 \Else \F-Line U-2,V+3,U,V+5 \IfEnd \r=0\=>\Return Q=2\=>\Goto2 Q=3\=>\Goto3 \F-Line D,56,D,E+9 \For 80\->M \To 20 \Step \(-)20 \Green \PlotOn D+6\cos M,E+9(\sin M)\x^2 \Green \PlotOn D-6\cos M,E+9(\sin M)\x^2 \Next \Int (200(E/75+\sin C))\->R 2\->P \Goto4 \Lbl 2 \Orange \F-Line D,56,D+3,45 \Orange \F-Line D+3,45,D-2,27 \Orange \F-Line D+3,45,D+7,41 \Orange \F-Line D-2,27,D,E \Orange \F-Line D+7,41,D+5,35 \Orange \F-Line D+7,41,D+12,39 \Orange \F-Line D+12,39,D+13,35 \Orange \F-Line D+5,35,D+8,30 \Orange \F-Line D+8,30,D+6,26 \Orange \F-Line D,35,D-6,32 \Orange \F-Line D-6,32,D-8,28 \Orange \F-Line D-2,27,D-6,24 \Orange \F-Line D-6,24,D-7,19 \Orange \F-Line D-7,19,D-5,16 \Int ((P/3+.7)*13E)\->R 2\->P \Goto4 \Lbl 3 90\->N \For D\->M \To (D+4) \Step 2 \F-Line M,56,M,E+8\sin N \F-Line 2D-M,56,2D-M,E+8\sin N N>0\=>N-45\->N \Next \For 8\->M \To 24 \Step 4 \For 20\->N \To 160 \Step 40 \Green \PlotOn D+M\cos N,E+M\sin N \Green \PlotOn D+M\cos (N+20),E+M\sin (N+20) \Next \Next \Int ((9P+5)*(50-E))\->R 5\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:605 File Name:GB\@2DMOB03 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Green \F-Line U-2,V,U+3,V \If \cos W<0 \Then \Green \F-Line U-2,V+1,U+2,V+1 \Green \F-Line U-1,V+2,U+1,V+2 \PlotOff U-1,V+1 \Else \Green \F-Line U+3,V+1,U-1,V+1 \Green \F-Line U+2,V+2,U,V+2 \PlotOff U+2,V+1 \IfEnd \r=0\=>\Return Q=2\=>\Goto2 Q=3\=>\Goto3 2\->W \Do \Isz W \List 1[W]\->M \List 2[W]\->N \PlotOn M,N \LpWhile \List 1[W]\<>0\ And W<50 \For 20\->N \To 160 \Step 20 \F-Line D,E,D+8\cos N,E+8\sin N \Green \PlotOn D+11\cos N,E+11\sin N \Next \Int (200*(\Abs (B-D)/125)+35)\->R 4\->P \Goto4 \Lbl 2 2\->M \For 120\->N \To 40 \Step \(-)20 M+2\->M \Orange \PlotOn D+4+M\cos N,E+M(\sin N)\x^2 \Green \PlotOn D-4+M\cos (180-N),E+M(\sin (180-N))\x^2 \Next 2\->M \For 100\->N \To 60 \Step \(-)20 M+2\->M \Green \PlotOn D+2+M\cos N,E+6+M\sin N \Orange \PlotOn D-2+M\cos (180-N),E+6+M\sin (180-N) \Next \PlotOn D,E+14 \Int (201*(0.5+P))\->R 2\->P \Goto4 \Lbl 3 \Green \Circle D,E+2,6 \For 0\->M \To 340 \Step 20 \Green \F-Line D+7\cos M,E+2+7\sin M,D+11\cos M,E+2+11\sin M \Next \Int (380*((\Mat B[\Abs (G-3),4]/900)+0.6P))\->R 3\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:706 File Name:GB\@2DMOB04 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \F-Line U-2,V,U+3,V \F-Line U,V+4,U,V+5 \F-Line U+1,V+4,U+1,V+5 \If \cos W<0 \Then \F-Line U-3,V+1,U-3,V+2 \F-Line U-2,V+3,U+2,V+3 \F-Line U+1,V+2,U+3,V+2 \PlotOn U+4,V+1 \F-Line U-1,V+5,U-2,V+6 \Else \F-Line U+4,V+1,U+4,V+2 \F-Line U+3,V+3,U-1,V+3 \F-Line U,V+2,U-2,V+2 \PlotOn U-3,V+1 \F-Line U+2,V+5,U+3,V+6 \IfEnd \r=0\=>\Return Q=3\=>\Goto3 1\->W \While \List 1[W]\<>0\ And W<50 \List 1[W]\->M \List 2[W]\->N \If Q=2 \Then \Plot M,N+2 \Line \Else \Orange \PlotOn M,N+4 \IfEnd \Isz W \WhileEnd \If Q\<>2 \Then \For 30\->R \To 150 \Step 30 \F-Line M+6\cos R,N+4+6\sin R,M-6\cos R,N+4-6\sin R \Next \Int (275*((\sqrt((D-A)\x^2+(E-B)\x^2))/100)+40)\->R 3\->P \Goto4 \IfEnd \Plot D,E \Line \For 30\->M \To 150 \Step 20 \Orange \F-Line D,E,D+9\cos M,E+(20\sin M)\sin M \Next \Int (300*(\Max(\List 2)/55)+75)\->R 3\->P \Goto4 \Lbl 3 \Orange \Circle D,E+3,11 \For 0\->M \To 360 \Step 90 \Orange \F-Line D+14\cos M,E+3+14\sin M,D+6\cos M,E+3+6\sin M \Next \If \Frac (E/2)=0 \Then 54\->M \Else 55\->M \IfEnd \For M\->N \To E \Step \(-)2 \Green \PlotOn D,N \Next \For 20\->M \To 160 \Step 20 \F-Line D+9\cos M,E+9\sin M,D+17\cos M,E+17\sin M \Next \Int (400*(0.25P+\sin \Mat B[G,3]))\->R 4\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:693 File Name:GB\@2DMOB05 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \F-Line U-4,V+1,U+4,V+1 \If \cos W<0 \Then \F-Line U-4,V+2,U-3,V+3 \F-Line U-3,V+3,U-2,V+3 \F-Line U-2,V+2,U,V+4 \F-Line U,V+4,U+2,V+4 \F-Line U+2,V+4,U+4,V+2 \F-Line U-1,V,U-1,V \F-Line U+3,V,U+3,V \Else \F-Line U+4,V+2,U+3,V+3 \F-Line U+3,V+3,U+2,V+3 \F-Line U+2,V+2,U,V+4 \F-Line U,V+4,U-2,V+4 \F-Line U-2,V+4,U-4,V+2 \F-Line U-3,V,U-3,V \F-Line U+1,V,U+1,V \IfEnd \r=0\=>\Return Q=3\=>\Goto3 2\->W \While \List 1[W]\<>0\ And W<50 \List 1[W]\->M \List 2[W]\->N \If Q=1 \Then \Green \F-Line M,N,\List 1[W-1],\List 2[W-1] \Else \Green \F-Line M,N+2,\List 1[W-1],\List 2[W-1]-2 \Green \F-Line M,N-2,\List 1[W-1],\List 2[W-1]+2 \IfEnd \Isz W \WhileEnd \If Q=1 \Then \For 30\->M \To 150 \Step 30 \Orange \PlotOn D+7\cos M,E+7\sin M \Next \Int 25I\->R 2\->P \Else \Green \F-Line \List 1[W-1],\List 2[W-1]+2,D,E \Green \F-Line \List 1[W-1],\List 2[W-1]-2,D,E \Int (25I+100\sin C)\->R 3\->P \IfEnd \Goto4 \Lbl 3 \For 20\->M \To 160 \Step 20 \Orange \F-Line D+9\cos M*\sin M,E+9\sin M,D+15\cos M*\sin M,E+15\sin M \Orange \F-Line D-9\cos M*\sin M,E-9\sin M,D-15\cos M*\sin M,E-15\sin M \Next \Abs (U-D)/127\->M \Int (350*(M+P)+50)\->R 4\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:847 File Name:GB\@2DMOB06 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If \cos W<0 \Then \F-Line U-2,V+1,U+4,V+1 \F-Line U+4,V+2,U+4,V+3 \F-Line U+4,V+3,U+2,V+5 \F-Line U+2,V+5,U-1,V+5 \F-Line U-1,V+5,U-1,V+3 \F-Line U-2,V+2,U-3,V+2 \F-Line U-4,V+1,U-4,V+5 \F-Line U-3,V+6,U-2,V+6 \F-Line U-4,V+1,U-5,V+1 \F-Line U-5,V+3,U-6,V+4 \F-Line U,V,U,V \F-Line U+3,V,U+3,V \Else \F-Line U+2,V+1,U-4,V+1 \F-Line U-4,V+2,U-4,V+3 \F-Line U-4,V+3,U-2,V+5 \F-Line U-2,V+5,U+1,V+5 \F-Line U+1,V+5,U+1,V+3 \F-Line U+2,V+2,U+3,V+2 \F-Line U+4,V+1,U+4,V+5 \F-Line U+3,V+6,U+2,V+6 \F-Line U+4,V+1,U+5,V+1 \F-Line U+5,V+3,U+6,V+4 \F-Line U,V,U,V \F-Line U-3,V,U-3,V \IfEnd \r=0\=>\Return Q=2\=>\Goto2 Q=3\=>\Goto3 \F-Line D,55,D,E+10 \For 20\->M \To 160 \Step 20 \Green \F-Line D,E+10,D+7\cos M,E+10+7\sin M \Next \Max(\List 2)\->M \Int ((M/55)*225)\->R 2\->P \Goto4 \Lbl 2 \For 20\->M \To 160 \Step 20 \Green \F-Line D+7\cos M,E+7\sin M,D+9\cos M,E+9\sin M \F-Line D+9\cos M,E+9\sin M,D+9\cos M,E+9\sin M+3 \Next \Int (110*(.5+P)+23I)\->R 3\->P \Goto4 \Lbl 3 \For 0\->M \To 330 \Step 30 \F-Line D+4\cos M,E+3+4\sin M,D+7\cos M,E+3+7\sin M \Green \F-Line D+7\cos M,E+3+7\sin M,D+15\cos (M+20),E+3+15\sin (M+20) \Green \F-Line D+7\cos M,E+3+7\sin M,D+15\cos (M-20),E+3+15\sin (M-20) \Next \sqrt((\List 1[S]-D)\x^2+(\List 2[S]-E)\x^2)\->M M<1.5\=>1.5\->M \Int (227*(5/M))\->R 4\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:788 File Name:GB\@2DMOB07 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If \cos W<0 \Then \F-Line U,V,U,V+7 \F-Line U-1,V+6,U-3,V+4 \PlotOn U-5,V+5 \F-Line U-4,V+4,U-4,V+3 \F-Line U-4,V+2,U-2,V+2 \F-Line U-2,V+1,U-1,V+1 \F-Line U,V+5,U+3,V+5 \F-Line U+3,V+5,U+5,V+3 \F-Line U,V,U+1,V \PlotOn U+2,V+1 \F-Line U+3,V,U+4,V \F-Line U+4,V+1,U+7,V+4 \Else \F-Line U+1,V,U+1,V+7 \F-Line U+2,V+6,U+4,V+4 \PlotOn U+6,V+5 \F-Line U+5,V+4,U+5,V+3 \F-Line U+5,V+2,U+3,V+2 \F-Line U+3,V+1,U+2,V+1 \F-Line U+1,V+5,U-2,V+5 \F-Line U-2,V+5,U-4,V+3 \F-Line U+1,V,U,V \PlotOn U-1,V+1 \F-Line U-2,V,U-3,V \F-Line U-3,V+1,U-6,V+4 \IfEnd \r=0\=>\Return Q=3\=>\Goto3 3\->W \While \List 1[W]\<>0\ And W<50 \List 1[W]\->M \List 2[W]\->N Q=2\=>\Green \PlotOn M,N+2 \Green \PlotOn M,N Q=2\=>\Green \PlotOn M,N-2 \Isz W \WhileEnd 7\->N Q=2\=>10\->N \For -30\->M \To 210 \Step 30 M\<>90\=>\Orange \F-Line D,E+3,D+N\cos M,E+3+N\sin M \Next \If Q=1 \Then \Int ((\Abs \cos C+.5P)*150)\->R 1\->P \Else \Int ((\sin C+.5P)*300)\->R 3\->P \IfEnd \Goto4 \Lbl 3 \For 0\->M \To 330 \Step 30 \Orange \F-Line D+4\cos M,E+3+4\sin M,D+7\cos M,E+3+7\sin M \F-Line D+7\cos M,E+3+7\sin M,D+12\cos (M+30),E+3+12\sin (M+30) \Green \F-Line D+7\cos M,E+3+7\sin M,D+12\cos (M-30),E+3+12\sin (M-30) \Next \Int ((\Abs (U-D)/120)*450)\->R Z=3\=>\Int 1.2R\->R 4\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:562 File Name:GB\@2DMOB08 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \F-Line U-3,V+1,U+3,V+1 \PlotOn U-1,V \PlotOn U+1,V \If \cos W<0 \Then \F-Line U-3,V+2,U-2,V+2 \F-Line U,V+2,U+4,V+2 \F-Line U+1,V+3,U+4,V+3 \PlotOn U+4,V \Else \F-Line U+3,V+2,U+2,V+2 \F-Line U,V+2,U-4,V+2 \F-Line U-1,V+3,U-4,V+3 \PlotOn U-4,V \IfEnd \r=0\=>\Return Q=2\=>\Goto2 Q=3\=>\Goto3 \For 30\->M \To 150 \Step 30 \Green \F-Line D+5\cos M,E+5\sin M,D+9\cos M,E+9\sin M \Next \Int (120*(0.5+(E/50)+0.7P))\->R 2\->P \Goto4 \Lbl 2 1\->W \Do \Isz W \List 1[W]\->M \List 2[W]\->N \PlotOn M,N \LpWhile \List 1[W]\<>0\ And W<50 \Green \F-Line 55,57,D+5,E-2 \Green \F-Line 71,57,D-5,E-2 \Green \F-Line 63,57,D,E-2 \Int (300*(0.7+0.25P))\->R 2\->P \Goto4 \Lbl 3 1\->W \Do \Isz W \List 1[W]\->M \List 2[W]\->N M=0\ Or N=0\=>\Break \Green \Text 62-N,M-2,"\aster" \LpWhile W<50 \For 20\->M \To 180 \Step 20 \Orange \F-Line D-10\cos M,E-10\sin M,D+10\cos M,E+10\sin M \Next \Int (400*(0.35+\Abs (A-D)/120))\->R 3\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:940 File Name:GB\@2DMOB09 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 1\->N \cos W<0\=>\(-)1\->N \F-Line U,V,U-3N,V \F-Line U+N,V+1,U-4N,V+1 \F-Line U+N,V+2,U-N,V+2 \F-Line U,V+3,U+N,V+3 \F-Line U,V+4,U+3N,V+4 \F-Line U,V+5,U+3N,V+5 \F-Line U+N,V+6,U+2N,V+6 \PlotOff U+2N,V+5 \PlotOn U-4N,V+2 \r=0\=>\Return Q=2\=>\Goto2 Q=3\=>\Goto3 \For -60\->M \To 60 \Step 20 \F-Line D+3,E+3,D+3+7\cos M,E+3+7\sin M \Next \For 120\->M \To 240 \Step 20 \F-Line D-3,E+3,D-3+7\cos M,E+3+7\sin M \Next \Int ((150*(\Abs (U-D)/127))+13I)\->R 2\->P \Goto4 \Lbl 2 \Green \F-Line U-2N,V+3,U,V+2 \Green \F-Line U-3N,V+4,U-N,V+4 \Green \F-Line U-2N,V+5,U-N,V+5 \Green \F-Line U-N,V+6,U+4N,V+6 \Green \F-Line U,V+7,U+5N,V+7 \Green \F-Line U,V+8,U+4N,V+8 \Green \F-Line U+N,V+9,U+3N,V+9 \Green \PlotOn U+2N,V+10 1\->P \While \List 1[P]\<>0 \Isz P \WhileEnd P-1\->P \For 1\->W \To P \List 1[W]\->M \List 2[W]\->N (V+9-\List 2[1])*(P-W)/P\->R \Orange \F-Line M,N+R,\List 1[W+1],\List 2[W+1]+R \Next \For 20\->M \To 160 \Step 20 \F-Line D,E+3,D+9\cos M,E+3+(16\sin M)*\Abs \sin M \Next \Int (350*((\Abs (U-D))/100))+25\->R 4\->P \Goto4 \Lbl 3 E+8\->M \Frac (E/2)\<>0\=>E+9\->M \For 54\->N \To M \Step \(-)2 \Green \PlotOn D,N \Next \F-Line D-1,M,D+1,M \F-Line D-2,M+1,D+2,M+1 \F-Line D-2,M+2,D+2,M+2 \F-Line D-2,M+3,D+2,M+3 \F-Line D-1,M+4,D+1,M+4 \F-Line D,M+5,D,M+5 \F-Line D+1,M+6,D+3,M+7 \PlotOn D+3,M+9 \PlotOn D+5,M+6 \PlotOn D+6,M+8 \For 0\->N \To 330 \Step 30 \Orange \F-Line D+4\cos N,M+2+4\sin N,D+(16\cos N)*\Abs \cos M,M+2+8\sin N \Next \Int (((50-E)/40)*450)\->R 4\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:969 File Name:GB\@2DMOB10 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 1\->N \cos W>0\=>\(-)1\->N \Green \F-Line U-4N,V+7,U,V+7 \Green \F-Line U-7N,V+6,U-N,V+6 \Green \F-Line U-7N,V+5,U-2N,V+5 \Green \F-Line U-5N,V+4,U-3N,V+4 \Green \F-Line U-4N,V+3,U-2N,V+3 \Green \F-Line U-4N,V+2,U+N,V+2 \Green \F-Line U-3N,V+1,U+5N,V+1 \Green \F-Line U-3N,V,U+3N,V \Green \F-Line U-2N,V-1,U+N,V-1 \Green \F-Line U,V+3,U+2N,V+3 \Green \F-Line U,V+4,U+3N,V+4 \Green \F-Line U+N,V+5,U+4N,V+5 \Green \F-Line U+5N,V+2,U+6N,V+2 \Green \PlotOn U+7N,V+3 \PlotOff U+N,V+3 \PlotOff U+2N,V+4 \PlotOff U-2N,V+7 \PlotOff U-4N,V+6 \Green \PlotOn U-6N,V+3 \r=0\=>\Return Q=2\=>\Goto2 Q=3\=>\Goto3 \Orange \F-Line D-3,E+1,D-4,E+3 \Orange \F-Line D-5,E+4,D-4,E+7 \Orange \F-Line D-3,E+8,D-2,E+11 \Orange \F-Line D-1,E+12,D+3,E+15 \Orange \F-Line D+3,E+14,D+1,E+10 \Orange \F-Line D+2,E+9,D+5,E+5 \Orange \F-Line D+5,E+4,D+3,E+1 \Orange \F-Line D-1,E+2,D-1,E+5 \Orange \F-Line D,E+1,D,E+7 \Orange \F-Line D+1,E+2,D+1,E+5 \Int (180*(.5\sin C+(120-\Abs (D-U))/127))\->R 1\->P \Goto4 \Lbl 2 4\->W 2\->P \While \List 1[W]\<>0\ And W<50 \List 1[W]\->M \List 2[W]\->N \Orange \F-Line \List 1[W-1],\List 2[W-1],M,N-P \Orange \F-Line \List 1[W-2],\List 2[W-2]+2,\List 1[W-1],\List 2[W-1]+2+P \Abs (P-2)\->P \Isz W \WhileEnd \Int (270*(.5\Abs \cos C+(\Abs (D-U)/127)+.15P)\->R 2\->P \Goto4 \Lbl 3 \For 1\->N \To 2 \For 55\->M \To 5 \Step \(-)5 \Orange \F-Line D,M,D+N*((55-M)/5),M-5 \F-Line D+N*((55-M)/5),M-5,D,M-10 \Orange \F-Line D,M,D-N*((55-M)/5),M-5 \F-Line D-N*((55-M)/5),M-5,D,M-10 \Next \Next \Int (450*(\Abs \tan C+(\Abs (E/50)))\->R 3\->P \Lbl 4 0\->M %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1775 File Name:GB BASE1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \R b0=1\=>\GotoZ \Lbl 0 \Do \Getkey \LpWhile \Ans=0 \Ans\->S \If \Frac 0.1S=.9 \Then \Int 0.1S\->S \If S>4 \Then \PlotOff 59+4(\Mat B[G,5]-1),56 \If \Abs (S-8)=3\ And \Mat B[G,6]=0 \Then 3\->\Mat B[G,5] 8\->\Mat B[G,6] \Else \Abs (S-8)\<>3\=>\Abs (S-8)\->\Mat B[G,5] \IfEnd \PlotOn 59+4(\Mat B[G,5]-1),56 \Else T>0\=>\Goto0 \Abs (S-5)\->S \Mat B[G,6+S]\->T \If T=2 \Then \Mat B[G,4]+350\->\Mat B[G,4] \Mat B[G,4]>1200\=>1200\->\Mat B[G,4] \Mat B[G,4]*.1/4\->M \If G=1 \Then \Green \F-Line 1,56,M,56 \Else \Green \F-Line 127,56,127-M,56 \IfEnd \IfEnd \If T=3 \Then D\->\Mat B[G,1] E\->\Mat B[G,2] A\->\Mat B[\Abs (G-3),1] B\->\Mat B[\Abs (G-3),2] \IfEnd \If \Mat B[G,5]=3\ And T=1 \Then 0\->T \Else 0\->\Mat B[G,6+S] \Text 1,78+19(S-1)," " \IfEnd \If T=2\ Or T=3 \Then \theta=0\=>\Return \GotoX \IfEnd \Goto0 \IfEnd \IfEnd S=38\ Or S=27\=>\Goto2 S=31\=>\Goto9 \Lbl 1 \PlotChg A+9\cos C,B+2+9\sin C \Do \Getkey\->S \If S=28 \Then \cos C>0\=>C<80\=>C+2\->C \cos C<0\=>C>100\=>C-2\->C \IfEnd \If S=37 \Then \cos C>0\=>C>20\=>C-2\->C \cos C<0\=>C<160\=>C+2\->C \IfEnd \Text 1,38,C \LpWhile (S=28)\ Or (S=37) \PlotChg A+9\cos C,B+2+9\sin C \Goto0 \Lbl 2 \Do \Getkey\->S \If S=27 \Then \cos C<0\=>180-C\->C \Cls \RclPict 2 \R a2=0\=>\Break \R a2-1\->\R a2 A<125\=>\PxlTest 64-B,A+1 \Ans=0\=>B\<=50\=>A<125\=>\Isz A \If \Ans=1\ And B\<=50\ And A<125 \Then \PxlTest 63-B,A+1 \Ans=0\=>\Isz B \Ans=0\=>\Isz A \IfEnd \IfEnd \If S=38 \Then \cos C>0\=>180-C\->C \Cls \RclPict 2 \R a2=0\=>\Break \R a2-1\->\R a2 A>3\=>\PxlTest 64-B,A-1 \Ans=0\=>B\<=50\=>A>3\=>\Dsz A \If \Ans=1\ And B\<=50\ And A>3 \Then \PxlTest 63-B,A-1 \Ans=0\=>\Isz B \Ans=0\=>\Dsz A \IfEnd \IfEnd \While 1=1 \PxlTest 65-B,A \Ans=0\=>\Dsz B \Ans=1\=>\Break \WhileEnd \Green \F-Line 1,1,12.6*\R a2,1 \PlotOn A,B \LpWhile (S=27)\ Or (S=38) \PlotOff A,B A\->U B\->V C\->W \Mat B[G,11]\->M M=1\=>\Prog "GB-MOB01" M=2\=>\Prog "GB-MOB02" M=3\=>\Prog "GB-MOB03" M=4\=>\Prog "GB-MOB04" M=5\=>\Prog "GB-MOB05" M=6\=>\Prog "GB-MOB06" M=7\=>\Prog "GB-MOB07" M=8\=>\Prog "GB-MOB08" M=9\=>\Prog "GB-MOB09" M=10\=>\Prog "GB-MOB10" \PlotChg A+9\cos C,B+2+9\sin C \Text 1,38,C \PlotOn 59+4(\Mat B[G,5]-1),56 \Goto0 \Lbl 9 A\->\Mat B[G,1] B\->\Mat B[G,2] C\->\Mat B[G,3] \Cls \RclPict 2 \PlotOn A,B \Do I+.25\->I \F-Line 1,1,10I,1 10I\->\Mat B[G,10] \LpWhile \Getkey=31 A\->U B\->V C\->W 0\->S \Lbl X \If G=\theta \Then \ClrText " " \Locate 1,1,"TRANSMITTING..." \Locate 1,3,"CODE1:000000001" C>99\=>\Locate 7,3,C C\<=99\=>\Locate 8,3,C A>99\=>\Locate 10,3,A A\<=99\=>\Locate 11,3,A \Locate 13,3,B \Locate 1,5,"CODE2:00001" \Locate 7,5,100I \Locate 10,5,T \Locate 11,5,\Mat B[G,5] \If \theta=1 \Then \Locate 1,7,"CODE3:00001" \If L<0 \Then \Abs (100\Frac L)+100\->M \Locate 7,7,M \Else \Abs (100\Frac L)\->M M<100\=>M>9\=>\Locate 8,7,M M<10\=>\Locate 9,7,M \IfEnd \Locate 10,7,Z \IfEnd\Disp\IfEnd \If T=2\ Or T=3 \Then T=2\=>A\->\Mat B[G,1] T=2\=>B\->\Mat B[G,2] \Return \IfEnd \Lbl Z \R b0=0\=>\GotoW \Cls \RclPict 2 A\->U B\->V C\->W \Lbl W 0\->\R b0 \Prog "GB BASE2" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:130 File Name:GB BASE2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record B+2\->V (I/1.2)\cos C\->J (I/1.2)\sin C\->H C\->W \While V>4 (D-U)\x^2+(E+2-V)\x^2\<=25\=>1\->O O=1\=>\Break J+(L/1.1)\->J H-0.3\->H U+J\->U V+H\->V \Prog "GB-DEST" \Ans=0\ Or O>0\=>\Break \WhileEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:8197 File Name:GUNBOUND Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ViewWindow 1,127,0,1,63,0 \Deg:\GridOff:\AxesOff:\BG-None:0\->A~Z {2,11}\->\Dim \Mat B \For 1\->A \To 5 \Cls A=1\=>\Green \Text 26,46,"NEURONIX" A=2\=>\Green \Text 26,53,"\ And " A=3\=>\Green \Text 26,47,"MUELSACO" A=4\=>\Green \Text 26,48,"PRESENT" \For 1\->B \To 50 \Next \Next \Cls \Text 26,46,"GUNBOUND" 84\->U 84\->A 27\->V 3\->Q 1\->\r 134\->W 40\->D 30\->E \Prog "GB-MOB01" \For 45\->A \To 80 \Step 35 \Green \F-Line A,14,A,12 \If A=45 \Then \Green \PlotOn 44,13 \Else \Green \PlotOn 81,13 \IfEnd \Next \StoPict 1 \File1:0\->A~Z:0\->\R a0:0\->\R a1:0\->\R a2:0\->\R b0:0\->\R b1:0\->\R b2:0\->\r:0\->\theta \Lbl 0 \Text 49,51," " \theta=\(-)1\=>\Text 49,55,"FAST" \theta=0\=>\Text 49,57,"LAN" \theta=1\=>\Text 49,57,"NET" \theta=2\=>\Text 49,55,"HELP" \theta=3\=>\Text 49,55,"INFO" \theta=4\=>\Text 49,55,"QUIT" \Do \Getkey \LpWhile ((\Ans=27)\ Or (\Ans=38)\ Or (\Ans=31))=0 \Ans=27\=>\theta<4\=>\theta+1\->\theta \Ans=38\=>\theta>\(-)1\=>\theta-1\->\theta \Ans\<>31\=>\Goto0 \If \theta=4 \Then \ViewWindow -10,10,1,-10,10,1 \AxesOn \ClrText \Stop \IfEnd \If \theta=2 \Then \Cls \Text 1,46,"GUNBOUND" \Text 13,1,"CONTROLES" \Text 22,1,"UP\slashDOWN\->ANGLE" \Text 29,1,"LEFT\slashRIGHT\->MOVE" \Text 36,1,"F1~F3\->SHOT CHOICE" \Text 43,1,"F4~F6\->BONUS" \Text 50,1,"EXE\->FORCE"\Disp\Cls \Text 1,46,"GUNBOUND" \Text 15,1,"FAST MODE\->RANDOM START" \Text 25,1,"LAN MODE\->1 VS 1 ON SAME CASIO" \Text 35,1,"NET MODE\->PLAY AGAINST ANYONE" \Text 42,1,"ON EARTH VIA CHAT OR SMS!"\Disp\Cls \Text 1,46,"GUNBOUND" \Text 25,33,"CREATE YOUR OWN" \Text 38,25,"MAPS WITH MAPMAKER"\Disp\Cls \RclPict 1 \Goto0 \IfEnd \If \theta=3 \Then \Cls \Text 1,35,"GUNBOUND CASIO" \Text 15,59,"BY" \Text 25,47,"NEURONIX" \Text 37,57,"AND" \Text 49,47,"MUELSACO"\Disp\Text 15,54,"VISIT" \For 25\->M \To 49 \Step 24 \Text M,23,"WWW." \Text M,82,".FR.ST" \Next \Disp\Cls \Text 3,46,"GUNBOUND" \Text 20,23,"PROPRIETY OF SOFTYNX" \Text 30,33,"BY THE GIS\(-)TEAM" \Text 42,41,"DOWNLOAD AT" \Text 58,27,"WWW.GUNBOUND.NET"\Disp\Cls \RclPict 1 \Goto0 \IfEnd \If \theta=\(-)1 \Then \Int 10\Ran#+1\->\Mat B[1,11] \Int 10\Ran#+1\->\Mat B[2,11] \For 1\->M \To 2 \For 7\->N \To 9 \Int 5\Ran#+1\->\Mat B[M,N] \Next \Next 0\->\theta \Int 7\Ran#+1\->Z \Prog "GB-DECOR" \GotoE \IfEnd \theta=0\=>\Goto2 \Lbl 1 \Text 49,51," " \theta=3\=>\Text 49,55,"BACK" \theta=1\=>\Text 49,51,"CREATE" \theta=2\=>\Text 49,54,"JOIN" \Do \Getkey \LpWhile ((\Ans=27)\ Or (\Ans=38)\ Or (\Ans=31))=0 \Ans=27\=>\theta<3\=>\Isz \theta \Ans=38\=>\theta>1\=>\Dsz \theta \Ans\<>31\=>\Goto1 \If \theta=3 \Then 0\->\theta \Goto0 \IfEnd \Lbl 2 \Cls \If \theta>0 \Then \theta=1\=>\Graph Y<5X-410 \theta=2\=>\Graph Y<-5X+330 \IfEnd \For 22\->A \To 86 \Step 64 \theta=2\=>86\->A \If \theta=0 \Then \Text 2,47,"LAN GAME" \Else \Text 2,57,"NET" \IfEnd \F-Line A,57,A+20,57 \F-Line A+20,57,A+20,37 \F-Line A+20,37,A,37 \F-Line A,37,A,57 \theta=1\=>\Break \Next \For 30\->A \To 95 \Step 65 \theta=2\=>95\->A \F-Line A,59,A+2,59 \PlotOn A+1,60 \F-Line A,35,A+2,35 \PlotOn A+1,34 \theta=1\=>\Break \Next \If \theta<2 \Then \F-Line 47,48,81,48 \F-Line 81,48,81,40 \F-Line 81,40,47,40 \F-Line 47,40,47,48 \F-Line 45,45,45,43 \F-Line 83,45,83,43 \PlotOn 44,44 \PlotOn 84,44 0\->Z \Do Z=0\=>\theta=1\=>1\->Z Z>7\=>\theta=1\=>7\->Z Z\<=0\=>\Text 18,51,"RANDOM" Z=-1\=>\Text 18,50,"CURRENT" Z=1\=>\Text 18,53,"HUMPS" Z=2\=>\Text 18,56,"DOCK" Z=3\=>\Text 18,58,"BAT" Z=4\=>\Text 18,55,"META" Z=5\=>\Text 18,54,"TEETH" Z=6\=>\Text 18,56,"COZY" Z=7\=>\Text 18,53,"CASTLE" \If Z>7 \Then \Text 18,53,"MAP" \Text 18,70,Z-7 \IfEnd \Do \Getkey \LpWhile \Ans=0 \Ans=27\=>Z<12\=>\Isz Z \Ans=38\=>Z>\(-)1\=>\Dsz Z \Ans\<>31\=>\Text 18,48," " \LpWhile \Ans\<>31 Z=0\=>\Int 5\Ran#+1\->Z \IfEnd 0\->A~Y 31\->U 45\->V \For 1\->G \To 2 0\->P \theta=2\=>2\->G \StoPict 1 \If G=1 \Then 0\->W \Else 45\->V 180\->W 96\->U \IfEnd \Lbl 3 \Cls \RclPict 1 \If P=0 \Then \Text 61-V,U-1,"?" \Text 58,51,"RANDOM" \IfEnd \If P=1 \Then \Prog "GB-MOB01" \Text 58,53,"LASER" \IfEnd \If P=2 \Then \Prog "GB-MOB02" \Text 58,56,"ELEC" \IfEnd \If P=3 \Then \Prog "GB-MOB03" \Text 58,56,"GRUB" \IfEnd \If P=4 \Then \Prog "GB-MOB04" \Text 58,55,"TANK" \IfEnd \If P=5 \Then \Prog "GB-MOB05" \Text 58,51,"TURTLE" \IfEnd \If P=6 \Then \Prog "GB-MOB06" \Text 58,49,"MAMMOTH" \IfEnd \If P=7 \Then \Prog "GB-MOB07" \Text 58,54,"TRICO" \IfEnd \If P=8 \Then \Prog "GB-MOB08" \Text 58,53,"ADUKA" \IfEnd \If P=9 \Then \Prog "GB-MOB09" \Text 58,55,"WORM" \IfEnd \Do \Getkey \LpWhile ((\Ans=28)\ Or (\Ans=37)\ Or (\Ans=31))=0 \Ans=28\=>P-1\->P \Ans=37\=>P+1\->P P=\(-)1\=>9\->P P=10\=>0\->P \Ans\<>31\=>\Goto3 P=0\=>\Int 12\Ran#+1\->P P>9\=>10\->P G=1\=>P\->\Mat B[1,11] G=2\=>P\->\Mat B[2,11] \Text 58,48," " \StoPict 1 \For 38\->V \To 54 \Step 8 \F-Line U-17,63-V,U-17,61-V \F-Line U+17,63-V,U+17,61-V \PlotOn U-18,62-V \PlotOn U+18,62-V \StoPict 1 1\->P \(-)11\->X \Lbl 4 X\<>\(-)11\=>\Cls \RclPict 1 P=1\=>\Text V,U-7,"DUAL" P=2\=>\Text V,U-9,"SOINS" P=3\=>\Text V,U-7,"SWAP" P=4\=>\Text V,U-9,"SPADE" P=5\=>\Text V,U-15,"TELEPORT" \Do \Getkey \LpWhile ((\Ans=27)\ Or (\Ans=38)\ Or (\Ans=31))=0 \Ans=27\=>P+1\->P \Ans=38\=>P-1\->P P=0\=>5\->P P=6\=>1\->P \Ans\<>31\=>\Goto4 P\->\Mat B[G,6+((V-30)/8)] \StoPict 1 \Next \theta=1\=>\Break \Next \theta=2\=>\GotoF \Prog "GB-DECOR" \Lbl E \Int 122\Ran#+3\->A \Int 122\Ran#+3\->C 40\->B 40\->D \Abs (A-C)<15\=>\GotoE \For 1\->G \To 2 \Do G=1\=>\PxlTest 65-B,A G=2\=>\PxlTest 65-D,C \Ans=0\=>G=1\=>\Dsz B \Ans=0\=>G=2\=>\Dsz D \LpWhile \Ans=0 \Next \theta=0\=>\GotoG \Lbl F \ClrText \If \theta=1 \Then "TRANSMITTING..." \Locate 1,3,"CODE1:0000001" \Locate 1,5,"CODE2:000000000" \Locate 7,3,\Mat B[1,11]-1 A>99\=>\Locate 8,3,A A\<=99\=>\Locate 9,3,A \Locate 11,3,B C>99\=>\Locate 7,5,C C\<=99\=>\Locate 8,5,C \Locate 10,5,D \Locate 12,5,\Mat B[1,7] \Locate 13,5,\Mat B[1,8] \Locate 14,5,\Mat B[1,9] \Locate 15,5,Z\Disp\ClrText "RECEPTION..." " " "CODE:"?\->J J*1\EE\(-)3\->J \Int J+1\->\Mat B[2,11] \Frac J\->J \Int 10J\->\Mat B[2,7] \Frac 10J\->J \Int 10J\->\Mat B[2,8] 10\Frac 10J\->\Mat B[2,9] \Else 1\->J \ClrText "RECEPTION..." " " "CODE1:"?\->I "CODE2:"?\->J \Int 0.1I\->I 1\EE\(-)6I\->I \Int 10I+1\->\Mat B[1,11] \Frac 10I\->I \Int 1000I\->A \Frac 1000I\->I \Int 100I\->B 10\Frac .1J\->Z \Int .1J\->J 10\Frac \Int 0.1J\->\Mat B[1,9] \Int .1J\->J 10\Frac .1J\->\Mat B[1,8] \Int .1J\->J 10\Frac .1J\->\Mat B[1,7] \Int .1J\->J 1\EE\(-)5*J\->J \Int 1000J\->C \Frac 1000J\->J \Int 100J\->D \ClrText " " \Locate 1,1,"TRANSMITTING..." \Locate 1,3,"CODE:" \Locate 6,3,\Mat B[2,11]-1 \Locate 7,3,\Mat B[2,7] \Locate 8,3,\Mat B[2,8] \Locate 9,3,\Mat B[2,9]\Disp\Prog "GB-DECOR" \IfEnd 0\->I~J \Lbl G A\->\Mat B[1,1] B\->\Mat B[1,2] C\->\Mat B[2,1] D\->\Mat B[2,2] \For 1\->G \To 2 46\->\Mat B[G,3] 1200\->\Mat B[G,4] 1\->\Mat B[G,5] \Next \Lbl A O=4\=>\GotoZ \R b1+1\->\R b1 10\->\R a2 \For 1\->M \To 2 \Mat B[M,5]=3\=>1\->\Mat B[M,5] \Mat B[M,6]>0\=>\Mat B[M,6]-1\->\Mat B[M,6] \Next 0\->\R b0 0\->A~F 0\->H~K 0\->M~Y 40\->\Dim \List 1 40\->\Dim \List 2 \Cls \RclPict 1 \Isz G G=3\=>1\->G \Mat B[G,1]\->A \Mat B[G,2]\->B \Mat B[G,3]\->C \Mat B[\Abs (G-3),1]\->D \Mat B[\Abs (G-3),2]\->E \If G=1\ And \theta=2 \Then \ClrText "RECEPTION..." " " "CODE1:"?\->J \Int .1J\->J 1\EE\(-)8*J\->J \Int 1000J\->C \Frac 1000J\->J \Int 1000J\->A \Frac 1000J\->J \Int 100J\->B "CODE2:"?\->J 10\Frac .1J\->\Mat B[G,5] \Int .1J\->J 10\Frac .1J\->T \Int .1J\->J 10\Frac .001J\->I "CODE3:"?\->J \Int .1J\->J 10\Frac .1J\->Z \Int .1J\->J \If J>100 \Then \(-).01(J-100)\->L \Else .01J\->L \IfEnd A\->\Mat B[G,1] B\->\Mat B[G,2] C\->\Mat B[G,3] \Mat B[G,5]\->Q 0\->J 1\->\R b0 \If T=2 \Then \Mat B[1,4]+350\->\Mat B[1,4] \GotoA \IfEnd \If T=3 \Then \Mat B[2,1]\->\Mat B[1,1] \Mat B[2,2]\->\Mat B[1,2] A\->\Mat B[1,1] B\->\Mat B[1,2] \GotoA \IfEnd \IfEnd \For 1\->M \To 2 \Do M=1\=>\PxlTest 65-B,A M=2\=>\PxlTest 65-E,D \Ans=0\=>M=1\=>\Dsz B \Ans=0\=>M=2\=>\Dsz E B=4\ Or E=4\=>4\->O O=4\=>\Break \LpWhile \Ans=0 O=4\=>\Break \Next O=4\=>\GotoZ B\->\Mat B[G,2] E\->\Mat B[\Abs (G-3),2] D\->U E\->V \Mat B[\Abs (G-3),3]\->W \Mat B[\Abs (G-3),11]\->M M=1\=>\Prog "GB-MOB01" M=2\=>\Prog "GB-MOB02" M=3\=>\Prog "GB-MOB03" M=4\=>\Prog "GB-MOB04" M=5\=>\Prog "GB-MOB05" M=6\=>\Prog "GB-MOB06" M=7\=>\Prog "GB-MOB07" M=8\=>\Prog "GB-MOB08" M=9\=>\Prog "GB-MOB09" M=10\=>\Prog "GB-MOB10" \Mat B[1,4]*.1/4\->\R a0 \Orange \F-Line 1,56,\R a0,56 \Mat B[2,4]*.1/4\->\R a0 \Orange \F-Line 127,56,128-\R a0,56 \If (\theta=0)\ Or (G=1\ And \theta=1) \Then \R a1+1\->\R a1 \R a1=3\=>1\->\R a1 \theta=1\=>1\->\R a1 \If \R a1=1 \Then \Ran#+0.5\->L \Ran#>0.5\=>\(-)L\->L (\Int 15L)/100\->L \Int 6\Ran#\->Z \IfEnd \IfEnd \PlotOn \Mat B[G,10],3 \For 0\->M \To 2 \Mat B[G,7+M]\->N N=1\=>\Text 1,78+19M,"* 2" \If N=2 \Then \F-Line 81+19M,62,81+19M,59 \F-Line 82+19M,62,82+19M,59 \F-Line 80+19M,61,83+19M,61 \F-Line 80+19M,60,83+19M,60 \IfEnd \If N=3 \Then \Text 1,78+19M,"<>" \F-Line 78+19M,61,84+19M,61 \IfEnd \If N=4 \Then \Text 1,79+19M,"-" \Text 1,82+19M,"\->" \F-Line 84+19M,62,84+19M,60 \F-Line 83+19M,63,83+19M,59 \F-Line 79+19M,62,79+19M,60 \IfEnd N=5\=>\Text 1,78+19M,">>>" \Next \If \R b1=13 \Then \Text 20,37,"SUDDEN DEATH!" \For 1\->M \To 150 \Next \Text 20,36," " \IfEnd \If Z=1 \Then \Text 1,62,"0" \PlotOn 66,62 \PlotOn 66,60 \PlotOn 68,61 \PlotOn 60,62 \PlotOn 60,60 \PlotOn 58,61 \IfEnd \If Z=2 \Then \Text 1,60,"\slash\slash" \IfEnd \If Z=3 \Then \F-Line 63,63,63,59 \F-Line 62,60,64,60 \F-Line 61,61,65,61 \IfEnd \If Z=4 \Then \Text 1,56,"((*))" \PlotOff 55,60 \IfEnd \Text 1,9,\Abs (100\Frac L) L<0\=>\Text 1,1,"<" L>0\=>\Text 1,21,">" \StoPict 2 A\->U B\->V C\->W \Mat B[G,11]\->M M=1\=>\Prog "GB-MOB01" M=2\=>\Prog "GB-MOB02" M=3\=>\Prog "GB-MOB03" M=4\=>\Prog "GB-MOB04" M=5\=>\Prog "GB-MOB05" M=6\=>\Prog "GB-MOB06" M=7\=>\Prog "GB-MOB07" M=8\=>\Prog "GB-MOB08" M=9\=>\Prog "GB-MOB09" M=10\=>\Prog "GB-MOB10" \PlotChg A+9\cos C,B+2+9\sin C \Text 1,38,C \PlotOn 59+4(\Mat B[G,5]-1),56 \If G=2\ And \theta=1 \Then \ClrText 1\->\R b0 "RECEPTION..." " " "CODE:1"?\->J \Int .1J\->J 1\EE\(-)8*J\->J \Int 1000J\->C \Frac 1000J\->J \Int 1000J\->A \Frac 1000J\->J \Int 100J\->B \Frac 100J\->J C\->\Mat B[G,3] B\->\Mat B[G,2] A\->\Mat B[G,1] "CODE2:"?\->J 10\Frac .1J\->Q Q\->\Mat B[G,5] \Int .1J\->J .01(\Int .1J)\->I 10\Frac .1J\->T \For 7\->N \To 9 \If \Mat B[G,N]=T \Then 0\->\Mat B[G,N] 1\->N \IfEnd N=1\=>\Break \Next T>0\=>N\<>1\=>0\->T 0\->J \If T=2 \Then \Mat B[2,4]+350\->\Mat B[2,4] \GotoA \IfEnd \If T=3 \Then \Mat B[1,1]\->\Mat B[2,1] \Mat B[1,2]\->\Mat B[2,2] A\->\Mat B[1,1] B\->\Mat B[1,2] \GotoA \IfEnd \IfEnd \Mat B[G,5]\->Q \Prog "GB BASE1" O=3\=>\GotoA \If T=5 \Then U\->\Mat B[G,1] V+10\->\Mat B[G,2] 0\->T \GotoA \IfEnd T=2\ Or T=3\=>\GotoA \Mat B[G,11]\->M 1\->\r 0\->K ((U-A)\x^2+(V-B)\x^2)\<=49\=>2\->\r \If O\<>1 \Then U\->D V\->E \IfEnd A\->U B\->V \If \theta=0 \Then \Ran#\->P \Else .5\->P \IfEnd \Mat B[G,5]\->Q M=1\=>\Prog "GB-MOB01" M=2\=>\Prog "GB-MOB02" M=3\=>\Prog "GB-MOB03" M=4\=>\Prog "GB-MOB04" M=5\=>\Prog "GB-MOB05" M=6\=>\Prog "GB-MOB06" M=7\=>\Prog "GB-MOB07" M=8\=>\Prog "GB-MOB08" M=9\=>\Prog "GB-MOB09" M=10\=>\Prog "GB-MOB10" \Int R\->R T=1\=>\Int 1.7R+1\->R \R b1>14\=>2R\->R \If O=1 \Then \If Z=1 \Then \For 55\->M \To 5 \Step \(-)5 \Orange \F-Line D-2,M-2,D+2,M+2 \Next \Int 1.2R\->R \IfEnd \If Z=2 \Then \(-)3\->N \For 50\->M \To 5 \Step \(-)5 \Green \F-Line D+N,M,D-N,M+5 \Line \(-)N\->N \Next \Int 1.3R\->R \IfEnd \If Z=4 \Then \F-Line D-1,E+21,D+1,E+21 \F-Line D-2,E+20,D+2,E+20 \F-Line D-3,E+19,D+3,E+19 \F-Line D-3,E+18,D+3,E+18 \F-Line D-2,E+17,D+2,E+17 \F-Line D-1,E+16,D+1,E+16 \F-Line D-4,E+20,D-5,E+21 \F-Line D+4,E+20,D+6,E+22 \F-Line D-1,E+17,D-3,E+15 \PlotOn D,E+15 \Green \F-Line D,E+13,D,E \PlotOff D-1,E+19 \PlotOff D,E+17 \For 1\->M \To 75 \Next \Int 1.55R\->R \IfEnd \IfEnd \If O=1 \Then D<63\=>\Text 45-E,D+5,\(-)R\DispD\>=63\=>\Text 45-E,D-20,\(-)R\Disp\IfEnd \If \r=2 \Then \Int (R/3)\->K A<63\=>\Text 45-E,D+5," " A<63\=>\Text 45-E,D+5,\(-)K\DispA\>=63\=>\Text 45-E,D-20," " A\>=63\=>\Text 45-E,D-20,\(-)K\Disp\IfEnd \If O=1 \Then \Mat B[\Abs (G-3),4]-R\->\Mat B[\Abs (G-3),4] \IfEnd \Mat B[G,4]-K\->\Mat B[G,4] \If \Mat B[\Abs (G-3),4]\<=0\ Or \Mat B[G,4]\<=0 \Then 4\->O \GotoA \IfEnd \Prog "GB-DEST" \If \theta\<>0 \Then \Mat B[G,1]\->A \Mat B[G,2]\->B \Mat B[\Abs (G-3),1]\->D \Mat B[\Abs (G-3),2]\->E \For 1\->M \To 2 \Do \If M=1 \Then \PxlTest 64-B,A \Ans=0\=>\Dsz B \Else \PxlTest 64-E,D \Ans=0\=>\Dsz E \IfEnd \Ans=1\=>\Break B=4\ Or E=4\=>\Break \LpWhile 1=1 B=4\ Or E=4\=>\GotoZ \IfEnd 0\->\r \GotoA \Lbl Z \If E=4\ Or B=4 \Then \If B=4 \Then \Mat B[G,11]\->M A\->U B\->V C\->W \Else \Mat B[\Abs (G-3),11]\->M D\->U E\->V \Mat B[\Abs (G-3),3]\->W \IfEnd M=1\=>\Prog "GB-MOB01" M=2\=>\Prog "GB-MOB02" M=3\=>\Prog "GB-MOB03" M=4\=>\Prog "GB-MOB04" M=5\=>\Prog "GB-MOB05" M=6\=>\Prog "GB-MOB06" M=7\=>\Prog "GB-MOB07" M=8\=>\Prog "GB-MOB08" M=9\=>\Prog "GB-MOB09" M=10\=>\Prog "GB-MOB10" \Text 15,51,"BUNGE!"\Disp\IfEnd \Mat B[G,4]\<=0\=>\Mat B[\Abs (G-3),4]>0\=>\Abs (G-3)\->G \Mat B[G,4]>0\ And \Mat B[\Abs (G-3),4]>0\ And B=4\=>\Abs (G-3)\->G \ClrText \Locate 3,4,"LE JOUEUR GAGNE" \Locate 13,4,G \Stop %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1724 File Name:MAPMAKER Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ViewWindow 1,127,0,1,63,0 \AxesOff \BG-None 0\->A~Z 0\->\theta \Lbl A 1\->X~Z \ClrText \Locate 1,1,"====== MAPMAKER =====" \Locate 9,3,"NEW" \Locate 9,4,"LOAD" \Locate 9,5,"SAVE" \Locate 9,6,"HELP" \Locate 9,7,"RETURN" \Lbl B \Locate 7,2+X,"\->" \Do \Getkey \LpWhile \Ans=0 \Locate 7,2+X," " \Ans=28\=>X>1\=>\Dsz X \Ans=37\=>X<5\=>\Isz X \Ans\<>31\=>\GotoB \If X=5 \Then \theta=1\=>\GotoC \theta=0\=>\GotoA \IfEnd \If X=1 \Then \Cls \For 5\->B \To 25 \Horizontal B \Next \StoPict 3 \IfEnd \If X=2\ Or X=3 \Then X=3\=>\theta=0\=>\GotoA 1\->Y 1\->W \ClrText \Locate 1,1,"===== LOAD MAP ======" X=3\=>\Locate 7,1,"SAVE" \Locate 7,3,"\-> CURRENT" \Locate 8,4,"" \Locate 9,5,"BACK" \Do \Do \Getkey \LpWhile \Ans=0 \Locate 6,2+Y," " \Locate 17,2+Y," " \Ans=28\=>Y>1\=>\Dsz Y \Ans=37\=>Y<3\=>\Isz Y \Ans=27\=>Y=2\=>W<5\=>\Isz W \Ans=38\=>Y=2\=>W>1\=>\Dsz W \Locate 7,2+Y,"\->" \Locate 14,4,W \LpWhile \Ans\<>31 Y=3\=>\GotoA X=2\=>Y=1\=>\GotoC \If Y=2 \Then \If X=2 \Then W=1\=>\Mat C\->\Mat A W=2\=>\Mat D\->\Mat A W=3\=>\Mat E\->\Mat A W=4\=>\Mat F\->\Mat A W=5\=>\Mat G\->\Mat A \Cls 1\->L \For 1\->K \To 2 \If K=1 \Then 1\->I 63\->J 1\->H \Else 63\->I 1\->J \(-)1\->H \IfEnd \For I\->A \To J \Step H \Mat A[1,A]\->B 100(\Frac .01B)\->D \Int (100(\Frac .0001B))\->C \F-Line L,C,L,D+1 \Isz L \Next \Next \StoPict 3 \GotoC \Else \Cls \RclPict 3 {1,63}\->\Dim \Mat A \F-Line 32,50,95,50 \F-Line 95,50,95,47 \F-Line 95,47,32,47 \F-Line 32,47,32,50 \For 1\->A \To 63 \F-Line A+32,49,A+32,48 32\->B \Do \PxlTest 64-B,A \Ans=1\=>\Break \Dsz B \LpWhile \Ans=0 100B\->\Mat A[1,A] \Do \PxlTest 64-B,A \Ans=0\=>\Break \Dsz B \LpWhile \Ans=1 \Mat A[1,A]+B\->\Mat A[1,A] \Next W=1\=>\Mat A\->\Mat C W=2\=>\Mat A\->\Mat D W=3\=>\Mat A\->\Mat E W=4\=>\Mat A\->\Mat F W=5\=>\Mat A\->\Mat G {1,1}\->\Dim \Mat A \IfEnd \GotoA \IfEnd \IfEnd \If X=4 \Then \ClrText " READ ME" " THIS SOFTWARE ALLOWS YOU TO CREATE MAP FILES AND TO COMPRESS THEM TO 8\@25 OF THEIR INITIAL SIZE"\Disp\ClrText " READ ME" "UP\slashDOWN\slashLEFT\slashRIGHT \->MOVE CURSER F1~F6 \->CURSER SIZE [MENU] \->SAVE\slashLOAD USES \Mat A~\Mat G"\Disp\ClrText " " " MAPMAKER BY" " " " NEURONIX AND" " MUELSACO"\Disp\GotoA \IfEnd \Lbl C 1\->\theta \RclPict 3 \F-Line 62,63,64,63 \F-Line 62,1,64,1 \PlotOn 63,62 \PlotOn 63,2 \StoPict 3 30\->A 32\->B \PxlChg 63-B,A-1 \Lbl 1 \Do \Getkey\->S \LpWhile S=0 S=31\=>B+Z<50\=>A+Z<130\=>\Goto2 \PxlChg 63-B,A-1 S=29\=>20\->Z S=39\=>10\->Z S=49\=>6\->Z S=59\=>4\->Z S=69\=>2\->Z S=79\=>1\->Z S=28\=>B+Z<40\=>B+Z\->B S=37\=>B-Z>3\=>B-Z\->B S=27\=>A+Z<126\=>A+Z\->A S=38\=>A-Z>1\=>A-Z\->A S=48\=>\GotoA \PxlChg 63-B,A-1 \Goto1 \Lbl 2 \PxlChg 63-B,A-1 \For 0\->I \To (Z-1) \For 0\->J \To (Z-1) \PxlChg 63-B-I,A-1+J \Next \Next \StoPict 3 \PxlChg 63-B,A-1 \Goto1 %End