3Dbvs CL 0.5:
"""""""""""""

	-----------------
	- Mode d'emploi -
	-----------------

	* Faire Draw en 1er et Cos Sin en dernier car sinon on ne peux plus remettre à zéro et Draw deviens inutilisable.
	* ICD:
	  I = Imprimer	= 	Print pos(#0)
	  C = Cos Sin	= X:    Coordonnée horizontale
			= Y:    Coordonnée verticale
			= Cos:  Courbe du dessus
			= Sin:  Courbe du dessous
	  D = Draw	= X:    Coordonnée horizontale
			= Y:    Coordonnée verticale


	---------
	- BASIC -
	---------

	10 mode 1:paper 0:pen 1:border 1:cls
	20 window 1,2,1,2:paper 2:pen 0:print"Y":window 1,3,6,7:print"300":window 1,3,12,13:print"200":window 1,3,18,19
	   :print"100":window 1,1,24,25:print"0":window 9,11,24,25:print"160":window 19,21,24,25:print"320":window
	   29,31,24,25:print"480"
	30 window 39,40,24,25:print"X"
	100 window 1,3,3,4:paper 0:pen 2:print"ICD"
	102 b$=inkey$:if b$=""goto 102
	104 if b$="i"or b$="I"then print pos(#0)
	106 if b$="c"or b$="C"then goto 200
	108 if b$="d"or b$="D"then goto 300
	200 window 1,3,3,4:paper 0:pen 1:input"G=X";g:cls:input"R=Y";r:cls:input"Cos";s:cls:input"Sin";n:cls
	210 for a=1 to 360:deg:origin g,r:plot s*cos(a),n*sin(a):next:goto 20
	300 window 1,3,3,4:paper 0:pen 3:input"X";x:cls:input"Y";y:cls
	310 window 1,40,1,25:draw x,y:goto 20


	----------------------
	- Réaliser une forme -
	----------------------

	* Dessin d'un bros d'eau qui verse des gouttes d'eau.


	-------------
	- Opération -
	-------------

	(appuyez sur:"Enter" après chaque nombres)

	D = X = 320
	    Y = 200
	D = X = 200
	    Y =	320
	D = X = 1
	    Y = 1
	D = X = 320
	    Y = 200
	D = X = 100
	    Y = 320
	D = X = 1
	    Y = 1
	D = X = 200
	    Y = 320
	D = X = 100
	    Y = 320
	D = X = 1
	    Y = 1
	C = X = 480
	    Y = 100
	  Cos = 50
	  Sin = 50
	C = X = 400
	    Y = 150
	  Cos = 20
	  Sin = 20
	C = X = 340
	    Y = 180
	  Cos = 10
	  Sin = 10


	-------
	- BUG -
	-------

	* Imprimer ne fonctionne pas. Du moins chez moi, car je n'ai pas d'imprimantes pour faire les testes.