← 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/sales.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/sales.bas
 
1
10 FOR I = 1 TO 3
 
2
20 READ P(I)
 
3
30 NEXT I
 
4
40 FOR I = 1 TO 3
 
5
50 FOR J = 1 TO 5
 
6
60 READ S(I,J)
 
7
70 NEXT J
 
8
80 NEXT I
 
9
90 FOR J = 1 TO 5
 
10
100 LET S = 0
 
11
110 FOR I = 1 TO 3
 
12
120 LET S = S + P(I) * S(I,J)
 
13
130 NEXT I
 
14
140 PRINT "TOTAL SALES FOR SALESMAN"J, "$"S
 
15
150 NEXT J
 
16
200 DATA 1.25, 4.30, 2.50
 
17
210 DATA 40, 20, 37, 29, 42
 
18
220 DATA 10, 16, 3, 21, 8
 
19
230 DATA 35, 47, 29, 16, 33
 
20
300 END