
           110 RANDOMIZE FN c(4,10,1,14,0,0,0)
           120 RANDOMIZE FN c(16,0,1,24,0,0,0)
           130 RANDOMIZE FN c(24,0,1,24,0,0,0)
           140 RANDOMIZE FN c(0,9,32,1,0,0,0)
           150 RANDOMIZE FN c(0,17,32,1,0,0,0)
           160 RANDOMIZE FN c(14,3,18,1,0,0,0)
           170 RANDOMIZE FN c(0,0,16,9,4,1,0)
           180 RANDOMIZE FN c(5,18,11,6,6,1,0)
           190 RANDOMIZE FN c(25,0,7,9,2,1,0)
           195 RANDOMIZE FN c(17,10,7,7,1,1,0): PAUSE 0

+                                 - 124 -

                          ᥬ ணࠬ:

         62600   2A0B5C        LD HL,(5C0BH)  ;. .109...111.
         62603   010400        LD BC,0004     ;  DEFADD  4 -
         62606       09        ADD HL,BC      ; (. c.109...111 ).
         62607       56        LD D,(HL)      ;न x.
         62608   010800        LD BC,0008     ;  DEFADD   8
         62611       09        ADD HL,BC      ;⮢ (.c.109...111).
         62612       5E        LD E,(HL)      ;न y.
         62613 ED5316F5        LD(COORD),DE   ;ॡ᪠ ࠬ஢ y
                                              ; x   62742,62743.
         62617       09        ADD HL,BC      ; ᤢ  8 ⮢.
         62618       56        LD D,HL        ;ਭ .
         62619       09        ADD HL,BC      ; ᤢ  8 ⮢.
         62620       5E        LD E,(HL)      ; .
         62621 ED5314F5        LD(PARAM),DE   ;ॡ᪠ ࠬ஢ v
                                              ; h   62740,62741.
         62625       09        ADD HL,BC      ;ࠬ PAPER 饭 
         62626       7E        LD A,(HL)      ;      00000???
         62627     E607        AND 07         ;뤥 PAPER. 00000???
         62629     CB27        SLA A          ; .     0000???0
         62631     CB27        SLA A          ; .     000???00
         62633     CB27        SLA A          ; .     00???000
         62635   3213F5        LD (PAPER),A   ;
         62638       09        ADD HL,BC      ;ࠬ (BRIGHT)
         62639       7E        LD A,(HL)      ;ਭ,
         62640     E601        AND 01         ;뤥,
         62642     2808        JR Z,SKIP_1    ;, ᫨  ࠢ ,
         62644   3A13F5        LD A,(PAPER)   ;  ࠬ PAPER
         62647     F640        OR 40          ;砥 6- 
         62649   3213F5        LD (PAPER),A   ; PAPER ࠭.
         62652       09 SKIP_1 ADD HL,BC      ;ࠬ (FLASH)
         62653       7E        LD A,(HL)      ;ਭ,
         62654     E601        AND 01         ;뤥,
         62656     2808        JR Z,SKIP_2    ;, ᫨  ࠢ ,
         62658   3A13F5        LD A,(PAPER)   ;  ࠬ PAPER
         62661     F680        OR 80          ;砥 7- 
         62663   3213F5        LD (PAPER),A   ; PAPER ࠭.
+                                 - 125 -

         62666 ED5B16F5 SKIP_2 LD DE,(COORD)  ;न x,y.
         62670   3A14F5        LD A,(F514)    ;  (v).
         62673     FE00        CP 00          ;஢ઠ   .
         62675       C8        RET Z          ;室, ᫨ ⠪
         62676   3A15F5        LD A,(F515)    ;ਭ  (h).
         62679     FE00        CP OO          ;஢ઠ ਭ  .
         62681       C8        RET Z          ;室, ᫨ ⠪
         62682 ED5322F5        LD (COORD),DE  ;न y,x.
         62686       7B        LD A,E         
         62687     E618        AND 18          । 
         62689     CB3F        SRL A            न⠬.
         62691     CB3F        SRL A          
         62693     CB3F        SRL A          
         62695     F658        OR 58          
         62697       67        LD H,A         
         62698       7B        LD A,E         
         62699     E607        AND 07         
         62701       B7        OR A           
         62702       1F        RRA            
         62703       1F        RRA            
         62704       1F        RRA            
         62705       1F        RRA            
         62706       82        ADD A,D        
         62707       6F        LD L,A         
         62708   3A14F5        LD A,(F514)    ;ࠬ v
         62711       47        LD B,A         ;⠭ ࠬ஬
         62712       C5 LOOP_V PUSH BC        ;横  ࠭ 
         62713       E5        PUSH HL        ;⥪   ᮬ.
         62714   3A15F5        LD A,(F515)    ;ࠬ h ⠭
         62717       47        LD B,A         ;ࠬ஬ 横.
         62718       7E LOOP_H LD A,(HL)      ;﫨  ࠭ ਡ
                                              ;.
         62719     E607        AND 07         ;⠢ 祭묨
                                              ;⮫쪮 , ⢥騥
                                              ; 梥 INK.
         62721       4F        LD C,A         ;६   "".
         62722   3A13F5        LD A,(PAPER)   ;ࠬ c,b,f.
         62725       B1        OR C           ;   INK.
+                                 - 126 -

         62726       77        LD (HL),A      ; ਡ 
                                              ;.
         62727       23        INC HL         ;饥 .
         62728     10F4        DJNZ LOOP_H    ; 横  ਧ-
                                              ;⠫.
         62730       E1        POP HL         ; 砫 鸞.
         62731   012000        LD BC,0020     ;室 
         62734       09        ADD HL,BC      ;᫥騩 .
         62735       C1        POP BC         ;ࠬ 横  v.
         62736     10E6        DJNZ LOOP_V    ; 横  v.
         62738       C9        RET            ;室.
         62739       00 PAPER  DEFB 00        ;ਡ PAPER, BRIGHT,
                                              ;FLASH.
         62740     0000 PARAM  DEFW 0000      ;ࠬ v  h.
         62742     0000 COORD  DEFW 0000      ;ࠬ y  x.



                     3.5. ⠡ 㢥祭 ⥪.
                              ਧ⠫.

               ࠧ஢  ᨬ   "㬥"    ᢮
         ᭮ 祭   ਭ樯. ।⠢,   ᨬ 饭
           88  ᥫ.    ७     1616
         ணࠬ      祭   ᥫ       
           ᥫ  ਧ⠫    ⨪.

              ਢ    ணࠬ  ᯮ    室 
         ⮣,  ⮡  ࠧ  ᨬ    ࠧ 
         ᨬ ப. 楤  FN d(x,y) 믮  ⥪
          ਧ⠫ ᨬ  ਭ   . 
         x  y  砫쭮    ⥪.
              楤 FN d(x,y)    220 ⮢.    ⮩
         楤 ⢮  ᪮쪮  ⮢  ࠧ饭   
         ணࠬ ६.  ࠫ  ⮩ 楤 砫
         ᮬ 62200,  , 稭   62500  62599  뤥-
            ⢥ ,   ஬  ࠭ ⥪  ᮮ饭,
         饣 .  ࠭     ᫥⥫-
