                                    -105-

. ब,  ..        ॢ: 宭: H.A.

                              40  

  த.

  砫 . . 17-28, 61-70.

                       7.   .

        7.1   ணࠬ.

  : 42
  ⢮ ६:  2
  ஫쭠 㬬:  5977
  祭:  ணࠬ 㤠  BASlC-poࠬ, 室騩 
              ப, ।묨 짮⥫.
  ६:
   - start line no
   - 2
   - 23296
  ਩:  ࢮ ப, 饩 㤠.
     - end line no
   - 2
    -  23298
  ਩:  ᫥ ப, 饩 㤠.

  맮 ணࠬ: RANDOMIZE USR 

  ஫ 訡:
  ᫨   ᫥饥 訡,  楤 ⠭  㤠
  ப BASIC-ணࠬ:
  - ᫨ ᫥  ப , 祬   ப;
  - ᫨  ⨬  ப  ணࠬ  ;
  - ᫨   ஢ ப   ࠢ 0.

  ਩:
   ணࠬ 쭮   㤠 讣  ணࠬ
  ப, , ⥬  , ࠡ      㤮, 祬 㤠
  ப .

     ப , 祬 9999.

         M 

              

          LD HL,(23296)   42 0 91
          LD DE,(23298)   237 91 2 91
          LD A,H          124
          OR L            181
          RET Z           200
          LD A,D          122
          OR E            179
          RET Z           200
          PUSH DE         213
          CALL 6510       205 110 25
          EX (SP),HL      227
          INC HL          35
          CALL 651O       205 110  25
          POP DE          209
          AND A           167
          SBC HL,DE       237 82
          RET Z           200
          RET C           216
          EX DE, HL       235
  NXT_CH  LD A,D          122
          OR E            179
          RET Z           200
          PUSH DE         213
          PUSH HL         229
          CALL 4120       205  24   16
          POP HL          225
          POP DE          209
          DEC DE          27
          JR NXT_CH       24 243

    ࠡ⠥:
    ॣ஢ HL  DE 㦠 砫    ப
ᮮ⢥⢥.  祭 ஢ , ᫨      ࠢ 0,
ணࠬ 頥  BASIC.
  ⥬ 뢠 ணࠬ    6510 -  頥  
 ,  ண 稭 ࢠ ப.   ணࠬ
⥬ 뢠 ᭮  ।  ᨬ, 饣 ᫥ 'ENTER'
 筮 ப.
    ॣ஢ HL 頥 ࠧ   ᮢ , ᫨ 
祭 ࠢ 0  ⥫쭮, ணࠬ 頥  BASIC.
  ন  ॣ஢ HL   DE  ᯮ짮 DE 
⢥ 稪. ᫨ 稪 ࠢ 0,  ࠡ 楤 蠥
稢,  ᫨ ,  뢠 ணࠬ , ᯮ 
 4120,  㤠  ᨬ. ᫥ ⮣ -   'N_'.

        7.2  ⮪.

  ਬ砭:  "⮪" ࠧ㬥  祢 ᫮ (,
㭪)  "᫮" , ஥ ᬠਢ  ணࠬ (
 ஬ )   । .
  : 46
  ⢮ ६: 2
  ஫쭠 㬬: 5000
  祭:
    宦  ⮪  -ணࠬ  㣮 ⮪
  (ਬ,   PRINT     LPRINT).

  ६:
   - chr old
   - 1
   - 23296
  ਩:  塞 ⮪.
   - chr new
   - 1
   - 23297
  ਩:  饣 ⮪.

  맮 ணࠬ:
  RANDOMIZE USR 

  ஫ 訡:
  ᫨ -ணࠬ         ⮪ 
    32,  楤 頥  .

  ਩:
   楤 祭 ,  祬  -ணࠬ, ⥬ 
   ࠡ⠥.

          

              

          LD BC,(23296)   237 75  91
          LD ,31         62  31
                       184
          RET N          208
                       185
          RET N          208
          LD HL,(23635)   42  83   92
  NX_  INC HL          35
          INC HL          35
          INC HL          35
  CHECK   LD DE,(23627)   237 91 75 92
          AND A           167
          SBC HL,DE       237  82
          RET NC          208
          ADD HL,DE       25
          INC HL          35
          LD A,(HL)       126
          INC HL          35
          CP 13           254  13
          JR Z,NXT_CH     40 237
          CP 14           254  14
          JR NZ,COMP      32 3
          INC HL          35
          JR NEXT_CHR     24 230
   COMP   DEC HL          43
          CP             185
          JR NZ,CHECK     32  229
          LD (HL),B       112
          JR CHECK        24  226

    ࠡ⠥:
   ॣ B  C 㦠    ⮪ ᮮ⢥⢥. ᫨
  ⮪   , 祬 32,  ணࠬ 頥  BASIC.
    HL   -






                                    -106-
