home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 036.lha / BlackJack < prev    next >
Text File  |  1987-05-17  |  4KB  |  46 lines
  1. ON BREAK GOSUB btrap:BREAK ON:a$="":FOR f=1 TO 4:MENU f,0,0,a$:NEXT
  2. SCREEN 1,640,400,3,4:WINDOW 3,,(0,0)-(47,84),16,1:WINDOW 2,,,0,1:WINDOW CLOSE 1
  3. PALETTE 0,0,.53,0:PALETTE 1,0,.53,0:PALETTE 2,.9,.9,.9:PALETTE 3,0,0,0:PALETTE 4,.03,.03,.65:PALETTE 5,.85,.75,.05:PALETTE 6,.9,0,0:PALETTE 7,0,.6,.1
  4. CLEAR,25000:CLEAR,94000&,1024:ON BREAK GOSUB btrap:BREAK ON:f=0:g=0:zi=3.14159:DIM sp%(8):DIM a%(849,5):sp%(0)=132:sp%(2)=180:sp%(4)=23200:sp%(5)=64:sp%(6)=10
  5. COLOR 3,7:CLS:LINE(0,0)-(631,8),1,bf:LOCATE 10,21:PRINT "PREFERENCES MUST BE SET TO 80 COLUMNS !!":LOCATE 20,25:PRINT "PUT WORKBENCH BACK IN ANY DRIVE":SAY TRANSLATE$(""):WINDOW 2
  6. LOCATE 20,25:PRINT "PUT JUMPDISK BACK IN ANY DRIVE ":LOCATE 23,33:PRINT "<PRESS ANY KEY>":WHILE a$="":a$=INKEY$:WEND:CLS:WINDOW OUTPUT 3:COLOR 3,7:CLS
  7. LINE(0,0)-(8,93),,bf:CIRCLE(8,23),39,,1.5*zi,.5*zi,.6:CIRCLE(8,70),39,,1.5*zi,.5*zi,.6:CIRCLE(8,23),30,,1.5*zi,.5*zi,.5:CIRCLE(8,70),30,,1.5*zi,.5*zi,.5:PAINT(44,23):PAINT(44,70)
  8. GET(0,0)-(47,93),a%(0,0):LINE(9,0)-(47,93),7,bf:LINE(9,87)-(47,93),,bf:GET(0,0)-(47,93),a%(0,1):LINE(9,0)-(47,6),,bf:GET(0,0)-(47,93),a%(0,3):LINE(9,0)-(47,93),7,bf:LINE(47,0)-(12,55):LINE(39,0)-(9,46)
  9. LINE(48,93)-(12,55):LINE(38,93)-(9,63):LINE(40,0)-(46,0):LINE(39,93)-(47,93):PAINT(10,55):GET(0,0)-(47,93),a%(0,4):CLS:LINE(23,0)-(0,93):LINE(24,0)-(47,93):LINE(23,28)-(8,93):LINE(24,28)-(39,93)
  10. LINE(12,58)-(34,65),,bf:LINE(1,93)-(7,93):LINE(40,93)-(46,93):PAINT(23,20):GET(0,0)-(47,93),a%(0,2):CLS:LINE(39,0)-(47,74),,bf:LINE(0,52)-(8,72),,bf:LINE(1,73)-(1,74):CIRCLE(24,65),29,,zi,2*zi,1.2
  11. CIRCLE(24,65),19,,zi,2*zi,1.2:PAINT(23,90):GET(0,0)-(47,93),a%(0,5):WINDOW 2:LOCATE 13,3:PRINT "CARLOS MONTE'S":PUT(18,135),a%(0,0),PSET:PUT(69,115),a%(0,1),PSET:PUT(120,125),a%(0,2),PSET
  12. PUT(171,120),a%(0,3),PSET:PUT(222,130),a%(0,4),PSET:PUT(422,284),a%(0,5),PSET:PUT(473,274),a%(0,2),PSET:PUT(524,269),a%(0,3),PSET:PUT(575,279),a%(0,4),PSET
  13. LOCATE 49,2:PRINT "Copyright 1986,1987 by David Upson       BETA v1.3     All Rights Reserved";
  14. LINE(280,10)-(630,263),3,b:LINE(281,11)-(629,262),4,bf:LINE(287,15)-(623,258),3,b:LINE(288,16)-(622,257),6,bf:LINE(291,18)-(619,255),3,b:LINE(292,19)-(618,254),1,bf
  15. LINE(33,238)-(414,372),3,b:LINE(34,239)-(413,371),4,bf:LINE(40,243)-(407,367),3,b:LINE(41,244)-(406,366),6,bf:LINE(44,246)-(403,364),3,b:LINE(45,247)-(402,363),1,bf
  16. LINE(292,238)-(414,254),1,bf:LINE(291,239)-(291,245),3:LINE(404,255)-(413,255),3:LINE(407,256)-(414,257),6,bf:LINE(288,238)-(290,243),6,bf
  17. LINE(287,239)-(287,242),3:LINE(408,258)-(413,258),3:LINE(281,238)-(286,238),4:LINE(414,259)-(414,262),4
  18. LOCATE 4,50:COLOR 3,1:PRINT "> HOUSE  RULES <":PRINT :PRINT   
  19. PRINT PTAB(295);"1.  Black Jack pays one and a half times"
  20. PRINT PTAB(327);"wager.":PRINT
  21. PRINT PTAB(295);"2.  Doubling allowed on any first two"
  22. PRINT PTAB(327);"cards.":PRINT
  23. PRINT PTAB(295);"3.  Pairs may be split but not resplit.":PRINT
  24. PRINT PTAB(295);"4.  Doubling not allowed after splitting"
  25. PRINT PTAB(327);"pairs.":PRINT
  26. PRINT PTAB(295);"5.  Split aces receive only one card"
  27. PRINT PTAB(327);"each.":PRINT
  28. PRINT PTAB(295);"6.  Black Jack not recognized after"
  29. PRINT PTAB(327);"splitting pairs.":PRINT
  30. PRINT PTAB(295);"7.  Insurance available when dealer has
  31. PRINT PTAB(327);"an ace showing.":PRINT
  32. PRINT PTAB(295);"8.  Insurance bets must be half of orig-"
  33. PRINT PTAB(327);"inal wager.":PRINT
  34. PRINT PTAB(295);"9.  Insurance pays double if dealer has"
  35. PRINT PTAB(327);"Black Jack.":PRINT
  36. PRINT PTAB(48);"10. Dealer must hit with a `soft' seventeen.":PRINT
  37. PRINT PTAB(48);"11. All tie hands are `pushed'.":PRINT
  38. PRINT PTAB(48);"12. `Surrendering' of hands is not allowed.":PRINT
  39. PRINT PTAB(48);"13. NO SWEARING or SPITTING on the floor.":PRINT 
  40. PRINT PTAB(48);"14. ALL WEAPONS MUST BE CHECKED AT THE DOOR.":PRINT :PRINT 
  41. PRINT PTAB(172);"* GOOD LUCK *"
  42. SAY TRANSLATE$("So you want to play black jack. O K, Give me about 2 minuts to set up the table."),sp%
  43. COMMON sp%():CHAIN "BJ"
  44. btrap:SYSTEM:RETURN
  45.  
  46.