              :
  "⥬ ணࠬ  ZX Spectrum.
                  3",
    "஫ ", ਭ, 1993



               LASER-BASIC



   LASER-BASIC (LB) - ।⢮ ७
⠭⭮ ᨪ ( ROM ZX).  
室 䨪, ⨯,
᪨ ꥪ⮢.
   LB  ᮧ ᨬ ணࠬ
(     ZX
SPECTRUM  ⢥ १). 
 LB,  ⥫쭮 㢥-
稢 ᪮ 믮 権  
ॡ ⢨ .



  _____________________

   LB   ⮬᪨ ९ᠭ
 ਤ தࠩ, ᫨
ᯮ짮   権 
稪. ᫥ 㧪 ⬮ 
S. 室騥 䠩  ᠭ 
தࠩ.  ⮬ 㤥 室
⠭  ᪠  
㪠.
   㧨  தࠩ  
:

LOAD *"";1;"LASER"

     ࠡ  தࠩ 
 ஡. ᫨ ந室 訡,
ਬ "FILE NOT FOUND",  ࠢ
।  LB,  ⠭⭮ ᨪ.
  ⮬ 㧭  ⮬,  ⠭
ᯮ   ७
. ⮡ ।  LB,  
ENTER, ᫨  ,  RANDOMIZE USR
58830  ENTER.  ࠩ 砥 RANDOMIZE
USR 58820.


______________________________

    -  ࠢ塞 ᪨
ꥪ, LB    255
ࠩ⮢,   ࠧ,
।塞 짮⥫. 
ࠩ⮢   ⢮   ꥬ
᢮ .  LB ਫ
ணࠬ- ࠩ⮢ (). ᫥
ᮧ ࠩ⮢    
  ਤ    
०:
   1. ࠩ  ᯮ짮 ⮫쪮
 .
   2. ࠩ  ᯮ짮 ⮫쪮
 LB.
     ⮢ ࠩ⮢ ( ०
2)   ਫ -  SPRITE 2A 
SPRITE 2B.

     -   , 
 ६묨:
COL -  0  31;
ROW -  0  23;
LTN -  1  32;
HGT -  1  24;
   COL  ROW 㪠뢠   ⮫ 
 ப ⭮⥫쭮  孥
㣫 ࠭.
   :

.ROW=5 : .COL=6 : .HGT=4 : .LEN=3 : .INVV

     -   ࠩ,
 ६묨: SPN. SCL, SRW, HGT,
LEN.
SPN - 㪠뢠  N ࠩ.
SCL  SRW - । ⮫  ப
 ࠩ.
HGT  LEN - ࠧ   ࠩ.
   ᫨  ⠪ ࠧ 
室  । ࠩ,   
室,  ᮮ饭  訡 
뤠.


     -   , 
ன ࠭   ࠩ. 
 ࠭ - 56575,  ࠭ -
.   :

PRINT PEEK (62464)+256*PEEK (62465)



LET = (62464) : PRINT X


   RAMTOP
    ࠩ ࠭  
  ᥪ ࠭ RAMTOP,
 ।:

PRINT PEEK (23730)+256*PEEK (23731)



LET = (23730) : PRINT X

      ࠩ 室:
9*HGT*LEN+5 ⮢.
   筮  ⮨   室 
RAMTOP, ஬  砥,  ࠩ
ᮧ  ६ ࠡ ணࠬ १
.ISPR  .SPRT. ஢  믮
ਢ묨  ᫥ﬨ.
    ४㥬 ᭠砫 ᮧ ࠩ
  ࠩ⮢,  ⥬ 㦠 
⢥     
᫥ ᯮᮡ:

CLEAR (N-1)
LOAD "FN" CODE (N)
POKE 62464,N

 N -  砫  ࠩ⮢,
a "FN" -  䠩,  䠩 ࠩ⮢
 㧪   . ⮢ 
 ࠩ⮢ -  訩  
䠩 ࠩ⮢,  ⠪  .


 
     䨪 ࠧ஬ 
 ⠭ ᨬ ᮤন 8 x 8
祪  ᥫ,   
।⠢ ⮬  .
   ᥫ -  窠. ᫨  祭,
  梥 INK,  ᫨  몫祭 -
PAPER.


 
   ਡ 梥 INK  PAPER,  ⠪
ࠬ BRIGHT  FLASH ࠢ
ᯥ樠묨 ⠬  뢠
ਡ⠬.


   
    樨,   
 ࠭, 뢠 . 
樨   ᥡ: ஫,
, ஥ ᨬ
ࠦ  ..
     ⮩ 㯯   
㪢 V: .SR1V, .INVV, .MIRV.
    ⮬, ᫨  室  ।
࠭,  ⮬᪨  
࠭.


     
    ࠩ ᯮ  ⢥
ࠧ஢ .
   COL  ROW ᯮ  
न 孥 㣫 . 
ࠧ,  㭪樨 믮 
६묨 SPN, COL, ROW.
    ⮩ 㯯 稭  ""
 "GT". ਬ: .GTBL, .PTXR, .PTND 
..


   
       .
ᯮ㥬 ६ - SPN. 
 砭 "".


    
    
     ࠭ .ROW, .COL, .HGT, .LEN
