Código de Basic - Sudoku C64

1.0

Publicado el 23 de Octubre del 2019

gráfica de visualizaciones de la versión: 1.0

826 visualizaciones desde el 23 de Octubre del 2019

1.1

Actualizado el 19 de Noviembre del 2019 (Publicado el 26 de Octubre del 2019)

gráfica de visualizaciones de la versión: 1.1

852 visualizaciones desde el 26 de Octubre del 2019

1.2

Actualizado el 19 de Noviembre del 2019 (Publicado el 2 de Noviembre del 2019)

gráfica de visualizaciones de la versión: 1.2

1.154 visualizaciones desde el 2 de Noviembre del 2019

1.3

Actualizado el 19 de Noviembre del 2019 (Publicado el 13 de Noviembre del 2019)

gráfica de visualizaciones de la versión: 1.3

1.479 visualizaciones desde el 13 de Noviembre del 2019

1.4

Publicado el 18 de Noviembre del 2019

gráfica de visualizaciones de la versión: 1.4

1.982 visualizaciones desde el 18 de Noviembre del 2019

1.5

Actualizado el 29 de Enero del 2021 (Publicado el 19 de Noviembre del 2019)

gráfica de visualizaciones de la versión: 1.5

2.508 visualizaciones desde el 19 de Noviembre del 2019

1.6

Publicado el 27 de Diciembre del 2019

gráfica de visualizaciones de la versión: 1.6

3.090 visualizaciones desde el 27 de Diciembre del 2019

1.7

Publicado el 30 de Diciembre del 2025

gráfica de visualizaciones de la versión: 1.7

217 visualizaciones desde el 30 de Diciembre del 2025

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

10 poke 53280,0: poke 53281,0

20 print chr$(151) chr$(147)

30 dim G(2),K(255)

40 c0=49152: c1=49408: c2=49664

50 c3=49920: c4=50176: c5=50432

60 c6=50688: c7=50944

70 c8=51200: c9=51456

80 for y=0 to 9

90 poke c9+y+65,y+10

100 poke c9+y+48,y

110 poke c9+y,y+48

120 K(y+48)=y+48

130 next

140 K(32)=32: K(46)=32: K(48)=32

150 poke c9+32,10: q=1133

160 for y=828 to 958: read a$

170 a=peek(c9+asc(mid$(a$,2)))

180 poke y,a+16*peek(c9+asc(a$))

190 next

200 for y=0 to 2

210 for x=0 to 2: read a$: q=q+62

220 for n=0 to 2

230 for m=0 to 2

240 poke q+41,91

250 poke q-1,66: poke q+1,66

260 poke q-40,67: poke q+40,67

270 if y+x=0 then poke q-39,114

280 if y+x=4 then poke q+41,113

290 if n+m=0 then poke q+39,107

300 if n+m=4 then poke q+41,115

310 poke q,K(asc(mid$(a$,3*n+m+1)))

320 poke q+54272,1

330 poke c7+c,q/256

340 poke c6+c,q-256*int(q/256)

350 poke c5+c,27*y+9*n

360 poke c4+c,27*n+9*m

370 poke c3+c,27*y+9*x

380 c=c+1: q=q+2

390 poke c2+c,0

400 poke c1+c,0

410 poke c0+c,0

420 next m,n,x,y

430 poke 1154,112: poke 1172,110

440 poke q+21,109: poke q+39,125

450 a=0: c=0

455 rem ***** Teclado *****

460 if a=29 and c<80 then c=c+1

470 if a=17 and c<72 then c=c+9

480 if a=157 and c>0 then c=c-1

490 if a=145 and c>8 then c=c-9

500 q=peek(c6+c)+256*peek(c7+c)

510 if K(a) then poke q,K(a): a=29:         goto 460

520 poke q,peek(q)+128

530 get a$: if a$="" goto 530

540 poke q,peek(q)-128

550 a=asc(a$): if a<>13 goto 460

555 rem ***** Validar *****

560 for c=0 to 80

570 q=peek(c6+c)+256*peek(c7+c)

580 a=peek(q)-48

590 if peek(c0+peek(c3+c)+a) then a=-1

600 if peek(c1+peek(c4+c)+a) then a=-1

610 if peek(c2+peek(c5+c)+a) then a=-1

620 if a<0 then poke q,32: goto 680

630 poke c0+peek(c3+c)+a,1

640 poke c1+peek(c4+c)+a,1

650 poke c2+peek(c5+c)+a,1

660 poke q+54272,14

670 G(c/27)=G(c/27)+1

680 next

685 rem ***** Ordenar *****

690 for y=0 to 2: x=0

700 if G(1)>G(x) then x=1

710 if G(2)>G(x) then x=2

