
         57851       47        LD B,A         ;  B
         57852       7E        LD A,(HL)      ;ਭ﫨   ,
                                              ; 㦥 ᮤন 
                                              ;࠭  㦭 .
         57853       A0        AND B          ;᪮ ࠢ.
         57854       C0        RET NZ         ;᫨ ᥫ  ⥪饩
                                              ;न 㦥 祭,
                                              ;   뢠
                                              ;ணࠬ.
         57855       7E        LD A,(HL)      ;ਭ﫨   ,
                                              ; 㦥 ᮤন 
                                              ;࠭  㦭 .
         57856       B0        OR B           ;砥 ॡ㥬 .
         57857       77        LD (HL),A      ;砥 ॡ㥬 ᥫ
         57858   2A28E2        LD HL,(CONMAX) ;⥫ 設 -
         57861 ED5B2AE2        LD DE,(TEMPXY) ;騥 x  y.
         57865       73        LD (HL),E      ;x
         57866       23        INC HL         ;室  y.
         57867       72        LD (HL),D      ;y
         57868       23        INC HL         ;६⨫ CONMAX
         57869       E5        PUSH HL        ;  .
         57870   01????        LD BC,XXXX     ; ࠭ .
         57873       A7        AND A          ; 䫠 ॣ F.
         57874     ED42        SBC HL,BC      ;஢ઠ 
                                              ;.
         57876     2005        JR NZ,PASS_1   ;室, ᫨  
                                              ;.
         57878       E1        POP HL         ;⪠ ⥪
         57879   212CE2        LD HL,E22C     ;᫨ ⨣ 孨
                                              ;। ,  -
                                              ; ࠭ 
                                              ;⠢塞   -
                                              ; .
         57882       E5        PUSH HL        ;  .
         57883       E1 PASS_1 POP HL         ; ࠭ -.
         57884   2228E2        LD (CONMAX),HL ; .
+                                 - 183 -

         57887       C9        RET            ;.

         57894          CONMIN DEFW           ; ࠭ -
                                              ;.
         57896          CONMAX DEFW           ; ࠭ -
                                              ;.
         57898          TEMPXY DEFW           ;६  ६
                                              ;࠭ न ⥪-
                                              ;饩 窨  ࠡ -
                                              ;楤 PLOT.
         57900          BUFFER DEFW           ; ࠭ .


                      ਬ ᯮ짮 楤.
                      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                 㤠 ࠧ     
          ,   न x,y, ਭ騥   室-
         饩    ந  訢 梥⮬
         INK. 䥪  ࠡ  ⮩ 楤 祭   -
          䨪,  ᯮᮡ   ணࠬ,  ᮡ
         ᫨  ᪨ ᯮᮡ  䠭⠧. ᫨  䠭⠧
          ,  ᬮ,    ࣠  ᯮ짮-
          ⮩ 楤  ᫥ ਬ.

              ਬ 1. ॡ 㧪 楤 ᮢ १
                         FN g(x,y,p,q).


                  100  DEF FN g(x,y,p,q)=USR 60700
                  110  DEF FN j(x,y) = USR 57700
                  120  BORDER 1: PAPER 6: INK 2
                  130  CLS
                  140  FOR i=1 TO 12
                  150  LET x1=i*20
                  160  LET y1=174
                  170  LET x2=10+i*20
                  180  LET y2=20
                  190  RANDOMIZE FN g(x1,y1,x2,y2)
+                                 - 184 -

                  200  NEXT i
                  210  FOR i=1 TO 12
                  220  LET x1=i*20
                  230  LET y1=174
                  240  LET x2=i*20-10
                  250  LET y2=20
                  260  RANDOMIZE FN g(x1,y1,x2,y2)
                  270  NEXT i
                  280  RANDOMIZE FN g(10,20,130,2)
                  290  RANDOMIZE FN g(250,20,130,2)
                  300  PAUSE 100
                  310  RANDOMIZE FN j(10,5)

              ਬ 2. ॡ 㧪 楤  ࠦ
                        אַ㣮쭨 FN h(x,y,h,v).

                  100  DEF FN h(x,y,h,v)=USR 60400
                  110  DEF FN j(x,y) = USR 57700
                  120  BORDER 2: PAPER 6: INK 2
                  130  CLS
                  140  LET x=140
                  150  FOR j=110 TO 110 STEP -5
                  160  RANDOMIZE FN h(x,j,60,60)
                  170  IF x/10 = INT (x/10) THEN RANDOMIZE FN j(x+1,j+1)
                  180  LET x=x-5
                  190  NEXT j


                      3.12.  ࠦ.

                ᬮਬ    OVER  ⠭⭮  .
             뢠  ⥬,      
         䠪᪨ ᪮ ?

                 ᪨  AND, OR, NOT - 
           . ஬ ⮣,  ணࠬ஢  設  -
            㯭      XOR -  "᪫饥 ". 
         ,  OVER 1    ࠭ 䠪᪨  -
+                                 - 185 -

         ⭠ 㭪樨 XOR.  ⢨⥫쭮,  ᬮਬ,  
          A XOR B.   १  ⢨    ,
          뫨  祭    A,     B,   ᫨  뫨
         祭    A    B,    몫 ( ⮬  ⫨稥 
          OR).

                  OVER  1? ࠪ᪨   ᠬ,  
            ࠭.   뢠  ࠦ 
         㣮,    ᥫ,   뫨  祭  
           㣮  ࠦ,  ᫨  ᥫ  祭   ⠬ 
         ⠬,   몫砥. ,  쭮 䥪⨢  ⮤
         ࠭,   ० OVER 1  ⠥ ஥  -
           ᠬ ᥡ. ஡  ᯥਬ:

                      10 PRINT AT 10,12; OVER 1: "SPECTRUM"
                      20 PAUSE 10:
                      30 GO TO 10

               ࠢ , 祭  宦  ⢨   FLASH, 
          ᮢᥬ   ᠬ?

               ⢥ 樨    ࠦ  
             XOR    ᬮਬ  ணࠬ     
         १  FN k(x,y,p,q).  x,y - न  室
         窨,  p,q - न 筮 窨 १  (᮫).
         ࠭祭   稭 x,y,p,q,  易   ࠧ஬ ࠭
         256x176 祢.

                    10 REM *** 稪 設 
                    20 LET adr=57600: LET long=15: LET z=0
                    30 FOR i=0 TO long-1: READ a
                    40 POKE (adr+i),a: LET z=z+a
                    50 NEXT i
                    60 LET z=INT (((z/long)-INT (z/long))*long)
                    70 READ a
                    80 IF a<>z THEN PRINT "??": STOP