।  ࠭,   ⮬ 砥
.CSL  .SRW ᯮ  ।
   ࠩ.  .SRW
 .SCL  ᨬ.
   .SCL - ᫥, SRW - . ᫨
.SRW+.HGT , 祬  ࠩ, 
.SCL+.LEN , 祬  ਭ 
.LEN-.COL  24,   
ᯮ.  ⮩ 㯯
稭  "PW"   "GW".


      
    ࠩ⮢ ࠭  SP1 (
ࢮ ࠩ)   SP2 ( ண
ࠩ  ).   - 
ࠧ ࠩ  ,   
 ࠩ (SP2)  .SCL  .SKW.
   ᫨ ࠩ SP1 ᥪ ࠭ SP2,
   믮.  ⮩
㯯 稭  ""   "GM".


  -
    ,   ࠩ
࠭ନ  १  
ன ࠩ.  ⮩ 㯯 ⮫쪮 
: .SPNM  .DSPM.
   ⮩ ࠩ:   ᮤন 
 ࠭.   ᯮ짮,
ਬ,  ࠭ ணࠬ 
設 , ᨢ;   
ᯮ짮  楤 ।
⮫ ࠩ⮢.


    
    ZX ७ ⮫쪮, 
⥫  LB 室
஢  ᨭ⠪   ணࠬ.
  LB 稭  窨, 
ன   ᨬ, ࠦ
묨 㪢. ᢠ ⠪,
 .COL  .ROW,   ᮤঠ
஡  "="   ६.
⥫ 㭪樨 뢠 १
"?"  ᫥騬 ६ ᨬ.
   ਬ: COL, ROW  ..  
ᯮ짮 ⮫쪮  ।
祭 ६   
ᯮ짮   ࠦ 
஬ PRINT, ਬ:

LET X=?COL X : LET Y=?KBF D : LET Z=?GET
()

LET X=?COL*3+Y : PRINT ?COL
()

   ᫨ LB ࠡ⠥  䥩ᮬ 1, 
訡 தࠩ ਢ  ।
ࠢ  ⥬ ᨪ. ᫥ ⮣
। 㦥    
ᨢ  LB.    LB
 (DELETE) ப,  
⠫ ,   # 
᫥騬 ⨥ ENTER.
    ᪠ ணࠬ - RUN.  RUN
N.  ਬ , ⮩ 楫  GO TO,
GOSUB, CONTINUE.



   ________________

   砫 㧨 LB. ⠭ 
 㪠. ணࠬ ⮢  ࠡ
᫥   ࠭ . 
㧨 䠩 "SPRITE 2A".  㦠
஬ 樨 "3"    ⨥ "PLAY"
 䮭. ᫥ 㧪 ࠩ⮢ 
 ࠡ  LB ( 1).  ᬮ
짮 ᢮ ᮡ⢥묨
ࠩ⠬, 믮묨  ணࠬ
"SPRITE GENERATOR".
    祢 ᫮ ⠭⭮ ᨪ
  筮.
   :

10 REM THIS IS YOUR LASER PROGRAM
20 .COL=1
30 .ROW=1
40 .HGT=20
50 .LEN=30
60 .INVV

RUN ( GOTO 10)



 _________________________

 .RNUM, .REMK, .TRON, .TROF
   .RNUM 㦠  ७㬥樨 ப:
.RNUM 102,100,5 ப  102 
, ப 102 ᢮ 
100,  ᫥騥 ப ஭㬥 
蠣 5.   㬮砭10. 
 ப  㬮砭 ਭ
ࠢ ஬,    㬮砭
ਭ ࠢ 0.
   .REMK ਬ  㤠 
ப REM  楫.  .
   .TRON, .TROF -  ⫠ 
 蠣 믮 ணࠬ. ᫥
 .TRON 
⠭   ப
ணࠬ, ⠥    
. ᫥ .TROF  ०
⪫砥.


  
   ᮡ,  ࠬ ।
᪨ 楤ࠬ, ।祭 
襭 ᪮ ⮢. 
  䨪  ᯮ짮 
᪨ ६ ( ). ᥣ
᪠  16 ஢.   
 㠫 롮  ଥ:
.SET=<EXP>,  <>  
ࠦ  ᨪ  0  15.  10
६:

ROW - ⨪쭠 न (0-23);
孨   ROW=0.
COL - ਧ⠫쭠 न (0-31);
 ⮫  COL=0.
 -  ⥪饣  (1-24).
LEN -  ⥪饣  (1-32).
SRW - ⨪쭠 न 
ࠩ (0-(HGT-1)).
SCL - ਧ⠫쭠 न 
ࠩ (0-(LEN-1)).
NPX - ࠦ ࠢ  稭
⨪쭮 ஫. ⥫쭮
祭 - , ⥫쭮 - .
 ७ - ᥫ ( ᨬ).
 -128 - +127.
SPN -  ࠩ (1-255).
ਬ   , 
ࠡ   ࠩ⮬.
SP1 -  権  ࠩ⮬ 
 㣮 ࠩ.  ᮤন
 ࢮ ࠩ.
SP2 -    権. ন
 ࠩ, 饣 .
   ਬ:

10 .SET=0 : .SPN=4 : .ROW=0 : .COL=-4
20 BORDER 1 : BRIGHT 1 : INK 6 : PAPER 1 :
CLS : .ATOF
30 FOR I=-4 TO 32
40 .PTXR : .COL=I+1 : .PTXR
50 PAUSE 40
60 NEXT I
70 STOP

   10 롨ࠥ ᪨  0.
