Action programming language

Action! Programming Language was a programming language created by Optimized Systems Software for the Atari 8-bit family of microcomputers. Its syntax was similar to that of ALGOL 68, and it was well-known for its speed.

Example code

The following is example code for Sieve of Eratosthenes written in Action: 

BYTE RTCLOK=20, ; addr of sys timer
      SDMCTL=559 ; DMA control
 
 BYTE ARRAY FLAGS(8190)
 
 CARD COUNT,I,K,PRIME,TIME
 
 PROC SIEVE()
 
   SDMCTL=0 ; shut off Antic
   RTCLOK=0 ; only one timer needed
 
   COUNT=0         ; init count
   FOR I=0 TO 8190 ; and flags
     DO
     FLAGS(I)='T
     OD
 
   FOR I=0 TO 8190 ; and flags
     DO
     IF FLAGS(I)='T THEN
       PRIME=I+I+3
       K=I+PRIME
       WHILE K<=8190
         DO
         FLAGS(K)='F
         K==+PRIME
         OD
       COUNT==+1
     FI
     OD
   TIME=RTCLOK ; get timer reading
   SDMCTL=34   ; restore screen
 
   PRINTF("%E %U PRIMES IN",COUNT)
   PRINTF("%E %U JIFFIES",TIME)
 RETURN

External links

Missing image
Gnome-system.png


 This computer language-related article is a stub. You can help Wikipedia by expanding it.

See also: Action programming language, ALGOL 68, Atari 8-bit family, Computer language, Optimized Systems Software, Programming language, Sieve of Eratosthenes