                                     -91-

                                 த.
                             砫  . 3,47

  16. DO
   DO WHILE <᫮>
   DO UNTIL <᫮>

   D (祢 ᫮ WHILE 室   J,  祢 ᫮
UNTIL -   K).
  . ⠪ LOOP, EXIT IF.
   DO - LOOP   २  ࠢ   ᯮᮡ
࣠樨 横 FOR - N ⠭⭮ .  २⢠
⠭   ⨬묨  ᯮ짮 䨪஢ WHILE  UNTIL.
    DO  LOOP   થࠬ, ⬥騬 砫  
横. ᫥ ⮣,  ணࠬ   LOOP, ࠢ ।
  DO  ..
  ਬ:

        10 DO
        20 PRINT "HELLO"
        30 LOOP

   ணࠬ 㤥  ᪮筮 ᫮ ࠧ ᫮ HELLO. ⠭
  㤥 ⮫쪮  BREAK.
  ⢨ DO     䨪 WHILE <yc>. 
⢨ ⠪:
  ᫨ ᫮ 饥 ᫥ WHILE ࠢ ( 祭 "⨭"), 
믮  騥 ᫥ DO   ,   
 LOOP, ᫥ 祣 ࠢ  ।  DO  
஢ ࠢ ᫮  .. ᫨  ᫮ "",  
 ணࠬ,   DO  LOOP   ࠢ ।
 , 饬  LOOP.
   ࠧ,   ணࠬ,  ⮨  DO WHILE <᫮>
  LOOP 믮 ࠧ  ࠧ,  <᫮> ࠢ.
  DO UNTIL <᫮>  אַ ⨢ 祭.  ணࠬ
祭  DO  LOOP 믮,  ᫮ "" (묨 ᫮
  ,  ᫮  ⠭ ࠢ).
  ਬ:

        10 LET total = 
        20 DO UNTIL total > 100
        30 INPUT " ᫮ ";x
        40 LET total = total * x
        50 PRINT total
        60 LOOP
        70 PRINT "稫 ᫮  "

   ⮬ ਬ ப 20  뫮   ⠪:

        20 DO WHILE total < = 100.

   DO-LOOP  뢠 筮 ⠪ ,  FOR - NEXT.
  ਬ:

        DO   Ŀ          DO   Ŀ
           DO   Ŀ            DO   Ŀ 
                                      
           LOOP ٳ            LOOP  
        LOOP             DO   Ŀ 
                                        
                                LOOP  
                              LOOP 

    ,  ஬  ணࠬ ࠭  DO.
  㦨 ⥪, ⮬  室  横 (९루
१ LOOP),     EXIT IF  POP.   ந
"㯮ਢ" ⥪  ᡮ ࠡ  ணࠬ.
  ᫨  ணࠬ   DO   ᮮ⢥騩 LOOP, 뤠
ᮮ饭  訡: S, "Missing LOOP".
   樨     㣨 몠
ணࠬ஢    㣮 ᠭ,  ਬ 
権:

        REPEAT
           
        UNTIL <᫮>

筮:

        DO
           
        LOOP UNTIL <᫮>

        REPEAT
           
        UNTIL FALSE

筮:

        DO
           
        LOOP

        WHILE <᫮>
           
        ENDWHILE ( WEHD)

筮:

        DO WHILE <᫮>
           
        LOOP

  17. DPOKE , ᫮

  : 
  . ⠪ DPEEK (), ᫮

  DPOKE 砥 "" .
    뫠 塠⭮ ᫮    祩.
筠   ⠭⮬ ᨪ  ᫥騩 :

  K ,n - INT(n/256)*256
  K +1,INT(n/256)

    - 
        n - ᫮ (0...65535)
  㣨 ᫮, 訩  뫠  㪠 ,  訩
 -  ᫥饩   . ᪮  ⥬ ६
"㬠"   ⠪ 塠 ଠ,   祭 㤮
   DPOKE.  筮 㭪 DPEEK ।⠢ ""
.

  18. DRAW  X, <,>

   ᯮ  祢 ᫮ ⠭⭮ ᨪ - DRAW  .
    稢   ⥪饩 ᪮ 樨  窨,
 न⠬ x,.    㤮, 祬 ᯮ짮
⠭ DRAW,  ஬   ᮫ न,  稭
⭮⥫쭮 "ᬥ襭"  ਧ⠫  ⨪.

  ਬ:

        10 FOR n=1  100
        20 DRAW TO RND*255,RND*175
        30 N n

  ᫨    ⨩ ࠬ (),  ᬮ ࠦ ਢ.
  ᫥    ⠢  梥 PAPER, INK  ਡ,
