home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG003.ARK
/
POET.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
3KB
|
131 lines
REM------------------------------------------------------------
REM POETRY WRITING PROGRAM WRITTEN BY MITCHELL WAITE
REM------------------------------------------------------------
REM JUNE 7, 1977
NO.OF.POEMS=0
FOR I=1 TO 8
PRINT CHR$(10);
NEXT I
17 REM--
PRINT TAB(15);"HOW MANY POEMS WOULD YOU LIKE ";
INPUT NO.WANTED
IF NO.WANTED<=0 OR NO.WANTED>10 THEN \
GOSUB 9000 :\
GOTO 17
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(20);" P O E T"
PRINT
PRINT
PRINT
PRINT
PRINT
FOR X=1 TO 80
GARBAGE=GARBAGE+1
NEXT X
RANDOMIZE
A$="WHITE GRAY VIOLET BLUE GREEN YELLOW ORANGE REDBROWN BLACK "
B$=" BUDS LEAVES HILLS SNOW SUN RAIN CLOUD SKY DAWN DUSK"
G$="WE I THEY WE I THEY WE I THEY WE "
C$="FLASH SEE GLIMPSETRACE TASTE HEAR SMELL CAPTURESEIZE ATTRACT"
D$=" BRIGHT WIREDFROZEN PAINTEDRUSTED DRY MOIST SPIRALMOLTEN BARE"
E$="PLASMA TIME CIRCLESWORDS EYES FINGERS ROOTSAMOEBA ATOMS NUCLEI "
F$="SPIRITSSTARS PLANETSCITIES TREES DESERTFROST SILENCEMIST VOID"
10 REM
FOR X=1 TO 24
PRINT
NEXT X
GOSUB 1000
PRINT TAB(8+Q);"ALL"
GOSUB 1000
PRINT TAB(8+Q);MID$(A$,X,7)
GOSUB 1000
PRINT TAB(13+Q);"IN THE"
GOSUB 1000
PRINT TAB(8+Q);MID$(B$,X,7)
GOSUB 1000
PRINT TAB(8+Q);MID$(G$,X,7)
GOSUB 1000
PRINT TAB(8+Q);MID$(C$,X,7)
GOSUB 1000
PRINT TAB(8+Q);MID$(D$,X,7)
GOSUB 1000
PRINT TAB(8+Q);MID$(E$,X,7)
GOSUB 1000
PRINT TAB(8+Q);"IN THE"
GOSUB 1000
PRINT TAB(8+Q);MID$(F$,X,7)
NO.OF.POEMS=NO.OF.POEMS+1
IF NO.OF.POEMS>=NO.WANTED THEN GOTO 50
FOR DELAY = 1 TO 500
LET GARBAGE=GARBAGE+1
NEXT DELAY
GOTO 10
1000 REM
X=7*INT(RND*10)+1
Q=5*INT(RND*10)+1
D=100*RND
FOR DELAY=1 TO D
GARBAGE=GARBAGE+1
NEXT DELAY
RETURN
9000 REM-----BIZARRE NUMBER OF POEMS
IF NO.WANTED=0 THEN \
GOTO 9100
IF NO.WANTED<0 THEN \
GOTO 9200
IF NO.WANTED>1000 THEN \
GOTO 9300
IF NO.WANTED>99 THEN \
GOTO 9400
IF RND>.5 THEN \
PRINT TAB(15);"WOW, MAN! LIKE, DIG, LIKE THAT'S A LOT OF POEMS." :\
ELSE \
PRINT TAB(15);"COZMIC -- TOO MUCH POETRY, MAN!"
RETURN
9100 REM-----ZERO REQUESTED
IF RND>.5 THEN \
PRINT TAB(15);"NONE! WOW!!! I NEVER WOULD HAVE THOUGHT OF THAT" :\
RETURN
IF RND>.5 THEN \
PRINT TAB(15);"-----------> Z E R O!!!!! WAY OUT!" :\
RETURN
IF RND>.5 THEN \
PRINT TAB(15);"IF THAT'S WHAT YOU WANT, THAT'S WHAT YOU GET!" :\
GOTO 50
PRINT TAB(15);".............JABBERWOCK..............."
RETURN
9200 REM------NEGATIVE
IF RND>.3 THEN \
PRINT TAB(15);"HERE ON EARTH WE CAN'T HANDLE THAT" :\
RETURN
PRINT TAB(15);"OFF THE WALL MAN!"
RETURN
9300 REM--------MORE THAN ONE THOUSAND
IF RND>.5 THEN \
PRINT TAB(15);"THAT IS B I G !!!!!!!" :\
RETURN
PRINT TAB(15);"THAT WOULD TAKE ABOUT ";NO.WANTED*.74638;" DAYS TO PRINT"
RETURN
9400 REM-------MORE THAN 99
IF RND>.3 THEN \
PRINT TAB(15);"I CAN'T HANDLE THAT MANY POEMS, CAN YOU?" :\
RETURN
PRINT TAB(15);"JDEK39IMZMZXZGIBBERISHKDOKZZXZQQZXQZ"
RETURN
50 REM E O J
FOR X=1 TO 24
PRINT
NEXT X
PRINT TAB(24);"THE POET NEVER DIES. . ."
PRINT
PRINT
PRINT
STOP