+                                 - 186 -

                    500 REM ***  設 
                    510 DATA  62, 168,  50, 223, 237
                    520 DATA 205,  28, 237,  62, 176
                    530 DATA  50, 223, 237, 201,   0
                    540 DATA  13,   0,   0,   0,   0

                          ᥬ ணࠬ:

         57600     3EA8        LD A,0A8H      ;A8 -   樨
                                              ;XOR B.
         57602   32DFED        LD (EDDF),A    ; 楤 ᮢ
                                              ;१  FN g()
                                              ;  60895 ⮨
                                              ; 樨 BO (OR B).
                                              ; ਭ㤨⥫쭮 -
                                              ; ॡ㥬 ᥫ 
                                              ;࠭.   
                                              ;XOR B  砥 ᥫ,
                                              ;᫨   몫祭. 
                                              ;⨢ 砥 - -
                                              ; 몫砥.
         57605   CD1CED        CALL ED1C      ;맮  ண-
                                              ;ࠬ ࠦ १-
                                              ;.
         57608     3EB0        LD A,0B0H      ;0B -  樨 OR B.
         57610   32DFED        LD (EDDF),A    ; 楤 FN g() -
                                              ;⠭ ,  ⠬ 
                                              ; 뫮 .
         57613       C9        RET            ;室  楤.

                쪠    祭   楤 뢠 
         ਬ    ⮩ 樨.  ⮫쪮  ᤥ -
          設   楤 (FN g())  㣮.   
         ࠭  室  ᯮ짮  ᪮쪮 楤 ᮢ⭮
           ⮬    묨 १ 뤥   ⮩
         楫  祩  .         אַ 
         ࠡ祣   楤  㣮.   㦥 ᮢᥬ 㣮
         ⨫ ணࠬ஢.
+                                 - 187 -

                祡  楫    ᤥ     . 
          ,  室  楤 FN g()    60895
           ⮬  ।  室    ணࠬ  ⠭   ⠬
         ࢮ砫쭮 ᫮, ࠢ B0H.   ᥣ  ࠭ 
         筮  ,    ⠬  뫮.  ⮬  饬 砥 
         ਭ  ᮤন   㥬  祩   ,    ⮬
         ࠭   -  ६   ⥪  ( 
         )  ⮫쪮 ᫥  ⮣  ᢮ .   ।
         ⮬ ᫥ ⠭ ,  뫮  襭.

                      ਬ ᯮ짮 楤.
                      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
               䠭᪨ 㧮 뢠  묨 -
          ।⢠    १⮢.

              ਬ 1. ॡ 㧪 楤 ᮢ १
                         FN g(x,y,p,q).

                  100  DEF FN k(x,y,p,q)=USR 57600
                  110  BORDER 0: PAPER 0: INK 3
                  120  CLS
                  130  LET s=1
                  140  LET a=0
                  150  LET ad=s*PI/128
                  160  LET x1=80
                  180  LET y1=88
                  190  FOR c=1 TO 2
                  200  FOR i=0 TO 255 STEP s
                  210  LET x=x1+INT(70*SIN a)
                  220  LET y=y1+INT(70*COS a)
                  230  RANDOMIZE FN k(x,y,x1,y1)
                  240  LET a=a+ad
                  250  NEXT i
                  260  LET x1=x1+96
                  270  NEXT c
                  280  PAUSE 100
                  290  GO TO 110

+                                 - 188 -

              ਬ 2. ॡ 㧪 楤 ᮢ १
                         FN g(x,y,p,q).

                  100  DEF FN k(x,y,p,q)=USR 57600
                  110  BORDER 5: PAPER 5: INK 1
                  120  CLS
                  130  LET s=1
                  140  LET a=0
                  150  LET ad=s*PI/128
                  160  LET x1=127
                  180  LET y1=88
                  190  FOR i=0 TO 255 STEP s
                  200  LET x=x1+INT(110*SIN a)
                  200  LET y=y1+INT(70*COS a)
                  210  RANDOMIZE FN k(x,y,x1,y1)
                  220  LET a=a+ad
                  230  NEXT i
                  240  PAUSE 0
                  250  GO TO 110

                          3.13. 祭 ࠦ.

              ᫨  ࠡ⠫  ᪨ ।஬ ARTSTUDIO,  
            ⢮ ⮣,  ந室 㢥祭
         ࠭  2 ࠧ (MAGNIFY X 2).      ᤥ  
         ᠬ. ⨣騩  ⮬ 䥪 ᯮᮡ  祭 -
          ணࠬ.

              楤  㢥  2 ࠧ   ਧ⠫,
         ⠪   ⨪ ,   室     "".
          ⮬ न  ࠧ ࠭  ""  
         ,         ᮫  न.  ०   祬
         㢥稢    ࠦ, 楤  ᤥ    
         ࠭   孨   ( ६  
           ᠬ)   ⮫쪮 ᫥ ⮣ 筥  ࠨ
         ࠭.    ᮡ  楤    㦭 ᯮ짮
         ਬ  ⮣,  ⮡      뫮   
             室 ࠦ.
