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:Letter Better
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2014 (NOMAM 2014)
-
Year:2014
Listing 1
0 P=B=%0:DIM A$(1),B$(1):D=100 1 GRAPHICS 18:POSITION 4,2:? #6;"NOMAM 2014":POSITION 3,3:? #6;"letter better":POSITION 6,10:? #6;"by Sikor":POSITION 4,5:? #6;"Press " 2 IF (PEEK(53279)<>6):GOTO 2:ENDIF:? #6;CHR$(125):FOR I=%0 TO 19:POSITION I,1:? #6;"_":POSITION I,10:? #6;"":NEXT I:P=%0:POSITION 1,11 3 ? #6;"score:";P:POSITION 11,11:? #6;"best:";B:POSITION 3,0:? #6;"" 4 A$=CHR$(RAND(26)+65):X=RAND(20):Y=2:POSITION X,Y:? #6;A$:TIME$= "000001" 5 B$=INKEY$:IF B$=A$:P=P+%1:POSITION 7,11:? #6;P:POSITION X,Y:? #6;" ":D=D-1:IF D<5:D=5:ENDIF:GOTO 4:ENDIF 6 IF ((TIME MOD D)=0):POSITION X,Y:? #6;" ":Y=Y+1:POSITION X,Y:? #6;A$:ENDIF 7 IF Y>9:? #6;CHR$(125):POSITION 5,5:? #6;"TRY AGAIN!":D=100:PAUSE 200:IF P>B:B=P:ENDIF:GOTO 1:ENDIF 8 GOTO 5
References
Downloads
Downloads
Copyright holder