PROGRAMILLAS BASIC

Avatar de Usuario
Miguel angel rojo
Mensajes: 1979
Registrado: 08 May 2017 12:49
Agradecido : 159 veces
Agradecimiento recibido: 677 veces

Re: PROGRAMILLAS BASIC

Mensajepor Miguel angel rojo » 20 Ene 2023 15:16

Último mensaje de la página anterior:

superjmotero escribió:Curioseando con el listado del PONG (Tele Tenis), me hice un copy&paste en el JavaCPC que trae autotype (pa los vagos como yo). Me encontré con que el player 1 no anotaba nunca puntos. No sé si es algo mío(seguramente) que no he tocado el basic del amstrad hasta hoy, del emulador, o que la errata venía de origen.
He modificado la línea 570 por : IF dx<0 THEN puntos2=puntos2+1 ELSE puntos1=puntos1+1
Ahora me anota cuando le gano al p2 y el p2 anota cuando me la cuela. ¿Son así las reglas?. Me vuelvo al agujero.

Pues si, gracias superjmotero, ya lo he editado y ahora esta bien , lo habia probado, pero como no le marcaba ni pa dios, pues no me di cuenta, no se me ocurrio jugar a dos, jajaja
-coam1 -4mstr4d -j4tar1 -cocbm1
-0r1c -sp3zy -m3s3x -m4c

Avatar de Usuario
Miguel angel rojo
Mensajes: 1979
Registrado: 08 May 2017 12:49
Agradecido : 159 veces
Agradecimiento recibido: 677 veces

Re: PROGRAMILLAS BASIC

Mensajepor Miguel angel rojo » 22 Ene 2023 21:07

Despues del fin de semana de descanso pongo dos juegos mas, uno es ya conocido del manual de amstrad y el otro es uno bastante entretenido
Esgrima Electrico y Red Exit


Captura de pantalla 2023-01-22 a las 20.58.37.jpg
Captura de pantalla 2023-01-22 a las 20.58.37.jpg (72.94 KiB) Visto 308 veces


Código: Seleccionar todo

10 ' ESGRIMA ELECTRICO, por Alexander Martin
20 ' copyright (c) AMSOFT 1985
30 '
40 DEFINT a-z
50 MODE 0
60 GOSUB 980
70 GOSUB 1370
80 GOSUB 270
90 GOSUB 1520
100 GOSUB 1370
110 GOSUB 1270
120 '
130 '
140 REM empezar
150 IF termina THEN GOTO 100
160 GOSUB 240
170 FRAME:IF p1dir THEN GOSUB 570 ELSE FRAME:FRAME
180 FRAME:IF p2dir THEN GOSUB 620 ELSE FRAME:FRAME
190 IF p1sa=-1 THEN GOSUB 670
200 IF p2sa=-1 THEN GOSUB 720
210 GOTO 140
220 '
230 '
240 IF j THEN 380 ELSE 480
250 '
260 '
270 CLS:PEN 6
280 PRINT:PRINT" ELIJA CONTROL"
290 PRINT:PRINT:PRINT:PRINT" pulse J/T [ENTER]"
300 LOCATE 4,10:PRINT"JOYSTICKS";TAB(4);"O TECLAS"
310 LOCATE 12,10:IF j THEN PRINT"*":ELSE PRINT" "
320 LOCATE 12,11:IF j THEN PRINT" ":ELSE PRINT"*"
330 IF NOT(INKEY(45)) THEN j=-1
340 IF NOT(INKEY(51)) THEN j=0: '37 en original: K
350 IF NOT(INKEY(18)) THEN RETURN ELSE 310
360 '
370 '
380 p1=JOY(0):p2=JOY(1)
390 p1dir=(p1 AND 1)*-1+(p1 AND 2)*0.5
400 p2dir=(p2 AND 1)*-1+(p2 AND 2)*0.5
410 IF p1 AND 16 THEN p1sa=p1sa-1:IF p1sa=-1 THEN AFTER 15 GOSUB 770
420 IF p2 AND 16 THEN p2sa=p2sa-1:IF p2sa=-1 THEN AFTER 15 GOSUB 770
430 IF p1sa THEN p1dir=0
440 IF p2sa THEN p2dir=0
450 RETURN
460 '
470 '
480 p2dir=((INKEY(4)=0)*1)+((INKEY(5)=0)*-1)
490 p1dir=((INKEY(69)=0)*1)+((INKEY(71)=0)*-1)
500 IF INKEY(63)=0 THEN p1sa=p1sa-1:IF p1sa=-1 THEN AFTER 15 GOSUB 770
510 IF INKEY(10)=0 THEN p2sa=p2sa-1:IF p2sa=-1 THEN AFTER 15 GOSUB 770
520 IF p1sa THEN p1dir=0
530 IF p2sa THEN p2dir=0
540 RETURN
550 '
560 '
570 pt=p1wp+p1dir:IF pt>25 OR pt<6 THEN RETURN ELSE p1wp=pt
580 p1dir=0
590 PEN 1:LOCATE 3,p1wp:CLS#3:PRINT CHR$(209);:RETURN
600 '
610 '
620 pt=p2wp+p2di:IF pt>25 OR pt<6 THEN RETURN ELSE p2wp=pt
630 p2dir=0
640 PEN 2:LOCATE 18,p2wp:CLS#5:PRINT CHR$(211);:RETURN
650 '
660 '
670 PAPER #4,4:WINDOW #4,4,17,p1wp,p1wp:CLS#4:FRAME:FRAME
680 PAPER #4,0:CLS#4
690 GOTO 570
700 '
710 '
720 PAPER #6,5:WINDOW #6,4,17,p2wp,p2wp:CLS#6:FRAME:FRAME
730 PAPER #6,0:CLS#6
740 GOTO 620
750 '
760 '
770 pwpe=(p1wp=p2wp):IF p1sa AND NOT(p2sa) AND pwpe THEN p1sc=p1sc+1:SOUND 132,120,10,0,1,0:PRINT#1,a$(p1sc);:IF p1sc=9 THEN 860
780 IF p2sa AND NOT(p1sa) AND pwpe THEN p2sc=p2sc+1:SOUND 132,100,10,0,1,0:PRINT#2,a$(p2sc);:IF p2sc=9 THEN 860
790 IF p1sa THEN SOUND 132,40,70,0,1,1
800 IF p2sa THEN SOUND 132,56,70,0,1,1
810 p1sa=0
820 p2sa=0
830 RETURN
840 '
850 '
860 PEN 6
870 LOCATE 2,10:PRINT"FIN DE LA PARTIDA"
880 IF p1sc=9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6,17:INK 1,0
890 SOUND 129,1000,0,12,3:SOUND 130,900,0,12,3
900 WHILE INKEY$<>"":WEND
910 t!=TIME:WHILE t!+2000>TIME:WEND
920 WHILE INKEY$="":WEND
930 CLS
940 termina=-1
950 RETURN
960 ' 970 '
980 a$(0)="111101101101111"
990 a$(1)="001001001001001"
1000 a$(2)="111001111100111"
1010 a$(3)="111001111001111"
1020 a$(4)="100100101111001"
1030 a$(5)="111100111001111"
1040 a$(6)="111100111101111"
1050 a$(7)="111001001010010"
1060 a$(8)="111101111101111"
1070 a$(9)="111101111001001"
1080 FOR n=0 TO 9
1090 tiempo=LEN(a$(n))
1100 FOR n2=1 TO tiempo
1110 IF MID$(a$(n),n2,1)="1"THEN MID$(a$(n),n2,1)=CHR$(143) ELSE MID$(a$(n),n2,1)=CHR$(32)
1120 NEXT n2,n
1130 '
1140 '
1150 b$="ESGRIMA ELECTRICO"
1160 c$=CHR$(32)+CHR$(164)+" Alexander Martin"
1170 ENV 1,=9,2000:ENT -1,6,3,1
1180 ENV 2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0
1190 ENV 3,=9,9000
1200 '
1210 '
1220 BORDER 0
1230 INK 0,12:PEN #4,1:PEN #6,2:PEN #1,1:PEN #2,2:PAPER #1,3:PAPER #2,3:PEN #0,6
1240 RETURN 'de preparar constantes
1250 '
1260 '
1270 INK 0,12:INK 1,2:INK 2,6:INK 3,13:INK 4,20:INK 5,17:INK 6,20
1280 WINDOW #3,3,3,6,25:WINDOW #5,18,18,6,25
1290 WINDOW #1,3,5,1,5:WINDOW #2,16,18,1,5:WINDOW #7,1,20 ,1,5:PAPER #7,3
1300 CLS:CLS#7:PRINT#1,a$(0);:PRINT#2,a$(0);:p1sc=0:p2sc=0:p1wp=5:p2wp=24:p1dir=1:p2dir=1
1310 GOSUB 570:GOSUB 620
1320 SOUND 1,1000,0,12,2:SOUND 2,900,0,12,2
1330 p1sa=0:p2sa=0:termina=0
1340 RETURN
1350 '
1360 '
1370 CLS
1380 PEN 7
1390 FOR n=1 TO LEN(b$)
1400 LOCATE 1+n,10
1410 FOR n2=LEN(b$) TO n STEP-1
1420 PRINT MID$(b$,n2,1)
1430 LOCATE 1+n,10
1440 SOUND 135,20*n2,5,12,2,1
1450 NEXT n2,n
1460 SOUND 135,100,0,13,3,1,20
1470 PEN 6:PRINT:PRINT:PRINT:PRINT c$
1480 FOR n=1 TO 5000:NEXT
1490 RETURN
1500 '
1510 '
1520 IF j THEN RETURN
1530 CLS
1540 LOCATE 6,5
1550 PRINT"CONTROLES"
1560 PRINT
1570 PRINT"JUGADOR 1 JUGADOR 2"
1580 PRINT
1590 PRINT" A arriba 6"
1600 PRINT" Z abajo 3"
1610 PRINT" X disparo 9"
1620 t!=TIME:WHILE t!+1000>TIME:WEND
1630 RETURN




