Posts

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
Post a Comment
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
Post a Comment
Read more

ANALOG MAN

Image
[ 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.
Post a Comment
Read more

FROG

Image
 [ 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.  
Post a Comment
Read more

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.  
Post a Comment
Read more

Amazing

Image
[ 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.
Post a Comment
Read more

Guessing Game 1

Image
 [ 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
Post a Comment
Read more