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
			==>		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=1 ==> Goto 1
A=2 ==> Goto 8
A=3 ==> 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<=4 ==> Goto 2
A=5 ==> Goto 6
A=6 ==> Goto 8
Goto 1
Lbl 2
Plot X,Y@
X=r ==> Y=á ==> Goto 1
X+Y/G --> Z[W]
Isz W
X --> r
T --> á
Plot X,Y@
X=r ==> Y=á ==> Goto 1
X+Y/G --> Z[W]
X --> S
Y --> T
Y-á --> O
.5(X-r --> R
r+R --> M
O --> B
A=4 ==> Z[W]+.003 --> Z[W]
A=4 ==> Goto 5
A=3 ==> O/Abs O --> I
A=3 ==> Z[W]+.002 --> Z[W]
A=3 ==> Goto 4
A=2 ==> Z[W]+.001 --> Z[W]
A=2 ==> Line
Lbl 3
Isz W
X --> r
Y --> á
Goto 2
Lbl 4
Plot S,Y
Plot r,Y
Line
Y-I --> Y
Y-á+I <> 0 ==> Goto 4
Y+I --> Y
Isz V
A=2 ==> Goto 9
A=6 ==> 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 ==> Goto 5
Isz V
A=2 ==> Goto 9
A=6 ==> Goto 9
Goto 3
Lbl 6
Plot X,Y@
X=r ==> T=á ==> Goto 1
GX+Y --> F
X --> r
Y --> á
W --> B
Lbl 7
Int (GZ[B] --> J
F=J ==> 0 --> Z[B]
F=J ==> Goto 6
Dsz B
B=>0 ==> Goto 7
Goto 6
Lbl 8
Cls
0 --> V
Lbl 9
Z[V] --> E
X --> r
Y --> á
Plot Int E,G(E-Int E
X --> S
Y --> T
Y-á --> O
.5(X-r --> R
r+R --> M
O --> B
Int (GE --> U
GE-U=.2 ==> O/Abs O --> I
GE-U=.1 ==> Line
GE-U=.2 ==> Goto 4
GE-U=.3 ==> Goto 5
Isz V
V<=W ==> Goto 9
Plot 0,0@
A=2 ==> Goto 0
Goto 1

--------------------------------------------------------------------------------