Jump to content
IGNORED

Menorah screen display (XB)


jrhodes

Recommended Posts

This is a nicely detailed menorah display with flickering flames animation for your TI, in XB.

I ended up using the BXB routine to be able to utilize extra characters.

This actually started out in BASIC using a "display at" like routine utilizing HCHAR, but it was just to slow:
 

Spoiler

set ROW and COL in program, then
GOSUB line360

REM GOSUB VERSION OF DISPLAY-AT
line360: Z2=ROW
Z3=COL-1
FOR Z1=1 TO LEN(MSG$)
Z3=Z3+1
IF Z3<=32 THEN line367
Z2=Z2+1
Z3=1
line367: CALL HCHAR(Z2,Z3,ASC(SEG$(MSG$,Z1,1)))
NEXT Z1
RETURN

There is about 9 characters left undefined.

OLD DSK1.MENORAH

menorah.dsk

  • Like 7
Link to comment
Share on other sites

10 hours ago, JasonACT said:

Yours still works, but many of the entries on that page are now corrupt (missing characters in the TI-XB text), and can no longer be run.  I wonder what happened?

Among other things, code with an eight and end parenthesis was recognized as a smiley, when site was updated. At some point there was a smiley instead, and later it was lost. 😐

Edited by sometimes99er
  • Sad 2
Link to comment
Share on other sites

2 hours ago, sometimes99er said:

Among other things, code with an eight and end parenthesis was recognized as a smiley, when site was updated. At some point there was a smiley instead, and later it was lost. 😐

Which is why I like providing files and/or .dsk instead of just pasting code into post.

  • Like 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

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