砫  ணࠬ.  ॣ஢ ⥬ 㢥稢  ࠢ 
ᮬ  ६. ᫨ HL   祬  砫 
६ ணࠬ 頥   .
   HL 㢥稢  㪠뢠  ᫥騩 ᨬ.  ⮣ ᨬ
pyaec    HL 㢥稢 . ᫨ 祭 
 ࠢ 13  14 (NTR  NUMBER) ணࠬ 頥
 'N_'  HL 㢥稢 㪠뢠  ᫥騩 ᨬ. ᫨ 
 ᮤন 13  14, ࠭ 祭 ࠢ  'chr old'. ᫨ 
,  ᨬ 頥  'chr new'.
  ⥬   ஢થ ('CHECK')   ࠡ뢠 ணࠬ.


        7.3  R 

   132
  ⢮ ६: 0
  ஫쭠 㬬 13809
  祭:
     ணࠬ 㤠  ਨ   ணࠬ.
  맮 ணࠬ:
    RANDOMIZE USR 
  ஫ 訡:
    ᫨     ணࠬ 楤 ୥    
     ⢨.
  ਩:
    楤   ᯮ  㤠 ᨬ 믮 
    祭   ⮬ 楤 " REM" ࠡ⠥ .

          

                

           LD HL,(23635)    42  8  92
           JR CHECK         24  31
  N_L   PUSH HL          229
           INC HL           35
           INC HL           35
           LD ,(HL)        78
           INC HL           35
           LD ,(HL)        70
  N_   INC HL           35
           LD A,(HL)        126
            33            254  33
           JR , N_     56 250
           CP 234           254 234
           JR NZ,SEAR     32 26
           INC            3
           INC BC           3
           IN            3
           INC BC           3
           POP HL           225
  DEL_L    PUSH           197
           CALL 4120        205 24 16
           POP BC           193
           DEC BC           11
           LD A,B           120
           OR              177
           JR NZ,DEL_L      32 248
  CHECK    LD DE,(23627)    237 91 75 92
           AND A            167
           SBC HL,DE        237  82
           RET NC           208
           ADD HL,DE        25
           JR NEXT_L        24 214
  SEARCH   INC HL           35
           LD A,(HL)        126
           CP 13            254 13
           JR NZ,N_ENT      32  8
  ENT_FD   POP HL           225
           ADD HL,BC        9
           INC HL           35
           INC HL           35
           INC HL           35
           INC HL           35
           JR CHECK         24 231
  N_ENT    CP 14            254  14
           JR NZ, N_NUMB    32 7
           INC HL           35
           INC HL           35
           INC HL           35
           INC HL           35
           INC HL           35
           JR SEARCH        24 231
  N_NUMB   CP 33            254  33
           JR ,SEARCH      56 227
           C 34            254  34
           JR NZ,N_QUOT     32 8
  FD_QD    INC HL           35
           LD A,(HL)        126
           CP 34            254  34
           JR NZ,FD_QT      32   250
           JR SEARCH        24   215
  N_QUOT   CP 58            254  58
           JR NZ,SEARCH     32   211
           LD D,H           84
           LD E,L           93
  FD_ENT   INC HL           35
           LD A,(HL)        126
           CP 13            254  13
           JR Z,ENT_FD      40   209
           CP 33            254  33
           JR ,FD_ENT      56   246
           CP 234           254  234
           JR NZ,N_QUOT     32   236
           LD H,D           98
           LD L,E           107
  DEL_CH   PUSH BC          197
           CALL 4120        205  24  16
           POP BC           193
           DEC BC           11
           LD A,(HL)        126
           CP 13            254  13
           JR NZ,DEL_CH     32 245
           POP HL           225
           INC HL           35
           INC HL           35
           LD (HL),        113
           INC HL           35
           LD (HL),B        112
           DEC HL           43
           DEC HL           43
           DEC HL           43
           JR CHECK         24 160

    ࠡ⠥:
    pe஢ HL 㦠  砫    
