Sign in
gem5
/
testing
/
jenkins-gem5-prod
/
834846f80259522612d966657d68db3fb10ea90c
/
.
/
ext
/
ply
/
example
/
BASIC
/
maxsin.bas
blob: b96901530c24fac8afd326d68c5317f5a40ec953 [
file
] [
log
] [
blame
]
5
PRINT
"X VALUE"
,
"SINE"
,
"RESOLUTION"
10
READ D
20
LET M
=
-
1
30
FOR X
=
0
TO
3
STEP D
40
IF SIN
(
X
)
<=
M THEN
80
50
LET X0
=
X
60
LET M
=
SIN
(
X
)
80
NEXT X
85
PRINT X0
,
M
,
D
90
GOTO
10
100
DATA
.
1
,
.
01
,
.
001
110
END