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



      LASER-BASIC COMPILER

           :  


    몠 LASER-BASIC ।-
祭  ᮧ ⮭ ணࠬ, -
ᨬ  
   LASER-BASIC'a.   믮 
ࠡ ணࠬ, ᠭ 
⠭⭮ ᨪ,  ॠ쭮 먣
 ६ ࠡ ⪮஢
ணࠬ  ।⠢ (  ࠧ 
). ஢  
訩 ꥬ , 祬 室 ண-
ࠬ,   ᪥   ᮯ஢-
 ⮬ ࠡ 楤. 
ணࠬ, ᮧ  ७ -
 LASER-BASIC'a  
.


 1.    

A: COMPCODE ........... LOAD "" CODE
   LOADER ............. LOAD ""
   RTCODE ............. LOAD "RTCODE" CODE
: DEMO ............... LOAD ""


 2. 

    樨 ணࠬ  
 ࠧ ⮫쪮 ⥪ 室
ணࠬ  , ᫥⥫쭮
᫥  ணࠬ  
LASER-BASIC'a   ᪠ ணࠬ
᫥   , 
  㧨   ⮫쪮
᢮ ணࠬ  .
   ணࠬ, ᠭ  몥
LASER-BASIC,   ।஢
।⢠ SINCLAIR-BASIC'a.
   । 㧪 ᫥ 믮:

CLEAR 59799

   㦠 :

LOAD "" CODE



LOAD "COMPCODE" CODE

   室 ணࠬ  㦠
 , ⠪  ᫥ .

   砫 樨:

RANDOMIZE USR 59800

    樨 ࠭ ⮡ࠦ
