5 HOME
10 HTAB 10:PRINT "DSR SHAPETABLE PARTY"
20 HTAB 15:PRINT "BY DEATER"
30 PRINT
40 PRINT "TO RUN: BRUN DSRSHAPE"
120 PRINT CHR$(4);"CATALOG"