<⨬  祭  䠩>  ⨬  樮 ⥬  CPM
祭  䠩.    ᫥     窨	"  "    ப 
⠭,          ப ६,    
१   ப	ࠦ.   㪢	⪠	".BAS"	  
⮬᪨,	 ᫨      㣨  ⪨.   ᫨  ४⨢	SAVE 
ᯮ    ࠬ  A  P,   ᨪ-ணࠬ    
஬筮  ,      㦥    ४⨢ 
LOAD.	  
     ᫨ ᨪ-ணࠬ   ⠢   ४⨢ MERGE 
 ᨪ-ணࠬ,   室 ⥫쭮  ࠬ .  
뢠    ᨪ-ணࠬ    ASCII.  ᫨  ⥬  ᨪ-
ணࠬ    ࠭᫨஢     ᨪ-,  ⠪
᫥ ᯮ짮 ࠬ .  ᫨ ᨪ-ணࠬ,  ࠭
 ,       ᯥ뢠 (..  
㯭  㣨 짮⥫  ᫥ ᬮ  ࠡ⪨),   
   ᠭ    饭 ଠ   ⥫쭮 
ࠬ  . ணࠬ     ୮ 㦥  ⮫쪮    
४⨢ LOAD.
ਬ:        SAVE "B:DATEII"
	       SAVE "DATE12",A
	       SAVE "DATE13",P
ਬ砭:
           ப  ࠦ  ९뢠     
ᮤঠ (쪨 㪢  ८ࠧ ⮬᪨  訥 㪢), 
⨬  祭   䠩   ४⨢ LOAD    ᥣ   
⮫쪮   㪢. ⨬ ᯥ稢 ,  䠩  ⪫  
ᯨ᪥ 䠩,  .. 樮 ⥬  ⮬᪨ ८ࠧ 
  쪨 㪢  訥.  ᫨ ᯮ 祭  䠩, 
஥  㦥 ⢮  䠩  譥 ,    ᮮ⢥騩 
䠩 ९뢠  ।०.  ४⨢ SAVE  ᨪ-
஬.

5.12. ४⨢ LOAD

         ४⨢  LOAD  㧨  ( ᫨  㦭  )
ᨪ-ணࠬ.
ଠ: LOAD"<⨬ 祭 䠩>" [,R]
<⨬  祭 䠩> -  ⨬  樮 ⥬ 
祭 䠩  㪢 ⪮ ".BAS".  ᫥    窨 
"  "   ப ⠭,	         ப 
६,    १ ப ࠦ. ४⨢ LOAD ஢ 
㪢      㦠	⮫쪮	䠩    㪢  ⪮  ".BAS". 
४⨢ LOAD 뢠      䠩,  ࠥ  
६  ९뢠 ணࠬ, 室  ⨢ .
     ᫨ ᯮ ࠬ R,  㦥 ணࠬ ᪠.  
       䠩  묨 묨    ᢮ 
ﭨ.  ᨪ-ணࠬ,  騥 㧪 ४⨢  LOAD,   
 । ⨬ ᠭ  䠩   ४⨢ SAVE (.ࠧ 5.11.)

ਬ:

LOAD "DATEI1",R   ணࠬ 㦠  䠩 "DATEI1"  ࠧ ᪠	      
LOAD "DATEI1.BAS" ணࠬ 㦠  䠩 "DATEI1.BAS".

ਬ砭:
     ४⨢   LOAD      ᯮ짮  ⠪     .   
ᮢ㯭    ਠ⮬ R,    ନ஢  楯   
᪮쪨  ணࠬ   ணࠬ 蠣,  ..   ணࠬ  뢠
᫥  ..

5.13. ४⨢ RUN

         ४⨢  RUN     㦥    饭  ᨪ-
ணࠬ.
ଠ:   RUN[< ப>]
	  
	  RUN<⨬ 祭 䠩> [,R]
 ࢮ ଠ 㦥 㦥 ணࠬ ࠡ뢠   
ப.  ᫨  㪠  ப ,  ணࠬ ᪠   
ࢮ	饩 ப.   䠩 ।⥫쭮 ॢ    室 
ﭨ,  ..  䠩 뢠    . 
஬ ଠ ணࠬ 㦠  ࠡ뢠  ࢮ	ப.
<⨬  祭 䠩>   ⨬  樮 ⥬ 
祭 䠩  㪢 ⪮ ".BAS".  ᫥    窨 
"  "   ப ⠭,	   짠      ப 
६,   १ ப ࠦ.
     ᫨  ⥫ ࠠ R  ,     ࢮ  ଠ 
  䠩 ।⥫쭮 ॢ  室  ﭨ,  ..  
