      TextCompiler 1.0.0

 TextCompiler.jar - ,    MobileBASIC 1.8.6 (by Mumey).  -  ,       (  )  1.8.7.       ,     MobileBASIC 1.8.6 (    ).

    Siemens CX65  Sony Ericsson K750          .    ,      ,      .

  :
 TextCompiler  ,       (     ,      GOTO, GOSUB, TRAP  RESTORE).        ( )  :

10 PRINT "Hello, World!"

     1.8.7:

10:
PRINT "Hello, World!"

  :

10
PRINT "Hello, World!"

    ,    -          ,    ,     ,  ,       ,       .
      ,     , ,   .     , RMS  (    ),         jar-    ,       .
        ,  ,  ,   GOTO X%+Y%, GOSUB ARRAY%(N%)  ..        ,    .
  ,  ,          .
 TextCompiler          '',          CHR$(1103).
    TextCompiler         ,     ,       .         ,          jar-   9      .
 TextCompiler  - (,     ,   ),           -       RMS,   RMS  ,   , .        -.      .
  TextCompiler       ,     .       ,    :
1. 
2.   
3.     

   ,  ,   ,   ,        .

    -     , MobileBASIC,               ,   ,   ,  Mumey,     __ MobileBASIC.

--------
1.
--------

1.1    

       ,   .          (),     '#',   ,       ( ),     .     (RMS,   JAR)     .     ( 200 )     ,       ''.
   :

#line 20
#step 2
CLS
PRINT ", !"
END
#save file:///0:/1.txt

 :

#line 20
-     #line,     (20)   .

#step 2
-     #step,     (2)   .
          :

CLS
PRINT ", !"
END

 :

#save file:///0:/1.txt
-     #save,       .      0:/  Siemens.      ,        .

1.2 

1.2.0    

         .
     .
   ,  ,    '#'.
   '#'  .
    .       -    ()    (). ,   line    LINE.
        (  ).
     (  ).        ( )  , -     .      . ,   #save       ,  .
  (   )   ,     ,    ,    ( ,     ). ,    :

#name File 1
#date May 2008
#Line 50
#step TEXT
#save
#LINE -5
#c  

          .        .

      ,     .

      1.0.0

1.2.1  #line

 :

#line _

     ,      .     #line    .    #line         .      ,   .    10.

1.2.2  #step

 :

#step _

          .     #step    .    #step        .       ,   .    10.

1.2.3  #save

 :

#save _

          ,            (  ).     ,   .      ' #save'        #save. ,     ' #save':
file:///0:/basic/prg/
 
#save proga.lis
       0:/basic/prg/proga.lis ( Siemens).    ' #save'  ( )  ,   
#save proga.lis
    RMS    proga.lis.    ' #save'  ,        .   ' #save'       .     .
     #save   .            .   RMS        ,    -       .

 .
#line 5
#step 1
PRINT "YES!"
END
#save 1.txt
#line 28
#step 2
#save 2.txt

    :

5 PRINT "YES!"
6 END



28 PRINT "YES!"
30 END

    ' #save'        .

1.2.4  #move

 :

#move _

                      .      ,      (     ).      #move -         RMS.       -  , RMS ,     JAR  (    ).
      ' #move'        #move. ,     ' #move':
file:///c:/other/basic/scripts/
 
#move my_subs.txt
         c:/other/basic/scripts/my_subs.txt ( Sony Ericsson).    ' #move'  ( )  ,   
#move my_subs.txt
   RMS   my_subs.txt.    ' #move'  ,        (          ).   ' #move'       .     .
     #move (    #save; #move  #save  )          .      RMS   . ,   ,       .

            #save  #move,    .     :
"     .   ".
           #move  #save,   ,     .         ,         ('  ').            .

1.2.5  #inc

 :

#inc _

       .       ,     (, RMS ,   ,   JAR).          ,     *.bas   .      ' #inc'     ,   #inc. ,     ' #inc':
file:///0:/Misc/basic 1.8.6/inbox/
 
#inc file.lis
        0:/Misc/basic 1.8.6/inbox/file.lis. ' #inc'    ' #save'  ' #move'      #path (. )

1.2.6  #path

 :

#path __

    ' #inc'  ,    ,   .  #path    .  #path    ,         #inc    .
 .
    , 1.txt, 2.txt, a.lis, b.lis,    c:/other/basic/prg/ (Sony Ericsson)    my_file  RMS:

