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; �<