室  ணࠬ ஢ન  ࠡ뢠 ணࠬ.  ᫨ 
⨣ ந室   .
  ணࠬ 室  ࠡ⪥ ᫥饩 ப "N_L"  訩
 HL ࠭  ⥪  쭥襣 ᯮ짮,   C 㦠
 ࠡ뢠   ப. ணࠬ 'N_' 㢥稢 
 HL  㦠   । ᨬ. ᫨    祬 33,
. .  ஡  ࠢ騩 ᨬ, 楤 頥, ⮡
    . ᫨ ⨢訩 ᨬ   ᨬ
REM,   室  'SEARCH'
  ᫨ opaop R , ॣ  㢥稢  4 (  
⥯ ᯮ짮  ⢥ 稪), a HL ⠭  ⥪.
⥬ 㤠 ⢮ ᨬ, ।  , 稭  
।  HL.  㤠 ᯮ 楤 , ᯮ 
 4120. ⥬ 楤 ᭮ 室  楤 'CHECK'.
  ᫨ ந室 室  楤 'SEARCH', HL 㢥稢 㪠뢠
 ᫥騩 ᨬ,   祭 㦠  . ᫨  ᨬ
ENTER, .. ⨣  ப,  HL ⠭  ⥪ 
㢥稢, 㪠뢠  砫 ᫥饩 ப,  ⥬ ந室
室  'CHECK'.
  ᫨  ࠭ ᨬ NUMBER ( ࠢ 14),  HL 㢥稢,
㪠뢠   ᨬ ᫥ 㦥 ᫠,   ᪠
.
  ⥬  ஢ઠ  ᨬ    33. ᫨ ⠪
ᨬ 㦥    'SEARCH'.
  ᫨ 㦥 ᨬ "窠" (34), 楤 믮 横  ex 
  㤥 㦥  窠,  ⥬  㤥 த. ᫨
  ᨬ  稥, ।饥 ப  ᪮쪨 ࠦﬨ,
 .
  HL   DE, ⮡ ࠭  ,  ⥬ HL 㢥稢
㪠뢠  ᫥騩 ᨬ. ᫨  ᨬ ENTER,  室 
'ENT_FD', , ᫨  ࠢ騩 ᨬ  ஡ ணࠬ 頥
 'FD_ENT'.
  ᫨ ᨬ    REM, ந室 室  'N_QUOT'. ᫨ 
 REM ,  HL 㦠  ᫥ ⨢襣 , 
⥬  ᨬ  , 室饣  HL  ᫥饣 ᨬ ENTER
㤠. ⥫  ⮩ ப ४, HL ⠭ 
砫 ⮩





                                    -107-
ப,  ந室 室  'CHECK'.

        7.4   REM 

  : 85
  ⢮ ६ 3
  ஫쭠 㬬 9526
  祭:
      楤 ᮧ ࠦ REM   ⢮ ᨬ 
   ப.  롨ࠥ 짮⥫.
  ६:
   - line number
   - 2
   - 23296
  ਩:  ப    ⠢ ࠦ R.
   - number chr
   - 2
   - 23298
  Ko਩: ⢮ ᨬ ᫥ REM.
   - chr code
   - 1
   - 23300
  ਩:  ᨬ ᫥ REM
  맮 ணࠬ:
    RANDOMIZE USR 
  ஫ 訡:
    ᫨  ப ࠢ ,  9999,  ப  ⥬  ᠬ ஬
㦥 , ணࠬ 頥  BASIC.
  ਨ:
     ணࠬ  ஢ 筮  ᢮    
 ப.  ⥫쭮     ᤥ । ⮬  
