Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
10
Task/Include-a-file/FreeBASIC/include-a-file-1.freebasic
Normal file
10
Task/Include-a-file/FreeBASIC/include-a-file-1.freebasic
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
' person.bi file
|
||||
Type Person
|
||||
name As String
|
||||
age As UInteger
|
||||
Declare Operator Cast() As String
|
||||
End Type
|
||||
|
||||
Operator Person.Cast() As String
|
||||
Return "[" + This.name + ", " + Str(This.age) + "]"
|
||||
End Operator
|
||||
12
Task/Include-a-file/FreeBASIC/include-a-file-2.freebasic
Normal file
12
Task/Include-a-file/FreeBASIC/include-a-file-2.freebasic
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
' FB 1.05.0 Win 64
|
||||
|
||||
' main.bas file
|
||||
#include "person.bi"
|
||||
|
||||
Dim person1 As Person
|
||||
person1.name = "Methuselah"
|
||||
person1.age = 969
|
||||
Print person1
|
||||
Print
|
||||
Print "Press any key to quit"
|
||||
Sleep
|
||||
Loading…
Add table
Add a link
Reference in a new issue