+                                 - 189 -

                 ⥬, ⭮,     楤 ᮢ襭 
         ࠢ,    㢥稢, ⮬ 㢥稢 ࠦ  
          ࠧ   稢  ࠭,       
         ࠧ   㢥 ࠭    ࠧ.    㢥稢
         ࠦ   ࠧ. ࠢ,  ࠭騩 室 -
         ࠦ,- ⮫쪮   ⮬      
          ࠦ. , ᫨  믮 㢥祭 -
         ,   㢥 㭮  4 ࠧ,   ୥  
           ࠦ,  㢥祭    2  ࠧ,  室 㤥 㦥
         祭.

                楤 FN l(x,y,h,v), :

              x - ਧ⠫쭠 न  孥 㣫 ""
                  (  , - x < 32);
              y - ⨪쭠 न  孥 㣫 ""
                  (  , - y < 22);
              h - ࠧ ""  ਧ⠫ (ਭ "" - 
                   , - 2h + x < 32);
              v - ࠧ ""  ⨪ ( "" - 
                   , - 2v + y < 32);

              楤   DEF FN l(x,y,h,v) = USR 56700
          뢠  RANDOMIZE FN l(x,y,h,v).

               ⠭ 室 ࠦ, ᮤঠ饣  
             ᯮ짮  窮  室     ணࠬ
         COPY_D,  室   56957.  㭪  
         ࠬ஢, ਬ  DEF FN  m() =  USR 56957     
         ⠭     ࠭  室   ࠦ   
          RANDOMIZE FN m().

                    10 REM *** 稪 設 
                    20 LET adr=56700: LET long=285: LET z=0
                    30 FOR i=0 TO long-1: READ a
                    40 POKE (adr+i),a: LET z=z+a
                    50 NEXT i
                    60 LET z=INT (((z/long)-INT (z/long))*long)
+                                 - 190 -

                    70 READ a
                    80 IF a<>z THEN PRINT "??": STOP

                    500 REM ***  設 
                    510 DATA  42,  11,  92,   1,   4
                    520 DATA   0,   9,  86,  14,   8
                    530 DATA   9,  94, 237,  83, 137
                    540 DATA 222,   9, 126,  50, 140
                    550 DATA 222,   9, 126,  50, 139
                    560 DATA 222,  58, 138, 222,  71
                    570 DATA  58, 140, 222, 128, 230
                    580 DATA 224,  40,   6,  62,  31
                    590 DATA 144,  50, 140, 222,  58
                    600 DATA 137, 222,  71,  58, 139

                    610 DATA 222, 128, 214,  22,  56
                    620 DATA   6,  62,  21, 144,  50
                    630 DATA 139, 222, 237,  91, 137
                    640 DATA 222, 123, 230,  24, 246
                    650 DATA  64, 103, 123, 230,   7
                    660 DATA 183,  31,  31,  31,  31
                    670 DATA 130, 111,  34, 141, 222
                    680 DATA  17,   0,  64, 167, 237
                    690 DATA  82,  17,   0, 118,  25
                    700 DATA  34, 143, 222, 205, 113

                    710 DATA 222,  42, 141, 222, 237
                    720 DATA  91, 143, 222,  58, 139
                    730 DATA 222,  71, 197,   1,   2
                    740 DATA   4, 197, 205,  20, 222
                    750 DATA 193,  16, 249,  42, 141
                    760 DATA 222, 205,  79, 222,  34
                    770 DATA 141, 222,   6,   4,  13
                    780 DATA  32, 235, 237,  91, 143
                    790 DATA 222, 205,  89, 222, 237
                    800 DATA  83, 143, 222, 193,  16

                    810 DATA 217, 201,  58, 140, 222
+                                 - 191 -

                    820 DATA  71,  34, 145, 222, 237
                    830 DATA  83, 147, 222, 197, 205
                    840 DATA  54, 222, 193,  16, 249
                    850 DATA  42, 145, 222, 237,  91
                    860 DATA 147, 222, 229, 205,  99
                    870 DATA 222, 225,  36,  36,  20
                    880 DATA 201,  26,   1,   2,   4
                    890 DATA 197, 245, 175, 119, 241
                    900 DATA  23, 245, 203,  22, 241

                    910 DATA 203,  22,  16, 247,  35
                    920 DATA 193,  13,  32, 237,  19
                    930 DATA 201,  62,  32, 133, 111
                    940 DATA 208,  62,   8, 132, 103
                    950 DATA 201,  62,  32, 131,  95
                    960 DATA 208,  62,   8, 130,  87
                    970 DATA 201,  58, 140, 222, 203
                    980 DATA  39,  71, 126,  36, 119
                    990 DATA  37,  35,  16, 249, 201
                   1000 DATA  33,   0,  64,  17,   0

                   1010 DATA 118,   1,   0,  26, 237
                   1020 DATA 176, 201,  33,   0, 118
                   1030 DATA  17,   0,  64,   1,   0
                   1040 DATA  26, 237, 176, 201,   2
                   1050 DATA   2,   5,  10, 130,  72
                   1060 DATA 226, 118,  98,  78, 194
                   1070 DATA 125,   0,   0,   0,   0
                   1080 DATA  38,   0,   0,   0,   0

                          ᥬ ணࠬ:

              1.  ࢮ ⠯ 楤 ਭ ࠬ   -
            ᮮ⢥ 祩 .

         56700   2A0B5C        LD HL,(5C0BH)  ;. .109...111
         56703   010400        LD BC,0004     ;  DEFADD  4 -
         56706       09        ADD HL,BC      ; (. c.109...111)
