13 lines
353 B
Text
13 lines
353 B
Text
|
include c:\cxpl\stdlib;
|
||
|
|
char S, P;
|
||
|
|
[S:= "Smiles";
|
||
|
|
Text(0, S+1); \first character removed
|
||
|
|
CrLf(0);
|
||
|
|
P:= S + StrLen(S) - 2; \point to last character in string
|
||
|
|
P(0):= P(0) ! $80; \set the MSb on the last character
|
||
|
|
Text(0, S); \last character removed
|
||
|
|
CrLf(0);
|
||
|
|
Text(0, S+1); \first and last characters removed
|
||
|
|
CrLf(0);
|
||
|
|
]
|