if (c < '1' && c > '6')
       {
           c1 = '[';
           c2 = c;
           return 0x1b;
       } // the 3rd char must be in this range
       while ((tc = getConsole()) == -1 && InkeyTimer < 70)
           ; // delay some more to allow the final chars to arrive, even at 1200 baud
       if (tc == '~')
       { // all 4 char codes must be terminated with ~
           if (c == '1')
               return HOME;
           if (c == '2')
               return INSERT;
           if (c == '3')
               return DEL;
           if (c == '4')
               return END;
           if (c == '5')
               return PUP;
           if (c == '6')
               return PDOWN;
           c1 = '[';
           c2 = c;
           c3 = tc;
           return 0x1b; // not a valid 4 char code
       }

 'Peters code for a 2 channel oscilloscope
 
 'todo : check if wiping traces by re-drawing black is faster than CLS

 CLS
 FRAMEBUFFER create
 FRAMEBUFFER write f

 'memory allocation and fill default X axis locations
 Dim float a(1279),b(1279),aa(639),bb(639),c(639),d(639),e(639)
 For i=0 To 639:e(i)=i:Next
 
 'open ADC for maximum clock speed (378MHz CPU)
 ADC open 1968750,2,done
   
 'main loop
 Do
   'start sampler
   ADC start a(),b()
   
   'wait for ready
   Do
   Loop Until f%=1
   f%=0
   
   'this assumes a trigger in the first half of a()
   p%=Math(crossing a(),1.5,-1) 'a trigger
   
   'copy 640 points from a() to aa(), similar b()
   Memory copy float Peek(varaddr a(p%)),Peek(varaddr aa(0)),640
   Memory copy float Peek(varaddr b(p%)),Peek(varaddr bb(0)),640

   'scale to 3.3 x 50 = 165 pix vertical
   Math scale aa(),50,aa()
   Math scale bb(),50,bb()

   'add vertical location on screen
   Math add aa(),50,aa()
   Math add bb(),250,bb()
   
   'wipe old traces
   Line graph e(),c(),0
   Line graph e(),d(),0
   
   'draw new traces
   Line graph e(),aa(),RGB(green)
   Line graph e(),bb(),RGB(cyan)
   
   'show on screen
   FRAMEBUFFER copy f,n
   
   'copy current, for wiping later
   Math scale aa(),1,c()
   Math scale bb(),1,d()
   
 Loop
 
Sub done
 f%=1
End Sub

OPTION LCDPANEL controller, orientation [,backlightpin] [,DCpin] [,NORESET][,INVERT][,DB0pin]

DRAW3D SHOW n, x, y, z [,nocull][,usefurthest]
DRAW3D WRITE n, x, y, z [,nocull][,usefurthest]