720 G(x)=-1

730 for c=27*x to 27*x+26

740 poke c8+b,c

750 q=peek(c6+c)+256*peek(c7+c)

760 if peek(q)<49 then b=b+1

770 next c,y

780 poke 254,sgn(b)

790 poke c8+b,255

800 sys 834

810 get a$: if a$<>" " goto 810

820 if peek(254)<255 goto 800

825 rem ***** Ensamblador *****

828 data A9,20   : rem *LDA #20

830 data A0,00   : rem  LDY #00

832 data 91,B2   : rem  STA (B2),Y

834 data C6,FE   : rem  DEC FE

836 data 30,78   : rem  BMI 958

838 data A4,FE   : rem  LDY FE

840 data BE,00,C8: rem  LDX C800,Y

843 data BD,00,C7: rem *LDA C700,X

846 data 85,B3   : rem  STA B3

848 data BD,00,C6: rem  LDA C600,X

851 data 85,B2   : rem  STA B2

853 data A0,00   : rem  LDY #00

855 data B1,B2   : rem  LDA (B2),Y

857 data A8      : rem  TAY

858 data B9,00,C9: rem  LDA C900,Y

861 data A8      : rem  TAY

862 data 18      : rem  CLC

863 data 7D,00,C3: rem  ADC C300,X

866 data 85,FB   : rem  STA FB

868 data 98      : rem  TYA

869 data 7D,00,C4: rem  ADC C400,X

872 data 85,FC   : rem  STA FC

874 data 98      : rem  TYA

875 data 7D,00,C5: rem  ADC C500,X

878 data 85,FD   : rem  STA FD

880 data C0,0A   : rem  CPY #0A

882 data F0,0F   : rem  BEQ 899

884 data A6,FB   : rem  LDX FB

886 data DE,00,C0: rem  DEC C000,X

889 data A6,FC   : rem  LDX FC

891 data DE,00,C1: rem  DEC C100,X

894 data A6,FD   : rem  LDX FD

896 data DE,00,C2: rem  DEC C200,X

899 data 88      : rem *DEY

900 data F0,B6   : rem  BEQ 828

902 data C6,FB   : rem  DEC FB

904 data C6,FC   : rem  DEC FC

906 data C6,FD   : rem  DEC FD

908 data A6,FB   : rem  LDX FB

910 data BD,00,C0: rem  LDA C000,X

913 data D0,F0   : rem  BNE 899

915 data A6,FC   : rem  LDX FC

917 data BD,00,C1: rem  LDA C100,X

920 data D0,E9   : rem  BNE 899

922 data A6,FD   : rem  LDX FD

924 data BD,00,C2: rem  LDA C200,X

927 data D0,E2   : rem  BNE 899

929 data FE,00,C2: rem  INC C200,X

932 data A6,FC   : rem  LDX FC

934 data FE,00,C1: rem  INC C100,X

937 data A6,FB   : rem  LDX FB

939 data FE,00,C0: rem  INC C000,X

942 data B9,00,C9: rem  LDA C900,Y

945 data A0,00   : rem  LDY #00

947 data 91,B2   : rem  STA (B2),Y

949 data E6,FE   : rem  INC FE

951 data A4,FE   : rem  LDY FE

953 data BE,00,C8: rem  LDX C800,Y

956 data 10,8D   : rem  BPL 843

958 data 60      : rem *RTS

1000 rem ***** Dificil *****

1010 data 5.2......

1020 data ....6.9..

1030 data .........

1040 data .41..7...

1050 data ...5...6.

1060 data ..5..2...

1070 data .97.85...

1080 data .......35

1090 data .54....96

1500 rem ***** Facil *****

1510 data ....76...

1520 data 1...3874.

1530 data .7.......

1540 data ..4.6.5.1

1550 data .67...28.

1560 data 3.1.4.6..

1570 data .......1.

1580 data .2561...9

1590 data ...98....

Comentarios sobre la versión: 1.7 (0)

No hay comentarios

Comentar la versión: 1.7


Nombre

Correo (no se visualiza en la web)

Valoración

Comentarios...

CerrarCerrar

Es necesario revisar y aceptar las políticas de privacidad

Acepto las políticas de privacidad

1.8

Actualizado el 24 de Enero del 2026 (Publicado el 15 de Enero del 2026)

gráfica de visualizaciones de la versión: 1.8

788 visualizaciones desde el 15 de Enero del 2026

Código de Basic - Sudoku C64

Sudoku C64

Basic

Requerimientos

1.0

1.1

1.2

1.3

1.4

1.5

1.6

1.7

Comentarios sobre la versión: 1.7 (0)

Comentar la versión: 1.7

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

1.8