0 REM   HAD
1 REMJ.PELIKAN,MFFUKPRAHA(C)1984
10 CLS
15 PRINT&4,22;"*******";&5,22;"* HAD *";&6,22;"*******"
16 PRINT&10,4;"Ovladani pomoci tlacitek kurzoru. Po narazu lze hru"
17 PRINT
18 PRINT"ukoncit tlacitkem `Q`. Nahoru se tiskne pocet narazu."
20 PRINT&17,0:INPUT" Rychlost (0-6) ";TI
21 INPUT" Vydrz (0-100) ";VY
22 IFTI<0THENTI=0
23 IFTI>6THENTI=6
25 INPUT" Potrava (100-300) ";PO
26 IFPO>300THENPO=300
30 INPUT" Jedy (20-150) ";JE
35 IFJE<20THENJE=20
40 HL=0:IX=ASC("X"):TE=ASC("."):HV=ASC("*")
45 CLS
50 FORI=59392TO59455:POKEI,160:POKEI+1984,160:NEXTI
60 FORI=59456TO61376STEP64:POKEI,160:POKEI+63,160:NEXTI
70 FORI=1TOPO:X=INT(RND(9)*62):Y=INT(RND(9)*30):POKE59457+X+Y*64,TE:NEXTI
80 FORI=1TOJE:X=INT(RND(9)*62):Y=INT(RND(9)*30):POKE59457+X+Y*64,IX:NEXTI
90 DIMA(300):I=0:J=1:AD=60911:DA=0:A(0)=AD:N=0:DE=1
92 POKE60911,HL
93 PRINT&0,10;STR$(N);:GOSUB500:POKE60416,160:IFN>VYTHEN97
94 IFINKEY$=""THEN94
95 IFINKEY$<>"Q"THEN100
97 PRINT&0,2;"Konec      ";&0,14;"Delka je ";STR$(DE);:GOSUB500
98 IFINKEY$=""THEN98
99 RUN
100 T=ASC(INKEY$+"A")
110 IFT=8THENDA=-1:GOTO150
120 IFT=160THENDA=1:GOTO150
130 IFT=25THENDA=-64:GOTO150
140 IFT=26THENDA=64
150 NA=AD+DA
155 CO=PEEK(NA)
160 IFCO>32ANDCO<>46THENPRINTCHR$(7);:WAIT(5):N=N+1:GOTO93
180 A(J)=AD:J=J+1:POKEAD,HV
190 POKENA,HL
193 IFJ>300THENJ=0
195 IFCO=46THENDE=DE+1:GOTO210
200 POKEA(I),32
205 I=I+1:IFI>300THENI=0
210 AD=NA:WAIT(TI):GOTO100
500 FOR QQ=HEX(E800) TO HEX(E83F):POKE QQ,PEEK(QQ)OR128:NEXTQQ:RETURN