+                                 - 127 -

          ᨬ   ࠢ  㤠     ।⢥
         ᨬ쭮 ६ n$.

                    10 REM *** 稪 設 
                    20 LET adr=62200: LET long=220: 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
                    90 REM *** ਬ ᯮ짮 楤
                   100 DEF FN d(x,y)=USR 62200
                   110 BORDER 1: PAPER 6: INK 1: CLS
                   120 FOR i=0 TO 13
                   130 DRAW 255,0: DRAW 0,6
                   140 DRAW -255,0: DRAW 0,6
                   150 NEXT i
                   160 DRAW 255,0
                   170 LET n$="SPECTRUM"
                   180 GO SUB 230
                   190 FOR m=1 TO 22 STEP 4
                   200 RANDOMIZE FN d(x,y)
                   210 NEXT m
                   220 PAUSE 0
                   230 LET t=LEN(n$)
                   240 LET k=62499
                   250 FOR i=1 TO t
                   260 LET n=CODE n$(i)
                   270 POKE k+i,n
                   280 NEXT i
                   290 POKE k+i,13
                   299 RETURN

                   300 REM ***   設 
                   310 DATA  42,  11,  92,   1,   4
                   320 DATA   0,   9,  86,   1,   8
                   330 DATA   0,   9,  94, 237,  83
+                                 - 128 -

                   340 DATA 240, 243,  62,  99,  71
                   350 DATA  33,  36, 244,  34, 244
                   360 DATA 243, 197, 237,  91, 240
                   370 DATA 243,  62,  30, 186, 242
                   380 DATA  37, 243,  22,   0,  28
                   390 DATA  28, 237,  83, 240, 243
                   400 DATA  62,  20, 187, 250, 111

                   410 DATA 243,  42, 244, 243, 126
                   420 DATA  35,  34, 244, 243, 254
                   430 DATA  31, 250, 111, 243, 254
                   440 DATA 144, 242, 111, 243, 214
                   450 DATA  32,   1,   8,   0,  42
                   460 DATA  54,  92,  36,   9,  61
                   470 DATA  32, 252,  34, 242, 243
                   480 DATA 123, 230,  24, 246,  64
                   490 DATA 103, 123, 230,   7, 183
                   500 DATA  31,  31,  31,  31, 130

                   510 DATA 111,  34, 238, 243, 205
                   520 DATA 113, 243,  58, 241, 243
                   530 DATA  60,  60,  50, 241, 243
                   540 DATA 193,  16, 164, 201, 193
                   550 DATA 201,  17, 206, 243,   6
                   560 DATA  32,  62,   0,  18,  19
                   570 DATA  16, 252, 237,  91, 242
                   580 DATA 243,  33, 206, 243,   6
                   590 DATA   8, 197,  26,   1,   2
                   600 DATA   4, 197,  23, 245, 203

                   610 DATA  22, 241, 203,  22,  16
                   620 DATA 247,  35, 193,  13,  32
                   630 DATA 241,  43, 126, 245,  43
                   640 DATA 126,  35,  35, 119,  35
                   650 DATA 241, 119,  35,  19, 193
                   660 DATA  16, 220,  42, 238, 243
                   670 DATA  17, 206, 243,  14,   2
                   680 DATA 229,   6,   8,  26, 119
+                                 - 129 -

                   690 DATA  35,  19,  26, 119,  19
                   700 DATA  43,  36,  16, 245, 225
                   710 DATA  62,  32, 133, 111,  48
                   720 DATA   4,  62,   8, 132, 103
                   730 DATA  13,  32, 228, 201,   0
                   740 DATA   0,   0,   0,   0,   0

                          ᥬ ணࠬ:

         62200   2A0B5C        LD HL,(5C0BH)  ;. .109...111.
         62203   010400        LD BC,0004     ;  DEFADD  4 -
         62206       09        ADD HL,BC      ; (. c.109...111).
         62207       56        LD D,(HL)      ;न x.
         62208   010800        LD BC,0008     ;  DEFADD   8
         62211       09        ADD HL,BC      ;⮢ (.c.109...111).
         62212       5E        LD E,(HL)      ;न y.
         62213 ED53F0F3        LD(COOR_Y),DE  ;ॡ᪠ ࠬ஢ y
                                              ; x   62448,62449
         62217     3E63        LD A,63        ;63H=99DEC - ⢮
                                              ;ᨬ  ᮮ饭.
         62219       47        LD B,A         ;稪 ᨬ.
         62220   2124F4        LD HL,F424     ;F424H=62500DEC- 砫-
                                              ;  ᮮ饭.
         62223   22F4F3        LD (POINT),HL  ;  62452 ᮧ
                                              ;६-㪠⥫ 
                                              ; ⠥ ᨬ
         62226       C5 LOOP_M PUSH BC        ;࠭ 稪 
                                              ;⥪.
         62227 ED5BF0F3        LD DE,(COOR_Y) ;न y,x.
         62231     3E1E        LD A,1E        ;।  x=31.
         62233       BA        CP D           ;ࠢ x  31.
         62234   F225F3        JP P,SKIP_1    ;᫨  O.K. - 室
                                              ; SKIP_1,  -
         62237     1600        LD D,00        ; x  㢥稢  2
         62239       1C        INC E          ;祭 y, .. -
         62240       1C        INC E          ;   ப.
         62241 ED53F0F3        LD(COOR_Y),DE  ; ⥪ -
                                              ; 樨 .
