
         祬  255 ᥫ,  ⭮ ⮣,  ணࠬ 
         .

                楤 ᮢ   -   蠣   -
         ࠢ  ⠪  뢠  ୮  䨪.  ᫥
          ணࠬ ELITE ,  룫 ⠪  ࠦ-
            ࠭. ०,  祬   ࠧ஬ 設  
         楤,   ᪮쪨 ᫮ 㯭 ᬮਬ  
          ࠡ.

              ஥  ⢫  窠  窮,  稭
          室 न.  蠣 믮  ᬥ饭  
         , 祬   ᥫ   ਧ⠫, ⠪   ⨪-
            ,   㤥 ⨣ 筠 窠.

              1.  砫        砫쭮  窨 
         筮. ᫨     x    y  饭 ⥫,  
         ᯥ樠쭮 ६ SIGN ⠢ +1   x  +1   y.
         ᫨  -    ᬥ饭  ⥫쭮,    
         ⠢ -1 (  FF).

              2. ஡   䠪,  ᫨    -
           㣮,   न    -
          蠣,    襣 -    . ⮡  뫮  ⠪,
         ஬ SIGN   ஫쭠  BC.   ⮬  -
         饭, ஥    ᮫⭮ 稭, ᮮ⢥ 01
          FF,  襬 - 0.  ⥯  ஥  窨 蠣
          न⠬      SIGN,     BC.  ᨫ쭥 
         ᮫⭮ 稭 ⫨  饭  x   y, ⥬  
         ஥  窨    蠣,    BC,  
         ࠡ뢠  ⮫쪮    न,       ⠥
         .   ࣠   60782 - 60789.
+                                 - 154 -

              3.  ⠫쭮  ࠡ 楤 筮  筠.
         ⬥⨬ ⮫쪮,  ᠬ   祪  न⠬,  室-
         騬  DE 믮 楤ன PLOT (60851),   -
         筠 ࠧ࠭  ।饬 ࠧ.

                    10 REM *** 稪 設 
                    20 LET adr=60700: LET long=210: 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,  26
                    540 DATA 237, 205, 226, 237,  94
                    550 DATA  42,  26, 237, 217, 229
                    560 DATA 217, 237, 115, 175, 237
                    570 DATA   1,   1,   1, 122, 148
                    580 DATA 210,  70, 237,   6, 255
                    590 DATA 237,  68,  87, 123, 149
                    600 DATA 210,  80, 237,  14, 255

                    610 DATA 237,  68,  95, 122, 187
                    620 DATA  48,  10, 106, 237,  67
                    630 DATA 177, 237, 175,  71, 195
                    640 DATA 107, 237, 178, 202, 167
                    650 DATA 237, 107,  90, 237,  67
                    660 DATA 177, 237,  14,   0,  99
                    670 DATA 123,  31, 133, 218, 118
                    680 DATA 237, 188, 218, 128, 237
                    690 DATA 148,  87, 217, 237,  91
                    700 DATA 177, 237, 195, 132, 237

                    710 DATA  87, 197, 217, 209,  42
                    720 DATA  26, 237, 123, 133,  95
+                                 - 155 -

                    730 DATA 122,  60, 132, 218, 164
                    740 DATA 237, 202, 167, 237,  61
                    750 DATA  87, 237,  83,  26, 237
                    760 DATA 205, 179, 237, 217, 122
                    770 DATA  29,  32, 205, 195, 167
                    780 DATA 237, 202, 147, 237, 237
                    790 DATA 123, 175, 237, 217, 225
                    800 DATA 217, 201, 181, 214,   1

                    810 DATA   1,  62, 175, 147, 218
                    820 DATA 249,  36,  95, 167,  31
                    830 DATA  55,  31, 167,  31, 171
                    840 DATA 230, 248, 171, 103, 122
                    850 DATA   7,   7,   7, 171, 230
                    860 DATA 199, 171,   7,   7, 111
                    870 DATA 122, 230,   7,  71,   4
                    880 DATA  62, 254,  15,  16, 253
                    890 DATA   6, 255, 168,  71, 126
                    900 DATA 176, 119, 201, 229, 197
                    910 DATA 205, 179, 237, 193, 225
                    920 DATA   9,  86,   9, 201,   0
                    930 DATA 192,   0,   0,   0,   0

                          ᥬ ணࠬ:

         60698           COORD DEFW           ; ᮧ ணࠬ-
                                              ; ६, ࠭
                                              ;न 室 窨
         60700   2A0B5C        LD HL,(5C0BH)  ;. .109...111.
         60703   010400        LD BC,0004     ;  DEFADD  4 -
         60706       09        ADD HL,BC      ; (. c.109...111).
         60707       56        LD D,(HL)      ;न x.
         60708     0E08        LD C,08        ; 
         60710       09        ADD HL,BC      ;ᥬ ⮢.
         60711       5E        LD E,(HL)      ;न y.
         60712 ED531AED        LD(COORD),DE   ; x,y
         60716   CDE2ED        CALL BEGIN     ;맮 ணࠬ BEGIN
                                              ;(60898),  믮
+                                 - 156 -

                                              ; 室 窨.
         60719       5E        LD E,(HL)      ; न q.
         60720   2A1AED        LD HL,(ED1A)   ;ਭ﫨 न x  y.
         60723       D9        EXX            ;࠭  ⥪ -
         60724       E5        PUSH HL        ;ﭨ ୠ⨢ -
         60725       D9        EXX            ; HL, ᪮ 
                                              ;ࠡ ணࠬ  -
                                              ;  㬯஢.
         60726 ED73AFED        LD(STK_P),SP   ; ﭨ 㪠-
                                              ;⥫ ⥪  ᮮ⢥-
                                              ;饩 ६.
         60730   010101        LD BC,0101     ;室 ⠭ 
                                              ;樠樨 ६
                                              ;SIGN (60849).
         60733       7A        LD A,D         ;ࠬ p.
         60734       94        SUB H          ;竨   ࠬ x.
         60735   D246ED        JP NC,CONT_1   ;᫨ p>x,  ॣ B
                                              ;    -
                                              ;   CONT_1.
         60738     06FF        LD B,0FFH      ; ⨢ 砥  B
                                              ;⠢塞 FF ( -
                                              ;).
         60740     ED44        NEG            ;  ᮤন-
                                              ; , ⥯
                                              ;  ᮫⭠ 稭
                                              ;饭  x,   -
                                              ; ॣ B.
         60742       57 CONT_1 LD D,A         ;  D ..
                                              ;饭  x.
         60743       7B        LD A,E         ;ࠬ q.
         60744       95        SUB L          ;竨   ࠬ y.
         60745   D250ED        JP NC,CONT_2   ;᫨ q>y,  ॣ C
                                              ;    -
                                              ;   CONT_2.
         60748     0EFF        LD C,0FFH      ; ⨢ 砥  C
                                              ;⠢塞 FF ( -
                                              ;).