ࠩ 4.
   20 ⠭ ਡ ࠭, 
頥, 䫠 ਡ⮢ ⪫砥.
   30 ࣠ 横  ࠩ⮢ 4 
ਧ⠫  न -4  +32.
   40 㤠  ࠩ, 頥
.
   50 㧠   .
      ணࠬ 
  ࠩ⮢  ⨢
ࠢ. ன ࠩ 㤥 
ઠ ⮡ࠦ ࢮ. 
 ᯮ짮   ६.

20 DEF FN A#(X,Y) : .SET=X : .SPN=4 :
.ROW=Y
30 .RETN
40 INK 6 : PAPER 0 : BORDER 0 : BRIGHT 1 :
CLS : .ATOF
50 .PROC FN A#(0,0) : .PROC FN A#(1,1)
55 .COL=32 : .SET=X : .COL=-4
60 FOR 1=1 TO 32
70 .SET=1 : .MIRM : .PTXR : .COL=28-1 :
.PTXR : .MIRM
60 PAUSE 2
90 NEXT I
100 GOTO 40

   20  30  楤, 
⠭ ६ 
ᮮ⢥ ஢.  ࢮ
室 SET=0  ROW=0.  ஬
室 SET=1  ROW=1.  , 
  ,  ᪫祭 ROW.
   40 -  뢠 楤
#.
   50 - ⠭ ⮫.
   60 - 砫 横.
   70 - ६頥 ࠩ ᫥ ࠢ,
ᯮ  ⮬ ६  0;
ந ઠ쭮 ⮡ࠦ ࠩ 
६頥  ᫥ ࠢ.


   
   ஬ 室 祭
᪨ ६, 室 
 ⥪騥 祭.  ⮣  11
㭪権:

?COL ?ROW ?LEN ?HGT ?SP1 ?PSP ?NPX ?SCL
?SRW ?SET

   ⨬ 㭪ﬨ ⥪騬 祭
६ ᢠ 祭
ᨭ஢᪨ ⥬ ६.
ਬ:

LET X=?COL : LET ROW=?ROW : LET SET=?SET

     㭪樨    
ࠦ  ࠬࠬ .

   
   .SPRT - 㦥   
ࠩ⮢.  ࠩ⮢  
稭: 9*HGT*LEN+5 . ᫨ 
⮣ ࠩ  ࠭ ,  ᭠砫
뢠  ࠩ ( ⮬ 
࠭ ,   - ),
 ⥬ ࠧ頥 .
   ᫨ ࠩ  ,  
    ᥭ ஬.
ਬ:

.GTBL

ͻ
                       
                                   
Ķ
  .SPN      (1-255)
  .LEN       (1-255) 
  .HGT       (1-255)
ͼ

   ᪮    
ࠩ⮢ ,   ࠭祭
ਬ.   
JSPR. ⭮ ᯮ짮 
ਢ   ணࠬ.
   .ISPR -   ᠬ,   .SPRT, 
  ࠩ⮢ ࠧ .
᫨ ࠩ   ஬ , 
 ᮮ饭  訡. ᫨ 
ᯮ짮 ⮩  砫 
ࠩ⮢   RAMTOP, 
ணࠬ  ᯮ.
   .WSPR - 㦨  ࠭
饣 ࠩ.  ࠭
 . 筮  ⮣
ਬ DSPR.
   :

.SPN=1 : .WSPR

ͻ
                     
Ķ
 .SPN      ,    
                (1-255)        
ͼ

   .DSPR - 筠 ।饩. 
࠭ ࠩ⮢  ࠭ 
蠥.
   ਧ⠫ ஫ ࠭
믮  1, 4  8 ᥫ 
 ࠢ  ⮬   .

 
.WL1V - ஫   1 ᥫ 
⮬,
.WR1V - ஫ ࠢ  1 ᥫ 
⮬,
.SL1V - ஫   1 ᥫ 
,
.SR1V - ஫ ࠢ  1 ᥫ
 ,
.WL4V, .WR4V, .SL4V, .SR4V -    4
ᥫ,
.WL8V, .WR8V, .SL8V, .SR8V -    8
ᥫ.

ͻ
                          
                                       
Ķ
  .COL       (0-31)
  .ROW              (0-23)        
  .LEN               (1-23)         
  .T              (1-24)         
ͼ

   ᠭ   ࠡ 
࠭, 믮 த , ࠧ
ண - .LEN  .HGT,  न -
.COL  .ROW. ஫  ந쭮
⢮ ᥫ 믮
᫥⥫쭮 祩 鸞 ᠭ
.

   
      宦  ࠡ
ਧ⠫쭮 ஫,  
 ࠬ  
६ .NPX,   ࠧ 
ࠢ ஫  ᥫ.

.NPX=-1 -   ᥫ ,
.NPX=1 -   ᥫ .

:
.WCRV - ⨪ ஫  ⮬,
.SCRV - ⨪ ஫ 
.
   ⨪ ஫ ᥫ 
ਡ⮢ ࠭  ࠩ⮢ ॡ
࠭⢠  . 室
࠭⢮ । ६ NPX
 LEN.  ꥬ   ॢ 256