ணࠬ " ᢮ "  襩 .    ᫥
REM      祬 31, . .  ࠢ騥 ᨬ (0 - 31)
 ᡨ  ⮫ ணࠬ  LIST  .
  ணࠬ   뢠  ⠢ ᨬ, 쭮 
믮   ६.
   ࠦ REM   ᯮ짮  ࠭ 設 
 .

           

     A          

          LD HL,(23296)   42  91
          LD ,H          14
          OR L            181
          RET Z           200
          LD DE,10000     17 16 39
          AND A           167
          SBC HL,DE       237 82
          RET NC          208
          ADD HL,DE       25
          PUSH HL         229
          CALL 6510       205 110 25
          JR NZ,CREATE    32 2
          POP HL          225
          RET             201
  CREATE  LD BC,(23298)   237 75 2 91
          PUSH BC         197
          PUSH BC         197
          LD A,13         62 13
          CALL 3976       205 136 15
          INC HL          35
          POP           193
  NXT_CH  PUSH BC         197
          LD ,          120
          OR             177
          JR Z,INSERT     40 11
          LD A,(23300)    58 4 91
          CALL 3976       205 136 16
          INC HL          35
          POP BC          193
          DEC BC          11
          JR NXT_CH       24 240
  INSERT  POP BC          193
          LD A,234        62  234
          CALL 3976       205 136 15
          INC HL          35
          POP BC          193
          INC BC          3
          INC BC          3
          LD ,          120
          PUSH BC         197
          CALL 3976       205 136 15
          POP BC          193
          INC HL          35
          LD A,C          121
          CALL 3976       205 136 15
          INC HL          35
          POP BC          193
          LD ,          121
          PUSH BC         197
          CALL 3976       2O5 136 15
          POP BC          193
          INC HL          35
          LD ,          12O
          JP 3976         195 136 15

    ࠡ⠥:
    ॣ஢ HL 㦠   ப.  祭
ࠢ  㫥  ᫨  ࠢ , ணࠬ 頥  .
᫨ HL ᮤন ᫮  9999 (ᨬ쭮   ப),
⠪ ந室   .
  뢠 ணࠬ  (CALL 6510)  頥  HL 
ப  ன   HL । 맮 ⮩ ணࠬ. ᫨ 䫠 
⠭  ப 㦥    ⮬ 砥 ணࠬ ⠪
頥  .
  ᫨ 䫠   ⠭,  室  'CREATE'.   㦠
⢮ ᨬ  ⠢ ᫥ 'REM'   ᫮   ⥪.
  㦠 ᫮ 13  ᨬ ENTER. ⥬ 뢠
ணࠬ    3976  ⠢ ᨬ ENTER.  
⠭  ⥪.
  ᫥ ୮ ࠭   ⥪,    ⮡
।    ᨬ  ⠢. ᫨ ,   室 
'INSERT'.  ᫨   ᨬ  ⠢,   㦠
    ணࠬ   3976 ( ) ᯮ  
⠢. 稪  㬥蠥  ணࠬ 頥  ஢થ   .
   ⮫쪮 楤 ⨣ 'INSERT'  REM ⠢, ᯮ 
 ணࠬ. ⥬   㦠  ᮧ  ப 
㪠⥫   ⮩ ப ᮧ.  ப ⥬  
⥪   祭 ⠢ । ⮬  .

        7.5 ⨥ ணࠬ.

  : 71
  ⢮ ६: 0
  ஫쭠 㬬: 7158
  祭:
     ணࠬ 㤠  㦭 ࠢ騥 ᨬ  ᢮
࠭⢠   ணࠬ, 㢥稢 ⠪ ࠧ ⢮
㯭 .
  맮 楤:
    RANDOMIZE USR 
  ஫ 訡:
    ᫨     ணࠬ 楤 頥  .
  ਩:
     楤 ।,   ࠦ REM 㦥 㤠  
