Ì1Ì7c =================================>dÌaf ORIGINAL PROGRAM WRITTEN FORyh TRS 80 MODEL 111.€j̤l CONVERSION AND UPGRADING DONE¸n BY J J URSANOÓp SPRINGDALE PARK ROADÚqÌ r BRACEBRIDGE, ONTARIO (84/04/28)' s ================================. wÌN x— 53280,8:—53281,15:™ Ç(31)[ }™ Ç(147)j ‚™""ƒ –A$²"CINQUAIN POETRY"Š ŸÌÍ  A$²" "ªA$ß ¥ J²1 ¤ Ã(A$)ù ª™ Ê(A$,Ã(A$)«Jª1);"‘" ¯ ZZ²1 ¤ 50: ‚ ZZ: ‚ J1 ´ DELAY²1 ¤ 2000:‚ DELAYA ¹™"":™Ç(30)X ¾™£16)"BY J URSANO"w à DELAY ²1 ¤ 1000: ‚ DELAYŒ Ä™ Ç(147):™Ç(129)“ ÈÌ° Í—53280,8:—53281,1:™Ç(31)å Ò™£6);"A CINQUAIN’ IS A FIVE LINE POEM."ì ÓÌ Ü™£7);"HERE IS ONE ABOUT A COMPUTER."H 晣8)"PRESS SPACE BAR’ TO GO ON."g ð¡ DELAY$:‹ DELAY$²"" § 240n ùÌz ú™Ç(147)ˆ ™""œ ™£16)"COMPUTER"£ ̹ ™£15)"BUSY,FAST"ß ™£6)"FLASHING,COUNTING,TEACHING" "™£6)"LOVES TO WORK WITH CHILDREN" ,™£16)"MACHINE"G 6™£8)"PRESS SPACE BAR’ TO GO ON.d @¡ DELAY$:‹ DELAY$²""§320p J™Ç(147)£ ™£2)"NOW I'LL HELP YOU WRITE YOUR OWN POEM!"á š™£5)"IT CAN BE ABOUT YOU,A PET,NATURE OR ANYTHING ELSE." ¤™£5)"WRITING CINQUAINS IS EASY! ©ÌA ®™£2)"JUST TYPE IN THE WORDS THAT I ASK FOR."v ¸™£5)"WHEN YOU ARE DONE I WILL PRINT YOUR POEM!"¡ ™£8)"PRESS SPACE BAR’ TO GO ON."À Ì¡ DELAY$:‹ DELAY$²"" § 460Æ Öç ô **************************î þÌô ü % Ì& LIST OF VARIABLES+Ì00 N1$=FIRST NOUNJ: A1$=FIRST ADJECTIVEeD A2$=SECOND ADJECTIVEN A3$=THIRD ADJECTIVE†WÌ¥X V1$=THE FIRST 'ING' VERBÄb V2$=THE SECOND'ING' VERBãl V3$=THE THIRD 'ING' VERBýv V4$=THE ACTION VERB€ P$ =THE SHORT PHRASE2Š N2$=THE SECOND NOUN8”?¼Ì`  **************************Š%— 53280,7:— 53281,1:™Ç(31) : ™ Ç(147)¶*™"A NOUN IS A PERSON PLACE OR THING."Ù4™"TYPE A NOUN’.": 1150:… N1$ä9™Ç(31)>™"ADJECTIVES ARE WORDS THAT DESCRIBE"C™"NOUNS."QH™ "TYPE AN ADJECTIVE’ THAT DESCRIBES ";N1$;"."bR 1150:… A1$mW™Ç(31)Ÿ\™"TYPE AN OTHER ADJECTIVE’ THAT DESCRIBES "­a™ N1$;"."¾f 1150:… A2$Ép™Ç(31)úz™"TYPE A VERB’ THAT ENDS IN 'ING' SUCH AS "™"JUMPING,SINGING AND LAUGHING."0„ 1150:… V1$;‰™Ç(31)jŽ™"TYPE ANOTHER VERB’ THAT ENDS IN 'ING'"{˜ 1150:… V2$†™Ç(31)µ¢™"AND ONE MORE VERB’ THAT ENDS IN 'ING'"½§ Ìά 1150:… V3$á±™Ç(147):™""ì´™Ç(31)¶™"ACTION VERBS TELL WHAT NOUNS DO."AÀ™"KICKS,DIVES,SLIDES ARE ACTION VERBS."‰Ê™"TYPE AN ACTION VERB’ THAT ENDS IN 'S' AND THAT ";N1$;" CAN DO."šÔ 1150:… V4$¥Ù™Ç(31)ÑÞ™"TYPE A PHRASE’THAT STARTS WITH ";V4$ñã™"AND TELLS ABOUT ";N1$;"."è 1150: … P$ íÌò™ Ç(31)KÌAL™"MACHINE IS A NOUN THAT STANDS"VQ™"FOR COMPUTER."…V™"TYPE A NOUN’ THAT STANDS FOR ";N1$;"."Ÿ` 1150: … N2$ :‰ 1200­~™Ç(156):Ž³°Êº ZZ²1 ¤ 1000:‚ ZZ×Ä™ Ç(147) ™£3)"A SPECIAL CINQUAIN ABOUT ";:™Ç(150) N1$Ì™"":™"œ"7F™£(40«Ã(N1$))­2)N1$@P™""dZ™£(40«Ã(A1$ªA2$))­2)A1$;" ";A2$m_™""žd™£(40«Ã(V1$ ªV2$ªV3$))­2)V1$;" ";V2$;" ";V3$§i™""½m™£(40«Ã(P$))­2)P$ën PRINTTAB((40-LEN(V4$ +P$))/2)V4$;" ";P$ôs™""üw Ìx™£(40«Ã(N2$))­2)N2$ ‚™Ç(144)'ÛÌjÜ™"WOULD YOU LIKE TO WRITE ANOTHER CINQUAIN?(Y/N)": … REPLY$qAÌŒ¤‹ È(REPLY$,1)²"Y" §800˜™Ç(147)°Ð— 53280,7:—53281,12·ÑÌ×4™£17)"GOOD-BYE!!"òf PAUSE²1¤3500:‚ PAUSEþ˜™Ç(147)