%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:924 File Name:SKETCH Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Locate 7,1,"SKETCH" \Locate 1,7,"PUSH EXE TO CONTINUE" \Locate 9,3,"BY" \Locate 3,4,"THE MADWEB TEAM" \Locate 2,5,"WWW.MADWEB.4T.COM" \Locate 1,6,"STORE(S) RECALL(R)" \Do \LpWhile \Getkey\<>31 \ViewWindow 0,100,1,0,100,1 0\->O:-1\->T:30\->A:60\->B:1\->E:1\->C \Lbl B \Cls \Lbl F \Vertical 0 \Vertical 100 \Horizontal 0 \Horizontal 100 \Horizontal 13 \Horizontal 87 \Text 57,4,"CLEAR=C DOTTED=D OFF" \Text 3,4,"SKETCH COLOUR=0123 1 PLOT=P ON" \Lbl A \Getkey\->D E=-1\ And O=0\=>\PxlOff A,B D=0\=>\GotoC A\->G B\->H D=37\=>A+((T+1)/2+1)\->A D=38\=>B-((T+1)/2+1)\->B D=28\=>A-((T+1)/2+1)\->A D=27\=>B+((T+1)/2+1)\->B A<10\=>G\->A A>54\=>G\->A B<3\=>H\->B B>125\=>H\->B D>20\ And D<40\=>\GotoD D=56\=>\GotoE D=43\=>\GotoG D=53\=>\GotoH D=46\=>-T\->T D=46\=>T=1\=>\Text 57,72,"ON " D=46\=>T=-1\=>\Text 57,72,"OFF" D=71\=>0\->C D=71\=>\Text 3,82,"0" D=72\=>1\->C D=72\=>\Text 3,82,"1" D=62\=>2\->C D=62\=>\Text 3,82,"2" D=52\=>3\->C D=52\=>\Text 3,82,"3" D=73\=>-E\->E D=73\ And E=1\=>\Text 3,118,"ON " D=73\ And E=-1\=>\Text 3,118,"OFF" \Lbl D E=1\=>C=1\=>\PxlOn A,B E=1\=>C=2\=>\Orange \PxlOn A,B E=1\=>C=3\=>\Green \PxlOn A,B E=1\=>C=0\=>\PxlOff A,B \Lbl C E=-1\=>\PxlTest A,B:\Ans\->O E=-1\ And O=0\=>\PxlOn A,B \GotoA 'CLEAR SCREEN \Lbl E \Text 57,90,"SURE?" \Do \Getkey\->U \LpWhile U=0 U=31\=>\GotoB \Text 57,90," " \GotoA \Lbl G A\->R B\->S \StoPict 1 \GotoF \Lbl H \Cls R\->A S\->B \RclPict 1 \GotoF %End