CINQUIAN.C
FILE INFORMATION
FILENAME(S): CINQUIAN.C
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
32d284c349fabdd963b2f424d5d32b11cdfd3ab72af7033c95e59abc47e7c9cb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUGMORENOV841 C | CINQUIAN.C | PRG | DuncanTwain | 10 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 08 08 0B 00 8F CC 00 0F 08 31 00 8F CC 00 |...........1....|
00000010: 37 08 63 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |7.c.. ==========|
00000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000030: 3D 3D 3D 3D 3D 3D 3D 00 3E 08 64 00 8F CC 00 61 |=======.>.d....a|
00000040: 08 66 00 8F 20 4F 52 49 47 49 4E 41 4C 20 50 52 |.f.. ORIGINAL PR|
00000050: 4F 47 52 41 4D 20 57 52 49 54 54 45 4E 20 46 4F |OGRAM WRITTEN FO|
00000060: 52 00 79 08 68 00 8F 20 54 52 53 20 38 30 20 4D |R.y.h.. TRS 80 M|
00000070: 4F 44 45 4C 20 31 31 31 2E 00 80 08 6A 00 8F CC |ODEL 111....j...|
00000080: 00 A4 08 6C 00 8F 20 43 4F 4E 56 45 52 53 49 4F |...l.. CONVERSIO|
00000090: 4E 20 41 4E 44 20 55 50 47 52 41 44 49 4E 47 20 |N AND UPGRADING |
000000A0: 44 4F 4E 45 00 B8 08 6E 00 8F 20 42 59 20 4A 20 |DONE...n.. BY J |
000000B0: 4A 20 55 52 53 41 4E 4F 00 D3 08 70 00 8F 20 53 |J URSANO...p.. S|
000000C0: 50 52 49 4E 47 44 41 4C 45 20 50 41 52 4B 20 52 |PRINGDALE PARK R|
000000D0: 4F 41 44 00 DA 08 71 00 8F CC 00 00 09 72 00 8F |OAD...q......r..|
000000E0: 20 42 52 41 43 45 42 52 49 44 47 45 2C 20 4F 4E | BRACEBRIDGE, ON|
000000F0: 54 41 52 49 4F 20 28 38 34 2F 30 34 2F 32 38 29 |TARIO (84/04/28)|
00000100: 00 27 09 73 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |.'.s.. =========|
00000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000120: 3D 3D 3D 3D 3D 3D 3D 00 2E 09 77 00 8F CC 00 4E |=======...w....N|
00000130: 09 78 00 97 20 35 33 32 38 30 2C 38 3A 97 35 33 |.x.. 53280,8:.53|
00000140: 32 38 31 2C 31 35 3A 99 20 C7 28 33 31 29 00 5B |281,15:. .(31).[|
00000150: 09 7D 00 99 20 C7 28 31 34 37 29 00 6A 09 82 00 |.}.. .(147).j...|
00000160: 99 22 11 11 11 11 11 11 11 22 00 83 09 96 00 41 |.".......".....A|
00000170: 24 B2 22 43 49 4E 51 55 41 49 4E 20 50 4F 45 54 |$."CINQUAIN POET|
00000180: 52 59 22 00 8A 09 9F 00 8F CC 00 CD 09 A0 00 41 |RY"............A|
00000190: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 22 AA 41 24 00 DF 09 | ".A$...|
000001D0: A5 00 81 20 4A B2 31 20 A4 20 C3 28 41 24 29 00 |... J.1 . .(A$).|
000001E0: F9 09 AA 00 99 20 CA 28 41 24 2C C3 28 41 24 29 |..... .(A$,.(A$)|
000001F0: AB 4A AA 31 29 3B 22 91 22 00 14 0A AF 00 81 20 |.J.1);"."...... |
00000200: 5A 5A B2 31 20 A4 20 35 30 3A 20 82 20 5A 5A 3A |ZZ.1 . 50: . ZZ:|
00000210: 20 82 20 4A 00 31 0A B4 00 81 20 44 45 4C 41 59 | . J.1.... DELAY|
00000220: B2 31 20 A4 20 32 30 30 30 3A 82 20 44 45 4C 41 |.1 . 2000:. DELA|
00000230: 59 00 41 0A B9 00 99 22 11 22 3A 99 C7 28 33 30 |Y.A....".":..(30|
00000240: 29 00 58 0A BE 00 99 A3 31 36 29 22 42 59 20 4A |).X.....16)"BY J|
00000250: 20 55 52 53 41 4E 4F 22 00 77 0A C3 00 81 20 44 | URSANO".w.... D|
00000260: 45 4C 41 59 20 B2 31 20 A4 20 31 30 30 30 3A 20 |ELAY .1 . 1000: |
00000270: 82 20 44 45 4C 41 59 00 8C 0A C4 00 99 20 C7 28 |. DELAY...... .(|
00000280: 31 34 37 29 3A 99 C7 28 31 32 39 29 00 93 0A C8 |147):..(129)....|
00000290: 00 8F CC 00 B0 0A CD 00 97 35 33 32 38 30 2C 38 |.........53280,8|
000002A0: 3A 97 35 33 32 38 31 2C 31 3A 99 C7 28 33 31 29 |:.53281,1:..(31)|
000002B0: 00 E5 0A D2 00 99 A3 36 29 3B 22 11 11 11 11 11 |.......6);".....|
000002C0: 11 11 11 41 20 12 43 49 4E 51 55 41 49 4E 92 20 |...A .CINQUAIN. |
000002D0: 49 53 20 41 20 46 49 56 45 20 4C 49 4E 45 20 50 |IS A FIVE LINE P|
000002E0: 4F 45 4D 2E 22 00 EC 0A D3 00 8F CC 00 16 0B DC |OEM."...........|
000002F0: 00 99 A3 37 29 3B 22 11 48 45 52 45 20 49 53 20 |...7);".HERE IS |
00000300: 4F 4E 45 20 41 42 4F 55 54 20 41 20 43 4F 4D 50 |ONE ABOUT A COMP|
00000310: 55 54 45 52 2E 22 00 48 0B E6 00 99 A3 38 29 22 |UTER.".H.....8)"|
00000320: 11 11 11 11 11 11 11 11 11 11 11 11 50 52 45 53 |............PRES|
00000330: 53 20 12 53 50 41 43 45 20 42 41 52 92 20 54 4F |S .SPACE BAR. TO|
00000340: 20 47 4F 20 4F 4E 2E 22 00 67 0B F0 00 A1 20 44 | GO ON.".g.... D|
00000350: 45 4C 41 59 24 3A 8B 20 44 45 4C 41 59 24 B2 22 |ELAY$:. DELAY$."|
00000360: 22 20 A7 20 32 34 30 00 6E 0B F9 00 8F CC 00 7A |" . 240.n......z|
00000370: 0B FA 00 99 C7 28 31 34 37 29 00 88 0B 04 01 99 |.....(147)......|
00000380: 22 11 11 11 11 11 11 22 00 9C 0B 0E 01 99 A3 31 |"......".......1|
00000390: 36 29 22 43 4F 4D 50 55 54 45 52 22 00 A3 0B 12 |6)"COMPUTER"....|
000003A0: 01 8F CC 00 B9 0B 13 01 99 A3 31 35 29 22 11 42 |..........15)".B|
000003B0: 55 53 59 2C 46 41 53 54 22 00 DF 0B 18 01 99 A3 |USY,FAST".......|
000003C0: 36 29 22 11 46 4C 41 53 48 49 4E 47 2C 43 4F 55 |6)".FLASHING,COU|
000003D0: 4E 54 49 4E 47 2C 54 45 41 43 48 49 4E 47 22 00 |NTING,TEACHING".|
000003E0: 06 0C 22 01 99 A3 36 29 22 11 4C 4F 56 45 53 20 |.."...6)".LOVES |
000003F0: 54 4F 20 57 4F 52 4B 20 57 49 54 48 20 43 48 49 |TO WORK WITH CHI|
00000400: 4C 44 52 45 4E 22 00 1A 0C 2C 01 99 A3 31 36 29 |LDREN"...,...16)|
00000410: 22 11 4D 41 43 48 49 4E 45 22 00 47 0C 36 01 99 |".MACHINE".G.6..|
00000420: A3 38 29 22 11 11 11 11 11 11 11 11 50 52 45 53 |.8)"........PRES|
00000430: 53 20 12 53 50 41 43 45 20 42 41 52 92 20 54 4F |S .SPACE BAR. TO|
00000440: 20 47 4F 20 4F 4E 2E 00 64 0C 40 01 A1 20 44 45 | GO ON..d.@.. DE|
00000450: 4C 41 59 24 3A 8B 20 44 45 4C 41 59 24 B2 22 22 |LAY$:. DELAY$.""|
00000460: A7 33 32 30 00 70 0C 4A 01 99 C7 28 31 34 37 29 |.320.p.J...(147)|
00000470: 00 A3 0C 90 01 99 A3 32 29 22 11 11 4E 4F 57 20 |.......2)"..NOW |
00000480: 49 27 4C 4C 20 48 45 4C 50 20 59 4F 55 20 57 52 |I'LL HELP YOU WR|
00000490: 49 54 45 20 59 4F 55 52 20 4F 57 4E 20 50 4F 45 |ITE YOUR OWN POE|
000004A0: 4D 21 22 00 E1 0C 9A 01 99 A3 35 29 22 11 49 54 |M!".......5)".IT|
000004B0: 20 43 41 4E 20 42 45 20 41 42 4F 55 54 20 59 4F | CAN BE ABOUT YO|
000004C0: 55 2C 41 20 50 45 54 2C 4E 41 54 55 52 45 20 4F |U,A PET,NATURE O|
000004D0: 52 20 41 4E 59 54 48 49 4E 47 20 45 4C 53 45 2E |R ANYTHING ELSE.|
000004E0: 22 00 06 0D A4 01 99 A3 35 29 22 11 57 52 49 54 |".......5)".WRIT|
000004F0: 49 4E 47 20 43 49 4E 51 55 41 49 4E 53 20 49 53 |ING CINQUAINS IS|
00000500: 20 45 41 53 59 21 00 0D 0D A9 01 8F CC 00 41 0D | EASY!........A.|
00000510: AE 01 99 A3 32 29 22 11 11 11 4A 55 53 54 20 54 |....2)"...JUST T|
00000520: 59 50 45 20 49 4E 20 54 48 45 20 57 4F 52 44 53 |YPE IN THE WORDS|
00000530: 20 54 48 41 54 20 49 20 41 53 4B 20 46 4F 52 2E | THAT I ASK FOR.|
00000540: 22 00 76 0D B8 01 99 A3 35 29 22 11 57 48 45 4E |".v.....5)".WHEN|
00000550: 20 59 4F 55 20 41 52 45 20 44 4F 4E 45 20 49 20 | YOU ARE DONE I |
00000560: 57 49 4C 4C 20 50 52 49 4E 54 20 59 4F 55 52 20 |WILL PRINT YOUR |
00000570: 50 4F 45 4D 21 22 00 A1 0D C2 01 99 A3 38 29 22 |POEM!".......8)"|
00000580: 11 11 11 11 11 50 52 45 53 53 20 12 53 50 41 43 |.....PRESS .SPAC|
00000590: 45 20 42 41 52 92 20 54 4F 20 47 4F 20 4F 4E 2E |E BAR. TO GO ON.|
000005A0: 22 00 C0 0D CC 01 A1 20 44 45 4C 41 59 24 3A 8B |"...... DELAY$:.|
000005B0: 20 44 45 4C 41 59 24 B2 22 22 20 A7 20 34 36 30 | DELAY$."" . 460|
000005C0: 00 C6 0D D6 01 8F 00 E7 0D F4 01 8F 20 2A 2A 2A |............ ***|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005E0: 2A 2A 2A 2A 2A 2A 2A 00 EE 0D FE 01 8F CC 00 F4 |*******.........|
000005F0: 0D 1C 02 8F 00 FC 0D 25 02 8F 20 CC 00 14 0E 26 |.......%.. ....&|
00000600: 02 8F 20 4C 49 53 54 20 4F 46 20 56 41 52 49 41 |.. LIST OF VARIA|
00000610: 42 4C 45 53 00 1B 0E 2B 02 8F CC 00 30 0E 30 02 |BLES...+....0.0.|
00000620: 8F 20 4E 31 24 3D 46 49 52 53 54 20 4E 4F 55 4E |. N1$=FIRST NOUN|
00000630: 00 4A 0E 3A 02 8F 20 41 31 24 3D 46 49 52 53 54 |.J.:.. A1$=FIRST|
00000640: 20 41 44 4A 45 43 54 49 56 45 00 65 0E 44 02 8F | ADJECTIVE.e.D..|
00000650: 20 41 32 24 3D 53 45 43 4F 4E 44 20 41 44 4A 45 | A2$=SECOND ADJE|
00000660: 43 54 49 56 45 00 7F 0E 4E 02 8F 20 41 33 24 3D |CTIVE...N.. A3$=|
00000670: 54 48 49 52 44 20 41 44 4A 45 43 54 49 56 45 00 |THIRD ADJECTIVE.|
00000680: 86 0E 57 02 8F CC 00 A5 0E 58 02 8F 20 56 31 24 |..W......X.. V1$|
00000690: 3D 54 48 45 20 46 49 52 53 54 20 27 49 4E 47 27 |=THE FIRST 'ING'|
000006A0: 20 56 45 52 42 00 C4 0E 62 02 8F 20 56 32 24 3D | VERB...b.. V2$=|
000006B0: 54 48 45 20 53 45 43 4F 4E 44 27 49 4E 47 27 20 |THE SECOND'ING' |
000006C0: 56 45 52 42 00 E3 0E 6C 02 8F 20 56 33 24 3D 54 |VERB...l.. V3$=T|
000006D0: 48 45 20 54 48 49 52 44 20 27 49 4E 47 27 20 56 |HE THIRD 'ING' V|
000006E0: 45 52 42 00 FD 0E 76 02 8F 20 56 34 24 3D 54 48 |ERB...v.. V4$=TH|
000006F0: 45 20 41 43 54 49 4F 4E 20 56 45 52 42 00 18 0F |E ACTION VERB...|
00000700: 80 02 8F 20 50 24 20 3D 54 48 45 20 53 48 4F 52 |... P$ =THE SHOR|
00000710: 54 20 50 48 52 41 53 45 00 32 0F 8A 02 8F 20 4E |T PHRASE.2.... N|
00000720: 32 24 3D 54 48 45 20 53 45 43 4F 4E 44 20 4E 4F |2$=THE SECOND NO|
00000730: 55 4E 00 38 0F 94 02 8F 00 3F 0F BC 02 8F CC 00 |UN.8.....?......|
00000740: 60 0F 20 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |`. .. **********|
00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000760: 00 8A 0F 25 03 97 20 35 33 32 38 30 2C 37 3A 97 |...%.. 53280,7:.|
00000770: 20 35 33 32 38 31 2C 31 3A 99 C7 28 33 31 29 20 | 53281,1:..(31) |
00000780: 3A 20 99 20 C7 28 31 34 37 29 00 B6 0F 2A 03 99 |: . .(147)...*..|
00000790: 22 11 11 41 20 4E 4F 55 4E 20 49 53 20 41 20 50 |"..A NOUN IS A P|
000007A0: 45 52 53 4F 4E 20 50 4C 41 43 45 20 4F 52 20 54 |ERSON PLACE OR T|
000007B0: 48 49 4E 47 2E 22 00 D9 0F 34 03 99 22 54 59 50 |HING."...4.."TYP|
000007C0: 45 20 41 20 12 4E 4F 55 4E 92 2E 22 3A 8D 20 31 |E A .NOUN..":. 1|
000007D0: 31 35 30 3A 85 20 4E 31 24 00 E4 0F 39 03 99 C7 |150:. N1$...9...|
000007E0: 28 33 31 29 00 0F 10 3E 03 99 22 11 41 44 4A 45 |(31)...>..".ADJE|
000007F0: 43 54 49 56 45 53 20 41 52 45 20 57 4F 52 44 53 |CTIVES ARE WORDS|
00000800: 20 54 48 41 54 20 44 45 53 43 52 49 42 45 22 00 | THAT DESCRIBE".|
00000810: 1D 10 43 03 99 22 4E 4F 55 4E 53 2E 22 00 51 10 |..C.."NOUNS.".Q.|
00000820: 48 03 99 20 22 54 59 50 45 20 41 4E 20 12 41 44 |H.. "TYPE AN .AD|
00000830: 4A 45 43 54 49 56 45 92 20 54 48 41 54 20 44 45 |JECTIVE. THAT DE|
00000840: 53 43 52 49 42 45 53 20 22 3B 4E 31 24 3B 22 2E |SCRIBES ";N1$;".|
00000850: 22 00 62 10 52 03 8D 20 31 31 35 30 3A 85 20 41 |".b.R.. 1150:. A|
00000860: 31 24 00 6D 10 57 03 99 C7 28 33 31 29 00 9F 10 |1$.m.W...(31)...|
00000870: 5C 03 99 22 11 54 59 50 45 20 41 4E 20 4F 54 48 |\..".TYPE AN OTH|
00000880: 45 52 20 12 41 44 4A 45 43 54 49 56 45 92 20 54 |ER .ADJECTIVE. T|
00000890: 48 41 54 20 44 45 53 43 52 49 42 45 53 20 22 00 |HAT DESCRIBES ".|
000008A0: AD 10 61 03 99 20 4E 31 24 3B 22 2E 22 00 BE 10 |..a.. N1$;"."...|
000008B0: 66 03 8D 20 31 31 35 30 3A 85 20 41 32 24 00 C9 |f.. 1150:. A2$..|
000008C0: 10 70 03 99 C7 28 33 31 29 00 FA 10 7A 03 99 22 |.p...(31)...z.."|
000008D0: 54 59 50 45 20 41 20 12 56 45 52 42 92 20 54 48 |TYPE A .VERB. TH|
000008E0: 41 54 20 45 4E 44 53 20 49 4E 20 27 49 4E 47 27 |AT ENDS IN 'ING'|
000008F0: 20 53 55 43 48 20 41 53 20 22 00 1F 11 7F 03 99 | SUCH AS "......|
00000900: 22 4A 55 4D 50 49 4E 47 2C 53 49 4E 47 49 4E 47 |"JUMPING,SINGING|
00000910: 20 41 4E 44 20 4C 41 55 47 48 49 4E 47 2E 22 00 | AND LAUGHING.".|
00000920: 30 11 84 03 8D 20 31 31 35 30 3A 85 20 56 31 24 |0.... 1150:. V1$|
00000930: 00 3B 11 89 03 99 C7 28 33 31 29 00 6A 11 8E 03 |.;.....(31).j...|
00000940: 99 22 11 54 59 50 45 20 41 4E 4F 54 48 45 52 20 |.".TYPE ANOTHER |
00000950: 12 56 45 52 42 92 20 54 48 41 54 20 45 4E 44 53 |.VERB. THAT ENDS|
00000960: 20 49 4E 20 27 49 4E 47 27 22 00 7B 11 98 03 8D | IN 'ING'".{....|
00000970: 20 31 31 35 30 3A 85 20 56 32 24 00 86 11 9D 03 | 1150:. V2$.....|
00000980: 99 C7 28 33 31 29 00 B5 11 A2 03 99 22 11 41 4E |..(31)......".AN|
00000990: 44 20 4F 4E 45 20 4D 4F 52 45 20 12 56 45 52 42 |D ONE MORE .VERB|
000009A0: 92 20 54 48 41 54 20 45 4E 44 53 20 49 4E 20 27 |. THAT ENDS IN '|
000009B0: 49 4E 47 27 22 00 BD 11 A7 03 8F 20 CC 00 CE 11 |ING'"...... ....|
000009C0: AC 03 8D 20 31 31 35 30 3A 85 20 56 33 24 00 E1 |... 1150:. V3$..|
000009D0: 11 B1 03 99 C7 28 31 34 37 29 3A 99 22 11 11 11 |.....(147):."...|
000009E0: 22 00 EC 11 B4 03 99 C7 28 33 31 29 00 15 12 B6 |".......(31)....|
000009F0: 03 99 22 11 41 43 54 49 4F 4E 20 56 45 52 42 53 |..".ACTION VERBS|
00000A00: 20 54 45 4C 4C 20 57 48 41 54 20 4E 4F 55 4E 53 | TELL WHAT NOUNS|
00000A10: 20 44 4F 2E 22 00 41 12 C0 03 99 22 4B 49 43 4B | DO.".A...."KICK|
00000A20: 53 2C 44 49 56 45 53 2C 53 4C 49 44 45 53 20 41 |S,DIVES,SLIDES A|
00000A30: 52 45 20 41 43 54 49 4F 4E 20 56 45 52 42 53 2E |RE ACTION VERBS.|
00000A40: 22 00 89 12 CA 03 99 22 11 54 59 50 45 20 41 4E |"......".TYPE AN|
00000A50: 20 12 41 43 54 49 4F 4E 20 56 45 52 42 92 20 54 | .ACTION VERB. T|
00000A60: 48 41 54 20 45 4E 44 53 20 49 4E 20 27 53 27 20 |HAT ENDS IN 'S' |
00000A70: 41 4E 44 20 54 48 41 54 20 22 3B 4E 31 24 3B 22 |AND THAT ";N1$;"|
00000A80: 20 43 41 4E 20 44 4F 2E 22 00 9A 12 D4 03 8D 20 | CAN DO."...... |
00000A90: 31 31 35 30 3A 85 20 56 34 24 00 A5 12 D9 03 99 |1150:. V4$......|
00000AA0: C7 28 33 31 29 00 D1 12 DE 03 99 22 54 59 50 45 |.(31)......"TYPE|
00000AB0: 20 41 20 12 50 48 52 41 53 45 92 54 48 41 54 20 | A .PHRASE.THAT |
00000AC0: 53 54 41 52 54 53 20 57 49 54 48 20 22 3B 56 34 |STARTS WITH ";V4|
00000AD0: 24 00 F1 12 E3 03 99 22 41 4E 44 20 54 45 4C 4C |$......"AND TELL|
00000AE0: 53 20 41 42 4F 55 54 20 22 3B 4E 31 24 3B 22 2E |S ABOUT ";N1$;".|
00000AF0: 22 00 02 13 E8 03 8D 20 31 31 35 30 3A 20 85 20 |"...... 1150: . |
00000B00: 50 24 00 09 13 ED 03 8F CC 00 15 13 F2 03 99 20 |P$............. |
00000B10: C7 28 33 31 29 00 1C 13 4B 04 8F CC 00 41 13 4C |.(31)...K....A.L|
00000B20: 04 99 22 4D 41 43 48 49 4E 45 20 49 53 20 41 20 |.."MACHINE IS A |
00000B30: 4E 4F 55 4E 20 54 48 41 54 20 53 54 41 4E 44 53 |NOUN THAT STANDS|
00000B40: 22 00 56 13 51 04 99 22 46 4F 52 20 43 4F 4D 50 |".V.Q.."FOR COMP|
00000B50: 55 54 45 52 2E 22 00 85 13 56 04 99 22 11 54 59 |UTER."...V..".TY|
00000B60: 50 45 20 41 20 12 4E 4F 55 4E 92 20 54 48 41 54 |PE A .NOUN. THAT|
00000B70: 20 53 54 41 4E 44 53 20 46 4F 52 20 22 3B 4E 31 | STANDS FOR ";N1|
00000B80: 24 3B 22 2E 22 00 9F 13 60 04 8D 20 31 31 35 30 |$;"."...`.. 1150|
00000B90: 3A 20 85 20 4E 32 24 20 3A 89 20 31 32 30 30 00 |: . N2$ :. 1200.|
00000BA0: AD 13 7E 04 99 C7 28 31 35 36 29 3A 8E 00 B3 13 |..~...(156):....|
00000BB0: B0 04 8F 00 CA 13 BA 04 81 20 5A 5A B2 31 20 A4 |......... ZZ.1 .|
00000BC0: 20 31 30 30 30 3A 82 20 5A 5A 00 D7 13 C4 04 99 | 1000:. ZZ......|
00000BD0: 20 C7 28 31 34 37 29 00 0A 14 14 05 99 A3 33 29 | .(147).......3)|
00000BE0: 22 11 11 41 20 53 50 45 43 49 41 4C 20 43 49 4E |"..A SPECIAL CIN|
00000BF0: 51 55 41 49 4E 20 41 42 4F 55 54 20 22 3B 3A 99 |QUAIN ABOUT ";:.|
00000C00: C7 28 31 35 30 29 20 4E 31 24 00 11 14 15 05 8F |.(150) N1$......|
00000C10: CC 00 1F 14 1E 05 99 22 11 22 3A 99 22 9C 22 00 |.......".":.".".|
00000C20: 37 14 46 05 99 A3 28 34 30 AB C3 28 4E 31 24 29 |7.F...(40..(N1$)|
00000C30: 29 AD 32 29 4E 31 24 00 40 14 50 05 99 22 11 22 |).2)N1$.@.P.."."|
00000C40: 00 64 14 5A 05 99 A3 28 34 30 AB C3 28 41 31 24 |.d.Z...(40..(A1$|
00000C50: AA 41 32 24 29 29 AD 32 29 41 31 24 3B 22 20 22 |.A2$)).2)A1$;" "|
00000C60: 3B 41 32 24 00 6D 14 5F 05 99 22 11 22 00 9E 14 |;A2$.m._.."."...|
00000C70: 64 05 99 A3 28 34 30 AB C3 28 56 31 24 20 AA 56 |d...(40..(V1$ .V|
00000C80: 32 24 AA 56 33 24 29 29 AD 32 29 56 31 24 3B 22 |2$.V3$)).2)V1$;"|
00000C90: 20 22 3B 56 32 24 3B 22 20 22 3B 56 33 24 00 A7 | ";V2$;" ";V3$..|
00000CA0: 14 69 05 99 22 11 22 00 BD 14 6D 05 99 A3 28 34 |.i.."."...m...(4|
00000CB0: 30 AB C3 28 50 24 29 29 AD 32 29 50 24 00 EB 14 |0..(P$)).2)P$...|
00000CC0: 6E 05 8F 20 50 52 49 4E 54 54 41 42 28 28 34 30 |n.. PRINTTAB((40|
00000CD0: 2D 4C 45 4E 28 56 34 24 20 2B 50 24 29 29 2F 32 |-LEN(V4$ +P$))/2|
00000CE0: 29 56 34 24 3B 22 20 22 3B 50 24 00 F4 14 73 05 |)V4$;" ";P$...s.|
00000CF0: 99 22 11 22 00 FC 14 77 05 8F 20 CC 00 14 15 78 |."."...w.. ....x|
00000D00: 05 99 A3 28 34 30 AB C3 28 4E 32 24 29 29 AD 32 |...(40..(N2$)).2|
00000D10: 29 4E 32 24 00 20 15 82 05 99 C7 28 31 34 34 29 |)N2$. .....(144)|
00000D20: 00 27 15 DB 05 8F CC 00 6A 15 DC 05 99 22 11 11 |.'......j...."..|
00000D30: 11 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 |.WOULD YOU LIKE |
00000D40: 54 4F 20 57 52 49 54 45 20 41 4E 4F 54 48 45 52 |TO WRITE ANOTHER|
00000D50: 20 43 49 4E 51 55 41 49 4E 3F 28 59 2F 4E 29 22 | CINQUAIN?(Y/N)"|
00000D60: 3A 20 85 20 52 45 50 4C 59 24 00 71 15 41 06 8F |: . REPLY$.q.A..|
00000D70: CC 00 8C 15 A4 06 8B 20 C8 28 52 45 50 4C 59 24 |....... .(REPLY$|
00000D80: 2C 31 29 B2 22 59 22 20 A7 38 30 30 00 98 15 08 |,1)."Y" .800....|
00000D90: 07 99 C7 28 31 34 37 29 00 B0 15 D0 07 97 20 35 |...(147)...... 5|
00000DA0: 33 32 38 30 2C 37 3A 97 35 33 32 38 31 2C 31 32 |3280,7:.53281,12|
00000DB0: 00 B7 15 D1 07 8F CC 00 D7 15 34 08 99 A3 31 37 |..........4...17|
00000DC0: 29 22 11 11 11 11 11 11 11 11 11 11 47 4F 4F 44 |)"..........GOOD|
00000DD0: 2D 42 59 45 21 21 22 00 F2 15 66 08 81 20 50 41 |-BYE!!"...f.. PA|
00000DE0: 55 53 45 B2 31 A4 33 35 30 30 3A 82 20 50 41 55 |USE.1.3500:. PAU|
00000DF0: 53 45 00 FE 15 98 08 99 C7 28 31 34 37 29 00 00 |SE.......(147)..|
00000E00: 00 |. |
.......L...1..L.7.C.. ==================
===============.>.D..L.A.F.. ORIGINAL PR
OGRAM WRITTEN FOR.Y.H.. TRS 80 MODEL 111
....J..L...L.. CONVERSION AND UPGRADING
DONE...N.. BY J J URSANO.S.P.. SPRINGDAL
E PARK ROAD.Z.Q..L...R.. BRACEBRIDGE, ON
TARIO (84/04/28).'.S.. =================
===============...W..L.N.X.. 53280,8:.53
281,15:. G(31).[.}.. G(147).J...."......
.".....A$."CINQUAIN POETRY"......L.M. .A
$."
".A$...... J.1 . C(A$).
..... J(A$,C(A$).J.1);"."...... ZZ.1 . 5
0: . ZZ: . J.1.... DELAY.1 . 2000:. DELA
Y.A....".":.G(30).X.....16)"BY J URSANO"
.W.C.. DELAY .1 . 1000: . DELAY...D.. G(
147):.G(129)...H..L...M..53280,8:.53281,
1:.G(31)...R...6);"........A .CINQUAIN.
IS A FIVE LINE POEM."...S..L.......7);".
HERE IS ONE ABOUT A COMPUTER.".H.....8)"
............PRESS .SPACE BAR. TO GO ON."
.G.... DELAY$:. DELAY$."" . 240.N....L.Z
....G(147)......"......".......16)"COMPU
TER"......L.......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$.""
.320.P.J..G(147).......2)"..NOW I'LL HEL
P YOU WRITE YOUR OWN POEM!".......5)".IT
CAN BE ABOUT YOU,A PET,NATURE OR ANYTHI
NG ELSE.".......5)".WRITING CINQUAINS IS
EASY!......L.A.....2)"...JUST TYPE IN T
HE WORDS THAT I ASK FOR.".V.....5)".WHEN
YOU ARE DONE I WILL PRINT YOUR POEM!"..
.B...8)".....PRESS .SPACE BAR. TO GO ON.
"...L.. DELAY$:. DELAY$."" . 460.F.V....
.... **************************......L..
.......%.. L...&.. LIST OF VARIABLES...+
..L.0.0.. N1$=FIRST NOUN.J.:.. A1$=FIRST
ADJECTIVE.E.D.. A2$=SECOND ADJECTIVE..
N.. A3$=THIRD ADJECTIVE...W..L...X.. V1$
=THE FIRST 'ING' VERB.D.B.. V2$=THE SECO
ND'ING' VERB...L.. V3$=THE THIRD 'ING' V
ERB...V.. V4$=THE ACTION VERB...... P$ =
THE SHORT PHRASE.2.... N2$=THE SECOND NO
UN.8.....?....L.`. .. ******************
********...%.. 53280,7:. 53281,1:.G(31)
: . G(147)...*.."..A NOUN IS A PERSON PL
ACE OR THING.".Y.4.."TYPE A .NOUN..":. 1
150:. N1$...9..G(31)...>..".ADJECTIVES A
RE WORDS THAT DESCRIBE"...C.."NOUNS.".Q.
H.. "TYPE AN .ADJECTIVE. THAT DESCRIBES
";N1$;".".B.R.. 1150:. A1$.M.W..G(31)...
\..".TYPE AN OTHER .ADJECTIVE. THAT DESC
RIBES "...A.. N1$;"."...F.. 1150:. A2$.I
.P..G(31)...Z.."TYPE A .VERB. THAT ENDS
IN 'ING' SUCH AS "....."JUMPING,SINGING
AND LAUGHING.".0.... 1150:. V1$.;....G(
31).J....".TYPE ANOTHER .VERB. THAT ENDS
IN 'ING'".{.... 1150:. V2$......G(31)..
....".AND ONE MORE .VERB. THAT ENDS IN '
ING'"...... L.N.... 1150:. V3$......G(14
7):."..."......G(31)......".ACTION VERBS
TELL WHAT NOUNS DO.".A...."KICKS,DIVES,
SLIDES ARE ACTION VERBS."...J..".TYPE AN
.ACTION VERB. THAT ENDS IN 'S' AND THAT
";N1$;" CAN DO."...T.. 1150:. V4$...Y..
G(31).Q...."TYPE A .PHRASE.THAT STARTS W
ITH ";V4$......"AND TELLS ABOUT ";N1$;".
"...... 1150: . P$......L...... G(31)...
K..L.A.L.."MACHINE IS A NOUN THAT STANDS
".V.Q.."FOR COMPUTER."...V..".TYPE A .NO
UN. THAT STANDS FOR ";N1$;"."...`.. 1150
: . N2$ :. 1200...~..G(156):........J...
. ZZ.1 . 1000:. ZZ.W.D.. G(147).......3)
"..A SPECIAL CINQUAIN ABOUT ";:.G(150) N
1$......L......".":.".".7.F...(40.C(N1$)
).2)N1$.@.P..".".D.Z...(40.C(A1$.A2$)).2
)A1$;" ";A2$.M._.."."...D...(40.C(V1$ .V
2$.V3$)).2)V1$;" ";V2$;" ";V3$...I..".".
..M...(40.C(P$)).2)P$...N.. PRINTTAB((40
-LEN(V4$ +P$))/2)V4$;" ";P$...S.."."...W
.. L...X...(40.C(N2$)).2)N2$. ....G(144)
.'....L.J...."...WOULD YOU LIKE TO WRITE
ANOTHER CINQUAIN?(Y/N)": . REPLY$.Q.A..
L...... H(REPLY$,1)."Y" .800......G(147)
...P.. 53280,7:.53281,12...Q..L.W.4...17
)"..........GOOD-BYE!!"...F.. PAUSE.1.35
00:. PAUSE......G(147)...
> CLICK IMAGE PREVIEW FOR FULL MODAL