C64'er/C64'er.iso/85xx/8512.d64/frogger

Commodore BASIC | 1995-03-30 | 1KB | 25 lines

0 V=53248:POKE2042,13:POKE2043,14
1 PRINT"[147]@@@?[160][146]@[191]C[192][191][207][146]@[176][146]_[192][167][188][146]@[191][191][146]@[191][191]@[191][185][192][191][185] [160][146]? [191][185] [191][185][192][146][191][191]@[191][191][146]@[167][184][146]@[176]";
2 PRINT"_[192][191][207]@[191]C[192][146]_[160][146]@@@@[191][146]@[190][146]@G[191][160][146]?[191][184][146][191][191][184][191][191][184][191][191][188][191][191][190][146][191][191][191][146]?[191][191][146]_[191][191][146]O";
3 PRINT"[191][191][146]O[191][190][146]O[191][184][146]_[191][184][146]_[191][188][146]?[191][190][146]?[191][191][146]?[191][190][146]_[191][184][146]G[191][192][146]A[188]@"
4 FORT=0TO126:POKE832+T,PEEK(1024+T):NEXT:POKEV+41,13:POKEV+42,6:POKEV+27,12
5 POKE650,128:POKE649,2:POKEV+32,0:POKEV+33,5:POKEV+23,8:POKEV+29,8:S=300:G=0
6 POKEV+16,8:POKEV+6,30:POKEV+7,120:Y=100:X=40:POKEV+4,X:POKEV+5,Y:POKEV+21,12
7 POKEV+30,PEEK(V+30)AND251:POKEV+31,PEEK(V+31)AND243
8 X$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] "
9 PRINT"[147]";TAB(10);X$:PRINT"[144]";TAB(17);X$:PRINT"";TAB(24);X$:PRINT"[152]";TAB(31);X$
10 POKE56322,224:J=PEEK(56321):IF(JAND1)=0THENY=Y-15:GOTO17
11 IFPEEK(V+31)AND4=4THENPRINT"[144][147]TOT";G;"FROESCHE GERETTET":WAIT145,16,16:GOTO5
12 IFPEEK(V+30)=12THENPRINT"[147][144]GERETTET !":S=S-50:G=G+1:WAIT145,16,16:GOTO6
13 IF(JAND2)=0THENY=Y+15:GOTO17
14 IF(JAND4)=0THENX=X-15:GOTO17
15 IF(JAND8)=0THENX=X+15:GOTO17
16 POKE172,PEEK(60656):POKE780,PEEK(216):SYS59848:PRINT:FORL=1TOS:NEXT:GOTO10
17 IFY>230THENY=230
18 IFY< 40THENY= 40
19 IFX>63AND(PEEK(V+16)AND4)=4THENX=63
20 IFX<25AND(PEEK(V+16)AND4)<>4THENX=25
21 IFX<0AND(PEEK(V+16)AND4)=4THENPOKEV+16,8:X=255+X
22 IFX>255THENPOKEV+16,PEEK(V+16)OR4:X=X-255
23 POKEV+4,X:POKEV+5,Y:GOTO10