Warning: Some posts on this platform may contain adult material intended for mature audiences only. Viewer discretion is advised. By clicking ‘Continue’, you confirm that you are 18 years or older and consent to viewing explicit content.
This a Sharp BASIC suffler for the 40 spanish card deck, for truco and other games.
10:REMBARAJADORMAZODE40CARTASESPANOLAS,SHARPPC-136020:WAIT0: CLS : CLEAR30:DIM A$(41)*20,S$(0)*32,P$(0)*6540:C=0:S$(0)="Basto Espada Oro Copas"50:P$(0)="As Dos Tres CuatroCincoSeis SieteSota CaballoRey"60:FOR S=1TO470:FOR N=1TO1080:C=C+190:A$(C)= MID$ (P$(0),(N*5)-4,5)+" de "+ MID$ (S$(0),(S*8)-5,0)
100:NEXTN:NEXT S
110:FOR C=41TO2STEP - 1:A=RND (40)+1:A$(C)=A$(A):A$(A)=A$(C-1): NEXTC:BEEP1: WAIT120:FOR C=1TO40: PRINTSRT$ (C);":";A$(C): NEXT C
This a Sharp BASIC suffler for the 40 spanish card deck, for truco and other games.
10:REM BARAJADOR MAZO DE 40 CARTAS ESPANOLAS,SHARP PC-1360 20:WAIT 0: CLS : CLEAR 30:DIM A$(41)*20,S$(0)*32,P$(0)*65 40:C=0:S$(0)="Basto Espada Oro Copas" 50:P$(0)="As Dos Tres CuatroCincoSeis SieteSota CaballoRey" 60:FOR S=1 TO 4 70:FOR N=1 TO 10 80:C=C+1 90:A$(C)= MID$ (P$(0),(N*5)-4,5)+" de "+ MID$ (S$(0),(S*8)-5,0) 100:NEXT N: NEXT S 110:FOR C=41 TO 2 STEP - 1:A= RND (40)+1:A$(C)=A$(A):A$(A)=A$(C-1): NEXT C: BEEP 1: WAIT 120:FOR C=1 TO 40: PRINT SRT$ (C);":";A$(C): NEXT C