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