home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
bthday.200
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
70 lines
0 'BTHDAY.BA Modified for the Model 200 CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
1 ' HAPPY BIRTHDAY
2 ' BY EIJI MIURA [71216,1564]
3 ' 03/03/84
4 ' ----------------------------
10 CLS
20 LINE(0,0)-(239,63),1,B
30 LINE(2,2)-(237,61),1,B
40 FORT=1TO400:NEXT
50 RESTORE100
60 FORN=1TO58
70 READA,B,C,D
80 LINE(A,B)-(C,D),1,BF
90 NEXT
100 DATA11,19,13,39,14,28,22,30,23,19
110 DATA25,39,28,25,30,39,31,22,33,24
120 DATA34,19,36,21,37,22,39,24,40,25
130 DATA42,39,31,28,39,30,45,19,47,39
140 DATA48,19,56,21,57,22,59,27,48,28
150 DATA56,30,62,19,64,39,65,19,73,21
160 DATA74,22,76,27,65,28,73,30,79,19
170 DATA81,24,82,25,84,27,91,19,93,24
180 DATA88,25,90,27,85,28,87,39,102,19
190 DATA104,39,105,19,113,21,114,22
200 DATA116,27,105,28,113,30,114,31
210 DATA116,36,105,37,113,39,119,19
220 DATA127,21,122,22,124,36,119,37
230 DATA127,39,130,19,132,39,131,19
240 DATA141,21,142,22,144,27,133,28
250 DATA141,30,136,31,138,33,139,34
260 DATA141,36,142,37,144,39,147,19
270 DATA161,21,153,22,155,39,164,19
280 DATA166,39,167,28,175,30,176,19
290 DATA178,39,181,19,183,39,184,19
300 DATA192,21,193,22,195,36,181,37
310 DATA192,39,198,25,200,39,201,22
320 DATA203,24,204,19,206,21,207,22
330 DATA209,24,210,25,212,39,201,28
340 DATA211,30,215,19,217,24,218,25
350 DATA220,27,227,19,229,24,224,25
360 DATA226,27,221,28,223,39
370 FORT=1TO300:NEXT:GOSUB500
380 FORT=1TO300:NEXT
390 M$="HAVE A WONDERFUL YEAR..."
400 ML=LEN(M$)
410 PRINT@243,"";
420 FORI=1TOML
430 PRINTMID$(M$,I,1);
440 FORT=1TO25:NEXT
450 NEXT
460 LINE(0,0)-(239,63),1,BF
470 FORT=1TO500:NEXT:MENU
500 R=2
510 RESTORE600
520 FORN=1TO32
530 READA,B
540 B=INT(B/R)
550 SOUNDA,B
560 NEXT
570 RETURN
600 DATA4976,25,0,5,4976,10,4433,50
610 DATA4976,50,3718,50,3950,75,0,25
620 DATA4976,25,0,5,4976,10,4433,50
630 DATA4976,50,3321,50,3718,75,0,25
640 DATA4976,25,0,5,4976,10,2484,50
650 DATA3134,50,3950,50,4184,50
660 DATA4697,75,0,75,2950,25,0,5
670 DATA2950,10,3134,50,3950,50
680 DATA3516,50,3950,100,100,100