0 'RAFFLE.BA David Dunn Thomas
1 'GEnie's Laptops RoundTable
2 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
3 CLS:M$=CHR$(147)+" ":W$=CHR$(148)+" ":PRINTCHR$(27)"p"M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$CHR$(27)"q";:PRINT:PRINTTAB(3)"The Wondrous Random Raffle Drawing":PRINT:PRINTTAB(3)"1987 - David Dunn Thomas"
4 PRINT:PRINTCHR$(27)"p"M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$CHR$(27)"q";:FORI=1TO2000:NEXT:FORI=1TOVAL(RIGHT$(TIME$,2)):R=RND(1):NEXT
5 CLS:PRINT:PRINTTAB(5)"What is LOWEST ticket number ":PRINTTAB(5)"";:INPUTL:PRINT:PRINTTAB(5)"and the HIGHEST ticket number ":PRINTTAB(5)"";:INPUTH:T=H-L+1:PRINT:PRINTTAB(5)"That's"T"numbers!";:FORI=1TO2000:NEXT:CLS:W1=RND(1)*T:W1=INT(W1+L)
6 W2=RND(1)*T:W2=INT(W2+L):IFW2=W1THEN6
7 W3=RND(1)*T:W3=INT(W3+L):IFW3=W1ORW3=W2THEN7
8 W4=RND(1)*T:W4=INT(W4+L):IFW4=W1ORW4=W2ORW4=W3THEN8
9 W5=RND(1)*T:W5=INT(W5+L):IFW5=W1ORW5=W2ORW5=W3ORW5=W4THEN9
10 W6=RND(1)*T:W6=INT(W6+L):IFW6=W1ORW6=W2ORW6=W3ORW6=W4ORW6=W5THEN10
11 PRINT:PRINTCHR$(27)"p        * THE WONDROUS WINNERS *        "CHR$(27)"q";:SOUND6269,5:SOUND4697,10:SOUND3728,5:SOUND3134,20:SOUND6269,5:SOUND4697,10:SOUND3728,5:SOUND3134,20:SOUND6269,5:SOUND4697,10:SOUND3728,5:SOUND3134,20
12 PRINTTAB(10)"Grand Prize: "W1:PRINTTAB(10)"First Prize: "W2:PRINTTAB(10)"Second Prize:"W3:PRINTTAB(10)"Third Prize: "W4:PRINTTAB(10)"Fourth Prize:"W5:PRINTTAB(10)"Fifth Prize: "W6;
13 A$=INKEY$:IFA$=""THEN13
14 MENU