home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9205.d64
/
memory
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
16 lines
0 DIMA(50):M=56320:A=RND(-TI):U=25:FORH=.TO1:POKE53280+H,11:FORG=1TOU:P=1265
1 W=INT(RND(0)*50):ON-(A(W)>.)GOTO1:A(W)=G:NEXTG,H:PRINT"[144][147]"SPC(8)"[205]EMORY VO";
2 PRINT"N [211]VEN [194]ASTROP"SPC(49)"[158][211]PIELER 1: 00"SPC(11)"[159][211]PIELER 2: 00[144] [215]I";
3 PRINT"EVIELE [211]PIELER (1/2)";:INPUTA$:A=160:PRINT"":S=128:FORJ=.TO4:PRINT
4 FORG=.TO2:FORH=.TO9:PRINT" [146] ";:NEXTH,G,J:DEFFNX(X)=X-(A$="2")AND1:X=FNX(X)
5 N=198:K=40:O=P:F=A:G=192:FORV=1TOU:T(.)=.:T(1)=.:X=FNX(X):FORQ=.TO1:POKEN,.
6 PRINT""SPC(14)"[211]PIELER"X+1;:POKEP,42-S*(F>32)
7 WAITM,31,31:C=127-PEEK(M):L=L+(C=4ANDL/H>INT(L/H))+H*((C=1ANDL>9)-(C=2ANDL<K))
8 L=L-(C=8ANDL/H-INT(L/H)<.9):W=INT(L/H):POKEP,F:P=O+W*A+(L-W*H)*4:F=PEEK(P)
9 ON-(C<9ORF<>A)GOTO6:F=A(L)+G:POKEP,F:T(Q)=F:W(Q)=P:ON-(Q=.)GOTO12:FORZ=.TO1E3
10 NEXT:W=(T(.)=T(1)):F=A+S*W:FORE=-1TO1:POKEP+E,F:POKEP+E-K,F:D=W(.)+E:POKED,F
11 POKEP+E+K,F:POKED-K,F:POKED+K,F:NEXT:X(1)=X:P(X)=P(X)-W:V=V-1-W:X(-W)=FNX(X)
12 NEXT:I=.:GOSUB14:I=1:PRINT"[158]"SPC(14-Y)H$;:GOSUB14:PRINT"[159]"SPC(U-Y)H$:NEXT
13 PRINT"[147][211]PIELER"(-((P(.)>P(1))+2*(P(.)<P(1))))"HAT GEWONNEN!":WAITN,1:RUN
14 X=X(1):Y$=STR$(P(I)):H$=MID$(Y$,2):Y=LEN(Y$):RETURN:REM (C) SVEN 04423/6962