home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
bornfr.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
57 lines
0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE
1 CLS:BEEP:DEFINTA-Z'BORNFR' MU-24 1/19/85
2 ' by STAN KENDALL * Wilmette, IL
3 ' 1945 WASHINGTON AVE * WILMETTE, IL 60091
10 A=50:B=30:C=190:D=30:M=0
12 FORZ1=1TO30:LINE(A,B)-(C,D),1,B
14 A=A-1:B=B-1:C=C+1:D=D+1:NEXT
16 LINE(A+2,B+2)-(C-2,D-2),M,B
20 FOR A=20TO50STEP10:LINE(40,A)-(200,A),M:NEXT
22 B=60:FORA=20TO50STEP10:LINE(B,A-2)-(B+4,A+2),M,BF:B=B+30
23 IF A=50THEN26
24 LINE(B-26,A-1)-(B-26,A+16),M:NEXTA
26 LINE(180,40)-(180,24),M:LINE(180,38)-(184,42),M,BF
28 FORV=1TO8:READW,X:SOUNDW,X:NEXTV
30 PRINT@45,"BORN FREE":PRINT@56,"<MU-24>":PRINT@65,"(P)lay (Q)"
35 DATA4697,40,6269,60,6269,20,5586,20,6269,10,7032,10,7456,40,9394,60
40 Y$=INKEY$:IFY$=""THEN40
50 IFY$="P"ORY$="p"THEN100
60 IFY$="Q"ORY$="q"THENMENU
70 GOTO40
100 N=81:DIMN$(N),L(N),WD$(N)
110 DATA H,40,G,60,G,20,A,20,G,20,F,20,E,40,C,60
120 DATAG,20,A,20,G,10,F,10,B,40,G,20,E,20,F,20,F,20,F,10,E,10,D,20,C,120
130 DATAH,40,G,60,G,20,A,20,G,10,F,10
140 DATAE,40,C,60,G,20,A,20,G,10,F,10,B,40,G,20,E,20
150 DATAG,20,G,20,G,20,A,10,G,10,B,120
160 DATAJ,20,A,60,A,20,B,10,A,10,G,10,E,40,H,60
170 DATAH,20,J,20,A,10,H,10,J,30,H,10,J,30,H,10,J,30,H,10,J,30,H,10,J,120,H,40,G,60
180 DATAG,20,A,20,G,10,F,10,E,40,C,60,G,20,A,20,G,10,F,10
190 DATAB,40,G,20,E,20,H,40,H,40,H,60
210 DATA BORN ,FREE- ,AS ,FREE ,AS ,THE ,WIND ,BLOWS-.
220 DATA AS ,FREE ,AS ,THE ,GRASS ,GROWS.
222 DATA BORN ,FREE ,TO ,FOL,LOW ,YOUR ,HEART.
230 DATA LIVE ,FREE- ,AND ,BEAU,TY ,SUR,ROUNDS ,YOU -.
232 DATA THE ,WORLD ,STILL ,AS,TOUNDS ,YOU ,EACH.
250 DATA TIME ,YOU ,LOOK ,AT ,A ,STAR-.
260 DATA STAY ,FREE - ,WHERE ,NO ,WALLS.
265 DATA WILL ,DIVIDE ,YOU-.
270 DATA YOU'RE ,FREE ,AS ,A ,ROAR,ING ,TIDE.
275 DATA SO ,THERE'S ,NO ,NEED ,TO ,HIDE-.
280 DATA BORN ,FREE- ,AND ,LIFE ,IS ,WORTH ,LIV,ING.
285 DATA BUT ,ON,LY ,WORTH ,LIV,ING ,'CAUSE.
290 DATA YOU'RE ,BORN ,FREE-----.
400 DATA"CDEFGABHJ"
410 DATA9394,8368,7456,7032,6269,5586,4976,4697,4184
420 FORI=1TON:READN$(I),L(I):NEXTI
430 FORI=1TON:READWD$(I):NEXTI
440 READTN$:FORI=1TOLEN(TN$):READFR(I):NEXTI
500 CLS
510 FORI=1TON:PRINTWD$(I);:SOUNDFR(INSTR(TN$,N$(I))),L(I)
520 IFRIGHT$(WD$(I),1)="."THENPRINT
530 IFI=50THENCLS
540 NEXTI:FORA1=1TO999:NEXT
550 RESTORE
560 CLS:M=1:A=20:B=0:GOTO16
570 END...............