Version:0.9 StartHTML:0000000105 EndHTML:0000012314 StartFragment:0000001053 EndFragment:0000012298 mXScriptasHTML 
PROGRAM Demo_App_ReverseStringX;
2 
3 //<head> #sign:Max: MAXBOX10: 10/05/2017 19:25:38 
4 
5 CONST 
6   TEXTOUT = 'Hi world of first step code';
7 
8 {TYPE  <Type declarations>} 
9 
10   procedure CreateColorDialog;
11   var mydlg: TColorDialog;
12    begin
13      mydlg:= TColorDialog.Create(self);
14      try
15        mydlg.Execute;
16      finally
17        mydlg.Free;
18      end;
19    end; 
20    
21   function ReverseStringX(const s: string): string;
22    var len, ctr: integer;
23    begin
24      len:= length(s);
25      SetLength(result,len);
26      for ctr:= 1 to len do
27        result[len-ctr+1]:= s[ctr];
28    end;
29   
30 Begin  //@main
31 //<Executable statements>
32   for it:= 1 to 2 do 
33     Println(TEXTOUT);
34   maXcalcF('Sqrt(PI/e^2)') 
35   writeln(ReverseStringX('step'))
36   writeln(ReverseStringX('this is maXbox4 step of code'))
37   writeln(ReverseStringX(ReverseStringX('this is maXbox4 step of code')))
38   //Object Oriented Call
39   CreateColorDialog;
40 End. 
41 
42 Doc: http://www.softwareschule.ch/blix.htm
43      to teach programming for beginners
44 
45 Ref: http://www.softwareschule.ch/download/maxbox_functions.txt
46      writeln(ReverseString(ReverseString(loadfile(exepath+'firstdemo3.txt'))))
47  
48  Task: try the procedure:
49  procedure ReversePlay(const szFileName: string);
50  
51  //#TODO: try the procedure reversePlay() with a wav file:
52     
53 https://ch.mathworks.com/matlabcentral/newsreader/view_thread/72386?requestedDomain=www.mathworks.com
54 
55 ----app_template_loaded_code----
56 ----File newtemplate.txt not exists - now saved!----