＃初心者プログラマー和仁　003　隠しコマンドルーチン（十進BASIC版）

REM
REM     和仁・・プログラム隠しコマンドｗｗ
REM          @kxx1ove ver 1.1
REM 
REM <cutstart>    
CALL himitu(flug)
END 
REM <cutend>      

EXTERNAL FUNCTION lip$(a)
LET s$=""
DO WHILE s$=""
  LET s$=inkey$(void)
LOOP 
LET lip$=s$
END  FUNCTION 

EXTERNAL SUB himitu(f)
REM f:flug
LET s$=""
LET sc$=""
LET hm$="@kaz"
PRINT "Please Any Key ..."; 
FOR i=1 TO 4
  IF f=0 THEN 
     LET s0$=""
     LET s0$=lip$(a)
     PRINT ".";
     IF s0$=mid$(hm$,i,1) THEN 
        CALL timerK(200)
        LET sc$=sc$&s0$
        LET s0$=""
     ELSE 
        LET f=1
        LET i=4
     END  IF 
  END IF    
NEXT i
IF f=0 THEN 
  PRINT 
  PRINT "completed"
ELSE 
  CALL pointK(20,15)      !'1:kaisu 2:time cuont
  PRINT 
  PRINT "start"
END IF 
END sub

EXTERNAL SUB  timerK(c)
REM c:cuunter
FOR i=1 TO c
  FOR j=1 TO 100
     FOR k=1 TO 100   
        LET b=10
        LET c=11
        LET a=b*c*10
     NEXT k
  NEXT j
NEXT i
END SUB

EXTERNAL SUB pointK(k,t)
REM k:点回数
REM t:タイマーcounter
FOR i=1 TO k
  PRINT ".";
  CALL timerK(t)
NEXT i
END SUB 

EXTERNAL FUNCTION inkey$(void)
SET ECHO "OFF"
LET S$=""
CHARACTER INPUT NOWAIT: s$
LET inkey$=s$
END FUNCTION

正の場合
Please Any Key .......
completed

偽の場合
Please Any Key ........................
start
(ありきたりな始まりを演じます）