The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Valentine

Happy Valentine's Day!

Source Listing

// // Program: Valentine // Author: Judith Sorenson // hide mouse line color (12); solid color (12) Do k=0,100 line (k+223, 240+k, 323+k, k+140) If (k<100) line (k+224, 240+k, 323+k, k+141) Loop solid circle (273, 190, 71) solid circle (373, 190, 71) fore=0 Do wait quit key (0, 150) tabxy (37, 12); cwrite ("H A P P Y", fore, 12) tabxy (31, 14); cwrite ("V A L E N T I N E ' S", fore, 12) tabxy (39, 16); cwrite ("D A Y", fore, 12) fore=12-fore Loop

How To Run The Program

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document

Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)