, ᪮  ⢥ ६
࠭ ᯮ  
ਭ.
   ஫ ਡ⮢ ࠭ 宦 
஫ ᥫ,  믮 
ਭ ᨬ  ᥣ  ⮬.

 :
.ATLB - ஫ ਡ⮢ ,
.ATRV - ஫ ਡ⮢ ࠢ,
.ATW - ஫ ਡ⮢ ,
.ATDV - ஫ ਡ⮢ .

 :
.COL (0-31) .ROW (0-23) .HGT (1-32)
.LEN (1-24)



  __________
   ਧ⠫ ஫ ࠩ⮢
믮  1, 4, 8 ᥫ ,
ࠢ,  ⮬  .

 : 
.WL1M - ஫   1 ᥫ 
⮬,
.WR1M - ஫ ࠢ  1 ᥫ 
⮬,
.SLIM - ஫   1 ᥫ 
,
.SR1M - ஫ ࠢ  1 ᥫ
 ,
.WL4M, .WR4M, SL4M, .SR4M -    4
ᥫ,
.WL8M, .WR8M, SL8M, .SR8M -    8
ᥫ.
   ࠬ .SPN -  ࠩ.



  _____________

.WCRM - ⨪ ஫  ⮬,
.SCRM - ⨪ ஫ 
.

 :
.SPN -  ࠩ,
.N - ࠢ  ⢮
ᥫ ஫ (128-127).

   
   4   ஫  
ࠢ  2 ᨬ  ⮬:
.ATLM - ,
.ATRM - ࠢ,
.ATUM - ,
.ATOM - .
 .SPN -  ࠩ.



 GET  PUT,  1_____________

.PUT -   ࠭   㣮
ࠩ.
.GET - ,    ࠭
 ࠩ     ࠩ.
    3 㯯 ஢ GET  PUT.
   ࢠ 㯯  த,
믮 樨  楫 ࠩ⮬ 
।⥫쭮  . ᥬ ⨬
 । "GT"  "". 
ࢠ 㯯   ᯥ樠 
 ६饭 ᥫ-  
ਡ⨪,   ⮣ 
४⥫ ਡ⮢ (CM..ATIN, .ATOF)
 ६饭 ᥫ  ਡ⮢ 
 .
.GTBL -     ࠭ 
ࠩ.
.GTOR -  (OR ) 
 ࠭  ࠩ.
.GTXR -  (XOR ) 
 ࠭  ࠩ.
.GTND -  (AND ) 
 ࠭  ࠩ.
.PTBL -  ࠩ   ࠭.
.PTOR -  (OR ) ࠩ
  ࠭.
.PTXR -  (XOR ) ࠩ
  ࠭.
.PTND -  (AND ) ࠩ
  ࠭.

 :
.COL -    ॡ㥬
樨 ࠭ (0-31).
.ROW -  孥 鸞 (0-23).
.SPN -  ࠩ.

:
.SPN=39 : .ROW=1 : .COL=1 : .PTBL

    ࠩ  39  ࠭ 
 1.1, .ATOF (⪫祭
७ ਡ⨪), ⥯: .ROW=S
.PTBL, ࠩ  39  
࠭  㣮 樨,   ਡ⮢.
    .ATOF : .PTBC  ࠩ
  ਡ⠬.
    GET     
 樨,ࠧ ண ࠢ
ࠧ ࠩ  頥   ࠩ.



 GET  PUT,  2_____________

     믮 樨 
 ࠭   ࠩ⮢.
   .ATON  .ATOF    祭, 
 ࠭.
    㦭 4  ࠬ 
 ⮫  ப, ।
   ࠩ,  ⠪  
 ⮣ . ⨬ 
। "GW  "PW".
.GWBL - ७   ࠭  
ࠩ,
.GWOR -   ਭ樯 OR,
.GWXR -   ਭ樯 XOR,
.GWND -   ਭ樯 AND,
.PWBL - ७    ࠩ
 ࠭,
.PWOR -   ਭ樯 OR,
.PWXR -   ਭ樯 XOR,
.PWND -   ਭ樯 AND,
.GWAT - ७ ਡ⮢  
࠭   ࠩ,
.PWAT - ७ ਡ⮢  
 ࠩ  ࠭.

 :
.COL -  ⮫ 樨  ࠭
(0-31),
.ROW -  ப 樨  ࠭
(0-23),
.SCL - न  ࠭ 
ࠩ 0 -  ࠩ - 1,
.SRW - न 孥 ப 
ࠩ 0 -   ࠩ 1,
. -   (1-24),
.LEN -   (1-32),
.SPN -  ࠩ (1-225).



 GET  PUT,  3_____________

   㯯 ᮤন   権
 ࠩ⮬    㣮 ࠩ.
     稭  ""  
"GM".
.GMBL - ७ ࠩ   㣮
ࠩ,
.GMOR - OR,
.GMXR -  XOR,
.GMND -  AND,
.PMBL - ७  ࠩ  㣮
ࠩ,
.PMOR -  OR,
.PMXR -  XOR,
.PMND -  AND,
.GMAT - ७ ਡ⨪ ࠩ 
 㣮 ࠩ,
. - ७ ਡ⨪  ࠩ
 㣮 ࠩ.

 :
