home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9212a.d64 / labyrinth (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 10 P2=1145:FORA=0TO98:READZ:POKE49152+A,Z:NEXT:DATA64,64,64,160,160,160,64,64,64,66,160
  2. 20 DATA66,66,160,66,66,160,66,125,160,66,160,160,66,110,160,66,66,160,109,66,160
  3. 30 DATA160,66,160,112,125,160,109,160,160,160,64,64,64,64,64,64,160,160,160,110
  4. 40 DATA160,112,125,160,109,160,160,160,110,160,112,64,64,110,160,160,66,110,160
  5. 50 DATA66,112,64,64,66,160,160,66,160,112,66,160,109,66,160,160,109,64,64,125
  6. 60 DATA160,66,160,160,66,64,64,125:PRINT"[147]":INPUT"LEVEL";S:T=1100-S*100:PRINT"[147]":IFT<=0THEN60
  7. 70 PRINT"TIME: ";T:PRINT">>>> LABYRINTH  BY MATTHIAS KUEMPEL <<<<":E=0:F=0:POKE53280,6
  8. 80 P3=1227:FORA=1986TO2016STEP3:POKEA,1+E:E=E+1:NEXT:FORA=1219TO1979STEP120:POKEA,48+F
  9. 90 F=F+1:NEXT:POKE1938,83:M=1186:N=1:FORA=0TO6:FORB=0TO10:IFPEEK(P2)=125ANDPEEK(P3)=125THEN60
  10. 100 G=INT(RND(1)*11):P=1145+120*A+3*G:IFPEEK(P)<>32THEN100
  11. 110 FORC=0TO2:FORD=0TO2:POKEP+D+C*40,PEEK(49152+D+C*3+B*9):NEXT:NEXT:NEXT:NEXT
  12. 120 PRINT"          ":PRINT"TIME: ";T:T=T-1:IFT=0THENRESTORE:GOTO10
  13. 130 QQ=209:W=3:G1=9:Y=40:J=49152:H=10:F=90:Q=120:P=3:K=M+N:L=48:IFPEEK(K)=160THEN160
  14. 140 X=1:IFN<2ANDN>-2THENX=40:IFPEEK(K)=83THENPRINT"[147]":PRINT"              >> SUPER <<":RESTORE:END
  15. 150 O=INT(RND(TI)*2)-1:PP=2*O+1:N=X*PP:IFPEEK(M+N)><160THENPP=PP*-1:N=X*PP:GOTO130
  16. 160 K=M+N:POKEM,160:M=K:POKEK,QQ:A$="":GETA$:IFA$=""THENGOTO120
  17. 170 U=ASC(A$):R=1145+(U-L)*Q:IFU>64THENQ=3:L=65:R=1145+(U-L)*Q:H=6:P=120:F=54
  18. 180 I=R:FORA=1TO2:FORB=0TOH:FORC=0TO2:FORD=0TO2:PO=PEEK(I+D+Y*C+P*B):IFPO=QQTHENA=2
  19. 190 POKEJ+D+W*C+G1*B,PO:NEXT:NEXT
  20. 200 NEXT:FORV=0TO8:POKE49161+V+F,PEEK(49152+V):NEXT:J=R:I=49161:Y=3:W=40:G1=P:P=9:NEXT:GOTO120
  21.