+                                 - 130 -

         62245     3E14 SKIP_1 LD A,14        ;஢ઠ
         62247       BB        CP E           ; y < 21.
         62248   FA6FF3        JP M,EXIT      ;᫨ y>=21 - 室.
         62251   2AF4F3        LD HL,(POINT)  ; ᨬ, -
                                              ;饣 .
         62254       7E        LD A,(HL)      ;﫨  ᨬ,
         62255       23        INC HL         ;⨫ ᫥騩
         62256   22F4F3        LD (POINT),HL  ; ।㫨 㪠⥫.
         62259     FE1F        CP 1F          ;᫨  ᨬ 
         62261   FA6FF3        JP M,EXIT      ;32   143,
         62264     FE90        CP 90          ;믮 室 १
         62266   F26FF3        JP P,EXIT      ; EXIT.
         62269     D620        SUB 20         ;  ᨬ -
                                              ; 32.
         62271   010800        LD BC,0008     ;  ᨬ 室-
                                              ; 8 ⮢.
         62274   2A365C        LD HL,(5C36)   ; = 23606 -  ⥬-
                                              ; ६ CHARS (.
                                              ;.65).
         62277       24        INC H          ; HL 㪠뢠 筮
                                              ;  ᨬ ⥬-
                                              ; .
         62278       09 LOOP_C ADD HL,BC      ;  ன ᨬ 
                                              ;.,
         62279       3D        DEC A          ;   -
         62280     20FC        JR NZ,LOOP_C   ; 0, HL 㪠 筮 
                                              ;㦭  ᨬ, ࠢ
                                              ;⮬,    
                                              ; 㪠뢠 㪠-
                                              ;⥫ POINT.
         62282   22F2F3        LD (CH_ADD),HL ;  砫 
                                              ;蠡   .
         62285       7B        LD A,E         ;
         62286     E618        AND 18         ;   
         62288     F640        OR 40          ; न⠬.
         62290       67        LD H,A         ;
         62291       7B        LD A,E         ;
         62292     E607        AND 07         ;
+                                 - 131 -

         62294       B7        OR A           ;
         62295       1F        RRA            ;
         62296       1F        RRA            ;
         62297       1F        RRA            ;
         62298       1F        RRA            ;
         62299       82        ADD A,D        ;
         62300       6F        LD L,A         ;
         62301   22EEF3        LD(ROWCOL),A   ; ६
                                              ;ᮤন   ᯫ-
                                              ; 䠩, ᮮ⢥-
                                              ;騩 砫쭮  -
                                              ;ࠦ ᨬ.
         62304   CD71F3        CALL DOUBL     ;맮 ணࠬ, -
                                              ;饩 ।⢥
                                              ; ᨬ 
                                              ;ਭ  .
         62307   3AF1F3        LD A,(COOR_X)  ;稢  2
         62310       3C        INC A          ;㪠⥫ न
         62311       3C        INC A          ; ਧ⠫
         62312   32F1F3        LD (COOR_X),A  ;   
                                              ; .
         62315       C1        POP BC         ;⠭ 稪
                                              ;ᨬ.
         62316     10A4        DJNZ, LOOP_M   ;᫨   ᨬ -
                                              ;⠭, .
         62318       C9        RET            ;ࠫ 室 
                                              ;楤.
         62319       C1 EXIT   POP BC         ;। ਩ 室
                                              ;頥 ⥪.
         62320       C9        RET            ;਩ 室, ᫨
                                              ;ࠬ y   ᪥
                                              ; ᨬ - .

                             楤 DOUBLE.

              ᫨    諨 ⮢⥫ 樨,  ᠬ  -
          㤢  ࠦ ᨬ  ॠ    ⮩
         楤 (   DOUBLE). ᭮ ਭ樯 ⢨  
+                                 - 132 -

         ⮨  ⮬,   ᨬ ᮮ⢥  쬨
         蠡   -    㪠뢠  ॣ஢ DE.  ப 
         ப 蠡 (  ⮬)   ᪮஢  -
         .    ६,  ⨢  ᮧ  ६-
          ࠡ稩  ࠧ஬ 32   㤢 ᨬ.  
         砫  ⮣    㪠뢠  ॣ஢    HL. 
          ᢮  ⮬, ⮡   ⮬ (ᥫ  ᥫ)
         ७  㭮      A    (HL),  ⮬
          ᥫ  ()   A   ᮮ⢥⢮    
         .
                ᤥ ਣ ਥ    権
         RLA    RL  (HL).  祬      RLA 室 
         樨 RL (HL). ,     ⨬ ﬨ   襩
           "  蠣    設  ",  ,    
         ᬥ .   ⮬  訩 (ᥤ쬮)   㯠  
         䫠  C  ॣ  F,    ,    ⠬  뫮  । 樥,
         ࠢ    㫥  .    ࠧ,  १  䫠  C
         ந室 ஢  㤢    .
         ⮡  ६ 樨 RL (HL)  ᪠ ᮤন 䫠
         C, ਭ⮥  ,    ⥪ PUSH AF
          ⠭,   襭 - POP AF.

                            ᬮਬ ਬ:

                       C               
           室:     0         10101010          00000000
                                   1
           RLA          1         01010100          00000000
           PUSH AF      1         01010100          00000000
           RL (HL)      0         01010100          00000001
           POP AF       1         01010100          00000001
           RL (HL)      0         01010100          00000011
                                   2
           RLA          0         10101000          00000011
           PUSH AF      0         10101000          00000011
           RL (HL)      0         10101000          00000110
           POP AF       0         10101000          00000110
           RL (HL)      0         10101000          00001100
+                                 - 133 -

                                   3
           RLA          1         01010000          00001100
           PUSH AF      1         01010000          00001100
           RL (HL)      0         01010000          00011001
           POP AF       1         01010000          00011001
           RL (HL)      0         01010000          00110011

            ⠪  ....
               ,   蠣  筮, ⮡  ᪮஢
         - 蠡    .   蠣 -  
         ப 蠡 㤥 ᮮ⢥⢮ 塠⭠   .

               ᬮਬ ᠬ 楤 DOUBLE.

         62321   11CEF3 DOUBL  LD DE,BUFFER   ; 62414.
         62324     0620        LD B,20        ;稪 横 = 32.
         62326     3E00        LD A,00        ;
         62328       12 LOOP_H LD (DE),A      ;, 騩
         62329       13        INC DE         ;.
         62330     10FC        DJNZ FC LOOP_H ; 横.
         62332 ED5BF2F3        LD DE,(CH_ADD) ;DE 㪠뢠  蠡
                                              ;⥪饣 ⠥
                                              ;ᨬ.
         62336   21CEF3        LD HL,BUFFER   ;HL 㪠뢠  砫
                                              ;.
         62339     0608        LD B,08        ;稪  8.
         62341       C5 LOOP_X PUSH BC        ;   ⥪.
         62342       1A        LD A,(DE)      ;ਭ﫨  蠡
                                              ;⥪饣 ᨬ.
         62343   010204        LD BC,0402     ;࣠  稪
                                              ;-  2 蠣  ॣ C
                                              ;  4 蠣 -  B.
         62346       C5 AGAIN  PUSH BC        ;   ⥪.
         62347       17 LOOP_S RLA            ;ਭ﫨  
                                              ; 䫠 C.
         62348       F5        PUSH AF        ; 䫠 C.
         62349     CB16        RL (HL)        ;ਭ﫨    䫠-
                                              ; C -  .