+                                 - 157 -

         60750     ED44        NEG            ;  ᮤন-
                                              ; , ⥯
                                              ;  ᮫⭠ 稭
                                              ;饭  y,   -
                                              ; ॣ C.
         60752       5F CONT_2 LD E,A         ;  E ..
                                              ;饭  y.
         60753       7A        LD A,D         ;ࠢ  ᮫⭮
         60754       BB        CP E           ;稭 饭 x 
                                              ;y.
         60755     300A        JR NC,CONT_3   ;᫨ 饭  x
                                              ;,  室 
                                              ; CONT_3.
         60757       6A        LD L,D         ; 襥.
         60758 ED43B1ED        LD (SIGN),BC   ;  -
                                              ;饭  ६ SIGN.
         60762       AF        XOR A          ;㫥 .
         60763       47        LD B,A         ;㫥 B (ࠧ -
                                              ;  x - 襥, 
                                              ; 蠣   㤥
                                              ;㫥.
         60764   C36BED        JP CONT_4      ;室  CONT_4 
                                              ;த ࠡ.

                 ⮫쪮  ⮬ 砥, ᫨ ᮫⭠ -
         稭 饭  x , 祬 饭  y.

         60767       B2 CONT_3 OR D           ;᪮   -
                                              ;   ॣ D -
                                              ;室 饭  x,
                                              ;   䠪-
                                              ;᪨  ஢મ
                                              ;䫠.
         60768   CAA7ED        JP Z,FINISH    ;᫨ 饭 㦥 ࠢ-
                                              ; ,   ࠡ-
                                              ;  室  FINISH.
         60771       6B        LD L,E         ;饭  y.
         60772       5A        LD E,D         ;饭  x.
+                                 - 158 -

         60773 ED43B1ED        LD (SIGN),BC   ;  -
                                              ;饭  ६ SIGN.
         60777     OE00        LD C,00        ;२樠 C. (
                                              ;饭  y ,
                                              ;  蠣  
                                              ;㤥 㫥.

               ⮣ 権, ஢  ப 60753 - 60777
            ॣ E  饭 ( x  y), ஥ 
          ᮫ 稭,   - max   ॣ L -
         , ஥   稭,   min.

         60779       63 CONT_4 LD H,E         ;襥  饭.
         60780       7B        LD A,E         ;襥  饭.
         60781       1F        RRA            ; .
         60782       85 REPEAT ADD A,L        ;0.5max+min
         60783   DA76ED        JP C,CONT_5    ; ९ -
                                              ; ⮫쪮 ᫨
                                              ;min>0.5max.
         60786       BC        CP H           ; ९ -
         60787   DA80ED        JP C,CONT_6    ; ⮫쪮 ᫨
                                              ;min<0.5max.
         60790       94 CONT_5 SUB H          ;稫 min-0.5max
         60791       57        LD D,A         ;  D
         60792       D9        EXX            ;室  ୠ⨢
                                              ; ॣ஢, ⮡ 
                                              ; DE.
         60793 ED5BB1ED        LD DE,(SIGN)   ; DE -  饭
                                              ; x  y.
         60797   C384ED        JP CONT_7

         60800       57 CONT_6 LD D,A         ;  D min+0.5 max
         60801       C5        PUSH BC        ;ॡ᪠ १ ⥪
         60802       D9        EXX            ; 饭  BC 
         60803       D1        POP DE         ;ୠ⨢  DE.
         60804   2A1AED CONT_7 LD HL,(COORD)  ;騥 न -
                                              ;樨  ।
                                              ;窨.
+                                 - 159 -

         60807       7B        LD A,E         ; 饭  y.
         60808       85        ADD A,L        ;室   窥 
                                              ;⨪.
         60809       5F        LD E,A         ; .
         60810       7A        LD A,D         ; 饭  x.
         60811       3C        INC A          ;஢ઠ  
         60812       84        ADD A,H        ;室  । -
         60813   DAA4ED        JP C,CONT_8    ;.
         60816   CAA7ED        JP Z,FINISH    ;⮢  室.
         60819       3D CONT_9 DEC A          ;⠭ A ᫥
                                              ;㪠 ஢ન
         60820       57        LD D,A         ;   D.
         60821 ED531AED        LD (COORD),DE  ;  ⥪
                                              ;न 樨 -
                                              ; 窨.
         60825   CDB3ED        CALL PLOT      ; 窨
         60828       D9        EXX            ;  ᭮ -
                                              ; ॣ஢.
         60829       7A        LD A,D
         60830       1D        DEC E          ;襭 ⮣ -
                                              ;, ஥ 뫮 -
                                              ;.
         60831     20CD        JR NZ,REPEAT   ;᫨   0,  㦭
                                              ;ࠡ .
         60833   C3A7ED        JP FINISH      ; ⨢ 砥 ࠡ-
                                              ; 蠥.
         60836   CA93ED CONT_8 JP Z,CONT_9    ;।  x - , 
                                              ;   
                                              ; - 室  CONT_9
         60839 ED7BAFED FINISH LD SP,(EDAF)   ;⠭ 㪠⥫
                                              ;⥪.
         60843       D9        EXX            ;⠭ ﭨ
         60844       E1        POP HL         ;ୠ⨢  HL
         60845       D9        EXX            ;। 室.
         60846       C9        RET            ;ࠫ 室.



+                                 - 160 -

         60847          STK_P  DEFW           ; ⮩ ணࠬ -
                                              ; ࣠ -
                                              ; 祭 㪠⥫
                                              ;設 ⥪ - SP.
         60849          SIGN   DEFW           ;  ⮩ ६
                                              ;믮 ஫ 
                                              ;饭 न.
                                              ;᫨ x<p, ᮢ -
                                              ;  ᫥ ࠢ 
                                              ;㢥祭 न 
                                              ;  ࠢ +1. -
                                              ;  x>p,   ࠢ FF
                                              ; -1. ன  -
                                              ;  +1   FF
                                              ; ᨬ  ᮮ⭮-
                                              ;襭 q  y.

              楤 PLOT 㦨     ࠭   祪, 
          ⮨  १. ᪮  ࠪ᪨ ᮮ⢥-
          ᬮ७  ࠭ 楤  FN f(x,y),     㤥
         ஡ ᬠਢ   ࠡ.
               맮 ⮩ 楤  ॣ D ⠢  न-
          x । 樨 ,   ॣ E -  न-
          y.

         60851     3EAF PLOT   LD A,0AFH      ;AF=175
         60853       93        SUB E          ;஢ઠ  室  
                                              ;। ᪠ (175) -
                                              ;न y.
         60854   DAF924        JP C,24F9      ;᫨ ⠪,  室 
                                              ;   9465, 
                                              ;ᠭ 맮 楤
                                              ;ࠡ⪨ 訡 RST 08
                                              ;  墠 0A, 
                                              ; 訡 "Integer out
                                              ;of range".
         60857       5F        LD E,A         ; y  175.
         60858       A7        AND A          ; 䫠 ७.
+                                 - 161 -

         60859       1F        RRA            ; ࠢ.
         60860       37        SCF            ;⠭ 䫠 ७
         60861       1F        RRA            ; ࠢ.
         60862       A7        AND A          ; 䫠 ७.
         60863       1F        RRA            ; ࠢ.
         60864       AB        XOR E          ;᭠
         60865     E6F8        AND F8         ; 饭
         60867       AB        XOR E          ;⮢ 0,1  2.
         60868       67        LD H,A         ;ନ஢ 訩 
                                              ;  ᯫ 䠩
         60869       7A        LD A,D         ;न x
         60870       07        RLCA           ;饭 .
         60871       07        RLCA           ;饭 .
         60872       07        RLCA           ;饭 .
         60873       AB        XOR E          ; 饭
         60874     E6C7        AND C7         ; ⮢ 3,4,5.
         60876       AB        XOR E          ;
         60877       07        RLCA           ;饭 .
         60878       07        RLCA           ;饭 .
         60879       6F        LD L,A         ;ନ஢ 訩 
                                              ;  ᯫ 䠩
         60880       7A        LD A,D         ;न x.
         60881     E607        AND 07H        ;᪨஢.
         60883       47        LD B,A         ;樠 稪
         60884       04        INC B          ;⮢  ॣ B.
         60885     3EFE        LD A,0FEH      ; FE=254 ᥭ
                                              ;⥬,   , -
                                              ;  ࠢ -
                                              ;.   "" 
                                              ; 頥,   
                                              ;⠭  ᢮ .
         60887       0F AGAIN  RRCA           ;饭 ࠢ.
         60888     10FD        DJNZ AGAIN     ; 饭.
         60890     06FF        LD B,0FFH      ;, ⮡ 
         60892       A8        XOR B          ;窨 뫠   -
                                              ;,   .
         60893       47        LD B,A         ;  B.

+                                 - 162 -

         60894       7E        LD A,(HL)      ;  ਭ﫨 ,
                                              ; 㦥 ᮤন  -
                                              ;࠭  㦭 .
         60895       B0        OR B           ;砥 ॡ㥬 
         60896       77        LD (HL),A      ;砥 ॡ㥬 -
                                              ;ᥫ.
         60897       C9        RET            ;室  楤.

         60898       E5 BEGIN  PUSH HL        ;࠭  ⥪
         60899       C5        PUSH BC        ;ॣ஢ HL  BC.
         60900   CDB3ED        CALL PLOT      ;맮 楤 PLOT
                                              ; (60851)
         60903       C1        POP BC         ;⠭  ⥪
         60904       E1        POP HL         ;ॣ஢ HL  BC.
         60905       09        ADD HL,BC      ;  DEFADD  8 -
                                              ;⮢.
         60906       56        LD D(HL)       ; न p.
         60907       09        ADD HL,BC      ;  DEFADD  8 -
                                              ;⮢.
         60910       C9        RET            ;  뢠 -
                                              ;ࠬ.

                      ਬ ᯮ짮 楤.
                      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
              த㥬  ࠡ  ਢ    楤  
           ਬ.     ਬ   ᠭ       
         ⠢  ਢ   -ணࠬ (. 154)
          ப  80  500.

              "".
              ~~~~~~~
              100  DEF FN g(x,y,p,q) = USR 60700
              110  BORDER 1: PAPER 1: INK 6
              120  CLS
              130  FOR j=0 TO 116 STEP 8
              140  RANDOMIZE FN g(56,24+j,168,24+j)
              150  RANDOMIZE FN g(56+j,24,56+j,136)
              160  RANDOMIZE FN g(56+j,136,96+j,160)
+                                 - 163 -

              170  RANDOMIZE FN g(168,24+j,208,48+j)
              180  NEXT j
              190  RANDOMIZE FN g(96,160,208,160)
              200  RANDOMIZE FN g(208,160,208,48)

              "".
              ~~~~~~~~~
                     ணࠬ  ᯮ  ⠪  楤  FN c(),
         㦠  ᪨   ࠭ 梥⮬ PAPER. 設  ,
         ᮮ⢥騩  ⮩  楤  ।⥫쭮     
         㦥  ⢥    .

              100  DEF FN c(x,y,h,v,c,b,f)=USR 62600
              110  DEF FN g(x,y,p,q) = USR 60700
              120  BORDER 0: PAPER 1: INK 6
              130  CLS
              140  RANDOMIZE FN c(0,0,32,17,2,0,0)
              150  FOR j=40 TO 174 STEP 12
              160  RANDOMIZE FN g(0,j,128,40)
              170  RANDOMIZE FN g(255,j,128,40)
              180  NEXT j
              190  FOR j=6 TO 255 STEP 12
              200  RANDOMIZE FN g(j,175,128,40)
              210  NEXT j
              220  FOR j=36 TO 0 STEP -3
              230  RANDOMIZE FN g((10+j*3),j,(248-j*3),j)
              240  NEXT j


              "ࠬ".
              ~~~~~~~~~~~
                   楤, ࠦ १ , 祭  
         室  ࠦ ७樮 㧮஢.   ࠧ-
         ,  ᬥ饭 ᥬ⢠  १ ⮫쪮 ,   
         १  ࠧ  ⤥ ,  ᯫ譠  -
         襭 孮.  ਢ ணࠬ 뢠,   
         ந室    祭 ஢⥫쭮-
            筮 ⨫.  ࠬ   맮
+                                 - 164 -

         ணࠬ  ப 400. ७樮 ⨭  -
           ࠭ ࠬ,  ᮧ 䥪 嬥୮ 䨪.

              100  DEF FN b(x,y,h,v,c,b,f)=USR 62800
              110  DEF FN c(x,y,h,v,c,b,f)=USR 62600
              120  DEF FN g(x,y,p,q) = USR 60700
              130  BORDER 0: PAPER 1: INK 2
              140  CLS
              150  RANDOMIZE FN c(0,8,31,14,6,0,0)
              160  LET tx=80: LET ty=136: LET by=24: LET a=16: LET b=128
              170  GO SUB 400
              180  LET tx=156: LET by=60: LET a=102: LET b=182
              190  GO SUB 400: STOP

              400  FOR x=a TO b STEP 2
              410  RANDOMIZE  FN g(tx,ty,x,by)
              420  NEXT x
              430  FOR x=b TO b+16
              440  RANDOMIZE  FN g(tx,ty,x,by)
              450  LET by=by+1
              460  NEXT x: RETURN

              "⥭".
              ~~~~~~~~~~~
                         ன  ⥯ ࠤ-
         ᠫ 䥪    ࠦ ᥬ⢠   
          ᬥ饭     . ,     
         殢 १ ᪮쪨   窠 祭  ࠧ-
          쭮 ᫮ ਢ ,  客 ࠪ  -
         ࠦ ਤ  室⢮  ᫮묨 嬥묨  孮-
         ﬨ.

              100  DEF FN g(x,y,p,q) = USR 60700
              110  BORDER 0: PAPER 6: INK 0
              120  CLS
              130  FOR i=14 TO 2 STEP -1
              140  FOR j=0 TO 150 STEP i
              150  RANDOMIZE  FN g(50+j,0,j,175)
+                                 - 165 -

              160  RANDOMIZE  FN g(255,j,j,0)
              170  RANDOMIZE  FN g(50+j,150,255,150-j)
              180  RANDOMIZE  FN g(50+j,150,j,0)
              190  NEXT j
              200  PAUSE 0: CLS
              210  NEXT i

              "७".
              ~~~~~~~~~~~~~~~~
                    ७樮 ⨭  ࠭ 
          祭  㢥祭 ⢠ ⠥ १-
          . ஡ ᯥਬ஢  ਢ 
         ணࠬ,  ࠬ 横 255  ப 140.

              100  DEF FN g(x,y,p,q) = USR 60700
              110  BORDER 0: PAPER 1: INK 6
              120  CLS
              130  FOR i=16 TO 6 STEP -1
              140  FOR j=0 TO 255 STEP i
              150  RANDOMIZE  FN g(0,0,j,175)
              160  RANDOMIZE  FN g(255,175,j,0)
              170  RANDOMIZE  FN g(255,0,j,175)
              180  RANDOMIZE  FN g(0,175,j,0)
              190  NEXT j
              200  PAUSE 0: CLS
              210  NEXT i


                      3.9. ࠦ אַ㣮쭨.

              ࠦ  אַ㣮쭨      믮 
          PLOT    DRAW. ਬ:

                             10 PLOT 100,100
                             20 DRAW 50,0
                             30 DRAW 0,50
                             40 DRAW -50,0
                             50 DRAW 0,50
+                                 - 166 -

              筮 ⠪  ࠦ      
         אַ㣮쭨  設 .  饬   ᬠਢ
          楤  楤 (  FN h(x,y,h,v))  
         ⫨⥫ ᮡ,    ᮫⭮ ⮭
             ࠡ  뢠  楤 ࠦ १ 
         FN  g(x,y,p,q).    楤  뢠    60723, 
          ।,   न 室 窨  ⠭ 
         HL,  न 窨 祭 (᮫) -  DE.

              ࠬ:  x,y - न  孥 㣫;
                            h - ਭ
                            v -  אַ㣮쭨.

                    10 REM *** 稪 設 
                    20 LET adr=60400: LET long=105: 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 236,   9,  86,   9,  94
                    550 DATA 237,  83,  84, 236, 237
                    560 DATA  91,  82, 236,  58,  85
                    570 DATA 236, 130, 103,  50,  87
                    580 DATA 236, 107,  34,  26, 237
                    590 DATA 205,  51, 237, 237,  91
                    600 DATA  82, 236,  58,  84, 236

                    610 DATA 131,  50,  86, 236, 111
                    620 DATA  98,  34,  26, 237, 205
                    630 DATA  51, 237,  42,  86, 236
                    640 DATA  58,  83, 236,  87,  58
+                                 - 167 -

                    650 DATA  86, 236,  95,  34,  26
                    660 DATA 237, 205,  51, 237,  42
                    670 DATA  86, 236,  58,  82, 236
                    680 DATA  95,  44,  58,  87, 236
                    690 DATA  87,  34,  26, 237, 205
                    700 DATA  51, 237, 201,  30,   3
                    710 DATA  60,  60,  90,  63,   0
                    720 DATA  86,   0,   0,   0,   0

                          ᥬ ணࠬ:

         60400   2A0B5C        LD HL,(5C0BH)  ;. . 109...111
         60403   010400        LD BC,0004     ;  DEFADD  4 -
         60406       09        ADD HL,BC      ; (. c.109...111).
         60407       56        LD D,(HL)      ;न x.
         60408     0E08        LD C,08        ; 
         60410       09        ADD HL,BC      ;ᥬ ⮢.
         60411       5E        LD E,(HL)      ;न y.
         60412 ED5352EC        LD(Y_UP),DE    ; x,y.
         60416       09        ADD HL,BC      ;  8 ⮢.
         60417       56        LD D,(HL)      ;ࠬ h.
         60418       09        ADD HL,BC      ;  8 ⮢.
         60419       5E        LD E,(HL)      ;ࠬ v.
         60420 ED5354EC        LD(HIGHT),DE   ; h,v.
         60424 ED5B52EC        LD DE,(Y_UP)   ;ࠬ x,y
         60428   3A55EC        LD A,(WIDTH)   ;ਭ﫨 ਭ -.
         60431       82        ADD A,D        ;塞 x+h 
         60432       67        LD H,A         ;  ॣ H
         60433   3257EC        LD (X_RGHT),A  ;  ६ 60503.
         60436       6B        LD L,E         ;ࠬ y.
         60437   221AED        LD (COORD),HL  ; न
                                              ; 奣 㣫 
                                              ;祩 60698, 㤠 
                                              ;  ᯮ짮
                                              ;楤ன FN g() 
                                              ;ᮢ 孥 -
                                              ; אַ㣮쭨.

+                                 - 168 -

         60440   CD33ED        CALL ED33      ;맮 楤 FN g()
                                              ;⢫ 
                                              ; 60723. 㥬 -
                                              ; ஭.
         60443 ED5B52EC        LD DE,(Y_UP)   ;ࠬ x,y.
         60447   3A54EC        LD A,(HIGHT)   ; -.
         60450       83        ADD A,E        ;।塞 y+v  -
         60451   3256EC        LD (Y_DOWN),A  ;  ६ 60502
         60454       6F        LD L,A         ;  ॣ L.
         60455       62        LD H,D         ;ࠬ x.
         60456   221AED        LD (COORD),HL  ; न
                                              ;  㣫 
                                              ;祩 60698.
         60459   CD33ED        CALL ED33      ;㥬  ஭.
         60462   2A56EC        LD HL,(Y_DOWN) ;न ࠢ -
                                              ; 㣫.
         60465   3A53EC        LD A,(X_LEFT)  ;. x .
         60468       57        LD D,A
         60469   3A56EC        LD A,(Y_DOWN)  ;. y 
         60472       5F        LD E,A
         60473   221AED        LD (COORD),HL  ;ࠢ  㣮.
         60476   CD33ED        CALL ED33      ;㥬  ஭.
         60479   2A56EC        LD HL,(Y_DOWN) ;न ࠢ -
                                              ; 㣫.
         60482   3A52EC        LD A,(Y_UP)    ;. y 孥 ஭.
         60485       5F        LD E,A
         60486       2C        INC L
         60487   3A57EC        LD A,(X_RGHT)  ;. x ࠢ ஭.
         60490       57        LD D,A
         60491   221AED        LD (COORD),HL  ;ࠢ  㣮.
         60494   CD33ED        CALL ED33      ;㥬 ࠢ ஭.
         60497       C9        RET            ;室.
         60498          Y_UP   DEFB           ;न y 孥
                                              ;஭.
         60499          X_LEFT DEFB           ;न x 
                                              ;஭.
         60500          HIGHT  DEFB           ; אַ㣮쭨.
         60501          WIDTH  DEFB           ;ਭ אַ㣮쭨.
+                                 - 169 -

         60502          Y_DOWN DEFB           ;न y 
                                              ;஭.
         60503          X_RGHT DEFB           ;न x ࠢ
                                              ;஭.
         60698          COORD  DEFW           ;६, 㦠 
                                              ;裡  楤ன -
                                              ;  .

                      ਬ ᯮ짮 楤.
                      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
              த㥬  ࠡ  ਢ    楤  
           ਬ.     ਬ   ᠭ       
         ⠢  ਢ    -ணࠬ (. 166  )
          ப  80  500.

              " 梥⮪"
              ~~~~~~~~~~~~~~~~~
                   100  DEF FN h(x,y,h,v) = USR 60400
                   110  BORDER 3: PAPER 3: INK 6: CLS
                   120  FOR j=1 TO 43
                   130  RANDOMIZE FN h(j*2,j*3,j,j)
                   140  RANDOMIZE FN h(j*4,j*3,j,j)
                   150  RANDOMIZE FN h(j*4,j,j,j)
                   160  RANDOMIZE FN h(j*2,j,j,j)
                   170  NEXT j

                  ࠧ  ᪨  ஥ 
          ਬ ᫥饩 ணࠬ:

                   100  DEF FN h(x,y,h,v) = USR 60400
                   110  BORDER 0: PAPER 2: INK 6 :CLS
                   120  FOR j=5 TO 38 STEP 2
                   130  RANDOMIZE FN h(j*2,j,50,50)
                   140  RANDOMIZE FN h(j*2,130-j,50,50)
                   150  RANDOMIZE FN h(206-j*2,130-j,50,50)
                   160  RANDOMIZE FN h(206-j*2,j,50,50)
                   170  NEXT j

+                                 - 170 -

                      3.10. ࠦ 㣮쭨.

               ।饩 ணࠬ  ᯮ짮  ᫥  -
         न אַ㣮쭨  䠪,   ஭ ࠫ.
         । 蠣 ।  ࠦ ந 㣮쭨-
           ᤥ, ᫨ ᬮਬ ਥ ஥  㣮쭨.
          ⮣ 㦨 ਢ  楤 FN i(x,y,p,q,r,s).

                      x,y - न ࢮ 設;
                      p,g - न ன 設;
                      r,s - न ⥩ 設 㣮쭨.

                 㢨,   ࠡ ⮩  楤 ᮧ 
         ணࠬ  ६  PLOT_1...PLOT_3,  ࠭騥  न
         設 㣮쭨.  ᫮ ࠧ   ਥ    
         㣨 㣮 ᪨  .    ணࠬ -
         ஥  אַ㣮쭨,     楤  ᯮ   맮
         楤 FN g(), 饩 १ .  맮  ந-
            60723,  祣 न 室 窨  
          ⠭  HL,  न 窨 祭  (᮫-
         ) -   DE.      楤ࠬ  FN i()   FN  g()
         㦨 ६ COORD, ᯮ   60698.

                    10 REM *** 稪 設 
                    20 LET adr=60300: LET long=75: 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, 208
                    540 DATA 235,   9,  86,   9,  94
                    550 DATA 237,  83, 210, 235,   9
+                                 - 171 -

                    560 DATA  86,   9,  94, 237,  83
                    570 DATA 212, 235,  42, 210, 235
                    580 DATA  34,  26, 237, 205,  51
                    590 DATA 237, 237,  91, 208, 235
                    600 DATA  42, 212, 235,  34,  26

                    610 DATA 237, 205,  51, 237, 237
                    620 DATA  91, 210, 235,  42, 208
                    630 DATA 235,  34,  26, 237, 205
                    640 DATA  51, 237, 201,  40,   6
                    650 DATA  40, 143,  80, 123,   0
                    660 DATA  68,   0,   0,   0,   0

                          ᥬ ணࠬ:

         60300   2A0B5C        LD HL,(5C0BH)  ;. . 109...111
         60303   010400        LD BC,0004     ;  DEFADD  4 -
         60306       09        ADD HL,BC      ; (. c.109...111).
         60307       56        LD D,(HL)      ;न x.
         60308     0E08        LD C,08        ; 
         60310       09        ADD HL,BC      ;ᥬ ⮢.
         60311       5E        LD E,(HL)      ;न y.
         60312 ED53D0EB        LD(PLOT_1),DE  ; x,y.
         60316       09        ADD HL,BC      ;  8 ⮢.
         60317       56        LD D,(HL)      ;ࠬ p.
         60318       09        ADD HL,BC      ;  8 ⮢.
         60319       5E        LD E,(HL)      ;ࠬ q.
         60320 ED53D2EB        LD(PLOT_2),DE  ; p,q.
         60324       09        ADD HL,BC      ;  8 ⮢.
         60325       56        LD D,(HL)      ;ࠬ r.
         60326       09        ADD HL,BC      ;  8 ⮢.
         60327       5E        LD E,(HL)      ;ࠬ s.
         60328 ED53D4EB        LD(PLOT_3),DE  ; r,s.
         60332   2AD2EB        LD HL,(PLOT_2) ;. 2- 設.
         60335   221AED        LD (COORD),HL  ; न
                                              ;㣫  祩 60698.
         60338   CD33ED        CALL ED33      ;맮 楤 FN g().
                                              ;㥬 ஭ 2-3.
+                                 - 172 -

         60341 ED5BD0EB        LD DE,(PLOT_1) ;न 1- 設.
         60345   2AD4EB        LD HL,(PLOT_3) ;न 3- 設.
         60348   221AED        LD (COORD),HL  ;
         60351   CD33ED        CALL ED33      ;ᮢ ஭ 1-3.
         60354 ED5BD2EB        LD DE,(PLOT_2) ;न 2- 設.
         60358   2AD0EB        LD HL,(PLOT_1) ;न 1- 設.
         60361   221AED        LD (ED1A),HL   ;
         60364   CD33ED        CALL ED33      ;ᮢ ஭ 1-2.
         60367       C9        RET            ;室  楤.

         60368          PLOT_1 DEFW           ;. ࢮ 設
         60370          PLOT_2 DEFW           ;. ன 設
         60372          PLOT_3 DEFW           ;. 쥩 設

         60698          COORD  DEFW           ;६, 㦠 
                                              ;裡  楤ன -
                                              ;  .

                      ਬ ᯮ짮 楤.
                      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                祭  ࠦ  㣮쭨 
         祭   ணࠬ.  ᮦ,  ⠭⭮  -
            ⮩ 楫  ।ᬮ७,   㣮-
          㦨  ⮬     ᪨
            ࠦ - ࠬ, , ॢ, ୨
          .   . ᮪   뫮  த.  ⥩ -
         ࠬ  "஦"        ਣ 䥪⮢
           ࠦ ⮫쪮 㣮쭨.

              "஦".
              ~~~~~~~~~~~~
                   100  DEF FN i(x,y,p,q,r,s) = USR 60300
                   110  BORDER 0: PAPER 0: INK 6:
                   120  CLS
                   130  LET s=4: LET a=0: LET ad=s*PI/128
                   140  LET x1=162: LET y1 = 20
                   150  FOR i=0 TO 255 STEP s
                   160  LET  x=x1+INT (90*SIN a)
+                                 - 173 -

                   170  LET  y=y1+INT (10*COS a)
                   180  LET  x2=x1+INT (90*SIN (a+PI))
                   190  RANDOMIZE  FN i(x,y,x2,y,5,170)
                   200  LET a=a+ad
                   210  NEXT i

              "᪮".
              ~~~~~~~~~~~~~~~~
                   ᫨   ࠡ ᯮ 梥⭮ ⥫ (-
         ),   ,   ࠫ ᫥ ணࠬ,   
         ,  ।⥫쭮   㦥 設 
         楤 FN b(x,y,h,v,c,b,f).

                   100  DEF FN b(x,y,h,v,c,b,f) = USR 62800
                   110  DEF FN i(x,y,p,q,r,s) = USR 60300
                   120  BORDER 4: PAPER 4: INK 1:
                   130  CLS
                   140  FOR a=0 TO 75 STEP 4
                   150  RANDOMIZE FN i(a,0,0,175-a,0,0)
                   160  RANDOMIZE FN i(a,175,0,a,0,175)
                   170  RANDOMIZE FN i(255-a,175,255,a,255,175)
                   180  RANDOMIZE FN i(255-a,0,255,175-a,255,0)
                   190  NEXT a
                   200  RANDOMUZE FN b(8,4,16,14,2,0,0)
                   210  FOR a= 78 TO 178  STEP 4
                   220  RANDOMIZE FN i(a,38,178,a-40,256-a,138)
                   230  RANDOMIZE FN i(256-a,138,78,216-a,a,38)
                   240  NEXT a


                      3.11. 訢 .

              訢 ந쭮  ࠭ - 쭮  
           .  譥        ⮬,   
         ॡ 쥧   設 ६.

                  ⮬,   ᫨  ࠭   ஥
         ⮥ ࠦ (),     ⠭
+                                 - 174 -

         梥⮬  INK  -         몫祭 ᥫ,
            ⮣      , ⠢ 
          ࠭ 祭.    :  " 
          梥⮬ 㤥    ?"  -     ⮣,
          ਡ  ⠭   ⮣    . 
           祭 ᥫ  ࠭  ਮ   梥,
          ࠭ ᮮ⢥⢮  ࠬ INK    -
         .

                ணࠬ  FN j(x,y),   x  y  - ᮫
         न 室 窨,   ன 筥  . -
         㬥 x<255,  y<175. ணࠬ ࠡ⠥  ⮤  "᭮
         ".  ᭮ 室 窨   祭-
          ᥫ (᫥, ᢥ, ࠢ, ᭨)   न  -
           ᯥ樠쭮 ⢥  ⮩ 楫 ,  ⥬
         ᫥ 室  ࢮ   祭 祪.  ⭮-
           窨 ⮦     ᫥ 室
          ன 祭 窥  ..

                             Ŀ
                              T   S   O   I   
                              Q   M   G   C   Ŀ
                              L   F   B   A   D   J 
                              R   N   H   E   K   P 
                             
                                  .  18

              ᫨  砫 ࠡ   窨 A,  祭 祪  
         ⠪,    . 18.

               ஫ ࠥ  ⮩ 楤 .   ਣ-
          ࣠. , 祢,    ਥ ࣠-
         樨 , 뢠 ⥪.  ⥪  뢠
         ᢥ  ᢥ   ᭨  ਭ樯 "᫥ 襫  -
          㩤".     ࣠ -  -
         .   ⮦,   ⥪,  ᢥ,  ஦-
          ᭨.   ਭ樯 " 襫,   㩤".
          ⫨稥 ⮨   ⮬,   ⥪  ᪮ -
+                                 - 175 -

          ⮫쪮  ࠭  -  ﭭ ""   
         . ᭮ ⥪ -  䨪஢  ⮬   㦨
         ⥪  ணࠬ 筮   ६ - 㪠⥫  
         ⥪騩  設 ⥪.    묨  -
           ࠭  -     ,   ⮬  
           ६-㪠⥫.       "" -, 
            ࠢ - ⮫쪮 . ,   㦨
         窨 A  㤥   ,    . 19   ,  
          㦨 窨  C - ,    . 19 .
           XXXX  Ŀ
                                                             Ĵ
                             CONMAXĴ  I  
                                                            Ĵ
                                                              H  
                                                            Ĵ
                                                              G  
                                                            Ĵ
                                                              F  
         Ĵ                                              Ĵ
           E                                   E  
         Ĵ                                               Ĵ
           D                                                   D  
         Ĵ                                               Ĵ
           C                  CONMINĴ  C  
         Ĵ                                              Ĵ
           B                                                  -  
         Ĵ                                              Ĵ
           A                                  -  
          BUFFER 
          .19                                             .19

          ⪠   㭪 -    , ࠭騥
         न x  y   窨. (⪨ F,G,H  
         㦨 .B,  ⪠ I -  㦨 C).

              ணࠬ  ६  BUFFER  ᮤন  䨧᪮
          ࠭ .  䨪஢. ६ CONMIN -  -
          ࠭ .   न ।  -
+                                 - 176 -

         㦨 窨.  ࠭ - . ६ CONMAX -
           ࠭  .     न 祪,
         ᥤ  㦨   , ᫨   祭.
          ࠭ ⠪  ( ).    ࠭
          㪠뢠  XXXX.     ᠬ   -
          57779   57870.   ⭮  ਬ, ᬮ७ ,
            㦥    ப  DATA (  뫨 易 
          -,    뫮   ஫  㬬)
          ,      室  1000 ⮢,  稭 
          57900.    ࠧ न 500 ᥫ 
         ࠭,  筮  ,  ணࠬ ࠡ⠥ ⠪, 
           ࠭  "⠥"  䨧᪮ -
          ࠭ ,   ⠭    ࠭-
         .  ᤥ ,  ᪮  ⮬ ६   
          㦥 饭    ࠭  諠   (
         ந室   ப 57879).     ந室    
         ࠭    "⠥"     孥  ࠭   
         (57788).  ࠧ,   ࠡ⠥  ⢥  
         ࠭祭  横᪨.

               ࠡ ணࠬ  㯨,    ⮣
            ⠭    몫祭  ᥫ.   ⮬
         砥      ᢥ  ⠭ 㯠 न 
         CONMAX ⠭ ,     ६ ᭨  न 
         த ᭨   ᪮  CONMIN ⨣  CONMAX,   
          ᨣ  ࠡ (57793-57803).

              ணࠬ  ࠡ⠥  쬠     쭮 ⭮.
         ,     ᥬ  ࠢ.
            ࠭ ࠭ - ஭栥   ,
          ࠢ        ࠡ "  ⮬".
         ,  ᫨    諮    ࠢ   ࠭,  
         த ᫥  .

                    10 REM *** 稪 設 
                    20 LET adr=57700: LET long=190: LET z=0
                    30 FOR i=0 TO long-1: READ a
                    40 POKE (adr+i),a: LET z=z+a
+                                 - 177 -

                    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,  44
                    540 DATA 226, 237,  83,  42, 226
                    550 DATA  33,  44, 226, 229,  35
                    560 DATA  35,  34,  40, 226, 225
                    570 DATA  34,  38, 226,  42,  38
                    580 DATA 226,  94,  35,  86,  21
                    590 DATA 205, 207, 225,  42,  38
                    600 DATA 226,  94,  28,  35,  86

                    610 DATA 205, 207, 225,  42,  38
                    620 DATA 226,  94,  35,  86,  20
                    630 DATA 205, 207, 225,  42,  38
                    640 DATA 226,  94,  29,  35,  86
                    650 DATA 205, 207, 225,  42,  38
                    660 DATA 226,  35,  35, 229,   1
                    670 DATA  76, 229, 167, 237,  66
                    680 DATA  32,   5, 225,  33,  44
                    690 DATA 226, 229, 225,  34,  38
                    700 DATA 226, 237,  75,  40, 226

                    710 DATA 167, 237,  66, 200, 195
                    720 DATA 133, 225, 237,  83,  42
                    730 DATA 226,  62, 175, 147, 216
                    740 DATA  95, 167,  31,  55,  31
                    750 DATA 167,  31, 171, 230, 248
                    760 DATA 171, 103, 122,   7,   7
                    770 DATA   7, 171, 230, 199, 171
                    780 DATA   7,   7, 111, 122, 230
                    790 DATA   7,  71,   4,  62, 254
                    800 DATA  15,  16, 253,   6, 255
+                                 - 178 -

                    810 DATA 168,  71, 126, 160, 192
                    820 DATA 126, 176, 119,  42,  40
                    830 DATA 226, 237,  91,  42, 226
                    840 DATA 115,  35, 114,  35, 229
                    850 DATA   1,  76, 229, 167, 237
                    860 DATA  66,  32,   5, 225,  33
                    870 DATA  44, 226, 229, 225,  34
                    880 DATA  40, 226, 201, 193, 195
                    890 DATA  57,   0,   0,   0,   0

                          ᥬ ணࠬ:
         57700   2A0B5C        LD HL,(5C0BH)  ;. . 109...111
         57703   010400        LD BC,0004     ;  DEFADD  4 -
         57706       09        ADD HL,BC      ; (. c.109...111).
         57707       56        LD D,(HL)      ;न x.
         57708     0E08        LD C,08        ; 
         57710       09        ADD HL,BC      ;ᥬ ⮢.
         57711       5E        LD E,(HL)      ;न y.
         57712 ED532CE2        LD(BUFFER),DE  ; x,y.
         57716 ED532AE2        LD(TEMPXY),DE  ; x,y.
         57720   212CE2        LD HL,E22C     ;   -
                                              ; .
         57723       E5        PUSH HL        ;   ⥪.
         57724       23        INC HL         ;樠 孥
         57725       23        INC HL         ;࠭
         57726   2228E2        LD(CONMAX),HL  ;.
         57729       E1        POP HL         ;⠭  -
         57730   2226E2        LD(CONMIN),HL  ;   ⠢ 
                                              ;  ࠭ -
                                              ;.
         57733   2A26E2 MAIN_L LD HL,(CONMIN) ;-㪠⥫  ⥪-
                                              ; न.
         57736       5E        LD E,(HL)      ;ਭ﫨 y.
         57737       23        INC HL         ;室  x.
         57738       56        LD D,(HL)      ;ਭ﫨 x.
         57739       15        DEC D          ;x-1.
         57740   CDCFE1        CALL PLOT      ;஢塞  ᫥
                                              ;(x-1),y.
+                                 - 179 -

         57743   2A26E2        LD HL,(CONMIN) ;-㪠⥫  ⥪-
                                              ; न.
         57746       5E        LD E,(HL)      ;ਭ﫨 y.
         57747       1C        INC E          ;y+1.
         57748       23        INC HL         ;室  x.
         57749       56        LD D,(HL)      ;ਭ﫨 x.
         57752   CDCFE1        CALL PLOT      ;஢塞  
                                              ;x,(y+1).

         57755   2A26E2        LD HL,(CONMIN) ;-㪠⥫  ⥪-
                                              ; न.
         57756       5E        LD E,(HL)      ;ਭ﫨 y.
         57757       23        INC HL         ;室  x.
         57758       56        LD D,(HL)      ;ਭ﫨 x.
         57759       14        INC D          ;x+1.
         57760   CDCFE1        CALL PLOT      ;஢塞  ࠢ
                                              ;x+1,y.

         57763   2A26E2        LD HL,(CONMIN) ;-㪠⥫  ⥪-
                                              ; न.
         57766       5E        LD E,(HL)      ;ਭ﫨 y.
         57767       1D        DEC E          ;y-1
         57768       23        INC HL         ;室  x.
         57769       56        LD D,(HL)      ;ਭ﫨 x.
         57772   CDCFE1        CALL PLOT      ;஢塞  
                                              ;x,y-1.
         57775   2A26E2        LD HL,(CONMIN) ;-㪠⥫  ⥪-
                                              ; न.
         57776       23        INC HL         ;室  ᫥饩 -
         57777       23        INC HL         ;樨 .
         57778       E5        PUSH HL        ;   ⥪.
         57779   01????        LD BC XXXX     ;XXXX - । c,
                                              ; ண  ࠧ-
                                              ;  -  
                                              ; ᠬ.
         57782       A7        AND A          ; 䫠 ॣ F.
         57783     ED42        SBC HL,BC      ;஢ઠ  ९
                                              ;.
+                                 - 180 -

         57785     2005        JR NZ PASS     ;室, ᫨   
                                              ;९.
         57787       E1        POP HL         ;⪠ ⥪.
         57788   212CE2        LD HL,BUFFER   ; ࠭ 
                                              ;⠢  
                                              ;࠭ .
         57791       E5        PUSH HL        ;   ⥪.
         57792       E1 PASS   POP HL         ; ࠭ .
         57793   2226E2        LD(CONMIN),HL  ;   ६
         57796 ED4B28E2        LD BC,(CONMAX) ;設 .
         57800       A7        AND A          ; 䫠.
         57801     ED42        SBC HL,BC      ;஢ઠ  ⨣ 
                                              ; ࠭ 
                                              ;.
         57803       C8        RET Z          ;᫨ ,   ࠡ.

         57804   C385E1        JP MAIN_L      ;  設 -
                                              ; 横.

              ணࠬ PLOT 믮   . -,  
         न⠬ 窨, ⠢  ॣ஢  DE ।-
            ᯫ 䠩, ᮮ⢥騩 ⮩ 窥  (57807
         - 57837).  樨  ᮢ襭 ⠪ ,    -
         楤 FN f()  FN g()    㦥 ࠧࠫ.

                - ஢ઠ  祭  㦥 ᥫ, 騩
          न  ᫨ ,   (57852 - 57854).

                - ᫨ ᥫ  祭,     -
          (57855 - 57857).

              ⢥  - 稢 ᥫ,   न-
           設   ६ 㪠⥫ CONMAX   ᫥-
          .

         57807 ED532AE2 PLOT   LD (TEMPXY),DE ;騥 न x,y
         57811     3EAF        LD A,0AFH      ;AFH=175 DEC

+                                 - 181 -

         57813       93        SUB E          ;஢ઠ  室  -
         57814       D8        RET C          ; ࠭  ⨪.
         57815       5F        LD E,A         ; y  175
         57816       A7        AND A          ; 䫠 ७.
         57817       1F        RRA            ; ࠢ.
         57818       37        SCF            ;⠭ 䫠 ७.
         57819       1F        RRA            ; ࠢ.
         57820       37        SCF            ;⠭ 䫠 ७.
         57821       1F        RRA            ; ࠢ.
         57822       AB        XOR E          ;᭠
         57823     E6F8        AND 0F8H       ; 饭
         57825       AB        XOR E          ;⮢ 0, 1  2.
         57826       67        LD H,A         ;ନ஢ 訩 
                                              ;  ᯫ 䠩
         57827       7A        LD A,D         ;न x.
         57828       07        RLCA           ;饭 .
         57829       07        RLCA           ;饭 .
         57830       07        RLCA           ;饭 .
         57831       AB        XOR A          ; 饭
         57832     E6C7        AND C7         ; ⮢ 3,4,5.
         57834       AB        XOR A
         57835       07        RLCA           ;饭 .
         57836       07        RLCA           ;饭 .
         57837       6F        LD L,A         ;ନ஢ 訩 
                                              ;  ᯫ 䠩
         57838       7A        LD A,D         ;न x.
         57839     E607        AND 07         ;᪨஢.
         57841       47        LD B,A         ;樠 稪
         57842       04        INC B          ;⮢  ॣ B.
         57843     3EFE        LD A,0FEH      ; FE=254 ᥭ
                                              ;⥬,   , -
                                              ; , ࠢ -
                                              ;.   "" 
                                              ; 頥,   
                                              ;⠭  ᢮ .
         57845       0F AGAIN  RRCA           ;饭 .
         57846     10FD        DJNZ AGAIN     ; 饭.
         57848     06FF        LD B,0FFH      ;, ⮡ 
+                                 - 182 -

         57850       A8        XOR B          ;窨 뫠   -
                                              ;,   .
