10 :
   20 :
   30 REMLINEPROGRAM BY ROY DICKENS
   40 REMLINE8-BIT (20G) SOLINET (125)
   50 REMLINEBeating heart idea from a
   60 REMLINEMICRO USER magazine
   70 ON ERROR GOTO 840
   80 MODE7
   90 VDU23,1,0;0;0;0;
  100 PROCdh(1,3,1,"Valentine Card")
  110 PROCdh(1,5,0,"By Roy Dickens")
  120 PROCdh(6,7,1,"If you have forgotten to purchase a ")
  130 PROCdh(6,9,1,"card for your loved one. Use this ")
  140 PROCdh(6,11,1,"screen instead and all will be")
  150 PROCdh(6,13,1,"forgiven. (With a bit of luck!)")
  160 PROCdh(3,16,1,"Please type your sweethearts")
  170 PROCdh(3,18,1,"name then press RETURN")
  180 INPUTTAB(2,21)"ƒName?ˆ>>‰"n$
  190 IF n$=""THEN n$="NO ONE"
  200 CLS
  210 PROCbow
  220 PROCsmall(9,13)
  230 PROCdelay
  240 PROCbig(9,13)
  250 PROCdelay
  260 GOTO 220
  270 END
  280 DEFPROCsmall(x,y)
  290 PRINTTAB(x,y)  "                "
  300 PRINTTAB(x,y+1)"™  ‘ ąž’ō ąž’ō š "
  310 PRINTTAB(x,y+2)"™  ‘ ź’’’ż’’’’ š "
  320 PRINTTAB(x,y+3)"™  ‘  ļ’’’’’’„š  "
  330 PRINTTAB(x,y+4)"™  ‘  ¢ļ’’’’§ š  "
  340 PRINTTAB(x,y+5)"™  ‘    «’æ” š   "
  350 PRINTTAB(x,y+6)"™  ‘     ¢   š   "
  360 ENDPROC
  370 DEFPROCbig(x,y)
  380 PRINTTAB(x,y)  "™  ‘  ąš   ąš š  "
  390 PRINTTAB(x,y+1)"™  ‘ ų’’ż°ų’’ż°š "
  400 PRINTTAB(x,y+2)"™  ‘ ’’’’’’’’’µš "
  410 PRINTTAB(x,y+3)"™  ‘ ¢’’’’’’’· š "
  420 PRINTTAB(x,y+4)"™  ‘  Ŗ’’’’’栚  "
  430 PRINTTAB(x,y+5)"™  ‘   ¢ļ’’§   š "
  440 PRINTTAB(x,y+6)"™  ‘     «”    š "
  450 ENDPROC
  460 DEFPROCdelay
  470 TIME=0:REPEAT:UNTIL TIME=83
  480 ENDPROC
  490 DEFPROCbow
  500 PRINT
  510 PRINT "š‘ꤒó¬ó¬ó¬ó“ꤒó¬ó¬ó¬ó”ꤒó¬ó¬ó¬ó•ę¤   ";
  520 PRINT "š’©°  –™ ®ÆÆÆÆÆÆō      ®ÆÆÆÆÆļ“ š’ ©°   ";
  530 PRINT "š—ꤙ–  ž’’’’’’’öéüü°ųē’’’’’’“µ š“ ꤠ  ";
  540 PRINT "š’ø”™  –’’’’’’’’ļź’’µż’’’’’’’µµ š’ ø”   ";
  550 PRINT "š•ę¤™  –ļ’’’’’’ł§²ÆÆ„»’’’’’’’„” š— ꤠ  ";
  560 PRINT "š’©°™  ƒ   –ųüüü’攫’’üüü°     š’  ©°   ";
  570 PRINT "š“ꤙƒ   –Ŗ’’’’§   ¢ļ’’’æ   œ š”  ꤠ  ";
  580 PRINT "š’ø”ƒ ƒ – ™ «Æ”      «Æ§     “œ š’ø”   ";
  590 PRINT "š”ę¤ƒ•é”    é”  ą¦£ä é” 锢¶£¤  œ ꤠ  ";
  600 PRINT "š’©°ƒ•ź     ź   ź  ź  åą„ ع±   œ’©°   ";
  610 PRINT "š‘ę¤ƒ•ŗ°    ŗšš¤¢äš¦  āę  ąåš¤  œ‘ꤠ  ";
  620 PRINT "š’ø”ƒ                         œ œ’ø”   ";
  630 PRINT "š“ꤙ                          š”  ꤠ  ";
  640 REMENDPROC
  650 PRINT "š’©                             šš’©°"
  660 PRINT "š—ę¤                            š“ ꤠ  ";
  670 PRINT "š’ø”                            š’ ø”   ";
  680 PRINT "š•ę¤                            š— ꤠ  ";
  690 PRINT "š’©°                           š’  ©°   ";
  700 PRINT "š‘ę¤                            šš•ę¤   ";
  710 PRINT "š’ø”                            š’ ø”   ";
  720 PRINT "š”ę¤                             š—ę¤    ";
  730 IF LEN(n$)<4 THEN n$="   "+n$
  740 IF LEN(n$)<6 THEN n$="  "+n$
  750 PRINTTAB(12,21)CHR$(141)CHR$(133)n$
  760 PRINTTAB(12,22)CHR$(141)CHR$(133)n$
  770 PRINTTAB(0,23)"š‘ꤒó¬ó¬ó¬ó“ꤒó¬ó¬ó¬ó”ꤒó¬ó¬ó¬ó•ę¤"
  780 ENDPROC
  790 DEFPROCdh(C%,L%,D%,A$)
  800 IF D% A$=CHR$(141)+A$
  810 X%=(40-LENA$)DIV 2-1
  820 FORY%=L%TOL%+D%:PRINTTAB(X%,Y%);CHR$(128+C%);A$:NEXT
  830 ENDPROC
  840 MODE7:REPORT:PRINT" AT LINE ";ERL:END