Jump to content

Photo

Poetic programs for the TI


3 replies to this topic

#1 jrhodes OFFLINE  

jrhodes

    Chopper Commander

  • 210 posts
  • RUN "CS1"

Posted Wed Jan 9, 2019 6:22 PM

Post your favorite poetry programs for the TI here.

To start with, i have a TI version of "Pretty Ugly", by Abdullah Shoaib.

I take no credit for the peom, only for the TI XB code to display it. No infringement intended.

1 !POEM "PRETTY UGLY"       ORIGINALLY WRITTEN BY       ABDULLAH SHOAIB
100 CALL CLEAR :: RESTORE :: DIM POEM$(16)
110 FOR X=1 TO 5 :: READ CHNUM,X$ :: CALL CHAR(CHNUM,X$) :: NEXT X :: PRETTY$=CHR$(128)&CHR$(129)&CHR$(129)&CHR$(130)&CHR$(131)&CHR$(132)&" UGLY"
120 FOR X=0 TO 16 :: READ VALUE,STRING$ :: POEM$(VALUE)=STRING$ :: NEXT X
130 GOSUB 300
140 FOR X=0 TO 16
150 DISPLAY AT(12,1):POEM$(X)
160 FOR Y=1 TO 900
170 NEXT Y
180 GOSUB 300
190 NEXT X
200 PRINT:"PRESS ANY KEY TO READ POEM  FROM THE BOTTOM UP"
210 CALL KEY(0,K,S) :: IF S=0 THEN 210 ELSE 220
220 GOSUB 300
230 FOR X=16 TO 0 STEP-1
240 DISPLAY AT(12,1):POEM$(X)
250 FOR Y=1 TO 900
260 NEXT Y
270 GOSUB 300
280 NEXT X
290 END
300 CALL CLEAR
310 DISPLAY AT(2,9):PRETTY$
320 RETURN
330 DATA 132,"0202021E22221E00",131,"22120A1E22221E00",130,"3E02021E02023E00",129,"0808080808083E00",128,"0808080814222200"
340 DATA 0,"I'M VERY UGLY"
350 DATA 1,"SO DON'T TRY TO CONVINCE ME THAT"
360 DATA 2,"I AM A VERY BEAUTIFUL PERSON"
370 DATA 3,"BECAUSE AT THE END OF THE   DAY"
380 DATA 4,"I HATE MYSELF IN EVERY      SINGLE WAY"
390 DATA 5,"AND I'M NOT GOING TO LIE TO MYSELF BY SAYING"
400 DATA 6,"THERE IS BEAUTY INSIDE OF METHAT MATTERS"
410 DATA 7,"SO REST ASSURED I WILL      REMIND MYSELF"
420 DATA 8,"THAT I AM A WORTHLESS,      TERRIBLE PERSON"
430 DATA 9,"AND NOTHING YOU SAY WILL    MAKE ME BELIEVE"
440 DATA 10,"I STILL DESERVE LOVE"
450 DATA 11,"BECAUSE NO MATTER WHAT"
460 DATA 12,"I AM NOT GOOD ENOUGH TO BE  LOVED"
470 DATA 13,"AND I AM IN NO POSITION TO  BELIEVE THAT"
480 DATA 14,"BEAUTY DOES EXIST WITHIN ME"
490 DATA 15,"BECAUSE WHENEVER I LOOK IN  THE MIRROR I ALWAYS THINK"
500 DATA 16,"AM I AS UGLY AS PEOPLE SAY?"


#2 HOME AUTOMATION OFFLINE  

HOME AUTOMATION

    Chopper Commander

  • 245 posts
  • Location:"trapped in interspace"

Posted Wed Jan 9, 2019 7:03 PM

Not too sure about the programming though...

:) 



#3 twoodland OFFLINE  

twoodland

    Chopper Commander

  • 142 posts
  • Location:Delaware, OH

Posted Fri Jan 11, 2019 9:40 AM

One of my favorite's... A poem of rememberance.  This last major poem of Edgar Allan Poe was written two years after his wife Virginia Eliza Clemm Poe died of TB at age 24, in 1849.  It was not published until after his death that same year.

 

Attached File  Sartain's_annabel_1850.jpg   316.1KB   1 downloads

