"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