'
' EXAMPLE2      
' けいさん COMPUTER 
'
XSCREEN 0
DISPLAY 0
VISIBLE 1,1,1,1
CLS
GCLS
COLOR 15
PRINT ""
PRINT "けいさん COMPUTER(ニコチャン)"
PRINT ""
PRINT ":こんにちは ニコチャン です"
PRINT "ぼくの しつもんに こたえてね"
'---
@LOOP
PRINT
COLOR 11
INPUT ":1つめのすうじは";NO1
COLOR 7
INPUT ":2つめのすうじは";NO2
'---
@MARK
COLOR 15
PRINT "(1)";NO1;" と ";
PRINT "(2)";NO2;" ですね"
PRINT 
COLOR 13
PRINT " +  (1)と(2)を たす"
PRINT " -  (1)から(2)を ひく"
PRINT " /  (1)を(2)で わる"
PRINT " %  (1)を(2)で わった あまり"
PRINT " *  (1)と(2)を かける"
COLOR 15
INPUT ":きごうは(+-/%*)";K$
PRINT "おこたえします"
'---
MARK=0
IF K$=="+" THEN MARK=1
IF K$=="-" THEN MARK=2
IF K$=="/" THEN MARK=3
IF K$=="%" THEN MARK=4
IF K$=="*" THEN MARK=5
ON MARK GOTO @SKIP,@PLUS,@MINUS,@DIV,@MOD,@MUL

'---
@SKIP
BEEP 4
PRINT "しらないきごうです...ゴメン"
PRINT
GOTO @MARK
'---
@PLUS
PRINT NO1;"+";NO2;"=";NO1+NO2
GOTO @LOOP
'---
@MINUS
PRINT NO1;"-";NO2;"=";NO1-NO2
GOTO @LOOP
'---
@DIV
PRINT NO1;"/";NO2;"=";NO1/NO2
GOTO @LOOP
'---
@MOD
PRINT NO1;"%";NO2;"=";NO1 MOD NO2
GOTO @LOOP
'---
@MUL
PRINT NO1;"x";NO2;"=";NO1*NO2
GOTO @LOOP