← Back to branch summary

~ubuntu-branches/ubuntu/vivid/emscripten/vivid

« back to all changes in this revision

Viewing changes to third_party/ply/example/BASIC/maxsin.bas

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2013-05-02 13:11:51 UTC
  • Revision ID: package-import@ubuntu.com-20130502131151-q8dvteqr1ef2x7xz
Tags: upstream-1.4.1~20130504~adb56cb
Import upstream version 1.4.1~20130504~adb56cb

Show diffs side-by-side

added added

removed removed

Lines of Context:
third_party/ply/example/BASIC/maxsin.bas
 
1
5 PRINT "X VALUE", "SINE", "RESOLUTION"
 
2
10 READ D
 
3
20 LET M = -1
 
4
30 FOR X = 0 TO 3 STEP D
 
5
40 IF SIN(X) <= M THEN 80
 
6
50 LET X0 = X
 
7
60 LET M = SIN(X)
 
8
80 NEXT X
 
9
85 PRINT X0, M, D
 
10
90 GOTO 10
 
11
100 DATA .1, .01, .001
 
12
110 END