1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
\ Test of various formats of strings
\ Updated Tue, 10 Oct 2006 at 11:46 PDT by David L. Paktor
fcode-version2
headers hex
."
Empty string next."
." "
." BSlashes#1: \t\1fea9\abdc\n\1f\\fece"
decimal
." BSlashes#2: \t\a7\c01a"
." Dec 1193176 = 0x1234D8 Dec 176 = 0xB0 \1193176\"
hex
." BSlashes#3: \n\a7\c01a"
." BSlashes#4: \t\a7\\c0\\1a"
." BSlashes#5: \t\a7\\c0\\1a"( feedface)"
." 3 BSlashes, then QOpen. \t\Q\n"(090abcdefeca8e beeffece b020)Zoh. "(1 23 4 567 8 9 0 1 2 3 0 a b c 30)"
.( Dot-Paren-NoSpace)cr cr
.( Dot-Paren Space) cr cr
." QEscapes: "p"b"n"zz"
." QEscapes: ""Q"nn"rr"tt"ff"ll"bb"!!"^[UpBrack"zz"
0 is my-self \ Is it keeping line numbers straight?
" Quote"" Quote" type cr
s" Ess-Quote"type cr
." Cross
the
line.
Three times."
0 is my-self \ Is it still keeping line numbers straight?
." Can I get a \ backslash?"
." Like this \\ maybe?"
." What about "( 1c cd e6 \ The rest of this line should be a comment
c7 )?"
." Is "\ the rest of this line a comment?"
\ " \ This should do it.
0 is my-self \ Is it still keeping line numbers straight?
." Or a way to get a "\ backslash?"
\ " \ Or not...
0 is my-self \ Is it still keeping line numbers straight?
: glemph!" " glemph!""" evaluate ;
\ What does the " do?
fcode-end
|