ਬ OVER  ..

        DRAW TO 10, 10
        DRAW TO INK 2; 20, 30
        DRAW TO 100,90,1

  18.  EDIT < ப>

  : 0 ( 筮,  ᪮ ०).
      ᠬ,  SHIFT + "1". EDIT -  祢 ᫮. 
।祭  ⮣, ⮡  ⮬⥫쭮 ᫥⥫쭮:
LIST - 롮 ப - BREAK - SHIFT + "1".
   ⮣, ⮡  -饬 , EDIT  뢠 
 SHIFT-.   㪢  㦥 ,  ஢
 㦭   ஢ ப.    ६,  ப 
稭  , ⮬    ᯮ짮.
   稫  - ப.  ENTER. ணࠬ  
 । ப.   0  砥 祢 ᫮ EDIT (᫨
    ,  ࠢ   砫 ப 砥 EDIT). ᫨
᫥ EDIT ( )   㦭  ப   ENTER, 
ப  㤥 襭    ࠭  ᫥饣
।-





                                     -92-
஢.
  ᫨  ப  㪠,   ।஢ 㯨 ⥪ ப.
⥫쭮  饭 ।஢   ६
  ࠭ ""/""  ࠬ ணࠬ ப.   
⠢  祢 ᫮,   訩 ஡. ᫨ 
⠥   , 祬 設 ப    
ப ࠭,  ⮬᪨ "룭"   ணࠬ ப. 
⮩ ᯮᮡ  -   ப - 맢 EDIT  ⥬ 
" ".

  9. EDIT ப ६ 
     EDIT ; ᫮ ६

  : SHIFT + "5"
  EDIT  ਬ  ⮫쪮  㤮 ।஢ ப,  
 ⮣  ணࠬ ६.   楫 
ᯮ짮   砫 ப    맮 EDIT
⨥ SHIFT + "5"  ᪮ ०.  ⠪  ᫮ EDIT 
㪢  ० KEYWORDS 3  4. 筮 ਬ - ᥭ  
ப ६, ਬ   䠬, , ⢠, 
 ᨢ , ।⠢饬  ᥡ  .
   ᨢ   , ਬ   INPUT. ᫨ ⥯ 
  - ,   㤮   筮 ,  
  EDIT $(n)  砥 ᮤন ப "n"  
।஢. ᬮਬ ਬ:

        10 LET a$ = "John Brown"
        20 EDIT $
        30 PRINT a$

        40 LET num=365.253
        50 EDIT ; num
        60 PRINT num

   ப 50 ਬ  ";"  ⮣, ⮡ ⫨ ०
EDIT <᫮ ६>  ० EDIT < ப>.  뫮 ,
,  窨  ⮩ ᯮ짮  ,   ⮬ 砥
।㥬 ६ 뫠  ࠦ, 稭  16- 樨 ࠭.
  EDIT  ᨭ⠪, 祭 宦  INPUT.   ᯮ짮 
 ⮩, , AT, TAB, LINE  ப ᪠ 筮 ⠪ , 
筮    ஬ INPUT. ⫨稥  ⮬,  ।஢ 
⮫쪮  ६. ᫨  ஡ ।஢ ᪮쪮,  
稥, ஬ ࢮ,  ਭ,   INPUT. ᫥騩
ਬ 뢠,   ᮧ ᨢ  ।஢ :

        10 DIM $(10, 15)
        20 FOR n=1  10
        30 INPUT $(n)
        40 N n
        50 PRINT "஢"
        60 FOR n=1  10
        70 EDIT (" ";n;" ");$(n)
        80 N n

  ᫨ ६,  ।஢  EDIT  ,  
 ⭠ INPUT.

  20. ELSE <>

  : 
  ELSE -   ⮢ 樨 IF - HN. 筮, ᫨ ᫮,
饥 ᫥ IF ࠢ (),  ᫥饩 믮 ப,
  ப, ᮤঠ饩  IF.  冷  . ᫨ IF
 N ᮤঠ   ELSE,   砥,  ᫮  믮,
ࠢ । , 饬 ᫥ ELSE.  㣮 ஭, ᫨
᫮ ࠢ,  ப IF ᯮ ⮫쪮  ELSE  ⥬
ࠢ । ᫥饩 ப (᫨ THEN  ।    ).
  ਬ:

        10 INPUT " ᫮ ";
        20 PRINT " ᫮ ࠢ 1?"
        30 PAUSE 50
        40 IF x=1 N PRINT "": ELSE PRINT ""
        50 GO TO 10

  ,    ᫮, ᫨   ப   
