home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / slots.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  57 lines
  1. 0 '(C) Creative Computing
  2. 1 'Rewritten for TRS-80 PC-2 by David Dunn Thomas April 1983
  3. 2 'Rewritten for Model 100 by Dave Thomas August 1983 - revised 12/7/83
  4. 3 'GEnie Laptops' version, April-87
  5. 4 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  6. 5 CLEAR:DEFSTRA-N:DEFINTW-Z:A3=SPACE$(3):A7=SPACE$(7):K=CHR$(27)+CHR$(75):B1=CHR$(245):B2=CHR$(123)
  7. 6 E1=CHR$(45):E2=CHR$(128):E3=CHR$(129):E4=CHR$(132):E5=CHR$(171):E6=CHR$(176):E9="Now try to collect your winnings!"
  8. 7 B3=CHR$(125):C=CHR$(27)+CHR$(112):D=CHR$(27)+CHR$(113):B=B2+CHR$(66)+E1+CHR$(65)+E1+CHR$(82)+B3:J=C+B
  9. 8 L=">SLOTS<":G=B2+E4+B1+E4+B1+E4+B3:H=B2+E5+B1+E5+B1+E5+B3
  10. 9 I=B2+E2+B1+E2+B1+E2+B3:E=B2+E3+B1+E3+B1+E3+B3
  11. 15 F=B2+E6+B1+E6+B1+E6+B3:GOTO33
  12. 16 FORS1=1TO2:PRINT@120,A7;B;A3;G;A3;H;: SOUND2000,2:GOSUB30:PRINT@120,K;:GOSUB 30:PRINT@120,A7;E;A3;F;A3;B;:SOUND1000,2
  13. 17 GOSUB30:PRINT@120,K;:GOSUB30:PRINT@ 120,A7;G;A3;H;A3;I;:SOUND 2000,2:GOSUB 30:PRINT@120,K;:GOSUB30
  14. 24 PRINT@120,A7;H;A3;I;A3;E;:SOUND1000, 2:GOSUB30:PRINT@120,K;:GOSUB30: PRINT@ 120,A7;I;A3;E;A3;F;:SOUND2000,2:GOSUB30
  15. 25 PRINT@120,K;:GOSUB30:PRINT@120,A7;F; A3;B;A3;G;:SOUND 1000,2:GOSUB30:NEXT
  16. 30 FORT1=1TO50:NEXT:RETURN
  17. 31 SOUND4000,5:SOUND3500,5:SOUND3000,5: RETURN
  18. 32 SOUND3500,5:SOUND3000,5:SOUND2500,5: RETURN
  19. 33 CLS:PRINT@120,A7;L;A3;J;D;A3;L:P=0: S=0
  20. 34 PRINT@283,"Your bet <O>ne, <T>wo, or <F>ive ?";:BEEP:BEEP
  21. 36 M=INKEY$:IFM=""THEN36ELSEIFM=CHR$(27)THEN76ELSEIFM="O"ORM="T"ORM="F"THEN40ELSE36
  22. 40 S=S+1:IFP>9999THENO=1000:T=2000: Q=5000ELSEO=100:T=200:Q=500
  23. 43 V=Q:IFM="O"THENV=O:ELSEIFM="T"THENV=T
  24. 46 CLS:GOSUB116:GOSUB16:FORT1=1TOVAL(RIGHT$(TIME$,2))+2:T#=RND(1):NEXT:X=RND(1)*6+1:Y=RND(1)*6+1:Z=RND(1)*6+1
  25. 49 PRINT@120,A7;:ONXGOSUB98,99,100,101, 102,103:GOSUB31:GOTO55
  26. 55 PRINTA3;:ONYGOSUB98,99,100,101, 102,103:GOSUB32
  27. 61 PRINTA3;:ONZGOSUB98,99,100,101, 102,103
  28. 67 IFX=YTHEN80ELSEIFX=ZTHEN83
  29. 69 IFY=Z THEN85
  30. 70 PRINT@43,"YOU LOST!":U=U+1:SOUND8000, 5:SOUND11000,5:P=P-V
  31. 71 PRINT@203,"Your bankroll is now: ";:PRINTUSING"$$#######,";P;
  32. 72 IFP<100000THEN34ELSESOUND3500,5: SOUND1000,10:PRINT@40,K" GET OUT OF HERE! ";:SOUND3000,5:SOUND500,10:SOUND3000,5:SOUND500,10:SOUND3000,5:SOUND500,10
  33. 74 PRINT"You broke the bank!!":FORT1=1TO2000:NEXT:GOTO87
  34. 76 IFP<0THENE9="Pay up! Put your money HERE!!!":GOTO87ELSEIFP=0THENE9="HEY! You broke even!":GOTO87
  35. 77 IFP<100001THEN87ELSE118
  36. 80 IFY=ZTHEN90ELSEIFY=1THEN95ELSE117
  37. 83 IFZ=1THEN95ELSE69
  38. 85 IFZ=1THEN95ELSE117
  39. 87 BEEP:CLS:PRINT@45,E9:BEEP:GOTO118
  40. 90 IFZ=1THEN93
  41. 91 V1=10:E7="** TOP DOLLAR **":GOSUB31: GOSUB111:GOSUB31:GOTO96
  42. 93 V1=100:E7="*** JACKPOT ***":GOSUB31:GOSUB32:GOSUB111:GOSUB31:GOSUB32:GOTO96
  43. 95 V1=5:E7="* DOUBLE BAR *":GOSUB32: GOSUB111:GOSUB31
  44. 96 P=(((V1*V)+V)+P):GOTO71
  45. 98 PRINTJ;D;:RETURN
  46. 99 PRINTG;:RETURN
  47. 100 PRINTH;:RETURN
  48. 101 PRINTI;:RETURN
  49. 102 PRINTE;:RETURN
  50. 103 PRINTF;:RETURN
  51. 111 PRINT@53,E7:W=W+1:RETURN
  52. 116 SOUND2000,2:SOUND1500,2:SOUND2500,2: RETURN
  53. 117 GOSUB31:PRINT@52,"DOUBLE! YOU WON!":W=W+1:P=(((2*V)+V)+P):GOTO71
  54. 118 PRINT@125,"You enjoyed"S" fine spins.":PRINT@165,"You won: "W" and you lost: "U:PRINT@205,"Winning: "INT(W/S*100)"%"
  55. 119 FORT1=1TO2000:NEXT:CLS:PRINT@128, "The time is now "C;TIME$;D:PRINT@208,"Do you know "C"where"D" you are?"
  56. 120 FORT1=1TO2000:NEXT:MENU
  57.