.SP1 -  ࢮ ࠩ (1-255),
.SP2 -  ண ࠩ (1-255),
.SCL - न  ࠭ 
ࠩ (1 -  ࠩ),
.SRW - न 孥 ப 
ࠩ (1 -  ࠩ).



 .MOVE____________________________

   ᯮ  䥪 ⨯-
 ६饭 ࠩ⮢. 
믮 ⮫쪮  XOR  .XOR.,
⮬, ० 祬 ६ ࠩ 
࠭,   ᭠砫 㤠 
१ RTXR;

 :
.COL -  ⮫ ࠩ,
饣 ६饭 (0-31),
.ROW -   ப (0-23),
.G - 稭 ६饭 
⨪ ((-24)-(+24)),
.LEN -  ६饭  ਧ⠫
((-32)-(+32)),
.SP1 -  ࠩ, 饣
६饭 (1-255),
   .SP2 -   ᫥ ६饭
(...255).
     MOVE  १ PUT
ࠩ SP1  樨 ࠭,  ROW
 COL,  頥 ࠩ SP2  
COL+LEN, HGT+R.



 .ATON  .ATOF___________________

      ।,  
७ ਡ ࠩ⮢ 
믮  PUT  GET.
.ATON - 祭 ७ ਡ⮢,
.ATOFF - 몫祭 ७ ਡ⮢.



 _____________________

.INW - ஢  ࠭.
   ஢ - 祭/몫祭
ᥫ.  INK  PAPER 
梥⠬. ࠬ  : .COL, .ROW,
.HGT, .LEN.
.INVM - ⠪  ,  
ࠩ⮬,  ண  SPN.
ࠬ: .SPN.
.MIRV - ᮤঠ , ઠ쭮
⮡ࠦ ⭮⥫쭮 ⨪쭮
, 室饩 १  業.
.MIRM - ᮤঠ ࠩ, 
ண  SPN, ઠ쭮 ⮡ࠦ
⭮⥫쭮 , 室饩 १ 
業.
.MARV - ઠ쭮 ⮡ࠦ
ਡ⮢  ⭮⥫쭮 ⨪쭮
. ࠬ: .COL, .ROW, .HGT, .LEN.
.MARM -   ᠬ  ࠩ.
ࠬ: .SPN.
.SPNM -  ࠩ SP2  90
ࠤᮢ  ᮢ ५. ᫥
 ᢠ  SP1.
   : ᫨   ࠧ 3 x 8,
 ன - 8 x 3. ࠩ SP1  
।⥫쭮 饭  .CLSM.
   .DSPM - 㢥祭 ࠧ஢ ࠩ
SP1. ᫥ 㢥祭 ᢠ 
SP1. SP1   筮  訥
ࠧ  ࠢ  SP2.



 ____________________________

.SETV - ⠭ ﭭ ਡ⮢
INK  PAPER   .
.SRTM -    ࠩ,  
SP2. ࠬ: SPN
.CLSV - ⪠   ࠭
(ਡ  ⢮).
.CLSM -  ,   ࠩ.
ࠬ: SPN
.ADJM -   㦨 
ன ६: COL, ROW, HGT, SCL,
SRW, SPN, ⠪ ࠧ, ⮡ ⤥
ࠩ     PUT  GET
ன 㯯. 祭 ROW, HGT, LEN,
SCL, SRW,    ᯮ
.  ᯮ SCL  SRW 
 ࠢ 0.

 :
.SPN -  ࠩ,  㦭 ,
.COL -  ⮫,
.ROW -  ப,
.SCL - ⠭  0  ᯮ
,
.SRW -  ,
.ADJV -  ,    ࠩ,  
. ࠬ:.COL, .ROW, .HGT, .LEN.



______________________________

    ᥣ 11.   ᢠ
᪨ ६ 祭 ࠦ
ᨪ. ᯮ짮  ० ""
.

.COL=    .ROW=    .HGT=    .LEN=
.SP1=    .SP2=    .SPN=    .SRW=
.SCL=    .NPX=    .SET=

  
    ᥣ 16:
?COL     ?ROW     ?NGT     ?LEN
?SPN     ?SP1     ?SP2     ?SET
?SCL     ?SRW     ?NPX     ?KBF
?SCV     ?SCM     ?TST     ?PEK
    ଠ: LET VAR=?FUN,  VAR -
६ ᨪ, ?FUN -   16-
㭪権.
    㭪樨    
ࠦ ᨪ.
?COL - 뤠 祭 ६ COL.
 ..
?KBF -  㭪 ।祭 
।  .  ஢
   뤠 㫥
१  ⨨.
   ६ ROW  COL 㦠  
鸞  ⮫  .

         ͻ
                   
         Ķ
           1    CS  V    
           2    A  G     
           3    Q  T     
           4    I  S     
           5    O  G     
           6    P  Y     
           7    ENTER  H 
           8    SPACE  B 
         ͼ

    COL   鸞 ᭠㦨
.
?SCV -  ⮩  
 ࠭ (8  8),  ண
 ६묨 COL  ROW, ஢
 । 祭 ᥫ. ᫨ 
祭 ᥫ,  뤠 १,
⫨  0,  ⨢ 砥 0. 
㭪 ਬ , ਬ, 
।  ⮫ ࠩ⮢.
 ⮣ ஢ ﭨ ᥫ