䠩 뢠    .   ᯮ짮 ࠬ 
R    ࠡ뢠 ᫥饩 ணࠬ  䠩,   
।饩 ᨪ-ணࠬ.
ਬ:
	       10 A%=10  * 10
	       20 PRINT A%
	       RUN 20
	       0
	       OK
	       RUN
	       100
	       OK
	       RUN "DATEI1"
	       .
	       .
	       .
	       RUN "B:DATEI2",R
	       PN$="C:DATEI1.BAS"
	       RUN PN$

ਬ砭:
     ன ଠ   ᯮ짮  .     
㧨    ⨢  ணࠬ  㣮 ணࠬ,   믮 
.   ४⨢  ਭ  ᨪ-஬  ⮫쪮     ਠ
"R".    ᯮ짮  CHAIN (.  ࠧ 12.5.).   ०
樨 RUN ࠡ⠥  設묨 ணࠬ,  ᠭ  䠩  
㪢 ⪮ ".COM". ⮬ ணࠬ,  ⨢樨,   
 ணࠬ  設 .

5.14. ४⨢ MERGE

         ४⨢ MERGE  㦥 ⥪ ணࠬ   
 㣮 ணࠬ ⥪. ணࠬ,  㦭 ,  
 ᠭ    ଠ ASCII (  ਠ   SAVE) 
(. ࠧ 5.11.).
ଠ:  MERGE <⨬ O祭 䠩>
<⨬  祭 䠩>  ⨬  樮  ⥬  
祭   㪢 ⪮ ".BAS".   ᫥    窨 " " 
  ப	⠭,               ப 
६,   १ ப ࠦ.
      ४⨢  MERGE ।,   ⥪ ணࠬ ।⠢   
ASCII.	४⨢  ஢  㪢    뢠  ⮫쪮  䠩   
㪢  ⪮ ".BAS".  ᫨  ⥪ ணࠬ,  饩  , 
   ப ணࠬ,    㦥 ᮤঠ	  饩 
ணࠬ,  	ࢮ砫	ப	  묨  ப.  ᫥ 
ࠡ⪨  ४⨢    ⠭  ४⨢  ०.  ⨢ 
஢   ணࠬ      ⢫  ⮫쪮      
४⨢ RUN (. ࠧ 5.13.)
ਬ:
	  LOAD "DATEI1"
	  OK
	  MERGE "DATEI2"
	  OK
	  RUN
	
ਬ砭:
     ४⨢  MERGE  ⠪   ப ணࠬ.    ४⨢
ᮡ    ⮣,    ᯮ㥬 ⥪  ணࠬ   
⠢     	ணࠬ.   	⮬	,	 ணࠬ   
ନ஢   "⥪   ணࠬ      ⥪⮢".      ᯮ짮 
ᮮ⢥饩  㬥樨,	  ⮣   ⨣  ᮪ 
ந⥫쭮   ࠧࠡ⪥ ணࠬ.  ४⨢  MERGE	 
ᨪ-஬.

5.15. ४⨢ FILES

         ४⨢ FILES ᯨ᮪ 䠩   뢥    ࠭
ᯫ.
ଠ:  FILES [<⨬ 祭 䠩>]
<⨬  祭 䠩>   ⨬  樮 ⥬  
祭  䠩.    ᫥  	  窨 "  "    ப 
⠭,         ப ६,     
१ ப ࠦ.

ਬ:

FILES             -  ࠭ 뢮  騥  㠫쭮 ᪮
		     䠩.
FILES "*.BAS"     -  ࠭ 뢮  騥  㠫쭮 ᪮
		     䠩  㪢 ⪮ ".BAS".
FILES  "B:*.BAS"  -  ࠭ 뢮  騥  ᪮   :
		    䠩  㪢 ⪮ ".BAS".
FILES  BEZ$       - ᮮ頥,     㠫쭮 ᪮  
		    䠩, ⮡࠭  ᮤন ப ६.

5.16. ४⨢ KILL

      ४⨢ KILL 䠩   .
ଠ:  KILL <⨬ 祭 䠩>
<⨬  祭 䠩>   ⨬  樮 ⥬  
O祭  䠩.    ᫥     窨	"  "    ப 
⠭,          ப ६,    
१ ப ࠦ.

