



                                  - 10 -

                     - RS-232C.
  
        2 (RS-232C) - ᠬ ࠭ ᫥⥫ 䥩
       ᨭ஭  ᨭ஭ 裡  ਩묨 ன⢠, 
       㯫᭮  㯫᭮ ०  묨.  ।
      ଠ樨  ᨣ ࠢ  ⮬ 䥩 ᯮ
      㯮୮ 殮  - (3 - 12)  (3 - 12).  -
      䥩 ᮤন  ⪠ ᨣ, ⮣   祭
      ਭ 筮 ᯮ짮    .  ⠡-
       2 ਢ । ᭮ ᨣ 䥩 RS-232C
       ⠪⠬ ⠭⭮ 25- ⠪⭮ ࠧꥬ ⨯ CANNON
      DB-25P.
          2
      __________________________________________________________________
      |             |         |                         |              |
      | N ⠪. | . | 祭 ᨣ.     | ࠢ. |
      |_____________|_________|_________________________|______________|
      |             |         |                         |              |
      |     1       |   PC    |                   |  - - - - - - |
      |     2       |   TXD   | ।      |     室    |
      |     3       |   RXD   | ਭ       |     室     |
      |     4       |   RTS   |   ।      |     室    |
      |     5       |   CTS   | ⮢  ।   |     室     |
      |     6       |   DSR   | ⮢    |     室     |
      |     7       |   SG    | 쭮    |   - - - - -  |
      |     8       |   DCD   | ஫ ਥ         |     室     |
      |     20      |   DTR   | ⮢ ନ    |     室    |
      |_____________|_________|_________________________|______________|

           ਭ  ⠭ RS-232C   -
      ⢫   ⮪ ணࠬ ࠢ  - XON-
      XOFF (㯫᭮  㯫᭮),    ⭮
      ࠢ塞 ⮪ DTR. । 襬  䥩
      RS-232C ন ⮪ DTR. 殮  ⮬ ⮪
      ਢ .

                                              ਭ
        _________                                   ______________
             SG |_7_______________________________7_| SG   
            TXD>|_2_______________________________2_|>RXD
            DSR<|_6_______________________________6_|<DTR
                |                                   |

        室 ४  ਭ  ० ࠡ  ⮪ DTR,
      ᪮ ।  1200 ,  ஫ ⭮,   ⮯
      -⮬  ⮬᪨ ॢ ப   ⪨ .     
      ன ਭ 筮 ᯮ ய४⥫,  
       ᠭ  樨  ᯫ樨 ਭ.
        ।  ந室  ࠢ ᨣ DTR. ᫥ -
      祭  樠樨, ਭ ॢ  DTR  ﭨ "-





                                  - 11 -

      " .. +(3-12). , १  DSR 䥩 RS-232C,
      訢  DTR , ᫨  祭, 稭 ᫥⥫
      ।    TXD   RXD ਭ.  
       ਭ , ਭ 頥  ।
      , ॢ  DTR  ﭨ "" .. - (3-12).
      ᫥ ᢮  , ਭ ᭮ 砥  DTR.
       DTR  砥, ᫨ ਭ 室  ﭨ "OFFLINE"
      ( ⥫⢥ ,  㬠  ਨ). 
        奬 䥩 ਢ  .9 . 䥩 ।⠢ ᮡ
        ᮬ 63DC (3F HEX),  /뢮 ଠ樨  -
      襬 ࠧ 設  -D0.    室 ᯮ짮-
         奬  쨬 ﭨ  ᨥ, -
       5553  ...
       室  ᯮ짮   ࠭. ᮡ-
       奬  室 㯮୮ ⠭ 室
      ᪠.  ⢨   筨 ⥫쭮 殮,
       ᮡ ᫮ ८ࠧ⥫ 殮,  
       㭪 10.                                                  
        ணࠬ প 䥩 RS-232C  믮 -
       C LLIST  LPRINT.  ணࠬ ᯮ  孨 
         樠  RANDOMIZE USR 65100.
         祭 ᪨  ࠭  ᯮ짮
      ணࠬ "COPY" (.13).  ⮣, ᫥ 㧪  樠-
      樨 ணࠬ "RS-232C"  㧨 ணࠬ "CJPY"  믮
        ᫥騥 :
          POKE 23505,205: POKE 23506,114: POKE 23507,254: POKE 23508,201
      ஬ ⮣,  ⫨稥  ࠡ  ⥪⠬,  ਭ  
      몫祭 ० ⮬᪮ ॢ ப (LF)  
      ⪨ (R).   ᪨  ࠭  , 
        ࠫ쭮 䥩 - RANDOMIZE USR 23296. 
       ᨫ  䨪樨 ணࠬ "COPY".
       
                                R S - 2 3 2 C
           10 CLEAR 65099
           20 LOAD "RS-232C" CODE 65100                                               
           30 RANDOMIZE USR 65100
           40 STOP
           50 SAVE "RS-232C" LINE 10: SAVE "RS-232C" CODE 65100,105
           
       FE48              21 9E A1 22    FE88  A9 FE D1 1E 08 CB 1A 38
       FE50  1C 5C C9 58 FE C4 15 52    FE90  06 3E 0F D3 BF 18 04 00
       FE58  FE 17 20 04 3E 09 18 12    FE98  AF D3 BF CD A9 FE 1D 20
       FE60  FE 80 38 0E FE A5 30 04    FEA0  EC AF D3 BF CD A9 FE FB
       FE68  3E 3F 18 06 D6 A5 CD 10    FEA8  C9 C5 01 01 D9 10 FE 0D
       FE70  0C C9 F5 CD 54 1F 38 05    FEB0  20 FB C1 C9 00 5A CD 44
       FE78  F1 CF 0C 18 2A DB BF 1F    FEB8  F8 CD A0 FA
       FE80  38 F1 F3 3E 0F D3 BF CD








                                  - 12 -

                               .

          㦥 㡥,   ப ﬨ:
      - 256*192 祪  8 梥   ࠤ મ 
        ⭮ ணࠬ ᮧ 筮
      ࠧ⥫ 㤮⢥ ࠧ. 騬 㬥⮬  
      ⮣  ᢥ⮢  - ன⢮   ப ਬ-
       짮⥫ﬨ ஢  ⥬.   ० -
      ᪮ ।, ⠪   ࠡ  ⥪⮢ ᢥ⮢ 
          ᥢ ४⨢  ⢫
      ।⢥ ࠢ " ᠭ ".
          ன⢮ ࠧ஬  䫮  㦭 窥
      ࠭  ᢥ⢨⥫   襣  ""
       ࠧ⪨ ࠦ.  ணࠬ প, 㦥
        ,  ᨣ 祭  䥩 ᢥ⮢
      ᢥ⮢   筮 ⮭宦 㦭 窨 -
      . 奬 ᢥ⮢   䥩   ਢ  㭪 11.  
         ⮢ ᢥ⮢  㤮 ᯮ짮  
      䫮, 窨  .., ⠪ ࠧ, ⮡   
      室 ⢥  뫮 ࠧ ᢥ⢨⥫ .
      娥 १  ᯮ짮,  ⢥ ⠪ ,
      魮 ࠭  筮 ᮪ 樥⮬ ᨫ
      ਬ, 315,  ண 室 㤠   -
      . ࠭ ࠧ頥   ,  㪠  㭪.
      ⨬,    ࠭ ⭮⥫쭮 室 ⢥-
      , ᨫ쭮  ⢨⥫쭮  筮 ࠡ ᢥ⮢
      . ࠬ  ⠪   ஬ ࠭ 
      訬 h21. 
        ⮢  ᮥ  䥩ᮬ  ஢ 
      1 - 1,5 . 䥩 ।⠢ ᮡ  ( ᮬ 63DBC) 
       ଠ樨  設  D0.  믮  奬 
      3- ﭨﬨ - 1558. ࠢ쭮 ᮡ࠭ 奬 ॡ
      ⮫쪮  १ R3 (0,3-3,3 ),  롮 ண -
      ⢨⥫쭮.
         ஢ન ࠡᯮᮡ ᢥ⮢   ன 
      ⢨⥫쭮  ᯮ짮  ணࠬ:

           10 PRINT BRIGHT 1; AT 10,16;" "
           20 IF SIN((PI/2*IN63)=0 THEN BEEP 05,RND*50:BORDER RND*7
           30 GO TO 20
       
      ᫥  ணࠬ,  業 ࠭ ᢥ  
      襭 મ.  ᢥ⮢  ⨢ મ
      .  ࠢ쭮 ࠡ 奬   "", ᮯ-
        梥 . ⢨⥫쭮 ᢥ⮢
       㦭 ॣ㫨஢ ⠪, ⮡ "몠" ४頫  㤠-
         ࠭, .. ⮡  뫮  ࠡ뢠. ஬
      ⮣, ࠡ뢠 ᨫ쭮   મ ࠭ .
        樮 ணࠬ "LIGNT PEN", ਢ , -
      뢠,  ᢥ⮢   ᯮ짮  ࠡ  ࠭
      . 뢠 ஬  梥 אַ㣮쭨,  室 

 



                                  - 13 -

      㦭 ணࠬ,   砥  롮 梥.
        筮,    ணࠬ  業  २-
      ⢠ ᢥ⮢ .  ⮣ 室 ᯥ樠  
      ணࠬ, ᠭ  設 ,   ᢥ⮢ 
          256*192 祪 ࠭.   ⠪ 
      ணࠬ - ᪨ । LP48K ਢ  ਫ 2.

         10 REM <<<HTK "PLUS" 1990 >>>
         20 BORDER 0: INK 7: PAPER 0:BRIGHT 1: CLS
         30 FOR N=2 TO 27 STEP 5
         40 INK 7
         50 PRINT AT 1,N;"IIII";AT 2,N;"IIII"
         60 PRINT AT 3,N;"IIII";AT 4,N;"IIII"
         70 FOR S=0 TO 100
         80 IF IN 63=0 THEN GO SUB 150
         90 NEXT S
        100 BRIGHT 0: INK ((N-2)/5+1):PRINT AT 1,N;"IIII";AT 2,N;"IIII"
        110 PRINT AT 3,N;"IIII";AT 4,N;"IIII": BRIGHT 1
        120 PRINT AT 20,8;"<<< HTK PLUS >>>                        1990"
        130 NEXT N
        140 GO TO 30
        150 BEEP.1,N: PRINT AT 1,N;",',',',";AT 2,N;",',',',"
        160 PRINT AT 3,N;",',',',";AT 4,N;",',',',": PAUSE 50
        170 IF N=2 THEN GO TO 1000
        180 IF N=7 THEN GO TO 2000
        190 IF N=12 THEN GO TO 3000
        200 IF N=17 THEN GO TO 4000
        210 IF N=22 THEN GO TO 5000
        220 IF N=27 THEN GO TO 6000
       1000 BORDER 1: PRINT AT 11,13;"        ":PRINT AT 11,15: INK 1;"
            BLUE":RETURN
       2000 BORDER 2: PRINT AT 11,13;"        ":PRINT AT 11,16; INK 2;"
            RED":RETURN 
       3000 BORDER 3: PRINT AT 11,13"         ":PRINT AT 11,13; INK 3;"
            MAGENTA":RETURN
       4000 BORDER 4: PRINT AT 11,13;"        ":PRINT AT 11,14; INK 4;"
            GREEN":RETURN
       5000 BORDER 5: PRINT AT 11,13;"        ":PRINT AT 11,15; INT 5;"
            CYAN":RETURN
       6000 BORDER 6: PRINT AT 11,13;"        ":PRINT AT 11,14; INK 6;"
            YELLOW":RETURN
       9999 SAVE "LIGHT PEN" LINE 10










                                  - 14 -

                                     

        ﭭ 騥 ன⢠ () ப ਬ 
        ஭ 孨 -  ࠭ ணࠬ, -
      樨  ஢ ணࠬ  . .. 让  뢠 ᯮ-
       ९ணࠬ㥬  -   -࠭, ⠪   
       ⭮ १뢠 ᮤঠ   ଠ,
        譨 ᫮.  ࠭ ଠ樨  ⠪ ,
        筨 䨮⮢ 祭. 訥
      १   ᯮ, ਬ, ⮢ ᬥ-
      ᪨ ਡ "",  楢    "" -
       ଠ   15-20 ,  ﭨ  宬 1-2 .
         ணࠬ஢  室 ணࠬ - ᯥ樠쭮
      ன⢮ ஥  믮   ᠬ⥫쭮 
      ਡ,    ⠢  . । 襬 
       奬 ணࠬ -  ⠢   "",
       ।祭  ணࠬ஢  ப ਬ-
          2-  32- ,  ⢥, ⠪
       㡥 ந⢠.  奬 - 5732, 5735, 
      5734, 5736, 5738, 2716, 2764, 27128, 27256.
        奬  ਢ  ⠡ 3,   ⠡ 4 㪠-
       ᨣ  뢮 奬  ࠧ ० ࠡ. 

       3.
                            
          _______________________32  8________________________           
         |      _________________16  8__________________      |    
         |     |      ____________8  8____________      |     |  
         |     |     |      ______2  8______      |     |     |
      ___|_____|_____|___  |   ____________   |  ___|_____|_____|___
      | Vpp | Vpp | Vpp |  |   |1  |__| 28|   |  | Vcc | Vcc | Vcc |
      | A12 | A12 | A12 |__|__ |2-------27| __|__| PGM | PGM | A14 |
      | A7  | A7  | A7  | A7 | |3(1)(24)26| | Vcc| --  | A13 | A13 |
      | A6  | A6  | A6  | A6 | |4       25| | A8 | A8  | A8  | A8  |
      | A5  | A5  | A5  | A5 | |5       24| | A9 | A9  | A9  | A9  |
      | A4  | A4  | A4  | A4 | |6       23| | Vpp| A11 | A11 | A11 |
      | A3  | A3  | A3  | A3 | |7       22| | OE | OE  | OE  | OE  |
      | A2  | A2  | A2  | A2 | |8       21| | A10| A10 | A10 | A10 |
      | A1  | A1  | A1  | A1 | |9       20| | CS | CS  | CS  | CS  |
      | A0  | A0  | A0  | A0 | |10      19| | D7 | D7  | D7  | D7  |
      | D0  | D0  | DO  | DO | |11      18| | D6 | D6  | D6  | D6  |
      | D1  | D1  | D1  | D1 | |12      17| | D5 | D5  | D5  | D5  |
      | D2  | D2  | D2  | D2 | |13      16| | D4 | D4  | D4  | D4  |
      | Gnd | Gnd | Gnd | Gnd| |14(12)  15| | D3 | D3  | D3  | D3  |
      |_____|_____|_____|____| |__________| |____|_____|_____|_____|

        奬 ணࠬ 믮  ணࠬ㥬 䥩᭮
       58055.  8- ࠧ來    ᠬ
      1F, 3F, 5F (NEX) ᯮ  /뢮   ନ஢-
        .  ࠢ  - CS, OE, PGM - ନ
        ⥫쭮 ॣ 1551  ᮬ EF(NEX). 
      ॣ ࠢ  - 7F(NEX).   ,  
      ᨣ ࠢ  祭  28- ᭮ ࠧꥬ (-
      , ᮪), ᯥ稢饬  ⠪  뢮 ⠢塞



                                  - 15 -

        4
       _______________________________________________________________
       |___2__8____|___8__8____|___16__8___|___32__8___| |
       |⥭||⥭||⥭||⥭||뢮|
       | ---- | ---- | +5  | Vpp  | +5B  | Vpp  | +5B  | Vpp  |  1   |
       |   0  | _||_ |   0  |   0  |   0  |   0  |   0  |  0   |20(18)|
       |   0  |  1   |   0  |   1  |   0  |   1  |   0  | _||_ |22(20)|
       | +5B  | Vpp  |  A11 |  A11 |  A11 |  A11 |  A11 |  A11 |23(21)|
       | +5B  | +5B  |  --- |  --- |  A13 |  A13 |  A13 |  A13 |26(24)|
       |  --- | ---  |   1  | "||" |   1  | "||" |  A14 |  A14 |  27  |
       |______|______|______|______|______|______|______|______|______|

        Vpp - 殮 ணࠬ஢, । ମ ⮢-
      ⥫ 奬.  Vpp 㪠뢠   奬,
      ਬ PGM 12,5B.  

        奬.  ᮢ  ᨣ ࠢ 
      ࠧ ⨯  ⢫   ४⥫ 2.
      奬 5732, 5,  2716  24 뢮  ⠢
       ࠧꥬ  ᬥ饭 (ᬮ ⠡ 3).    
      㣨 ࠧ - ⠭   ணࠬ  ⨯
      ࠧꥬ  奬  ᮮ⢥⢥ ᪮஢ .
       ⮬ 砥 ४⥫ 2  㦥.  ⢥ ࠧꥬ 
        ᯮ짮 ᠬ, ⮢  ࠧꥬ ⨯
      . 奬   ⠢  ࠧꥬ  뭨  
      ⮫쪮  ।  ४⥫ 1.  ⮬ 
       ࠧꥬ   騥 殮.  㣨 
      ४⥫ 1 㦠  롮 ० - ⥭  
      (ணࠬ஢).
        ணࠬ 㦨 ணࠬ ⮨  , ᠭ
       몥 ᨪ   463 ⮢ 設 . ணࠬ  ᨪ
      ন ࠪ⨢ ०    ᪮쪨 .
        設  ᮤঠ ணࠬ: ⥭,   
      ஢.  ணࠬ 室    
       ࠭  ⭮ .
        ᫥ 㧪 ணࠬ  ࠭   - "Load
      MONITOR (Y/N)?". 㦭 ⢥ Y, ᫨  ᯮ ணࠬ
       (ਫ 3). ᫥  Y  Enter  㤥 ⮢
       㧪 . ᫨   N  Enter,   ࠧ -
        砫 ࠡ ணࠬ.  ࠭ - "Programming 2716,
      2764, 27128, 27256"   - "Read or Wnle or Test or Verify" - 
       ० CAPS LOCK   ᨬ ࠭  ०:
       - R - ० ⥭     ;
       - W - ० ணࠬ஢  ଠ樥   ;
       -  - ० ஢ન "" . ""  ᮤন  ᥬ
             ᠬ  FF(HEX);
       - V - ० ࠢ ᮤন   ᮤন  .
           ⢥   ० ࠡ 
      ணࠬ  32,   8000(NEX)  FFFF(NEX). ᫨ 
      ᯮ  ࠡ  ணࠬ஬ ,  ࠡ 
       ᮪頥  "孨" 4,5 , .. 8000 - 6. 
        ᫥ 롮 ०, ਬ, W  Enter  室 
      ⨯ 奬.  :



                                  - 16 -

       - 1 -  ࠡ  奬 2716  5372, 5375;
       - 2 -  ࠡ  奬 2764  5374;
       - 3 -  ࠡ  奬 27128  5376;
       - 4 -  ࠡ  奬 27256  5378.
         ४⥫ 2  ᮮ⢥⢮ 롮 ⨯ 
      奬. ⥬  室  砫    
      ணࠬ㥬 奬.    ⭠筮 (NEX)
       4- ᨬ, ..  , ਬ 01FF. 筮 -
       砫  ࠡ祩   (RAM fddres ....)
       ன ᯮ ଠ  ணࠬ஢.  
      "Correct (Y/N) ?"  ⢥砥 Y, Enter, ᫨ ࠭  ଠ-
        ॡ ४஢,  ⨢ 砥 - N. ⥬  -
         "Insert chip - Ready? - Press any key". 
       室 ⠢  ࠧꥬ 奬 , ४⥫ 1
      ⠭   "PGM"      砫 ணࠬ-
      ஢.   ᪨ ⮡ࠦ  ࠭.  砥
      訡  ணࠬ஢  ࠭  訡 
       . 㣨 ० 믮 筮.
        ᫨  ᯮ ணࠬ     ᠬ⥫쭮 
      ⠢ ணࠬ  設 ,     ⮬ 
        "" - ਪ ணࠬ,  -
       ணࠬ஢, ⫠  ᥬ஢ ணࠬ  
      設 .  ணࠬ ਢ   3.
        ਬ ணࠬ - 㢥祭 ⥩ ᠬ
      . 
             
                                   P R O G +
             5 GO TO
            10 CLEAR 31999: LOAD " "CODE: INPUT "      Load MONITOR (Y/N) 
               ?";M$:IF M$="N" THEN GO TO 30 
            20 IF M$="Y" THEN LOAD " "CODE
            30 CLS:PRINT AT 0,10:"PROGRAMMING"
            50 PRINT AT 2,5;"2716,1764,27128,27256"
            60 INPUT "Read or Write or Test or Verify";Q$
            70 IF Q$="R" THEN PRINT AT 5,8;" READ ": GO TO 120
            80 IF Q$="W" THEN PRINT AT 5,8;" WRITE": GO TO 120
            90 IF Q$="T" THEN PRINT AT 5,8;" TEST ": GO TO 120
           100 IF Q$="V" THEN PRINT AT 5,8;"VERIFY": GO TO 120
           110 GO TO 60
           120 INPUT "     INPUT    1-2716, 2-2764, 3-27128, 4-27256";Q
           130 IF Q=1 THEN PRINT AT 5,17;"2716": GO SUB 3500: GO TO 180
           140 IF Q=2 THEN PRINT AT 5,17;"2764": GO SUB 3600: GO TO 180
           150 IF Q=3 THEN PRINT AT 5,17;"27128": GO SUB 3600: GO TO 180
           160 IF Q=4 THEN PRINT AT 5,17;"27256": GO SUB 3700: GO TO 180
           170 GO TO 120
           180 PRINT AT 8,1;ROM addres from ";:DIM W$(4):INPUT W$: GO SUB
               5000: GO SUB 6000
           190 POKE 32117,R: POKE 32190,R: POKE 32314,R
           200 POKE 32118,E: POKE 32191,E: POKE 32315,E
           250 GO SUB 7000: PRINT I$
           260 PRINT AT 8,22;"to";:DIM W$(4): INPUT W$: GO SUB 5000: GO
               SUB 6000
           270 POKE 32120,R: POKE 32193,R: POKE 32317,R
           280 POKE 32121,E: POKE 32194,E: POKE 32318,E
           330 GO SUB 7000: PRINT I$



                                  - 17 -

           335 IF Q$="T" THEN GO TO 420
           340 PRINT AT 10,1;"RAM adress irom ";:DIM W$(4): INPUT W$: GO
               SUB 5000: GO SUB 6000
           350 POKE 32123,R: POKE 32196,R: POKE 32334,R
           360 POKE 32124,E: POKE 32197,E: POKE 32335,E
           410 GO SUB 7000: PRINT I$
           420 INPUT "      CORRECT (Y/N) ?      ";P$
           430 IF P$="N" THEN GO TO 30
           440 IF P$="Y" THEN PRINT AT 14,10;"Insert chip          READY ?
                    Press any key":PAUSE 0: GO TO 460
           450 GO TO 420
           460 IF Q$="R" THEN GO TO 1000
           470 IF Q$="W" THEN GO TO 1500
           480 IF Q$="T" THEN GO TO 2000
           490 IF Q$="V" THEN GO TO 2500  
          1000 POKE 32009,119: RANDOMIZE USR 32112
          1020 PRINT FLASH 1;AT 21,15;"END":PRINT "  For continue press
               any key":PAUSE 0:GO TO 30
          1500 RANDOMIZE USR 32304
          1510 IF PEEK 32463=255 THEN PRINT FLASH 1;AT 21,15;"END":
               PRINT "For continue press any key":PAUSE 0:GO TO 30
          1520 PRINT AT 18,1;"ROM adress   ":LET U=PEEK 32394+256*PEEK 
               32395: GO SUB 7010:PRINT AT 18,13;I$
          1530 PRINT AT 18,20;"ROM data  ":LET D=PEEK 32095:GO SUB 7500:
               PRINT AT 18,30;S$
          1540 PRINT AT 19,1;"RAM adress  ":LET U=PEEK 32400+256*PEEK
               32401:GO SUB 7010: PRINT AT 19,13;I$
          1550 PRINT AT 19,20;"RAM data  ":LET D=PEEK (PEEK 32400+256
               *PEEK 32401):GO SUB 7500:PRINT AT 19,30;S$
          1560 INPUT "   Continue (Y/N) ?   ";G$
          1570 IF G$="N" THEN GO TO 30
          1580 IF G$="Y" THEN RANDOMIZE USR 32384: GO TO 1510
          2000 POKE 32009,0: POKE 32210,254: POKE 32211,255
          2030 RANDOMIZE USR 32176
          2040 IF PEEK 32303=255 THEN PRINT FLASH 1;AT 21,15;"END":
               PRINT For continue press any key": PAUSE 0:GO TO 30
          2050 PRINT AT 18,1;ROM adress    ": LET U=PEEK 32249+256*PEEK
               32250: GO SUB 7010:PRINT AT 18,13;I$
          2060 PRINT AT 18,20;"ROM data  ":LET D=PEEK 32015:GO SUB 7500:
               PRINT AT 18,30;S$
          2070 INFUT "     Continue (Y/N) ?  ";H$
          2080 IF H$="Y" THEN RANDOMIZE USR 32240: GO TO 2040
          2090 IF H$="N" THEN GO TO 30
          2100 GO TO 2070
          2500 POKE 32009,0: POKE 32210,0: POKE 32211,190
          2530 RANDOMIZE USR 32176 
          2540 IF PEEK 32303=255 THEN PRINT FLASH 1;AT 21,15;"END":
               PRINT "For continue press any key": PAUSE 0: GO TO 30
          2550 PRINT AT 18,1;"ROM adress   ":LET U=PEEK 32249+256*PEEK 
               32250: GO SUB 7010: PRINT AT 18,13;I$
          2560 PRINT AT 18,20;"ROM data   ":LET D=PEEK 32015:GO SUB 7500:
               PRINT AT 18,30;S$
          2570 PRINT AT 19,1;"RAM adress   ":LET U=PEEK 32255+256*PEEK
               32256:GO SUB 7010:PRINT AT 19,13;I$



                                  - 18 -

          2580 PRINT AT 19,20;"RAM data   ":LET D=PEEK (PEEK 32255+256*
               PEEK32256):GO SUB 7500:PRINT AT 19,30;S$
          2590 INPUT "    Continue (Y/N) ?  ";J$
          2600 IF J$="N" THEN GO TO 30
          2610 IF J$="Y" THEN RANDOMIZE USR 32240:GO TO 2540
          2620 GO TO 2590
          3500 POKE 32001,8:POKE 32011,10: POKE 32046,2: POKE 32050,3
          3510 POKE 32068,10: POKE 32082,8:POKE 32091,10:RETURN
          3600 POKE 32001,12: POKE 32011,15: POKE 32046,6:POKE 32050,2
          3610 POKE 32068,15: POKE 32082,12: POKE 32091,15:RETURN
          3700 POKE 32001,8: POKE 32011,9: POKE 32046,0:POKE 32050,2
          3710 POKE 32068,9: POKE 32082,8: POKE 32091,9:RETURN
          5010 LET T=0 
          5020 FOR Y=1 TO 4
          5030 LET T=T+16^(4-Y)*(CODE W$(Y)-48-7*(CODE W$(Y)>57))
          5040 NEXT Y
          5050 POKE 32030,INT (T-(INT (T/256))*256)
          5060 POKE 32031,INT (T/256)
          5070 RETURN
          6000 LET W=PEEK 32030+256*PEEK 32031
          6010 LET E=INT (W/256)
          6020 LET R=INT (W-(E*256))
          6030 RETURN      
          7000 LET U=PEEK 32030+256*PEEK 32031
          7010 DIM I(4): DIM I$(4)
          7020 LET I(1)=INT (U/4096)
          7030 LET U=U-I(1)*4096
          7040 LET I(2)=INT (U/256)
          7050 LET U=U-I(2)*256
          7060 LET I(3)=INT (U/16)
          7070 LET I(4)=U-I(3)*16
          7080 FOR O=1 TO 4
          7090 LET I$(O)=CHR$ (I(O)+48+7*(I(O)>9))
          7100 NEXT O
          7110 RETURN 
          7500 DIM S(2): DIM S$(2)
          7510 LET S(1)=INT (D/16)
          7520 LET S(2)=INT (D-S(1)*16)
          7530 FOR F=1 TO2
          7540 LET S$(F)=CHR$ (S(F)+48+7*(S(F)>9))
          7550 NEXT F
          7560 RETURN      
          9999 SAVE "PROG+" LINE 10:SAVE "PROG+"CODE 32000,500:SAVE 
               "MONITOR"CODE 61000,4535:STOP
      
        7D00  3E 00 D3 EF DB 1F 32 0F   7DE8  00 00 00 00 00 00     0
        7D08  7D 00 3E 00 D3 EF C9 00   7DF0  C5 D5 E5 F5 3E 90 D3 7F
        7D10  00 00 00 00 00 00 00 00   7DF8  01 00 00 11 00 00 21 00
        7D18  00 00 00 00 00 00 00 00   7E00  00 78 AA 20 1B 79 AB 20
        7D20  3E 80 D3 7F 7E D3 1F 78   7E08  17 3E FF 32 2F 7E F1 E1
        7D28  D3 3F 79 D3 5F 3E 00 D3   7E10  D1 C1 C9 00 00 00 00 00     
        7D30  EF 3E 00 D3 EF 3E 55 32   7E18  00 00 00 00 00 00 00 00
        7D38  18 7D 32 18 7D 32 18 7D   7E20  03 23 18 A2 00 00 00 00
        7D40  3D 20 F4 3E 00 D3 EF 3E   7E28  00 00 00 00 00 00 00 00



                                  - 19 -

        7D48  90 D3 7F 78 D3 3F 79 D3   7E30  C5 D5 E5 F5 3E 00 32 CF
        7D50  5F 3E 00 D3 EF DB 1F 32   7E38  7E 01 00 00 11 00 00 7A
        7D58  5F 7D 3E 00 D3 EF 3E 00   7E40  32 F1 40 32 F1 41 7B 32
        7D60  BE C9 00 00 00 00 00 00   7T48  F2 40 32 F2 41 21 00 00 
        7D68  00 00 00 00 00 00 00 00   7E50  78 32 F1 43 32 F1 44 79
        7D70  C5 D5 E5 F5 01 00 00 11   7E58  32 F2 43 32 F2 44 3E 33
        7D78  00 00 21 00 00 3E 90 D3   7E60  3D 32 5F 7E 32 EC 43 32
        7D80  7F 78 D3 3F 79 D3 5F CD   7E68  EC 44 20 3C 22 90 7E ED
        7D88  00 7D 78 AA 20 09 79 AB   7E70  53 8D 7E ED 43 8A 7E F1
        7D90  20 05 F1 E1 D1 C1 C9 03   7E78  E1 D1 C1 C9 00 00 00 00
        7D98  23 18 E6 00 00 00 00 00   7E80  C5 D5 E5 F5 3E 33 32 5F
        7DA0  00 00 00 00 00 00 00 00   7E88  7E 01 00 00 11 00 00 21
        7DA8  00 00 00 00 00 00 00 00   7E90  00 00 18 16 00 00 00 00 
        7DB0  C5 D5 E5 F5 3E 90 D3 7F   7E98  CD 20 7D 2O C1 3E FF 32
        7DB8  3E 00 32 2F 7E 01 00 00   7EA0  36 7D CD 20 7D 3E 55 32
        7DCO  11 00 00 21 00 00 78 D3   7EA8  36 7D 78 AA 20 12 79 AB
        7DC8  3F 79 D3 5F CD 00 7D 3A   7EB0  20 0E 3E FF 32 CF 7E F1
        7DD0  OF 7D 00 00 28 2B 22 FF   7EB8  E1 D1 C1 C9 00 00 00 00 
        7DD8  7D ED 53 FC 7D ED 43 F9   7EC0  03 23 3E 33 32 5F 7E C3
        7DE0  7D F1 E1 D1 C1 C9 00 00   7EC8  50 7E 00 00 00 00 00 00 




                                  - 20 -
                                                          ਫ 1
                           ணࠬ HEX .
        ணࠬ ।祭  /⥭  ।஢ -
       ⨢   ⭠筮 . ਮࠬ
      室         
      RUN 9999. ᫥  ணࠬ  ࠭   
      "Input start address". 室  4-  HEX 
      ࢮ  ணࠬ  設 ,   㤥 -
         . ᫥  砫쭮  ணࠬ
      뢥  ࠭  , ᮤঠ騥  ⮬  
      , 㤥      .  HEX  
       Enter.     ࠭. ᫨  Enter
        ,   ३  ᫥饬 .  室
       ।饬  ᯮ  U. ᫨  稫 
       ,   ࠭    ᯮ  S.
      ᫥  S  室   ணࠬ, 砫 
         .

       10 CLEAR 32767: PRINT AT 7,11;"H E X input"
       20 PRINT FLASH 1;AT 11,10;"H T K  P L U S"
       30 PRINT AT 17,11;"Use CAPS LOCK"
       40 DIM W$(4)
       50 INPUT "        Input start fddress        ";W$: GO SUB 400
       90 CLS
      100 LET D=T: DEF FN A(A$,B)=CODE A$(B)-48-7*(CODE A$(B)>57)
      110 DEF FN C(A$)=16*FN A(A$,1)+FN A(A$,2)
      120 DEF FN G$(F)=CHR$ (F+48+7*(F>9))
      130 DEF FN H$(E)=FN G$(INT (E/16))+FN G$(E-16*INT (E/16))
      140 DIM A$(2)
      150 PRINT " Use ENTER to step forward"
      160 PRINT " Use U @ ENTER to step backwards"
      170 PRINT " Use S @ ENTER to SAVE code"
      180 PRINT 
      190 PRINT "ADDRESS DATA NEW DATA":PRINT
      200 PRINT TAB 2;FN H$(INT (D/256));FN H$(D-256*INT (D/256)):TAB10;
          FN H$(PEEK D);
      210 INPUT A$
      220 LET L=1
      230 IF A$(1)="U" THEN LET L=-1: GO TO 260
      240 IF A$(1)="S" THEN GO TU 290
      250 IF A$(1)<>CHR$ 32 THEN POKE D,FN C(A$)
      260 PRINT TAB 18;FN H$(PEEK D)
      270 LET D=D=L
      280 GO TO 200
      290 CLS :PRINT "SAVE "; CHR$ 34;:INPUT "     Input name program  "
          ;N$: PRINT N$;CHR$ 34;"CODE ":
      300 INPUT "  Input start address program";W$: GO SUB 400: LET
          B=T: PRINT B;",":
      310 INPUT "   Input end address program ";W$: GO SUB 400: LET
          L=T: PRINT L-B
      320 SAVE N$ CODE B,L-B: PRINT FLASH 1;AT 17,16;"END": PRINT
          AT 21,3;"For continue press any key":PAUSE 0:GO TO 10
      390 SAVE N$ CODE B,L-B: GO TO 10
      400 LET T=0
      410 FOR Y=1 TO 4
      420 LET T=T+16^94-Y)*(CODE W$(Y)-48-7*(CODE W$(Y)>57))
      430 NEXT Y
      440 RETURN
     9999 SAVE "HEX input" LINE 10 



                                  - 21 -
                                                          ਫ 2
                             ணࠬ LP48K.

       10 BORDER 7: PAPER 7: INK 0: CLS
       20 GO TO 120
       30 PRINT AT 0,0;"  LIGHT PEN by Roy Eastwood"
       40 PRINT "   Aktronics 1983 "
       50 RETURN
       70 CLEAR 59059: PRINT INK 6; PAPER 1; AT 4,9;"Please Wait":
          LOAD""CODE 59060
       80 BORDER 7: PAPER 7:INK 0: CLS
       90 PRINT FLASH 1; AT 4,9;"STOP THE TAPE"
      120 PRINT AT 18,0;"PRESS THE C KEY TO CALIBRATE.        THE K KEY
          TO RETAYN KEPT       SCREENS,               OR ANY KEY TO CON
          TINUE.
      130 GO SUB 0030
      140 PAUSE 0
      160 IF INKEY$="c" OR INKEY$="C" THEN GO TO 0200
      170 IF INKEY$="K" OR INKEY$="k" THEN PAPER 0: INK 7: BORDER 0: CLS
      180 CLEAR 59059:RANDOMIZE USR 59481
      190 STOP
      200 RANDOMIZE USR 63290
      210 IF INKEY$<>""THEN GO TO 0210
      220 CLS: GO TO 0120
     9999 SAVE "LP 48 V4:1" LINE 70: SAVE "LPMC48"CODE 59060,6475: STOP

          E6B0           00 21 E7 FF FF 00 00 FE 02 28 1F CD FC
          E6C0  E6 C2 00 ED CD 32 E9 2A 59 5C 01 51 00 CD 5A 16
          E6D0  ED 5B 59 5C 21 80 E7 01 51 00 C3 16 ED CD FC E6
          E6E0  C2 7A ED CD 32 E9 2A 59 5C 01 51 00 CD 5A 16 ED
          E6F0  5B 59 5C 21 D1 E7 01 51 00 C3 16 ED 2A B7 5C 11
          E700  F0 01 A7 ED 52 C0 11 3E E7 01 42 00 CD 3C 20 AF
          E710  32 30 F2 CD 22 EC CB 3F 28 F9 FE 02 28 F5 FE 03
          E720  C9 32 46 E8 7B 32 4E E8 2A 59 5C 01 41 00 CD 5A
          E730  16 ED 5B 59 5C 21 22 E8 01 33 00 C3 B5 F1 16 00
          E740  00 53 45 4C 45 43 54 20 2D 20 20 20 54 41 50 45
          E750  20 20 20 20 20 20 4D 49 43 52 4F 44 52 49 56 45
          E760  20 20 20 20 20 20 20 20 20 20 20 20 20 8F 8F 20 
          E770  20 20 20 20 20 20 20 20 20 20 8F 8F 20 20 20 20
          E780  E9 66 24 28 31 30 0E 00 00 0A 00 00 29 3A EE 22
          E790  16 00 00 53 41 56 45 20 53 43 52 45 45 4E 20 2D
          E7A0  20 65 6E 74 65 72 20 6E 61 6D 65 20 22 27 66 24
          E7B0  3A F8 2A 22 6D 22 3B 31 0E 00 00 01 00 00 3B 66
          E7C0  24 AA 3A F9 C0 31 32 33 34 35 0E 00 00 23 ED 00
          E7D0  0D E9 66 24 28 31 30 0E 00 00 0A 00 00 29 3A EE
          E7E0  22 16 00 00 4C 4F 41 44 20 53 43 52 45 45 4E 20
          E7F0  2D 20 65 6E 74 65 72 20 6E 61 6D 65 20 22 27 66
          E800  24 3A EF 2A 22 6D 22 3B 31 0E 00 00 01 00 00 3B
          E810  66 24 AA 3A F9 C0 31 32 33 34 35 0E 00 00 23 ED
          E820  00 0D EE 22 16 00 00 4C 45 54 54 45 52 53 20 2D
          E830  20 65 6E 74 65 72 20 74 65 78 74 22 27 6C 24 3A
          E840  F5 AC 30 0E 00 00 13 00 00 2C 30 0E 00 00 0D 00
          E850  00 3B 6C 24 3A 31 CD 3A F7 CD 70 F2 C3 7D E8 CD
          E860  B8 F2 C3 7D E8 CD 64 F4 3E AF B8 38 06 2A CA EA
          E870  22 96 E8 DC E8 F1 ED 43 CA EA CD A2 EA CD F2 E8
          E880  28 FB 1B CD 1E 03 30 F5 CD A2 EA 3E 7F DB FE 1F
          E890  38 D3 CD 32 E9 C9 35 2B CD 32 E9 3E 01 CD 01 16
          E8A0  06 02 CD 44 0E 11 F9 E8 01 25 00 CD 3C 20 CD F2
          E8B0  E8 28 FB 11 20 E9 01 12 00 CD 3C 20 3E 02 CD 01
          E8C0  16 CD F2 E8 20 FB CD 64 F4 3E AF B8 30 01 47 ED
          E8D0  43 7D 5C CD 64 F4 3E AF B8 30 01 47 C5 CD FE F6
          E8E0  CD F2 E8 C1 28 E9 CD 32 E9 CD C3 E9 CD F2 E8 20
          E8F0  FB C9 CD 8E 02 13 7A B3 C9 16 00 00 12 01 13 00
          E900  50 72 65 73 73 20 61 20 6B 65 79 20 74 6F 20 73
          E910  74 61 72 74 20 73 6B 65 74 63 68 69 6E 67 12 00
          E920  16 00 11 6F 70 12 00 20 20 20 20 20 20 20 20 20
          E930  20 20 CD 87 EA 2A C1 E9 7C D6 03 30 01 AF 67 7D
          E940  D6 03 30 01 AF 6F 22 7D 5C 11 C1 E9 1A 95 C6 02
          E950  4F 85 30 05 3C 0D 3D 20 FC 13 1A 94 C6 02 47 84
          E960  D6 B0 38 05 3C 05 3D 20 FC 11 01 01 CD 1C F7 2A
          E970  C1 E9 7C D6 03 30 01 AF 67 7D C6 03 30 02 3E FF
          E9B0  6F 22 7D 5C 11 C1 E9 1A 4F 7D 91 C6 02 4F 7D 91
          E990  30 05 3D 0D 3C 20 FC 13 1A 94 C6 02 47 B6 D6 B0
          E9A0  38 05 3C 05 3D 20 FC 11 FF 01 CD 1C F7 3E C0 FD
          E9B0  A6 54 FD 77 54 FD 77 56 FD CB 57 BE FD CB 57 86
          E9C0  C9 7F 57 3E 01 CD 01 16 11 D7 E9 01 43 00 CD 3C
          E9D0  20 3E 02 CD 01 16 C9 16 00 00 45 20 44 20 4D 20
          E9E0  43 20 52 20 46 20 48 20 42 20 49 20 50 20 4E 20
          E9F0  54 20 48 20 72 20 41 20 4C 20 8F 20 8F 20 8F 20
          EA00  8F 20 8F 20 8F 20 8F 20 8F 20 8F 20 8F 20 8F 20
          EA10  8F 20 8F 20 8F 20 8F 20 8F 20 3E 01 CD 01 16 11
          EA20  2E WA 01 55 00 CD 3C 2O 3E 02 CD 01 16 C9 16 00
          EA30  00 50 6F 69 6E 74 20 74 6F 20 63 6F 6C 6F 75 72
          EA40  20 61 6E 64 20 70 72 65 73 73 20 61 20 6B 65 79
          EA50  2E 13 01 10 00 8F 8F 8F 8F 10 01 8F 8F 8F 8F 10
          EA60  02 8F 8F 8F 8F 10 03 8F 8F 8F 8F 10 04 8F 8F 8F
          EA70  8F 10 05 8F 8F 8F 8F 10 06 8F 8F 8F 8F 10 07 8F
          EA80  8F 8F 8F 10 00 13 00 3E 02 CD 01 16 FD CB 57 CE
          EA90  FD CB 57 C6 3E C0 FD F6 54 C6 3F FD 77 54 FD 77
          EAA0  56 C9 CD D7 EA ED 4B CA EA C5 0E 00 CD E5 22 01
          EAB0  FF 00 11 01 00 CD 1C F7 C1 06 00 CD E5 22 01 00
          EAC0  AF 11 00 01 CD 1C F7 C3 AD E9 6D 13 3E FB FD A6
          EAD0  57 21 31 F2 B6 FD 77 57 C9 CD 32 E9 CD CC EA ED
          EAE0  4B CA EA CD E5 22 ED 48 C1 E9 CD FE F6 CD 32 E9
          EAF0  C3 B8 E9 2A CA EA E5 CD 32 E9 E1 22 C1 E9 CD 32
          EB00  E9 C9 CD CC EA 3A CA EA ED 48 C1 E9 C5 91 30 02
          EB10  2F 3C CD 28 2D EF 31 04 38 3A CB EA C1 C5 90 30
          EB20  02 2F 3C CD 28 2D EF 31 04 0F 28 38 CD D5 2D 4F
          EB30  E1 7D 81 38 34 7D 91 38 30 7C 81 FE B0 30 2A 7C
          EB40  91 38 26 7D 32 51 EB 7C 32 56 EB C5 EF 34 40 B0
          EB50  00 7F 34 40 B0 00 57 38 C1 79 CD 28 2D D9 E5 D9
          EB60  CD 2D 23 D9 E1 D9 C3 B8 E9 3E 01 CD 01 16 11 82
          EB70  EB 01 43 00 CD 3C 20 CD F2 E8 28 F8 CD C3 E9 C3
          EB80  B8 E9 16 00 00 52 61 64 69 75 73 20 6F 66 20 63
          EB90  69 72 63 6C 65 20 69 73 20 74 6F 6F 20 62 69 67
          EBA0  20 2D 20 20 20 72 65 2D 70 6F 73 69 74 69 6F 6E
          EBB0  20 70 65 6E 20 61 6E 64 20 74 72 79 20 61 67 61
          EBC0  69 6E 2E 2E 2E CD 32 E9 CD CC EA ED 4B C1 E9 ED
          EBD0  43 7D 5C 3A CA EA 4F CS CD FE F6 C1 3A CB EA 47
          EBE0  C5 CD FE F6 C1 3A C1 E9 4F C5 CD FE F6 C1 3A C2
          EBF0  E9 47 CD FE F6 CD 32 E9 C3 D8 T9 CD 32 E9 3E 02
          EC00  CD 01 16 ED 4B CA EA ED 43 7D 5C 00 00 00 CD CF
          EC10  F6 00 ED 43 7D 5C 1E FF 00 00 00 CD 32 E9 C9 CD
          EC20  1A EA CD F2 E8 28 FB CD 64 F4 3E AF B8 30 F8 79
          EC30  06 05 CB 3F 10 FC F5 3A 30 F2 A5 C4 C3 E9 F1 C9
          BC40  CD 1F EC CD 9B 22 3A 30 F2 A7 C4 C3 E9 C9 CD 1F
          BC50  EC 4F 3E F8 FD A6 53 B1 FD 77 53 CD 4D 0D FD CB
          EC60  57 AE C9 CD 1F EC 4F FD 7E 53 0F 0F 0F E6 F8 81
          EC70  07 07 07 FD 77 53 FD CB 57 BE C9 3E 02 CD 01 16 
          EC80  CD 6B 0D 26 57 2E 7F 22 C1 E9 22 CA EA CD C3 E9
          EC90  






















































































































































