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:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
10 DIM B$(10),C$(10),D$(1),S$(26):NL=5:WD=13:C$="..........":S$="":I=INT(RND(0)*WD):FOR A=1 TO I:READ B$:NEXT A 20 GRAPHICS 1:POSITION 0,0:BL=LEN(B$):FOR A=1 TO BL:? #6;C$(A,A);:NEXT A:POSITION 13,0:? #6;"lives:";NL 30 IF C$(1,BL)=B$ THEN POSITION 0,5:? #6;"":FOR A=1 TO 2500:NEXT A:RUN 40 POSITION 0,8:? #6;"so far: ";S$:? "GUESS LETTER ":INPUT D$:IF D$="" THEN GOTO 40 50 OK=0:FOR A=1 TO LEN(B$) 60 IF B$(A,A)=D$ THEN C$(A,A)=D$:OK=1 70 NEXT A:IF OK=0 THEN NL=NL-1 80 IF NL<1 THEN POSITION 0,5:? #6;"":FOR A=1 TO 2500:NEXT A:RUN 90 S$(LEN(S$)+1)=D$:GOTO 20 100 DATA LAPTOP,CHAIR,COFFEE,TRAINER,JAGUAR,DATABASE,BANANA,POTATO,XLYOPHONE,PARADIGM,SHARK,TURQUOISE,CHOCOLATE
References
Downloads
Downloads
Copyright holder