1 'CLUB 100 BLOOD INITIATION
2 'COPYRIGHT 2003 MIKE WARNS
3 '
100 CLS 'INTRO
105 PRINT
110 PRINT "        WELCOME TO THE CLUB 100"
120 PRINT "           BLOOD INITIATION"
130 PRINT
140 PRINT "      GET A KNIFE AND PREPARE TO"
150 PRINT "         PROVE YOURSELF WORTHY"
160 FOR T = 1 TO 1000: NEXT T
200 'SPOOKY MUSIC
210 SOUND 8866,50
211 SOUND 8368,50
212 SOUND 4184,100
213 SOUND 4697,25
214 SOUND 5918,25
215 SOUND 5586,25
216 SOUND 4697,50
217 SOUND 5272,25
218 SOUND 6269,75
219 SOUND 0,50
220 SOUND 8866,50
221 SOUND 8368,50
222 SOUND 4184,100
223 SOUND 4697,25
224 SOUND 5918,75
225 SOUND 6642,25
226 SOUND 6269,75
300 'THUMB
301 CLS
302 PRINT@80," WE PRESENT OUR THUMBS FOR THE CEREMONY."
303 FOR T=1 TO 1000:NEXT T
310 CLS
311 GOSUB 350
312 GOSUB 360
314 GOSUB 370
319 '
350 CLS
351 PRINT"                /--\"
352 PRINT"               |    |"
353 PRINT"               |    |"
354 PRINT"               |    |"
355 PRINT"               >----<"
356 PRINT"               |    |"
357 PRINT"               |    |"
358 '
359 FOR T=1 TO 1000:NEXT T:RETURN
360 CLS:PRINT
361 PRINT@ 132,"NO, IT'S A THUMB."
362 PRINT@ 163,"GET YOUR MIND OUT OF THE GUTTER!"
363 FOR T=1 TO 1000:NEXT T:RETURN
370 CLS
371 PRINT@ 120,"     WE WILL NOW CUT OUR THUMBS."
372 FOR T=1 TO 1000:NEXT T
380 GOSUB 350
381 PRINT@ 89,"[[[[-----------/"
382 PRINT@129,"    |_________/"
383 FOR T=1 TO 1000:NEXT T
384 PRINT@ 80,"               |____|     "
385 PRINT@120,"               | \/ |     "
386 PRINT@160,"               >--O-<     "
387 FOR T=1 TO 1000:NEXT T
388 CLS
389 PRINT@80,"PRESS YOUR BLOODY THUMB AGAINST MINE."
390 FOR T=1 TO 1000:NEXT T
391 CLS
393 PRINT"                /--\"
394 PRINT"               |----|      "
395 PRINT"               | \/ |     "
396 PRINT"               |  O |
397 PRINT"               >----<"
398 PRINT"               |    |"
399 PRINT"               |    |"
400 FOR T = 1 TO 1000:NEXT T
499 CLS
500 PRINT"             \ \ /|\ / /"
501 PRINT"           \|\|/\-|-/\|/|/"
502 PRINT"            |\|/|\|/|\|/|"
503 PRINT"           -------X--------"
504 PRINT"            |\|/|/|\|\|/|\|"
505 PRINT"           /|/|\/-|-\/|\|\"
506 PRINT"            |  /|\|\ \ \|\"
507 FOR T = 1 TO 1000: NEXT T
508 CLS
510 PRINT
511 PRINT "        NOW YOU'VE DONE IT!
512 PRINT "     YOU'VE BROKEN YOUR SCREEN."
513 PRINT
514 PRINT "        YOU ARE NOT WORTHY."
515 PRINT "              BEGONE!"
1000 'LOSER MUSIC
1010 SOUND 1975,20
1020 SOUND 2092,20
1030 SOUND 2216,20
1040 SOUND 2348,20
1050 SOUND 2488,80
1060 END