summaryrefslogtreecommitdiff
path: root/ext/ply/example/BASIC/gcd.bas
diff options
context:
space:
mode:
authorGabe Black <gblack@eecs.umich.edu>2007-05-25 19:29:32 -0700
committerGabe Black <gblack@eecs.umich.edu>2007-05-25 19:29:32 -0700
commita3ae9486d543f23cd4203381e7bcf2ce86c51389 (patch)
treed66d3b9851f3002d0746c7af830062480f83773d /ext/ply/example/BASIC/gcd.bas
parentad02a59f89139a75dfcfaa7a79498e54f7ce7e5d (diff)
parent44ebb8d3e27329e9f0b501897585359b4ab696f2 (diff)
downloadgem5-a3ae9486d543f23cd4203381e7bcf2ce86c51389.tar.xz
Merge zizzer.eecs.umich.edu:/bk/newmem
into doughnut.mwconnections.com:/home/gblack/m5/newmem-x86 --HG-- extra : convert_revision : 276d00a73b1834d5262129c3f7e0f7fae18e23bc
Diffstat (limited to 'ext/ply/example/BASIC/gcd.bas')
-rw-r--r--ext/ply/example/BASIC/gcd.bas22
1 files changed, 22 insertions, 0 deletions
diff --git a/ext/ply/example/BASIC/gcd.bas b/ext/ply/example/BASIC/gcd.bas
new file mode 100644
index 000000000..d0b774608
--- /dev/null
+++ b/ext/ply/example/BASIC/gcd.bas
@@ -0,0 +1,22 @@
+10 PRINT "A","B","C","GCD"
+20 READ A,B,C
+30 LET X = A
+40 LET Y = B
+50 GOSUB 200
+60 LET X = G
+70 LET Y = C
+80 GOSUB 200
+90 PRINT A, B, C, G
+100 GOTO 20
+110 DATA 60, 90, 120
+120 DATA 38456, 64872, 98765
+130 DATA 32, 384, 72
+200 LET Q = INT(X/Y)
+210 LET R = X - Q*Y
+220 IF R = 0 THEN 300
+230 LET X = Y
+240 LET Y = R
+250 GOTO 200
+300 LET G = Y
+310 RETURN
+999 END