"*** Enveloppe hyperbole ***"
Cls
Range (-)15,15,0,0,150,0
Graph Y=(-)X^2 +100
(-)10.5->Z
Lbl 0:Z+0.5->Z
(-)2Z->A
100-Z^2 ->B
B+2Z*Z->B
Graph Y=AX+B
Z<10=>Goto 0

"*** Enveloppe cercle ***"
Cls
Range (-)2,2,0,(-)1.5,1.5,0
(-)1->Z
Lbl 0
Z+.05->Z
(-)2Z/(2*Sqr(1-Z^2 ))->A
Sqr(1-Z^2 )->B
B-AZ->B
Graph Y=AX+B
Graph Y=(-)AX-B
Z<0.95=>Goto 0

Syntaxes du transfert :

Programmes, fichiers, mémoires :
list8000 -w savea.wav > savea.txt

Graphe :
list8000 -w -ggraphe#.bmp saveagraphe.wav