home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / POET.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  3.2 KB  |  131 lines
  1.     REM------------------------------------------------------------
  2.     REM    POETRY WRITING PROGRAM WRITTEN BY MITCHELL WAITE
  3.     REM------------------------------------------------------------
  4.  
  5.     REM        JUNE 7, 1977
  6.  
  7.     NO.OF.POEMS=0
  8.     FOR I=1 TO 8
  9.         PRINT CHR$(10);
  10.     NEXT I
  11. 17    REM--
  12.     PRINT TAB(15);"HOW MANY POEMS WOULD YOU LIKE  ";
  13.     INPUT NO.WANTED
  14.     IF NO.WANTED<=0 OR NO.WANTED>10 THEN \
  15.         GOSUB 9000 :\
  16.         GOTO 17
  17.     PRINT
  18.     PRINT
  19.     PRINT
  20.     PRINT
  21.     PRINT
  22.     PRINT
  23.     PRINT TAB(20);"        P   O   E   T"
  24.     PRINT
  25.     PRINT
  26.     PRINT
  27.     PRINT 
  28.     PRINT
  29.     FOR X=1 TO 80
  30.         GARBAGE=GARBAGE+1
  31.     NEXT X
  32.     RANDOMIZE
  33.     A$="WHITE    GRAY VIOLET   BLUE GREEN  YELLOW  ORANGE    REDBROWN   BLACK "
  34.     B$=" BUDS  LEAVES  HILLS SNOW      SUN   RAIN   CLOUD SKY   DAWN      DUSK"
  35.     G$="WE        I   THEY       WE   I    THEY    WE    I      THEY   WE     "
  36.     C$="FLASH  SEE    GLIMPSETRACE   TASTE HEAR   SMELL  CAPTURESEIZE  ATTRACT"
  37.     D$=" BRIGHT  WIREDFROZEN PAINTEDRUSTED DRY    MOIST   SPIRALMOLTEN    BARE"
  38.     E$="PLASMA TIME   CIRCLESWORDS   EYES  FINGERS  ROOTSAMOEBA ATOMS  NUCLEI "
  39.     F$="SPIRITSSTARS  PLANETSCITIES TREES   DESERTFROST  SILENCEMIST      VOID"
  40. 10    REM
  41.     FOR X=1 TO 24
  42.         PRINT
  43.     NEXT X
  44.     GOSUB 1000
  45.     PRINT TAB(8+Q);"ALL"
  46.     GOSUB 1000
  47.     PRINT TAB(8+Q);MID$(A$,X,7)
  48.     GOSUB 1000
  49.     PRINT TAB(13+Q);"IN THE"
  50.     GOSUB 1000
  51.     PRINT TAB(8+Q);MID$(B$,X,7)
  52.     GOSUB 1000
  53.     PRINT TAB(8+Q);MID$(G$,X,7)
  54.     GOSUB 1000
  55.     PRINT TAB(8+Q);MID$(C$,X,7)
  56.     GOSUB 1000
  57.     PRINT TAB(8+Q);MID$(D$,X,7)
  58.     GOSUB 1000
  59.     PRINT TAB(8+Q);MID$(E$,X,7)
  60.     GOSUB 1000
  61.     PRINT TAB(8+Q);"IN THE"
  62.     GOSUB 1000
  63.     PRINT TAB(8+Q);MID$(F$,X,7)
  64.     NO.OF.POEMS=NO.OF.POEMS+1
  65.     IF NO.OF.POEMS>=NO.WANTED THEN GOTO 50
  66.     FOR DELAY = 1 TO 500
  67.         LET GARBAGE=GARBAGE+1
  68.     NEXT DELAY
  69.     GOTO 10
  70. 1000    REM
  71.     X=7*INT(RND*10)+1
  72.     Q=5*INT(RND*10)+1
  73.     D=100*RND
  74.     FOR DELAY=1 TO D
  75.         GARBAGE=GARBAGE+1
  76.     NEXT DELAY
  77.     RETURN
  78. 9000    REM-----BIZARRE NUMBER OF POEMS
  79.     IF NO.WANTED=0 THEN \
  80.         GOTO 9100
  81.     IF NO.WANTED<0 THEN \
  82.         GOTO 9200
  83.     IF NO.WANTED>1000 THEN \
  84.         GOTO 9300
  85.     IF NO.WANTED>99 THEN \
  86.         GOTO 9400
  87.     IF RND>.5 THEN \
  88.         PRINT TAB(15);"WOW, MAN!  LIKE, DIG, LIKE THAT'S A LOT OF POEMS." :\
  89.     ELSE \
  90.         PRINT TAB(15);"COZMIC -- TOO MUCH POETRY, MAN!"
  91.     RETURN
  92. 9100    REM-----ZERO REQUESTED
  93.     IF RND>.5 THEN \
  94.         PRINT TAB(15);"NONE! WOW!!! I NEVER WOULD HAVE THOUGHT OF THAT" :\
  95.         RETURN
  96.     IF RND>.5 THEN \
  97.         PRINT TAB(15);"-----------> Z  E  R  O!!!!! WAY OUT!" :\
  98.         RETURN
  99.     IF RND>.5 THEN \
  100.         PRINT TAB(15);"IF THAT'S WHAT YOU WANT, THAT'S WHAT YOU GET!" :\
  101.         GOTO 50
  102.     PRINT TAB(15);".............JABBERWOCK..............."
  103.     RETURN
  104. 9200    REM------NEGATIVE
  105.     IF RND>.3 THEN \
  106.         PRINT TAB(15);"HERE ON EARTH WE CAN'T HANDLE THAT" :\
  107.         RETURN
  108.     PRINT TAB(15);"OFF THE WALL MAN!"
  109.     RETURN
  110. 9300    REM--------MORE THAN  ONE THOUSAND
  111.     IF RND>.5 THEN \
  112.         PRINT TAB(15);"THAT IS    B  I  G  !!!!!!!" :\
  113.         RETURN
  114.     PRINT TAB(15);"THAT WOULD TAKE ABOUT ";NO.WANTED*.74638;" DAYS TO PRINT"
  115.     RETURN
  116. 9400    REM-------MORE THAN 99
  117.     IF RND>.3 THEN \
  118.         PRINT TAB(15);"I CAN'T HANDLE THAT MANY POEMS, CAN YOU?" :\
  119.         RETURN
  120.     PRINT TAB(15);"JDEK39IMZMZXZGIBBERISHKDOKZZXZQQZXQZ"
  121.     RETURN
  122. 50    REM    E O J
  123.     FOR X=1 TO 24
  124.         PRINT
  125.     NEXT X
  126.     PRINT TAB(24);"THE POET NEVER DIES. . ."
  127.     PRINT
  128.     PRINT
  129.     PRINT
  130.     STOP
  131.