Add new attachment

Only authorized users are allowed to upload new attachments.

This page (revision-7) was last changed on 25-Nov-2021 12:53 by Eli Simpson  

This page was created on 07-Feb-2011 15:47 by Gromit

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Difference between version and

At line 7 changed one line
!!!A New Language für the Atari!
!!!A New Language for the Atari!
At line 51 changed one line
Most of the elements in an __Action!__ program are delimited by space characters - as many as you like! You don't have to keep track of line numbers, semicolons, brackets or any other nuisances that can make you feet more like a bookkeeper than a programmer. Just follow a few simple rules regarding commas and parentheses, and you're all set. __Action!'s__ modern design encourages a wide-open style of program composition, with plenty of freedom regarding the use of blank lines, upper and lower-case characters, indentation, comments and other flourishes that improve readability and make coding more fun.
Most of the elements in an __Action!__ program are delimited by space characters - as many as you like! You don't have to keep track of line numbers, semicolons, brackets or any other nuisances that can make you feet more like a bookkeeper than a programmer. Just follow a few simple rules regarding commas and parentheses, and you're all set. __Action!__'s modern design encourages a wide-open style of program composition, with plenty of freedom regarding the use of blank lines, upper and lower-case characters, indentation, comments and other flourishes that improve readability and make coding more fun.
At line 99 added 25 lines
{{{Listing 4.
10 REM * ERATOSTHENES SIEVE
11 DIM FLAG$(8191)
12 POKE 559,0
13 POKE 19,0:POKE 20,0
14 COUNT=0
15 FOR I=1 TO 8191
16 FLAG$(I,I)="T"
17 NEXT I
18 FOR I=0 TO 8190
19 IF FLAG$(I+1,I+1)="F" THEN 27
20 PRIME=I+I+3
21 K=I+PRIME
22 if K>8190 THEN 26
23 FLAG$(K+1, K+1)="F"
24 K=K+PRIME
25 GOTO 22
26 COUNT=COUNT+1
27 NEXT I
28 TIME=PEEK(20)+256*PEEK(19)
29 POKE 559,34
30 ? COUNT;" PRIMES IN"
31 ? TIME;" JIFFIES"
}}}
Version Date Modified Size Author Changes ... Change note
7 25-Nov-2021 12:53 28.761 kB Eli Simpson to previous removed extraneous "."
6 25-Nov-2021 12:39 28.761 kB Eli Simpson to previous | to last Changed 1 to I in keyword FI (probably a OCR error)
5 07-Feb-2011 16:31 28.761 kB Gromit to previous | to last
4 07-Feb-2011 16:21 22.5 kB Gromit to previous | to last
3 07-Feb-2011 15:59 14.848 kB Gromit to previous | to last
2 07-Feb-2011 15:48 14.397 kB Gromit to previous | to last
1 07-Feb-2011 15:47 14.397 kB Gromit to last
« This page (revision-7) was last changed on 25-Nov-2021 12:53 by Eli Simpson