ணࠬ. ᫨    ⠪, ந ᡮ. ६ 믮
ய樮쭮   ணࠬ.

          

                 

            LD HL,(23635)    42 83 92
   N_L   INC HL           35
            INC HL           35
   CHECK    LD DE,(23627)    237 91 75 92
            AND A            167
            SBC HL,DE        237  82
            RET NC           208
            ADD HL,DE        25
   LENGTH   PUSH HL          229
            LD ,(HL)        78
            INC HL           35
            LD ,(HL)        70
   N_   INC HL           35
   LOAD     LD A,(HL)        126
            CP   13          254 13
            JR NZ,NUMBER     32 8
   RESTOR   POP HL           225
            LD (HL),        113
            INC HL           35
            LD (HL),        112
            ADD HL,BC        9
            INC HL           35
            JR NEXT_L        24 227
   NUMBER   CP 14            254  14
            JR NZ,QUOTE      32 7





                                    -108-

            INC HL           35
            INC HL           35
            INC HL           35
            INC HL           35
            INC HL           35
            JR NEXT_B        24 231
   QUOTE    CP 34            254 34
            JR NZ,CONTR      32  12
   F_QUOT   INC HL           35
            LD A, (HL)       126
            CP 34            254 34
            JR Z,NEXT_B      40 221
            CP 13            254 13
            JR Z,RESTOR      40 223
            JR F_QUOT        24 244
   CONTR    CP 33            254  33
            JR NC,NEXT_B     48 211
            PUSH BC          197
            CALL 4120        205  24   16
            POP BC           193
            DEC BC           11
            JR LOAD          24 2O4

    ࠡ⠥:
    ॣ஢ HL 㦠  -ணࠬ. HL ⥬
㢥稢 , 㪠뢠   , ࠭  ᫥饩 ப.
  ॣ஢ DE 㦠   ६. ᫨ HL  ,
祬 DE, ணࠬ 頥  BASIC, . . ⨣  ணࠬ
.
    HL ࠭  ⥪,   㦠  ப,  HL
㢥稢, 㪠뢠  ᫥騩   ப.   HL ⥬
㦠  . ᫨  祭  ࠢ 13, ந室 室
 'HUMBER'.
   ⨦ 'RESTOR'     ப.  㪠⥫
 ப 㦠  ⥪  HL  ⠢  饩
ப.  ப   HL, HL 㢥稢  ணࠬ
頥  NEXT_L.
  ᫨ ணࠬ ⨣ 'NUMBER', ஢, ᮤন  
ᨬ NUMBER ( 14). ᫨ , HL 㢥稢  5 - . . 믮
릮 १ ᫥饥  NUMBER ᫮,  ந室 室  'N BYTE'.
  ᫨   ᮤন  窨, ணࠬ 室  'CONTR'.
᫨  窨 , 横 ணࠬ  믮   , 
 㤥 ⨣  ப   㣠 窠.  ࢮ 砥
ந室 室  RESTOR,  ᫥ -  N_.
   楤 CONTR ந室 ஢ઠ ᨬ. ᫨     ,
祬 33, ணࠬ 頥  'N_'.
  ᫨ ᢮ ࠭⢮  ࠢ騩 ᨬ , 뢠
ணࠬ    4120   㤠.  ப, 
࠭  , 㬥蠥  ந室 室  'LOAD'.

        7.6 㧪 設   DATA-.

  : 179
  ⢮ ६: 2
  ஫쭠 㬬: 19181
  祭:
     ணࠬ ᮧ ࠦ DATA  ࢮ ப ணࠬ  ,
 ⥨   묨  .
  ६:
   - data start
   - 2
   - 23296
  ਩:    ஢.
   - data length
   - 2
   - 23298
  ਩: ⢮ ⮢  ஢.
  맮 ணࠬ:
    RANDOMIZE USR 
  ஫ 訡:
    ᫨ ᫮ ⮢  ஢ ࠢ ,  ࢠ ப 㦥 ,
ணࠬ 頥  . ணࠬ  ஢, 筮  
  ப. ணࠬ ॡ 10 ⮢      ⮢
 ஢ , 㪠⥫   . . ஬ ⮣, ᯮ㥬
