home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9203a.d64
/
red
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
21 lines
1 R=RND(-TI):POKE53280,0:POKE53281,0:PRINT"[147]"TAB(18)"RED BY JENS HOEHNE":FORT=1TO5:PRINT
2 FORN=1TO7:PRINTTAB(4*N)"[145][207][183][183][183]":NEXT:FORM=1TO3:PRINT" [180] [180] [180] [180] [165] [165] [165] "
3 NEXTM,T:V=53248:FORT=1TO20:X=INT(RND(0)*7):Y=INT(RND(0)*5):FORN=0TO3:FORM=0TO3
4 POKE55460+(Y*4+M)*40+X*4+N,14:NEXTM,N:A(X,Y)=1:NEXTT:W=54272:POKEW+24,15
5 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,40,0,0,170,0,2,170,128,2,190,128,42,170
6 DATA168,37,85,88,42,170,168,2,190,128,2,170,128,0,170,0,0,40,0,0,40,0,0,0,0,0
7 DATA0,0,0,0,0,0,0,0:POKE2040,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT:POKEV+28,1
8 POKEV+39,0:POKEV+38,1:POKEV,59:POKEV+1,87:POKEV+21,1:PRINT"[158]ZUEGE :":X=59:Y=87
9 P=PEEK(56320):M=0:IFP=123THENX=X-32:M=M+1:IFX<59THENX=59:M=M-1
10 POKEW+6,255:IFP=119THENX=X+32:M=M+1:IFX>251THENX=251:M=M-1
11 POKEW+1,10:IFP=126THENY=Y-32:M=M+1:IFY<87THENY=87:M=M-1
12 IFP=125THENY=Y+32:M=M+1:IFY>215THENY=215:M=M-1
13 POKEV,X:POKEV+1,Y:IFM=1THENPOKEW+4,33:GOSUB15
14 GOTO9
15 S=S+1:PRINT""S:A=(Y-87)/32:B=(X-59)/32:POKEW+4,79:FORN=0TO3:FORM=0TO3
16 T=55460+(A*4+N)*40+B*4+M:IFA(B,A)=1THENPOKET,2
17 IFA(B,A)=0THENPOKET,14
18 NEXTM,N:A(B,A)=1-A(B,A):R=0:FORC=0TO6:FORD=0TO4:IFA(C,D)=1THENR=1
19 NEXTD,C:IFR=0THENPRINT"[147] [158]GESCHAFFT MIT"S"[158]ZUEGEN !":POKEV+21,0:END
20 :RETURN