ਬ:   KILL "DATEI.BAS"

5.17. ४⨢ NAME

       ४⨢ NAME २뢠 䠩.
ଠ:  NAME <⨬ 祭 䠩> AS 
	      <⨬ 祭 䠩>
<⨬  祭 䠩>  ⨬  樮  ⥬  
祭  䠩.    ᫥  	  窨 "  "    ப 
⠭,         ப ६,     
१ ப ࠦ.
     ࢮ 祭,   䠩, 饣 २,  ஥ 
祭   ࠭  ⮣ 䠩.

ਬ:       NAME "B:DATEI1" AS "DATEI2.BAS"
	      NAME "DATEI3.BAS" AS "DATEI03".
ਬ砭:
     ४⨢ NAME   ᯥ譮 ᯮ짮  .


     ४⨢	TRON    TROFF	뢠 祭    몫祭  ணࠬ 
TRACING,  ..  ணࠬ  ஢.  ४⨢  㦠    ᯥ祭
஢ ணࠬ.
ଠ:  TRON
	 TROFF
   TRON 砥 TRACING.  ஢騪 뢮   ࠭  ᯫ
	ப  ணࠬ  䠪᪮ ᫥⥫쭮   樨; 
	ࠡ⠭ ப ணࠬ   ᪮ [ ]  .     
TROFF ணࠬ TRACING    몫祭.
ਬ:        10 K%=10
	       20 FOR J%=1 TO 3
	       30 L%=K%+10
	       40 PRINT J%;K%;L%
	       50 K%=K%+10
	       60 NEXT J%
	       70 END
	       TRON
	       OK
	       RUN
	       [10] [20] [30] [40] 1  10  20
	       [50] [60] [30] [40] 2  20  30
	       [50] [60] [30] [40] 3  30  40
	       [50] [60] [70]
	       OK
	       TROFF
	       OK
	       RUN
	       1  10  20
	       2  20  30
	       3  30  40
	       

  ਬ砭:

     ४⨢  TRON    TROFF  ⠪ ᯮ짮    ணࠬ  
,  ᫨  㦭  ᯥ ஢ ஢ ப 
 । ࠧ ணࠬ.   ,   뢥  
ப    ନ஢  ࠦ    ࠭.	  TRACE   ᫥ 
ᯮ짮   TRON ⠥ 祭   ,    㤥 
믮  TROFF  NEW (. ࠧ 5.1.).
     ⮡    ४⨢   뫮  ᯮ짮    ᨪ-,
᫥ ஢ ஢  ਠ⮬ /D.   㣨   
   뢮 ।०.
6. ⠭  몥 ᨪ

     ⠭,   ﭭ 稭,  ᯮ㥬   ᨪ-ணࠬ,
  믮 ணࠬ  .  몥 ᨪ ࠧ:

     - ᫮ ⠭
     - ப ⠭

     ᫮  ⠭,  ᮤঠ騥  8 ,   騥  
ᯮ    㪢  ,   稢騥 ᪫⥫    !  -
  ᫮묨 ⠭⠬ ⮩ ୮  筮.    ७ 
ࠦ 룫廊 ᫥騬 ࠧ:  楫 ᫠ N,  騥  
-32768 <= N <= 32767, ࠦ   塠  ᥫ.
     ⠫ ᫮ ⠭ ୮ 筮, 騥  
 ABS(10E-38)  ABS(10E+38), ࠦ   塠⭮ 筮 
᫠,	᫨  ᪠  ᫮    筮;	  ⨢  砥 
ந室 ।⠢ ᫠  ଥ  饩 ⮩.
     ᫮ ⠭,  ᮤঠ騥  7 ,   騥    
ᯮ    㪢 D,   稢騥  #,    ᫮묨 
⠭⠬  筮.   ।⠢   8-⭮ ᫠   
饩 ⮩.
      ᫮ ⠭  ᯮ짮  ⭠ ᫠ 
  ଥ  &HN...N    쬥 ᫠  ଥ  &0N...N	  &N...N. 
⭠  ⠭      H0000  HFFFF.   
७ ࠦ  ।⠢ ᮡ INTEGER-⠭    
ࠦ ᫥騥  :
		      
	       &H0000...&H7FFF		     0...+32767
	       &H8000...&HFFFF		    -32768...-1
     
