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)
tabxy (37, 12); cwrite ("H A P P Y", 4, 12)
tabxy (31, 14); cwrite ("V A L E N T I N E ' S", 4, 12)
tabxy (39, 16); cwrite ("D A Y", 4, 12)
Do
   read quit key (0)
   back color (random(6)+1)
   delay (1)
Loop