Autor Tema: Programa de INPUT (Peticion de algunos usuarios)  (Leído 636 veces)

cemanuel

  • Sinver
  • *
  • Mensajes: 5
  • SYS 0
    • Ver Perfil
Programa de INPUT (Peticion de algunos usuarios)
« en: Octubre 12, 2019, 20:11:32 »
Commodoremaniacos, me pidieron que publicase mis programas (si yo queria) para que el resto pueda disfrutarlos... Teniendo en cuenta que la maquina commodore no hace clear. (al menos no se como hacerlo yo) les dejo el codigo. Creo recordar que el de sonido "beep" que hace uno de mis programas lo copie de aqui para probar, aunque es verdad que con 21 years (si, me falta la peineta, porque uso el teclado que naturalmente usa el commodore, supongo) no voy a decir "anos" (queda feo) pero bueno lo dicho dicho queda

ejemplos (recalco una cosa, mezclar codigo puede generar multiples programas en una sola aplicacion)

Citar

10 INPUT A$
20 PRINT
30 PRINT "ALGUIEN DIJO: ";A$
40 PRINT
50 GOTO 10


EXPLICO EL ANTERIOR PARA QUE LO ENTENDAIS

Citar

10 INPUT A$     : PREGUNTA AL USUARIO PARA QUE ESCRIBA ALGO
20 PRINT          : ES UN ESPACIO EN BLANCO
30 PRINT "ALGUIEN DIJO: ";A$       : TEXTO + VALOR A$
40 PRINT         : ES UN ESPACIO EN BLANCO
50 GOTO 10     : (PUEDES PONERLO SI QUIERES, PERO OS RECUERDO QUE ES IMPOSIBLE ROMPER LA CADENA UNA VEZ EJECUTADO CON "RUN")


OTRO PERO CON VARIABLES MULTIPLES

Citar

10 PRINT "ESCRIBE TU NOMBRE:"
20 INPUT A$
30 PRINT "ESCRIBE EL MENSAJE:"
40 INPUT B$
50 PRINT
60 PRINT B$;" HA DICHO: ";A$
70 PRINT
80 GOTO 10



Citar

10 PRINT "ESCRIBE TU NOMBRE:"   : IMPRIME UN MENSAJE
20 INPUT A$                                    : LE SIGUE UNA PETICION DE TEXTO PARA QUE ESCRIBA ALGO
30 PRINT "ESCRIBE EL MENSAJE:"   : OTRO MENSAJE IMPRIMIDO
40 INPUT B$                                    : ESTA PETICION DE TEXTO ES TAMBIEN PARA QUE ESCRIBA ALGO
50 PRINT                                         : ES UN ESPACIO EN BLANCO
60 PRINT A$;" HA DICHO: ";B$       : EL RESULTADO DE A$ (NOMBRE) + MENSAJE IMPRESO + EL DATO B$
70 PRINT                                        : ESPACIO EN BLANCO
80 GOTO 10                                   : (RECALCO: ANTES DE EJECUTAR GUARDAR LOS DATOS O APUNTARLOS, DEBIDO A QUE UNA VEZ HECHO EL PROGRAMA Y HACER "RUN" ESTE NO PARA Y TIENES QUE REINICIAR LA MAQUINA)


ESTO LO HAGO POR EL AMOR A LO RETRO, Y DISCULPEN MI INACTIVIDAD, ESTUVE INGRESADO EN UN HOSPITAL. ESPERO NO OS HAYA MOLESTADO MI DEMORA AL PUBLICAR ESTOS PROGRAMAS.

*RECALCO (JUNTAR VARIOS PROGRAMAS PUEDE TENER O BUENAS O MALAS CONSECUENCIAS SEGUN QUE JUNTAS Y QUE NO) PERO OS DIGO QUE SOY MUY MALO HACIENDO SPRITES, SI VIERAIS LA MIERDIS QUE ME SALIO AL INTENTAR HACER UN FANTASMA, AL FINAL HICE UNO MAS HORROROSO, LE LLAMO "LA CHUPACABRAS" ES FEISIMO. DE VERDAD..


Y HASTA AQUI LLEGO... GRACIAS POR LEER

mjj

  • Commodore Master
  • *****
  • Mensajes: 431
  • SYS 0
    • Ver Perfil
Re:Programa de INPUT (Peticion de algunos usuarios)
« Respuesta #1 en: Octubre 13, 2019, 11:23:51 »
que la maquina commodore no hace clear. (al menos no se como hacerlo yo) les dejo el codigo. Creo recordar que

Prueba con:

Código: [Seleccionar]
5 PRINT"[SHIFT][CLR/HOME]"

(al pulsar SHIFT + CLR/HOME te tiene que salir un corazón invertido)

Te paso uno de mis programas favoritos en BASIC, está sacado de una revista de 1983. No te digo lo que hace, lo tendrás que probar ;)

Código: [Seleccionar]
10 PRINT CHR$(205.5+RND(1));
20 GOTO 10

javierglez

  • Commodoremaníaco
  • ****
  • Mensajes: 195
  • terminator not seen
    • Ver Perfil
Re:Programa de INPUT (Peticion de algunos usuarios)
« Respuesta #2 en: Octubre 13, 2019, 15:49:22 »
Te paso uno de mis programas favoritos en BASIC, está sacado de una revista de 1983. No te digo lo que hace, lo tendrás que probar ;)

Código: [Seleccionar]
10 PRINT CHR$(205.5+RND(1));
20 GOTO 10

 A mi ese programa me gusta mas como

10 IF RND(1)<0.5 THEN PRINT"/";: GOTO 10
20 PRINT "\";: GOTO10

Asi vale en más versiones de BASIC