᪮쪮 IF N ELSE.    㤭 ।,    祬
⭮. ਢ  ਬ   ࠧ.
                          Ŀ
                                
        IF..N...:IF..N...:ELSE...
             Ŀ
                         Ŀ        
                                       
        IF..N...:IF..N....ELSE...:ELSE

              Ŀ          Ŀ
                                   
        IF..N..ELSE..:IF..N..:ELSE

  ᫨ ELSE ᯮ  IF, ਬ,  ELSE ⮨  ஬
ப,   ELSE  ⠫쭠  ப .

  21.  END PROC

  : 3
  . ⠪ ࠧ, 饭 楤ࠬ. PROCEDURES; DEF PROC.
  ⬥砥  楤.  ⮬   㤥
믮 祣, 饣  DEF PROC  END R, ᫨ 楤  뫠
맢.   ९룭 १   END PROC.  ६  ᯮ
楤, END PROC 㦨 殬  ᯮ.  
६ (LOCAL) ⠭ 室 祭  (GLOBAL)
६, ᫨  . ᫨  楤 - ࠬ ।
 뫪 (। ଠ ࠬ஬ 﫮 REF),  ⥪饥 祭
ଠ쭮 ࠬ ᢠ 䠪᪮ ࠬ, ⢮
 맮.
  ᫨ ଠ ࠬ  ,   ᮮ饭 "Variable not
found".
  ᫥ ᯮ 楤 ࠢ । , 饬 
맮 楤.
  ਬ END PROC  ᮮ⢥饣 DEF PROC  ᮮ饭  訡:
  W, "Missing DEF PROC".

  22. EXIT IF <᫮>

  : I
  . ⠪ DO, LOOP
     ⮬ 樨 横 DO-LOOP (.
ᮮ⢥騩 ࠧ). EXIT IF ᯮ  ⮣, ⮡   ᢮
  । 横 DO-LOOP, ᫨ ᫮ 믮. ᫥ 室 
横 ࠢ । , ᫥饬  LOOP.
  ᫨ ᫮  믮, 祣  ந室.

  ਬ:

        100 DO
        110 PRINT "ப 110"
        120 PAUSE 20
        130 EXIT IF INKEY$ = "" STOP
        140 PRINT "ப 140"
        150 PAUSE 20
        160 LOOP
        170 PRINT "室  横"

  ணࠬ 㤥 ࠡ   ,   㤥   "STOP"
(SYM. SHIFT + A).
  ᫨  ணࠬ 襭  LOOP, 뤠 ᮮ饭 訡:
  S, "Missing LOOP"

   23. FILL X,
    FILL <INK ᫮; > ,Y
    FILL <PAPER ᫮;> X,Y

  :  F
   FILL  FILL INK 訢  ࠭, 襭 梥⮬
PAPER  梥 INK, 稭  न x,y.
   FILL PAPER  訢  ࠭, 襭 梥⮪
INK  梥 PAPER.
  訢 ந室  窨  न⠬ x,y  





                                     -93-
஭   ,    ⪨, 㦥 襭  INK 
 FILL INK  FILL   PAPER   FILL PAPER. ᫨ 室
窠   ⭮ 襭  ॡ㥬 祣  ந室.
   ⫨稥  筮 ᨪ ࠬ 梥 ᫥ INK  PAPER  
㪠뢠,  ⮬ 砥  訢 ⥪騬 梥⮬. ਬ,
FILL PAPER; x,y - ࠡ⠥.
  ਬ:

        10 FOR n=1 TO 6
        20 CLS
        30 CIRCLE INK n;128,88,n*10
        40 FILL INK n; 128,88
        50 NEXT n

    ᯮ짮 ᫮ 権 FILL, ⠪ :

           FILL INK 2; PAPER 1; FLASH 1; X,Y

   ⠪  ࢮ 祢 ᫮ ᫥ FILL 㪠뢠   
ᯮ   (INK  PAPER),  ⠫  
ਡ 塞 .
  ᪮,   ,  ।   
ᯮ짮   梥⮢ ६, 孨 ࠡ  梥⮬ 
 祭  த㬠. 祭   ਥ १,
ᮡ   ,  ⠪  梥 INK. 筮  室 
 ⮣,   ⥩  ࠧ묨 梥⠬ ஢  ࠭栬 .

        10 LET =128, =88, rad=70
        20 LET g= ( SQR  2)*rad/2
        30 CIRCLE  X,,rad
        40 PLOT X,Y : DRAW  -g, -g
        50 PLOT X,Y : DRAW g, -g
        60 PLOT X,Y : DRAW 0, rad
        70 FILL INK 2; x-5, y
        80 FILL INK 4; x+5, y

  FILL ࠡ⠥    ᪮ .  ਬ
஡   ࠭,  ᪫祭 ⮣,  室 
㪢 "Q".
  PRINT STRING$ (704, "Q"): FILL 0,0
  ⮤ ࠡ⠥ , ᫨  讥 ⢮ 㯭 ᢮