+                                 - 134 -

         62351       F1        POP AF         ;⠭ 䫠 C
         62352     CB16        RL (HL)        ; ਭ﫨   ࠧ.
         62354     10F7        DJNZ LOOP_S    ;  砫 横,
                                              ;  ᤥ 4 -
                                              ;室   -
                                              ;   .
         62356       23        INC HL         ;諨  2- 
                                              ;.
         62357       C1        POP BC         ;  ॣ B -
                                              ; 稪  4 -
                                              ;室,
         62358       0D        DEC C          ; 㬥訫 稪  C.
         62359     20F1        JR NZ,AGAIN    ;, ᫨ ன 
                                              ;   .

               ⮬      㤢  ப 蠡  
         ਧ⠫   8 ⮢    ᮮ⢥騥  
         16  ⮢  (2  ).        㤢   ப  
         ⨪. ⮬  ⨩  ⢥    塞
          ࢮ  ண.

         62361       2B        DEC HL         ;頥  ஬
                                              ; .
         62362       7E        LD A,(HL)      ;﫨   
         62363       F5        PUSH AF        ;   ⥪.
         62364       2B        DEC HL         ;頥  1-
                                              ; .
         62365       7E        LD A,(HL)      ;﫨   .
         62366       23        INC HL         ;室  2- .
         62367       23        INC HL         ;室  3- .
         62368       77        LD (HL),A      ;஢ 1- 
                                              ; ⨩.
         62369       23        INC HL         ;室  4- .
         62370       F1        POP AF         ;⠭ 2-
                                              ;.
         62371       77        LD (HL),A      ;஢  
                                              ;⢥ .

+                                 - 135 -

              ⠪,  ᪮஢  ப 蠡 ᨬ   
          .      8 ப   ᨬ    ⮦ 
         ⠪  ᪮஢.

         62372       23        INC HL         ;室  ।
                                              ; .
         62373       13        INC DE         ;室  ।
                                              ;ப 蠡.
         62374       C1        POP BC         ;⠭ -
                                              ;稪 ப 蠡.
         62375     10DC        DJNZ LOOP_X    ;᫨   ப 
                                              ;ࠡ⠭,  .

              ⠪,  ᪮஢  8 ப 蠡  32-  -
         .    ⠫  ६    ࠦ 㤢
         ᨬ   ࠭,      ᪮஢     
         ᯫ 䠩 ( ⮬  न 樨 ).   
          筮  ਢ쭠. ஢   HL  
         㪠⥫    ᯫ 䠩,  DE - 㪠뢠  
            . ࣠  稪 横   C  = 2  鸞
         ࠭  ७  B = 8   ᥫ  .  -
           - 室  ᫥  ࢮ 鸞  ஢-
            ந襫   室 १  ࠭ ⥪饣 ᥣ
         ࠭    ᮮ⢥⢥  ॠ஢  ᮤন
         㪠⥫  HL.

         62377   2AEEF3        LD HL,(ROWCOL)  ;  ࠭ 䠩.
         62380   11CEF3        LD DE,BUFFER    ; .
         62383     0E02        LD C,02         ;稪 冷 ࠭.
         62385       E5 LOOP_F PUSH HL
         62386     0608        LD B,08         ;稪   .
         62388       1A LOOP_Y LD A,(DE)       ;ॡ᪠  
         62389       77        LD (HL),A       ;  ࠭ (-
                                               ;⭮).
         62390       23        INC HL          ; ࠢ.
         62391       13        INC DE
         62392       1A        LD A,(DE)       ;ॡ᪠ ⭮ 
         62393       77        LD (HL),A       ;   ࠭.
+                                 - 136 -

         62394       13        INC DE
         62395       2B        DEC HL          ;  
                                               ;.
         62396       24        INC H           ;室  ᫥饩
                                               ;.
         62397     10F5        DJNZ LOOP_Y     ;  8  .
         62399       E1        POP HL
         62400     3E20        LD A,20         ;室  ᫥饬
         62402       85        ADD A,L         ; 
         62403       6F        LD L,A          ; ࠭.
         62404     3004        JR NC,SKIP_4    ;஢ઠ  諨 
                                               ; ࠭ ⥪饣 -
                                               ;࠭ ᥣ.
         62406     3E08        LD A,08         ;᫨ ,  室
         62408       84        ADD A,H         ; ᫥饬 ᥣ
         62409       67        LD H,A          ;㢥祭 H  8.
         62410       0D SKIP_4 DEC C
         62411     20E4        JR NZ,LOOP_F    ;  2- 冷.
         62413       C9        RET             ;  뢠
                                                楤.

         62414      BUFFER     DEFM
         62446      ROWCOL     DEFW
         62448      COOR_Y     DEFB
         62449      COOR_X     DEFB
         62450      CH_ADD     DEFW
         62452      POINT      DEFW
         62500      MESSAG     DEFL










+                                 - 137 -

                     3.6. ⠡ 㢥祭 ⥪.
                              ⨪.

               ணࠬ ࠡ⠥ ਬ୮ ⠪ ,    ।,
             ᮮ饭  믮    ⨪. 筮 ⠪
          ॡ     ⥪⮢ ᮮ饭,
         饥 뤠  ࠭.  믮  ப 220...290
         樮 -ணࠬ.

                ணࠬ - FN e (x,y).  x,y - न
         室 樨 .  ᥩ ணࠬ - 215 ⮢, -
         砫  - 61900.

              ᪮ ᨬ  㤢 ࠧ,    ࠭
         㪫뢠  ⮫쪮 12 ᨬ. ணࠬ   -
          ७ ⥪ , ᫨    ᮮ饭  
         ,    뢠 ᪮쪮 ࠧ. ᫨  襬  ᮮ-
         饭 ᯮ ஡,    ⠢  -
          ᨬ, 室騩   "8". 樮  ண-
         ࠬ ᯮ   ᢮  ࠡ ⠪   ࠭  ᬮ७
          ணࠬ  FN c  (x,y,h,v,c,b,f)   梥⮢ ଫ
         ࠭ ।  ⥪.

                    10 REM *** 稪 設 
                    20 LET adr=61900: 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
                    90 REM *** ਬ ᯮ짮 楤
                   100 DEF FN c(x,y,h,v,c,b,f)=USR 62600
                   110 DEF FN e(x,y)=USR 61900
                   120 BORDER 1: PAPER 0: INK 0: CLS
                   130 LET n$="Spectrum"
                   140 GO SUB 220