+                                 - 192 -

         56707       56        LD D,(HL)      ;न x.
         56708     0E08        LD C,08        ; 
         56710       09        ADD HL,BC      ;ᥬ ⮢.
         56711       5E        LD E,(HL)      ;न y.
         56712 ED5389DE        LD(COORDY),DE  ; x,y.
         56716       09        ADD HL,BC      ;  ᥬ ⮢.
         56717       7E        LD A,(HL)      ;ࠬ h.
         56718   328CDE        LD (WIDTH),A   ; .
         56721       09        ADD HL,BC      ;  ᥬ ⮢.
         56722       7E        LD A,(HL)      ;ࠬ v.
         56723   328BDE        LD (HEIGHT),A  ; .

              2. ன ⠯ - ࢨ ஢ન  ன.

         56726   3A8ADE        LD A,(COORDX)  ;न x.
         56729       47        LD B,A         ;न x.
         56730   3A8CDE        LD A,(WIDTH)   ;ਭ  h.
         56733       80        ADD A,B        ; x+h
         56734     E6E0        AND E0         ;E0H=1110 0000 BIN
                                              ;⮬ ⮩ 樨
                                              ;  0 ⮫쪮  ⮬
                                              ;砥, ᫨  -
                                              ; 몫祭  -
                                              ; ,   h<=31
         56736     2806        JR Z,PASS_1    ; ⮬ 砥  O.K. 
                                              ; 室  PASS_1.
         56738     3E1F        LD A,1FH       ;31
         56740       90        SUB B          ;31-x
         56741   328CDE        LD (WIDTH),A   ;hmax=31-x - ᨬ쭮
                                              ;⨬ 祭 h.
         56744   3A89DE PASS_1 LD A,(COORDY)  ;y
         56747       47        LD B,A         ;y
         56748   3A8BDE        LD A,(HEIGHT)  ;v
         56751       80        ADD A,B        ;y+v
         56752     D616        SUB 16H        ;஢ઠ  <22
         56754     3806        JR C,PASS_2    ;᫨ y  22,  
                                              ;O.K.   室.
         56756     3E15        LD A,15H       ;21
+                                 - 193 -

         56758       90        SUB B          ;21-y
         56759   328BDE        LD (HEIGHT),A  ;vmax=21-y -  -
                                              ;쭮 ⨬ -
                                              ; v.

              3.  쥬 ⠯  न⠬ x  y (   -
         ) ।塞     ᯫ 䠩,  ᮮ⢥騩
          孥 㣫 뤥   ""  頥   
         ॣ஢   HL    ணࠬ  ६ ADDR.

         56762 ED5B89DE PASS_2 LD DE,(COORDY) ;x,y
         56766       7B        LD A,E         ;न y     000?????
         56767     E618        AND 18H        ;뤥 ᥣ-
                                              ; ࠭     000??000
         56769     F640        OR 40          ; 
                                              ;ᯫ 䠩  010??000
         56771       67        LD H,A         ;⠢ H (c. .   )
         56772       7B        LD A,E         ;न y     000?????
         56773     E607        AND 07         ;뤥 
                                              ;鸞  ᥣ  00000???
         56775       B7        OR A           ;⨫ 䫠 ""
         56776       1F        RRA            ;饭         000000??
         56777       1F        RRA            ;饭         ?000000?
         56778       1F        RRA            ;饭         ??000000
         56779       1F        RRA            ;饭         ???00000
         56780       82        ADD A,D        ;ਡ 
                                              ;⮫          ????????
         56781       6F        LD L,A         ;訩   
                                              ;ᯫ 䠩.
         56782   228DDE        LD (ADDR),HL   ;   -
                                              ; ADDR.

              4.  ,   ண 稭   ""   -
          䠩,     ⥯ ࠭  ⥪饥 ᪮
         ࠦ  孨      ६ .  
         ⢥ ਬ  ਭ  砫   7600  H =
         30208 DEC.      ᫥ ⮣    ணࠬ
         㤥 㦥 ࠭  (᫨ ᤥ   ࠭,    ᮩ
+                                 - 194 -

         ஫쭠  㬬).    ⮬,    ᤥ,  㪠 ᫥
         ᠭ 楤.

               ࠧ,   砥  室 -
         .

         56785   110040        LD DE 4000     ;砫 ᯫ 䠩.
         56788       A7        AND A          ;⪠ 䫠 ७.
         56789     ED52        SBC HL,DE      ;। "ᬥ饭" -
                                              ; 砫  ⭮-
                                              ;⥫쭮 砫 ᯫ
                                              ;䠩.
         56791   110076        LD DE 7600     ;砫 .
         56794       19        ADD HL,DE      ;ਡ   ᬥ饭,
                                              ;稬 砫 
                                              ;襣 ""  .
         56795   228FDE        LD (ADDR_1),HL ;  .
         56798   CD71DE        CALL COPYUP    ;ॡ᪠  .

              5. ,      室 ࠦ  
         ,    ந 㤢 ࠦ   -
         , ॡ뢠   ⮬    ࠭   ந
          ⮬ 㤢  ࠧ   ਧ⠫, ⠪    -
         ⨪.  ࠡ  ⮬ 祭 宦    ணࠬ
         FN (d)  FN e(),  ⠫ ⥪ ᨬ  ࠧ-
         . ᪠ ࠧ  ⮬,  ⠬ ࠧ ࠫ   -
           ,   ࠧ   .
              砫  ࣠  横    ⨪  (  鸞). 
         १    鸞 ਭ h  室 ࠦ
          㤥  2 鸞 ਭ 2h  ࠭.

         56801   2A8DDE        LD HL,(ADDR)   ;  . 䠩
         56804 ED5B8FDE        LD DE,(ADDR_1) ;  
         56808   3A8BDE        LD A,(HEIGHT)  ;v.
         56811       47        LD B,A         ;⠢ 横 
                                              ;ਧ⠫ 鸞.
                                              ;⢮ 冷 = v.
         56812       C5 LOOP_1 PUSH BC        ;設 横  鸞.