ணࠬ  ⠪ ᯮ  ࠡ  - ਭ  
. ᫨ 㯭  筮, 㪠⥫ ப 
⠭ ࠢ쭮,  ⨭  㤥 ⮢७.
  ਩:
    ६,  ࠡ⮩ ⮩ ணࠬ, ய樮쭮 ꥬ 
 ஢.

          

               

           LD DE,(23296)   237 91   91
           LD ,(23298)   237 75  2 91
           LD ,          120
           OR             177
           RET Z           200
           LD HL,(23635)   42  83  92
           LD A, (HL)      126
           CP 0            254  0
           JR NZ,CONT      32  6
           INC HL          35
           LD A, (HL)      126
           CP 1            254   1
           RET Z           200
           DEC HL          43
   CONT    PUSH HL         229
           PUSH BC         197
           PUSH DE         213
           SUB A           151
           CALL 3976       205 136 15
           EX DE,HL        235
           LD A,1          62  1
           CALL 3976       205 136 15
           EX DE,HL        235
           CALL 3976       205 135 15
           EX DE,HL        235
           CALL 3976       205 135 15
           EX DE,HL        235
           LD A,228        62 228
           CALL 3976       205 135 15
           EX DE,HL        235
   NEXT_B  POP DE          209
           LD A,(DE)       26
           PUSH DE         213
           LD C,47         14 47
   HUNDR   INC            12
           LD B,100        6 100
           SUB            144
           JR NC,HUNDR     48 250
           ADD ,         128
           LD B,A          71
           LD ,          121
           PUSH BC         197
           CALL 3976       205 136 15
           EX DE,HL        235
           POP BC          193
           LD ,          120
           LD C,47         14 47
   TENS    INC            12
           LD B,10         6  10
           SUB            144
           JR NC,TENS      48 250
           ADD A,B         128
           LD ,          71
           LD A,C          121
           PUSH BC         197
           CALL 3976       205 136 15
           POP BC          193
           EX DE,HL        235
           LD A,B          120
           ADD A,48        198  48
           CALL 3976       205 136 15
           EX DE,HL        235
           LD A,14         62 14
           LD B, 6         6 6
   N_ZERO  PUSH BC         197
           CALL 3976       206 136 15
           POP BC          193
           EX DE, HL       235
           SUB A           151
           DJNZ N_ZERO     16 247
           POP DE          209
           PUSH HL         229
           DEC HL          43
           DEC HL          43
           DEC HL          43
           LD A,(DE)       26
           LD (HL),A       119
           POP HL          225
           INC DE          19
           POP BC          193
           DEC BC          11
           LD A,B          120
           OR             177
           JR Z,ENTER      40 10
           PUSH BC         197
           PUSH DE         213
           LD A,44         62 44
           CALL 3976       205 136 15
           EX DE,HL        235





                                    -109-

           JR NEXT_B       24 173
           LD A,13         62  13
   ENTER   CALL 397        205 136   15
           POP HL          225
           LD BC,0         1  0  0
           INC HL          35
           INC HL          35
           LD D,H          84
           LD E,L          93
           INC HL          35
   POINT   INC HL          35
           INC BC          3
           LD A,(HL)       126
           CP 14           254  14
           JR NZ,END?      32  12
           INC BC          3
           INC BC          3
           INC BC          3
           INC BC          3
           INC BC          3
           INC HL          35
           INC HL          35
           INC HL          35
           INC HL          35
           INC HL          35
           JR POINT        24 237
   END?    CP 13           254  13
           JR NZ,POINT     32 233
           LD A,C          121
           LD (DE),A       18
           INC DE          19
           LD A,B          120
           LD (DE),A       18
           RET             201
    ࠡ⠥:
    ॣ஢ DE 㦠  ⮢  ஢,   
ॣ஢  㦠 ᫮ ⮢  ஢. ᫨  ᮤন ,
ணࠬ 頥  .
    ॣ஢ HL 㦠  -ணࠬ.  
㦠    ⠭  HL.  訩  
ப. ᫨   ࠢ 0, ࢠ ப    ணࠬ 室
 'CONT'. ᫨ 訩  ᮤন  0,   㦠 訩
. ᫨  祭 ⠭  1, ࢠ ப 㦥  
ணࠬ 頥  .
   襣   po ࠭  ⥪.  ࠭ ᫮
⮢  ஢, ⥬  .   㦠 0
(訩    ப). 맢 ணࠬ , 室
  3976, ⠢ ᨬ, 騩  ,  
