Sign in
gem5
/
public
/
gem5
/
32e4ac65a877653c07e2e1df8e94433f0c62ba0a
/
.
/
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