aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Literals-String/PureBasic/literals-string-1.purebasic Normal file
View file

@ -0,0 +1,16 @@
; Characters (*.c), can be ASCII or UNICODE depending on compiler setting
Define.c AChar='A'
; defines as *.a it will be ASCII and *.u is always UNICODE
Define.a A='b'
Define.u U='水'
; Strings is defined as **.s or ending with '$'
Define.s AStrion ="String #1"
Define BStrion.s ="String #2"
Define CString$ ="String #3"
; Fixed length stings can be defined if needed
Define XString.s{100} ="I am 100 char long!"
; '"' can be included via CHR() or its predefined constant
Define AStringQuotes$=Chr(34)+"Buu"+Chr(34)+" said the ghost!"
Define BStringQuotes$=#DOUBLEQUOTE$+"Buu"+#DOUBLEQUOTE$+" said yet a ghost!"