Compucolor.org – Virtual Media

Listing of file='POEMWR.BAS;01' on disk='vmedia/games-sector.ccvf'

5 PLOT 12
10 PRINT "POEM-WRITER"
20 INPUT "NOUN? ";AA$
30 INPUT "VERB? ";BB$
40 INPUT "ADVERB? ";CC$
50 INPUT "ADJECTIVE? ";DD$
60 FOR D= 1TO 2000:NEXT D
62 PRINT
67 PRINT
70 PRINT "THE ";DD$;" ";AA$
80 PRINT BB$;" ";CC$