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