BASIC-0.1.2.1: examples/Func.hs

{-# OPTIONS_GHC -fno-warn-type-defaults #-}
{-# LANGUAGE ExtendedDefaultRules, OverloadedStrings #-}
module Func where
import Language.BASIC

main :: IO ()
main = runBASIC' $ do

    10 FOR I := 0 TO 20
    20   LET X := I/10
    30   PRINT X;" ";SIN(X);" ";COS(X);" ";TAN(X);" ";ATN(X);" ";EXP(X);" ";LOG(X);" ";SQR(X);" ";ABS(X);" ";SGN(X);" ";INT(X);" ";RND(X)
    40 NEXT I
    100 END