home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 56 / 056.d81 / bytes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  68 lines
  1. 1 remsave"cards.v5.2",8
  2. 2 goto400
  3. 63 :
  4. 64 rem=======print at=============
  5. 65 :
  6. 66 poke783,peek(783)and254:poke782,x:poke781,y:sys65520:printw$
  7. 68 poke783,peek(783)or1:return
  8. 107 rem =====dim for deal======
  9. 109 :
  10. 111 nc=52:dims(nc-1),d$(51),va$(13):fori=0to3:reads$(i):readco$(i):next
  11. 113 fori=0to12:readva$(i):next
  12. 115 data"[216]","[144]","[218]","","[211]","","[193]","[144]",a,2,3,4,5,6,7,8,9,10,j,q,k
  13. 119 c$="[176][192][192][192][192][192][192][174][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221]"
  14. 121 c$=c$+     "[157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221]"
  15. 123 c$=c$+"[157][157][157][157][157][157][157][157][173][192][192][192][192][192][192][189]"
  16. 124 :
  17. 125 rem============shuffle===========
  18. 126 :
  19. 127 forj=0tonc-1:s(j)=j:next:forj=0tonc-2:j%=j+int(rnd(0)*(nc-j)):
  20. 128 temp=s(j):s(j)=s(j%):s(j%)=temp:next:return
  21. 129 :
  22. 130 rem ======suits,values,graphics===
  23. 131 :
  24. 133 fori=0to51:su=(int(s(i)/13)):  de$=co$(su)+va$(s(i)-13*int(s(i)/13))
  25. 135 df$=de$+s$(su):d$(i)=c$+"[145][145][145][145][145][145][157][157][157][157][157][157][157]"+df$:next:return
  26. 179 :
  27. 398 rem========start of program=======
  28. 399 :
  29. 400 poke53280,1:poke53281,1:printchr$(8);chr$(142)
  30. 402 print"[147][144][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]"
  31. 403 print"[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]":print"":print"";
  32. 404 print "the winners were telling jokes"
  33. 406 print"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  34. 407 print"[144][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
  35. 408 gosub111
  36. 412 print"[147][144][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]"
  37. 413 print"[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]":print"":print"";
  38. 414 print "and the losers were hollerin' "
  39. 416 print"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  40. 417 print"[144][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
  41. 418 gosub127
  42. 420 print"[147]"
  43. 422 print"            [223]    [169]  [223]  "
  44. 424 print  "                "
  45. 426 print  "                    "
  46. 428 print  "               "
  47. 430 print  "            [146][169]          [146][209]"
  48. 446 gosub133
  49. 449 y=0:x3=0:x=x3
  50. 450 k1=0:forj=1to7:fori=1to8:w$=d$(k1):gosub66:k1=k1+1
  51. 452 x=x+4
  52. 454 ifk1=52then474
  53. 456 :next:y=y+2
  54. 458 ifint(j/2)=j/2then460
  55. 459 x=2:next
  56. 460 x=0:next
  57. 474 gosub127
  58. 478 x=16:y=20:w$="        [157][157][157][157][157][157][157][157] again? [157][157][157][157][157][157][157][157] (y/n)  ":gosub66
  59. 480 geta$:ifa$=""then 480
  60. 482 ifa$="n"then60000
  61. 484 goto420
  62. 500 end
  63. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  64. 60010 if er<>63 then print"[147]":end
  65. 60020 a$="hello connect":q$=chr$(34)
  66. 60030 print"[147]load"q$a$q$",8"
  67. 60040 print"run":poke631,13:poke632,13:poke198,2:end
  68.