#line 5
#step 1
#path file:///c:/other/basic/prg/
#inc 1.txt
#inc 2.txt
#inc a.lis
#inc b.lis
#path
#inc my_file
#save all_files.txt

         ,    5   1,      all_files.txt.    ()    ' #save'.     ,    RMS    all_files.txt.

1.3  

  MobileBASIC           .   TextCompiler  -     . ,   MobileBASIC  

20 PRINT "YES!"
30 END
10 CLS

    

10 CLS
20 PRINT "YES!"
30 END

     . TextCompiler      ,       .  MobileBASIC   10  010     ,   TextCompiler    .    TextCompiler-  ,    0..9.             a..z,    A..Z    '_'.
 .

#line 5
#step 5
INPUT "X=?",X%
IF X%<0 THEN GOTO 1_LESS
IF X%>0 THEN GOTO 2greater
PRINT "X=0":GOTO 3jEND

1_LESS:
PRINT "X<0":GOTO 3jEND

2greater PRINT "X>0"

3jEND:
PRINT "END PROGRAM"
END

#save file:///c:/other/1.txt

  c:/other/1.txt   

5 INPUT "X=?",X%
10 IF X%<0 THEN GOTO 25
15 IF X%>0 THEN GOTO 30
20 PRINT "X=0":GOTO 35
25 PRINT "X<0":GOTO 35
30 PRINT "X>0"
35 PRINT "END PROGRAM"
40 END

    GOTO, GOSUB, TRAP  RESTORE  .        ,       .     REM,    DATA     ( ). ,  

REM RESTORE 5
DATA GOSUB 21
X$="goto 70"
PRINT "TRAP 100"

    (   ).
  ,    ,   (GOTO, GOSUB)    (TRAP, RESTORE),        -      :
GOTO  goto,
GOSUB  gosub,
TRAP  trap,
RESTORE  restore
 
Goto 20  GoSub 70_xZ       GOTO  GOSUB   20  70_xZ   .          REM  DATA.  
Rem GOTO 20

Data TRAP 10X
   Rem  Data   REM  DATA     20  10X.      ,       .
        , ,    ,      '=', '*'  , ,      :
A$="Basic:CLS
PRINT A$
(   ).    TextCompiler        MobileBASIC,        MobileBASIC     .

1.4 

 -   ( )     .           .      '@'.  -     a..z, A..Z,  0..9,   '_'. ,    ,    .     . :

@initializer:
A=1.0
B=-7.0
C=12.0
@root
D=B*B-4*A*C
SQRD=SQR(D)

 A=1.0, B=-7.0, C=12.0    @initializer,  D=B*B-4*A*C, SQRD=SQR(D) -   @root (,    @initializer  ,    @root -   ,  ':'    ,   ,   ).
     ,     .      GOTO 1_label (GOSUB 1_label, TRAP 1_label, RESTORE 1_label),    1_label     .           . .

@block_1:
GOTO 10
@block_2:
10 END

     :
"   10   @block_1".
    ,     . .

@vvod:
INPUT "X=?",X%
IF X%<0 THEN GOTO @less
IF X%>0 THEN GOTO @greater
PRINT "X=0":END

@less:
IF X%=-100 THEN GOTO 100
PRINT "X<0, X<>-100"
END
100 PRINT "X=-100":END

@greater:
IF X%=100 THEN GOTO 100
PRINT "X>0, X<>100"
END
100 PRINT "X=100":END

 GOTO 100     @less  @greater     100    .     ,      .  GOTO @block       @block.
         ,     ,     ,   '/'    .    100   @X  @X/100.  GOTO @X/100     100   @X    ,   GOTO 100    @X.
 .

@main:
RESTORE @data/20
READ A$:PRINT A$
READ B$:PRINT B$
RESTORE @data/10
READ C$:PRINT C$
READ D$:PRINT D$
@data:
10 DATA C,D
20 DATA A,B

   ,      #save         10     10:

10 RESTORE 80
20 READ A$:PRINT A$
30 READ B$:PRINT B$
40 RESTORE 70
50 READ C$:PRINT C$
60 READ D$:PRINT D$
70 DATA C,D
80 DATA A,B

   :
A
B
C
D

     @a   10     GOTO @a,    GOTO @a/10.  ,        . .

