home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / flip.ba < prev    next >
Text File  |  2006-10-19  |  4KB  |  55 lines
  1. 0 'FLIP.BA - AUTHOR UNKOWN
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:GOTO24
  4. 3 A$=INKEY$:DU=RND(1):IFA$=""THEN3ELSERETURN
  5. 4 FORI=1TO9:PRINT@P(I),I:FORJ=1TO30:NEXTJ,I:RETURN
  6. 5 PRINT@0,S$:RETURN
  7. 6 GOSUB3:IFASC(A$)<49ORASC(A$)>57THEN6ELSEGOSUB5:RETURN
  8. 7 FORI=1TO11:DU=RND(1):NEXT:RETURN
  9. 8 CLS:PRINT@120+ZE,P$" FLIP.100 "Q$;:RETURN
  10. 9 X=INT(RND(1)*6+1):GOSUB7:Y=INT(RND(1)*6)+1:GOSUB7:Z=X+Y:FORN=0TO1STEP1:FORI=105TO125STEP20:LINE(I,30)-(I+11,41),N,BF:NEXTI,N:GOSUB23:N=0:M=0:ONXGOSUB13,14,15,16,17,18:M=20:ONYGOSUB13,14,15,16,17,18:RETURN
  11. 10 IF(X3=1)OR(X3=2)THENPRINT@P(Z),P$;Z;Q$:NE(Z)=1:RETURN
  12. 11 IFRND(1)<.8THENPRINT@P(Z),P$;Z;Q$:NE(Z)=1ELSEPRINT@P(X3),P$;X3;Q$:NE(X3)=1:PRINT@P(Y3),P$;Y3;Q$:NE(Y3)=1:RETURNELSERETURN
  13. 12 RETURN
  14. 13 GOSUB19:RETURN
  15. 14 GOSUB20:RETURN
  16. 15 GOSUB19:GOSUB20:RETURN
  17. 16 GOSUB20:GOSUB21:RETURN
  18. 17 GOSUB15:GOSUB21:RETURN
  19. 18 GOSUB16:GOSUB22:RETURN
  20. 19 LINE(110+M,35)-(111+M,36),N,B:RETURN
  21. 20 LINE(106+M,31)-(107+M,32),N,B:LINE(114+M,39)-(115+M,40),N,B:RETURN
  22. 21 LINE(106+M,39)-(107+M,40),N,B:LINE(114+M,31)-(115+M,32),N,B:RETURN
  23. 22 LINE(106+M,35)-(107+M,36),N,B:LINE(114+M,35)-(115+M,36),N,B:RETURN
  24. 23 N=1:FORI=1TO4:M=0:FORJ=1TO2:N=N+1:ONIGOSUB13,15,17,14:NEXT:M=20:FORJ=1TO2:N=N+1:ONIGOSUB18,16,14,13:NEXTJ,I:RETURN
  25. 24 FORI=91TO107STEP2:J=J+1:P(J)=I:NEXT:P$=CHR$(27)+"p":Q$=CHR$(27)+"q":DIMNE(13):S$=SPACE$(39):ZE=14:GOSUB8:PRINT@207,"    by Don Zeikel ":FORI=1TO250:NEXT:FORI=1TOINT(((VAL(RIGHT$(TIME$,2))))*((VAL(MID$(TIME$,4,2)))/2)*(VAL(MID$(DATE$,4,2)))/100)
  26. 25 I3=RND(1):NEXT
  27. 26 CH=28:PH=28:PI=-1:CI=-1:ZE=0:GOSUB8:LINE(65,12)-(180,48),1,B:LINE(64,11)-(181,49),1,B:LINE(63,10)-(182,50),1,B:LINE(65,25)-(180,25):GOSUB49
  28. 27 GOSUB5:FORI=1TO12:NE(I)=0:NEXT:GOSUB4
  29. 28 UQ=0:FORI=1TO9:UQ=UQ+NE(I):NEXT:IF(UQ=9)OR((UQ=8)AND(NE(1)=0))THENGOSUB5:GOTO31ELSEPRINT@0,"Press any key to roll dice.
  30. 29 GOSUB3:GOSUB5:GOSUB9:IF(NE(Z)=0)AND(Z<10)THENGOTO33ELSEFORI=1TO5:IFNE(I)=1ANDI<>5THENNEXTELSEIFNE(I)=1ANDI=5THEN31
  31. 30 FORJ=(I+1)TO9:IF(NE(J)=0)AND(I+J=Z)THENGOTO33ELSENEXTJ,I
  32. 31 PR=0:FORI=1TO9:IFNE(I)=0THENPR=PR+I
  33. 32 NEXT:GOSUB5:PRINT@0,"Your score this round:"PR:PT=PT+PR:GOSUB50:FORI=1TO1500:NEXT:GOTO37
  34. 33 PRINT@0,"Press one or two numbers."
  35. 34 X1=0:Y1=0:GOSUB6:X1=VAL(A$):IFNE(X1)=1THEN36ELSEIF(Z=X1)AND(NE(X1)=0)THENPRINT@P(Z),P$;Z;Q$:NE(Z)=1:GOTO28
  36. 35 GOSUB6:Y1=VAL(A$):IF(Z=X1+Y1)AND(NE(X1)=0)AND(NE(Y1)=0)THENPRINT@P(X1),P$;X1:PRINT@P(Y1),Y1;Q$:NE(X1)=1:NE(Y1)=1:GOTO28
  37. 36 BEEP:PRINT@0,"INVALID ENTRY!  TRY AGAIN.":GOTO34
  38. 37 FORI=1TO12:NE(I)=0:NEXT:GOSUB4:GOSUB5:PRINT@0,"Now it's MY turn!"
  39. 38 TR=0:TS=0:UQ=0:FORI=1TO9:UQ=UQ+NE(I):NEXT:IF(UQ=9)OR((UQ=8)AND(NE(1)=0))THEN43ELSEGOSUB9:FORI=1TO900:NEXT:IF(NE(Z)=0)AND(Z<10)THENTR=1
  40. 39 FORI=5TO1STEP-1:IFNE(I)=1ANDI<>1THENNEXTELSEIFNE(I)=1ANDI=1THEN41
  41. 40 X3=0:Y3=0:FORJ=(I+1)TO9:IF(NE(J)=0)AND(I+J=Z)THENTS=1:X3=I:Y3=J:GOTO41ELSENEXTJ,I
  42. 41 IF(TR=1)AND(TS=0)THENPRINT@P(Z),P$;Z;Q$:NE(Z)=1ELSEIF(TR=0)AND(TS=1)THENPRINT@P(X3),P$;X3;Q$:NE(X3)=1:PRINT@P(Y3),P$;Y3;Q$:NE(Y3)=1ELSEIF(TR=1)AND(TS=1)THENGOSUB10ELSEGOTO43
  43. 42 GOTO38
  44. 43 CR=0:FORI=1TO9:IFNE(I)=0THENCR=CR+I
  45. 44 NEXT:GOSUB5:PRINT@0,"My score this round:"CR:CT=CT+CR:GOSUB52:FORI=1TO1500:NEXT:GOSUB5
  46. 45 IF((PT>44)AND(CT<45))OR((PT>44)AND(CT>44)AND(PT>CT))THENPRINT@0,"I WIN!":CG=CG+1ELSEIF((PT<45)AND(CT>44))OR((PT>44)AND(CT>44)AND(PT<CT))THENPRINT@0,"YOU WIN!":PG=PG+1ELSEIF(PT>44)AND(CT>44)AND(PT=CT)THENPRINT@0,"TIE!":TG=TG+1ELSEGOTO27
  47. 46 FORI=1TO1000:NEXT:IFTG=1THENQR$=""ELSEQR$="S
  48. 47 CLS:PRINT@90,"YOU HAVE WON"PG:PRINT@130,"I HAVE WON"CG:PRINT@170,"WITH"TG"TIE"QR$
  49. 48 PRINT@250,"Play again? (Y/N)? ";:GOSUB3:IFA$="Y"ORA$="y"THENPT=0:CT=0:GOTO26ELSEIFA$="N"ORA$="n"THENMENUELSEGOTO48
  50. 49 PRINT@240,"YOU";:PRINT@280,"ME";:FORJ=0TO6STEP6:FORI=52TO55STEP3:LINE(28,I+J)-(208,I+J):NEXTI,J:FORI=32TO208STEP4:LINE(I,53)-(I,54):LINE(I,59)-(I,60):NEXT:FORI=275TO315STEP40:PRINT@I,0;:NEXT:RETURN
  51. 50 IFPT>45THENTP=45ELSETP=PT
  52. 51 FORJ=PHTO((TP*4)+28)STEP4:FORI=53TO54:LINE(28,I)-(J,I):NEXT:PI=PI+1:PRINT@275,PI;:FORK=1TO25:NEXTK,J:PH=TP*4+28:PI=TP-1:IFPT>45THENFORI=46TOPT:PRINT@275,I;:FORK=1TO25:NEXTK,I:RETURNELSERETURN
  53. 52 IFCT>45THENTC=45ELSETC=CT
  54. 53 FORJ=CHTO((TC*4)+28)STEP4:FORI=59TO60:LINE(28,I)-(J,I):NEXT:CI=CI+1:PRINT@315,CI;:FORK=1TO25:NEXTK,J:CH=TC*4+28:CI=TC-1:IFCT>45THENFORI=46TOCT:PRINT@315,I;:FORK=1TO25:NEXTK,I:RETURNELSERETURN
  55.