17 lines
196 B
Text
17 lines
196 B
Text
|
' FB 1.05.0 Win64
|
||
|
|
|
||
|
|
#Macro ForAll(C, S)
|
||
|
|
For _i as integer = 0 To Len(s)
|
||
|
|
#Define C (Chr(s[_i]))
|
||
|
|
#EndMacro
|
||
|
|
|
||
|
|
#Define In ,
|
||
|
|
|
||
|
|
Dim s As String = "Rosetta"
|
||
|
|
ForAll(c in s)
|
||
|
|
Print c; " ";
|
||
|
|
Next
|
||
|
|
|
||
|
|
Print
|
||
|
|
Sleep
|