@x:
10:
20
30x
50Y PRINT "All the labels are mine":RETURN

  @x      GOSUB @x, GOSUB @x/10, GOSUB @x/20, GOSUB @x/30x, GOSUB @x/50Y.
    .          -      ,    .      ,      ,       .
.   1.txt (,  RMS)   :

@print
PRINT "1.txt"
GOSUB 10
END

  

#path
#inc 1.txt
10 PRINT ""
RETURN
#save ... ()

  ,    10   .  ,   #inc 1.txt     @print,    ,       .
          .             MobileBASIC.
     .          ,      . .

@1:
GOTO 10

@2:
PRINT " 2"
END

@1:
10 PRINT " 1"
GOTO @2

 :

10 GOTO 40
20 PRINT " 2"
30 END
40 PRINT " 1"
50 GOTO 20

,      , ,    TextCompiler      .

1.5  

       .             WIN (CP 1251). TextCompiler          '',        MobileBASIC.     ''      CHR$()   CHR$(1103). ,

PRINT " "

  

PRINT ""+CHR$(1103)+CHR$(1103)+" "+CHR$(1103)

    DATA     '~' (  ASCII- 126). ,

REM  



DATA , , 

   

REM ~ ~



DATA ~, ~, ~

        DATA.

1.6   

             REM.   TextCompiler      ,    . , 

' 

    

REM  

  (')       ,     .

1.7  END

          ,   :     ,      ,         END. .

@print:
PRINT "Press 5"

@loop:
IF FIRE(0)<>0 THEN GOTO @stop
SLEEP 0:GOTO @loop

@stop

#save loop.txt

 :

10 PRINT "Press 5"
20 IF FIRE(0)<>0 THEN GOTO 40
30 SLEEP 0:GOTO 20
40 END

     40 ,    MobileBASIC        GOTO 40     .

--------
2.  
--------

   TextCompiler     :

 
 [ RMS ]
 
 [ JAR ]
 
 
 
  
 

,      ,   , ,      .      .

 1.

      -    .      ,    .   :

  2 ( ) -      ;

  8 ( ) -      ;

  4 ( ) -         ;

  6 ( ) -         ;

    Siemens   'C'  Sony Ericsson -     (   ,     -).    ,      ;

  3 -         -;

  5 ( ) - .   ,  ,  -     .      ( )      RMS.              .

 2.RMS

       ,   RMS     .    -.      ,      ,   ,   RMS  ,   .   RMS    ,   (   RMS)  ,        .      RMS  ,  RMS   .

 3.

       ,       .     http://,   ,    .           ()    RMS.           .

 4.JAR

       ,     JAR-    (  )         '    '.      -   .            RMS,    JAR           RMS.

 5.

       ,     ( 200 ) ,         RMS    (     ).     .       .

 6.

        :

  line  step  ;
  #inc;
  #move;
  #save;
 ;
 ;

    (    ).

6.1 

   :

6.1.1 

     :

1- ;
2-    + ;
3-   ;

  1  .    ,   .
  2   ,  ( Sony Ericsson)      .
  3        ,   Siemens      ' '  ''.

6.1.2 

      ,      .     JAR (   )   .      ,   (, Siemens)      ' '  ''.       -,      .    :

*.mp3
*.wav
*.wave
*.mid
*.midi
*.amr

       .
        ,      .

6.2 

                    -.      0  999 .   300 .  Siemens CX65   0 ,       .  Sony Ericsson K750   300   .

 7.

          , ,   -,      JAR,      :

http://mkb23.mag.su/abouttc.txt

 8.  

        .

 9.

   .

--------
3.    
--------

    JAR-  -      - zip- (  JAR-  zip-).   (       ),      ,  ,    *.jar    .           .        .         .
          ,     '_'.
  TextCompiler      .

 3.1  

       9 .        song.jpf.   -

 :    0, 1, ..., 9 -   ;
 :          .  ,  ,      10 (  ).  song.jpf    ,     .
 .  JAR  3 : sound1.mid, sound2.mid, signal.mp3.     song.jpf    :

3
sound1.mid
sound2.mid
signal.mp3

      10   ,  .

 3.2  

   ,    .   ,            files.jpf.      song.jpf,       ,   .
 .  JAR  4 : a.txt, b.txt, sub.lis, my_file.bas.       files.jpf  :

4
/a.txt
/b.txt
/sub.lis
/my_file.bas

      10   ,  .


------

Counter, 11.05.2008