Captura de pantalla 2023-01-20 a las 0.57.51.jpg
Captura de pantalla 2023-01-20 a las 0.57.51.jpg (101.89 KiB) Visto 308 veces


Código: Seleccionar todo

10 ' Reds Exit
20 ' Initial Setup
30 DIM g$(3)
40 DEFINT a-z
50 s=1
60 j=64
70 INK 0,11
80 INK 1,26
90 BORDER 11
100 g$(0)=CHR$(144)
110 g$(1)=CHR$(145)
120 g$(2)=CHR$(148)
130 g$(3)=CHR$(149)
140 ' Set up Screen
150 MODE 0
160 LOCATE 2,25
170 PEN 3
180 PRINT"Reds Exit  Stage";s;
190 RANDOMIZE TIME
200 RANDOMIZE RND
210 LOCATE 1,1
220 PEN 1
230 PRINT CHR$(150);STRING$(18,CHR$(154));CHR$(156);
240 FOR y=2 TO 23
250   LOCATE 1,y
260   PRINT CHR$(149);
270   LOCATE 20,y
280   PRINT CHR$(149);
290 NEXT y
300 LOCATE 1,24
310 PRINT CHR$(147);STRING$(18,CHR$(154));CHR$(153);
320 PLOT 2,-2,1
330 PRINT CHR$(23)+CHR$(3); ' Set OR Graphics Ink Mode
340 FOR x=32 TO 576 STEP j
350   FOR y=388 TO 30 STEP -16
360     MOVE x,y
370     TAG
380     PRINT g$(INT(RND*4));
390   NEXT y,x
400 x=32
410 d=0
420 y=382
430 r=-2
440 q=0
450 PLOT 2,-2,8
460 MOVE 592,206
470 PRINT CHR$(233);
480 TAGOFF
490 PRINT CHR$(23)+CHR$(0); ' Set Normal Graphics Ink Mode (Default)
500 ' Main Game Loop
510 WHILE d=0
520   x=x+q
530   y=y+r
540   PLOT x,y,3
550   IF JOY(0)=8 THEN r=0:q=4
560   IF JOY(0)=4 THEN r=0:q=-4
570   IF JOY(0)=2 THEN r=-2:q=0
580   IF JOY(0)=1 THEN r=2:q=0
590   IF TEST(x+4,y+2)=8 AND s<4 THEN s=s+1:j=j-12:GOTO 150
600   IF TEST(x+4,y)=1 THEN d=1
610   IF TEST(x-4,y)=1 THEN d=1
620   IF TEST(x+4,y+2)=8 AND s=4 THEN d=2
630 WEND
640  ' Win or Loose?
650 IF d=2 THEN LOCATE 6,12:PRINT"Well Done!";:t=200:WHILE INKEY$<>"":SOUND 1,t,1,7:t=t-10:WEND:CALL &BB18:RUN
660 IF d=1 THEN SOUND 1,200,1,15,,,31:LOCATE 6,12:PRINT"You Died!";:WHILE INKEY$<>"":WEND:CALL &BB18:RUN
-coam1 -4mstr4d -j4tar1 -cocbm1
-0r1c -sp3zy -m3s3x -m4c