+                                 - 138 -

                   150 LET pap=1
                   160 FOR k=5 TO 25 STEP 4
                   170 RANDOMIZE FN c(k-1,2,4,19,pap,0,0)
                   180 RANDOMIZE FN e(x,3)
                   190 LET pap=pap+1
                   200 NEXT k
                   210 STOP
                   220 LET m=LEN(n$)
                   230 LET s=62499
                   240 FOR k=1 TO m
                   250 LET n=CODE n$ (k)
                   260 POKE s+k,n
                   270 NEXT k
                   280 POKE s+k,13
                   290 RETURN

                   300 REM ***   設 
                   310 DATA  42,  11,  92,   1,   4
                   320 DATA   0,   9,  86,   1,   8
                   330 DATA   0,   9,  94, 237,  83
                   340 DATA 191, 242,  62,  99,  71
                   350 DATA  33,  36, 244,  34, 195
                   360 DATA 242, 197, 237,  91, 191
                   370 DATA 242,  62,  30, 186, 242
                   380 DATA 244, 241, 195,  62, 242
                   390 DATA  62,  20, 187, 250,  62
                   400 DATA 242,  42, 195, 242, 126

                   410 DATA  35,  34, 195, 242, 254
                   420 DATA  31, 250,  62, 242, 254
                   430 DATA 144, 242,  62, 242, 214
                   440 DATA  32,   1,   8,   0,  42
                   450 DATA  54,  92,  36,   9,  61
                   460 DATA  32, 252,  34, 193, 242
                   470 DATA 123, 230,  24, 246,  64
                   480 DATA 103, 123, 230,   7, 183
                   490 DATA  31,  31,  31,  31, 130
                   500 DATA 111,  34, 189, 242, 205
+                                 - 139 -

                   510 DATA  64, 242,  58, 191, 242
                   520 DATA  60,  60,  50, 191, 242
                   530 DATA 193,  16, 169, 201, 193
                   540 DATA 201,  17, 157, 242,   6
                   550 DATA  32,  62,   0,  18,  19
                   560 DATA  16, 252, 237,  91, 193
                   570 DATA 242,  33, 157, 242,   6
                   580 DATA   8, 197,  26,   1,   2
                   590 DATA   4, 197,  23, 245, 203
                   600 DATA  22, 241, 203,  22,  16

                   610 DATA 247,  35, 193,  13,  32
                   620 DATA 241,  43, 126, 245,  43
                   630 DATA 126,  35,  35, 119,  35
                   640 DATA 241, 119,  35,  19, 193
                   650 DATA  16, 220,  42, 189, 242
                   660 DATA  17, 157, 242,  14,   2
                   670 DATA 229,   6,   8,  26, 119
                   680 DATA  35,  19,  26, 119,  19
                   690 DATA  43,  36,  16, 245, 225
                   700 DATA  62,  32, 133, 111,  48

                   710 DATA   4,  62,   8, 132, 103
                   720 DATA  13,  32, 228, 201,   0
                   730 DATA   0,   0,   0,   0,   0

                          ᥬ ணࠬ:
         61900   2A0B5C        LD HL,(5C0BH)  ;. . 109...111.
         61903   010400        LD BC,0004     ;  DEFADD  4 -
         61906       09        ADD HL,BC      ; (. c.109...111).
         61907       56        LD D,(HL)      ;न x.
         61908   010800        LD BC,0008     ;  DEFADD   8
         61911       09        ADD HL,BC      ;⮢ (.c.109...111).
         61912       5E        LD E,(HL)      ;न y.
         61913 ED53BFF2        LD(COOR_Y),DE  ;ॡ᪠ ࠬ஢ y
                                              ; x   62143,62144
         61917     3E63        LD A,63        ;63H=99DEC - ࠧ -
                                              ;  ᮮ饭.
+                                 - 140 -

         61919       47        LD B,A         ;稪 ᨬ.
         61920   2124F4        LD HL,BUFFER   ;F424H=62500DEC- 砫-
                                              ;   ᮮ-
                                              ; (ᯮ  
                                              ;,    ।-
                                              ;饩 ணࠬ).
         61923   22C3F2        LD (POINT),HL  ;  62147 ᮧ
                                              ;६-㪠⥫ 
                                              ; ⠥ ᨬ
         61926       C5 LOOP_M PUSH BC        ;࠭ 稪 
                                              ;⥪.
         61927 ED5BBFF2        LD DE,(COOR_Y) ;न y,x.
         61931     3E1E        LD A,1E        ;।  x=31.
         61933       BA        CP D           ;ࠢ x  31.
         61934   F2F4F1        JP P,SKIP_1    ;᫨  O.K. - 室
                                              ; SKIP_1,
         61937   C33EF2        JP EXIT        ; - ਩ 室.
         61940     3E14 SKIP_1 LD A,14        ;஢ઠ
         61942       BB        CP E           ; y < 21.
         61943   FA3EF2        JP M,EXIT      ;᫨ y>=21 - 室.
         61946   2AC3F2        LD HL,(POINT)  ; ᨬ, -
                                              ;饣 .
         61949       7E        LD A,(HL)      ;﫨  ᨬ,
         61950       23        INC HL         ;⨫ ᫥騩
         61951   22C3F2        LD (POINT),HL  ; ।㫨 㪠⥫.
         61954     FE1F        CP 1F          ;᫨  ᨬ 
         61956   FA3EF2        JP M,EXIT      ;32   143,
         61959     FE90        CP 90          ;믮 室 १
         61961   F23EF2        JP P,EXIT      ; EXIT.
         61964     D620        SUB 20         ;  ᨬ -
                                              ; 32.
         61966   010800        LD BC,0008     ;  ᨬ 室-
                                              ; 8 ⮢.
         61969   2A365C        LD HL,(5C36)   ; = 23606 -  ⥬-
                                              ; ६ CHARS (.
                                              ;. 65).
         61972       24        INC H          ; HL 㪠뢠 筮
                                              ;  ᨬ .
+                                 - 141 -

         61973       09 LOOP_C ADD HL,BC      ;  ன ᨬ 
                                              ;.,
         61974       3D        DEC A          ;   -
         61975     20FC        JR NZ,LOOP_C   ; 0, HL 㪠 筮 
                                              ;㦭  ᨬ, ࠢ
                                              ;⮬,    
                                              ; 㪠뢠 㪠-
                                              ;⥫ POINT.
         61977   22C1F2        LD (CH_ADD),HL ;  砫
                                              ; 蠡   -
                                              ;.
         61980       7B        LD A,E         ;
         61981     E618        AND 18         ;   
         61983     F640        OR 40          ;    न⠬.
         61985       67        LD H,A         ;
         61986       7B        LD A,E         ;
         61987     E607        AND 07         ;
         61989       B7        OR A           ;
         61990       1F        RRA            ;
         61991       1F        RRA            ;
         61992       1F        RRA            ;
         61993       1F        RRA            ;
         61994       82        ADD A,D        ;
         61995       6F        LD L,A         ;
         61996   22BDF2        LD(ROWCOL),HL  ;६  
                                              ;62141  ଠ 
                                              ; 鸞  ⮫ -
                                              ;樨 .
         61999   CD40F2        CALL DOUBL     ;맮 ணࠬ, -
                                              ;饩 ।⢥
                                              ; ᨬ 
                                              ;ਭ  .
         62002   3ABFF2        LD A,(COOR_Y)  ;稢  2
         62005       3C        INC A          ;㪠⥫ न
         62006       3C        INC A          ; ⨪
         62007   32BFF2        LD (COOR_Y),A  ;   -
                                              ; .
         62010       C1        POP BC         ;⠭ 稪.
