10 PRINT TAB(32);"AHORCADO" 20 PRINT TAB(15);"POR FAVOR USA MAYUSCULAS" 25 PRINT:PRINT:PRINT 30 DIM P$(12,12),L$(20),D$(20),N$(26),U(50) 40 C=1: N=50 50 FOR I=1 TO 20: D$(I)="-": NEXT I: M=0 60 FOR I=1 TO 26: N$(I)="": NEXT I 70 FOR I=1 TO 12: FOR J=1 TO 12: P$(I,J)=" ": NEXT J: NEXT I 80 FOR I=1 TO 12: P$(I,1)="X": NEXT I 90 FOR I=1 TO 7: P$(1,I)="X": NEXT: P$(2,7)="X" 95 IF C10 THEN 170 600 PRINT "LO SIENTO, HAS PERDIDO. LA PALABRA ERA ";A$ 610 PRINT "fALLASTE ESA. DESEAS ";: GOTO 370 620 INPUT "TIPEA SI OR NO";Y$: IF LEFT$(Y$,1)="Y" THEN 50 700 DATA "VIA","","PJ","TREN","SOY","","CGT" 710 DATA "NOXA","MASA","VIDA","PESO","VOTO","CASA","RASTROJERO" 720 DATA "SUELDO","ACTUAR","PERON","MANDAR","BRADEN","AVION","NUCLEAR" 730 DATA "EVITA","JIRONES","GORILA","FEMENINO","MEDALLA","PELOTA" 740 DATA "PENDULAR","FREJULI","DESCAMISADO","REVOLUCION","QUINQUENAL","CONDUCIR" 750 DATA "AGUINALDO","VACACIONES","PRESIDENTE","SOCIALISMO","NACIONAL" 760 DATA "NACIONAL","PRIVILEGIADO","EDUCACION","TRABAJO","SINDICATO" 770 DATA "MONTONEROS","ORGANIZACION","CONDUCCION","CONSTITUCION" 780 DATA "MOVILIZACION","MAGNETOFONO","MOTONETA","JUSTICIALISTA","REIVINDICACIONES" 990 PRINT "VIVA PERON!" 999 END