砩 ଠ, ( , 
 ᡮ -   浪, ᫥ 砭
樨 ࠭ 頥, 뤠
ᮮ饭 "O.K.",  ⠪  ᫥
⪮஢ ப.


 3.   

   ஢  ࠥ 室
⥪, ⥬    ਭ
   ᨪ-ணࠬ.
楤 㧪     
 ⪮஢  祬 
⫨  ᮮ⢥ -, 権
  ᨪ-ணࠬ.
   ⪮஢ ⥪ 쭥訬
  ,  ⠪
믮 "MERGE", ᫨  ᪮-
 ணࠬ. 砫  ᮧ 
室  (MERGE),  ⥬  -
஢.
   ᫥  "LIST"  ࠭
 ᪮쪮 ப ⥪. 
 ⠭ ஬,
ᨬ  ᮤঠ ணࠬ.
   ࢠ ப ( 믮):

0 PRINT 0

 ᮤন 㯭 짮⥫
ଠ   ࠡ 楤.
    ப - ᥣ:

RANDOMIZE 59800

    맮 ⪮஢ ணࠬ.
᫨  室 ணࠬ  㭪樨,
।塞 짮⥫,   ᯨ᮪
() 頥  쥩 ப 
஬ 0.   ⭮  祭
楤 LASER-BASIC,  
⤥쭮.
   ᫨  室 ணࠬ 
 "DATA",    ᮡ 
  "DATA"  ࠧ 
⢥⮩ ப,  ⠪ 㬥
0. ᬮ  ⠪ ꥤ, 
"RESTORE"  ⪮஢ ணࠬ
㤥 믮 ࠢ쭮.


 4.   

    ⪮஢ ணࠬ
室 ᭠  ⥫쭮
⮬ ࠡ 楤. RAMTOP ᫥
⠭  59799 ( 뢠  ⮬
 㧪 ⪮஢ 㫥).
 ࠡ 楤 㦠
: SPRITES.
   ᫨ ணࠬ  䠩 SPRITES, 
᫥ 㧨 筮 ⠪ ,   
ணࠬ, 믮  몥 LASER-
BASIC.
   㧪 ⪮஢ ணࠬ
믮    筮 ணࠬ 
BASIC.
   樠 믮 ணࠬ:

RANDOMIZE USR 59800



GOTO 1

   ਬ砭: ⨥ BREAK  뢠
믮 ணࠬ, ஬ ०
㧪  㧪.


 5.   

   ணࠬ, ᠭ  LASER-BASIC'e,
室 ᮮ⢥⢥ ந, ⮡
 ࠡ 뫮 筮 
LOAD "".  ⮣ ணࠬ 室
᪮  ᭠ 稪. 
室  , 騩  室
.   ⥪:

10 CLEAR 59799
20 LET SPST=
30 LOAD "RTCODE" CODE
40 LOAD "SPRITES" CODE SPST
50 LET T=INT(SPST/256) :
POKE 62463,SRST-256*T : POKE 62465,
60 POKE 62466,255 : POKE 62467,220
70 POKE 56575,0
80 LOAD ""

   :
   ப 10: 뤥 ࠭⢠ 
 ࠡ 楤.
   ப 20: ⠭ 砫 ⥩
ࠧ饭 䠩 SPRITES (. ᠭ
 ࠩ⮢).
   ப 30: 㧪  ࠡ
楤.
   ப 40: 㧪 䠩 ࠩ⮢.
   ப 50: ᥭ  ணࠬ 
砫  ࠧ饭 ࠩ⮢.
   ப 60: ᥭ  ணࠬ 
  ࠧ饭 ࠩ⮢.
   ப 70: ᥭ  
ࠧ饭  ࠩ⮢.
   ப 80: 㧪 ⥪ ᪮-
 ணࠬ.
   ਬ砭: ᫨ ࠩ  ணࠬ 
ᯮ, ப 20-70  -
.
    ⠥  ॡ㥬 祭
SPST  ⮢  䠩  ⮩
. , ,  "SAVE" 
⪮஢ ணࠬ, 室
㪠 ப .


 6.    BASIC'a

   ᫥ ࠭祭 뫨
   㦥  ⠯ 
஥஢.
   1.  ᯮ짮 塞
ࠦ   RUN, GOTO, GOSUB,
RESTORE, ⠪   ⠯ 樨 
६  ⠭  0,  
  ਭ ६.
   2.   DIM ⨬
塞 ࠭,  ⮫쪮 ⠪,
   樨 
⠭  0, , ᫥⥫쭮, 
 ६  DIM (N+12) -
 祭  ᪮ ᫥ 樨
㤥 ࠢ 12,   室 믮
ணࠬ ॢ  㤥.
   3. ࠭祭  ᫮ ८।
ᨢ   뢠. ,
 ࢮ । 믮  室
樨   ७  ⪮-
஢ ணࠬ. ⥫쭮,
᫨  ணࠬ  室  砫
ணࠬ  , ᯮ 
ࢮ  DIM,   ஬
室 ⮩   ணࠬ
 ᨢ  
⢨⥫.  ᫮ 
, ⨢  ᠭ ᨢ 
ᠬ 砫 ணࠬ  ⮩ 窨, 
稭 ⢫.
   4. ᯮ짮  CLEAR 
᪠.
   5.  RUN,    BASIC'e. 
 ६ .
   6. ⨬ : MERGE,
CONTINUE, LIST, LLIST.
   7.  CONTINUE  ᪠
ᡨ ணࠬ  ணࠬ 
஬ STOP.
   8.  OPEN  CLOSE ࠡ ⮫쪮
 ⮪ S  P. 窠   䠩
 ० ࠡ  தࠩ 
ন.
   9.  LOAD, SAVE, VERIFY 
⨬묨. ᫨ 㦠
ᨪ-ணࠬ, ࠡ稥 楤
ᬠਢ   ⪮஢
ணࠬ  LASER-BASIC'e   
믮, । ࠢ  
.


 7.   
  

      ࠡ 楤
 ᯮ짮  தࠩ.
᪫祭:   믮
஢ ணࠬ  䠩 
தࠩ  ন.
    ਬ, ਢ  
樨,  ७   -
ࠩ, ᮮ⢥騬 ࠧ 
 -뢮.


 8.   

   1. ILLEGAL STATEMENT FOUND - ⨫
  ⨬ ஢: CLEAR,
MERGE, LIST, LLIST, CONTINUE.
   2. PROCEDURE DEFENITION NESTING ERROR -
  ᠭ 楤 
஬筮  .RETN.  ᠭ-
 楤   ᪠.
   3. RETN WITHOUT DEF IN ERROR - 
 .RETN  ᮮ⢥饣
ᠭ 楤.
   4. PROCEDURE NOT FOUND - 饭 
ᠭ 楤. ᠭ 楤
易⥫쭮  ।⢮ 
ᯮ짮.
   5. PROGRAMM NOT COMPILED - 
ᮮ饭  ࠡ 楤. 
 ணࠬ  砫  뫮
஢  砫
⪮஢ ணࠬ.
    室 믮 ணࠬ  ⠪
믮 ⠭ ᮮ饭 
訡.   ࠡ 楤 
 ﭨ 㪠  
訡. ஬ ⮣, ᫥ ஢
஢ , ᮯ஢騥 ᮮ饭 
訡 ⠭⭮ ᨪ. , 
⮣, ⮡   㢥७ 
ࠡ ⪮஢ ணࠬ, 
।⥫쭮 ᫥ ⥫쭮 ⫠
 ।஢ । 樥.
     訡  室
믮 ணࠬ    
 ४஢,  祣
室 㧨   室
ணࠬ (।⥫쭮 ࠢ).


 9.  

      ࠢ 楤
㦠 稭   59800. 
ࠡ 楤   
 ,   - 
 62586,     3057 .
⥫쭮, । 㧪 
㫥 室 १ࢨ஢  
 , ᮮ⢥騥  砫-
   ᠬ.

   ⪮஢ ணࠬ ࠧ頥
  ᫥騬 ࠧ:

ͻ
 Z80  RTCODE   
Ķ
  PROG      VARS    E_LINE 56575  59800-65535
ͼ


 10.   
   
     ࠩ⮢  ⮢
ࠡ 楤   
 3. 筮  ⥪ 
ॡ  256 , ⮬ 
 ࠧ 楤  設
, ⠭ ᮮ⢥騥 祭
  CLEAR   䠩 ࠩ⮢.
   ஬ ⮣ ,  ਭ樯, ⢮
 楤 짮⥫  
稭  E_LINE    59800.



 
             

            :  


________________________________

    ࠩ⮢ ।祭 
ᮧ  ।஢ ࠩ⮢ 
᫥騬 ᯮ짮   
ணࠬ, ᠭ  LB. ࠩ
ᮧ  ࠭, ⥬ ७ 
   ⮬ 뤠 
.


__________________________________

   ணࠬ 㦠  
LOAD "SPTGEN"  LOAD"".
   ᫨      ,
ᤥ BREAK, ⥬ GOTO 9999.  
ணࠬ  㦥  .
ࠢ, ⥯, ⮡  ணࠬ,
  १㧨. ⮡ 
ணࠬ  தࠩ,  
ப 2:  LOAD "" CODE ⠢:
LOAD *"M";1;"CODE" CODE.  
GOTO 9998.


 _____________________________

   ᫥ 㧪 ணࠬ  
:    㦭 - "宫-
" (COLD)  "⥯" (WARM). ᪮
ᥩ  ᪠ , 
"" (COLD),  ⥬  "Y". 
ࠡ稩 ࠭.


______________________________

   " " -  ⠪ ᪥
ணࠬ  ࠩ, 室騥  ,
,   ⥬ ६
⠭  室 ﭨ. 
 ࠧ  ணࠬ ᥣ  室
१ "宫" .
   " " -  ⠪ 室 
ணࠬ  ࠩ ࠭ 
⥬ ६  . 
ᯮ   । ᫥
砩 BREAK  - 訡.
᫨  砩 맢 뢠,
 GOTO 3, ⥬ 室 १
"⥯" .  ଠ  ࠭ 
⮬ 㤥 祭.  GOTO 100, 
   室 ०.
   CHR#SQR -  ॢ ᯮ
 祭 ୮ 
࠭  ⭮  ⪥ 8 x 8,
ᯮ    ࠭. 
ᮧ  । ࠩ.
   ࠭ ࠩ -   ࠭
ࠧ஬ 15 x 15 ᨬ, 筮 ࠡ
 ࠩ⠬  .
    CHR#SQR -  騩 ,
 ᯮ  ஢ 
।஢ ࠦ, 室饣 
CHR#SQR.
    ࠭ ࠩ -  2 
.  ᯮ   ࠢ
࠭ ࠩ⮢. ਬ  
樨  孥 㣫 , 
  ࠡ.  㣮 室
 祭 ⨪, 室饩 १
 ,  ਧ⠫, 室饩
१ ࠢ .
    ࠭ ࠩ⮢ -  ࠭, 
ன ।⢥  ࠡ.
न   XPOS, YPOS,
 ᮮ⢥  ஢
࠭ ࠩ⮢.  ⮣ 
 १ SPRITE HEIGHT (
ࠩ⮢)  SPRITE LENGTH ( ࠩ-
⮢). ⮡ 㧭 ,    
  ࠡ⠥,  F  
ᢥ.
   ࠩ - אַ㣮 
ࠦ. ᫥ ⮣  
ᮧ ࠩ⮢,    
   தࠩ, ⮡ 㧨
  LB  ᯮ짮   
ணࠬ.   ࠩ⮢  
  ࠧ 樨:
    1.  ० ।
쭥襥 ।஢ ࠩ⮢,
⮬  뢠  ଥ,
᪠饩  ᫥ १浪 
.   ᯮ짮 
ணࠬ  LB.
    2.  ० 㦠 ࠩ,
⮢  ᯮ짮  SPST -
LASER-BASIC'e.  ᫥ 
뤠  ⮬ 祭 SPND. ࠩ,
뤠  ⮬ ०,   
㦥   ࠩ⮢.
    ,     ᥡ
㤮⢥ ᯮᮡ⥩, 
⮢ 2  ࠩ⮢ 
ਫ :
SPRITE1A -    50 ࠩ⮢
ࠧ ઠ ᮭ;
SPRITE 1 -  䠩 ࠩ⮢, 室 
樮 ணࠬ.


  

    ⮡ࠦ ᫥ -
, ਬ:

MEMORY LEFT 12549 X POS 1Y POS 1
SPRITE 00000   SPRITE HEIGHT-1
SPST.. 60279   SPRITE LENGTH-1
SPND.. 65279   SPRITE NUMBER-1

   MEMORY LEFT - 㪠뢠,  ꥪ
 ⠫  ࠧ饭 ࠩ⮢;
   X POS, Y POS - ⥪騥  -
஢ ࠭   Y ⭮⥫쭮  -
 㣫 ࠭ ࠩ⮢;
   SPRITE - 㪠뢠  , 
室   ࠩ;
   SPST.. - 㪠뢠  砫 
ࠩ⮢  .   -
ࠩ⮢  祭 65218;
   SPND.. - 㪠뢠   
ࠩ⮢;
   SPRITE HEIGHT - 砥 
 ࠩ;
   SPRITE LENGHT - 砥 
 ࠩ;
   SPRITE NUMBER -  ⥪饣 ࠩ.
 ⥪⮢ ப 뢠
믮塞    , 
⠪  樨.


    

   .  ४⥫ ਡ⮢
(筮 .ATOF, .ATON). 1 - 祭,
0 - 몫祭.

   .  ६ BRIGHT. 1 -
祭, 0 - 몫祭.

   .  ६ PAPER.
    0  7, ⮡
 梥.

   SYMBOL SHIFT +  - ᮧ 
ࠩ⮢.  ᮧ ࠩ
( ண ᮤন 
ᮮ⢥饩 ६)  ࠧ஬,
 짮⥫    1 
255 ᨬ. ࠩ   ᮧ
"", ᫨    
  .

   D.  אַ  .
ਭ 8      1
ࠧ  ᫥騬 ⨥ ENTER.  
.  ६  ࠭
ࠩ⮬  , ⬥祭 ࠬ.
      
0  255 (筮)   H00  HFF
(⭠筮).  ⮬ 砥 
 ।⢮ , 
   ਬ砭: ᫨ ४⥫
ਡ⮢ ⠭  1,   ⥪騥
ਡ  ⠪   .

   .  㭪樨 ࠭.  3
樨: 1, 2, 3.
   1.  (筮).  ⮩ 樨
 祭 ᥫ 몫, 
몫祭 - .   
, ࠧ ண  SPRITE
HEIGHT  SPRITE LENGTH.
   2. ઠ쭮 ⮡ࠦ (筮
.MIRV).   "ॢ稢" ⭮-
⥫쭮 ⨪쭮  ,  -
  ६묨,   樨 1.

   F.  ० FLASH ()
 ࠭,  ६묨 SPRITE
HEIGHT  SPRITE LENGTH.
    ०  ᯮ⥫ 
஢ન ࠢ쭮 ⠭ ஢
࠭ ࠩ⮢,  ⠪ ⮡ 㠫쭮
㢨 ࠧ ⥪饣 .

   SYMBOL SHIFT + F - ଠ஢
⨤ தࠩ. ⨤
⠢   ࠩ⮢.
⠭ 5 "" ࠩ⮢ 
ࠬ  1  5.

   G. ᥭ ࠩ  ࠭  .
 ⮩   ࠩ, ࠧ
ண ࠭  SPRITE HEIGHT 
SPRITE LENGTH,   -  SPRITE NUMBER
᭨  , 樨 ண 
஬ ࠩ⮢, ࠢ  
.
   ਬ砭: ᫨  ⮬ ४⥫
ਡ⮢ 祭,   ⠪ ᭨
   뢠  ,  ⨢-
 砥  .

   .   ࠩ SPRITE HEIGHT
(筮 HGT). ᪠   1
 15 ᨬ.

   I. 뤠 ਡ⮢.  ⮩ 
  ࠧ஢ 
⠭묨 ਡ⠬.

   SYMBOL SHIFT + I - ஫  ࠢ
  ᥫ.

   J - ७ CHR#SQR  ࠭ ࠩ⮢.
६頥 㭮  CHR#SQR  -
 , ⬥祭 ࠬ. ਡ-
 ७, ᫨ ४⥫ -
  1.

   SYMBOL SHIFT + J - 㧪 ࠩ⮢ 
  தࠩ.
   ਬ砭: ࠩ, 室騥 
,  ⮩   
ࠧ襭.

   . ७ ୮ ,
祭 ࠬ,  ࠭ ࠩ⮢
 CHR#SQR. ਡ ७, ᫨
४⥫ ⠭  1.

   L.   ࠩ SPRITE LENGTH
(筠 LEN).

   .  筠 "".  ⠪
।⠢ 3 樨.  ⮨ 
⮬,    㭪樨  ࠩ⠬
믮 ⮫쪮   , 
 ࠭   ந室.

   N. ⮩   ⢥ "".

   .  ᪨ 㭪樨. 
⮩   ।⠢ 3 樨.
  ᭨   ࠭
ࠩ⮢,  孨 㣮 ண
⠭  ࠬ,  ࠧ
ᮮ⢥ । ࠩ, 
    ࠩ, 
ண । ६ SPRITE
NUMBER.  ⪫祭 ਡ 
.
    1. 뢠   ࠭ 
।⥫쭮 । ࠩ 
ਭ樯 "" ("OR")  १
⠢  ࠩ (࠭  ).
    2. 뢠   ࠭ 
ਭ樯 "᪫饥 " ("XOR").
    . 뢠   ࠭ 
ਭ樯 "" ("AND").

   . 頥 ࠩ,  ண
ᮤন  SPRITE NUMBER,  ࠭
ࠩ⮢  , ⬥祭 ࠬ.

   Q. 믮   CHR#SQR.

   SUMBOL SHIFT + Q. ⪠ ࠭
ࠩ⮢.

   R. ॢ ࠩ    90
ࠤᮢ. 室 ࠩ  .
 ࠩ ᫥  ᢠ-
  . ਡ 稢-
 ⮬᪨.

   S. ࠢ ६ SPRITE NUMBER
(筮 SPN).  
ࠩ. ᫨ 訢  㦥
饣,  㤥 뤠 ।-
०.

   SYMBOL SHIFT + S. 믮 
SAVE  ࠩ⮢. ᫥ ⮣ 믮-
 VERIFY. ᫨  १ VERIFY -
 ᡮ,   GOTO 100, ⮣
      祭.

   T. 믮 ஢ ࠩ⮢
(筮 TST). ஢ ࠩ, 
ண ᮤন  ६ SPRITE
NUMBER, 믮:
   1. 頥  ࠩ  ६
SPRITE HEIGHT;
   2. 頥  ࠩ  ६
SPRITE LENGTH;
   3. 頥  ,  ஬
稭  ࠩ,  ६
SPRITE;
   4. 頥  砫 
ࠩ⮢  ६ SPST;
   5. 頥   
ࠩ⮢  ६ SPND;
   6. 뢠 ꥬ ᢮ ,
㯭  ࠭ ࠩ⮢, 
頥   ६ MEMORY LEFT.
   ਬ砭: ࠦ  
६  ࠭  砥 室-
 㤥 ࠡ⠭.

   SYMBOL SHIFT + T. ஫  
  ᥫ.

   U.  ࠬ ਡ⮢ ᨬ 
࠭ ࠩ⮢  樨, ⬥祭
ࠬ,  頥   4 ६
ਡ.

   SYMBOL SHIFT + U. ஫  .

   V. 祭 ६ FLASH ( 
 4- ६ ਡ⮢):
   1 - 祭;
   2 - 몫祭.

   W. 祭 㭪樨 ࠭ ࠩ⮢
"WIPE SPRITE" ( DAPR). 
ࠥ   ࠩ,  
㪠뢠 ६ SPRITE NUMBER. 
ࠩ, 室騥    ⮣
ࠩ,  , 롨
᢮ ࠭⢮.

   X.  ६ INK. ᫥ 
    0  7, 롨
㦭 梥.

   Y.  ⥫ ⢥ "" 
 "Y/N".

   SYMBOL SHIFT + Y. ஫   
ᥫ.

   SPACE -   ६
ࠩ  ࠧ஢  ண,
襣 ࠩ  , 
६묨 ROW  COL ண ࠩ.
     4 樨:
   1. GETBIS: 訩 ࠩ 頥
।⢥  訩;
   2. GETORS: 뢠  "OR";
   3. GETXRS: 뢠  "XOR";
   4. GETND: 뢠  "AND".
   5, 6, 7, 8. - ६饭  
CHR#SQR  ᮮ⢥ ࠢ.
   9 - 砥 CHR#SQR  ࠭
樨.
   0 - 몫砥 CHR#SQR  ࠭
樨.
   SYMBOL SHIFT + 5, 6, 7, 8 - ࠢ
६饭ﬨ ஢  ࠭ ࠩ⮢.


 

   ⠪, 冷 ᮧ ࠩ⮢ 
 ࠩ⮢ ⠪:

   1. 㧨  ࠩ⮢ 
믮 "宫" (COLD) .
   2. ⠭ 襩  䫠 ਡ⮢
 1.
   3. ⠭ 梥 INK  PAPER.
   4.  ᢮ ࠩ  ᨬ 
ᯮ ⮤ אַ  .
   5.  ࠧ   ࠧ஢
᢮ ࠩ.
   6. ⠭  ࠭ ࠩ⮢ 
 㣮 襣 ࠩ.
   7. ᢥ  襩 "F", ⮡
㡥,    ࠩ⮢ 
 (ᠭ)  .
   8. 㧨 ࠩ   襩
"G".
   9. ஢, ࠢ쭮  諠
. ॢ   ᢮
 ࠭ ࠩ⮢   㤠
ࠩ 襩 "".
   10. 믮 㣨 室
樨  ᮧ 㣨 ࠩ.
   11. 㧨 ࠩ    ଥ
樨 1  ⥬, ⮡   
㦥 ᫥⢨  
ࠩ⮢  ࠡ⪨  ।஢.
   12. 㧨 ࠩ   
ଠ 樨 2  쭥襣 
ᯮ짮  ணࠬ LASER-BASIC.
   13.    १
RANDOMIZE USR 0.
   14. 㧨 LASER-BASIC.
   15. 㧨 ࠩ, ᯮ 樨
2  . 稪  
: "SPRITE START ADRESS" ( 砫
 ࠩ⮢),   ,
믮 㭪 12.