+                                 - 142 -

         62011     10A9        DJNZ, LOOP_M   ;᫨   ᨬ -
                                              ;⠭, .
         62013       C9        RET            ;ࠫ 室 
                                              ;楤.
         62014       C1 EXIT   POP BC         ;। ਩ 室
                                              ;頥 ⥪.
         62015       C9        RET            ;਩ 室, ᫨
                                              ;ࠬ y   ᪥
                                              ; ᨬ - .

         62016   119DF2 DOUBL  LD DE,BUFFER   ; 62109.
         62019     0620        LD B,20        ;稪 横 = 32.
         62021     3E00        LD A,00        ;
         62023       12 LOOP_H LD (DE),A      ;, 騩
         62024       13        INC DE         ;.
         62025     10FC        DJNZ FC LOOP_H ; 横.
         62027 ED5BC1F2        LD DE,(CH_ADD) ;DE 㪠뢠  蠡
                                              ;⥪饣 ⠥
                                              ;ᨬ.
         62031   219DF2        LD HL,BUFFER   ;HL 㪠뢠  砫
                                              ;.
         62034     0608        LD B,08        ;稪  8.
         62036       C5 LOOP_X PUSH BC        ;   ⥪.
         62037       1A        LD A,(DE)      ;ਭ﫨  蠡
                                              ;⥪饣 ᨬ.
         62038   010204        LD BC,0402     ;࣠  稪
                                              ;-  2 蠣  ॣ C
                                              ;  4 蠣 -  B.
         62041       C5 AGAIN  PUSH BC        ;   ⥪.
         62042       17 LOOP_S RLA            ;ਭ﫨   䫠 C.
         62043       F5        PUSH AF        ; 䫠 C.
         62044     CB16        RL (HL)        ;ਭ﫨    .
         62046       F1        POP AF         ;⠭ 䫠 C
         62047     CB16        RL (HL)        ; ਭ﫨   ࠧ.
         62049     10F7        DJNZ LOOP_S    ;  砫 横,
                                              ;  ᤥ 4 -
                                              ;室   -
                                              ;   .
+                                 - 143 -

         62051       23        INC HL         ;諨  2- 
                                              ;.
         62052       C1        POP BC         ;  ॣ B -
                                              ; 稪  4 -
                                              ;室,
         62053       0D        DEC C          ; 㬥訫 稪  C.
         62054     20F1        JR NZ,AGAIN    ;, ᫨ ன 
                                              ;   .
         62056       2B        DEC HL         ;頥  ஬
                                              ; .
         62057       7E        LD A,(HL)      ;﫨   
         62058       F5        PUSH AF        ;   ⥪.
         62059       2B        DEC HL         ;頥  1-
                                              ; .
         62060       7E        LD A,(HL)      ;﫨   .
         62061       23        INC HL         ;室  2- .
         62062       23        INC HL         ;室  3- .
         62063       77        LD (HL),A      ;஢ 1- 
                                              ; ⨩.
         62064       23        INC HL         ;室  4- .
         62065       F1        POP AF         ;⠭ 2-
                                              ;.
         62066       77        LD (HL),A      ;஢  
                                              ;⢥ .
         62067       23        INC HL         ;室  ।
                                              ; .
         62068       13        INC DE         ;室  ।
                                              ;ப 蠡.
         62069       C1        POP BC         ;⠭ -
                                              ;稪 ப 蠡.
         62070     10DC        DJNZ LOOP_X    ;᫨   ப 
                                              ;ࠡ⠭,  .
         62072   2ABDF2        LD HL,(ROWCOL) ;  ࠭ 䠩.
         62075   119DF2        LD DE,BUFFER   ; .
         62078     0E02        LD C,02        ;稪 冷 ࠭.
         62080       E5 LOOP_F PUSH HL
         62081     0608        LD B,08         ;稪   .
         62083       1A LOOP_Y LD A,(DE)       ;ॡ᪠  
+                                 - 144 -

         62084       77        LD (HL),A       ;  ࠭.
         62085       23        INC HL          ;  
                                               ;ࠢ.
         62086       13        INC DE
         62087       1A        LD A,(DE)       ;ॡ᪠ ⭮ 
         62088       77        LD (HL),A       ;   ࠭.
         62089       13        INC DE
         62090       2B        DEC HL          ;  
                                               ;.
         62091       24        INC H           ;室  ᫥饩
                                               ;.
         62092     10F5        DJNZ LOOP_Y     ;  8  .
         62094       E1        POP HL
         62095     3E20        LD A,20         ;室  ᫥饬
         62097       85        ADD A,L         ; 
         62098       6F        LD L,A          ; ࠭.
         62099     3004        JR NC,SKIP_4    ;஢ઠ  諨 
                                               ; ࠭ ᥣ.
         62101     3E08        LD A,08         ;᫨ ,  室
         62103       84        ADD A,H         ; ᫥饬 ᥣ
         62104       67        LD H,A          ;㢥祭 H  8.
         62105       0D SKIP_4 DEC C
         62106     20E4        JR NZ,LOOP_F    ;  2- 冷.
         62108       C9        RET             ;.

         62109      BUFFER     DEFM
         62141      ROWCOL     DEFW
         62143      COOR_Y     DEFB
         62144      COOR_X     DEFB
         62145      CH_ADD     DEFW
         62147      POINT      DEFW
         62500      MESSAG     DEFL






