Factorial

[Table of Contents] | [ Disk Image ] 

From page 81 of the Action! Language Reference Manual.


PROC factorials()

;**** This procedure will print out the factorials
;up to some specified number (the variable 'amt')
   CARD fact=[1],  ;the factorial of 'num'
        num=[1],   ;the counter
        amt=[6000] ;the upper bound of testing
   Print("Factorials less than ")
   PrintC(amt)     ;prints the upper bound
   PrintE(":")     ;print a ':' and carriage return
   PutE()          ;prints a carriage return
   WHILE fact*num < amt  ;test next factorial
      DO                 ;start of WHILE loop
      fact==*num
      PrintC(num)        ;print the number
      Print(" factorial is ")
      PrintCE(fact)      ;print number's factorial
      num==+1            ;increament number
      OD                 ;end of WHILE loop
   RETURN   ;end of PROC factorials




Comments

Post a Comment

Popular posts from this blog

Air Hockey

Image
[ Table of Contents ] [ Disk Image ]  Air Hockey by Chris Page. One or two player air hockey game written in ACTION! for the Atari 8-bit home computer. Boot the disk with ACTION! cartridge inserted.  Enter <CONTROL><SHIFT><M>. Enter C "D1:AIRHOCK.ACT". Once it compiles, enter R to run the program.  
Read more

Superhop ACTION!

Image
 [ Table of Contents ] [ Disk Image ]  From  page 20  of  Antic Magazine August 1989 Volume 8 Number 4 . Superhop ACTION! Faster fractals grow in your Atari By Douglas Skrecky Watch elegant fractal patterns come alive onscreen at top speed with this fast and friendly ACTION! program. It works on 8-bit Atari computers with at least 48K memory and disk drive. If you are typing in the program, you will need the ACTION! cartridge from ICD. But if you own this month's Antic Disk, you will find a version that runs without the special cartridge. In May, 1987, Antic published my fractal generating program Dot Hopper . That program used floating point arithmetic and was written in BASIC. Consequently, it was quite slow. After playing with the ACTION! cartridge for awhile, I realized that floating point calculations were completely unnecessary for this language. Between ACTION!'s inherent speed and integer arithmetic, I found that the program could be made to run many times faster tha
Read more

Play Music

[ Table of Contents ] [ Disk Image ]  Play Music (playmus.act) comes from Section 5 of Larry Serflaten's " Larry's ACTION! TUTORIAL " hosted on the atariwiki.org website.  Larry Serflaten's "Larry's ACTION! TUTORIAL" was a monthly addition to the SPACE club Newsletter originally appearing from January 1995 through March 1996. MODULE BYTE ARRAY NOTE= [ 32 16 24 16 24 16 40 ], DELAY=[ 30  8 55  6  8  6 60 ] DEFINE NOTE_COUNT="7" PROC WAIT(BYTE JIF) BYTE RTCLK=20 RTCLK=0 WHILE RTCLK<JIF DO OD RETURN PROC PLAY() BYTE ARRAY AUDIO(8)=53760 BYTE C AUDIO(8)=3 AUDIO(1)=166 AUDIO(3)=170 FOR C=0 TO NOTE_COUNT-1   DO   AUDIO(0)=NOTE(C)   AUDIO(2)=NOTE(C) LSH 1 +1   WAIT(DELAY(C))   OD AUDIO(1)=0   AUDIO(3)=0 RETURN
Read more