⠭  HL.
   HL ⠭ 祭, ࠭襥 ⠬ । ⮩ 樥. 
 㦠 1   祭 ⠢ 3 ࠧ. ࢠ  -
 訩   ப, ᫥騥  㪠⥫  ப. 
 ⥬ 㦠  ᨬ 'DATA'   祭  
ப.
   ᫥饣   ⠭  ⥪  㦠  DE.
   㦠  ,  ᮤন DE  ࠭ 
⥪.  -ॣ 㦠 祭,  1 襥, 祬  ᨬ "".
-ॣ 㢥稢,   -ॣ 㦠 祭 100. -ॣ
⠥   , ᫨ १  ⥫, ணࠬ
頥  'HUNDR'.
  -ॣ ਡ   (⠪ ࠧ  ᮤন
⥫쭮 祭.  祭 ⥬ 㦠  -ॣ. 
 㦠 ᮤন -ॣ,   ࠭  ⥪.
맮 ணࠬ  (3976), ⠢ ᨬ, ࠭騩 
,  , ᮤঠ饬  HL.  ॣ஢ 
⠭  ⥪,    㦠 祭 -ॣ.
㯮 ਥ ⥬   =10.  ⥬ 㢥稢  48
 祭  १ ᨬ ⠢  ப.
  襮ᠭ ணࠬ  ⠢ 筮 ।⠢
饣    ࠦ DATA.    ⠢
筮 ।⠢.  祭 ન    NUMBER
(CHR 14),   ,    5 㫥. 祭 㥬
 蠥  祩, ⮡  ⨩ . DE 㢥稢,
㪠뢠  ᫥騩  . ᫮ ⮢  ஢ ᭨ 
⥪  ,   祭 㬥蠥. ᫨ १ ࠢ 0, 
室  'ENTER',  ᮤন  ॣ஢   DE 筮 蠥
 ⥪,  ࠦ DATA 砥 ,  ணࠬ 頥 
'N_'.   楤  ENTER ( ப)  
ન஢  ࠦ DATA.  HL 㦠  砫 ப,  
⠭  0. HL 㢥稢, 㪠뢠  訩  㪠⥫
ப,       DE. HL 㢥稢, 㪠뢠 
訩  㪠⥫ ப. HL   ⥬ 㢥稢,   
㦠 ᨬ, 室騩    HL.
  ᫨  ᮤন  14, ᫮ ,  HL   㢥稢
 5, ९루 १ ᫮  㪠뢠  ᨬ, ᫥騩  .
ணࠬ ⥬ 室  'POINT'.
  ᫨   ᮤন 祭 14  13, ந室 室  'POINT'.
  襭 ନ஢ ப 믮 饭 ᮤন  
祩 㪠⥫  ப.  室  㪠뢠 DE.
 砭 ࠡ 楤 믮   .

        8.  

        8.1 । ࠧ ᢮ .

  : 14
  ⢮ ६: 
  ஫쭠 㬬: 1443
  祭:
      ⢮  ᢮ ࠭⢠   .
  맮 ணࠬ.
    PRINT USR 
  ஫ 訡: 
  ਩:
     ணࠬ  뢠 । ᯮ짮  ணࠬ,
  㢥稢  ணࠬ, ⮡  㢥७  ⮬,  
 筮 ᢮ ࠭⢠.

          

               

           LD HL,         33        
           ADD HL,SP       57
           LD DE,(23653)   237  91 101 92
           AND A           16
           SBC HL,DE       237 82
           LD B,H          68
           LD C,L          77
           RET             2O1

    ࠡ⠥:
    ॣ஢ HL 㦠 0   祭 㬬  ᮬ
 ᢮   ( ࠭  SP).  ॣ஢ DE
㦠 ᮬ 砫 ᢮    ⠥  HL. HL
    ணࠬ 頥  .

        8.2. ।  -ணࠬ

  : 13
  ⢮ ६: 0
  ஫쭠 㬬: 1544
  祭:
      -ணࠬ  .
  맮 ணࠬ:





                                    -110-
    PRINT USR 
  ஫ 訡: 
  ਩: 

          

               

           LD HL,(23637)   42  75   92
           LD DE,(23635)   237 91 83 92
           AND A           167
           SBC HL,DE       237  82
           LD ,          68
           LD ,L          77
           RET             201

    ࠡ⠥:
    ॣ஢ HL 㦠   ६,   DE
㦠  -ணࠬ. DE ⠥  HL, ⮡  
ணࠬ. HL     ணࠬ 頥  .


        8.3 ।  -.

  : 29
  ⢮ ६: 1
  ஫쭠 㬬: 2351
  祭:
    頥  ࢮ ᨬ ᫥  ''   ப.
  ६:
   - line number
   - 2
   - 23296
  ਨ:  ப,   ᮤঠ 'REM'.
  맮 ணࠬ:
    LET  = USR 
  ஫ 訡:
    ᫨  ப  ,   ࠦ REM, ணࠬ
 祭 0.
  ਨ:
     ணࠬ   ᯮ짮  宦  祩, 
   饭 設 . ᫥ 믮 ணࠬ
६  (  ᯮ짮  ६) ⠭ 
,   , ᫨   訡.
     ப  9999!

          

               

           LD HL,(23296)   42  91
           LD A,H          124
           OR L            181
           JR Z,ERROR      40   5
           CALL 6510       205 110  25
           JR Z,N       40  4
   ERROR   LD ,         1   0   0
           RET             201
   CONT    INC HL          35
           INC HL          35
           INC HL          35
           INC HL          35
           LD A,234        62 234
           CP (HL)         190
           JR NZ,ERROR     32 243
           INC HL          35
           LD ,          68
           LD C,L          77
           RET             201
    ࠡ⠥:
    ॣ஢ HL  ।  ப. ᫨  
ࠢ ,  室  'ERROR',  뢠 ணࠬ  
 6510.  饭  ⮩ 楤 HL ᮤন  ப.
᫨ 䫠  ⠭,  室  'N'. ᫨ 䫠  
⠭,  ப  ,  ணࠬ 室  'ERROR',
   㦠 0,  ⥬ ந室   BASIC.
  ᫨ ணࠬ ⨣ ⪨ 'N', HL 㢥稢  4, ⮡ 㪠
 ,    ப. ᫨      234,
ந室 室  'ERROR'. ᫨    'REM', HL 㢥稢,
㪠뢠  ᫥騩 ᨬ. 祭 HL ⥬     ணࠬ
頥  .

        8.5 ஢   .

  : 33
  ⢮ ६: 3
  ஫쭠 㬬: 4022
  祭:
     ணࠬ        㣮.
  ६:
   - start
   - 2
   - 23296
  ਩:  筨  ஢.
   - destination
   - 2
   - 23298
  ਩: ,   ந室 ஢.
   - length
   - 2
   - 23300
  ਩:  , 饣 ஢.
  맮 ணࠬ:
    RANDOMIZE USR 
  ஫ 訡: 
  ਩:
     ணࠬ   ᯮ짮  ᮧ "⨯樨"
  ᫥饣 ⮤:
  - ᮧ ࢮ ࠭ ଠ樨;
  - ஢ ࠭  RAMTOP;
  -   㣨 ࠭;
  - ஢ ࠭  ⭮ ࠢ    ன
    ᫥⥫쭮.

          

               

           LD HL,(23296)   42 0 91
           LD DE,(23298)   237 91 2 91
           LD ,(23300)   237 75 4 91
           LD ,          120
           OR             177
           RET Z           200
           AND            157
           SBC HL,DE       237  82
           RET Z           200
           ADD HL,DE       25
           JR C,COPY       56 3
           LDIR            237  176
           RET             201
   COPY    EX DE,HL        235
           ADD HL,BC       9
           EX DE,HL        235
           ADD HL,BC       9
           DEC HL          43
           DEC DE          27
           LDDR            237 184
           RET             201
    ࠡ⠥:
    ॣ஢ HL 㦠  ࢮ    ஢,
 DE 㦠 ,    ,    㦠
⢮ ⮢  ஢. ᫨ =0  HL=DE,  ணࠬ
頥  . ᫨ HL , 祬 DE,   ,
ᯮ  'LDIR',  ணࠬ 頥  .
  ᫨  DE , 祬 HL,    ࠬ ॣ஢ ਡ  -1
  , ᯮ  'LDDR', ᫥ 祣 ணࠬ
頥  .

砭 ᫥.
