This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Hangman
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
-
Year:1980
Listing 1
100 DIM M$(40),OUT$(40),TEMP$(40),A$(1),X$(1)
110 POKE 82,0:REM SET LEFT MARGIN
120 OPEN #1,4,0,"K"
150 GRAPHICS 1+16:SETCOLOR 2,8,8:SETCOLOR 1,0,0
152 POSITION 3,2:? #6;"FAMOUS SAYINGS";
155 POSITION 6,3:? #6;"HANGMAN";
157 POSITION 3,9:? #6;" ";:POSITION 3,13:? #6;"";
159 FOR I=1 TO 500:NEXT I
170 ? #6;" THIS IS A HANGMAN GAME WITH FAMOUS SAYINGS FOR YOU TO GUESS.":? #6
171 FOR I=1 TO 1000:NEXT I
172 ? #6;" ":? #6
174 FOR I=1 TO 1000:NEXT I
175 ? #6;" ";
176 ? #6;" ":? #6:? #6;" "
178 FOR I=1 TO 1000:NEXT I:GRAPHICS 1+32
179 ? "PRESS ANY KEY TO START";
181 POKE 764,255:GET #1,A
185 ? " Guess what the dashes mean."
187 FOR I=1 TO 300:NEXT I
190 N=5+INT(111*RND(0))
192 E=0:PHRASE=PHRASE+1:POKE 752,1
195 ? #6;"":GOSUB 800:GOSUB 1030
255 RESTORE 1995+N*5
260 READ M$
265 N=N-1:IF N<0 THEN N=115
268 L=LEN(M$)
270 FOR I=1 TO L:A$="-":X$=CHR$(ASC(M$(I))-128):M$(I,I)=X$
272 IF X$<"0" OR X$>"Z" THEN A$=X$
274 OUT$(I)=A$:NEXT I
280 ?:?:?:?:POKE 656,0:? " ";OUT$
300 POKE 656,1:POKE 657,30:? "GUESS ?";
303 GET #1,A:A$=CHR$(A)
306 IF A$<"0" OR A$>"Z" THEN 303
320 IF A$<"A" THEN A=A+43
325 A=A-65
330 I=INT(A/6):A=A-6*I:LOCATE 13+A,9+I,J
335 IF J=ASC(A$) THEN ?:? "You have used that letter before.";:GOTO 303
340 GOSUB 900
355 POKE 656,1:? ""
360 J=0:FOR I=1 TO L
365 IF M$(I,I)=A$ THEN J=1:OUT$(I,I)=A$
370 NEXT I:IF J THEN 450
375 E=E+1
380 ON E GOTO 1042,1055,1065,1075,1085,1094
385 SOUND 0,200,12,8:FOR I=1 TO 100:NEXT I:SOUND 0,0,0,0
407 IF E=6 THEN 570
410 GOTO 280
450 ? "* * * H I T * * *"
465 J=1:FOR I=1 TO L:IF OUT$(I,I)="-" THEN J=0
470 NEXT I:IF J THEN 480
475 ?:?:?:GOTO 280
480 ? "Y O U G O T I T !":CORRECT=CORRECT+6-E:POSITION 15,5:? #6;CORRECT:GOTO 600
570 ? " Sorry, you're hung! The phrase was:":? " ";M$
580 FOR I=10 TO 250 STEP 2:SOUND 0,I,10,8:SOUND 1,250-I,10,8:SOUND 2,RND(0)*255,10,8:NEXT I
590 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0
600 FOR I=1 TO 500:NEXT I
620 ? " Press '' to stop; to continue";
625 POKE 764,255:GET #1,A
630 IF A<>ASC("S") THEN 192
635 GRAPHICS 0:POKE 764,255:TRAP 40000:CLR:GRAPHICS 0:END
795 REM USED LETTER BOARD
800 POSITION 14,7:? #6;"used";:POSITION 13,8:? #6;"letter";
802 POSITION 13,1:? #6;"";:POSITION 15,2:? #6;PHRASE:POSITION 13,4:? #6;"";:POSITION 15,5:? #6;CORRECT
805 POSITION 13,9:? #6;"";
810 POSITION 13,10:? #6;"";
815 POSITION 13,11:? #6;"";
820 POSITION 13,12:? #6;"";
825 POSITION 13,13:? #6;"";
830 POSITION 13,14:? #6;"";
835 RETURN
895 REM MARK USED LETTERS
900 A=ASC(A$):IF A$<"A" THEN A=A+43
905 A=A-65
910 I=INT(A/6):A=A-6*I:POSITION 13+A,9+I:? #6;A$
915 RETURN
1030 COLOR ASC("#"):PLOT 6,1:PLOT 6,0:DRAWTO 0,0:DRAWTO 0,19:DRAWTO 10,19:RETURN
1042 POSITION 5,2:? #6;"/ \";:POSITION 4,3:? #6;"()";:POSITION 5,4:? #6;"\/";:GOTO 385
1055 COLOR ASC(""):PLOT 6,5:DRAWTO 6,10:GOTO 385
1065 COLOR ASC("/"):PLOT 7,6:DRAWTO 9,4:E=E+1
1075 COLOR ASC("\"):PLOT 5,6:DRAWTO 3,4:GOTO 385
1085 COLOR ASC(""):PLOT 7,11:DRAWTO 9,13:GOTO 385
1094 COLOR ASC(""):PLOT 5,11:DRAWTO 3,13:GOTO 385
2000 DATA
2005 DATA
2010 DATA
2015 DATA
2020 DATA
2025 DATA
2030 DATA
2035 DATA
2040 DATA
2045 DATA
2050 DATA
2055 DATA
2060 DATA
2065 DATA
2070 DATA
2075 DATA
2080 DATA
2085 DATA
2090 DATA
2095 DATA
2100 DATA
2105 DATA
2110 DATA
2115 DATA
2120 DATA
2125 DATA
2130 DATA
2135 DATA
2140 DATA
2145 DATA
2150 DATA
2155 DATA
2160 DATA
2165 DATA
2170 DATA
2175 DATA
2180 DATA
2185 DATA
2190 DATA
2195 DATA
2200 DATA
2205 DATA
2210 DATA
2215 DATA
2220 DATA
2225 DATA
2230 DATA
2235 DATA
2240 DATA
2245 DATA
2250 DATA
2255 DATA
2260 DATA
2265 DATA
2270 DATA
2275 DATA
2280 DATA
2285 DATA
2290 DATA
2295 DATA
2300 DATA
2305 DATA
2310 DATA
2315 DATA
2320 DATA
2325 DATA
2330 DATA
2335 DATA
2340 DATA
2345 DATA
2350 DATA
2355 DATA
2360 DATA
2365 DATA
2370 DATA
2375 DATA
2380 DATA
2385 DATA
2390 DATA
2395 DATA
2400 DATA
2405 DATA
2410 DATA
2415 DATA
2420 DATA
2425 DATA
2430 DATA
2435 DATA
2440 DATA
2445 DATA
2450 DATA
2455 DATA
2460 DATA
2465 DATA
2470 DATA
2475 DATA
2480 DATA
2485 DATA
2490 DATA
2495 DATA
2500 DATA
2505 DATA
2510 DATA
2515 DATA
2520 DATA
2525 DATA
2530 DATA
2535 DATA
2540 DATA
2545 DATA
2550 DATA
2555 DATA
2560 DATA
2565 DATA
2570 DATA
References
Listing downloads
Downloads
Copyright holder