+                                 - 145 -

                        3.7.  祪  ࠭.

                  㫨஢  ࠭묨 ࠧ, न-
           뫨    ,    ,  
          ⢥ ᯮᮡ.   䨪 ᮪  ࠧ襭 
         ⢥ ᯮᮡ   न  -   ᥫ.   ⮬
         ⠥,  ࠭  256  ᥫ  ਧ⠫ ( 0  
         255)  176  ᥫ  ⨪  ( 0   175).  稭
         䨪 ᮪ ࠧ襭  ਢ離 ࠦ  ᥫ
         -     ࠭ 筮 窨.

              筮,     楤    祪
           न  (. . 85)    뫮    ⮬
             ⠭,   ᪮  ஥ 
            ࠦ    ᢮  ᭮   祪  
         ⮬ ᭮  ୠ 䨪,  祡 楫 室
         ᬮ   ࠡ ⠪  楤    ᪮쪮
         ਬ஢  ਬ.
                  ।  楤  FN  f(x,y).   x
         (0...255) - न ᥫ  ਧ⠫,  y (0...175)  -
          ⨪.   ,   न 뢠-
           ⠪,  न  . 砫쭮  न⮩
         (0,0)     㣮 ࠭  (    孨,
           뫮  ࠭).  ⢥⢥,  ࠢ 孨 㣮 ࠭
           न  (255,175).  ஬  ⮣,   ⠪  
         ,    ਬ    㣫 ࠭ (0,0), 
           ࠣ  ᠬ  ⥬ ப ,
             ,  祬   ப ᭮  ࠭.
         ᪨ न (0,0) 室  .

                    10 REM *** 稪 設 
                    20 LET adr=61500: 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
+                                 - 146 -

                    500 REM ***  設 
                    510 DATA  42,  11,  92,   1,   4
                    520 DATA   0,   9,  86,  14,   8
                    530 DATA   9,  94,  62, 175, 147
                    540 DATA 216,  95, 167,  31,  55
                    550 DATA  31, 167,  31, 171, 230
                    560 DATA 248, 171, 103, 122,   7
                    570 DATA   7,   7, 171, 230, 199
                    580 DATA 171,   7,   7, 111, 122
                    590 DATA 230,   7,  71,   4,  62
                    600 DATA 254,  15,  16, 253,   6
                    610 DATA 255, 168,  71, 126, 176
                    620 DATA 119, 201,   0,   0,   0
                    630 DATA  24,   0,   0,   0,   0

                          ᥬ ணࠬ:

         61500   2A0B5C        LD HL,(5C0BH)  ;. .109...111.
         61503   010400        LD BC,0004     ;  DEFADD  4 -
         61506       09        ADD HL,BC      ; (. c.109...111).
         61507       56        LD D,(HL)      ;न x.
         61508     0E08        LD C,08        ; 
         61510       09        ADD HL,BC      ;ᥬ ⮢.
         61511       5E        LD E,(HL)      
         61512     3EAF        LD A,0AFH          
         61514       93        SUB E            न⠬.
         61515       D8        RET C          
         61516       5F        LD E,A         
         61517       A7        AND A          
         61518       1F        RRA            
         61519       37        SCF            
         61520       1F        RRA            
         61521       A7        AND A          
         61522       1F        RRA            
         61523       AB        XOR E          
         61524     E6F8        AND 0F8H       
         61526       AB        XOR E          
         61527       67        LD H,A         
+                                 - 147 -

         61528       7A        LD A,D         
         61529       07        RLCA           
         61530       07        RLCA           
         61531       07        RLCA           
         61532       AB        XOR E          
         61533     E6C7        AND C7         
         61534       AB        XOR E          
         61536       07        RLCA           
         61537       07        RLCA           
         61538       6F        LD L,A         

                  ᥣ, 鸞, ⮫  . 
             ࠭    ॣ  HL. ᫥,  ⠫
         ᤥ -   ᯮ,      ᢮  
           8  ᥫ,      㦭  ⮫쪮      -
         室.  ᪨      ।  ⪮ 
          न x  8,     ⮪ -  ⥬
         ᪨஢   ⮢,     .  
         ⮬,  न x  ᫥ ࠢ 0,1,2... 175, 
          ⮢  , ᮮ⢥饬    
          7,6,5.....0. ⮬ 㦭 ᤥ ८ࠧ. 
           ᫮ FE (11111110), 饥 0  ࠩ
         ࠢ 樨, ᫥ 祣  饭 ⮣  N+1
         ࠧ,  N -⮪   x  8.

         61539       7A        LD A,D         ;न x.
         61540     E607        AND 07         ;᪨஢.
         61542       47        LD B,A         ;⮪   x  8
         61543       04        INC B          ; + 1
         61544     3EFE        LD A,FE        ;  1111 1110
         61546       0F LOOP   RRCA           ;饭 ࠢ ⮫쪮
         61547     10FD        DJNZ,LOOP      ;ࠧ, ᪮쪮 ⠭
                                              ; ॣ B.
         61549     06FF        LD B,0FFH      ;, ⮡ 
         61551       A8        XOR B          ;窨 뫠   -
                                              ;,   .
         61552       47        LD B,A         ;  B.
         61553       7E        LD A,(HL)      ;  ਭ﫨 ,
+                                 - 148 -
                                              ; 㦥 ᮤন  -
                                              ;࠭  㦭 .
         61554       B0        OR B           ;砥 ॡ㥬 
         61555       77        LD (HL),A      ;砥 ॡ㥬 -
                                              ;ᥫ.
         61556       C9        RET            ;室  楤.


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

              "ᯮ".
              ~~~~~~~~~~~~~~~
                      100  DEF FN f(x,y) = USR 61500
                      110  BORDER 6: PAPER 6: INK 0: CLS
                      120  FOR n=1.19 TO 1.80 STEP 0.01
                      130  FOR x= 0 TO 22 STEP 0.5
                      140  LET z= INT(x^n)
                      150  LET y= INT (x*8)
                      160  RANDOMIZE FN f(z,y)
                      170  RANDOMIZE FN f(255-z, 168-y)
                      180  NEXT x
                      190  NEXT n


              ""
              ~~~~~~~~~
                      100  DEF FN f(x,y) = USR 61500
                      110  BORDER 0: PAPER 0: INK 4: CLS
                      120  LET r=60: LET xc=127: LET yc=88
                      130  GO SUB 400
                      140  LET r=20: LET xc=75: LET yc=100
                      150  GO SUB 400
                      160  STOP