. ᫨    , ਬ  ࠭,  ᬮ
㢨 祢    ,   ஢   
  - ⪨.  ४  ᫮  
᪮쪮      ஧.
   ⠭,  ⢮ ᥫ 뫮 襭  ᫥
 FILL,  ⮣ 㦨 㭪 FILLED().
  ࢠ      ६ ⨥ RK.

  24. GET ᫮ ६ 
      GET ப ६

  :  G
     ᠬ,  GET  .   INKEY$  ᯮᮡ ⥭
  ᯮ짮 ENTER. ⫨稥  INKEY$  ⮬,  GET 
 .  ᯮ짮  ப ६, GET  
ᨬ:

        10 GET $: PRINT $;: GO  10

   ⮩ ப 宦  ࠡ 饩 設.  ⥬ 
 ४   ய묨  묨 㪢.  
६  㦭 ࠢ, ࠡ⠥ ࠭ ᨬ. ENTER 
室  砫 ᫥饩 ப.  ७  룫廊 ⠪:

        10 GET $
        20 PRINT CHR$ 8; " "; CHR$ 8; $; INVERSE 1; ""; INVERSE ;
        30 GO TO 10

   .    ࠧ ᨬ, ᯮ짮 
CSIZE.
  ᫨ GET ਬ  ᫮ ६,   ⨨   "1" 
"9"  ᫮  1  9.  ⨨ ""  ""  ᫮ 10, 
⨨ ""  "b"  ᫮ 11  ..  祭 㤮  ࣠樨
ࠧ த ࠭   ᠭ -ࠢ塞 ணࠬ (. ⠪
N).

  25. GET ப ६, , <ਭ, ><;⨯>

     GET  ࠭. ਬ  ⮣, ⮡ - אַ㣮
 ࠭ ᢮  ப ६  ᫥⢨  
 ࠭   PRINT  PLOT    ࠭,   .
  (᫨  㤥 ਬ PRINT,  室 ,  ⠭ CSIZE
   㫥. , ਬ. CSIZE 8   ࠭ 
ப ६ ࠦ  ࠫ 稭.)
     ,  न -  ᥫ.  ⥩襬
砥   ப ६ ᫥ न  孥 㣫.

        10 PRINT "OWE"
        20 GET $,4,175
        30 PLOT 100, 100; $

  .. ࠧ ᭨  ࠭   㪠,   㬮砭
।,    ਭ ࠢ   .
   ⮬ ਬ  ࠭ 㤥 ⠭ "QWE",  ⥬ ࠢ 
㪢 Q    㪢 W  ࠭  ६ $.  
ᮢ襭⢮  -ᨪ PLOT  ᬮ 
祭 ࠦ    ࠭ (. PLOT), 祬 ᤥ 
  ࠧ 㢥祭 (. CSIZE).
     .   ப ६ ᮤঠ 
䨪 ࠭? ᫨    ᭮, ய ᪮쪮 ᫥
楢.
  ⠢ 쪨 ᯥਬ.   ப ६ $.
  ᤥ PRINT LEN $.  㢨,   ⮩ ६ ࠢ 9
ᨬ.  ᮤন ࠢ騩 ,    ⮬,  
᫥ 8 ᨬ  ᪨ ࠧ. ᫨  﫨  襣
ࠧ,    ,    ⠢ ⠬,   , 
ࠢ ஬ (. ࠧ ࠢ騥 ).
  ਢ ਬ ࠦ  ࠭  ࠧ஬ 3X3 ,
   ६ $  ⥬ ⠥  砩 ࠭ 
࠭, 祬   ࠧ ॥, 祬   뫮  ᤥ
  ஥.

        10 CIRCLE 10,165,10
        20 CIRCLE 13,165,5
        30 FILL 5,165
        40 GET $,0,175,3,3
        50 PLOT RND*230, RND*150+20; $
        60 GO TO 50

  ᫨  ᯮ OVER ,  㢨,   㭪  梥⮬
PAPER ,    .  祭 㣨 १⮢ ஡
ᯮ짮 OVER 1  OVER 2   ਬ  ࠧ (OVER 2  ०
 ⠭⭮ ,  -, 騩  ᮢ  
࠭   ஢ ⮣,    訬 ࠦ. )
  ᫨   ᮢ  㦭⥩  ࠧ,  ࠧ
॥ ࠡ GET  PLOT, 祬 CIRCLE. ஡ 㤠 ப 20  30 
 OVER 2 ( ᯮ  ப 50 PLOT OVER 2; RND * ... )
   ᬮ७ ਬ ⭮  㫥 ⨯. ᫨   㪠뢠
  GET ࠬ <⨯>,  ।,   ࠢ . 㫥