쬥  ᫠      0  177777.    ७ 
ࠦ  ।⠢ ᮡ INTEGER-᫠  ⠪ ࠡ뢠.  
ࠦ   ᫥騥  :
	       &0000000...&0077777	     0...+32767
	       &0100000...&0177777	    -32768...-1
ப ⠭    ᨬ 255 .    
窨 " ".

ਬ:
     ᫮ ⠭ ⮩ 筮
	       44.3
	       20.51
	       -1.078-07
     ᫮ ⠭  筮
	       1234567890
	       12345.678901
	       20.5#
	       -1.078DD-07
     ⭠ ⠭
	       &H2A70
	       &HCABI
     쬥 ⠭
	       &012345
	       &12345
     ப ⭠
	       "ப  ⠭"
	       "123.45 MARK"
7. ६  몥 ᨪ

7.1. 祭 ६  । 樨 ⨯		       

     ६  ணࠬ 稭, 祭   ணࠬ 
.   .  몥 ᨪ ࠧ:
	       - ᫮ ६
	       - ப ६
	       - 㪠⥫ 㭪権
祭 ६ ࠧ   ᨬ 40  .
 ᥣ 稭  㪢,	 ன  ᫥ 㪢,    
窠.	祭 ६  稢   : $, %, !, 
 #.
      砥:
     $         祭 ப ६, ਬ 10$
     %	       祭 INTEGER-६ (2-⭮), ਬ I%
     !	       祭 REAL-६ ⮩ 筮 (4-⭮)
	       ਬ R17! ("!"   饭)
     #	       祭 REAL-६  筮 (8-⭮)
	       ਬ ALPHA#.
     祭   ६,	    稭	   "FN",    
祭ﬨ 㭪権.	 ᫮  ப ६ । 
⥪⭮, ..   ⭮    ᯮ짮.

ਬ:
     ࠢ  祭
	  AI$
	  15%
	  DIAB#
	  BEZ
	  BEZ!
	  ENDWERT
     ࠢ 祭
	  1A$ - (祭 ६ ᥣ 稭  㪢)
	  A$1 - (㪢 ⪠ ६ ᥣ ⮨  )
	  FN# -  ᫥⥫쭮  FN  १ࢨ஢,  
		 ⢥ 祭 ६ ᯮ짮  
	  END -  ⨬ 祭,  .. END  몥 ᨪ 
		 १ࢨ஢ ᫮. 

7.2.    ᠭ DEFIND,  DEFSNG,  DEFDBL  DEFSTR   ⭮ 
      樨 ⨯

          ஢  DEFINT,   DEFSNG,   DEFDBL,   DEFSTR  