+                                 - 149 -

                      400  FOR y=-r TO r
                      410  FOR x1 = INT (SQR (r*r-y*y)
                      420  FOR x=-x1 TO x1
                      430  LET n=INT (RND*(1)*x1*2)+1
                      440  IF n<x1+x THEN RESTORE FN f(x+xc,y+yc)
                      450  NEXT x
                      460  NEXT y
                      470  RETURN

              祬   ப 440  ᯮ짮   RESTORE,   
         RANDOMIZE,     ⭮ (. .123 ).

              "ᨭᮨ"
              ~~~~~~~~~~~~~~
                      100  DEF FN f(x,y) = USR 61500
                      110  BORDER 0: PAPER 0: INK 2: CLS
                      120  FOR j= 240 TO 160 STEP -4
                      130  FOR m=1 TO 510
                      140  LET y=INT (90+60*(cos (m*PI+j)))
                      150  RANDOMIZE FN f(m,y)
                      160  NEXT m
                      170  NEXT j

              "த᪮ ".
              ~~~~~~~~~~~~~~~~~~~
                     ᢮ 娢    ᪮쪮 楤  
         設  ( FN b, FN c, FN e  FN f)  㦠   -
            ,  㦥   祭 -
          ᪨  ࠦ, ᯮᮡ     -
         ࠬ.  ⢥  ਬ ᬮਬ ணࠬ,  ࠦ
         筮 த᪮  . 梥  ॡ, -
          મ     "SINCLAIR", 筮   - 
          ᫮ ᯮ  ᪮쪨 ப    (-
         稪 設  楤   ਢ - ।-
         ,    ᤥ ᠬ, ਬ १ LOAD ""CODE.

              ॡ ࠦ     楤 訢
           梥⮬  PAPER  -  FN  b. ⨪쭠  "SINCLAIR"
+                                 - 150 -

         ⠥ 㯭묨 㪢  楤ன FN e.  䥪 ஬-
          ॡ  ⨣ 訢  梥 ""  
         砩 浪.   ⮬  ॡ    ࠧ
         ,  ᭮    -    ⮣,   砫쭠
         न   y1 ࠧ ।⢮ ⠭ 
         ""  25-.

               ࠦ ⨪쭮  "SINCLAIR"  室-
         , ⮡  ⥪  ।⥫쭮,  砫 ࠡ -
         ᥭ  ,   믮  ப 110 - 170.  -
             ⮩     CHR 13  (ENTER), 
          ᨣ  ᮮ饭.

               ப 210 뢠 楤  祪,  㦨
          ࠦ   䮭 ୮ . 砩 न-
             롨  ப 190  200.

              㬥 ࠦ 뢠 ᥬ⢠  㮪-
         ⥩  ப 530...560. ᪮     ᬠਢ
         設  楤    ࠦ   ,   
         ᤥ   ஬ DRAW.

              䥪 ஫饣 ⥮ ᯮ  ப 490 - 510 
          ᥬ⢠ १ .  ਬ ⮦  .
         楤  ࠦ   ᬮਬ ⮫쪮  ᫥-
         饬 ࠣ.

               1  REM ***** । 楤
              10  DEF FN b(x,y,h,v,c,b,f)=USR 62800
              20  DEF FN e(x,y)=USR 61900
              30  DEF FN c(x,y,h,v,c,b,f)=USR 62600
              40  DEF FN f(x,y) = USR 61500
             100  PAPER 0: INK 7: BORDER 0
             105  REM *****  ⥪⮢ ᮮ饭
             110  CLS : LET n$="SINCLAIR"
             120  LET l=LEN n$: LET k=62499
             125  REM ***** ᥭ ⥪  
             130  FOR i=1 TO l
+                                 - 151 -

             140  LET n=CODE n$(i)
             150  POKE k+i,n
             160  NEXT i
             165  REM ***** ᥭ  <ENTER>
             170  POKE k+i,13
             175  REM *****    74- 孨  ࠭
             180  FOR i=0 TO 298 STEP 2
             190  LET x1=INT (255*RND)
             200  LET y1=174-(INT(74*RND))
             210  RESTORE FN f(x1,y1)
             220  NEXT i
             230  RANDOMUZE FN c(0,14,25,15,1,0,0)
             235  REM ***** ࠦ   
             240  FOR i=1 TO 50
             250  RANDOMIZE
             260  LET h1=2+INT (RND*4)
             270  LET y1=10+INT(RND*15)
             280  LET v1=25-y1
             290  LET x1=INT(RND*27)
             300  LET c1=2+INT (RND*6)
             310  RANDOMIZE FN c(x1,y1,h1,v1,c1,0,0)
             320  NEXT i
             325  REM ***** ࠦ  । 
             330  RANDOMIZE FN c(16,9,1,15,4,1,0)
             340  RANDOMIZE FN c(17,6,2,18,4,1,1)
             350  RANDOMIZE FN c(19,10,1,14,4,1,0)
             360  RANDOMIZE FN b(17,6,2,18,1,0,1)
             370  RANDOMIZE FN e(17,6)
             380  RANDOMIZE FN c(1,11,5,14,2,0,0)
             385  REM ****** ࠦ   
             390  FOR i=12 TO 22 STEP 2
             400  RANDOMIZE FN c(2,i,1,1,7,1,0)
             410  RANDOMIZE FN c(4,i,1,1,6,1,0)
             420  NEXT i
             430  RANDOMIZE FN c(23,18,9,7,3,0,0)
             440  FOR i=24 TO 30 STEP 2
             450  RANDOMIZE FN c(i,19,1,1,4,1,0)
             460  RANDOMIZE FN c(i,21,1,1,4,1,0)
+                                 - 152 -

             470  NEXT i
             475  REM ***** ࠦ ⥮
             480  INK 6: BRIGHT 1
             490  FOR i=-6 TO 6 STEP 2
             500  PLOT 250,165-i
             510  DRAW -70,i-40: NEXT i
             520  INK 7
             525  REM ****** ࠦ 㬥
             530  FOR i= 0 TO 7
             540  PLOT 20+i,150
             550  DRAW 0,-50,0.8*PI
             560  NEXT i
             570  PAUSE 0



                           3.8. ࠦ .

                  DRAW 㦨   ᮢ -
         १     㦭⥩.   ⭮,    ⮣,
         ⮡  ᮢ 㦭 १, ।⥫쭮   
          (PLOT) 室 窠  㪠 ⭮⥫ न
          १.   ⭮⥫ न (饭  
         ਧ⠫   ⨪)        祭
         㤮,  ன   㤮 権, .. ணࠬ-
          ॡ ᭠砫   饭. ࠧ 㤮
         뫮    ᮫ ࠭ न   १,
               ᤥ  ।    楤 FN g
         (x,y,p,q).

              x,y - न 砫 १ (x<256, y<176);
              p,q - न  १ (p<256, q<176)

                楤  ࠡ⠥    ॥, 祬 ࠤ樮
          DRAW  ॥, 祬 設 楤,  ᮤঠ-
              ⮩ 楫  (.. ᫥   ᢮ ࠡ -
          樨  ஥ ஬,     ᢮
          ⮦  প 楤 ). ਢ 楤
+                                 - 153 -

         믮  ஢ન, ᪫騥  न, -
           । ࠭,   ࠪ⨪  ᯮ-
          楤  ⮤ ஡   訡   ஧   
         -ணࠬ   楤 ᫥⢨  ᠭ .
           ,  ᫨    न 㤥   ⮫쪮
         室  । ࠭,    ⮬   室  ,
