%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