Jump to content

HLO projects

  • entries
    42
  • comments
    31
  • views
    13,037

Demo in Action!

hloberg

625 views

Note: I'll be covering this program and how it compares to Atari BASIC in an upcoming post. Till then, enjoy.

; "H:LINES.ACT"PROC MAIN()  BYTE Y1, Y2, Z, T  INT A, B, C, D  CARD X1, X2     ;INTL VAR  X1=9  Y1=12  X2=40  Y2=30  Z=1  T=0  A=5  B=5  C=5  D=5  GRAPHICS(7+16) ;INFIN LOOP  WHILE Z  DO    COLOR=Z          PLOT(X1,Y1)    DRAWTO(X2,Y2)     ;RAND(X) IS RND(0)*X    IF A>1 AND RAND(0)<10 THEN      A=RAND(3)+2    FI    IF D>1 AND RAND(0)<10 THEN      D=RAND(3)+2    FI    X1=X1+A    Y1=Y1-B    X2=X2-C    Y2=Y2+D    IF Y1<6 OR Y1>88 THEN      B=-B     FI    IF Y2<6 OR Y2>88 THEN      D=-D    FI     IF X1<6 OR X1>154 THEN      A=-A    FI    IF X2<6 OR X2>154 THEN      C=-C    FI    IF RAND(0)<5 THEN      Z=RAND(3)+1    FI    T=T+1    IF T>150 THEN      T=0      GRAPHICS(7+16)    FI ODRETURN



Wrote a little demo in Action!. link above shows program.
HLO


2 Comments


Recommended Comments

little history on this demo. On the TI-99, to learn Assembler with the what is called the 'mini-mem' cartridge, it uses this demo as a teaching tool. This demo in assembler on the TI-99 is much faster than this Action! demo on the Atari 8-bit.

Share this comment


Link to comment
Guest
Add a comment...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...