  7D00  3E 02     LD A,'RED'       
   7D02  CD 9B 22  CALL BORD-1     ⠭ 
   7D05  C9        RET

        ᭮ 㢨,    襯ਢ  ணࠬ  梥  INK

      ⭮襭  梥 .

        4.5.2. PAPER

        ﭭ 梥 㬠    ⠬  5-3  ATTR-P.  

   ணࠬ 뢠  PAPER 0 - PAPER  7  ⮫쪮    ⮤,  



                                    33


    ண            㣨

   ਡ 稭.

   7D00  3A 8D 5C  LD A,(ATTR-P)   ATTR-P
   7D03  0F        RRCA           뫪 ⮢
   7D04  0F        RRCA           5-3   2-0
   7D05  0F        RRCA
   7D06  E6 F8     AND,+F8
   7D08  C6 02     ADD A,+REG       梥
   7D0A  07        RLCA           ᤢ 
   7D0B  07        RLCA
   7D0C  07        RLCA
   7D0D  32 8D 5C  LD (ATTR-P),A  ࠭ ATTR-P
   7D10  C9        RET

        襯ਢ ⮤  祭 䥪⨢,   "訩" ⮤,

     ᯮ짮  㣨 .

        PAPER 8  ⤥쭮  砥  ᥡ  ⠭    7

   P-FLAG.

        4.5.3. INK

         梥  ਫ    ⠬  2-0  ATTR-P.  

   ணࠬ 뢠,       INK 0  -  INK

   7.

   7D00  3E F8
   7D02  FD A6 53
   7D05  C6 02
   7D07  32 8D 5C
   7D0A

        ,  ATTR-P   砥 ᬠਢ    

   IY+53,   㣮 -    5C8D.  INK  8  砥  ⠭

   ⮢ 2-0 MASK-P,   ६,  INK 9 砥 ⠭  5

   P-FLAG.

        4.5.4. FLASH

           ﭨ FLASH ⠭  ᮬ  7  

   ATTR-P  MASK-P:

      FLASH 0 - 0   7 ATTR-P - " RES 7,(ATTR-P) "
      FLASH 1 - 1   7 ATTR-P - " SET 7,(ATTR-P) "
      FLASH 8 - 1   7 MASK-P - " SET 7,(MASK-P) "

        4.5.5. BRIGHT

         ࠧ  3  ﭨ  મ  (⠭  




                                    34


   ᮬ  6 ATTR-P  MASK-P):

      BRIGHT 0 - 0   6 ATTR-P - "RES 6,(ATTR-P) "
      BRIGHT 1 - 1   6 ATTR-P - "SET 6,(ATTR-P) "
      BRIGHT 8 - 1   6 MASK-P - "SET 6,(MASK-P) "

             ,      ०   8   ॡ   ᪫祭,

   ᮮ⢥騥  MASK-P   襭 .

        4.5.6. OVER

         ﭨ OVER   ।⠢ ᫥騬 ࠧ:

      OVER 1 - 0   1 P-FLAG - " SET 1,(P-FLAG) "
      OVER 0 - 1   1 P-FLAG - " RES 1,(P-FLAG) "

        4.5.7. INVERSE

          ﭨ  INVERSE      ।⠢     

   ⠭    3  P-FLAG (筮 OVER).



        4.6. ﭭ  ६

          㯮  ,  設⢮  権    SP  ᯮ

   ६ 稭, ਬ,  RST 0010. CLS  ᠬ

    ணࠬ  ᯮ짮 ﭭ 梥⮢.

         ⮣,  ⮡  ஢  ⥪騥  ﭭ  祭  

   ६ ⥬  ६,  ᯮ  CALL  TEMPS  -  "CALL

   0D4D". ᫨  ६  稭    ᯮ짮    

   ﭭ 稭, ᯮ CALL PERMS - "CALL 1CAD".

        ⥫  ࠢ    ணࠬ  設  ,

    

      PAPER 4:INK 3:BEEP 2,0 
      BEEP 1,0:BORDER 5:BEEP 2,12:BORDER 2


        4.7.  CLS  SCROLL

          ᠬ  २ ᯮ짮 設  

    BASIC' ⮨  ⮬,    짮⥫    ࠭稢

   ᯮ짮 ⮫쪮  BASIC.  ணࠬ   SP  

   ணࠬ  ⪨  ࠭       ᤢ  

   .    ணࠬ    뢠  ⮫쪮      ணࠬ



                                    35


   設 .



        4.7.1. ணࠬ CLS

         ⪠ ࠭   ⠭    ਡ  ⮢  

   "ﭭ" 稭   祭 ⥬ ᯮ짮

        CALL CLS - "CALL 0D6B"

     㡥,   "S"     ⮣,    뢠

   ணࠬ.  ॡ ⥬ 筮 ⨥, ᫨  

   믮  쭥訩  뢮    .  ,   ᫥

   ணࠬ 頥  ࠭:

      7D00  3E 02     LD 2,+2             "S"
      7D02  CD 01 16  CALL CHAN-OPEN
      7D05  CD 6B 0D  CALL CLS           ࠭
      7D08  C9        RET

        襯ਢ ணࠬ ࠡ⠥     २⢮

    ᯮ짮  ﭭ  梥⮢.  ,  ⭮,    

     ᯮ짮 ணࠬ CL-LINE.

        4.7.2. ணࠬ CL-LINE

         ணࠬ  ᯮ짮  ⪨ ।

   ⢠  ப  ࠭.    ப      ᭨.   

   ﭭ  稭  ᯮ,    ⠭   ਡ

   .

         ⮣,  ᤥ 맮 ணࠬ,  ॣ B  

   饭 稭      01-18  (16-筮),    18  㤥

     ࠭,   㦭  .    ணࠬ

   뢠,   ணࠬ 㤥 ᯮ짮:

      7D00  06 17     LD B,+17           23 ப,
      7D02  CD 44 0E  CALL CL-LINE      ⠢  
      7D05  C9        RET

        4.7.3. ணࠬ CL-SCROLL

         ᭠  ணࠬ,  ⠪        

   짮⥫  ᤢ  ।   ⢮   ப   ᯫ.

   ணࠬ  砥  ᯮ짮  ணࠬ  CL-LINE   



                                    36


   ⪨  ப.  ⥫쭮,  ਡ      ⮩

   ப  ﭭ 祭.

         B  ᯮ    ࠭  稭,  

   ᫮ ᫮ ப,   ।,      ⮬

   砥   "⢨⥫ ᫮ ப   1"  (16-

    01-17). 쭮 ॡ ᫮ 2,  ⠪      ᫮

   ப, ஥   ᤢ.

          ணࠬ   뢠,      ணࠬ   㤥

   ᯮ짮:

      7D00  0D 16     LD B,+16          ⠢  ப
      7D02  SD 00 DE  CALL CL-SCROLL    ᤢ⮩
      7D05  C9        RET

        ,      ணࠬ   CL-LINE,      ணࠬ

   CL-SCROLL    ᯮ짮 ⥪饣 .



        4.8. ணࠬ 

         ⮣, ⮡ ᯮ짮    ணࠬ    

   ࠦ ᨬ, ணࠬ PRINT-OUTPUT    ᤥ

   ⥪饩 ணࠬ 뢮.      ᤥ,    

   "S". ⮬ ப

      LD A,+2
      CALL CHAN-OPEN

     ᯮ짮    ⮣,     뢠      㣨

   ணࠬ.



        4.8.1. RST 0010

         ⥬ SP    ᨬ    ࠭  믮  

   ᯮ짮 ⮩ .        "S"  ணࠬ

   PRINT-OUTPUT   09F4   ணࠬ 뢮.

         "RST 0010" 祭 魠    ᯮ짮  

       ᨬ,      ⥪饣      

   ᯮ짮  AT    TAB,    ७  祢  ᫮   



                                    37


   ६ 梥⮢ ⮢.

         ணࠬ 뢠  ᯮ짮:

   7D00  3E 02     LD A,+02          "S"
   7D02  CD 01 16  CALL CHAN-OPEN
   7D05  06 18     LD B,+18         ࠭
   7D07  CD 44 0E  CALL CL-LINE
   7D0A  3E 16     LD A,+'AT'
   7D0C  D7        RST 0010         PRINT AT 5,0
   7D0D  3E 05     LD A,+05
   7D0F  D7        RST 0010
   7D10  3E 00     LD A,+00
   7D12  D7        RST 0010
   7D13  3E 41     LD A,'A'         PRINT "A"
   7D15  D7        RST 0010
   7D16  3E 0D     LD A,'Cr'        PRINT
   7D18  D7        RST 0010
   7D19  3E F9     LD A,+F9         PRINT CHR$ 249
   7D1B  D7        RST 0010
   7D1C  3E 0D     LD A,'Cr'        PRINT
   7D1E  D7        RST 0010
   7D1F  3E 11     LD A,'PAPER'     PAPER 2
   7D21  D7        RST 0010        (६)
   7D22  3E 02     LD A,'RED'
   7D24  D7        RST 0010
   7D25  3E 06     LD A,';'         PRINT
   7D27  D7        RST 0010
   7D28  3E 42     LD A,'B'         PRINT "B"
   7D2A  D7        RST 0010
   7D2B  C9        RET

          ⬥,      襯ਢ   ணࠬ   맮

   ணࠬ CL-LINE 頥 ࠭,     ⠭  

     00 (  ६,  CALL CLS ⠭).

         ᯮ  RST 0010      "梥⭮"

   , ⮣ ॡ  ⤥ 맮,   ᯮ

   ᨬ ஫ "AT"  "TAB" -  ⤥ 맮.

        ୠ⨢   ⮤            㤥

   ᫥騬:

        - 㧨  ॣ஢ BC ᮮ⢥騬  稭  

     ;

        - CALL CL-SET    "CALL  0DD9",      ॡ㥬

   稭  S-POSN  DF-CC.

        稭   ॣ஢ BC । "AT a,b",  ॣ B

   ᮤন 16-筮 18-a,  ॣ C - 16-筮 21-b.




                                    38


        ਬ:

        PRINT AT 5,0 ॡ

        LD BC,+1321
        CALL 0DD9

        4.8.2.  ப

        ப ᨬ  SP ᥣ  ࠬ ॣ஢ DE   BC,

     ॣ DE ࠭  祩, ᮤঠ饩    ᨬ

   ப,    ॣ஢  BC  ᮤন  稭,  ࠢ  

   ᨬ  ப.

         ணࠬ  PRINT ᯮ  ணࠬ  SP-STRING

      ப.

         ஡ ᬮ७ ணࠬ ( 203C):

   PR-STRING: LD A,B    롮 襣 
              OR C       OR  訬
              DEC BC    㬥襭 稪
              RET Z
              LD A,(DE)  ᨬ
                         ᨬ
              RST 0010
              JK PR-STRING 室  ᫥饬

         ப ᨬ ⮬    ⠭  ᫥騬

   ࠧ:

        - 㧨 ⮢   DE

        - 㧨   BC

        - CALL PR-STRING - "CALL 203C"

        ᪮ ணࠬ PR-STRING ᯮ  RST 0010

    ⢨⥫쭮   ᨬ,  ப    ᮤঠ  

   ᨬ, "梥" ,  ਡ        

   祢 ᫮.

          ⢥  ਬ   ᯮ짮   ணࠬ   PR-STRING

   믮 ᫥ ணࠬ:

   7CF0 11 01 10 09                  ப  0F,
   7CF4 16 0A 05 53                  稭  7CF0
   7CF8 70 65 63 74
   7CFC 72 75 6D
   ....
   7D00 3E 02        LD A,+02          "S"



                                    39


   7D02 SD 01 16     CALL CHAN-OPEN
   7D05 06 18        LD B,+18         ࠭
   7D07 CD 44 0E     CALL CL-LINE
   7D0A 11 F0 7C     LD DE,+string   砫 ப
   7D0D 01 0F 00     LD BC,+length     ப
   7D10 CD 3C 20     CALL PR-STRING   ப
   7D13 C9           RET

        襯ਢ ணࠬ 

             CLS:PRINT PAPER 1;INK 9;AT 10,5;"SPECTRUM"

        4.8.3.  ᥫ

        祭 魠 ணࠬ PRINT-FP ᯮ      

   筮 ଥ      ᥫ    饩  窮.  

   ணࠬ  ⢥ ࠭ ᯮ 孥  祭  ⥪

   . ,       ணࠬ  ᯮ,

   ⢨⥫쭮 ᫮ 롨ࠥ  ⥪  .

         ணࠬ  ᯮ  ணࠬ  PRINT-FP  

    ﭭ "PI/2"  ⠡ ⠭ :

   7D00  3E 02     LD A,+02          "S"
   7D02  CD 01 16  CALL CHAN-OPEN
   7D05  CD 6B 0D  CALL CLS         ࠭
   7D08  3E 02     LD A,+02        ᭮   "S"
   7D0A  CD 01 16  CALL CHAN-OPEN
   7D0D  EF        RST 0028        ᯮ짮 
   7D0E  A3        DEFB +A3         ⠭
   7D0F  38        DEFB +38        end calc
   7D10  CD E3 2D  CALL PRINT-FP    孥 祭
   7D13  C9        RET              筮 ଠ

        ᯮ짮 ப

             RANDOMIZE USR 32000:PRINT PI/2

   뢠 筮 १.  ᭮ ,    

   祭 PI/2  ﭭ  PI/2  롨ࠫ    ⠡  ⠭,

   㤢,  ⥬   , ⮡  १.

          ,  ,  ᯮ짮    饩

   窨     ॡ,          

    ᫠   0-9999 (10-筮) ⥬  ᯮ짮

   ணࠬ OUT-NUM,  筮 ᯮ  ந

     ப    ⨭     ᮮ饭.      ᯮ

   ணࠬ OUT-NUM-1 ( 1A1B), ᫮  室   



                                    40


   ॣ஢ BC    筮  浪  "訩  -  訩".    

   ᯮ  ணࠬ  OUT-NUM-2  (1A28),    ॣ஢   HL

   ᯮ  ।⢥ 樨  ᫠,  ஥    

   ६    浪 "訩 - 訩".

        ,   ᯮ짮 ⮩ ணࠬ 騥  ஡

   ,       쭮  .    

     ,  ᫨  ணࠬ  ᯮ    ᫠,

     ਢ  ॢ襭 筮 । 9999.

         ணࠬ 뢠,   ᯮ  ணࠬ

   OUT-NUM-1   ᫠:

   7D00  3E 02     LD A,+02          "S"
   7D02  CD 01 16  CALL CHAN-OPEN
   7D05  CD 6B 0D  CALL CLS         ࠭
   7D08  3E 02     LD A,+02        ᭮   "S"
   7D0A  CD 01 16  CALL CHAN-OPEN
   7D0D  01 0F 27  LD BC,+270F     筮 9999
   7D10  CD 1B 1A  CALL OUT-NUM-1   ᫠
   7D13  C9        RET

        ⨬ 稢 ࠧ  ணࠬ  ,    ⥫

      ᢮  ணࠬ    ᯮ짮  

   ⮣  ࠧ  ।  ⥬,    ᬮ  ᯥ樠   

   ᫥饣 ࠧ.



        4.9.  PLOT, DRAW  CIRCLE

                ࠦ  祪    ࠭

   .  ࠭ ⮨   祪 256176,    ࠧ

   22 孨 ப. न      窨  ਭ  

   (0,0),    孥  ࠢ  -    (255,175).  ⥬  ६

   COORDS-X  COORDS-Y ᮤঠ  न  ᫥  窨,  

    ᯮ짮.  ⥬  ६  ⠭  

     CLS  㣨 ,  ⠪    RUN,  

   뢠 ணࠬ  CLS.

        ,    BASIC      筮  ᯮ  FLASH

   8;BRIGHT 8;PAPER 8,   MASK-T ᮤন 16-筮 F8.



                                    41


        4.9.1.  PLOT

         ᠬ    , ⠪   砥    ᥡ

   䨪 ⮫쪮     ࠭    ᫥

   ⠭  .

           室騥 窨 室  ,   

      ᠬ   ᯮ짮.

        1. CALL PLOT - "CALL 22DC"

         室    PLOT  室    稭  X    Y

    ୮ ⥪. 稭  X    室  

   稭 Y. ᯮ짮 STACK-A    饭  祭    ⥪

   祭 .

        2. CALL PLOT-1 - "CALL 22DF"

        室   ⮩  窥  ॡ,  ⮡    ॣ  B  ࠭

   稭 Y,   ॣ C - 稭 X.

        ᫥ ⮣,  窠 뢮, ﭭ  梥⮢  稭

   ⮬᪨   ६ ⥬ ६.

        3. CALL PLOT-BC - "CALL 22E5"

         ॣ B  ᮤঠ 稭  Y,    ॣ  C  -

   稭 X.

        ணࠬ 믮 䠪  PLOT. ॡ㥬 

    맮 PIXEL-ADD (22AA)  ⥬  㤥  ⠭

    襭  ᮮ⢥⢨  १⮬  ﭨ    稭

   P-FLAG (  0  P-FLAG    ﭭ  祭  OVER,    2  -

   ﭨ INVERSE).

         ணࠬ 뢠 ࠦ  筮  窨  

    PLOT:

   7D00  3E 02     LD A,+02           "S"
   7D02  CD 01 16  CALL CHAN-OPEN
   7D05  CD 6B 0D  CALL CLS             ࠭
   7D08  3E 02     LD A,+02              
   7D0A  CD 01 16  CALL CHAN-OPEN     "S"
   7D0D  01 64 32  LD BC,+3264      PLOT 100,50
   7D10  CD E5 22  CALL PLOT-BC
   7D13  C9        RET



                                    42



        4.9.2. DRAW

        ᯮ짮 DRAW X,Y,A 砥   ᥡ  ࠦ  㣨  

      ᯥ⠬ CIRCLE X,Y,R.



        DRAW X,Y

          ᮮ⢥騥 窨 室  ⮩ .

        1) 窠 室 DRAW-1  (2477)    稭  X    Y,  

     孨  祭ﬨ  ୮  ⥪.   ﭭ

   梥⮢ 稭 ९뢠  ६  ⥬  ६

   ᫥ ⮣,   㦥 ᮢ.

        2) 窠 室 DRAW-3 (24BA)  ॣ஬ B, ᮤঠ騬  ABS  Y,

   ॣ஬ C, ᮤঠ騬 ABS X,  ॣ஬  D,  ᮤঠ騬  SGN  X  

   ॣ஬ , ᮤঠ騬 SGN Y.

         ணࠬ  뢠  ப,      

   ࠦ. ,   ॣ஢ HL   ࠭, 

    ⠭  믮 ᯥ譮   BASIC.

   7D00  3E 02        LD A,+02            "S"
   7D02  CD 01 16     CALL CHAN-OPEN
   7D05  CD 6B 0D     CALL CLS           ࠭
   7D08  3E 02        LD A,+02          ᭮   "S"
   7D0A  CD 01 16     CALL CHAN-OPEN
   7D0D  D9           EXX               ࠭ 祭 HL
   7D0E  E5           PUSH HL
   7D0F  D9           EXX
   7D10  FD 36 43 64  LD (COORD-X),+64  ⠭ न
   7D14  FD 36 44 64  LD (COORD-Y),+64
   7D18  01 32 32     LD BC,+3232        DRAW 50,50
   7D1B  11 01 01     LD DE,+0101
   7D1E  CD BA 24     CALL DRAW-3
   7D21  D9           EXX               ⠭ HL
   7D22  E1           POP HL
   7D23  D9           EXX
   7D24  C9           RET

        襯ਢ ணࠬ ⠭  "᫥  "

   䨪  न (100,100)  ⥬ 롨ࠥ ப (50,50).



        DRAW x,y,a

         ⮣, ⮡ ࠧ ,  稭 X, Y   A  



                                    43


    묨 饭  ⥪      ,    

   ⪮ ଥ   . ⥬  맢 DRAW-ARC (2394).

          ணࠬ        १,  ਬ  DRAW

   50,50,1  ᫥  䨪  窥 (100,100).

   7D00  3E 02        LD A,+02            "S"
   7D02  CD 01 16     CALL CHAN-OPEN
   7D05  CD 6B 0D     CALL CLS           ࠭
   7D08  3E 02        LD A,+02          ᭮   "S"
   7D0A  CD 01 16     CALL CHAN-OPEN
   7D0D  D9           EXX               ࠭ 祭 HL
   7D0E  E5           PUSH HL
   7D0F  D9           EXX
   7D10  FD 36 43 64  LD (COORD-X),+64  ⠭ न
   7D14  FD 36 44 64  LD (COORD-Y),+64
   7D18  EF           RST 0028          ᯮ짮 
   7D19  34           DEFB +34          stk-data

   7D1F  A1           DEFB +A1          stk-one
   7D20  38           DEFB +38          end-calk
   7D21  CD 94 23     CALL DRAW-ARC     ࠦ
   7D24  D9           EXX               ⠭ HL
   7D25  E1           POP HL
   7D26  D9           EXX
   7D27  C9           RET

         ணࠬ 稭, 祭  X,Y,A  50,50,1

        4.9.3. CIRCLE

            ࠭        饭     ⥪

     ⮣,  㤥 ᤥ 饭  CIRCLE-1 (232D).

          ணࠬ  뢠   믮   ⮩   .

   ,      ⭮    ६      ࠦ

   㦭  設  ,  ⠪    ணࠬ    CIRCLE

   .

   7D00  3E 02        LD A,+02          "S"
   7D02  CD 01 16     CALL CHAN-OPEN
   7D05  CD 6B 0D     CALL CLS         ࠭
   7D08  3E 02        LD A,+02        ᭮   "S"
   7D0A  CD 01 16     CALL CHAN-OPEN
   7D0D  D9           EXX             ࠭ 祭 HL
   7D0E  E5           PUSH HL
   7D0F  D9           EXX
   7D10  EF           RST 0028        ᯮ짮 
   7D11  34           DEFB +34        stk-data
   7D12  40 B0 00 64  DEFBs           筮 +100
   7D16  31           DEFB +31        duplicate
   7D17  34           DEFB +34        stk-data
   7D18  40 B0 00 30  DEFBs           筮 +48
   7D1C  38           DEFB +38        end-calk



                                    44


   7D1D  CD 2D 23     CALL CIRCLE-1   ࠦ 㦭
   7D20  D9           EXX             ⠭ HL
   7D21  E1           POP HL
   7D22  D9           EXX
   7D23  C9           RET

        ,     ᯮ짮  ਢ    ணࠬ

   ﭭ  梥⮢  稭      ६  ⥬

   ६  ࠦ 㣨  㦭.



        4.10. 㭪樨 POINT, ATTR  SCREEN$

          㭪樨  뢠   ணࠬ  設  

   祭  ,  ⠪        ⤥   "᫨⥫

   ணࠬ".   ⠪ 뢠  㭪樨,  ᯮ  VAL,

     ⮤  㦨 .



        4.10.1. POINT

        न 窨,       ।,    

   ॣ BC  뢠 ணࠬ  POINT-1  (22CE).  K  筮,

   ॣ B ࠭ न Y,  ॣ C - न X.

         ணࠬ 뢠 믮:

   7D00  3 02     LD A,+02          "S"
   7D02  CD 01 16  CALL CHAN-OPEN
   7D05  CD 68 0D  CALL CLS         ࠭
   7D08  3 02     LD A,+02        ᭮   "S"
   7D0A  CD 01 16  CALL CHAN-OPEN
   7D0D  3E 11     LD A,'PAPER'    㬠 ६
   7D0F  D7        RST 0010        ⠭ 㡮
   7D10  3E 05     LD A,'cyan'
   7D12  D7
   7D13  3E FF     LD A,'COPY'      祢 ᫮ COPY
   7D15  D7
   7D16  3E 0D     LD A,'cr'       室  ᫥饩 ப
   7D18  D7
   7D19  01 00 04  LD BC,+0400      ATTR (0,4)
   7D1C  CD 83 25  CALL ATTR-1
   7D1F  CD E3 2D  CALL PRINT-FP
   7D20  C9        RET

        襯ਢ ணࠬ 筠 

             PRINT PAPER 5;CHR$ 255;CHR$ 13;ATTR (0,4)






                                    45


        4.10.2. SCREEN$

          ப 뫠  ॣ C,       

   ॣ B. ணࠬ  ⮣ 뢠  ⥬  ᯮ짮

   CALL SCREEN$-1 (2538).  頥   室  祭

   ୮ ⥪,  ᫥ ⬥,    ࠬ஢

   ப.

         ணࠬ 뢠 믮:

   7D00  3E 02      LD A,+02            "S"
   7D02  CD 01 16   CALL CHAN-OPEN
   7D05  CD 6B 0D   CALL CLS           ࠭
   7D08  3E 02      LD A,+02          ᭮ 
   7D0A  CD 01 16   CALL CHAN-OPEN     "S"
   7D0D  3E
   7D0F  D7         RST 0010
   7D10  3E 0D      LD A,'cr'         室  ᫥饩
   7D12  D7         RST 0010          ப
   7D13  01 00 00   LD BC,+0000       
   7D16  CD 38 25   CALL SCREEN$-1    SCREEN$ (0,0)
   7D19  CD F1 2B   CALL FETCH        
   7D1C  CD 3C 20   CALL PR-STRING    ப
   7D1F  C9         RET

        襯ਢ ணࠬ 筠 

             PRINT "z";CHR$ 13;SCREEN$(0,0)

        ,  SCREEN$ 㤥  ⮫쪮  ᪠    ᨬ  ,

   ᫥⥫쭮,     20-7F (16-筮).

        ਬ砭: . ਫ.

        訡 SCREEN$.   १   㤥  

   ,  ᯮ 室 窠 SCREEN$-1.



        4.11. 㭪樨 PI, RND, INKEY$

          㭪樨 㯯  ⮬,    ணࠬ

   ᫥ 祭  ᫨⥫ ࠦ   稫 

   ।⢥.  ,  ᫥  ᬮ   ८ࠧ   

   ᯮ짮 ணࠬ  VAL/VAL$:

            VAL CHR$ 167  PI
            VAL CHR$ 165  RND
            VAL CHR$ 166  INKEY$





                                    46


        4.11.1. PI

        ᪠ 楤  ᫥ PI 㤥:

        PI    =   262C
        262C      RST 0028  ᯮ짮 
        262D      A3        PI/2
        262E      3B        end-calc
        262F      INK (HL)  㤢 㢥祭 ⠭

        楤    ⮫쪮        ⮬   

   .   맢 VAL CHR$  167.    ⮤    

   ᫥饩 ணࠬ:

   7D00  3E 02      LD A,+02            "S"
   7D02  CD 01 16   CALL CHAN-OPEN
   7D05  CD 6B 0D   CALL CLS           ࠭
   7D08  3E 02      LD A,+02          ᭮ 
   7D0A  CD 01 16   CALL CHAN-OPEN     "S"
   7D0D  3E A7      LD A, 'PI'         PI
   7D0F  CD 28 2D   CALL STACK-A
   7D12  EF         RST 0028          - -
   7D13  2F         DEFB +2F
   7D14  38         DEFB +38          ப
   7D15  06 1D      LD B, +1D         ࠫ
   7D17  EF         RST 0028          - -
   7D18  3B         DEFB +3B          fp-calc-2
   7D19  38         DEFB +38          end-calc
   7D1A  CD E3 2D   CALL PRINT-FP
   7D1D  C9         RET

        4.11.2. INKEY$

          ⥩,          

   ⢫  ணࠬ  設 .

        1) ।⢥ ⥭ ⥬ ६ LAST-K.

        2)   訢 ⥬ ᯮ짮 樨

   IN 筮 ணࠬ KEY-SKAN ( 028).

        3) ணࠬ   KEY-SKAN        뢠    ᠬ,    

   १饥 祭  室   ⠡栬.

        4) ⢨, 믮塞   ணࠬ  INKEY$  (2646)  

    ७, ..

   CALL KEY-SKAN   CALL 028E
   LD C,+00        ᯥ祭 ० K, L  C
   JR NZ,No-key     뫠   ॣ
   CALL KEY-TEST       
   JR NC,No-key
   DEC D           ᯥ祭 ० L  C
   LD E,A          祭 



                                    47


   CALL KEY-CODE   CALL 0333

    ᨬ 頥  ॣ A.

        5) ணࠬ  INKEY$      ᯮ짮      ᫥

   ࠦ VAL$ CHR$ 166.  ᫥饩 ணࠬ    

   :

   7D00  3E 02     LD A,+02          "S"
   7D02  CD 01 16  CALL CHAN-OPEN
   7D05  CD 68 0D  CALL CLS         ࠭
   7D08  3 02     LD A,+02        ᭮   "S"
   7D0A  CD 01 16  CALL CHAN-OPEN
   7D0D  11 00 08  LD DE,+0800     ⠭ 稪  2048
   7D10  D5        PUSH DE
   7D11  3E A6     LD A,'INKEY$'
   7D13  SD 28 2D  CALL STACK-A
   7D16  EF        RST 0028        ᯮ짮 
   7D17  2F        DEFB +2F        chr$
   7D18  18        DEFB +18        val$ (  val)
   7D19  38        DEFB +38        end-calc
   7D1A  CD F1 2B  CALL STK-FETCH  롮 ࠬ஢
   7D1D  CD 3C 20  CALL PR-STRING   ப
   7D20  CD BF 16  CALL X-TEMP     ⪠ ࠡ祩 
   7D23  D1        POP DE          ७ 横
   7D24  7B        LD A,E
   7D25  B2        OR D
   7D26  CB        RET Z
   7D27  1B        DEC DE          㬥襭 稪
   7D28  18 E6     JR LOOP

        ਬ砭: 1.      ணࠬ   믮,      

                    筠 ࠦ

                    FOR A=1 TO 2048 : PRINT INKEY$ : NEXT A

                    2.         7D19-7D1F          

                    1C,38,CD,E3,2D,00,00.

         ணࠬ BASIC 뢠  .

   10 INPUT "SEED";CHR$ 32;SEED
   20 PRINT "OLD VALUE =";CHR$ 32;SEED
   30 LET SEED=SEED+1
   40 LET SEED=SEED*75
   50 LET SEED=SEED-65537*INT(SEED/65537)
   60 LET SEED=SEED-1
   70 PRINT "NEW VALUE =";CHR$ 32;SEED
   80 GO TO 30

         ணࠬ  䠪᪠ 楤   ᫥  RND

   㤥 ᫥饩:

   RND     =   25FD
   RND-END =   2625



                                    48


   25FD  LD BC,(SEED)          롮ઠ 祭 SEED
   2601  CALL STACK-BC
   2604  RST 0028              ᯮ짮 -
   2605  A1                    ⥪ '1'
   2606  0F                    SEED=SEED+1
   2607  34                    . 75
   2608  37  16
   260A  04                    SEED=SEED*75
   260B  34
   260C  80  41  00  00  80    ⥪ "65537"
   2611  32                    n-mod-m
   2612  02                    delete
   2613  A1                    ⥪ "1"
   2614  03                    SEED=SEED-1
   2615  31                    duplicate
   2616  38                    end-calc
   2617  CALL FP-TO-BC          CALL 2DA2
   261A  LD (SEED),BC           祭 SEED
   261E  LD A,(HL)             롮 ᯮ
   261F  AND A                 ஢ઠ  
   2620  JR Z,RND-END
   2622  SUB+10                  65536
   2624  LD (HL),A             ࠭ ᯮ
   2625  ..........................................

        稭  RND  ⥯  ।⠢  孨  祭  

   ୮ ⥪.

        ணࠬ RND  뢠  設   ᬮ७

   १ ᫥: VAL CHR$ 165.

        ணࠬ    ᫥  PI,       ࠭,   

   ᯮ짮  ⢥ :

             7D0D 3E A5 LD A,+A5 ,

         

             FOR A=1 TO 2048 : PRINT CODE INKEY$; : NEXT A



        4.12.  BREAK

           , ⮡ 室   ணࠬ  設

     ᤥ   BREAK.    ணࠬ  뢠,

      ᤥ:

   BREAK   =   7D0D
   7D00    3E  02      LD A,+02           "S"
   7D02    CD  01  16  CALL CHAN-OPEN
   7D05    CD  6B  0D  CALL CLS          ࠭
   7D08    3E  02      LD A,+02         ᭮ 
   7D0A    CD  01  16  CALL CHAN-OPEN    "S"
   7D0D    3E  7F      LD A,+7F           7FFE



                                    49


   7D0F    DB  FE      IN A,(+FE)        0 ॣ 
   7D11    1F          RRA              襭, ᫨
   7D12    D0          RET NC            BREAK
   7D13    18  F8      JR BREAK

         ⮩  ணࠬ    鸞      BREAK    B

   ⭮ ᬠਢ. 室 㤥 ⢫  ⮣,  

   ,  ।⠢  BREAK, 㤥 ⠭.





                              5. 

         ⮬ ⠯ ⥫ ⮢   ᠭ  ணࠬ  設

   ,  砥   ᥡ  20-30  権.    

   ணࠬ  ⥬  ᯮ짮    ணࠬ  BASIC,  

   뢠  "USR ᫮".

          ⥬     㣮  ,    

    殢 ணࠬ 㤥  ⮫쪮      ப:  10

   RANDOMIZE USR ... (⠪      ⮢    BASIC    㤥

   ᤥ      ,    ணࠬ  設       㤥

   믮.





























                                    50


                                                         

                            

        ணࠬ -16 ४᭠,   ᪮쪮 ணࠬ

   訡.     祭  12  訡,      ⮫쪮  2

    ⢥묨.

        1) 訡 ணࠬ

         3200 (16-筮)  ᮤঠ  E1,  DA.  訡

   ਢ, ਬ,  ⮬, 

             0.5=7F FF FF FF, a 1/2=80 00 00 00 00.

        2) 訡 "-65536"

          ணࠬ          ࠢ,   

   ﭭ   ࠪ.            祭   -65536

   ।⠢  00 FF 00 00 00,   ६,   㣨  

       .

        訬 ਬ஬ ⮩ 訡  ᫥騩:

             PRINT INT-65536  -1.

        3) ணࠬ " ணࠬ".

        ணࠬ, ࠧ饭      04AA-04C1,  ⭮  

   ZX-81    㤠.

        4) 訡 "CHR$9".

         ணࠬ PRINT-OUTPUT  ࠧ  ࠡ⪨  CHR$9  -

   ६饭 ࠢ.  ணࠬ    㬥    

    , ⠪  CHR$9 㤥 ࠡ ⮫쪮  ⮬  砥,

   ᫨ ᫥  㤥 室   । .

    

             PRINT PAPER 2'CHR$9;AT 4,0;

   ࠡ⠥,   .

        5) 訡 "SCROLL?" (⠪ ⭮  "START TAPE").

          ⢥    ᪠    ॣ஬  CAPS-LOCK  

   GRAPHICS  ॣ஬ SIMBOL SHIFT  ।⥫쭮 ஢




                                    51


   ।᪮ ப        ࠭.  訡  室  

   ணࠬ  KEYBOARD-INPUT,        ⠭  

   "᪠".

        6) 訡 "current line cursor".

          ப ।, ᮤঠ ,   

   

             100 PRINT & ENTER
             101 & ENTER
             SHIFT & EDIT

              ।㥬  ப,  ⮬    

   ⥪饩 ப ࠢ   ।㥬  ப  +1.    訡

   室  ணࠬ  ப.

        7) 訡 饣 "஡".

          ⢮    ஡   ।   祢묨

   ᫮, ਬ:

             PRINT CHR$ 255;CHR$ 13;CHR$ 255

    騩 ஡ 㤥  ࢮ 砥,    ஬.

        8) 訡 -०.

         SP 室  -०,  㤥 ,  ᫨

    ᮮ⢥ .   ᮦ,  ᫨    

   ᫨誮 ,  祢 ᫮ 㤥 ७.

        訡 祭  ணࠬ KEY REPEAT,   த

      ,  ᫨ ०   L.

        ணࠬ  ஢,   3 FLAGS  .

        9) 訡 "CHR$8"

         033  ᮤঠ 19,    18  (16-筮).  

    ࠡ⠥ ⫨筮,  ᯮ ப  1   21.  

        砫  ࢮ  ப      㫥,

   ᪮ ணࠬ ᯮ짮 ୮ ࠭祭.   

       蠣  樨  0,0  ਢ     ࠧ   

   १⠬.




                                    52


        10) 訡 "SCREEN$".

          257D   ᠭ C9 (RET),   3  (JP).  

   १ ⮩ 訡 ப, 祭   SCREEN$,  뢠

   .    ਬ:

        10 PRINT '123'
        20 PRINT SCREEN$(0,0)+SCREEN$(0,1)

        뤠  ப  "22".    訡      ,   ᫨

   ᯮ짮 பo ६,  

        20 LET S$=SCREEN$(0,0)
        30 LET T$=SCREEN$(0,1)
        40 PRINT S$+T$

        11) 訡 STR$.

         । ᫠      -1<n<+1  (    0),  

   楤 PRINT-FP 頥 譨  0    ⥪  .  

   ࠧ,  १,   樨.

        ⥫쭮,

        PRINT "A"+STR$ 0,1 ।  PRINT ""+STR$ 0,1 

        PRINT 1+VAL STR$ 0,1 -  PRINT 0+VAL STR$ 0,1  ..

         訡  , ᫨ ᯮ짮 ६ ப,

    ࠬ ।  STR$,  ࠧ饭 STR$  ।  

    ஬.

        12) 訡 "CLOSE".

         ⪠ "CLOSE"   ஬  04  0F,   뢠

    ।⥫쭮, ਢ

        1)  ୮  ⥬, ⠪  ⢫ 室

     0000;

        2) 뤠 । ᮮ饭.

        稭  訡 砥    ⮬,    ⠡

   "CLOSE stream look-up"   1716     筮  થ,

    筮   ⠡.







                                    53


                                



   1.  .....................................................  1

   1.1. 祬  ணࠬ  ............................  1

   2. " "   ................................  2

   2.1. 樮 ⥬ .......................................  2

   2.2.  BASIC ........................................  5

   3.     ............................  9

   4.    ........................... 28

   4.1.  ................................................... 28

   4.2. ⭠  ..................................... 28

   4.3.  BEEP ............................................... 29

   4.4. ࠭  㧪 ...................................... 31

   4.5.  梥 ............................................. 31

   4.6. ﭭ  ६ .................................... 34

   4.7.  CLS  SCROLL ....................................... 34

   4.8. ணࠬ  ........................................ 36

   4.9.  PLOT, DRAW  CIRCLE ................................ 40

   4.10. 㭪樨 POINT, ATTR  SCREEN$ ............................. 44

   4.11. 㭪樨 PI, RND, INKEY$ ................................... 45

   4.12.  BREAK ............................................. 48

   5.  ................................................... 49

   ਫ.   ................................. 50
