home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 116
/
116.d81
/
surprise
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
155 lines
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