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 ___________________________________________________________________