⭠  ⨯ 祭 ६.    ⮣  믠 
ᯥ樠    砭 祭 ६ (%,!,#  	$),   
筮 ⠭ ࠧ । ⨯ ६  ᨪ-ணࠬ.
ଠ:
DEFINT <> [-<>] [,<>[-<>]]...
DEFSNG <> [-<>] [,<>[-<>]]...
DEFDBL <> [-<>] [,<>[-<>]]...
DEFSTR <> [-<>] [,<>[-<>]]...
ਬ:
	       10 DEFINT I-N, W-Z
	       20 DEFDBL A-C
	       30 DEFSTR R,T
	       40 R="DAS IST EIN STRING".
	       50 A=10/3
	       60 I=10/3
	       70 PRINT I
	       80 PRINT A
	       90 PRINT R
	       RUN
	       -3
	       3.333333333333333
		 DAS IST EIN STRING.
	       OK

ਬ砭:
       樨 ⨯  夨  砫  ணࠬ.  
⢨⥫   祭 ᥣ ६ 믮  ணࠬ.  ᯮ짮 
      権 ⨯   ந室	ᬥ蠭.  	⮬ 
ᯫ  () 樨 ⨯  २⢮,  ..  ᫨   
६     樨 ⨯ ᮤন  ⥫  㪢 
,  ⫨砥  樨,   ⪠  ਮ.

ਬ: DEFINT X-Z.
      ⮬ 砥 ⠪ 祭,  X, YPSYLOG, ZEIT$ ᯮ  
INTEGER- ६.    祭 ६ ZEIT$    
ப  ६,	   饥 ᮢ   INTEGER-
६묨.
        ᯮ짮   ⨯    ࠪ⨪ 
ணࠬ஢.   窨 ७ ᮢ६ ⮤ ணࠬ஢,  
ਢ      ᮪   訡 	  娬  ⥪⮢ 
᫮.   ४ ᯮ짮   , ᫨  뤢 
६  ॡ 騥 ' ,  ..  -  ⢨
㪢  ⮪  ᮪頥 ⥪ ணࠬ,	 ᫨  ணࠬ     
⮣  ᯮ짮 ⮫쪮  । ⨯ ६.
       ࠡ ᨪ-   ࠡ뢠 ᪨.
 砥,    䥪⨢  ⮣ ,       
⥪ ணࠬ  DEF???.  室  ஢, ਬ   
 GOTO ,   ᨪ-,   .
     

7.3. ᠭ  㭪樨 DEF FN

        ᠭ DEF FN । ⤥ 㭪樨.
ଠ:   ᠭ: DEF FN < 㭪樨>
	  [(<ଠ ࠬ> [,<ଠ ࠬ>]...)]
	  =<ࠦ 㭪樨>
	  맮:  < ६>=
	  FN   <  㭪樨>  [(<㠫  ࠬ>  
	  [,<㠫 ࠬ>]...)]
ᠭ  㭪樨   ᥣ ந室 ।     맮.  
砥,  	  ப  ᠭ 㭪樨 ᥣ 	 
,  祬    ப  ,    ஬  뢠  뢠 
㭪.   ।     㭪樨  ⠢  㪢	FN.      ࠧ 
⥣஢ ﭭ   ᠭ 㭪樨.   㭪樨    
   ᫥      㭪樨	  	  ⭮ 
樨 ⨯.
     ᮪  ࠬ஢  ᮤন   ଠ	६,   
ᯮ    㫨஢  ࠦ  㭪樨.	  맮  㭪樨 
ଠ ࠬ  㠫묨 ६묨.    ਢ   
訡,  ᫨   ⠫쭮  ணࠬ ᯮ  ६, 
 ⠪ ᯮ  ଠ ࠬ  । 㭪樨.
     ࠦ	㭪樨 ந  ᮮ⢥⢨  ᨭ⠪᪨  ࠢ 
몠  ᨪ   ࠦ ᮮ⢥饣 ⨯.   ⮬  ᠬ  㭪 
 ᯮ짮 ४ᨢ.  । 㭪樨   ॢ 
, ࠢ 255 .
ਬ:
	       10 DEF FNPYT!(A!,B!)=SQR(A!^2+B'^2)
	       20 Z!=3
	       30 Y!=4
	       40 C!=FNPYT!(Y!,Z!)
	       50 PRINT C!
	       RUN
	       5
	       OK
     騩  ਬ  뢠 ப  㭪,    ८ࠧ
訥  㪢	   (ST%=-1)     訥	(ST%=+1).  	⮬ 
,    ॠ ᪨ 襭  ⤥쭮 㭪樨.

	       10 DEF FNGKKG$(Z$,ST%)=CNR$(ASC(Z$)-
		  32*((ST%=1)*(Z$>="A'")*(Z$<="Z'")-(ST%=-1)*
		  (ZS>="A")*(Z$<="Z")))
	       20 PRINT "GROSSE BUCHSTABEN IN KLEINE BUCHSTABEN"     *
	       30 PRINT "A";FNGKKG$ ("A",-1)
	       40 PRINT "Z";FNGKKG$ ("Z",-1)
	       50 PRINT "A'";FNGKKG$ ("A'",-1)
	       60 PRINT "Z'";FNGKKG$ ("Z",-1)
	       70 PRINT "KLEINE BUCHSTABEN IN GROSSE BUCHSTABEN "    **
	       80 PRINT "A";FNGKKG$ ("A",1)
	       90 PRINT "Z";FNGKKG$ ("Z",1)
	       100 PRINT "A'";FNGKKG$ ("A'",1)
	       110 PRINT "Z'";FNGKKG$  ("Z'",1)
	       120 END
	       RUN

	       GROSSE BUCHSTABEN  IN KLEINE BUCHSTABEN		     *
	       A  A'
	       Z  Z'
	       A' A'
	       Z' Z'
	       KLEINE BUCHSTATEN IN GROSSE WUCHSTABEN		    **
	       A  A
	       Z  Z
	       A' A
	       Z' Z
	       OK

*  "訥 㪢  쪨 㪢"
** "쪨 㪢  訥 㪢"

7.4. ८ࠧ ⨯ 

       室 ८ࠧ 祭  ⨯ 
  㣮  ⨯	.     ந室  ⮬᪨,    ᮤন 
६      筮 ८ࠧ   ⨯    ६   
᮪ 筮.   ࠭ ᮪ 筮. ਬ, ᫮ 
2  2.718281828  १,  騩  筮.   ⮬ ᫮ 2 
뫮  ८ࠧ   ⢨⥫쭮 ᫮   筮,  ..  ஥
᫮  ᫮ ⮣ ⨯.  ⮬᪨ ந室 ८ࠧ 
 ᫥⥫쭮⥩  ᫮  .
      ८ࠧ ᫮ ⨯   ᫥騥 ࠢ:
)   REAL (   筮)    INTEGER:
     ࠡ뢠  襥 INTEGER-祭,  ஥ 	,  祬 
     ࢮ砫쭮  祭 (⥬᪮ 㣫).    ⮬  REAL- 
     祭        -32768   +32767.	  ⨢ 
     砥  ᮮ饭  訡 ࠧ୮.
ਬ:        10 A%=1234.56789012345
	       20 B%=2.5
	       30 C%=-10.5
	       40 D%=-32770.5
	       50 PRINT A%;B%;C%;D%
	       60 END
	       RUN
	       1234  2	-11
	       OVERFLOW
	       OK

B)   INTEGER  REAL (   筮):
       ⮬ ८ࠧ ᫥ 筮 窨   㫨,  ⠪
      訡 㣫  .
