Win-SiMPLE [Valentine] *
//
// Program: Valentine
// Author:  Judith Sorenson
//
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

Int my quit ()
goodbye