Server : Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips PHP/7.4.20 System : Linux st2.domain.com 3.10.0-1127.10.1.el7.x86_64 #1 SMP Wed Jun 3 14:28:03 UTC 2020 x86_64 User : apache ( 48) PHP Version : 7.4.20 Disable Function : NONE Directory : /usr/share/doc/python-ply-3.4/example/BASIC/ |
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