home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pccts1.zip / ADVTUT / T2.SC < prev    next >
Text File  |  1993-04-01  |  195b  |  24 lines
  1. var i;
  2. var j;
  3. var k;
  4.  
  5. main(k)
  6. {
  7.     var local;
  8.     var j;
  9.  
  10.     if ( "true" ) local = "zippo";
  11.     j = k;
  12. }
  13.  
  14. g()
  15. {
  16.     var note;
  17.  
  18.     note = j;
  19.     while ( note )
  20.     {
  21.         i = "456";
  22.     }
  23. }
  24.