Exploring Atari ACTION!

[ Table of Contents ] [ Disk Image ]  ANALOG MAN by David Plotkin, copyright 1988 by ANALOG Computing  magazine. Enter  CTRL-SHIFT-R  to read a file from disk, then enter "D1:ANALOGMN.ACT". Enter CTRL-SHIFT-M to go to the monitor, then type C to compile. When done compiling, enter R to run the program. If you get an error 14, compile it from disk. Reboot. Enter CTRL-SHIFT-M to go to the monitor, then type C "D1:ANALOGMN.ACT" to compile. When done compiling, enter R to run the program.

 [ Table of Contents ] [ Disk Image ]  FROG by Greg Knauss. Copyright 1987 by Antic Publishing. From Volume 6, Issue 10 of Antic dated February 1988. The archival website  atarimania.com has an entry for Frog . Enter CTRL-SHIFT-R to read a file from disk, then enter "D1:FROG.ACT". Enter CTRL-SHIFT-M to go to the Monitor, then type C to Compile. When done compiling, enter R to Run the program.  

[ 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.  

[ Table of Contents ] [ Disk Image ]  Amazing by David Plotkin is a type-in ACTION! program from Antic magazine. The website atarimania.com has a page for it.

 [ Table of Contents ] | [ Disk Image ] Guessing Game 1 is from page 82 of the Action! Programming Language Reference Manual . This Action! program shows how to display information to the screen, retrieve information from the user, and generate random numbers. ; EXAMPLE #2 ; FROM ACTION! REF MAN PG 82 PROC guesswhile() ;*** This procedure plays a guessing game with ;the user, using a WHILE loop to keep the game  ;going    BYTE num, ;the number to guess         guess=[200] ;guess is initialized to an                     ;impossible value              PrintE("Welcome to the guessing game. I'm")    PrintE("thinking of a number from 0 to 100")    num=Rand(101) ;gets the number to guess    WHILE guess<>num       DO ;start of WHILE loop       Print("What's your guess? ")       guess=InputB() ;get user's guess       IF guess<num THEN ;guess too low          PrintE("Too low, try again")       ELSEIF guess>num THEN ;guess too high

[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