Herramientas de usuario

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Próxima revisión
Revisión previa
ahorcado.bas [2021/12/14 17:18] – creado peronahorcado.bas [2026/04/21 16:05] (actual) – editor externo 127.0.0.1
Línea 1: Línea 1:
-<code basic>+<code freebasic ahorcado.bas>
 10 PRINT TAB(32);"AHORCADO" 10 PRINT TAB(32);"AHORCADO"
-20 PRINT TAB(15);"UBUNTU PERONISTA"+20 PRINT TAB(15);"POR FAVOR USA MAYUSCULAS"
 25 PRINT:PRINT:PRINT 25 PRINT:PRINT:PRINT
 30 DIM P$(12,12),L$(20),D$(20),N$(26),U(50) 30 DIM P$(12,12),L$(20),D$(20),N$(26),U(50)
Línea 21: Línea 21:
 190 PRINT ",";: NEXT I 190 PRINT ",";: NEXT I
 200 PRINT: PRINT: FOR I=1 TO L: PRINT D$(I);: NEXT I: PRINT: PRINT 200 PRINT: PRINT: FOR I=1 TO L: PRINT D$(I);: NEXT I: PRINT: PRINT
-210 INPUT "QUE QUIERES ARRIESGAR?";G$: R=0+210 INPUT "QUE LETRA QUIERES ARRIESGAR?";G$: R=0
 220 FOR I=1 TO 26: IF N$(I)="" THEN 250 220 FOR I=1 TO 26: IF N$(I)="" THEN 250
 230 IF G$=N$(I) THEN PRINT "YA ARRIESGASTE DICHA LETRA ANTES!": GOTO 170 230 IF G$=N$(I) THEN PRINT "YA ARRIESGASTE DICHA LETRA ANTES!": GOTO 170
Línea 34: Línea 34:
 310 NEXT I: GOTO 390 310 NEXT I: GOTO 390
 320 PRINT: FOR I=1 TO L: PRINT D$(I);: NEXT I: PRINT: PRINT 320 PRINT: FOR I=1 TO L: PRINT D$(I);: NEXT I: PRINT: PRINT
-330 INPUT "CUAL ES TU INTENTO PARA LA PALABRA";B$+330 INPUT "INGRESA LA PALABRA SI DESEAS ARRIESGAR";B$
 340 IF A$=B$ THEN 360 340 IF A$=B$ THEN 360
 350 PRINT "EQUIVOCADO.  INTENTA OTRA LETRA.": PRINT: GOTO 170 350 PRINT "EQUIVOCADO.  INTENTA OTRA LETRA.": PRINT: GOTO 170
Línea 70: Línea 70:
 610 PRINT "fALLASTE ESA.  DESEAS ";: GOTO 370 610 PRINT "fALLASTE ESA.  DESEAS ";: GOTO 370
 620 INPUT "TIPEA SI OR NO";Y$: IF LEFT$(Y$,1)="Y" THEN 50 620 INPUT "TIPEA SI OR NO";Y$: IF LEFT$(Y$,1)="Y" THEN 50
-700 DATA "CGT","","PJ","TREN","TELEFONOS","","BARCOS"+700 DATA "VIA","","PJ","TREN","SOY","","CGT"
 710 DATA "NOXA","MASA","VIDA","PESO","VOTO","CASA","RASTROJERO" 710 DATA "NOXA","MASA","VIDA","PESO","VOTO","CASA","RASTROJERO"
 720 DATA "SUELDO","ACTUAR","PERON","MANDAR","BRADEN","AVION","NUCLEAR" 720 DATA "SUELDO","ACTUAR","PERON","MANDAR","BRADEN","AVION","NUCLEAR"
 730 DATA "EVITA","JIRONES","GORILA","FEMENINO","MEDALLA","PELOTA" 730 DATA "EVITA","JIRONES","GORILA","FEMENINO","MEDALLA","PELOTA"
-740 DATA "PENDULAR","TENSION","DESCAMISADO","REVOLUCION","QUINQUENAL","CONDUCIR"+740 DATA "PENDULAR","FREJULI","DESCAMISADO","REVOLUCION","QUINQUENAL","CONDUCIR"
 750 DATA "AGUINALDO","VACACIONES","PRESIDENTE","SOCIALISMO","NACIONAL" 750 DATA "AGUINALDO","VACACIONES","PRESIDENTE","SOCIALISMO","NACIONAL"
 760 DATA "NACIONAL","PRIVILEGIADO","EDUCACION","TRABAJO","SINDICATO" 760 DATA "NACIONAL","PRIVILEGIADO","EDUCACION","TRABAJO","SINDICATO"

Este sitio web utiliza cookies para guardar datos esenciales de su actividad, como su autenticación. Al entrar acepta el uso de cookies.

Más información