mcs/mbas/Test/misc/WriteOK2.mbs

   1 'Option Explicit\r
   2 'Option Strict Off\r
   3 Option Compare Text\r
   4 \r
   5 Imports System
   6
   7 Module WriteOK3\r
   8 \r
   9     Sub Main()\r
  10                 Dim nodim as integer\r
  11                 \r
  12         REM Testing old-fashioned comments\r
  13                 \r
  14         Console.WriteLine("OK!") ' Simple comments\r
  15                 nodim = 1 ' test for explicit\r
  16         Console.WriteLine(nodim)
  17         Console.WriteLine(WriteOK4.Message())
  18     End Sub\r
  19 \r
  20 End Module\r
  21 \r
  22 Module WriteOK4\r
  23 \r
  24     Sub [Sub]() ' Escaped identifier\r
  25         Console.WriteLine("Sub:OK!")\r
  26         REM Yield 1
  27         REM Exit Step\r
  28     End Sub
  29
  30     public function Message() as string ' Escaped identifier\r
  31         Return "This is a returned string"\r
  32     End function
  33
  34 \r
  35 \r
  36 \r
  37 End Module\r
  38 \r