⨯  GET - "梥".
    㭮 ᭨  ࠭  梥⮢ ਡ⮢  ந
 PLOT  ⥪ ⠭ 梥    梥,
㪠   PLOT  PRINT.





                                     -94-
    ᯮ짮  GET  㣮 ⨯.  ⨯-1.  
ᯮ짮 ᫥  ⠢   ⮩  ⠢ 1.  ⮬
砥 ࠦ ᭨  ࠭  ப ६  
梥⮢묨 ਡ⠬. 筮 ⠪   㤥  ࠦ   PLOT
 PRINT. ਭ樯쭮 ,  ᫨ ᪨ ,   
ࠡ⠥,  ᪮쪮 梥⮢,     㤥 ந ⮫쪮
 ࠡ   ⨯ GET.  ,   ⠭ 梥
 . ࠦ 㤥 ந ⠪,  뫮 .

        10 PRINT INK 2; ""
        20 PRINT: PRINT INK 4; "DEF"
        30 GET s$, 0, 175,3,3; 1
        40 PLOT 100,100; s$
   筮,    뢠,   "㬠"  । 
  ⮫쪮 2 梥 (INK  PAPER), ⮬ ⥫쭮
, 㤠  頥 ࠦ, ⮥  GET   梥⠬.
 ⭮    ࠭    ஡  ਡ⠬
("設" ਡ⮢).

  26. JOIN < ப>

  : SHIFT + 6 ( ,   "&")
  . ⠪ SPLIT.

  ꥤ   ப. ࢠ ப -  ன  (᫨
  -   ப,  ன ⮨ )  ᫥   ப.
  ⭮ ᯮ SPLIT  JOIN  砥  "१" 
ப  "⥣"   㣮.

  27. JOIN ப ᨢ 
           ᫮ ᨢ.

  : SHIFT + 6
  ( .   "&")
  . ⠪  "ࠡ⪠ ", . 8.

     ६  ᨬ쭮 ப  ᨢ 
  㣮 ᨬ쭮  ப   ᫮ ᨢ.  
JOIN ᭮ 易   COPY. ᪮  祭 宦   㣠,
  㦤   ᮢ⭮.   ⢨ ⮨  ⮬,
 ᫨  JOIN ६頥 ,   COPY -  .
 祢.  ஢ 室 ਠ  㭨⮦,  
६饭  ய.

  )    ᨬ묨 ᨢ.

  ࠧ ᨭ⠪:

  JOIN $ <n TO m>  b$ <k>
  COPY a$ <n TO m>  b$ <k>

  :
  $ - 室 ᨬ쭠 ப;
  b$ - ப 祭;
  n,m - ࠬ 뤥 ப  ப;
  k -   ப 祭.

  ਬ:

        10 LET $ = "12345"
        20 LET b$ = "ABCDEFG"
        30 JOIN $  b$
        40 PRINT b$: REM ⠥ ABCDEFG12345
        50 PRINT a$: REM: $  .

  ᪮  ਬ﫨 JOIN   㪠뢠 ࠬ஢ n,m,  
६ $ 楫 諠  b$   $  ப 50 祣  .
᫨  ⥯   ப 30  JOIN  COPY,  ᬮ 㡥 
ப 50,  $  ࠤ. ਠ ਬ COPY, ⥬ ᠬ, 宦 
 ,     ࠡ  LET:

        LET b$ = b$ + a$

     JOIN  COPY ࠡ  ⮣,  $  b$ ⠪ ஬,
    , a LET  ⮬ 砥 ࠡ  ᬮ.
ਬ LET a$ = $ + ""  ᬮ ࠡ, ᫨ $ , 祬 
 ᢮  .
    ࠬ஢ 뤥 ப  ப   ࠡ 
⮫쪮  ப,    ப.   ⠢  ப
祭   , 㪠 ࠬ 樨 ⠢.
  ᫨   ࠬ ப,  ਭ  㬮砭  ப.
᫨   ࠬ 樨 ⠢  ப 祭,  ⠢
믮 ᫥ ᫥ 樨. ஡  ᯥਬ஢ 
襯ਢ ਬ஬,  ப 30:

        30 JOIN $ (2)  b$
           REM: $="1345", b$="ABCDEFG2"
        30 JOIN $ (3 )  b$
           REM: $="12", b$="ABCDEFG345"
        30 COPY $  b$(3) REM: $="12345", b$="AB1234CDEFG"
        30 JOIN a$(2 TO 3) TO b$(LEN b$+1)
           REM: a$="145", b$="ABCDEFG23"

   ⥯ ᬮਬ  ࠪ᪨ ਬ.   ᬮ
