V-Draw			       BETA
	___________________________________

	(c) Copyright 1996, Henrik Stenberg

	Size:		818 bytes
	Description:	Advanced drawing program with autosave
			NOTE: Use 'Defm' to allocate memory for picture

	Symbols:	-->		Assign value, above (DEL) key
			=3D=3D>		Then, (SHIFT) (7) (F1) (F1)
			@		Display, (SHIFT) (7) (F5)
			<>		Not equal, (SHIFT) (7) (F2) (F2)


	If there is a problem, e-mail me at henrik.s@interact.se
-------------------------------------------------------------------------=
-------

'V-DRAW
Range 1,95,0,1,63,0			;If you have a 9x00, just change 95 to 127
Lbl 0
100 --> G
1 --> X~Y
"1. EDIT"				;Edit picture
"2. RESTORE"				;Redraw the saved picture
"3. PURGE"				;Delete picture
? --> A
A=3D1 =3D=3D> Goto 1
A=3D2 =3D=3D> Goto 8
A=3D3 =3D=3D> Mcl
Cls
Goto 0
Lbl 1					;To get back to this menu, press (EXE) two times
"1. Plot"
"2. Line"
"3. FILLED BOX"
"4. CIRCLE"
"5. ERASE"				;Click on node to erase
"6. REDRAW"				;You must redraw after you have erased to see the changes
? --> A
A<=3D4 =3D=3D> Goto 2
A=3D5 =3D=3D> Goto 6
A=3D6 =3D=3D> Goto 8
Goto 1
Lbl 2
Plot X,Y@
X=3Dr =3D=3D> Y=3D=A4 =3D=3D> Goto 1
X+Y/G --> Z[W]
Isz W
X --> r
T --> =A4
Plot X,Y@
X=3Dr =3D=3D> Y=3D=A4 =3D=3D> Goto 1
X+Y/G --> Z[W]
X --> S
Y --> T
Y-=A4 --> O
..5(X-r --> R
r+R --> M
O --> B
A=3D4 =3D=3D> Z[W]+.003 --> Z[W]
A=3D4 =3D=3D> Goto 5
A=3D3 =3D=3D> O/Abs O --> I
A=3D3 =3D=3D> Z[W]+.002 --> Z[W]
A=3D3 =3D=3D> Goto 4
A=3D2 =3D=3D> Z[W]+.001 --> Z[W]
A=3D2 =3D=3D> Line
Lbl 3
Isz W
X --> r
Y --> =A4
Goto 2
Lbl 4
Plot S,Y
Plot r,Y
Line
Y-I --> Y
Y-=A4+I <> 0 =3D=3D> Goto 4
Y+I --> Y
Isz V
A=3D2 =3D=3D> Goto 9
A=3D6 =3D=3D> Goto 9
Goto 3
Lbl 5
B+Abs (55/R --> B
RcosB --> K
Rsin B --> L
Plot M+K,T+L
Plot M+K,T-L
Plot M-K,T+L
Plot M-K,T-L
Plot M+L,T+K
Plot M+L,T-K
Plot M-L,T+K
Plot M-L,T-K
B<45 =3D=3D> Goto 5
Isz V
A=3D2 =3D=3D> Goto 9
A=3D6 =3D=3D> Goto 9
Goto 3
Lbl 6
Plot X,Y@
X=3Dr =3D=3D> T=3D=A4 =3D=3D> Goto 1
GX+Y --> F
X --> r
Y --> =A4
W --> B
Lbl 7
Int (GZ[B] --> J
F=3DJ =3D=3D> 0 --> Z[B]
F=3DJ =3D=3D> Goto 6
Dsz B
B=3D>0 =3D=3D> Goto 7
Goto 6
Lbl 8
Cls
0 --> V
Lbl 9
Z[V] --> E
X --> r
Y --> =A4
Plot Int E,G(E-Int E
X --> S
Y --> T
Y-=A4 --> O
..5(X-r --> R
r+R --> M
O --> B
Int (GE --> U
GE-U=3D.2 =3D=3D> O/Abs O --> I
GE-U=3D.1 =3D=3D> Line
GE-U=3D.2 =3D=3D> Goto 4
GE-U=3D.3 =3D=3D> Goto 5
Isz V
V<=3DW =3D=3D> Goto 9
Plot 0,0@
A=3D2 =3D=3D> Goto 0
Goto 1

___________________________________________________________________