40 HOME 45 FOR PAUSE = 1 TO 1000: NEXT 46 SPEED= 170 47 FOR I = 1 TO 12 48 VTAB 10: HTAB 20: PRINT "O" 49 VTAB 9: HTAB 19: PRINT "O" 50 VTAB 9: HTAB 20: PRINT "O" 51 VTAB 9: HTAB 21: PRINT "O" 52 VTAB 10: HTAB 21: PRINT "O" 53 VTAB 11: HTAB 21: PRINT "O" 54 VTAB 11: HTAB 20: PRINT "O" 55 VTAB 11: HTAB 19: PRINT "O" 56 VTAB 10: HTAB 19: PRINT "O" 57 HOME 58 NEXT I 59 VTAB 10: HTAB 20: PRINT "O" 66 FOR PAUSE = 1 TO 100: NEXT 67 VTAB 20: HTAB 6: PRINT "FIRST SCREENING: COMPUTER POEMS" 68 FOR PAUSE = 1 TO 1000: NEXT 70 VTAB 22: HTAB 16: PRINT "bpNichol" 71 FOR PAUSE = 1 TO 2000: NEXT 72 FOR PAUSE = 1 TO 2000: NEXT 73 FOR P = 1 TO 20:Q = 20 - P: POKE 32,Q: POKE 33,(2 * P): CALL - 936: FOR R = 1 TO 50: NEXT : NEXT : REM CURTAINS 74 FOR PAUSE = 1 TO 1200: NEXT 75 VTAB 8: HTAB 13: PRINT "COPYRIGHT 1984" 76 POKE 33,1: FOR V = 0 TO 20: POKE 32,V: CALL - 936: POKE 32,(40 - V): CALL - 936: FOR W = 1 TO 50: NEXT : NEXT : POKE 33,40: POKE 32,0: REM SLIDING DOORS 77 SPEED= 255 80 HOME 82 FOR PAUSE = 1 TO 1500: NEXT 84 HOME : HTAB 5: VTAB 5: PRINT "If you experience trouble running": HTAB 5: VTAB 6: PRINT "this programme on an APPLE II": HTAB 5: VTAB 7: PRINT "or II+ computer a modified version": HTAB 5: VTAB 8: PRINT "is available from the publisher." 86 HTAB 5: VTAB 9: PRINT "Simply return the disk and a": HTAB 5: VTAB 10: PRINT "replacement will be sent to you.": FOR PAUSE = 1 TO 4000: NEXT : FOR PAUSE = 1 TO 4000: NEXT : 88 HOME : FOR PAUSE = 1 TO 4000: NEXT : 100 GOSUB 300: REM ISLAND 101 GOSUB 360: REM SELF-REFLEXIVE 1 102 GOSUB 600: REM LETTER 103 GOSUB 1375: REM REVERIE 104 GOSUB 1000: REM CONSTRUCTION 1 105 GOSUB 3556: REM ANY OF YOUR LIP 106 GOSUB 425: REM SELF-RELFEXIVE 2 107 GOSUB 820: REM POEM FOR MY FATHER 108 GOSUB 1900: REM AFTER THE STORM 110 REM FOR THE CURIOUS VIEWER/READER THERE'S AN 'OFF-SCREEN ROMANCE' AT 1748. YOU JUST HAVE TO TUNE IN THE PROGRAMME. 112 GOSUB 495: REM TIDAL POOL 114 GOSUB 550: REM DEDICATION 116 REM FOR FURTHER RE-MARKS LIST 3900,4000 118 FOR PAUSE = 1 TO 4000: NEXT 120 VTAB 10: HTAB 5: PRINT "For Titles & Gosubs," 125 VTAB 11: HTAB 5: PRINT "type LIST 100,118." 130 END 300 HOME 301 FOR PAUSE = 1 TO 2000: NEXT 304 VTAB 8: HTAB 18: PRINT "______" 305 VTAB 10: HTAB 18: PRINT "ISLAND" 306 VTAB 11: HTAB 18: PRINT "______" 310 FOR PAUSE = 1 TO 4000: NEXT 315 HOME 320 FOR PAUSE = 1 TO 1200: NEXT 325 FOR H = 1 TO 120 330 PRINT " WAVE WAVE WAVE","ROCK WAVE WAVE WAVE"," ","ROCK" 335 NEXT H 340 HOME 345 FOR PAUSE = 1 TO 1000: NEXT 350 RETURN 351 END 360 HOME 361 FOR PAUSE = 1 TO 2000: NEXT 364 VTAB 9: HTAB 14: PRINT "______________" 365 VTAB 11: HTAB 14: PRINT "SELF-REFLEXIVE" 370 FOR PAUSE = 1 TO 500: NEXT 375 VTAB 13: HTAB 18: PRINT "NO. 1" 376 VTAB 14: HTAB 14: PRINT "______________" 380 FOR PAUSE = 1 TO 4000: NEXT 385 HOME 390 FOR PAUSE = 1 TO 2000: NEXT 395 FOR G = 1 TO 65 400 PRINT " DREAM YOU LOST TOSS ALL NIGHT"," "," "," "," "," " 405 NEXT G 410 HOME 415 RETURN 420 END 425 HOME 430 FOR PAUSE = 1 TO 2000: NEXT 434 VTAB 9: HTAB 14: PRINT "______________" 435 VTAB 11: HTAB 14: PRINT "SELF-REFLEXIVE" 440 FOR PAUSE = 1 TO 500: NEXT 445 VTAB 13: HTAB 18: PRINT "NO. 2" 446 VTAB 14: HTAB 14: PRINT "______________" 450 FOR PAUSE = 1 TO 4000: NEXT 455 HOME 460 FOR PAUSE = 1 TO 1200: NEXT 465 FOR D = 1 TO 120 470 PRINT "THE BOTTOM LINE IS WHERE CHANGE IS","THE BOTTOM LINE IS WHERE CHANGE IS" 475 NEXT D 480 HOME 485 RETURN 490 END 495 FOR PAUSE = 1 TO 2000: NEXT 499 VTAB 8: HTAB 16: PRINT "__________" 500 VTAB 10: HTAB 16: PRINT "TIDAL POOL" 501 VTAB 11: HTAB 16: PRINT "__________" 505 FOR PAUSE = 1 TO 4000: NEXT 510 HOME 515 FOR PAUSE = 1 TO 1200: NEXT 520 FOR C = 1 TO 120 525 PRINT "ROCK WAVE ROCK","ROCK ROCK ROCK","ROCK ROCK","ROCK ROCK ROCK" 530 NEXT C 535 HOME 540 RETURN 545 END 550 FOR PAUSE = 1 TO 2000: NEXT 551 VTAB 9: HTAB 9: PRINT "THESE POEMS DEDICATED TO" 560 VTAB 11: HTAB 14: PRINT "LIONEL KEARNS" 565 VTAB 12: HTAB 20: PRINT "&" 570 VTAB 13: HTAB 14: PRINT "CAVAN MCCARTHY" 575 FOR PAUSE = 1 TO 4000: NEXT 580 HOME : FOR PAUSE = 1 TO 4000: NEXT : HTAB 5: VTAB 5: PRINT "Special thanks to Pat Reilly for his": 585 HTAB 5: VTAB 6: PRINT "modified version of this programme.": FOR PAUSE = 1 TO 4000: NEXT : HOME : RETURN 590 END 600 FOR PAUSE = 1 TO 2000: NEXT 604 VTAB 10: HTAB 18: PRINT "______" 605 VTAB 12: HTAB 18: PRINT "LETTER" 606 VTAB 13: HTAB 18: PRINT "______" 610 FOR PAUSE = 1 TO 4000: NEXT 615 HOME 620 FOR PAUSE = 1 TO 1250: NEXT 625 VTAB 12: HTAB 5: PRINT "SAT DOWN TO WRITE YOU THIS POEM" 630 FOR PAUSE = 1 TO 3000: NEXT 640 VTAB 12: HTAB 5: PRINT "AT DOWN TO WRITE YOU THIS POEM S" 645 VTAB 12: HTAB 5: PRINT "T DOWN TO WRITE YOU THIS POEM SA" 650 VTAB 12: HTAB 5: PRINT " DOWN TO WRITE YOU THIS POEM SAT" 655 VTAB 12: HTAB 5: PRINT "DOWN TO WRITE YOU THIS POEM SAT " 660 FOR PAUSE = 1 TO 3000: NEXT 665 VTAB 12: HTAB 5: PRINT "OWN TO WRITE YOU THIS POEM SAT D" 670 VTAB 12: HTAB 5: PRINT "WN TO WRITE YOU THIS POEM SAT DO" 675 VTAB 12: HTAB 5: PRINT "N TO WRITE YOU THIS POEM SAT DOW" 680 VTAB 12: HTAB 5: PRINT " TO WRITE YOU THIS POEM SAT DOWN" 685 VTAB 12: HTAB 5: PRINT "TO WRITE YOU THIS POEM SAT DOWN " 690 FOR PAUSE = 1 TO 3000: NEXT 695 VTAB 12: HTAB 5: PRINT "O WRITE YOU THIS POEM SAT DOWN T" 700 VTAB 12: HTAB 5: PRINT " WRITE YOU THIS POEM SAT DOWN TO" 705 VTAB 12: HTAB 5: PRINT "WRITE YOU THIS POEM SAT DOWN TO " 710 FOR PAUSE = 1 TO 3000: NEXT 715 VTAB 12: HTAB 5: PRINT "RITE YOU THIS POEM SAT DOWN TO W" 720 VTAB 12: HTAB 5: PRINT "ITE YOU THIS POEM SAT DOWN TO WR" 725 VTAB 12: HTAB 5: PRINT "TE YOU THIS POEM SAT DOWN TO WRI" 730 VTAB 12: HTAB 5: PRINT "E YOU THIS POEM SAT DOWN TO WRIT" 735 VTAB 12: HTAB 5: PRINT " YOU THIS POEM SAT DOWN TO WRITE" 740 VTAB 12: HTAB 5: PRINT "YOU THIS POEM SAT DOWN TO WRITE " 745 FOR PAUSE = 1 TO 3000: NEXT 750 VTAB 12: HTAB 5: PRINT "OU THIS POEM SAT DOWN TO WRITE Y" 755 VTAB 12: HTAB 5: PRINT "U THIS POEM SAT DOWN TO WRITE YO" 760 VTAB 12: HTAB 5: PRINT " THIS POEM SAT DOWN TO WRITE YOU" 765 VTAB 12: HTAB 5: PRINT "THIS POEM SAT DOWN TO WRITE YOU " 770 FOR PAUSE = 1 TO 3000: NEXT 775 VTAB 12: HTAB 5: PRINT "HIS POEM SAT DOWN TO WRITE YOU T" 780 VTAB 12: HTAB 5: PRINT "IS POEM SAT DOWN TO WRITE YOU TH" 785 VTAB 12: HTAB 5: PRINT "S POEM SAT DOWN TO WRITE YOU THI" 790 VTAB 12: HTAB 5: PRINT " POEM SAT DOWN TO WRITE YOU THIS" 795 VTAB 12: HTAB 5: PRINT "POEM SAT DOWN TO WRITE YOU THIS " 800 FOR PAUSE = 1 TO 2000: NEXT 801 FOR PAUSE = 1 TO 4000: NEXT 805 HOME 810 RETURN 815 END 820 FOR PAUSE = 1 TO 2000: NEXT 824 VTAB 10: HTAB 12: PRINT "__________________" 825 VTAB 12: HTAB 12: PRINT "POEM FOR MY FATHER" 826 VTAB 13: HTAB 12: PRINT "__________________" 830 FOR PAUSE = 1 TO 4000: NEXT 835 HOME 840 FOR PAUSE = 1 TO 2500: NEXT 841 VTAB 8: HTAB 18: PRINT "one" 842 FOR PAUSE = 1 TO 1000: NEXT 843 HOME 844 FOR PAUSE = 1 TO 1000: NEXT 845 SPEED= 70 850 FOR Z = 1 TO 33 855 VTAB 23: HTAB 1 + Z: PRINT "TRAIN" 860 NEXT Z 865 SPEED= 255 870 VTAB 1: HTAB 1: PRINT " " 875 FOR Y = 1 TO 50 880 PRINT " RAINRAINRAINRAINRAINRAINRAINRAINTRAIN"," " 885 NEXT Y: FOR S = 1 TO 40 887 PRINT " AIN AIN AIN AIN AIN AIN AIN AIN AIN"," " 889 NEXT S: FOR T = 1 TO 30 891 PRINT " IN IN IN IN IN IN IN IN IN"," " 893 NEXT T: FOR U = 1 TO 20 895 PRINT " N N N N N N N N N"," " 897 NEXT U: FOR C = 1 TO 20 898 PRINT " "," " 899 NEXT C 900 FOR PAUSE = 1 TO 1000: NEXT 901 GOSUB 1525: REM FATHER2 903 RETURN 905 END 1000 FOR PAUSE = 1 TO 2000: NEXT 1004 VTAB 10: HTAB 13: PRINT "________________" 1005 VTAB 12: HTAB 13: PRINT "CONSTRUCTION ONE" 1006 VTAB 13: HTAB 13: PRINT "________________" 1010 FOR PAUSE = 1 TO 4000: NEXT 1015 HOME 1018 FOR PAUSE = 1 TO 2500: NEXT 1020 FOR F = 1 TO 24 1025 PRINT " " 1030 NEXT F 1035 PRINT " ","TOWER" 1040 FOR PAUSE = 1 TO 1200: NEXT 1045 GOSUB 1520 1050 FOR PAUSE = 1 TO 1150: NEXT 1055 GOSUB 1520 1060 FOR PAUSE = 1 TO 1100: NEXT 1065 GOSUB 1520 1070 FOR PAUSE = 1 TO 1050: NEXT 1075 GOSUB 1520 1080 FOR PAUSE = 1 TO 1000: NEXT 1085 GOSUB 1520 1090 FOR PAUSE = 1 TO 950: NEXT 1095 GOSUB 1520 1100 FOR PAUSE = 1 TO 900: NEXT 1105 GOSUB 1520 1110 FOR PAUSE = 1 TO 850: NEXT 1115 GOSUB 1520 1120 FOR PAUSE = 1 TO 800: NEXT 1125 GOSUB 1520 1130 FOR PAUSE = 1 TO 750: NEXT 1135 GOSUB 1520 1140 FOR PAUSE = 1 TO 700: NEXT 1145 GOSUB 1520 1150 FOR PAUSE = 1 TO 650: NEXT 1155 GOSUB 1520 1160 FOR PAUSE = 1 TO 600: NEXT 1165 GOSUB 1520 1170 FOR PAUSE = 1 TO 550: NEXT 1175 GOSUB 1520 1180 FOR PAUSE = 1 TO 500: NEXT 1185 GOSUB 1520 1190 FOR PAUSE = 1 TO 450: NEXT 1195 GOSUB 1520 1200 FOR PAUSE = 1 TO 400: NEXT 1205 GOSUB 1520 1210 FOR PAUSE = 1 TO 350: NEXT 1215 GOSUB 1520 1220 FOR PAUSE = 1 TO 300: NEXT 1225 GOSUB 1520 1230 FOR PAUSE = 1 TO 250: NEXT 1235 GOSUB 1520 1240 FOR PAUSE = 1 TO 200: NEXT 1245 GOSUB 1520 1250 FOR PAUSE = 1 TO 150: NEXT 1255 GOSUB 1520 1260 FOR PAUSE = 1 TO 100: NEXT 1265 GOSUB 1520 1270 FOR PAUSE = 1 TO 50: NEXT 1275 GOSUB 1520 1280 FOR PAUSE = 1 TO 25: NEXT 1285 GOSUB 1520 1290 FOR PAUSE = 1 TO 12: NEXT 1295 GOSUB 1520 1300 FOR PAUSE = 1 TO 6: NEXT 1305 GOSUB 1520 1310 FOR PAUSE = 1 TO 3: NEXT 1315 GOSUB 1520 1320 FOR BUZZ = 1 TO 125 1325 SOUND = PEEK ( - 16336) + PEEK ( - 16336) + PEEK ( - 16336) - PEEK ( - 16336) 1330 NEXT BUZZ 1335 FOR E = 1 TO 100 1340 PRINT "","BABEL","","" 1345 INVERSE 1350 NEXT E 1355 NORMAL 1360 HOME 1365 RETURN 1370 END 1375 FOR PAUSE = 1 TO 2000: NEXT 1380 VTAB 8: HTAB 16: PRINT "_______" 1385 VTAB 10: HTAB 16: PRINT "REVERIE" 1387 VTAB 11: HTAB 16: PRINT "_______" 1389 FOR PAUSE = 1 TO 4000: NEXT 1391 HOME 1393 FOR PAUSE = 1 TO 1250: NEXT 1395 VTAB 12: HTAB 18: PRINT "_____" 1397 FOR PAUSE = 1 TO 1000: NEXT 1399 VTAB 12: HTAB 19: PRINT "sun" 1400 FOR PAUSE = 1 TO 700: NEXT 1403 FOR A = 1 TO 3 1405 VTAB 12 - A: HTAB 19: PRINT "sun" 1406 VTAB 12: HTAB 19: PRINT "___" 1407 FOR PAUSE = 1 TO 700: NEXT 1408 VTAB 12 - A: HTAB 19: PRINT " " 1409 NEXT A 1410 VTAB 8: HTAB 19: PRINT "SUN" 1411 VTAB 16: HTAB 17: PRINT "(field)" 1412 FOR PAUSE = 1 TO 1000: NEXT 1414 FOR B = 1 TO 13 1416 VTAB 12: HTAB 38 - B: PRINT "HOE" 1418 FOR PAUSE = 1 TO 750: NEXT 1420 VTAB 12: HTAB 38 - B: PRINT " " 1421 VTAB 12: HTAB 38 - B - 2: PRINT "HOE" 1422 FOR PAUSE = 1 TO 750: NEXT 1423 VTAB 12: HTAB 38 - B - 2: PRINT " " 1424 NEXT B 1425 VTAB 12: HTAB 22: PRINT "HOE" 1426 FOR PAUSE = 1 TO 750: NEXT 1427 VTAB 12: HTAB 22: PRINT "_ " 1428 VTAB 12: HTAB 23: PRINT "HOE" 1429 FOR PAUSE = 1 TO 750: NEXT 1430 VTAB 12: HTAB 23: PRINT " " 1434 VTAB 12: HTAB 21: PRINT "HOE" 1436 FOR PAUSE = 1 TO 750: NEXT 1438 VTAB 12: HTAB 21: PRINT "_HOE" 1440 FOR PAUSE = 1 TO 750: NEXT 1442 VTAB 12: HTAB 20: PRINT "HOE " 1444 FOR PAUSE = 1 TO 750: NEXT 1446 VTAB 12: HTAB 20: PRINT "_HOE " 1448 FOR PAUSE = 1 TO 750: NEXT 1450 VTAB 12: HTAB 19: PRINT "HOE_ " 1452 FOR PAUSE = 1 TO 750: NEXT 1454 VTAB 12: HTAB 19: PRINT "_HOE " 1456 FOR PAUSE = 1 TO 750: NEXT 1458 VTAB 12: HTAB 18: PRINT "HOE__" 1460 FOR PAUSE = 1 TO 750: NEXT 1462 VTAB 12: HTAB 18: PRINT "_HOEr" 1464 FOR PAUSE = 1 TO 750: NEXT 1466 VTAB 12: HTAB 17: PRINT "HOE__r" 1468 FOR PAUSE = 1 TO 750: NEXT 1470 VTAB 12: HTAB 17: PRINT " HOEri" 1472 FOR PAUSE = 1 TO 750: NEXT 1474 VTAB 12: HTAB 16: PRINT "HOE__ri" 1476 FOR PAUSE = 1 TO 750: NEXT 1478 VTAB 12: HTAB 16: PRINT " HOEriz" 1480 FOR PAUSE = 1 TO 750: NEXT 1482 VTAB 12: HTAB 15: PRINT "HOE__riz" 1484 FOR PAUSE = 1 TO 750: NEXT 1486 VTAB 12: HTAB 15: PRINT " HOErizo" 1487 FOR PAUSE = 1 TO 750: NEXT 1488 VTAB 12: HTAB 14: PRINT "HOE _rizo" 1489 FOR PAUSE = 1 TO 750: NEXT 1490 VTAB 12: HTAB 14: PRINT " HOErizon" 1491 FOR PAUSE = 1 TO 750: NEXT 1492 VTAB 12: HTAB 14: PRINT " rizon" 1493 FOR C = 1 TO 9 1494 VTAB 12: HTAB 14 - C: PRINT "HOE" 1495 FOR PAUSE = 1 TO 750: NEXT 1496 VTAB 12: HTAB 14 - C: PRINT " " 1497 VTAB 12: HTAB 14 - C - 2: PRINT "HOE" 1498 FOR PAUSE = 1 TO 750: NEXT 1499 VTAB 12: HTAB 14 - C - 2: PRINT " " 1501 NEXT C 1503 FOR PAUSE = 1 TO 1250: NEXT 1504 HOME 1505 RETURN 1507 END 1520 PRINT " ","TOWER" 1522 RETURN 1523 END 1525 VTAB 8: HTAB 18: PRINT "two" 1530 FOR PAUSE = 1 TO 1000: NEXT 1535 HOME 1540 FOR PAUSE = 1 TO 1000: NEXT 1545 SPEED= 90 1550 FOR B = 1 TO 33 1555 VTAB 23: HTAB 1 + B: PRINT "TRAIN" 1560 VTAB 23: HTAB 35 - B: PRINT "GHOST" 1565 NEXT B 1570 SPEED= 255 1575 FOR PAUSE = 1 TO 1500: NEXT PAUSE 1580 HOME 1585 RETURN 1590 END 1600 HOME 1601 FOR PAUSE = 1 TO 2000: NEXT 1602 VTAB 8: HTAB 11: PRINT "__________________" 1604 VTAB 10: HTAB 11: PRINT "OFF-SCREEN ROMANCE" 1606 VTAB 11: HTAB 11: PRINT "__________________" 1608 FOR PAUSE = 1 TO 2000: NEXT 1610 VTAB 15: HTAB 15: PRINT "for ellie" 1611 FOR PAUSE = 1 TO 2000: NEXT 1612 HOME 1614 FOR PAUSE = 1 TO 2000: NEXT 1615 HOME 1616 RETURN 1618 END 1620 FOR PAUSE = 1 TO 1500: NEXT 1627 FOR A = 1 TO 9 1630 VTAB 1 + A: HTAB 10 + A: PRINT "FRED" 1635 VTAB 2 + A: HTAB 10 + A: PRINT "GINGER" 1640 VTAB 1 + A: HTAB 10 + A: PRINT " " 1645 VTAB 3 + A: HTAB 10 + A: PRINT "FRED" 1650 VTAB 2 + A: HTAB 10 + A: PRINT " " 1655 VTAB 4 + A: HTAB 10 + A: PRINT "GINGER" 1660 VTAB 3 + A: HTAB 10 + A: PRINT " " 1665 VTAB 4 + A: HTAB 10 + A: PRINT " " 1666 NEXT A: RETURN 1667 FOR B = 1 TO 10 1668 VTAB 14 - B: HTAB 20 - B: PRINT "FRED" 1670 VTAB 15 - B: HTAB 20 - B: PRINT "GINGER" 1672 VTAB 14 - B: HTAB 20 - B: PRINT " " 1674 VTAB 12 - B: HTAB 20 - B: PRINT "FRED" 1676 VTAB 15 - B: HTAB 20 - B: PRINT " " 1678 VTAB 13 - B: HTAB 20 - B: PRINT "GINGER" 1680 VTAB 12 - B: HTAB 20 - B: PRINT " " 1682 VTAB 13 - B: HTAB 20 - B: PRINT " " 1683 NEXT B: RETURN 1685 FOR C = 1 TO 10 1687 VTAB 13 + C: HTAB 20 - C: PRINT "FRED" 1689 VTAB 14 - C: HTAB 20 + C: PRINT "GINGER" 1691 VTAB 13 + C: HTAB 20 - C: PRINT " " 1693 VTAB 14 - C: HTAB 20 + C: PRINT " " 1695 NEXT C 1697 RETURN 1699 FOR D = 1 TO 10 1701 VTAB 23 - D: HTAB 10 + D: PRINT "FRED" 1703 VTAB 4 + D: HTAB 30 - D: PRINT "GINGER" 1705 VTAB 23 - D: HTAB 10 + D: PRINT " " 1707 VTAB 4 + D: HTAB 30 - D: PRINT " " 1709 NEXT D 1711 RETURN 1713 FOR E = 1 TO 8 1714 VTAB 14 + E: HTAB 20 + E: PRINT " " 1715 VTAB 14 + E: HTAB 20 + E: PRINT "GINGER" 1716 VTAB 15 + E: HTAB 20 + E: PRINT " " 1717 VTAB 15 + E: HTAB 20 + E: PRINT "FRED" 1719 VTAB 14 + E: HTAB 20 + E: PRINT " " 1721 VTAB 15 + E: HTAB 20 + E: PRINT " " 1723 NEXT E 1725 RETURN 1727 END 1729 FOR F = 1 TO 9 1731 VTAB 23 - F: HTAB 30 - F: PRINT "FRED" 1733 VTAB 24 - F: HTAB 30 - F: PRINT "GINGER" 1735 VTAB 23 - F: HTAB 30 - F: PRINT " " 1737 VTAB 24 - F: HTAB 30 - F: PRINT " " 1739 NEXT F 1741 RETURN 1743 END 1748 GOSUB 1600 1750 FOR Z = 1 TO 2 1752 SPEED= 200 1754 GOSUB 1627 1756 GOSUB 1667 1758 GOSUB 1627 1760 GOSUB 1685: GOSUB 1699 1762 GOSUB 1685: GOSUB 1699 1764 GOSUB 1667 1766 NEXT Z 1768 GOSUB 1627 1770 GOSUB 1713 1772 GOSUB 1729 1774 GOSUB 1685 1776 GOSUB 1699 1778 GOSUB 1800 1780 GOSUB 1685: GOSUB 1699 1782 GOSUB 1800 1784 GOSUB 1713 1786 HOME 1788 SPEED= 255 1790 RETURN 1792 END 1800 FOR Y = 1 TO 6 1802 VTAB 14: HTAB 20: PRINT "FRED" 1804 VTAB 15: HTAB 20: PRINT "GINGER" 1806 VTAB 14: HTAB 20: PRINT " " 1808 VTAB 15: HTAB 20: PRINT " " 1810 VTAB 14: HTAB 20: PRINT "FRED" 1812 VTAB 14: HTAB 20: PRINT "GINGER" 1814 VTAB 14: HTAB 20: PRINT " " 1816 VTAB 15: HTAB 20: PRINT "FRED" 1818 VTAB 15: HTAB 20: PRINT "GINGER" 1820 VTAB 15: HTAB 20: PRINT " " 1822 NEXT Y 1824 RETURN 1826 END 1900 HOME 1905 FOR PAUSE = 1 TO 2000: NEXT 1909 VTAB 9: HTAB 13: PRINT "_______________" 1910 VTAB 11: HTAB 13: PRINT "AFTER THE STORM" 1911 VTAB 12: HTAB 13: PRINT "_______________" 1915 FOR PAUSE = 1 TO 4000: NEXT 1920 HOME 1925 FOR PAUSE = 1 TO 2500: NEXT 2005 SPEED= 210 2010 VTAB 4: HTAB 5: PRINT "THIS" 2015 VTAB 4: HTAB 5: PRINT " THIS" 2020 VTAB 4: HTAB 5: PRINT " THIS" 2025 VTAB 4: HTAB 5: PRINT " THIS" 2030 VTAB 4: HTAB 5: PRINT " THIS" 2035 VTAB 4: HTAB 5: PRINT " THIS" 2040 VTAB 4: HTAB 5: PRINT " THIS" 2045 VTAB 4: HTAB 5: PRINT " THISS" 2050 VTAB 4: HTAB 5: PRINT " THISSS" 2055 VTAB 4: HTAB 5: PRINT " THIISSS" 2060 VTAB 4: HTAB 5: PRINT " THIIISSS" 2065 VTAB 4: HTAB 5: PRINT " THIISISS" 2070 VTAB 4: HTAB 5: PRINT " THISIISS" 2075 VTAB 4: HTAB 5: PRINT " THIS ISS" 2080 VTAB 4: HTAB 5: PRINT " THIS IS" 2085 VTAB 4: HTAB 5: PRINT " THIS IS" 2090 VTAB 4: HTAB 5: PRINT " THIS IS" 2100 VTAB 4: HTAB 5: PRINT " THIS IS" 2105 VTAB 4: HTAB 5: PRINT " THIS IS" 2110 VTAB 4: HTAB 5: PRINT " THIS I " 2115 VTAB 5: HTAB 22: PRINT "S" 2120 VTAB 4: HTAB 5: PRINT " THIS " 2125 VTAB 5: HTAB 21: PRINT "IS" 2130 FOR PAUSE = 1 TO 70: NEXT 2135 VTAB 6: HTAB 3: PRINT "T" 2140 FOR PAUSE = 1 TO 160: NEXT 2145 VTAB 6: HTAB 4: PRINT "H" 2150 FOR PAUSE = 1 TO 150: NEXT 2155 VTAB 6: HTAB 5: PRINT "E" 2160 FOR PAUSE = 1 TO 70: NEXT 2161 SPEED= 160 2165 VTAB 1: HTAB 14: PRINT "S" 2170 VTAB 2: HTAB 15: PRINT "S" 2175 VTAB 1: HTAB 14: PRINT " " 2180 VTAB 3: HTAB 14: PRINT "S" 2185 VTAB 2: HTAB 15: PRINT " " 2190 VTAB 4: HTAB 15: PRINT "S" 2195 VTAB 3: HTAB 14: PRINT " " 2200 VTAB 5: HTAB 16: PRINT "S" 2205 VTAB 4: HTAB 15: PRINT " " 2210 VTAB 6: HTAB 17: PRINT "S" 2215 VTAB 5: HTAB 16: PRINT " " 2220 VTAB 7: HTAB 16: PRINT "S" 2225 VTAB 6: HTAB 17: PRINT " " 2230 VTAB 23: HTAB 1: PRINT "E" 2235 VTAB 23: HTAB 1: PRINT " " 2240 VTAB 21: HTAB 4: PRINT "EE" 2245 VTAB 22: HTAB 2: PRINT " " 2250 VTAB 20: HTAB 5: PRINT "E" 2255 VTAB 21: HTAB 4: PRINT " E" 2260 VTAB 19: HTAB 6: PRINT "E" 2265 VTAB 20: HTAB 5: PRINT " " 2270 VTAB 21: HTAB 6: PRINT " E" 2275 VTAB 20: HTAB 6: PRINT "E" 2280 VTAB 18: HTAB 7: PRINT "E" 2285 VTAB 19: HTAB 6: PRINT " " 2290 VTAB 20: HTAB 7: PRINT "E" 2295 VTAB 21: HTAB 7: PRINT " " 2300 VTAB 19: HTAB 7: PRINT "E" 2305 VTAB 20: HTAB 6: PRINT " " 2310 VTAB 17: HTAB 8: PRINT "E" 2315 VTAB 18: HTAB 7: PRINT " " 2320 VTAB 20: HTAB 7: PRINT " E" 2325 VTAB 18: HTAB 8: PRINT "E" 2330 VTAB 19: HTAB 7: PRINT " " 2335 VTAB 16: HTAB 9: PRINT "E" 2340 VTAB 17: HTAB 8: PRINT " " 2345 VTAB 19: HTAB 9: PRINT "E" 2350 VTAB 20: HTAB 8: PRINT " " 2355 VTAB 17: HTAB 9: PRINT "E" 2360 VTAB 18: HTAB 8: PRINT " " 2365 VTAB 15: HTAB 10: PRINT "E" 2370 VTAB 16: HTAB 9: PRINT " " 2375 VTAB 19: HTAB 9: PRINT " E" 2380 VTAB 16: HTAB 10: PRINT "E" 2385 VTAB 17: HTAB 9: PRINT " " 2390 VTAB 14: HTAB 11: PRINT "E" 2395 VTAB 15: HTAB 10: PRINT " " 2400 VTAB 19: HTAB 10: PRINT " E" 2405 VTAB 16: HTAB 10: PRINT " E" 2410 VTAB 13: HTAB 12: PRINT "E" 2415 VTAB 14: HTAB 11: PRINT " " 2420 VTAB 19: HTAB 11: PRINT " E" 2425 VTAB 16: HTAB 11: PRINT " E" 2430 VTAB 12: HTAB 13: PRINT "E" 2435 VTAB 13: HTAB 12: PRINT " " 2440 VTAB 18: HTAB 13: PRINT "E" 2445 VTAB 19: HTAB 12: PRINT " " 2450 VTAB 16: HTAB 12: PRINT " E" 2455 VTAB 11: HTAB 14: PRINT "E" 2460 VTAB 12: HTAB 13: PRINT " " 2465 VTAB 18: HTAB 13: PRINT " E" 2470 VTAB 15: HTAB 14: PRINT "E" 2475 VTAB 16: HTAB 13: PRINT " " 2480 VTAB 10: HTAB 15: PRINT "E" 2485 VTAB 11: HTAB 14: PRINT " " 2490 VTAB 18: HTAB 14: PRINT " E" 2495 VTAB 15: HTAB 14: PRINT " E" 2500 VTAB 9: HTAB 16: PRINT "E" 2505 VTAB 10: HTAB 15: PRINT " " 2510 VTAB 18: HTAB 15: PRINT " E" 2515 VTAB 14: HTAB 16: PRINT "E" 2520 VTAB 15: HTAB 15: PRINT " " 2525 VTAB 8: HTAB 17: PRINT "E" 2530 VTAB 9: HTAB 16: PRINT " " 2535 VTAB 18: HTAB 16: PRINT " E" 2540 VTAB 13: HTAB 17: PRINT "E" 2545 VTAB 14: HTAB 16: PRINT " " 2550 VTAB 7: HTAB 17: PRINT "E" 2555 VTAB 8: HTAB 17: PRINT " " 2560 VTAB 17: HTAB 18: PRINT "E" 2565 VTAB 18: HTAB 17: PRINT " " 2570 VTAB 12: HTAB 18: PRINT "E" 2575 VTAB 13: HTAB 17: PRINT " " 2580 VTAB 5: HTAB 12: PRINT "T" 2585 VTAB 16: HTAB 19: PRINT "E" 2590 VTAB 17: HTAB 18: PRINT " " 2595 VTAB 11: HTAB 19: PRINT "E" 2600 VTAB 12: HTAB 18: PRINT " " 2605 VTAB 6: HTAB 13: PRINT "T" 2610 VTAB 5: HTAB 12: PRINT " " 2615 VTAB 15: HTAB 20: PRINT "E" 2620 VTAB 16: HTAB 19: PRINT " " 2625 VTAB 10: HTAB 20: PRINT "E" 2630 VTAB 11: HTAB 19: PRINT " " 2635 VTAB 7: HTAB 14: PRINT "T" 2640 VTAB 6: HTAB 13: PRINT " " 2645 VTAB 14: HTAB 21: PRINT "E" 2650 VTAB 15: HTAB 20: PRINT " " 2655 VTAB 9: HTAB 19: PRINT "E" 2660 VTAB 10: HTAB 20: PRINT " " 2665 VTAB 8: HTAB 15: PRINT "T" 2670 VTAB 7: HTAB 14: PRINT " " 2675 VTAB 13: HTAB 22: PRINT "E" 2680 VTAB 14: HTAB 21: PRINT " " 2685 VTAB 8: HTAB 19: PRINT "E" 2690 VTAB 9: HTAB 19: PRINT " " 2700 VTAB 9: HTAB 16: PRINT "T" 2705 VTAB 8: HTAB 15: PRINT " " 2710 VTAB 12: HTAB 23: PRINT "E" 2715 VTAB 13: HTAB 22: PRINT " " 2720 VTAB 7: HTAB 20: PRINT "E" 2725 VTAB 8: HTAB 19: PRINT " " 2730 VTAB 8: HTAB 17: PRINT "T" 2735 VTAB 9: HTAB 16: PRINT " " 2740 VTAB 11: HTAB 24: PRINT "E" 2745 VTAB 12: HTAB 23: PRINT " " 2750 VTAB 1: HTAB 28: PRINT "N" 2755 VTAB 7: HTAB 18: PRINT "T" 2760 VTAB 8: HTAB 17: PRINT " " 2765 VTAB 10: HTAB 25: PRINT "E" 2770 VTAB 11: HTAB 24: PRINT " " 2775 VTAB 2: HTAB 27: PRINT "N" 2780 VTAB 1: HTAB 28: PRINT " " 2785 VTAB 7: HTAB 19: PRINT "T" 2790 VTAB 7: HTAB 18: PRINT " " 2795 VTAB 9: HTAB 24: PRINT "E" 2800 VTAB 10: HTAB 25: PRINT " " 2805 VTAB 3: HTAB 26: PRINT "NN" 2810 VTAB 2: HTAB 27: PRINT " " 2815 VTAB 20: HTAB 36: PRINT "C" 2820 VTAB 8: HTAB 24: PRINT "E" 2825 VTAB 9: HTAB 24: PRINT " " 2830 VTAB 4: HTAB 25: PRINT "N" 2835 VTAB 3: HTAB 26: PRINT "N " 2840 VTAB 19: HTAB 35: PRINT "C" 2845 VTAB 20: HTAB 36: PRINT " " 2850 VTAB 7: HTAB 23: PRINT "E" 2855 VTAB 8: HTAB 24: PRINT " " 2860 VTAB 5: HTAB 24: PRINT "N" 2865 VTAB 4: HTAB 25: PRINT " " 2866 VTAB 3: HTAB 25: PRINT "N " 2870 VTAB 18: HTAB 34: PRINT "C" 2875 VTAB 19: HTAB 35: PRINT " " 2880 VTAB 6: HTAB 23: PRINT "N" 2885 VTAB 5: HTAB 24: PRINT " " 2886 VTAB 3: HTAB 24: PRINT "N " 2890 VTAB 17: HTAB 33: PRINT "C" 2895 VTAB 18: HTAB 34: PRINT " " 2900 VTAB 6: HTAB 22: PRINT "N " 2901 VTAB 3: HTAB 23: PRINT "N " 2905 VTAB 16: HTAB 32: PRINT "C" 2910 VTAB 17: HTAB 33: PRINT " " 2915 VTAB 7: HTAB 21: PRINT "N" 2916 VTAB 6: HTAB 22: PRINT " " 2917 VTAB 4: HTAB 22: PRINT "N" 2918 VTAB 3: HTAB 23: PRINT " " 2920 VTAB 15: HTAB 31: PRINT "C" 2925 VTAB 16: HTAB 32: PRINT " " 2930 VTAB 4: HTAB 21: PRINT "N " 2935 VTAB 4: HTAB 20: PRINT "N " 2940 VTAB 14: HTAB 30: PRINT "C" 2945 VTAB 15: HTAB 31: PRINT " " 2950 VTAB 4: HTAB 19: PRINT "N " 2955 VTAB 13: HTAB 29: PRINT "C" 2960 VTAB 14: HTAB 30: PRINT " " 2965 VTAB 4: HTAB 18: PRINT "N " 2970 VTAB 12: HTAB 28: PRINT "C" 2975 VTAB 13: HTAB 29: PRINT " " 2980 VTAB 5: HTAB 18: PRINT "N" 2981 VTAB 4: HTAB 18: PRINT " " 2985 VTAB 11: HTAB 27: PRINT "C" 2990 VTAB 12: HTAB 28: PRINT " " 2995 VTAB 6: HTAB 18: PRINT "N" 2996 VTAB 5: HTAB 18: PRINT " " 3000 VTAB 10: HTAB 26: PRINT "C" 3005 VTAB 11: HTAB 27: PRINT " " 3010 VTAB 7: HTAB 18: PRINT "N" 3015 VTAB 6: HTAB 18: PRINT " " 3110 VTAB 10: HTAB 25: PRINT "C" 3115 VTAB 10: HTAB 26: PRINT " " 3120 VTAB 9: HTAB 24: PRINT "C" 3125 VTAB 10: HTAB 25: PRINT " " 3130 VTAB 8: HTAB 23: PRINT "C" 3135 VTAB 9: HTAB 24: PRINT " " 3140 VTAB 7: HTAB 22: PRINT "C" 3145 VTAB 8: HTAB 23: PRINT " " 3150 FOR PAUSE = 1 TO 150: NEXT 3155 VTAB 8: HTAB 27: PRINT "THAT" 3160 FOR PAUSE = 1 TO 150: NEXT 3161 VTAB 9: HTAB 4: PRINT "THE" 3162 FOR PAUSE = 1 TO 175: NEXT 3165 FOR X = 1 TO 12 3166 SPEED= 225 3167 VTAB 10: HTAB 8 + X: PRINT " " 3169 VTAB 11: HTAB 8 + X: PRINT " " 3171 VTAB 11: HTAB 7 + X: PRINT " " 3173 VTAB 10: HTAB 7 + X: PRINT " " 3175 VTAB 9: HTAB 7 + X: PRINT " " 3177 VTAB 9: HTAB 8 + X: PRINT " " 3179 VTAB 9: HTAB 9 + X: PRINT " " 3181 VTAB 10: HTAB 9 + X: PRINT " " 3183 VTAB 11: HTAB 9 + X: PRINT " " 3188 VTAB 10: HTAB 8 + X: PRINT "W" 3189 VTAB 11: HTAB 8 + X: PRINT "I" 3190 VTAB 11: HTAB 7 + X: PRINT "N" 3195 VTAB 10: HTAB 7 + X: PRINT "D" 3200 VTAB 9: HTAB 7 + X: PRINT "I" 3205 VTAB 9: HTAB 8 + X: PRINT "W" 3210 VTAB 9: HTAB 9 + X: PRINT "I" 3215 VTAB 10: HTAB 9 + X: PRINT "N" 3220 VTAB 11: HTAB 9 + X: PRINT "D" 3225 VTAB 11: HTAB 7 + X: PRINT " " 3230 VTAB 10: HTAB 7 + X: PRINT " " 3235 VTAB 9: HTAB 7 + X: PRINT " " 3240 NEXT X 3250 VTAB 11: HTAB 22: PRINT "D" 3255 VTAB 11: HTAB 21: PRINT " " 3260 VTAB 11: HTAB 19: PRINT " " 3265 VTAB 10: HTAB 22: PRINT "N" 3270 VTAB 10: HTAB 21: PRINT "I" 3275 VTAB 9: HTAB 21: PRINT " " 3280 VTAB 9: HTAB 19: PRINT " " 3285 VTAB 10: HTAB 23: PRINT "D" 3286 VTAB 11: HTAB 22: PRINT " " 3290 VTAB 10: HTAB 19: PRINT " " 3295 VTAB 9: HTAB 20: PRINT " " 3300 VTAB 11: HTAB 20: PRINT " " 3305 SPEED= 165 3310 FOR PAUSE = 1 TO 170: NEXT 3312 FOR W = 1 TO 6 3315 VTAB 11: HTAB 10: PRINT "B" 3320 VTAB 11: HTAB 9: PRINT "BLE" 3325 VTAB 11: HTAB 8: PRINT "BBLEWW" 3330 VTAB 11: HTAB 8: PRINT " BLEW " 3335 VTAB 11: HTAB 9: PRINT " BW " 3340 VTAB 11: HTAB 10: PRINT " " 3345 NEXT W 3350 VTAB 11: HTAB 10: PRINT "BW" 3355 VTAB 11: HTAB 9: PRINT "BLEW" 3360 VTAB 11: HTAB 8: PRINT "BBLEWW" 3365 VTAB 11: HTAB 8: PRINT " BLEW " 3370 FOR PAUSE = 1 TO 170: NEXT 3375 VTAB 12: HTAB 29: PRINT "HERE" 3380 FOR PAUSE = 1 TO 4000: NEXT 3500 HOME 3505 SPEED= 255 3510 RETURN 3515 END 3520 VTAB 12: HTAB 18: PRINT "MOUTH" 3522 RETURN 3524 VTAB 12: HTAB 18: PRINT "mouth" 3526 RETURN 3528 VTAB 12: HTAB 18: PRINT " myth" 3530 RETURN 3532 VTAB 12: HTAB 18: PRINT " math" 3534 RETURN 3536 VTAB 12: HTAB 18: PRINT " mate" 3538 RETURN 3540 VTAB 12: HTAB 18: PRINT " maze" 3542 RETURN 3544 VTAB 12: HTAB 18: PRINT "amaze" 3546 RETURN 3548 VTAB 12: HTAB 18: PRINT " ing " 3550 RETURN 3552 FOR PAUSE = 1 TO 700: NEXT 3554 RETURN 3556 HOME 3557 FOR PAUSE = 1 TO 3000: NEXT 3558 VTAB 8: HTAB 12: PRINT "_______________" 3560 VTAB 10: HTAB 12: PRINT "ANY OF YOUR LIP" 3561 VTAB 11: HTAB 12: PRINT "_______________" 3562 FOR PAUSE = 1 TO 1250: NEXT 3563 VTAB 15: HTAB 10: PRINT "a silent sound poem" 3564 VTAB 16: HTAB 11: PRINT "for sean o'huigin" 3565 FOR PAUSE = 1 TO 4000: NEXT 3570 HOME 3575 FOR PAUSE = 1 TO 1250: NEXT 3580 FOR A = 1 TO 4 3585 GOSUB 3520 3590 GOSUB 3552 3595 GOSUB 3524 3600 GOSUB 3552 3605 NEXT A 3610 FOR B = 1 TO 4 3615 GOSUB 3520 3620 GOSUB 3552 3625 GOSUB 3528 3630 GOSUB 3552 3635 NEXT B 3640 FOR C = 1 TO 4 3645 GOSUB 3520 3650 GOSUB 3552 3655 GOSUB 3532 3660 GOSUB 3552 3665 NEXT C 3670 FOR D = 1 TO 4 3675 GOSUB 3520 3680 GOSUB 3552 3685 GOSUB 3536 3690 GOSUB 3552 3695 NEXT D 3700 FOR E = 1 TO 4 3705 GOSUB 3520 3710 GOSUB 3552 3715 GOSUB 3540 3720 GOSUB 3552 3725 NEXT E 3730 FOR F = 1 TO 4 3735 GOSUB 3520 3740 GOSUB 3552 3745 GOSUB 3544 3750 GOSUB 3552 3755 NEXT F 3760 FOR G = 1 TO 3 3765 GOSUB 3520 3770 GOSUB 3552 3775 GOSUB 3548 3780 GOSUB 3552 3785 GOSUB 3544 3790 GOSUB 3552 3795 GOSUB 3548 3800 GOSUB 3552 3805 NEXT G 3807 HOME 3809 GOSUB 3552 3810 FOR H = 1 TO 8 3815 GOSUB 3548 3820 GOSUB 3552 3821 HOME 3822 FOR PAUSE = 1 TO 600: NEXT 3825 NEXT H 3830 GOSUB 3524 3835 GOSUB 3552 3837 FOR PAUSE = 1 TO 500: NEXT 3840 HOME 3845 FOR PAUSE = 1 TO 1250: NEXT 3850 RETURN 3855 END 3900 REM ARK 3905 REM BOAT 3910 REM AIN 3915 REM RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN 3920 REM BOAT 3925 REM ARK 3930 REM BOW 3935 REM ARC 4000 END