Coś jakby wstępniak...
O mnie
Moja twórczość
Artykuły
Galeria fotek
Download
Linki
Księga gości
Kontakt
    
    

"Literki" - Turbo Basix XL


Poniżej przedstawiam prostą grę napisaną w Atari Basic'u pt. "Literki". Na ekranie pojawiają się litery, a my musimy jak najszybciej nacisnąć odpowiedni klawisz.

1 REM ------------------
2 REM :    LITERKI     :
3 REM :  (C) GRZYBSON  :
4 REM ------------------
10 DIM O$(1)
15 PKT=0:R=20
20 GRAPHICS 2:? #6;"       LITERKI"
30 ? "PRESS ANY KEY"
40 IF PEEK(764)=255 THEN 40
60 FOR A=1 TO R:GRAPHICS 0
70 X=INT(RND(0)*39)+1
80 Y=INT(RND(0)*23)+1
90 LITERA=INT(RND(1)*26)+65
100 POSITION X,Y:? CHR$(LITERA)
110 FOR CZ=1 TO 69
120 IF PEEK(764)255 THEN OPEN #5,4,0,"K:":GET #5,KOD
    :CLOSE #5
130 IF KOD=LITERA THEN PKT=PKT+1:GOTO 150
140 NEXT CZ
150 NEXT A
160 GRAPHICS 0:? "ZDOBYLES ";PKT;" Z ";R;" PKT"
170 ? :? "GRAMY JESZCZE RAZ (T/N)";:INPUT O$
180 IF O$="T" OR O$="t" THEN 15
190 GRAPHICS 2:? #6;"NARA !":FOR I=1 TO 100:NEXT I
200 GAPHICS 0:END

<< Wstecz


Komentarze

Mieszko (Email | WWW), 2015-04-08 15:16:25
chyba brakuje znaku "=" w linii 120: 120 IF PEEK(764)=255 ...

Dodaj komentarz

Autor* 
E-mail* 
WWW 
Treść komentarza*/**
Czy jesteś botem?
 Tak, a to jest spam.
 Nie, jestem człowiekiem, to nie jest spam.
 Nie wiem...
Ile jest 10 razy 7 ?
Podaj wynik:  
 
* - pola obowiązkowe;
** - z treści komentarza usunięte zostaną wszystkie znaki końca wiersza, takze nie ma co ich klepać.

    
    PHP & MySQL solutions, desgin and (almost) everything by Grzybson/SSG, hosted by pigwa.net