this post was submitted on 31 Aug 2023
38 points (95.2% liked)

retrocomputing

4097 readers
3 users here now

Discussions on vintage and retrocomputing

founded 1 year ago
MODERATORS
 

You are a BASIC bitch, so type-in and share your BASIC listings here. Any and all BASIC dialects are welcome.

you are viewing a single comment's thread
view the rest of the comments
[–] peron@lemmy.sdf.org 1 points 1 year ago

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