ᨬ ப t$  直 ࠧ,     ᫮ "Spectrum"
   "ZX".  ⮣  ᯮ  COPY, DELETE  INSTRING.

        10 LET t$="The Spectrum is a versatile computer, but Spectrum owners
                   may feel it should have better editing"
        20 PRINT t$
        30 LET n$="ZX", o$="Spectrum"
        40 LET P=1
        50 LET P=INSTRIHG (P,t$,o$)
        60 IF P<>0 THEN
             DELETE t$(P TO P+LEN o$-1)
             COPY n$ TO t$(P)
             GO TO 50
        70 PRINT t$

  b) ࠡ  ᨬ묨 ᨢ.

  ࠧ ᨭ⠪:

  JOIN  <n  m>  b <k>
  COPY  <n  m>  b <>

  :
   - 室 ᨢ;
  b - ᨢ 祭;
  n, m - ࠬ 뤥 ᨢ  ᨢ,
   -   ᨢ 祭.

  ᨢ -  㤮 ⮤ ࠡ  訬 ⢮ ,  筮
   쥧 ࠭祭. ୮ ᠬ ⢥   -
,  ᨢ  䨪஢ ࠧ,    祭
ᨢ.   樮쭮 室 , 稢 (DIM) ᨢ
, 祬   ᠬ  室,     墠 
ਬ  ᮧ   ᨢ.
  -    㫨஢  ᨢ.  JOIN
 COPY  ६  ஢  ᨢ   .
࠭⢮   ਠ ᮧ  祭 ᨢ,
⮬ 祣  㤥 १.  㦨  ⮫쪮 ,
  㬥 ᨢ,  ⮣ 뢠 筮  設⢠ ਫ.
 ᨢ ࠪ,  㬥, 騥  ࠧ୮,
ࠢ .   室 ⮡ ᮢ ࠧ୮
室 ᨢ  ᨢ 祭.
   ⠪  室, ⮡  ᨢ  ண 
⢮ 冷   .   ࠡ⠥  ப묨 ᨢ,
ப 室 ᨢ "१"  ᮮ⢥⢨   ப ᨢ
祭, ᫨   ,  , " ஡",᫨ 
. ᫮ ᨢ  ࠡ뢠 ⠪ ,  ᪫祭 ⮣, 
 ஡ ᯮ





                                     -95-
㫨.
  ।,     ᨢ a$(100,30)     .
⮡     20 ᨬ ப,   ⢮ ਬ
⠪:
        DIM b$(20, 30): JOIN b$ TO a$
᪮  ᯮ짮 JOIN,  ப  ॠ쭮 㤠  ᨢ
b$  襭  a$,    ᪮஢,   뫮   ਬ
COPY. ᪮  ࠬ஢ १ ᫥  室 ᨢ 
뫮 㪠,    ᨬ ப  ६饭  ᨢ
⠭ ⢮.  ᯮ짮 COPY  ⠫  ஭.
   ⠢  ᨢ 祭 뫠 㪠.  㬮砭 㤥
ਭ,     101,   ᫥  ᫥. ࢠ
ᨬ쭠 ப  ᨢ b$ ⠭  ࢮ  ᨢ a$,  ᫥
⠭ ப  120.
  ..  - ᨢ    ᢮ ࠧ,   
ॡ ⭮ ਬ 㭪樨 LENGTH ⮡ । ࠧ
ᨢ.  襯ਢ ਬ LENGTH (1,"a$")   稭 120.
  ᫨  ਬ DIM b$(20,3)  DIM b$ (20,50),  ⥬ ᤥ
JOIN b$ O a$,   १ ப ᨢ b$  "" ஡
,  "१" ⠪, ⮡  㪫뢠  ப ᨢ $,
騥 30-ᨬ .
  ᫨   㦥  ⮢ ᨢ   ,     ᤥ
ப ,    ᤥ,  १ DIM ᨢ  
 ⮫쪮   ⮬,  ⮬ ६ (JOIN) ᢮ ᨢ 
.
        DIM b$(1,40): JOIN $  b$
  ⢥ ⮪,  ᮦ, ⮨  ⮬,  ⥯  
  室  b$,  $  㤥 ⢮. ⮡ ⠭
,  ᤥ  室:
        DIM a$(1,40): JOIN b$  $
         묨 ᨢ,   JOIN  COPY 
ࠡ  .   㪠  ᨬ ப,  
 室 ᫮ ᨢ   ᯮ짮   뤥
ࠬ஢ ,  ⠪ ,   ந ⠢.
  騥 ਬ ᠭ  JOIN,  ᮮ⢥⢥  ࠡ  
COPY.
      JOIN a$ TO b$(4)

-   ᨢ a$  b$ ⠪ ࠧ,  ࢠ ᨬ쭠 ப
㤥 ⠢ ᫥ ⢥⮩ ᨬ쭮 ப  㢥祭 ᨢ b$.

      JOIN $(2  5)  b$(1)

