10 '········· Consalvi Software ·········
20 '············ L'Impiccato ············
30 CLS:LINE(20,3)-(219,60),1,B:G$=CHR$(27)+"p":H$=CHR$(27)+"q"
40 PRINT@55,"L'impiccato
50 PRINT@128,"Premi (I) per istruzioni
60 PRINT@210,"Premi (G) per giocare "
70 I$=INKEY$:IFI$="G"ORI$="g"THEN100
80 IFI$="I"ORI$="i"THEN630
90 GOTO70
100 GOSUB690:PRINT@55,"L'IMPICCATO"
110 PRINT@121,"Scegli un livello di difficolta  (5/8)"
120 I$=INKEY$:IFI$=""THEN120
130 D=VAL(I$)
140 IFD<5ORD>8THEN120
150 PRINT@201,"Premi (1) se vuoi giocare contro di me"
160 PRINT@241,"Premi (2) se vuoi giocare con un'altro"
170 K$=INKEY$:IFK$="1"THEN200
180 IFK$="2"THEN710
190 GOTO170
200 CLS:RESTORE
210 N=VAL(RIGHT$(TIME$,2))
220 FORI=1TON:READW$:NEXTI
230 LINE(3,3)-(236,60),1,B:LINE(3,20)-(62,3),1,B:LINE(5,18)-(60,5),1,BF:PRINT@54,"L'impiccato";:LINE(170,3)-(236,20),1,B:LINE(172,5)-(234,18),1,BF
240 T$=LEFT$("..........",LEN(W$))
250 P=11-D
260 AF$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
270 PRINTG$;:PRINT@41,"Prove";P;
280 PRINT@69+INT((11-LEN(T$))/2),T$:PRINTH$;
290 PRINT@128,"Lettere che puoi provare"
300 PRINT@200+((40-LEN(AF$))/2),AF$
310 L$=INKEY$:IFL$=""THEN310
320 FORI=1TOLEN(AF$)
330 IFMID$(AF$,I,1)=L$THENAF$=MID$(AF$,1,I-1)+MID$(AF$,I+1):GOTO360
340 NEXTI
350 PRINT@6*40+11,"Lettera gi{ scelta";:SOUND15000,30:FORA=1TO700:NEXT:PRINT@6*40+11,"                   ";:GOTO310
360 F=0:FORI=1TOLEN(W$)
370 IFMID$(W$,I,1)=L$THENF=1:BEEP:T$=MID$(T$,1,I-1)+L$+MID$(T$,I+1)
380 NEXTI
390 IFT$=W$THEN440
400 IFF=0THENSOUND1000,2:P=P-1
410 IFP>0THENPRINT@204,"                             ":GOTO270
420 CLS:GOSUB690:PRINT@49,"Mi dispiace ! Hai perso !"
430 GOTO450
440 CLS:GOSUB690:PRINT@49,"Bravissimo ! Hai vinto !"
450 FORI=1TO2:SOUND5000,25:SOUND10000,25:NEXTI:PRINT@120+((40-(LEN(W$)+21))/2),"Infatti la parola era ";W$;
460 PRINT@209,"Vuoi continuare ? (s/n)
470 I$=INKEY$:IFI$="S"ORI$="s"THENGOTO100
480 IFI$="N"ORI$="n"THENMENU
490 GOTO470
500 DATAALTEZZA,PEDIATRIA,POSACENERE,RADIOLINA,LIBRETTI
510 DATASCATOLE,ROMANZO,SCOLASTICO,LAMPADINA,MATITE
520 DATAMANUALE,MANOVALE,SCRIVANIA,FREDDO,PORTAPENNE
530 DATABATTERIE,TRASFORMA,VISIONE,POTENZA,FORZUTO
540 DATACOMANDO,REGISTRARE,COMPUTER,CALCOLATA,CALCOLANTE
550 DATAFERROVIA,BOTTIGLIA,BAMBOLA,BAMBOLOTTO,UCCELLINO
560 DATACARTONE,CONTAGIRI,CHILOMETRO,PULSANTE,INCHIODATE
570 DATASTEREO,LAMPADINE,MIGLIORE,ACCENDINO,CROCIFISSO
580 DATASEGGIOLINO,QUADERNO,VETRINA,SALOTTO,SALONE
590 DATACASSETTI,BORSELLO,CILIEGINE,PENNACCHI,ADESIVI
600 DATAGONIOMETRO,SQUADRETTA,AGENDINE,PUNTELLI,RIGHELLO
610 DATAFORNELLINO,FORMETTA,ANTENNA,MAPPAMONDO,OCCHIALI
620 DATAGAROFANI,COMPETENTE,BALLETTI,ISTITUTO
630 CLS:PRINT"Devi cercare in un determinato numero di"
640 PRINT"prove di indovinare una parola che io ho"
650 PRINT"scelto per te. Cerca di trovarla, ciao !"
660 PRINT@249,"Premi un tasto ..."
670 U$=INKEY$:IFU$=""THEN670
680 GOTO30
690 CLS:LINE(3,3)-(236,60),1,B
700 RETURN
710 GOSUB690
720 PRINT@55,"L'IMPICCATO";
730 PRINT@161,"Inserisci la parola ";:INPUTW$
740 IFLEN(W$)>10ORLEN(W$)<1THENBEEP:PRINT@241,"Hai commesso un errore nella lunghezza":FORI=1TO500:NEXT:GOTO710
750 CLS:GOTO230