Avatar de Usuario
cpcbegin
Mensajes: 388
Registrado: 27 Ago 2014 22:02
Agradecido : 241 veces
Agradecimiento recibido: 160 veces
Contactar:

Re: PROGRAMILLAS BASIC

Mensajepor cpcbegin » 23 Ene 2023 00:17


Avatar de Usuario
Miguel angel rojo
Mensajes: 1979
Registrado: 08 May 2017 12:49
Agradecido : 159 veces
Agradecimiento recibido: 677 veces

Re: PROGRAMILLAS BASIC

Mensajepor Miguel angel rojo » 23 Ene 2023 11:45

cpcbegin escribió:Yo me hice un programa para elegir los programas del disquete.

Imagen


Hola, si gracias cpcbegin, ya lo habia visto, -thumbup, me parece una pasada, lo tengo en un disco en el recopilatorio de juegos que me estoy haciendo
-coam1 -4mstr4d -j4tar1 -cocbm1
-0r1c -sp3zy -m3s3x -m4c

Avatar de Usuario
Miguel angel rojo
Mensajes: 1979
Registrado: 08 May 2017 12:49
Agradecido : 159 veces
Agradecimiento recibido: 677 veces

Re: PROGRAMILLAS BASIC

Mensajepor Miguel angel rojo » 26 Ene 2023 23:50

Siguiendo un poco con el tema del dibujado de poligonos, vertices, lineas......

Captura de pantalla 2023-01-23 a las 18.53.30.jpg
Captura de pantalla 2023-01-23 a las 18.53.30.jpg (48.98 KiB) Visto 200 veces

Código: Seleccionar todo

1 'Poly Stars
2 'By Jakob Givoni
3 'Amstrad Action July 88
10 INK 0,0:INK 1,24:MODE 2:PAPER 0:CLS:BORDER 0
20 DEG
30 INPUT "Pon el numero de  Vertices ";t
40 INPUT "Pon el numero de Lineas ";s
50 DIM bonex(s),boney(s),btwox(s),btwoy(s)
60 cx=320:cy=200
70 bonex=cx+200*COS(0):boney=cy+200*SIN(0)
80 btwox=cx+200*COS(360/t):btwoy=cy+200*SIN(360/t):CLS:c=360/t
90 LOCATE 1,25:PRINT "Pulsa una tecla para continuar"
100 WHILE INKEY$=""
110 MOVE bonex,boney:DRAW cx,cy,1:DRAW btwox,btwoy
120 FOR a=1 TO s
130 bonex(a)=cx+((bonex-cx)/s)*a
140 boney(a)=cy+((boney-cy)/s)*a
150 btwox(a)=cx+((btwox-cx)/s)*a
160 btwoy(a)=cy+((btwoy-cy)/s)*a
170 NEXT
180 FOR a=1 TO s
190 MOVE bonex(a),boney(a):DRAW btwox(s-a+1),btwoy(s-a+1),1
200 NEXT
210 c=c+360/t
220 bonex=btwox:boney=btwoy:btwox=cx+200*COS(c):btwoy=cy+200*SIN(c)
230 WEND
240 RUN
250 END


Captura de pantalla 2023-01-26 a las 2.13.58.jpg
Captura de pantalla 2023-01-26 a las 2.13.58.jpg (76.98 KiB) Visto 200 veces

Código: Seleccionar todo

10 MODE 0
20 DEFINT X-Z:X=320:Y=200
30 RAD:FOR A=1.2 TO PI*2 STEP 1.2
40 MOVE 320,200
50 FOR R=0 TO 200 STEP A
60 DRAW R*COS(R)+X,R*SIN(R)+Y,Z AND 15
70 Z=Z+1
80 NEXT R:CLS:NEXT A
90 END
-coam1 -4mstr4d -j4tar1 -cocbm1
-0r1c -sp3zy -m3s3x -m4c

Avatar de Usuario
Miguel angel rojo
Mensajes: 1979
Registrado: 08 May 2017 12:49
Agradecido : 159 veces
Agradecimiento recibido: 677 veces

Re: PROGRAMILLAS BASIC

Mensajepor Miguel angel rojo » 27 Ene 2023 00:00

Este es con musiquita dibujando lineas
Captura de pantalla 2023-01-26 a las 23.40.08.jpg
Captura de pantalla 2023-01-26 a las 23.40.08.jpg (153.11 KiB) Visto 197 veces

Código: Seleccionar todo