- ६ 4 ᨬ ப  $  砫 ᨢ b$.  ᫥ ⮣
ᨢ $ ⠭   ப , 祬 ,  ᨢ b$ ⠭ 
 ப .

      JOIN $(10)  b$

-  ६  ᨬ ப  $   b$.

  ) ᫮ ᨢ.
    㬥 ᫮ ᨢ ࠡ뢠 ᯮᮡ, 宦 
ᨬ ᨢ. ᫥  ᨢ  易⥫쭮  ᪮,
⮡ ⫨ ᨢ   ६.
  ਢ ਬ ᮧ  ᨢ,  ⥬ ꥤ  
ᮡ.

        10 DIM a(8)
        20 FOR n=1 TO 8
        30 LET a(n)=n
        40 N n
        50 DIM b(5)
        60 FOR n=1  5
        70  LET b(n)=n*10
        80 N n
        90 JOIN b()  ()
        100 FOR n=1  LENGTH (1,"a(")
        110 PRINT (n)
        120 N n
        130 REM  1 2 3 4 5 6 7 8
                10  20  30  40  50
        140 REM b()   -  


  28. KEYIN ப ६

  : SHIFT + 4

  KEYIN  ப ६ ⠪,  ᫨   ⠫  
.  ࠧ,     ᤥ ணࠬ
ᠬᮧ饩,     室  ।, ᬠਢ  
樨.  ᬮ ਬ ⮬᪮ ᮧ ப DATA.

        10 LET a$ = "100 DATA"
        20 FOR n=0 TO 9
        30 LET a$ = a$+STR$(PEEK N) + ", "
        40 N n
        50 LET a$ = a$ (1 TO LEN a$ -1): REM 㤠 ᫥ ⮩
        60 KEYIN a$
  ᫥ ᪠  ࠣ  㢨,   ணࠬ  
 ப.
   ० KEYWORDS 3  4 祢 ᫮, ࠭  ᨬ, 
८ࠧ  ᨬ ⮪.

  29. KEYWORDS ᫮.

  :   8

   KEYWORDS ࠢ ⥬,     ࠦ  ࠭
祢 ᫮ ⠭⭮ , -  ᨬ 䨪
짮⥫ (UDG).

  KEYWORDS .
   ⮬ ०  蠬  ᪮ ० ( G) ९
ᨬ 䨪 짮⥫,   ⠭⭮  襣 "㬠".

  KEYWORDS 1.
   ⮬ ०  蠬  ᪮ ० ९ 祢 ᫮
-.
   室 ﭨ ᫥ 㧪 ⥬ 室  ० KEYWORDS 1.
 ᫨   ᯮ짮 ᨬ 䨪 짮⥫,  
KEYWORDS . ࠭  ० KEYWORDS 1  KEYWORDS 0    ,
  祢 ᫮ -  㪢   ⮪, 楫, .. 롮
०   1    ⠭ ० KEYWORDS 2, 3  4. ᫥
㧪  室  ﭨ KEYWORDS 3. 騩 ० 
࠭   襩 ணࠬ, ᫨  㦠    
(CODE) ᠬ -.

  KEYWORDS 2.
   ⮬ ०  祢 ᫮   ⨥ . 
室  ६ ⨥ ⮢. 祢 ᫮ ⠭⭮
 ,  筮. 祢 ᫮ -  
᪮ ० ( G), a 㭪樨 -   浪 FN,
㪢,  "$"  "(".

  KEYWORDS 3.
   ० -  ,   KEYWORDS 2,  ᪫祭 ⮣,  
ப, ० 祬    , ᭠砫 ஢  稥
  ࠭  㪢 祢 ᫮ , ᫨  , ந室 
  ⮪ 祢 ᫮. -,  ᠬ 㤮 ०, .. 
  ࠡ    祢 ᫮  ⨥    
  㪢. ᫨ 㦭    "",   ᯮ짮 騩
஡.

  KEYWORDS 4.
   ⮬ ०   "". ..  祢 ᫮  ⮫쪮 
㪢. ஢   "", ⥬  -





                                     -96-
,   .   ⨥  SYMBOL SHIFT  ENTER.
   ०, , । ,   ॡ ᮢ⨬
 㣨 ﬨ ᮭ ஢.

  d) ᯮ 祢 ᫮.

   讥 ࠭祭  ० 3  4, ஥ 砥  ⮬, 
   ᯮ짮  ६  楤, ᮢ騥 
ᠭ  祢묨 ᫮. ᪮   ணࠬ ப 
   ந    ⮪ 祢 ᫮.  
