home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
ibmjab.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
4KB
|
43 lines
0 'IBMJAB.BA Andrew Zarchy
1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 'Parody of IBM co. song "Ever Onward"
3 CLS:CLEAR1000:DEFSTRA:DIMA(21):DEFINTB-Z:C=1:FORX=1TO21:IFS=0THENPRINTCHR$(27)CHR$(112)ELSEPRINTCHR$(27)CHR$(113)
4 PRINT@46," Deciphering clever lyrics ";:READA:IFA=""THENNEXT
5 FORY=LEN(A)TO1STEP-1:A(X)=A(X)+MID$(A,Y,1):NEXTY:IFS=0THENS=1:NEXTELSES=0:NEXT
6 CLS:FORX=1TO900:NEXT:PRINT:PRINTA(C):PRINT:PRINTA(C+1):PRINT:PRINTA(C+2);:FORY=1TO1000:READD,E,F:IFD=0THENC=C+3:GOTO6
7 IFD=-1THEN41ELSEPRINT@G," ";:PRINT@F,CHR$(231);:PRINT@F,CHR$(232);:SOUNDD,E*.9:G=F:NEXTY
8 DATA "siht tup uoy yhw wonk t'nod I ,xaM","wonk uoY .ereh no enut yl-lis","knuj fo lluf y-daer-la s'elif eht
9 DATA "kcuts dna MBI morf enut siht koot uoY","ev'uoy won dna ,rae ruo ni ti",".knub eulB giB siht lla gni-gnis su tog
10 DATA ",oot ,sdrad-nats evah selb-at-rop ruO",",hcnub elt-neg a hcus er'yeht"
11 DATA "hcnul rieht esol meht sekam ti ,gnos siht yalp meht ekam ew nehw dna
12 DATA "ym ,ti did yl-laer uoy ,mieS .L xaM hO",".MBI ses-ips-ed elb-at-rop",
13 DATA ",taerg era yeht taht kniht elp-oep emoS",",etar dnoc-es si ffuts rieht tub"
14 DATA ".meg-et-arts tseg-gib rieht era sleb-al decirp-hgih"
15 DATA "ot wob ot nwonk era won stcud-orp riehT","nur yeht meht ot derap-moc ,senolc",".mE ei-tnuA ekil
16 DATA "dna ,hsart taht teg-rof s'tel oS","bmud siht worht dna hsac fo tol a evas",".MBI ta kcab thgir enut
17 DATA 4976,20,1,4976,10,5,4184,20,8,4184,10,14,6269,20,19,6269,10,23,4976,20,27,4976
18 DATA 10,31,7456,20,81,7456,10,84,7456,20,88,7456,10,92
19 DATA 7456,30,96,10,10,96,7456,10,104,6642,20,108,7456,10,161,8368,20,166,7456,10,172
20 DATA 6642,20,175,6296,10,179,5586,20,182,5272,10,186,4976,50,190,0,0,190,8368,10,1
21 DATA 4976,20,5,4976,10,10,4184,20,15,4184,10,20
22 DATA 6269,20,24,6269,10,25,4976,20,26,4976,10,29,7456,20,34,7456,10,80,7456,20,83,7456
23 DATA 10,87,7456,40,91,10,10,91,7032,10,97,6642,20,101,7456,10,106,8368,20,161,7456,10,164
24 DATA 6642,20,169,6269,10,173,5586,20,177,4976,10,181,6269,20,186,10,10,186,6269,20
25 DATA 190,10,10,190,6269,40,195,0,0,195,6269,10,1,6642,20,5,6642,10,8,5586,20,12,5586,10,17
26 DATA 4184,20,23,4184,10,28,5586,20,34,5586,10,82,6642,20,89,6642,10,93,5586,20,96,5586,10,100
27 DATA 4184,40,105,10,10,105,4184,10,161,4184,20,165,4184,10,169,4184,20,173,4184,10,178
28 DATA 4184,20,183,4184,10,188,4184,20,193,4184,10,240,4184,20,245,4697,10,250,5586,20,255
29 DATA 6642,10,261,8368,30,267,0,0,267,8368,10,0,7456,30,4,6642,30,7,6269,30,11,6642,30,17
30 DATA 6269,30,21,5918,30,25,5586,30,29,6269,20,32,5586,10,36,4976,20,81,6269,10,84,5586,20,88
31 DATA 4976,10,91,5586,20,96,6269,10,99,7456,20,102,7456,10,103,7456,50,104,0,0,104,7456,10,1
32 DATA 7900,20,6,7456,10,10,6269,20,15,6642,10,20,6642,20,25,7032,10,30,6642,30,35,7032,20,81,6642,10,86,5586,20,92,6269,10
33 DATA 96,6269,20,100,6642,10,103,6269,30,108,6642,20,161,6269,10,167,4976,20,172,5586,10,176
34 DATA 5586,20,181,5918,10,186,5586,20,241,7456,10,245,6642,20,251,6269,10,254,5586,50,258,0,0,258,8368,10,2
35 DATA 8866,20,7,8368,10,11,6269,30,17,6269,30,20,6269,40,26,10,10,26,8368,10,30,7456,30,34
36 DATA 7032,30,37,6269,40,82,10,10,82,5918,10,89,5586,20,93,5586,10,98,5586,20,102,4976,10,107
37 DATA 4433,20,112,4433,10,161,4976,20,166,5586,10,170,4184,50,173,0,0,173,4697,10,0,5586,20,4
38 DATA 6642,10,10,8368,30,14,7456,30,18,6642,30,24,6269,30,30,6642,20,81,6642,10,85,6269,20,88
39 DATA 6269,10,91,5918,20,95,5918,10,100,5586,10,105,5918,10,110,5586,10,115,4976,20,161
40 DATA 4697,10,166,4184,20,172,3728,10,176,4976,30,179,5586,30,180,6269,60,181,-1,0,0
41 FORX=1TO500:NEXT:FORX=1TO15:SOUND14400,2:SOUND14007,2:NEXT:FORX=1TO300:NEXT:MENU