୮  (8  8), 室饣
। 饣 ࠩ.
?SCM -  ⮩  ஢
ᥫ ࠩ,  ண ᮤন
 SPN. ᫨  祭 ᥫ,
뤠 㫥 १  .
?TST - ᪨ ࠩ, 
ண ࠭  SPN. ᫨  , 
뤠 ᮮ饭  訡. ᫨ 
, 뤠  ,  ६
HGT  LEN ਭ 祭, ࠢ 
ࠧࠬ.
   ࠩ ࠭    ᫥饬
ଠ:
 1 -  ࠩ.
 2 - 訩   ᫥饣
ࠩ.
 3 - 訩   ᫥饣
ࠩ.
 4 -  ࠩ.
 5 -  ࠩ.
8*HGT*LEN -   ﭨ
ᥫ.
HGT*LEN - ਡ.
  : 9*HGT*LEN+5 ⮢.
? -  16-⮢  
PEEK.  ⫨稥   㭪権 
  ᥡ ࠦ  ᪮, 
஬ ᮤন . :

LET =? (64264)

⭮

LET =PEEK (64264)+256*PEEK (64265)

  
.POKE X, Y -  16- ⮢ 
POKE  ᨪ ZX.  頥 訩
 ᫠ Y  X,  訩  Y  +1.
     (0-65534), Y (0-65535).



_________________________________

     ᨫ ஭ 몮 ,
BASIC ,  믮
୮ ணࠬ஢, 
 ᯮ짮 楤. 
뢠  । ६ 
ணࠬ ⠪, ⮡  뫨 襭
祭 ६  㣨 ⥩
ணࠬ.  ⮣ 㦭 
६.   ⮣  .

    
     楤  ᠭ
ᮤন ᯨ᮪ ࠬ஢,  
 ப, ᫠.   ᨢ.
ਬ:

10 DEF FN A$#(X,Y.Z,A$,B$)

    ,  祢 ᫮ DEF FN
ࠥ   㪢.  ࠬ
X,Y,Z,A$,B$ -  ६, ..
祭, 祭   楤
,     祭  㣨
 ணࠬ.  㣨 ६,
⢮  楤, 
묨.

   
    믮 ਢ 
楤 ᯮ :

PROC FN $#(3,2,."HELLO",B$)

   : FN - 祢 ᫮ 
.   ६
ਬ 祭: =3; Y=2; Z=K;
A$="HELLO"; $=.
   楤  ᥣ 稢
 .RETN, ᫥ 祣 ࠢ
। , ᫥饬 
맮 楤. ᯮ  
⥬ ॥, 祬   砫 ணࠬ
ᯮ  ।. 蠥
ਬ  52- 楤 (26 㪢
⨭᪮ 䠢 + 26 㪢  
$). ⮡ ⫨ 楤  㭪権
짮⥫, ᫥ 楤 
  #.
ਬ:

DEF FN $#=0 : DEF FN C$#=0

  
   । 楤   
ᥡ 맮 㣮 楤,   ⮬
,  祭  ६
 ७ 맮 ࠭ 
  (譨) 맮.
ਬ: 楤    ࠭
᫮ "HELLO":

10 DEF FN A$#()
20 PRINT "HELLO"
30 .RETN

    , ᪮ 
ࠬ  㦭.
   뢠  楤 
.PROC FN $#().
     न  (X,Y):

10 DEF FN $#(X,Y)
20 PRINT AT X,Y;"HELLO"
30 .RETN

   祭 楤  LB ࠣ
⥬  ᮡ⢥ ⥪ ZX,
⮬   ணࠬ RETURN
᫥ GOSUB  .RETN ᫥ PROC 
믮  ࠢ쭮 浪.



 __________________

  
   ஫ ࠭  ࠢ 
 ᯮ,  ࠩ
   ࠭,  ᮤঠ饬
㣨 ࠩ⮢  .
   믮 ஫   1 ᥫ,
ᯮ 㭪 ?KBF.

10 INK G : PAPER 0 : BRIGHT 1 : BORDER 0 :
CLS
20 .COL=14 : .ROW=10 : .SPN=2 : .PTBL
30 .SET=5 : .COL=5 : .ROW=4
40 .SET=6 : .COL=3 : .ROW=5
50 .SET=7 : .COL=0 : .ROW=10 : .LEN=32 :
.HGT=2
60 .SET=5 : LET KB=?KBF : IF KB=0 THEN
.SET-7 : .WL1V
70 .SET=6 : LET KB=?KBF : IF KB=0 THEN
.SET-7 : .WL1V
80 GOTO 60

  PUT
   2- ⮤ ⮨  饭 ࠩ
 ࠭ ஬ ROW,   ⮬
祭 ROW  COL. ࠩ, ᯮ㥬
 ⮣ ⮤,    ᥡ
 ਭ   ᨬ.
   쬥 ࠩ #30 ࠧ஬ 3 x 3.
   砫 ⨬   ࠩ:

.SPN=30 : .CLSM

    ⨬   業 ࠩ
 SP1 (ࠧ. 1 x 1):

,SP1=50 : .SP2=30 : .SCL=1 : .GMBL

   ணࠬ   ६饭  
  (⨥  ஢ 
 ?KBF):

10 .ATOF : INK 5 : BRIGHT 1 : PAPER 0 :
BORDER 0 : CLS 
20 .SET=1 : .ROW=4 : .COL=5
30 .SET=2 : .ROW=5 : .COL=5
40 .SET=3 : .ROW=5 : .COL=4
50 .SET=4 : .ROW=5 : .COL=3
60 .SET=7 : .ROW=10 : .COL=13 : .SPN=30
70 LET X=13 : LET Y=10
80 .SET=1 : LET KB=?KBF : IF KB<>0 THEN
LET X=X-1 
90 .SET=2 : LET KB=?KBF : IF KB<>0 THEN
LET Y=Y-1
100 .SET=3 : LET KB=?KBF : IF KB<>0 THEN
LET X=X+1
110 .SET=1 : LET KB=?KBF : IF KB<>0 THEN
LET Y=Y+1
120 IF X>30 THEN LET X=30
130 IF X<-1 THEN LET X=22
140 IF Y>22 THEN LET Y=22
150 IF Y<-1 THEN LET Y=-l
160 .SET=7 : .COL=X : .ROW=Y : .PTBL
170 GOTO 80

    ⮣ ⮤  ⮬,  ,
騥  ࠭,   
१ 宦 ࠩ  . 
࠭ ⮣ ਬ ᪨
樨.  LB  3: OR, XOR, AND.
   ᫨  ࠩ 뢠 
ਭ樯 OR,   १ 
祭  ᥫ,  뫨 祭
    ࠩ⮢   
.
    ਭ樯 AND १ 㤥
ᮤঠ 祭묨 ⮫쪮  ᥫ,
 뫨 祭  ࢮ   ஬
ࠩ ६.
    ਭ樯 XOR - 祭 , 
뫨 祭    ,  ,
 뫨 祭   ,
 祭.
   ᯮ짮 OR  XOR  
ࠩ  १  .PTOR 
.PTXR. , १ .PTOR  ࠭
뢠 ᫥ ६饭 ࠩ 
 ,  ᪫砥 ࠭.
१ .PTXR ࠩ ᭨  ࠭ 
᭮ 頥 冷,  ⠪ 
 ࠩ  ࠭ ᭮
ࠦ.



  .MOVE_______________

   ᫥  祭 COL  ROW
  饭   蠣 HGT
 LEN.  ᯮ  .MOVE
ਢ  㢥祭 COL  ROW.

10 INK 0 : PAPER 6 : BRIGHT 1 : BORDER 7 :
CLS : .ATOF
20 FOR N=1 TO 100
30 LET X=INT(RND*32) : LET Y=INT (RND*22)
40 PRINT AT X,Y;"*"
50 NEXT N
60 LET DR=1 : .HGT=DR : LET DC=1 : .LEN=DC
70 .SP1=50 : .SP2=50 : LET R=10 : .ROW=R :
LET C=13 : .COL=C : .SPN=50 : .PTXR
80 .MOVE
90 LET C=?COL : LET R=?ROW
100 IF C=29 OR C=0 THEN LET DC=DC-1 :
.LEN=DC : BEEP 0.0,5
110 IF R=19 OR R=0 THEN LET DR=DR-1 :
.HGT=DR : BEEP 0.0,5
120 GOTO 80

   ᫨  ६ ࠩ ᫥
ࠢ  蠣 2 ᥫ,  ஫
࠭  ⮬  ,  㦭
᭠砫   ணࠬ  ᮧ 4
ࠩ,    ᤢ
⭮⥫쭮 ।饣 ࠢ  2
ᥫ. ᫨  ஭㬥஢  
 ,  ணࠬ 㤥 룫拉
⠪:

10 FOR C=0 TO 31
20 .COL=C : .SPN=1 : .PTBL : .SPN=2 :
.PTBL
30 .SPN=3 : .PTBL : .SPN=4 : .PTBL
40 NEXT 



  _________

    ⮣ 㦠  ?SCV  ?SCM.
   .SCV 㦠  ஢ન 樨
ᨬ  ࠭. ᫨  樨,
 COL  ROL,  祣 - 뤠
0,  ⨢ 砥 - ᫮. 
  魮,  
  ?SCM.  ஢
ࠩ,  ண 室  SPN, 
뤠 0, ᫨ ⠬  祭
ᥫ,  ᫮  ⨢ 砥.
  筮 ᯮ 
믮 ᫥ 㭪権:
   -  ஢ન ⮫ ᨬ,
   -  ।,  室 
 ,
   -  ᪠  ꥪ 
࠭.
   ஢ઠ  "⮫" 
 ஢  । 
饣 ࠩ  -
᪨ ᨬ, 室騩  ࠭.
    ᭮  ᫥騩 ⮤. ਬ
 ࠭  ⮬ , 
। ࠧ饭 ࠩ, 
ࠩ. ⥬ 맢 .PTND 
ࠩ  -ࠩ,  ⥬ ஢
?SCM. ᫨ 祭  0,  ⮫
()  ந諮.   
⮪  ⮬,  ᫨  
४뢠 ,   ࠩ 㤥
㤠  ⮣,  筥 襮ᠭ
楤,  ᮮ⢥⢥  饭
 ࠩ  ࠭. 襥 襭
- ࠡ⠥ १ XOR, .. १ .PTXR.
  ᮤন ,  
XOR   ᮤন ண ࠩ 
 (⮡ 㤠   
ࠩ), ⥬ ᤥ ஢ 
   ६饭
ࠩ  ࠭.
   ᫨  ந諠,  뢠
 㧭,  祬  ࠩ
⮫.  砫 ।, 
 ࠭, ஥  ᫥㥬,
ᮤন   ᨬ 
   ⠬ . ⮤
⮨  ⮬, ⮡ 㧨
-ࠩ  ࠡ稬 ꥪ⮬  ⥬
ࠢ   ࠩ⠬  .
    ⮣ 㦭 ⮫쪮 
஢塞 ࠩ  -ࠩ  XOR,
⥬ ᤥ ?SCM. ᫨  १ 0,
  , ᫨  -  ᤥ
XOR  㣮 ࠩ  ..
   , , ᬮਬ 砩, 
᫥㥬 ꥪ ᮤন ஬ 
  ࠩ⮢  楫 
.  ⮬ 砥 ஢塞 ꥪ
᭠砫 뢠  AND  㤠
 , ⥬ XOR, ⥬ ?SCM.



 __________________________

     ⮫쪮 
砥  ,   
ᬮ ⤥쭮.
   ࢮ -   ஢ ⮫쪮,
᪮쪮 㦭,   . ਬ, ᫨
    , 祬 
    孨 鸞,  
  鸞  .
    ⮩  䥪⨢ ⮤
믮  ६饭 - 
⢮  ⮫殬 ࠭ 
࣠樨   ࠩ⮬, 騬
஫. ।,  ஫ 
 ᥫ  ਧ⠫쭮 ६饭
ਡ⮢ . 䠪᪨  ࠢ, 
⮫殬 ਡ⮢  㥬: ᠬ
ࠢ (31)  ᠬ  (0). 
ᯮ㥬 ⮫ 0.    
  ⮫ ਭ   ᨬ 
⮩  3 ᨬ,   
 INK  PAPER, .. ᥫ  
  .   
.SETV.
    31 ⮫ ࠩ  
⨢  ࠭   .RWBL.
᫨ ஫  ࠢ,   
ᯮ-  頥 32-
⮫ ࠩ, ⥬ 믮
஫  1 ᥫ 8 ࠧ, 
⥫ ⮫ 頥 33-
⮫ ࠩ  ..
   ᫨ ஫  , 
ᯮ⥫쭮  ࣠ 
ࠢ  ࠭.



  
   ___________

   21 ᨬ UDG (䨪 ।
짮⥫), 騥  ⠭⭮
ᨪ,  ⨬. 
⥬ ६ CHARS, 㪠뢠 
  ,   256 
, 祬 砫  ᨬ  ROW
( 32- ᨬ ASCII  128-).
짮⥫  ᫠  祭
 CHARS, ⮡  ६ 㪠뢠 
  ,  㤥 ࠧ饭
  ᨬ. 祢 ⮬ 
࠭    ࠩ⮢.



 _________________________

   ਬ 16 ஢ ६
⥫쭮 蠥 ᪮ ணࠬ
᫥. ᫨  ६ 4  
࠭,   ࠬ  
    ६.
ਬ:

.SET=1 : .HGT=5 : .LEN=5 : .ROW=0 : .COL=0
.SET=2 : .HGT=4 : .LEN=6 : .ROW=0 : .COL=5
.SET=3 : .HGT=6 : .LEN=4 : .ROW=0 : .COL=12
.SET=4 : .HGT=7 : .LEN=3 : .ROW=0 : .COL=18

   , ⮡ 믮 ஫ 
 , 筮 :

.SET=1 : .WR1V : .SET=2 : .WL2V : .SET=3 :
.WL8V : .SET=4 : .WR1V



     LB___________

   ணࠬ oyr  㦥 
㦥  祩 אַ
ᮮ⢥饩 , ⠪  
ணࠬ.

     
      饩
ணࠬ  :

SAVE "FILENAME"

 தࠩ:

SAVE *"M";N;"FILENAME"

   ᫨ ,   ᪮쪮
SAVE  LOAD   .
ਬ:

SAVE "FILENAME" : LOAD "FILENAME" CODE

   ᫨     
⠭⭮ ᨪ,  
 浪,  ᫨  
७ ,   
 LOAD  SAVE   RANDOMIZE
USR 58841.
ਬ:

SAVE *"";N;"FILENAME" :
LOAD *"M";N;"FILENAME" CODE :
RANDOMIZE USR 58841 : .RENK : .RNUM



SAVE *"M";N;"FILENAME" :
LOAD *"M";N;"FILENAME" CODE

 ᫥饩 祩

.RENK : .RNUM

    
  
    ந ᫥騬 ࠧ:

SAVE "FILENAME" LINE N
SAVE *"M";N;"FILENAME" LINE N

   ᠭ ⠪ ࠧ ணࠬ
 믮   ᠭ 
⮣,   -  
७ : RUN, GOTO,
GOSUB -    தࠩ 
᫥騬 RANDOMIZE USR 58841.

    
   ணࠬ, ᠭ  ணࠬ,
  㦥 ⮦ ⮫쪮 
ணࠬ. ணࠬ, ᠭ אַ
, 㦠 ⮦ אַ
.
   ० 祬 짮  
ਢ 奬 㧪/㧪, 
㧨   ணࠬ LB (
  १⮩).