, 祢 ᫮     ६  楤 
஡.
  祢 ᫮   ० ᯮ  ࠭ ய묨, ⠪ 
묨 㪢.   ४㥬 ᯮ짮  㪢, ⮣
᫥ ᨨ  祢 ᫮  ⮪.  ᬮ 來 㢨,
 祢 ᫮ 뫨 ८ࠧ , ,  ᨭ⠪
訡.
  . 騥 ।⢥ । 祢 ᫮     
 㪢  ᨬ ન "_".
  Print -  㤥 ஢  PRINT , ..  ।, 
  ६  楤.
  Print a - 㤥 ८ࠧ  PRINT .  ਢ ᪮쪮 ਬ஢
 ப     ८ࠧ  १
"⮪樨".

print 10.......PRINT 10
print fork, total......PRINT fork, total
alter to ink3, paper1.....ALTER TO INK 3, PAPER 1
print string$(10,"Plot")......PRINT STRING$(10, "Plot")
goto10.....GO TO 10
go to x......GO TO X
gotox.....GO TO x
defproc pink.....DEF PROC pink
mat_print......mat_print

  ਬ  GO TO 뢠,  ७ ஡     
 . 筮 ⠪   "gosub", "onerror", "defproc"  ᯮ,
 業 祢 ᫮.
   "ink", 室饥  ⠢   "pink"  "print", 室饥 
"mat_print" ᯮ  , .. । 祢 ᫮   
㪢   "_".

  30. LET ६ = ᫮ <, ६ = ᫮>...

  쪮 ᮢ襭⢮ ன  LET  믮 
᢮, ࠧ  묨.  ᮪頥 ꥬ ⮩  (
    襭 LET),    㤮  ⨭
 ⠥. . 

        10 LET x=1,y=2,z=3,a$="y",b$="n"
   :
        10 LET x=1: LET y=2: LET z=3: LET $="y": LET b$="n"

  31. LIST < ப>  < ப>
   LLIST < ப>  < ப>

     ᨭ⠪,    讥   ⠭⭮
.   뢮  ࠭  ਭ    ணࠬ.
᫨   ப  㪠,   㬮砭 ਭ ப,
᫥  㫥. ᫨ ன  ப  㪠, । 
㬮砭 ᫥ ப ணࠬ. ᫨  ࠬ 襭. 
砥  筮  LIST.

        LIST 20  100
        LIST TO 200
        LLIST 100  180

  ᫨ ப   ஬ ,   ⨭  㤥
ࠦ  ஬ ">". ..  ⮢  맮  ।஢.
  ᫨   ᮢ,  㤥 ࠦ ⮫쪮  ப.

  32. LIST DATA
   LIST VAL
   LIST VAL$

   ࠧ  LIST  ᯥ ᢮ ६ :
        LIST DATA -  ६
        LIST VAL - ᫮ ६
        LIST VAL$ - ப ६.
  ""   ⨯ ६.  LIST VAL ᯥ뢠  
4 ⨯  ᫥饬 浪:
  1.  ᫮ ᨢ.
  2.  ६ 横 FOR-NEXT.
  3.  ६  ᨬ묨 .
  4.  ६  ᨬ묨 .
 LIST VAL$ ᯥ⠥ ⠫  ⨯ ६
  5.   ᨢ.
  6.   ᨬ ௥६.
 LIST DATA ᯥ⠥  6 ⨯ ६.
  ६  ⨯ ᯥ뢠  䠢⭮ 浪 (
६  ᨬ묨    ਭ ⮫쪮 ࢠ 㪢).
ਬ ⮣    LIST DATA ਢ :

d(10,4)
k(3,3,4)
n STEP 1  500 LN 200
g         3.5
j         100
s         23.1

applen    1
number    9999
xos       0
xrg       256
yos       0
yrg       176

t$(100,10)

a$ LEN 5    "Hello"
b$ LEN 40   "Too long too..."
e$ LEN 5    "Bang!"

   ᨢ ࠦ ⮫쪮  ࠧ୮,   ᮤঠ.
६ 横 FOR-NEXT  ⫨    ⢨
ࠬ STEP  ࠬ LN (looping number -  ப,  ன
ந    横).   ப ६
ࠦ ⮫쪮  15 ᨬ.

  33. LIST DEF KEY

   DEF KEY ᯮ   SHIFT + 1.
  . ⠪ DEF KEY.

     ᯥ ᯨ᮪ , । 짮⥫.
砫 ᯥ뢠 ,  ⥬ ᨬ쭠 ப  ,
   ९. ᫨  祭  ᫥ ᨬ
 稥,  ,   ⨨ ⮩  ,  
 ९, ᮯ஢ ᫥騬 NR, .. ࠧ ᫥ 
ᮤন     ࠭  ⥬ .