10 '*************************
20 '  Musique-89-oli Guy
30 '*************************
50 MODE 0:TAG:flg=0:tempo=2.5
70 ENV 1,1,15,9,8,7,4,1,-7,4,1,5,4,2,-2,4
90 ENT -1,1,1,5,1,-1,5
110 RESTORE 300:ON SQ(1)GOSUB 210
130 MOVE 320,200:p=CINT(RND*15):x=CINT(RND*320):y=CINT(RND*200)
140 t=CINT(RND*1):IF t=0 THEN x=-x
150 t=CINT(RND*1):IF t=0 THEN y=-y
160 DRAWR x,y,p
170 FOR chrono=1 TO 100:NEXT
180 IF INKEY(27)=-1 THEN 200
190 IF flg=0 THEN flg=1:SOUND 135,0 ELSE flg=0:GOTO 110
200 GOTO 130
210 IF flg=1 THEN RETURN
220 READ canal,note,duree
230 IF duree=255 THEN RESTORE 300:READ canal,note,duree
240 IF note=0 THEN 250 ELSE 280
250 flchrono=0:AFTER duree*tempo GOSUB 290
260 IF flchrono=1 THEN RETURN
270 flchrono=1:RETURN
280 SOUND canal,note,duree*tempo,0,1,1
290 ON SQ(1) GOSUB 210:RETURN
300 DATA 1,0,16,1,319,8,1,253,8
310 DATA 1,213,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8
320 DATA 1,190,8,1,213,8,1,253,8,1,319,8
330 DATA 1,253,8,49,80,8,42,127,8,28,159,8,1,213,8,49,80,8,42,127,8,28,159,8
340 DATA 1,213,8,49,80,8,42,127,8,28,159,8,1,319,8,1,253,8
350 DATA 1,213,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8
360 DATA 1,190,8,1,213,8,1,253,8,1,319,8
370 DATA 1,284,8,1,213,8,49,142,8,42,119,8,28,84,8,1,213,8
380 DATA 49,142,8,42,119,8,28,84,8,1,213,8,1,253,8,1,284,8
390 DATA 1,319,8,17,127,8,10,80,8,1,253,8,17,127,8,10,80,8
400 DATA 1,213,8,17,127,8,10,80,8,1,159,8,17,127,8,10,80,8
410 DATA 1,159,8,17,119,8,10,95,8,1,190,8,17,119,8,10,95,8
420 DATA 1,239,8,49,159,8,42,119,8,28,95,8,1,190,8,49,159,8,42,119,8,28,95,8
430 DATA 1,213,8,49,80,8,42,127,8,28,159,8,1,253,8,49,80,8,42,127,8,28,159,8
440 DATA 1,319,8,49,80,8,42,127,8,28,159,8,1,253,8,49,80,8,42,127,8,28,159,8
450 DATA 1,284,8,1,213,8,49,142,8,42,119,8,28,84,8,1,213,8
460 DATA 49,142,8,42,119,8,28,84,8,1,213,8,1,319,8,1,253,8
470 DATA 1,213,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8
480 DATA 1,190,8,1,213,8,1,253,8,1,319,8
490 DATA 1,253,8,49,80,8,42,127,8,28,159,8,1,213,8,49,80,8,42,127,8,28,159,8
500 DATA 1,213,8,49,80,8,42,127,8,28,159,8,1,319,8,1,253,8
510 DATA 1,213,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8
520 DATA 1,190,8,1,213,8,1,253,8,1,319,8
530 DATA 1,284,8,1,213,8,49,142,8,42,119,8,28,84,8,1,213,8
540 DATA 49,142,8,42,119,8,28,84,8,1,213,8,1,253,8,1,284,8
550 DATA 1,319,8,17,127,8,10,80,8,1,253,8,17,127,8,10,80,8
560 DATA 1,213,8,17,127,8,10,80,8,1,159,8,17,127,8,10,80,8
570 DATA 1,142,8,17,119,8,10,95,8,1,159,8,17,119,8,10,95,8
580 DATA 1,190,8,49,159,8,42,119,8,28,95,8,1,239,8,49,159,8,42,119,8,28,95,8
590 DATA 1,213,8,49,80,8,42,127,8,28,159,8,1,253,8,1,319,8
600 DATA 1,253,8,1,106,8,1,284,8,49,142,8,42,119,8,28,84,8
610 DATA 1,319,8,49,80,8,42,127,8,28,159,8,49,80,8,42,127,8,28,159,8,1,213,8
620 DATA 17,159,8,10,127,8,1,0,8,49,319,8,42,213,8,28,127,8,49,319,8,42,213,8,28,127,8
630 DATA 0,0,255



al final del acaba en un aro en movimiento
Captura de pantalla 2023-01-26 a las 23.58.04.jpg
Captura de pantalla 2023-01-26 a las 23.58.04.jpg (71.27 KiB) Visto 197 veces

Código: Seleccionar todo

10 '===================
20 '=lissajous figures=
30 '=  demonstration  =
40 '===================
50 '
60 ON BREAK GOSUB 300
70 MODE 0
80 DEG
90 m=130
100 ORIGIN 320,200
110 b=0
120 FOR p=0 TO 180 STEP 180/14
130 b=b+1
140 FOR t=0 TO 360 STEP 1.5
150 PLOT SIN(t+p)*m,SIN(t)*m,b
160 NEXT t
170 NEXT p
180 FOR b=1 TO 15
190 INK b,1
200 NEXT b
210 FOR b=2 TO 15
220 INK b-1,1:INK b,23
230 FOR w=1 TO 20:NEXT w
240 NEXT b
250 FOR b=14 TO 1 STEP -1
260 INK b+1,1:INK b,23
270 FOR w=1 TO 20:NEXT w
280 NEXT b
290 GOTO 210
300 MODE 1:CALL &BBFF
-coam1 -4mstr4d -j4tar1 -cocbm1
-0r1c -sp3zy -m3s3x -m4c

Avatar de Usuario
Taburoto
Mensajes: 1656
Registrado: 15 Mar 2011 00:40
Agradecido : 41 veces
Agradecimiento recibido: 263 veces

Re: PROGRAMILLAS BASIC

Mensajepor Taburoto » 27 Ene 2023 10:21

El basic de CPC es fácil y con resultados muy vistosos.
El manejo de los gráficos está bien resuelto,el del sonido lo veo complejo y deficiente frente a otros sistemas.

Avatar de Usuario
Miguel angel rojo
Mensajes: 1979
Registrado: 08 May 2017 12:49
Agradecido : 159 veces
Agradecimiento recibido: 677 veces

Re: PROGRAMILLAS BASIC

Mensajepor Miguel angel rojo » 29 Ene 2023 05:20

Seguimos con los colores, efecto de tuberia, faltaria la bola dando botes............
Captura de pantalla 2023-01-27 a las 1.33.09.jpg
Captura de pantalla 2023-01-27 a las 1.33.09.jpg (84.98 KiB) Visto 120 veces

Código: Seleccionar todo

10 ' TUBEDAM par B.L.B.
20 ' cr{{ sur 6128 le 12/11/91
30 INK 0,0:INK 1,26:PAPER 0:PEN 1:MODE 0:FOR n=2 TO 14:INK n,n:NEXT:BORDER 0:DEFINT a-z
40 t=50:FOR r=2 TO 10 STEP 2
45 FOR c1=2 TO 7:c2=15-c1
50 FOR n=1 TO r:ORIGIN 320,200:DEG:MOVE 0,t
60 FOR a=0 TO 360 STEP 40
70 DRAW t*SIN(a),t*COS(a),c1:DRAW t*SIN(a+20),t*COS(a+20),c2
80 NEXT:t=t+1:NEXT
90 NEXT c1:NEXT r
100 a=6:b=1:c=-1
110 a$(1)="*666222666222":a$(2)="*266622662226":a$(3)="*226662622266"
120 a$(4)="*222666222666":a$(5)="*622266226662":a$(6)="*662226266622"
130 a$=INKEY$:IF a$=" " THEN IF a=1 THEN a=6:b=1:c=-1 ELSE a=1:b=6:c=1
140 FOR n=a TO b STEP c:FOR m=2 TO 13:INK m,VAL(MID$(a$(n),m,1))
150 NEXT:NEXT:GOTO 130


