Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » hangman
hangman
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav |
| Filename: | hangman |
| Read OK: | ✔ |
| File size: | 07D6 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 COLOR0,3,3:COLOR4,7,4 :VOL8:PRINT"<yellow>";
20 FORI=1TO40:CC$=CC$+"<cursor right>":NEXT:FORI=1TO25:RR$=RR$+"<cursor down>":NEXT:N=73:GOSUB340
30 DIMW$(N):FORI=0TON:READW$(I):NEXT
40 SCNCLR:M$="<reverse on>HANG MAN<rev off>":PRINTTAB((40-LEN(M$))/2);M$:LC=0
50 PRINTLEFT$(RR$,23);SPC(17);"<reverse on>SCORE <rev off>";SC;
60 W=INT(RND(1)*N):W$=W$(W):LE=LEN(W$):PE=(40-LE)/2:LV=10
70 PRINT"<home>";LEFT$(RR$,20);
80 PRINTSPC(PE);:FORI=1TOLE:PRINT"-";:NEXT:CN=0:PT$="00000000000000000000000"
90 F=0:GETKEYA$
100 IFA$<"A"ORA$>"Z"THENGOTO90
110 PRINT"<home>";LEFT$(RR$,19);:F=0
120 FORI=1TOLE:L$=MID$(W$,I,1):IFL$=A$THENIFMID$(PT$,I,1)<>"1"THENGOSUB300
130 NEXT
140 IFCN=LE THENGOSUB290:GOTO40
150 IFF=0THENGOSUB170
160 GOTO90
170 IFLC=10THENGOSUB310:GOTO40
180 LC=LC+1:LV=LV-1
190 IFLC=1THENPRINT"<home>";LEFT$(RR$,16);SPC(14);Y$(1);:SOUND2,7,7:RETURN
200 IFLC=2THENPRINT"<home>";LEFT$(RR$,15);SPC(19);Y$(2);:SOUND2,9,8:RETURN
210 IFLC=3THENPRINT"<home>";LEFT$(RR$,3);SPC(19);Y$(3);:SOUND1,5,5:RETURN
220 IFLC=4THENPRINT"<home>";LEFT$(RR$,3);SPC(26);Y$(4);:SOUND2,6,5:RETURN
230 IFLC=5THENPRINT"<home>";LEFT$(RR$,6);SPC(25);Y$(5);:SOUND2,5,6:RETURN
240 IFLC=6THENPRINT"<home>";LEFT$(RR$,8);SPC(26);Y$(6);:SOUND1,8,8:RETURN
250 IFLC=7THENPRINT"<home>";LEFT$(RR$,9);SPC(24);Y$(7);:SOUND1,6,9:RETURN
260 IFLC=8THENPRINT"<home>";LEFT$(RR$,9);SPC(27);Y$(8);:SOUND1,6,6:RETURN
270 IFLC=9THENPRINT"<home>";LEFT$(RR$,12);SPC(26);Y$(9);:SOUND1,6,6:RETURN
280 IFLC=10THENPRINT"<home>";LEFT$(RR$,12);SPC(26);Y$(10);:SOUND2,7,6:RETURN
290 PRINT"<home>";"<flash on>GOOD GUESS<flash off>";:FORI=1TO100:GETA$:NEXT:SC=SC+LV:RETURN
300 POKE202,0:PRINTSPC(PE+I-1);L$;:F=1:CN=CN+1:MID$(PT$,I,1)="1":RETURN
310 PRINT"<home>";LEFT$(RR$,18);
320 K$="<flash on><reverse on>THE WORD WAS "+W$+"<flash off><rev off>":KE=LEN(K$):TA=(40-KE)/2:PRINTSPC(TA);K$;
330 FORI=1TO50:GETA$:SOUND1,5,6:SOUND2,9,2:NEXT:RETURN
340 Y$(1)="▂▃▄▒▒▒▒▒▄▃▂"
350 Y$(2)="▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor up><cursor left>▒<cursor left><cursor up>▒<cursor left><cursor up>▒"
360 Y$(3)="▒▒▒▒▒▒▒▒"
370 Y$(4)="▒<cursor down><cursor left>▒<cursor down><cursor left>▒"
380 Y$(5)="🭽🮂🭾<cursor down><cursor left><cursor left><cursor left>🭼▂🭿"
390 Y$(6)="<reverse on> <cursor down><cursor left> <cursor down><cursor left> <cursor down><cursor left> <rev off>"
400 Y$(7)="<reverse on> <rev off>"
410 Y$(8)="<reverse on> <rev off>"
420 Y$(9)="<reverse on> <cursor left><cursor left><cursor down> <cursor left><cursor left><cursor down> <cursor left><cursor left><cursor down><rev off>"
430 Y$(10)="<reverse on> <cursor down> <cursor down> <rev off>"
440 RETURN
450 DATA DOOR,HOUSE,WALL,BRICK,RETURN,COMPUTER
460 DATA TABLE,KEY,CHAIR,POWER,CURTAIN,CASSETTE,TAPE,COLOR,DATA,STABLE,RUN
470 DATA RECORD,SUPPLY,DEMAND,TREASURE,TITANIC,MELBOURNE,PERTH,ECONOMIC
480 DATA CALCULATOR,HELP,HEAD,HIGH,BATTLE,BEEF,BECAUSE,EAT,EEL,ETCH,GOLD
490 DATA GATE,GET,JUMP,JUSTICE,JAIL,KILL,KEEPER,LOOK,LEACH,KENNEDY,MORRISON
500 DATA ZEBRA,TEETH,UNIVERSITY,ZOO,CUPBOARD,PERCEPTION,CLARITY,FENCE,VENTILATOR
510 DATA SWITCH,LIGHT,PAPER,PLATE,BRACKET,BUTTON,MACHINE,CURSOR,PLUG
520 DATA CARPET,BAG,RING,LORD,STAR,STATISTICS,CHIP,INTERGRATE,BOTTLE
�0,3,3:�4,7,4 :�8:�"�"; W �I�1�40:CC$�CC$�"":�:�I�1�25:RR$�RR$�"":�:N�73:�340 r �W$(N):�I�0�N:�W$(I):� �( �:M$�"HANG MAN�":��(40��(M$))�2);M$:LC�0 �2 ��(RR$,23);�17);"SCORE �";SC; �<