10: 20: 30REM PROGRAM BY ROY DICKENS 40REM 8-BIT (20G) SOLINET (125) 50REM Beating heart idea from a 60REM MICRO USER magazine 70ON ERROR GOTO 840 80MODE7 90VDU23,1,0;0;0;0; 100PROCdh(1,3,1,"Valentine Card") 110PROCdh(1,5,0,"By Roy Dickens") 120PROCdh(6,7,1,"If you have forgotten to purchase a ") 130PROCdh(6,9,1,"card for your loved o ne. Use this ") 140PROCdh(6,11,1,"screen instead and a ll will be") 150PROCdh(6,13,1,"forgiven. (With a bi t of luck!)") 160PROCdh(3,16,1,"Please type your swe ethearts") 170PROCdh(3,18,1,"name then press RETU RN") 180INPUTTAB(2,21)" Name? >> "n$ 190IF n$=""THEN n$="NO ONE" 200CLS 210PROCbow 220PROCsmall(9,13) 230PROCdelay 240PROCbig(9,13) 250PROCdelay 260GOTO 220 270END 280DEFPROCsmall(x,y) 290PRINTTAB(x,y) " " 300PRINTTAB(x,y+1)"    310PRINTTAB(x,y+2)"   320PRINTTAB(x,y+3)"   330PRINTTAB(x,y+4)"   340PRINTTAB(x,y+5)"   350PRINTTAB(x,y+6)"   360ENDPROC 370DEFPROCbig(x,y) 380PRINTTAB(x,y) "    390PRINTTAB(x,y+1)"   400PRINTTAB(x,y+2)"   410PRINTTAB(x,y+3)"   420PRINTTAB(x,y+4)"   430PRINTTAB(x,y+5)"   440PRINTTAB(x,y+6)"   450ENDPROC 460DEFPROCdelay 470TIME=0:REPEAT:UNTIL TIME=83 480ENDPROC 490DEFPROCbow 500PRINT 510PRINT "       ,s,s,s   520PRINT "    /o4   530PRINT "   ¶45   540PRINT "   ¶55   550PRINT "   ¶%!   560PRINT "     570PRINT "      580PRINT "      590PRINT "       6£$ f$ "; 600PRINT "        91   610PRINT "      ep$   620PRINT "    630PRINT "    640REMENDPROC 650PRINT "   660PRINT "    670PRINT "    680PRINT "    690PRINT "    700PRINT "    710PRINT "    720PRINT "    730IF LEN(n$)<4 THEN n$=" "+n$ 740IF LEN(n$)<6 THEN n$=" "+n$ 750PRINTTAB(12,21)CHR$(141)CHR$(133)n$ 760PRINTTAB(12,22)CHR$(141)CHR$(133)n$ 770PRINTTAB(0,23)"     s,s    780ENDPROC 790DEFPROCdh(C%,L%,D%,A$) 800IF D% A$=CHR$(141)+A$ 810X%=(40-LENA$)DIV 2-1 820FORY%=L%TOL%+D%:PRINTTAB(X%,Y%);CHR $(128+C%);A$:NEXT 830ENDPROC 840MODE7:REPORT:PRINT" AT LINE ";ERL:E ND