un efecto de escalera de caracol con triangulos
Captura de pantalla 2023-01-27 a las 1.20.35.jpg
Captura de pantalla 2023-01-27 a las 1.20.35.jpg (212.85 KiB) Visto 120 veces

Código: Seleccionar todo

1 ' Triangles
2 ' by Dale Clinton
3 ' Amstrad Action   June 87
40 DEG:MODE 1:q=1:CALL &BC02
50 FOR numb=1 TO 440 STEP 5
60 FOR count=1 TO 4:p=count*120
70 c=c+1:IF c>3 THEN c=1
80 x=SIN(numb+p)*numb+320
90 y=COS(numb+p)*numb+200
100 IF count=1 THEN PLOT x,y
110 DRAW x,y,c:NEXT count,numb
120 INK 0,0:BORDER 0:p=0
130 FOR numb=1 TO 300
140 p=p+q:IF p>3 THEN p=1 ELSE IF p<1 THEN p=3
150 INK p,26:FOR count=1 TO 50:NEXT count
160 INK p,0:NEXT numb:q=-q:GOTO 130


y un donuts
Captura de pantalla 2023-01-29 a las 5.12.41.jpg
Captura de pantalla 2023-01-29 a las 5.12.41.jpg (71.87 KiB) Visto 120 veces

Código: Seleccionar todo

10 DEG:MODE 0:PAPER 0:INK 0,0:DIM col(14):
20 FOR a=0 TO 14:READ col(a):NEXT:
30 DATA 0,9,0,15,21,24,23,22,19,12,10,4,1,7,82
40 FOR b=450 TO 90 STEP -3:FOR c=1 TO 360 STEP 3:
50 PLOT (320+125*COS(b))+100*COS(c),(200+125*SIN(b))+70*SIN(c),c/3 MOD(13)+1
60 NEXT:NEXT:BORDER 0:FOR d=999 TO 1 STEP -1:
70 FOR e=1 TO 13:INK e,col((d+e)MOD 13):NEXT:NEXT
-coam1 -4mstr4d -j4tar1 -cocbm1
-0r1c -sp3zy -m3s3x -m4c

Avatar de Usuario
Miguel angel rojo
Mensajes: 1979
Registrado: 08 May 2017 12:49
Agradecido : 159 veces
Agradecimiento recibido: 677 veces

Re: PROGRAMILLAS BASIC

Mensajepor Miguel angel rojo » 03 Feb 2023 13:50

Ahora toca un par de juegillos, la tipica serpiente , pero en este caso tiene que seguir los numeros, y una especie de tron , es para dos jugadores , el problema que he encotrado, es que una de las teclas esta casi donde la suegra, y no tengo ni idea como va este basic con tanto poke.
Captura de pantalla 2023-01-30 a las 1.16.42.jpg
Captura de pantalla 2023-01-30 a las 1.16.42.jpg (40.71 KiB) Visto 51 veces

Código: Seleccionar todo

10 REM BOMBE A RETARDEMENT
20 REM --------------------------------
30 SYMBOL AFTER 128:GOSUB 1000
40 RANDOMIZE TIME
50 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,15:PAPER 0:PEN 1:BORDER 1
60 PAPER 1
70 FOR I=1 TO 40
80 LOCATE I,1:PRINT " ":LOCATE I,23:PRINT " "
90 IF I<24 THEN LOCATE 1,I:PRINT " ":LOCATE 40,I:PRINT " "
100 NEXT I
110 PAPER 0:LOCATE 20,12:PRINT CHR$(129)
120 PEN 2
130 FOR I=1 TO 9
140 X(I)=INT(RND*36)+3:Y(I)=INT(RND*19)+3
150 IF TEST(X(I)*16-8,400-Y(I)*16)<>0 THEN 140
160 LOCATE X(I),Y(I):PRINT CHR$(I+48)
170 NEXT I
180 T=1000:P=1:C=0
190 PEN 3:LOCATE 6,24:PRINT CHR$(133)CHR$(134):LOCATE 6,25:PRINT CHR$(135)CHR$(136);" =";T;
200 LOCATE 21,25:PRINT "CRUCE = 0";
210 X=20:Y=12:LOCATE X,Y:PEN 1
280 REM -------------------------------
290 REM LE JEU
300 T=T-1:LOCATE 10,25:PRINT T;" ";:LOCATE X,Y
310 IF T=0 THEN 500
320 A$=INKEY$:IF A$="" THEN 300
330 IF A$=CHR$(242) AND X>2 THEN V=-1:W=0
340 IF A$=CHR$(243) AND X<39 THEN V=1:W=0
350 IF A$=CHR$(240) AND Y>2 THEN V=0:W=-1
360 IF A$=CHR$(241) AND Y<22 THEN V=0:W=1
370 IF V=0 AND W=0 THEN 300
380 IF TEST((X+V)*16-8,408-(Y+W)*16)=1 THEN C=C+1:LOCATE 34,25:PRINT CHR$(48+C):IF C>1 THEN 500 ELSE 420
390 A=TEST((X+V)*16-8,402-(Y+W)*16)
400 IF A=2 AND X(P)=X+V AND Y(P)=Y+W THEN P=P+1:IF P>9 THEN 700 ELSE 420
410 IF A<>0 THEN 500
420 X=X+V:Y=Y+W:LOCATE X,Y:PRINT CHR$(130+V+W*2)
430 V=0:W=0
440 GOTO 300
480 REM -------------------------------
490 REM PERDU
500 CLS:INK 1,0
510 FOR J=1 TO 2
520 FOR I=300 TO 120 STEP -20
530 PLOT I, 500-I,J:DRAW 620-I,500-I,J:DRAW 620-I,I-120,J:DRAW I,I-120,J:DRAW I,500-I,J
540 BORDER I MOD 27:SOUND 1,I,2
550 NEXT I
560 INK 2,1
570 NEXT J
580 RUN
680 REM -------------------------------
690 REM GAGNE
700 FOR I=700 TO 10 STEP-3:SOUND 1,I,2:NEXT
710 RUN
980 REM -------------------------------
990 REM GRAPHIQUES
1000 SYMBOL 128,24,60,126,255,24,24,24,24
1010 SYMBOL 129,16,48,112,255,255,112,48,16
1020 SYMBOL 131,8,12,14,255,255,14,12,8
1030 SYMBOL 132,24,24,24,24,255,126,60,24
1040 SYMBOL 133,0,0,0,0,0,1,1,7
1050 SYMBOL 134,21,2,57,98,197,128,128,224
1060 SYMBOL 135,63,127,255,255,255,255,127,63
1070 SYMBOL 136,252,254,255,255,255,255,254,252
1080 RETURN




