  ,        ,       ,    ,     .

 ,            ,    .   :

X%=ABS(MOD(RND(0),-1))+ 

,       .   
10 PRINT ABS(MOD(RND(0),10))+1     1  10.   ?  MOD     -9  9,    ( 0-9)    .

 .    .       ,   .       READDIR$(MASK$),  MASK$ -  ,     * (  )  ? (  ).     .  READDIR$        .   ,    .      ,  :

10 F$=READDIR$("file:///e:/basic/*.bas") 
20 IF F$<>"" THEN PRINT F$: F$=READDIR$(""): GOTO 20

      BAS-   basic  .  ,    :

10 A%=0 
20 F$=READDIR$("file:///e:/basic/*.lis") 
30 IF F$<>"" THEN A%=A%+1: F$=READDIR$(""): GOTO 30 
40 DIM FILES$(A%):A%=0 
50 F$=READDIR$("file:///e:/basic/*.lis") 
60 IF F$<>"" THEN FILES$(A%)=F$: A%=A%+1: F$=READDIR$(""): GOTO 60

  ,   2 .    ,      .    ,     READDIR$     .

     MobileBASIC      .    10 ,      :
FIRE(0)
LEFT(0)
RIGHT(0)
UP(0)
DOWN(0)
GAMEA(0)
GAMEB(0)
GAMEC(0)
GAMED(0)
INKEY(0)
        (      ).  4        1, 3, 7  9, .     ,    7, 9, *  #.         IF FIRE(0)  IF NOT FIRE(0)
 INKEY(0)    .   (      )   .     :

10 IF INKEY(0) THEN CLS: PRINT INKEY(0): SLEEP 100 
20 GOTO 10

 IF INKEY(0)    ,    ,     " ".   "   ,  ,      ".     :

10 CLS: X%=SCREENWIDTH(0)/2:Y%=SCREENHEIGHT(0)/2 
20 IF UP(0) THEN Y%=Y%-1 
30 IF DOWN(0) THEN Y%=Y%+1 
40 IF LEFT(0) THEN X%=X%-1 
50 IF RIGHT(0) THEN X%=X%+1 
60 IF FIRE(0) THEN GOTO 10 
70 PLOT X%, Y% 
80 SLEEP 50 
90 GOTO 20

  .

   ,       .      .     . ,        : "        ,     "    . :
IF LEFT(0) AND C=1 THEN ...
     (AND),  (OR)   (NOT).  AND  ,    , OR -      ,  NOT   (  -  ,  ).     ,    .      , :
IF NOT A AND NOT B AND C AND NOT D = IF NOT (A OR B OR C OR D)

IF NOT A OR NOT B OR NOT C OR NOT D = IF NOT (A AND B AND C AND D)

      ,        .

 .    (   )   .           PLAYTONE.   2  -    (-60..67, 0-""  ),  -    

  -    .   PLAYWAV filename$.     .mid (.kar  .midi  ), .imy, .bas, .wav (.wave), .amr, .mp3, .m4a, .aac  .wma (    ).             (  SonyEricsson   ,  Nokia          ,    Out Of Memory).