+                                 - 195 -

         56813   010204        LD BC 0402     ;⠢  2 -
                                              ; 横. 譨 -
                                              ; 2 室 (C)  -
                                              ;७  4 室 (B).
         56816       C5 LOOP_2 PUSH BC        ;設 ७ 
                                              ;譥  横

                ਧ⠫ ( ⮫栬)   鸞 ࣠-           楤 DOUBLE.

         56817   CD14DE        CALL DOUBLE    ;8 ࠧ 뢠 -
                                              ; DOUBLE.
         56820       C1        POP BC
         56821     10F9        DJNZ LOOP_2    ; ७ 横
                                              ; B (4 室).
         56823   2A8DDE        LD HL,(ADDR)   ;  .䠩.
         56826   CD4FDE        CALL NEW_R     ;室   .
         56829   228DDE        LD (ADDR),HL   ;  
                                              ; ᯫ 䠩.
         56832     0604        LD B,04
         56834       0D        DEC C          ;
         56835     20EB        JR NZ,LOOP_2   ; 譥 横
                                              ; C (2 室).
         56837 ED5B8FDE        LD DE,(ADDR_1) ;⠭  
         56841   CD59DE        CALL NEW_R_1   ; ᯫ 䠩, 
         56844 ED538FDE        LD (ADDR_1),DE ;室   
                                              ;  .
         56848       C1        POP BC
         56849     10D9        DJNZ LOOP_1    ; 横  鸞.
         56851       C9        RET

              楤 DOUBLE ࣠  横  ਧ⠫   -
          ࠭  鸞.    뢠  楤 DOUB_L, 
         믮 横  쬨   .

         56852   3A8CDE DOUBLE LD A,(WIDTH)   ;ਭ ""
         56855       47        LD B,A         ;ਭ ""
         56856   2291DE        LD (ADDR_2),HL ;६  
                                              ; ᯫ 䠩.
+                                 - 196 -

         56859 ED5393DE        LD (ADDR_3),DE ;६  
                                              ;  ᯫ 䠩
         56863       C5 LOOP_3 PUSH BC        ;設 横  ਭ
                                              ;"".
         56864   CD36DE        CALL DOUB_L    ;   -
                                              ;⠫.
         56867       C1        POP BC
         56868     10F9        DJNZ LOOP_3    ; 横  ਭ
                                              ;"".
         56870   2A91DE        LD HL,(ADDR_2) ;। 室 ⠭-
         56873 ED5B93DE        LD DE,(ADDR_3) ; ᯮ祭  -
                                              ; 楤 祭
                                              ; HL  DE.
         56877       E5        PUSH HL

               㤢   ਧ⠫,     ࠧ 
         ਭ  ࠭.    ᥫ  室    ( )
         ᮮ⢥  ᥫ    ( ࠭).  ,
         ⮡ 㤢     ⨪, 塞    ࠧ  
         ᥫ . ⨬  楤 REPEAT.

         56878   CD63DE        CALL REPEAT    ;७ .
         56881       E1        POP HL
         56882       24        INC H
         56883       24        INC H
         56884       14        INC D
         56885       C9        RET

              楤 DOUB_L  믮 㤢      
         . ⭠  ᪫    ᢥ  (DE)  
         㤢 ᪠  ᯫ 䠩 (HL).

                   ࠡ   ࠧࠫ   . 132    
         㤥   ⠭.

         56886       1A DOUB_L LD A,(DE)
         56887   010204        LD BC,0402
         56890       C5 LOOP_4 PUSH BC
+                                 - 197 -

         56891       F5        PUSH AF
         56892       AF        XOR A
         56893       77        LD (HL),A
         56894       F1        POP AF
         56895       17 LOOP_5 RLA
         56896       F5        PUSH AF
         56897     CB16        RL (HL)
         56899       F1        POP AF
         56900     CB16        RL (HL)
         56902     10F7        DJNZ LOOP_5
         56904       23        INC HL
         56905       C1        POP BC
         56906       0D        DEC C
         56907     20ED        JR NZ,LOOP_4
         56909       13        INC DE
         56910       C9        RET

                砫 ࠭ 鸞, ᮤঠ饣  HL,  -
         楤 NEW_R  ।   砫 ᫥饣  饣
         鸞.  ⮬ 뢠,   ᫥騩    ਭ-
          㣮 ࠭ ᥣ.

         56911     3E20 NEW_R  LD A,20H       ;室   
         56913       85        ADD A,L        ;஢ઠ  ९
         56914       6F        LD L,A         ;࠭ ᥣ.
         56915       D0        RET NC         ;᫨  O.K.,  
         56916     3E08        LD A,08        ; ⨢ 砥 -
                                              ; 祭  ॣ-
         56918       84        ADD A,H        ; H, .. 믮
         56919       67        LD H,A         ;室   ᥣ
         56920       C9        RET            ;  뢠 -
                                              ;楤.

                 楤 NEW_R  ᪨   砫 ।
         鸞  ᯫ 䠩,  筮 ⠪  楤  NEW_R_1 -
           砫  鸞   室 䠩. .. 
         .

+                                 - 198 -

         56921     3E20 NEW_R_1LD A,20H       ;室   
         56923       83        ADD A,E        ;஢ઠ  ९
         56924       5F        LD E,A         ;࠭ ᥣ.
         56925       D0        RET NC         ;᫨  O.K.,  
         56926     3E08        LD A,08        ; ⨢ 砥 -
                                              ; 祭  ॣ-
         56928       82        ADD A,D        ; H, .. 믮
         56929       57        LD D,A         ;室   ᥣ
         56930       C9        RET            ;  뢠 -
                                              ;楤.

              楤 REPEAT   ࠭ ⥪   
         ᥫ .

         56931   3A8CDE REPEAT LD A,(WIDTH)   ;ਭ "".
         56934     CB27        SLA A          ; ਭ
         56936       47        LD B,A         ;"".
         56937       7E LOOP_6 LD A,(HL)      ;  ᯫ 䠩.
         56938       24        INC H          ;⨫   
                                              ;.
         56939       77        LD (HL),A      ;ਫ ࠦ
                                              ;孥 .
         56940       25        DEC H          ;㫨  孥 
         56941       23        INC HL         ;諨  ᫥饬 -
                                              ;.
         56942     10F9        DJNZ LOOP_6    ;塞 , 
                                              ;ன  ਭ .
         56944       C9        RET            ;  뢠
                                              ;楤.

              楤 COPYUP  ᮤন ᯫ 䠩 
         ⢥ .

         56945   210040 COPYUP LD HL,4000H    ; 筨 - 砫
                                              ;ᯫ 䠩.
         56948   110076        LD DE,7600H    ;  祭 -
                                              ;30208 ( ).