Captura de pantalla 2023-01-31 a las 23.14.46.jpg
Captura de pantalla 2023-01-31 a las 23.14.46.jpg (35.05 KiB) Visto 51 veces


en el listado en la linea 31 he puesto las teclas que son

Código: Seleccionar todo

10 '***********************************
20 '*TRON * V.BARAT & AMSTRAD MAGAZINE*
30 '***********************************
31 'teclas jugador uno A,Z,X,X****jugador dos +,\,<,>
40 '--------------
50 'Initialisation
60 '--------------
70 MODE 1:LOCATE 5,5:PEN 1:INK 1,26,0:PRINT "ESPERE POR FAVOR ..."
80 IF PEEK(&A000)=33 THEN 160
90 SYMBOL AFTER 229:SYMBOL 230,&7E,&BF,&C2,&84,&FF,&A1,&FF,&0:SYMBOL 232,&42,&DB,&24,&24,&18,&18,&C3,&42
100 MEMORY &9FFF:RESTORE 1350:FOR i=&A000 TO &A4A6:READ a$:POKE i,VAL("&"+a$):NEXT i
110 KEY 128,CHR$(13)+"pen 1:mode 2:list "
120 ENT 1,30,-2,1:ENV 1,16,-1,15:ENT -2,5,-3,1,10,3,1
130 '---------------------
140 'Debut et presentation
150 '---------------------
160 CLEAR:FOR i=&A501 TO &A504:POKE i,0:NEXT:t=0:v=0
170 t=0:v=0
180 MODE 1:INK 0,0:INK 1,26:INK 2,14:INK 3,20:BORDER 14
190 PEN 1
200 RESTORE 1280
250 MODE 1:INK 0,0:INK 1,26:INK 2,14:INK 3,20:BORDER 14
260 '-------------------
270 'Programme principal
280 '-------------------
290 t=t+1:IF t=17 THEN 610
300 MODE 1
310 ON t GOSUB 750,780,810,840,870,900,930,970,1010,1040,1070,1100,1130,1160,1190,1220
320 GOSUB 550
330 GOSUB 690
340 GOSUB 470
350 IF v=1 THEN POKE(&A500),40
360 IF v=2 THEN POKE(&A500),30
370 IF v=3 THEN POKE(&A500),20
380 IF v=4 THEN POKE(&A500),10
390 IF v=5 THEN POKE(&A500),8
400 IF v=6 THEN POKE(&A500),4
410 IF v=7 THEN POKE(&A500),2
420 IF v=8 THEN POKE(&A500),1
430 IF obs=1 THEN POKE &A505,1 ELSE POKE &A505,0
440 IF vobs=2 THEN POKE &A506,2 ELSE POKE &A506,4
450 CALL &A000:GOTO 290
460 '-----------------------------
470 'Affiche score tableau vitesse
480 '-----------------------------
490 LOCATE 2,25:PEN 1:PRINT "SCORE 1:":LOCATE 27,25:PEN 2:PRINT "SCORE 2:":LOCATE 16,24:PEN 3:PRINT "TABLERO":LOCATE 16,25:PRINT "ESPERA.."
500 PEN 1:LOCATE 10,25:PRINT USING "#####";PEEK(&A502)*256+PEEK(&A501)
510 LOCATE 35,25:PRINT USING "#####";PEEK(&A504)*256+PEEK(&A503)
520 LOCATE 24,24:PRINT USING "##";t
530 LOCATE 24,25:PRINT USING "##";v
540 RETURN
550 '-----
560 'Cadre
570 '-----
580 PLOT 0,32,1:DRAW 0,398:DRAW 638,398:DRAW 638,32:DRAW 0,32
590 RETURN
600 '----------------
610 'Fin de la partie
620 '----------------
630 MODE 1
640 LOCATE 5,4:PEN 3:PRINT CHR$(150);STRING$(16,154);CHR$(156):LOCATE 5,5:PEN 1:PRINT CHR$(149);"FIN DE LA PARTIDA";CHR$(149):LOCATE 5,6:PEN 3:PRINT CHR$(147);STRING$(16,154);CHR$(153)
650 LOCATE 5,10:PEN 1:PRINT "SCORE 1:";:PEN 3:PRINT USING "#####";PEEK(&A502)*256+PEEK(&A501)
660 LOCATE 5,12:PEN 2:PRINT "SCORE 2:";:PEN 3:PRINT USING "#####";PEEK(&A504)*256+PEEK(&A503)
670 GOSUB 690:GOTO 10
680 '------------------
690 'Appuyez sur espace
700 '------------------
710 LOCATE 10,25:PEN 1:PRINT "PARA CONTINUAR PULSE <ESPACE>"
720 WHILE PEEK(&B63A)<>128:WEND
730 LOCATE 10,25:PEN 1:PRINT "                    "
740 RETURN
750 'Tableau 1
760 v=1
770 RETURN
780 'Tableau 2
790 v=1:FOR i=1 TO 15:LOCATE RND*20+10,RND*20+2:PEN RND*1+1:PRINT CHR$(232):NEXT
800 RETURN
810 'Tableau 3
820 v=2:FOR i=1 TO 10:LOCATE RND*20+10,RND*20+2:PEN 3:PRINT CHR$(230):NEXT
830 RETURN
840 'Tableau 4
850 v=2:FOR i=1 TO 15:LOCATE RND*20+10,RND*20+2:PEN 3:PRINT CHR$(230):NEXT:FOR i=1 TO 10:LOCATE RND*20+10,RND*20+2:PEN RND*1+1:PRINT CHR$(232):NEXT
860 RETURN
870 'Tableau 5
880 v=3:FOR i=5 TO 35 STEP 5:PEN 3:FOR j=5 TO 20 STEP 5:LOCATE i,j:PRINT CHR$(230):NEXT j,i
890 RETURN
900 'Tableau 6
910 v=3:FOR i=5 TO 35 STEP 5:PEN RND*1+1:FOR j=5 TO 20 STEP 5:LOCATE i,j:PRINT CHR$(232):NEXT j,i
920 RETURN
930 'Tableau 7
940 v=4:PEN 1:FOR i=4 TO 22 STEP 6:LOCATE 5,i:PRINT STRING$(30,154):NEXT
950 PEN 3:FOR j=7 TO 22 STEP 6:FOR i=10 TO 30 STEP 10:LOCATE i,j:PRINT CHR$(230):NEXT i,j
960 RETURN
970 'Tableau 8
980 v=4:FOR i=3 TO 6 STEP 3:PEN 1:LOCATE 5,i:PRINT CHR$(150);STRING$(30,154):LOCATE 5,i+1:PRINT CHR$(149);" ";:PEN 3:PRINT STRING$(5,230):PEN 1:LOCATE 5,i+2:PRINT CHR$(147);STRING$(30,154):NEXT
990 FOR i=16 TO 19 STEP 3:PEN 2:LOCATE 5,i:PRINT STRING$(30,154);CHR$(156):LOCATE 29,i+1:PEN 3:PRINT STRING$(5,230);:PEN 2:PRINT " ";CHR$(149):LOCATE 5,i+2:PRINT STRING$(30,154);CHR$(153):NEXT
1000 RETURN
1010 'Tableau 9
1020 GOSUB 750:obs=1:vobs=2:v=5
1030 RETURN
1040 'Tableau 10
1050 GOSUB 780:v=5
1060 RETURN
1070 'Tableau 11
1080 GOSUB 810:v=6
1090 RETURN
1100 'Tableau 12
1110 GOSUB 850:v=6
1120 RETURN
1130 'Tableau 13
1140 GOSUB 870:v=7:vobs=4
1150 RETURN
1160 'Tableau 14
1170 GOSUB 900:v=7
1180 RETURN
1190 'Tableau 15
1200 GOSUB 930:v=8
1210 RETURN
1220 'Tableau 16
1230 GOSUB 980:v=8
1240 RETURN
1250 '------------------
1260 'Datas presentation
1270 '------------------
1280 DATA 150,154,154,154,154,154,156,32,150,154,154,154,154,154,156,32,150,154,154,154,154,154,156,32,150,154,156,32,150,154,156,149,32,32,32,32,32,149,32,149,150,154,154,154,156,149,32,149,150,154,154,154,156,149,32,149,32,149,32,149,32,149
1290 DATA 147,154,156,32,150,154,153,32,149,147,154,154,154,153,149,32,149,149,32,32,32,149,149,32,149,32,147,156,149,32,149,32,32,149,32,149,32,32,32,149,32,32,32,150,154,153,32,149,149,32,32,32,149,149,32,149,32,32,147,153,32,149
1300 DATA 32,32,149,32,149,32,32,32,149,32,150,156,147,156,32,32,149,149,32,32,32,149,149,32,149,32,150,156,32,32,149,32,32,149,32,149,32,32,32,149,32,149,147,156,147,156,32,149,149,32,32,32,149,149,32,149,32,149,147,156,32,149
1310 DATA 32,32,149,32,149,32,32,32,149,32,149,32,147,156,149,32,149,147,154,154,154,153,149,32,149,32,149,32,149,32,149,32,32,147,154,153,32,32,32,147,154,153,32,32,147,153,32,147,154,154,154,154,154,153,32,147,154,153,32,147,154,153
1320 '---------------------
1330 'Data langage machine
1340 '---------------------
1350 DATA 21,64,00,22,D7,A3,21,1C,02,22,D9,A3,21,C8,00,22,DB,A3,22,DD,A3,CD,BC,A1,3E,00,32,E1,A3,32,E2,A3,3E,04,32,DF,A3,3E,03,32,E0,A3,DD,21,F4,A3,3E,32,DD,77,00,3E,00,DD,77,01,DD,77,03,3E,20,DD,77,02,DD,21,FC,A3,3E,FF,DD,77,00,3E,00,DD,77,01,DD,77
1360 DATA 03,3E,20,DD,77,02,3A,06,A5,32,EA,A3,3A,05,A5,FE,01,C2,72,A0,DD,21,F4,A3,CD,8C,A3,DD,21,FC,A3,CD,8C,A3,3A,35,B6,FE,40,C8,CD,CA,A0,3A,05,A5,47,3A,EB,A3,A0,FE,01,CC,43,A3,CD,A5,A0,3A,E1,A3,FE,01,CA,B9,A0,3A,E2,A3,FE,01,CA,B9,A0,3A,00,A5,47
1370 DATA CD,9B,A2,C3,72,A0,3A,EB,A3,FE,01,CA,B3,A0,3E,01,32,EB,A3,C9,3E,00,32,EB,A3,C9,3A,E1,A3,FE,01,CC,A6,A2,3A,E2,A3,FE,01,CC,EB,A2,C9,3A,3D,B6,FE,20,CC,02,A1,FE,80,CC,0E,A1,3A,3C,B6,FE,80,CC,1A,A1,FE,40,CC,26,A1,3A,37,B6,FE,08,CC,32,A1,FE,40,CC
1380 DATA 3E,A1,3A,38,B6,FE,40,CC,56,A1,FE,80,CC,4A,A1,CD,62,A1
1390 DATA C9,3A,DF,A3,FE,02,C8,3E,01,32,DF,A3,C9,3A,DF,A3,FE,01,C8,3E,02,32,DF,A3,C9,3A,DF,A3,FE,04,C8,3E,03,32,DF,A3,C9,3A,DF,A3,FE,03,C8,3E,04,32,DF,A3,C9,3A,E0,A3,FE,02,C8,3E,01,32,E0,A3,C9,3A,E0,A3,FE,01,C8,3E,02,32,E0,A3,C9,3A,E0,A3,FE,04,C8,3E
1400 DATA 03,32,E0,A3,C9,3A,E0,A3,FE,03,C8,3E,04,32,E0,A3,C9,2A,DB,A3,ED,5B,D7,A3,3A,DF,A3,FE,01,CC,B0,A1,FE,02,CC,B3,A1,FE,03,CC,B9,A1,FE,04,CC,B6,A1,22,DB,A3,ED,53,D7,A3,2A,DD,A3,ED,5B,D9,A3,3A,E0,A3,FE,01,CC,B0,A1,FE,02,CC,B3,A1,FE,03,CC,B9,A1
1410 DATA FE,04,CC,B6,A1,ED,53,D9,A3,22,DD,A3,CD,BC,A1,C9,23,23,C9,2B,2B,C9,13,13,C9,1B,1B,C9,2A,DB,A3,ED,5B,D7,A3,CD,F0,BB,FE,00,CA,D5,A1,FE,03,CA,0D,A2,3E,01,32,E1,A3,2A,DD,A3,ED,5B,D9,A3,CD,F0,BB,FE,00,CA,EE,A1,FE,03,CA,2D,A2,3E,01,32,E2,A3,3E,01
1420 DATA CD,DE,BB,2A,DB,A3,ED,5B,D7,A3,CD,EA,BB,3E,02,CD,DE
1430 DATA BB,2A,DD,A3,ED,5B,D9,A3,CD,EA,BB,C9,2A,D7,A3,CD,4D,A2,ED,5B,DB,A3,CD,62,A2,21,96,A4,CD,AA,BC,2A,01,A5,11,14,00,19,22,01,A5,C3,D5,A1,2A,D9,A3,CD,4D,A2,ED,5B,DD,A3,CD,62,A2,21,9F,A4,CD,AA,BC,2A,03,A5,11,14,00,19,22,03,A5,C3,EE,A1,CD,2C,A3,CD
1440 DATA 2C,A3,CD,2C,A3,CD,2C,A3,7D,3C,32,E8,A3,21,90,01,C9,ED,52,CD,2C,A3,CD,2C,A3,CD,2C,A3,CD,2C,A3,7D,3C,32,E9,A3,3E,01,CD,9F,BB,3E,00,CD,90,BB,3E,1F,CD,5A,BB,3A,E8,A3,CD,5A,BB,3A,E9,A3,CD,5A,BB,3E,E6,CD,5A,BB,3E,00,CD,9F,BB,C9,0E,FF,0D,C2,9D
1450 DATA A2,05,C2,9B,A2,C9,2A,D7,A3,CD,D8,A2,21,84,A4,DD,E5,CD,AA,BC,DD,E1,2A,DB,A3,CD,C7,A2,2A,03,A5,11,FA,00,19,22,03,A5,C9,CD,2C,A3,11,08,00,19,DD,75,02,DD,74,03,CD,0C,A3,C9,DD,21,EC,A3,11,08,00,CD,2C,A3,ED,52,DD,75,00,DD,74,01,C9,2A,D9,A3,CD,D8
1460 DATA A2,21,8D,A4,DD,E5,CD,AA,BC,DD,E1,2A,DD,A3,CD,C7,A2
1470 DATA 2A,01,A5,11,FA,00,19,22,01,A5,C9,3E,0A,32,E7,A3,CD,8C,A3,06,30,CD,9B,A2,CD,8C,A3,06,30,CD,9B,A2,3A,E7,A3,3D,32,E7,A3,C2,11,A3,C9,CB,44,CA,3A,A3,CB,1C,CB,BC,CB,1D,CB,FD,C9,CB,1C,CB,BC,CB,1D,CB,BD,C9,DD,21,F4,A3,CD,8C,A3,DD,7E,02,FE,C8,CC,79
1480 DATA A3,FE,20,CC,85,A3,3A,EA,A3,DD,46,02,80,DD,77,02,CD,8C,A3,DD,21,FC,A3,CD,8C,A3,3A,EA,A3,DD,46,02,80,DD,77,02,CD,8C,A3,C9,3A,06,A5,47,3E,FF,98,3C,32,EA,A3,C9,3A,06,A5,32,EA,A3,C9,DD,5E,00,DD,56,01,DD,6E,02,26,00,CD,1D,BC,22,E3,A3,DD,5E,06
1490 DATA DD,56,07,DD,7E,05,32,E5,A3,3E,08,32,E6,A3,DD,46,04,1A,4E,A9,77,23,13,10,F8,2A,E3,A3,CD,26,BC,22,E3,A3,3A,E6,A3,3D,32,E6,A3,C2,AE,A3,3A,E5,A3,3D,32,E5,A3,C2,A9,A3,C9,D2,01,2E,02,C8,00,18,01,04,03,00,01,C3,DA,00,00,00,14,0D,04,01,0F,01,94,00
1500 DATA 04,02,04,A4,32,00,3C,00,04,02,44,A4,FF,00,3C,00,04
1510 DATA 02,44,A4,00,00,40,00,41,50,00,00,21,00,48,48,20,41,01,00,10,4B,1E,40,11,1E,4F,90,50,7F,1E,48,30,35,DE,08,C2,3F,AF,5A,30,4F,BF,08,20,0F,3E,48,10,92,4A,00,20,10,58,40,20,20,28,00,40,80,20,40,00,00,00,00,00,18,01,00,00,04,80,08,70,70,E0,28,00
1520 DATA 87,1E,10,14,2D,87,A0,29,5A,4B,48,21,A5,A5,49,61,5A,5A,4A,A1,A5,A5,48,21,5A,5A,58,25,2D,A5,68,18,1E,4B,80,00,87,1E,08,00,70,E0,06,00,81,20,00,00,40,18,00,01,01,02,50,00,00,00,00,00,02,01,02,64,00,00,00,00,00,01,00,01,50,00,00,0F,32,00,02
1530 DATA 00,01,64,00,00,0F,32
-coam1 -4mstr4d -j4tar1 -cocbm1
-0r1c -sp3zy -m3s3x -m4c

Avatar de Usuario
Diegodel82
Mensajes: 148
Registrado: 27 Mar 2021 08:58
Agradecido : 32 veces
Agradecimiento recibido: 33 veces

Re: PROGRAMILLAS BASIC

Mensajepor Diegodel82 » 03 Feb 2023 14:33

cpcbegin escribió:Yo me hice un [url=https://gitlab.com/cpcbegin/8bitdiskmenu]programa para elegir los programas del disquete.


Gracias, es el que yo uso en muchos de mis disquetes recopilatorios.
-4mstr4d -codrg1 -cbmja -m3s3x -j4tar1 -0r1c -sp3zy -coam1 -m4c


Volver a “Software CPC”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado