Guest User

Untitled

a guest
Mar 11th, 2018
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. For Local X:Int = 1 To 234 Step 3
  2.     Print("What is love"); Print "Baby don't hurt me no more"
  3. Next
  4.  
  5. Local A:Int = 25*Foo("Hugendubel")
  6.  
  7. If A <> 32 Then
  8.     Print "A <> 32!"
  9. Else
  10.     Print "SAAAAKEE!"
  11. EndIf
  12.  
  13. Const EVERYTHING:Int = 3 'Approximately
  14.  
  15. While 42 = EVERYTHING
  16.     Print "Infinite Loop!!1"
  17. Wend
  18.  
  19. Function Foo:Int(Param:String)
  20.     Return -1
  21. EndFunction
  22.  
  23. Function ToString:String(Y:TObject)
  24.     Return "Not yet implemented"
  25. EndFunction
  26.  
  27. Function Print:Int(A:String)
  28.     Return -1
  29. EndFunction
  30.  
  31. Type TObject
  32. EndType
  33.  
  34. Type TFoo
  35.     Const I_AM_A_POTATO:String = "GladOS"
  36.  
  37.     Global GlobalsAreBadMKay:Int
  38.  
  39.     Field TollesFeld:TFoo
  40.  
  41.     Method Fubar:TFoo(A:Int, B:Int, C:Int)
  42.         Return Self
  43.     EndMethod
  44.  
  45.     Function Bar:TFoo()
  46.         Return Null
  47.     EndFunction
  48. EndType
Add Comment
Please, Sign In to add comment