 1:


  Example.dat   (..  RMS MobileBASIC )         A%, VALUE, Z$


10 A%=26:VALUE=-2.076:Z$="MobileBASIC"
20 OPEN #1,"Example.dat","OUTPUT"
30 PRINT #1,A%
40 PRINT #1,VALUE
50 PRINT #1,Z$
60 CLOSE #1
70 CLS:PRINT "Saved File:"
80 PRINT "Example.dat"
90 END


   Example.dat   ,  dat  ,      .
  20:
  Example.dat   ("OUTPUT")         1: #1. (  0,1,..,9)     ,   ,    (  ).       ,    .
  30-50:
    .
  60:
 .
  70-90:
      ( 90  )


 2:

     ,    (        ),   .

10 NAME$="Example.dat"
20 OPEN #8,NAME$,"INPUT"
30 INPUT #8,INTEGER%
40 INPUT #8,FLOAT
50 INPUT #8,STRING$
60 CLOSE #8
70 CLS:PRINT "Integral Value:":PRINT INTEGER%
80 PRINT "Floating Value:":PRINT FLOAT
90 PRINT "String Value:":PRINT STRING$
100 PRINT " ":PRINT "Done"

  20:
        8
  30-50:
   
  60:
 
  70-90:
 
  100:


 3:

         (      RMS,   Dzaniss-    )

10 CLS:PRINT "Wait..":NAME$="tchaikovsky.mid":MKB23$="http://mkb23.mag.su/"
20 TRAP 60:V$="":N$=CHR$(10)
30 OPEN #0,MKB23$+NAME$,"INPUT"
40 GET #0,B%
50 V$=V$+CHR$(B%):GOTO 40
60 CLOSE #0
70 OPEN #0,NAME$,"OUTPUT"
80 FOR I%=1 TO LEN(V$)
90 B$=MID$(V$,I%,1)
100 PUT #0,ASC(B$)
110 NEXT I%
120 CLOSE #0
130 CLS:PRINT "Loaded File:":+N$+MKB23$+NAME$
140 PRINT "Saved As:":+N$+NAME$

  30
,   ,   ,        (    mid-    "" ..,   5 kB).

  40:
 GET  1          B%.

  50:
        V$

  60:
 40-50   .   ?   ,    ""    GET   .           ,    20     60:
TRAP 60
         .        .  .

  70-120:
     .      V$  ,     (..  )    .    PUT. :      V$  , ,    1? PRINT #0,V$  !   ,   ,    ,         ,  .   V$   ,   -  .       .      1:1.
   .           .        (..   )           .      ,     .


 4:

         V$    .

10 LINES%=20:V$="":CLS
20 INPUT "FILE NAME? > ",NAME$
30 IF NAME$="" THEN CLS:END
40 NAME$=READDIR$(NAME$):IF NAME$="" THEN PRINT "NOT FOUND":GOTO 20
50 CLS:PRINT NAME$:PRINT "Wait..."
60 FOR I%=1 TO LINES%:V$=V$+">"+CHR$(10):NEXT I%
70 OPEN #1,NAME$,"INPUT"
80 POINT #1,-1
90 NOTE #1,SIZE%
100 FOR I%=0 TO SIZE%-1
110 POINT #1,I%
120 GET #1,B%
130 V$=V$+CHR$(B%)
140 NEXT I%
150 CLOSE #1
160 CLS:PRINT V$:END

   40     .     NAME$  ,  READDIR$(NAME$),   .   70    .  POINT     .      ,    .         , ,   ,       , ..   .     ,       .  NOTE   90    SIZE%   , ..    .  , 
80 POINT #1,-1
90 NOTE #1,SIZE%
      (     ).   100-150     ,   ,         V$. ,       POINT   .       ,    ,  , , .
       ,  , ,
txt,wml,htm,html,jad,imy,url,vcs    MobileBASIC ,  LIST.

  5.
 ,  RMS               .

10 CLS:N$=CHR$(10):PRINT "Kriterij poiska?"+N$
20 INPUT "> ",A$
30 IF A$="" THEN CLS:END
40 PRINT N$+"Podozhdite..."
50 N%=0:T%=0
60 NAME$=READDIR$(A$):IF NAME$="" THEN GOTO 100
70 GOSUB 130
80 NAME$=READDIR$(""):IF NAME$="" THEN GOTO 100
90 GOSUB 130:GOTO 80
100 CLS:PRINT "POISK PO KRITERIYU:":PRINT A$
110 PRINT "NAJDENO FAJLOV:":PRINT N%
120 PRINT "OBSCHIJ RAZMER:":PRINT T%:END
130 OPEN #1,NAME$,"INPUT"
140 POINT #1,-1
150 NOTE #1,S%
160 CLOSE #1
170 N%=N%+1:T%=T%+S%:RETURN

           READDIR$(A$).      A$,    ,     ,   ,   .   *   A$   "   ".       ""    "". ,  A$="a*"    ,    "a",  A$="*.txt" -     txt,   A$="XY*P*N.lis" -  ,   "XY",   "P"    "N.lis".  "*"   .  READDIR$       .    -  .            A$=""   ,  .       .       READDIR$("")         ,     .     READDIR$(A$)     A$.      (     )    .
  ,   -  -    READDIR,     DIR.      .