+                                 - 199 -

         56951   01001A        LD BC,1A00H    ;⢮ ॡ뢥
                                              ;⮢.
         56954     EDB0        LDIR           ;  ॡ.
         56956       C9        RET            ;室.

              楤 COPY_D ⠭ ࢮ砫쭮 ࠦ-
             ࠭ ⥬ ஢ .

         56957   210076 COPY_D LD HL,7600H    ; 筨 - 砫
                                              ; ( ).
         56960   110040        LD DE,4000H    ;  祭 -
                                              ;砫 ᯫ 䠩.
         56963   01001A        LD BC,1A00H    ;⢮ ॡ뢥
                                              ;⮢.
         56966     EDB0        LDIR           ;  ॡ.
         56968       C9        RET            ;室.

         56969          COORDY DEFB           ;⨪쭠 न
                                              ; 孥 㣫
                                              ;"", 饣
                                              ;㢥祭.
         56970          COORDX DEFB           ;ਧ⠫쭠 न
                                              ; 孥 㣫
                                              ;室 "".
         56971          HEIGHT DEFB           ; "" ( -
                                              ;.
         56972          WIDTH  DEFB           ;ਭ "" ( -
                                              ;).
         56973          ADDR   DEFW           ;  ᯫ 䠩-
                                              ;, ᮮ⢥騩
                                              ;⥪饩 न 
         56975          ADDR_1 DEFW           ;  ୮ 䠩-
                                              ;, ᮮ⢥騩
                                              ;⥪饩 न 
         56977          ADDR_2 DEFW           ; ,   ADDR,  
                                              ;६ ࠭ 
                                              ;६ ࠡ 楤
                                              ;DOUBLE.
+                                 - 200 -

         56979          ADDR_3 DEFW           ; ,   ADDR_1, 
                                              ; ६ ࠭
                                              ; ६ ࠡ
                                              ;楤 DOUBLE.

                祭  ᠭ  ⮩  楤   ᪠
         ᪮쪮 ᫮  ,  ஬ ࠭ 室  ࠦ-
         .  ।,   稭   30208. 
           祭  ஥  設  , ਢ  稪
         楤  ப DATA,     ஥  ஢ઠ -
         ஫쭮 㬬   ⮬  稪. ᫥  ⮣,    
         楤  ,   㦥       
           ⠪,   㤮  㧨 ७஥ -
         楤  .   ࠡ ணࠬ    -
         ᪨    砫  ⮣  -
          POKE,    , ⮡      -
         ঠ騩   - 設     --
         ࠬ.

                  祩:

                  56792,56793  -   楤;
                  56949,56950  -  楤 COPYUP;
                  56958,56959  -  楤 COPY_D.

               ᥭ   ,   設 
         ࠭ ᭠砫 訩    ⮫쪮 ⮬ 訩.
         , ᫨   ࠧ  稭   42005, 
            訩 :

                  HB = INT (42005/256) = 164

          訩 :

                  LB = 42005 - HB*256 = 42005 - 164*256 = 21

                 믮 ஬ POKE:

+                                 - 201 -

              POKE 56792,19    POKE 56793,164      POKE 56949,19
              POKE 56950,164   POKE 56958,19       POKE 56959,164

                ⠭ ਢ ਬ஢ ࠡ ⮩ 楤.  
          ᯥ宬  ᠬ 믮  㯭  ࠦ
          ࠭ ,   㢥    ࠧ,  ⮬ -
           室.  ⮫쪮 ࠭稬 ᫥騬 ४-
         ﬨ:

              1. ᫨ 㢥稢  ࠦ - 梥⭮,   
             ஡    "設" ਡ⮢,  楤
         FN l(x,y,h,v)    ࠧ ⮫쪮 ᥫ쭮  -
            ண ਡ⮢. ⮬ ⥫쭮, ⮡  㢥-
         稢 ࠦ 뫮  ஬.

              2.   ⠭ 梥 PAPER 㢥祭  -
         .  ⮣ ०, 祬  㢥祭   ࠧ,  -
         ᮮࠧ ।⥫쭮   "㤢  " 
          梥⮬  PAPER,   祣   ᯮ짮 楤ன
         FN c(x,y,h,v,c,b,f).

              3. 祭  ࠦ 㤥   ᬮ,  ᫨
          뤥  饣  ࠭   אַ㣮쭮 ࠬ-
         ,  祣  ᫥ 訢   梥 PAPER   ᯮ짮-
          楤ன ࠦ אַ㣮쭨 FN h(x,y,h,v).

                          3.14.  ࠭.

              ᫨  ணࠬ ᮤন 讥 ⢮  -
          ࠦ, 祬   ᯮ ᠬ ணࠬ,  
         ⮢ ࠭, ਬ  ᪮ ।,  -
            室 - ࠧ  ஢
         ࠦ, ᯥ稢  ࠭ ᨬ㬠 ࠭ 
         ࠭祭 ꥬ .

               ⮤  ᨨ      ⮬,   
          騥 ᫥⥫쭮      ,
          ᮤন 㪠  ,     ᫥⥫쭮
+                                 - 202 -

            ⮬  樥 ७.    ᥣ譨 
           ᠬ  ࠧࠧ  ਥ,  ਬ ᭮ 
         ⮬,      騥 ᨬ,  ⠪  "A"
             ASCII ( ࠢ 65),  ᢮ -
         , ਬ 01, ᮮ⢥⢥ ᨬ "E" ਬ  02
          ..  १ 砥,  ⮢   ᨬ-
          ᮤন  㫥,   "㦠", ..  ᨬ
          । 室  8  ⮢,  筮,    । 4-5
         ( 6).   ⮤  ਬ   ᨨ ⥪⮢ 
         饣 祭.

              ᫨ ⥪  ᯥ䨪, ਬ  ⥪ ୮
         ணࠬ,    ன     । ᫮ 
         ᫮⠭,      ᭮뢠   ᮧ
         १⭮  ᫮    256  権     ᫮ 
         ᫮⠭    ⥪      浪  .  譥
           ⮬,      ⠪ ᫮   ஢
         ⥪  믮    ,    ᠢ  ⮣ 㦥
         楤.

                襬  砥        ᨨ 䨪,  
          ⮩ ᯥ䨪,    ᮡ   
         騥  ᨬ. ,  ਬ, ᯫ譠 ਧ⠫쭠
          १  ࠭ ।⠢  ᥡ 32 ᫥ 
         ,     ࠢ 255.  ⨬ 筮   
           ᨨ  䨪.      ⬥,  ⬮
         ᨨ 䨪   ᪮筮      
            ᮫.       ⬠  
          ⠪ ᪫ ࠭,   ன  㤥  믮-
          ᨬ쭮 ᦠ⨥,         
         ⠪  ᫮,      ஢  䠩 
          室  稭.  ᢮ ६    稫
         ஥  㦤    ࠭  "ZX-" (N1, 1991,. 6,
         N2, 1991,. 24).

              楤 ᨨ "᭨" ࠦ  ࠭,  -
            ࠢ  ࠭  뤥   ⮣
           ⨢    ,  ᫥  祣 ⮢ 
+                                 - 203 -

         ਥ  ࠭. ஢ ࠦ ࠭
          ⨢  ᫥⥫쭮    ⠭
         㤠   饩 ணࠬ.

               楤 ᨨ FN n(h,l), :
              h - 訩  ,  ண 稭 ,
         ⢥  ஢ ࠦ;
              l - 訩  ⮣ .
              h,l < 255.
               楤: DEF FN n(h,l) = USR 56600
              맮 楤 :  RANDOMIZE FN n(h,l)

                    10 REM *** 稪 設 
                    20 LET adr=56600: LET long=60: LET z=0
                    30 FOR i=0 TO long-1: READ a
                    40 POKE (adr+i),a: LET z=z+a
                    50 NEXT i
                    60 LET z=INT (((z/long)-INT (z/long))*long)
                    70 READ a
                    80 IF a<>z THEN PRINT "??": STOP

                    500 REM ***  設 
                    510 DATA  42,  11,  92,   1,   4
                    520 DATA   0,   9,  86,  14,   8
                    530 DATA   9,  94, 237,  83,  82
                    540 DATA 221,  33,   0,  64,   6
                    550 DATA   1, 126,  44,  32,   8
                    560 DATA  36, 245, 124, 254,  91
                    570 DATA  40,  16, 241,  78, 185
                    580 DATA  32,   4,   4,  32, 238
                    590 DATA   5,  18,  19, 120,  18
                    600 DATA  19,  24, 227, 241,  18

                    610 DATA  19, 120,  18, 237,  83
                    620 DATA  22, 221, 201,   0,   0
                    630 DATA  56,   0,   0,   0,   0


+                                 - 204 -

                          ᥬ ணࠬ:

         56598          NEXT_S DEFW           ;  ணࠬ -
                                              ;  , 
                                              ;ண   -
                                              ; ࠭ ।
                                              ;࠭ ᫥ ⮣, 
                                              ; 楤 ࠡ-
                                              ;⠥.
         56600   2A0B5C        LD HL,(5C0BH)  ;. . 109...111
         56603   010400        LD BC,0004     ;  DEFADD  4 -
         56606       09        ADD HL,BC      ; (. c.109...111).
         56607       56        LD D,(HL)      ;ࠬ h.
         56608     0E08        LD C,08        ; 
         56610       09        ADD HL,BC      ;ᥬ ⮢.
         56611       5E        LD E,(HL)      ;ࠬ l.
         56612 ED5352DD        LD(ADDR),DE    ; h  l  ண-
                                              ;ࠬ ६  -
                                              ; 56658.
         56616   210040        LD HL,4000     ; 砫 ᯫ
                                              ;䠩.
         56619     0601 RETURN LD B,01        ;樠 稪
                                              ; ⮢.
         56621       7E        LD A,(HL)      ;ਭ﫨 ⥪騩 .
         56622       2C AGAIN  INC L          ; 諨  ᫥饬.
         56623     2008        JR NZ,PASS     ;᫨ ॣ L   -
                                              ;९,  室.
         56625       24        INC H          ; ⨢ 砥 -
                                              ;騢 訩 ॣ H.
         56626       F5        PUSH AF        ;஢ઠ
         56627       7C        LD A,H         ; 
         56628     FE5B        CP 5B          ;࠭ .
         56630     2810        JR Z,END       ;室  襭 -
                                              ;, ᫨ ࠭ ௠
         56632       F1        POP AF
         56633       4E PASS   LD C,(HL)      ;।  ਭ﫨 
                                              ;ॣ C  ࠢ 
         56634       B9        CP C           ; ।騬  A.
+                                 - 205 -

         56635     2004        JR NZ,PASS_1   ;᫨  ,  -
                                              ;室  PASS_1.
         56637       04        INC B          ;᫨  ,  -
                                              ;騢 稪 
         56638     20EE        JR NZ,AGAIN    ; 室  AGAIN 
                                              ;஢ન । 
                                              ;࠭.
         56640       05        DEC B          ;᫨ 稪 㫨,
                                              ;.. ९, 㬥-
                                              ;蠥     -
                                              ;⠥ 騢.
         56641       12 PASS_1 LD (DE),A      ;७᫨   ࠭
                                              ;   㪠⥫  -
         56642       13        INC DE         ; ⠢ .
         56643       78        LD A,B         ; 樥 
         56644       12        LD (DE),A      ; ᫠   .
         56645       13        INC DE         ;⠢ 㪠⥫ 
                                              ; .
         56646     18E3        JR RETURN      ;  ࠡ⪨
                                              ;। .
         56648       F1 END    POP AF         ;⠭ ⥪.
         56649       12        LD (DE),A      ;᫥  뤠
                                              ; 
         56650       13        INC DE         ;㤠  뤠 
         56651       78        LD A,B         ;樥 
         56652       12        LD (DE),A      ; ॣ B.
         56653 ED5316DD        LD (NEXT_S),DE ;   䨪-
                                              ;  ६.
                                              ;   ᯮ짮
                                              ;ਬ  ⮣, ⮡
                                              ;   稭
                                              ;࠭ ᫥饣 -
                                              ;࠭.
         56657       C9        RET
         56658          ADDR   DEFW           ;,  ண -
                                              ;    -
                                              ; 襣 ᪮-
                                              ;஢ ࠭.
+                                 - 206 -

                          3.15.  ࠭.

                ᪮஢  ࠭    ⠭ 
           ᭮   ࠭.  ⮣ 㦨   -
          ணࠬ FN o(h,l). :

              h - 訩  , 稭  ண ࠭ 
         ஢ ࠦ;
              l - 訩  ⮣ .
              h,l < 255.
               楤: DEF FN o(h,l) = USR 56500
              맮 楤 :  RANDOMIZE FN o(h,l)

                    10 REM *** 稪 設 
                    20 LET adr=56500: LET long=35: LET z=0
                    30 FOR i=0 TO long-1: READ a
                    40 POKE (adr+i),a: LET z=z+a
                    50 NEXT i
                    60 LET z=INT (((z/long)-INT (z/long))*long)
                    70 READ a
                    80 IF a<>z THEN PRINT "??": STOP

                    500 REM ***  設 
                    510 DATA  42,  11,  92,   1,   4
                    520 DATA   0,   9,  86,  14,   8
                    530 DATA   9,  94,  33,   0,  64
                    540 DATA  26, 245,  19,  26,  19
                    550 DATA  71, 241, 119,  35,  16
                    560 DATA 252, 124, 254,  91,  32
                    570 DATA 240, 201,   0,   0,   0
                    580 DATA  28,   0,   0,   0,   0

                १  ࠡ  饩  ணࠬ   ᦠ⮥
         ࠦ  ࠭    ⨢     ᫥騩
         ଠ:
                Ŀ
                 B1 K1 B2 K2    ........... Bi  Ki..... 
                
+                                 - 207 -

               Bi - i-   ࠦ,  Ki - 樥  
          ( 0  255). 楤 ᨨ ।쭮 .
             ࠬ. 樥   ⠭
         ࠬ஬ 横   ⮬ 横  ࠦ 頥  
         ࠭ (    ࠭  㪠뢠 ॣ஢  
         HL).    砭 ࠡ    室 H  
         ।, ⢥  ࠭ .

                          ᥬ ணࠬ:

         56500   2A0B5C        LD HL,(5C0BH)  ;. . 109...111.
         56503   010400        LD BC,0004     ;  DEFADD  4 -
         56506       09        ADD HL,BC      ; (. c. 109...111).
         56507       56        LD D,(HL)      ;ࠬ h.
         56508     0E08        LD C,08        ; 
         56510       09        ADD HL,BC      ;ᥬ ⮢.
         56511       5E        LD E,(HL)      ;ࠬ l.
         56512   210040        LD HL,4000     ;砫 ᯫ 䠩.
         56515       1A AGAIN  LD A,(DE)      ;ਭ﫨   ⨢-
                                              ; .
         56516       F5        PUSH AF        ;   ⥪.
         56517       13        INC DE         ;室   .
         56518       1A        LD A,(DE)      ;ਭ﫨 । 
                                              ;( 樥 )
         56519       13        INC DE         ;室   .
         56520       47        LD B,A         ; ॣ B ࣠
                                              ;稪 ஢.
         56521       F1        POP AF         ;⠭  ࠭.
         56522       77 LOOP   LD (HL),A      ; ⨫   ࠭.
         56523       23        INC HL         ;騩  ࠭.
         56524     10FC        DJNZ LOOP      ;塞 横  LOOP
                                              ;⮫쪮 ࠧ,  -
                                              ;樥 .
         56526       7C        LD A,H         ;஢塞  砭
         56527     FE5B        CP 5BH         ;࠭  .
         56529     20F0        JR NZ,AGAIN    ;᫨   , 
                                              ;த ࠡ.
         56531       C9        RET            ;.
+                                 - 208 -

                             ⥫!

                ᯮ          室  ப
         ७  ࢮ  "㬠".    訬      
         ஢  ⮩  ਨ    .  த஢  
         । ⠢-த   1982 .

                  ६       ஬ ⥮᪨ 
         ࠪ᪨    ࠡ    ⮩  ᠬ ᮢ  㯭
         設.  让  ⨩  ⨦ 室  
           ᮪⢥  ணࠬ,  㯭  
          ࠡ, , ࠧ祭 , ᠬ  - 祭.

              ୠ ணࠬ -    ⨭,  ன
             ⭮,  ,  ⥬  ,  -⠪ 祡
          ⮣,   ᫥⥫ ࠡ. 㤭 ࠡ 
         祡,    ஬    ⭮        ᢮
           -   ᭮ ,    
         ᢮ ਥ  室.  ᫨ ⥯ ࠧ   設
           ଥ  ணࠬ      -   
         饭,  -       ,  
         楫  ⨣.

              筮,   ஭㫨 ⮫쪮  ᠬ ࠩ  ᥣ ⮣, 
            ୮  䨪. ,  ,   
             頥    ⮢    ,   -, 
         ,    筥 ᠬ⥫쭮 ୮  ᫥-
         .

              ன  ,   ᬥ     ஢     모
         ணࠬ஢,    ,     ᥩ ਮ⠥ 
         쪨 "㬮", ⠭ 筮  ⠪ ,   ⠭
         ᭮      ਥ,    ᠬ  - ⠭ 
         ९  ᮡ  ⬨᪨  ࠧ  諥,   
               ᢮     孨       모
         ணࠬ஢.

                  㢠.                   ""