ਬ:        10 A#=32767
	       20 B!=-12345
	       30 PRINT A#,B!
	       40 END
	       RUN
		32767.00000000000
	       -12345.0
	       OK
C)   REAL ( 筮)  REAL ( 筮):
       REAL-  ⮩  筮    㫨.     ⮬  
       筮,  ..  ⮫쪮 讥 ᫮  ஡
       筮 ⠢       ஡.
     ⮬  室    ⮣    ८ࠧ.   
     㣠    ८ࠧ REAL-६ ⮩  筮   
     .   砥  ⮬, ⮡ ८ࠧ REAL-᫮ ⮩ 
     筮   ᫥⥫쭮     REAL-᫮   
     筮.	   ⮣  	몥  ᨪ  	ᯥ樠  㭪樨 
     ८ࠧ  ⨯ STR$  VAL (.  ࠧ 17.3.   17.4.).  ਭ樯
     ⢨   ᥭ ᫥饣 ਬ:
	       10 A!=1.3
	       20 B#=A!
	       30 C#=VAL(STR$(A!))
	       40 PRINT A!,B#,C#
	       50 END
	       RUN
		1.29999
		1.29999995216284
		1.3000000000000
	       OK

7.5. 㭪樨 CINT, CDBL  CSNG  㦤 ८ࠧ ⨯ 

     㭪  CINT  ⢫  㣫   ᥫ    -32768  
32767.
ଠ:  [<ITREGER-६>] = CINT (<㬥>)
<㬥>   ᫮ ࠦ,  ᫮ ६  ᫮ 
⠭⮩,  祭     ⮩      筮.  㭪 
ਭ 楫᫥ 祭.

ਬ:        10 PRINT CINT(33.33); CINT(33.52)
	       RUN
		33  34
     㭪  CDBL  ८ࠧ  ᫮  ⮩  筮    ᫮  
筮.
ଠ:  [<REAL-६  筮>] = CDBL (<㬥>)
<㬥>    ᫮ ࠦ, ᫮ ६  ᫮ 
⠭⮩,  祭     ⮩ 筮   INTEGER-祭ﬨ. 
祭 㭪樨  祭 ⨯ REAL  筮.

ਬ:        10 A!=454.67
	       20 PRINT A!; CDBL(A!)
	       RUN
		454.67	454.6700134277344
	       OK

     㭪  CSNG  ८ࠧ  ᫮    筮    ᫮  ⮩
筮.
ଠ:  [<REAL-६  ⮩ 筮>] = CSNG (<㬥>]
<㬥>    ᫮ ࠦ, ᫮ ६  ᫮ 
⠭⮩,  祭    筮. 祭 㭪樨  
祭 ⨯ REAL ⮩ 筮.

ਬ:        10 A#=975.3421
	       20 PRINT A#; CSNG(A#)
	       RUN
		975.3421020507813  975.342
	       OK
     


ਬ:        10 A#=975.3421
	       20 PRINT A#; CSNG(A#)
	