home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 October / 1990-10.d64 / line-up (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  125 lines
  1. 10 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 20 print"[147]":poke53265,27:gosub680:gosub620:gosub470
  3. 30 pl=0:forl=rwto4:fork=clto10
  4. 40 iflo(l,k)<50then110
  5. 50 ifk>0thenifright$(str$(lo(l,k-1)),1)="9"orlo(l,k-1)>49then110
  6. 60 pl=1:t=k*24+27:ift>255thent=t-256
  7. 70 pokesx,t:pokesm,-(k>9):pokesy,l*24+116:pokevl,0:pokevl,15:pokesp,1
  8. 80 poke198,0:wait198,1:getg$
  9. 90 ifg$=chr$(13)thengosub290:mv=mv+1
  10. 100 pokesp,0
  11. 110 next:next:ifplthen30
  12. 120 nc=0:lc=0:forl=0to4:fork=0to10
  13. 130 ifk>0theniflo(l,k-1)+1<>lo(l,k)then150
  14. 140 ifval(right$(str$(lo(l,k)),1))=kandlo(l,k)<50then160
  15. 150 tb(l)=k:forj=kto10:dk(nc)=lo(l,j):nc=nc+1:next:k=10
  16. 160 next:next:ifnc=5ordl=5then180
  17. 170 gosub470:goto30
  18. 180 sc=0:forl=0to4
  19. 190 iflo(l,0)/10>int(lo(l,0)/10)then220
  20. 200 t=5-val(left$(str$(lo(l,0)),2))
  21. 210 sc=sc+tb(l)*t*10-(tb(l)=10)*100
  22. 220 next
  23. 230 sc=sc-mv*5-dl*100:ifsc<0thensc=0
  24. 240 ifsc>hsthenhs=sc
  25. 250 print""cl$:printtab(8)"[145][158]score"sctab(22-(hs<1000))"[158]high"hs
  26. 260 forl=0to5:gosub440:gosub450:next
  27. 270 printtab(8)"press any key to replay"
  28. 280 poke198,0:wait198,1:sh=0:dl=0:mv=0:gosub620:gosub470:goto30
  29. 290 ifk>0thent=lo(l,k-1)+1:goto340
  30. 300 print""cl$:printtab(14)"[145][158]which color?[145]":gosub450
  31. 310 poke198,0:wait198,1:getg$
  32. 320 forj=1to5:ifg$<>mid$("rbgpc",j,1)thennext:gosub420:goto310
  33. 330 t=j*10-10:printcl$
  34. 340 pokesp,0:forj=0to4:forh=0to10
  35. 350 iflo(j,h)<>tthennext:next
  36. 360 printleft$(cd$,9+l*3)tab(k*3+3)cc$(lo(j,h))th$cd$(lo(j,h))bh$
  37. 370 printleft$(cd$,9+j*3)tab(h*3+3)"[158]"th$cd$(50)bh$:gosub400
  38. 380 t=lo(l,k):lo(l,k)=lo(j,h):lo(j,h)=t
  39. 390 return
  40. 400 pokeat,10:pokesr,73:pokewv,17:pokehf,50:pokelf,0
  41. 410 fori=1to333:next:pokewv,16:return
  42. 420 pokehf,5:pokeat,0:pokesr,240:pokewv,33
  43. 430 fori=1to500:next:pokewv,32:return
  44. 440 pokesr,240:pokehf,50:pokelf,35:goto460
  45. 450 pokesr,225:pokehf,33:pokelf,33
  46. 460 pokeat,0:pokewv,17:fori=1to99:next:pokewv,16:return
  47. 470 dl=dl+1:r=rnd(-ti)
  48. 480 print""tab(10)"[158]shuffling the cards [145]":gosub450
  49. 490 printcd$tab(13)"[158]deal number"dl;
  50. 500 ifsh=0thennc=54:forl=0to54:dk(l)=l:next:forl=0to4:tb(l)=0:next:goto530
  51. 510 forl=0to4:printleft$(cd$,9+l*3)tab(tb(l)*3+3);
  52. 520 fork=tb(l)to10:printec$;:next:next
  53. 530 forl=0to99
  54. 540 r1=int(rnd(1)*nc):r2=int(rnd(1)*nc)
  55. 550 t=dk(r1):dk(r1)=dk(r2):dk(r2)=t
  56. 560 next
  57. 570 t=0:forl=0to4:printleft$(cd$,9+l*3)tab(tb(l)*3+3);
  58. 580 fork=tb(l)to10:printcc$(dk(t))th$cd$(dk(t))bh$;:lo(l,k)=dk(t)
  59. 590 t=t+1:next:next
  60. 600 sh=1:print""tab(10)"[158]press return [158]to swap"
  61. 610 return
  62. 620 poke53280,0:poke53281,0
  63. 630 print"[147][155]"tab(9)"[@\[@\[@\[@\[@\[@\[@\"
  64. 640 printtab(9)"=,>=.>=/>=:>=->=;>=<>"
  65. 650 printtab(9)"]*^]*^]*^]*^]*^]*^]*^"
  66. 660 print"[146]"tab(5)"red  blue  green  p[156]urple  c[159]yan"
  67. 670 return
  68. 680 poke56334,0:poke1,51
  69. 690 poke781,9:poke782,1:poke88,0:poke89,64:poke90,0:poke91,216
  70. 700 sys41964:poke1,55:poke56334,1:poke53272,30
  71. 710 poke53272,(peek(53272)and240)or14
  72. 720 poke53270,peek(53270)or16
  73. 730 poke2040,13:poke53287,9:poke53269,0
  74. 740 poke53276,0:poke53283,9:poke53285,1:poke53277,1:poke53271,1
  75. 750 dim cd$(54),cc$(54),dk(54),lo(4,10),tb(4)
  76. 760 lf=54272:hf=54273:wv=54276:at=54277:sr=54278:vl=54296:pokevl,15
  77. 770 sp=53269:sx=53248:sy=53249:sm=53264
  78. 780 forl=0to9
  79. 790 readt$:cd$(l)=t$:cd$(l+10)=t$:cd$(l+20)=t$:cd$(l+30)=t$:cd$(l+40)=t$:next
  80. 800 forl=0to40step10:readt$:fork=0to10:cc$(l+k)=t$:next:next
  81. 810 forl=50to54:cc$(l)="[158]":cd$(l)=" [146]":next
  82. 820 th$="[@\[157][157][157]=":bh$=">[157][157][157]]*^[145][145]":ec$="   [157][157][157]   [157][157][157]   [145][145]"
  83. 830 cd$="":cl$="[146]                                   "
  84. 840 forl=832to895:readk:pokel,k:next
  85. 850 forl=14336to14847:readk:pokel,k:next
  86. 860 return
  87. 870 data +,!,_,#,$,%,&,',(,)
  88. 880 data "[150]","[154]","[153]","[152]","[151]"
  89. 890 data 0,7,240,0,12,24,0,9,200,0,11,104,0,10,40,0
  90. 900 data 10,40,0,11,104,0,9,200,0,12,24,0,7,240,0,0
  91. 910 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  92. 920 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,188
  93. 930 data 0,255,255,255,255,255,255,255,0,124,230,254,230,230,230,0
  94. 940 data 0,252,230,252,230,230,252,0,0,124,230,224,224,230,124,0
  95. 950 data 0,248,236,230,230,236,248,0,0,254,224,248,224,224,254,0
  96. 960 data 0,254,224,248,224,224,224,0,0,124,224,238,230,230,124,0
  97. 970 data 0,230,230,254,230,230,230,0,0,124,56,56,56,56,124,0
  98. 980 data 0,62,28,28,28,220,120,0,0,236,248,240,248,236,230,0
  99. 990 data 0,224,224,224,224,224,254,0,0,227,247,255,235,227,227,0
  100. 1000 data 0,230,246,254,238,230,230,0,0,124,230,230,230,230,124,0
  101. 1010 data 0,252,230,230,252,224,224,0,0,124,230,230,230,124,14,0
  102. 1020 data 0,252,230,230,252,238,230,0,0,126,224,124,14,238,124,0
  103. 1030 data 0,254,56,56,56,56,56,0,0,230,230,230,230,230,124,0
  104. 1040 data 0,230,230,230,230,124,56,0,0,227,227,235,255,247,227,0
  105. 1050 data 0,198,238,124,124,238,198,0,0,230,230,124,56,56,56,0
  106. 1060 data 0,254,28,56,112,224,254,0,0,15,63,63,63,63,63,63
  107. 1070 data 0,240,252,252,252,252,252,252,63,63,63,63,63,63,15,0
  108. 1080 data 252,252,252,252,252,252,240,0,215,125,253,245,215,95,127,85
  109. 1090 data 0,0,0,0,0,0,0,0,247,215,247,247,247,247,247,213
  110. 1100 data 102,102,102,0,0,0,0,0,215,125,253,215,253,253,125,215
  111. 1110 data 245,221,125,125,85,253,253,253,85,127,127,87,253,253,125,215
  112. 1120 data 215,125,127,87,125,125,125,215,85,125,253,247,223,223,223,223
  113. 1130 data 215,125,125,215,125,125,125,215,215,125,125,125,213,253,125,215
  114. 1140 data 255,255,255,255,255,255,255,0,215,125,125,117,93,125,125,215
  115. 1150 data 175,175,175,175,175,175,175,170,255,255,255,170,170,255,255,255
  116. 1160 data 170,235,235,235,235,235,235,170,171,170,174,174,174,174,174,174
  117. 1170 data 0,124,230,238,246,230,124,0,0,56,248,56,56,56,254,0
  118. 1180 data 0,124,206,28,112,224,254,0,0,124,206,28,14,206,124,0
  119. 1190 data 0,30,62,110,255,14,14,0,0,254,224,252,14,206,124,0
  120. 1200 data 0,124,224,252,230,230,124,0,0,254,206,28,56,56,56,0
  121. 1210 data 0,124,230,124,230,230,124,0,0,124,206,206,126,14,124,0
  122. 1220 data 170,175,175,171,175,175,175,170,174,174,174,174,174,174,174,235
  123. 1230 data 171,174,174,174,171,175,175,175,63,63,63,63,63,63,63,63
  124. 1240 data 252,252,252,252,252,252,252,252,0,62,103,14,28,0,28,0
  125.