100 REM********************
110 REM* Annabel Lee Poem *
120 REM* for the TI-99/4A *
130 REM* Atariage Forum   *
140 REM*                  *
150 REM* By: TWOODLAND    *
160 REM* Date: 1/11/2019  *
170 REM* Req: TEII Basic  *
180 REM********************
190 CALL CLEAR
200 OPEN #1:"SPEECH",OUTPUT
210 REM  SPEECH
220 M$="Annabel Lee"
230 R=12
240 C=10
250 GOSUB 320
260 CALL CLEAR
270 M$="By: Edgar Allan Poe"
280 R=12
290 C=7
300 GOSUB 320
310 GOTO 390
320 FOR I=1 TO LEN(M$)
330 CODE=ASC(SEG$(M$,I,1))
340 CALL HCHAR(R,C+I,CODE)
350 NEXT I
360 FOR DELAY=1 TO 1000
370 NEXT DELAY
380 RETURN 
390 CALL CLEAR
400 PRINT #1:"//50 40"
410 FOR I=2 TO 14
420 CALL COLOR(I,2,3)
430 NEXT I
440 RESTORE 510
450 READ A$
460 IF A$="C" THEN 770
470 IF A$="E" THEN 790
480 PRINT :A$
490 PRINT #1:A$
500 GOTO 450
510 DATA "IT WAS MANY AND MANY A YEAR AGO,","IN A KINGDOM BY THE SEA,"
520 DATA "THAT A MAIDEN THERE LIVED   WHOM YOU MAY KNOW","BY THE NAME OF ANNIBEL LEE;"
530 DATA "AND THIS MAIDEN SHE LIVED   WITH NO OTHER THOUGHT THAN  TO LOVE AND BE LOVED BY ME"
540 DATA C
550 DATA "I WAS A CHILD AND SHE WAS A CHILD,","IN THIS KINGDOM BY THE SEA,"
560 DATA "BUT WE LOVED WITH A LOVE    THAT WAS MORE THAN LOVE-","I AND MY ANNABEL LEE-"
570 DATA "WITH A LOVE THAT THE WINGED SERAPHS OF HEAVEN","COVETED HER AND ME."
580 DATA C
590 DATA "AND THIS WAS THE REASON     THAT, LONG AGO,","IN THIS KINGDOM BY THE SEA,"
600 DATA "A WIND BLEW OUT OF A CLOUD, CHILLING","MY BEAUTIFUL ANNABEL LEE;"
610 DATA "SO THAT HER HIGHBORN KINSMENCAME","AND BORE HER AWAY FROM ME,"
620 DATA "TO SHUT HER UP IN A         SEPULCHRE","IN THIS KINGDOM BY THE SEA."
630 DATA C
640 DATA "THE ANGELS, NOT HALF SO     HAPPY IN HEAVEN,","WENT ENVYING, HER AND ME-"
650 DATA "YES!-THAT WAS THE REASON    AS ALL MEN KNOW,","IN THIS KINGDOM BY THE SEA"
660 DATA "THAT THE WIND CAME OUT OF   THE CLOUD BY NIGHT,","CHILLING AND KILLING MY     ANNABEL LEE."
670 DATA C
680 DATA "BUT OUR LOVE IT WAS STRONGERBY FAR THAN THE LOVE","OF THOSE WHO WERE OLDER     THAN WE-","OF MANY FAR WISER THAN WE-"
690 DATA "AND NEITHER THE ANGELS IN   HEAVEN ABOVE","NOR THE DEAMONS DOWN UNDER  THE SEA"
700 DATA "CAN EVER DISSEVER MY SOUL   FROM THE SOUL","OF THE BEAUTIFUL            ANNABEL LEE;"
710 DATA C
720 DATA "FOR THE MOON NEVER BEAMS,   WITHOUT BRINGING ME DREAMS","OF THE BEAUTIFUL            ANNABEL LEE;"
730 DATA "AND THE STARS NEVER RISE,   BUT I FEEL THE BRIGHT EYES","OF THE BEAUTIFUL            ANNABEL LEE;"
740 DATA "AND SO, ALL THE NIGHT-TIDE, I LIE DOWN BY THE SIDE","OF MY DARLING-MY DARLING-MY LIFE AND MY BRIDE,"
750 DATA "IN HER SEPULCHRE THERE BY   THE SEA-","IN HER TOMB BY THE SOUNDING SEA."
760 DATA E
770 CALL CLEAR
780 GOTO 450
790 FOR DELAY=1 TO 1000
800 NEXT DELAY
810 CALL CLEAR
820 END 



#4 save2600 ONLINE  

save2600

    Quadrunner

  • 15,356 posts
  • Location:Wisconsin

Posted Fri Jan 11, 2019 2:42 PM

About the only pathetic program I know of is Zero Zap. Oh wait, you said 'poetic'... :rolling:




0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users