デジモンアドベンチャー 第5話電光!カブテリモンに登場するプログラム
本編次のようなコードを見つけました。
(読みやすさのために順番を変えてる箇所があります)
/* func sample. coast creation */float swhile s<1 or s>=2 input "ratio 1 to 2";sendwhilescreen 1,2,1,1line(100, 50, 412, 50, 255, 65535)s = (s-1)/10+1s=sqr(s*s-1)float x0=100, x1=412, y0=0,