10 POKE53280,0:POKE53281,0:PRINT"[147]"
20 DV=PEEK(186):IFDV<8THENDV=8
30 SYS57812"BIRTHDAY FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
40 CK$="[154][221]                                [146][154][221]"
50 UL$="    ---------------------------------"
60 SP$="                            "
70 DV=PEEK(186):IFDV<8THENDV=8
80 CL$(1)="LOVE"
90 CL$(2)="SINCERELY YOURS"
100 CL$(3)="YOUR FRIEND"
110 CL$(4)="YOUR YOUNGER FRIEND"
120 CL$(5)="YOUR OLDER FRIEND"
130 CL$(6)="MAKE YOUR OWN CLOSING"
137 :
138 :REM TITLE SCREEN
139 :
140 POKE53272,31:PRINT"[147][129]      A PROGRAM BY  ROBERT DALLMANN[155]"
150 PRINTTAB(18)"[158][\]
160 [153][163]18)"<=>
170 FORI=1TO7:PRINTTAB(18)"[154]$%&":NEXT
180 PRINTTAB(3)"[154][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
190 PRINTTAB(18)"[145]$%&"
200 PRINTTAB(3)"[221][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][154][221]"
210 PRINTTAB(3)"[221][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][154][221]"
220 FORI=0TO1:PRINTTAB(3)CK$:NEXT
230 PRINTTAB(3)"[154][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179] "
240 FORI=0TO5:PRINTTAB(3)CK$:NEXT
250 PRINTTAB(3)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
260 POKE214,12:PRINT:PRINTTAB(9)" BIRTHDAY[160]SURPRISE!!!"
270 PRINTTAB(13)" DISCLAIMER: "
280 PRINT"[159] NEITHER LOADSTAR NOR THE AUTHOR"
290 PRINT"  WILL BE HELD ACCOUNTABLE FOR  "
300 PRINT" ANY INJURIES SUFFERED, FRIEND- "
310 PRINT" SHIPS DESTROYED, OR ANY OTHER  "
320 PRINT"   MALADY THAT MAY RESULT FROM  "
330 PRINT"    THE USE OF THIS PROGRAM.    "
340 POKE214,23:PRINT:PRINTTAB(15)"PRESS A KEY"
350 GETA$:IFA$=""THEN350
357 :
358 :REM INPUT SCREEN
359 :
360 PRINT"[147][155]":PRINT"WHAT IS THE BIRTHDAY PERSON'S NAME?"
370 L9=16:PRINTLEFT$(UL$,L9+5)"[145][145]":GOSUB1170:NA$=Q9$
380 PRINT"WHAT IS YOUR NAME?"
390 L9=16:PRINTLEFT$(UL$,L9+5)"[145][145]":GOSUB1170:NB$=Q9$
400 PRINT"WHAT IS THE CURRENT YEAR? (19XX)"
410 L9=2:PRINTLEFT$(UL$,L9+5)"[145][145]":GOSUB1170:Y=VAL(Q9$)
420 PRINT"WHAT IS THE BIRTHDAY MONTH? (1-12)"
430 PRINTLEFT$(UL$,L9+5)"[145][145]":GOSUB1170:M=VAL(Q9$)
440 PRINT"WHAT IS THE BIRTH DAY? (1-31)"
450 PRINTLEFT$(UL$,L9+5)"[145][145]":GOSUB1170:D=VAL(Q9$)
460 PRINT"WHAT WAS THE LAST LEAP YEAR? (19XX)"
470 PRINTLEFT$(UL$,L9+5)"[145][145]":GOSUB1170:LY=VAL(Q9$)
480 PRINT"WHAT WAS THE YEAR OF BIRTH? (19XX)"
490 PRINTLEFT$(UL$,L9+5)"[145][145]":GOSUB1170:YB=VAL(Q9$)
500 GOSUB860:REM CLOSING SUBROUTINE
507 :
508 :REM CALCULATIONS
509 :
510 YY=Y-YB:MM=YY*12:X=INT((LY-YB)/4):DD=INT(YY*365+X)
520 H=DD*24:MI=H*60:S=MI*60
530 GOSUB540:GOTO740
537 :
538 :REM CARD SCREEN SUBROUTINE
539 :
540 PRINT"[147]"
550 PRINT"[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]":PRINT
560 POKE646,7
570 PRINTLEFT$(SP$,12)M"/"D"/"Y
580 PRINTLEFT$(SP$,12)"HAPPY BIRTHDAY!"
590 POKE646,7:PRINTLEFT$(SP$,20-(LEN(NA$)/2))NA$
600 PRINTLEFT$(SP$,7)"DID YOU KNOW THAT YOU ARE..."
610 POKE646,3
620 PRINTLEFT$(SP$,8)YY" YEARS OLD"
630 PRINTLEFT$(SP$,8)MM" MONTHS OLD"
640 PRINTLEFT$(SP$,8)DD" DAYS OLD"
650 PRINTLEFT$(SP$,8)H" HOURS OLD"
660 PRINTLEFT$(SP$,8)MI" MINUTES OLD"
670 PRINTLEFT$(SP$,8)S" SECONDS OLD"
680 POKE646,2:PRINT
690 PRINT"[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]":PRINT
700 POKE646,7
710 PRINTLEFT$(SP$,20-(LEN(CL$(CL))/2))CL$(CL)","
720 PRINTLEFT$(SP$,20-(LEN(NB$)/2))NB$:PRINT
730 RETURN
737 :
738 :REM PRINT PROMPTS
739 :
740 PRINT"[155]  WOULD YOU LIKE TO PRINT THIS? (Y[155]/N[155])"
750 GETP$:IFP$=""THEN750
760 IFP$<>"Y"THEN1050
770 PRINT"[147]  BE SURE YOUR PRINTER IS ON AND PRESS"
780 PRINT"     ANY KEY TO BEGIN PRINTING..."
790 GETA$:IFA$=""THEN790
797 :
798 :REM PRINT ROUTINE
799 :
800 OPEN4,4
810 CMD4
820 GOSUB550:REM CARD SCREEN TO PRINTER
830 PRINT#4
840 CLOSE4
850 GOTO 1050
857 :
858 :REM CLOSING SUBROUTINE
859 :
860 PRINT"[147]":PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
870 PRINT"[154][145]WHAT CLOSING WOULD YOU LIKE ON THE NOTE?"
880 PRINT"[152][145][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
890 FORI=1TO6:PRINTTAB(9)I"[157]. "CL$(I):NEXT
900 PRINTTAB(9)"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
910 PRINTTAB(9)"[159] ENTER YOUR SELECTION "
920 PRINTTAB(9)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
922 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:REM LINE LINKS
930 GETCL$:IFCL$=""THEN930
940 CL=VAL(CL$)
950 IFCL=6THENGOSUB970
960 RETURN
967 :
968 :REM CUSTOM CLOSING
969 :
970 PRINT""
980 PRINT"[145][145][145][145][145]":PRINT"[158]     ENTER YOUR DESIRED CLOSING..."
990 L9=36:PRINTLEFT$(UL$,L9+1)"[145][145]":GOSUB1170:CL$(6)=Q9$
1000 RETURN
1010 END
1020 :
1030 :REM  RETURN TO LOADSTAR
1040 :
1050 PRINT"[147]"TAB(8)"[155] QUIT TO LOADSTAR? (Y[155]/N[155])"
1060 GETA$:IFA$=""THEN1060
1070 IFA$="Y"THEN1090
1080 RUN40
1090 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN1110
1100 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN1120
1110 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
1120 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
1130 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
1140 :
1150 :REM  INPUT ROUTINE
1160 :
1170 Q9$="":PRINT"    ";:U9=53280:POKE198,0
1180 GETA$
1190 POKE646,RND(1)*15+1:PRINT"[164][157]";:IFA$=""THEN1180
1200 IFA$=CHR$(13)THENPRINT" [155]":RETURN
1210 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO1250
1220 IFLEN(Q9$)>=L9THENT9%=PEEK(U9):POKEU9,1:POKEU9,T9%:GOTO1180
1230 IFA$<" "OR(A$>CHR$(127)ANDA$<CHR$(160))ORA$=CHR$(34)THEN1180
1240 Q9$=Q9$+A$
1250 PRINT""A$;:GOTO1180
1257 :
1258 :REM SCRATCH AND SAVE
1259 :
10000 OPEN15,8,15,"S0:SURPRISE":CLOSE15:SAVE"SURPRISE",8:END