start bastext 1025
start tok64 d64-J2ofLi
0 PUTc:PUT
1 CPROG0,160
2 CPROG"{.*3}**{.*3}"
3 CPROG"..*..*.."
4 CPROG"{.*3}**{.*3}"
5 CPROG"********"
6 CPROG"{.*3}**{.*3}"
7 CPROG"..*..*.."
8 CPROG"***..***"
9 CPROG"{.*8}"
10 CPROG0,87
11 CPROG"*..**..*"
12 CPROG".******."
13 CPROG"**{.*4}**"
14 CPROG"**.**.**"
15 CPROG"**.**.**"
16 CPROG"**{.*4}**"
17 CPROG".******."
18 CPROG"*..**..*"
19 CPROG0,42
20 CPROG"**{.*4}**"
21 CPROG"..****.."
22 CPROG".**..**."
23 CPROG"**.**.**"
24 CPROG"{.*3}**{.*3}"
25 CPROG"..*..*.."
26 CPROG".**..**."
27 CPROG"{.*8}"
28 CPROG0,43
29 CPROG"..****.."
30 CPROG".*{.*4}*."
31 CPROG"*..**..*"
32 CPROG"*{.*6}*"
33 CPROG".******."
34 CPROG"..*..*.."
35 CPROG"***..***"
36 CPROG"{.*8}"
39 SWITCH12,0
40 PRINT"{clear}":VOLUME#:VOLUME15:ADSR1,0,0,15,0:WAVE1,2,0,500:SHRINK 4,5
41 FORy=2TO22STEP2:x=INT(RND(0)*38)+1:PITCH1,x*255+y
42 IFRND(0)>.6THENCOPYINT(RND(0)*38)+1,y,42,1
43 COPYx,y,42,1:NEXT:WAVE#1,2:WAVE1,1,0,500
44 FORy=2TO22STEP2:FORx=0TO39:PITCH1,y+x*256
50 COPYx,y,87,14MULTI=(42)THENGOSUB1000
70 NEXT:NEXT:WAVE#1,1
300 FORx=0TO39:COPYx,24,87,14:COPYx,0,87,14:NEXT
310 FORy=0TO24:COPY0,y,87,14:COPY39,y,87,14:NEXT
320 y=23:x=20:COPYx,y,160,1:dx=1 :VOLUME#:VOLUME15:ADSR1,0,3,0,0:PITCH1,8200
325 ex(0)=2:ey(0)=1:ch(0)=42:COPYex(0),ey(0),ch(0),2:xx(0)=1:yy(0)=1
326 ex(1)=37:ey(1)=1:ch(1)=43:COPYex(1),ey(1),ch(1),4:xx(1)=-1:yy(1)=1
330 x1=BIT(2)x:IFx1<>0THEN dx=x1
331 y1=BIT(2)y:IFstTHENGOSUB500:IF ns GOTO 3000
350 WAVE1,4,0,5:PLACEx,yTOx+dx,y MULTI#32THENGOSUB5000:GOTO355
351 IFkl=1THENkl=0:GOTO2000
354 x=x+dx
355 FORe=0TO1:ey=ey(e):ex=ex(e):xx=xx(e):yy=yy(e)
356 IFey=yTHENyy=0
357 IFey>yTHENyy=-1
358 IFey<yTHENyy=1
360 eh=POINT(ex+xx,ey):ev=POINT(ex,ey+yy)
361 IF eh=160 THEN PLACE ex,eyTOex+xx,ey:GOTO2000
365 IF ev=160 THEN PLACE ex,eyTOex,ey+yy:GOTO2000
370 PLACEex,eyTOex,ey+yyMULTI#32GOTO390
380 ey=ey+yy:GOTO410
390 PLACEex,eyTOex+xx,ey MULTI#32THENxx=-xx:GOTO410
400 ex=ex+xx
410 ey(e)=ey:ex(e)=ex:xx(e)=xx:yy(e)=yy::NEXTe:GOTO330
500 IFy1=0THENRETURN
510 IFPOINT(x,y+y1) = 32THEN PLACEx,yTOx,y+y1*2:y=y+y1*2:ns=0:IF y=1 THEN ns=1
520 RETURN
1000 WAVE#1,1:WAVE1,4,0,500:FORi=10TO5STEP-1:PITCH1,i*256:NEXT:WAVE#1,4:WAVE1,1,0,500
1010 COPYx,y,32,1:RETURN
2000 WAVE#1,2: VOLUME#:VOLUME15:ADSR1,2,0,5,1:PITCH1,30000:WAVE1,1,0,5000
2010 FORi=1TO250:BRD&BKGi FOR i-1:PITCH1,i*256:NEXTi:WAVE#1,1
2020 RUN
3000 PRINT"{clear}{down*2}{space*16}you win!"
3110 PRINT"{down*3}{space*7}do you want to play again ?"
3120 GET a$:IFa$<>"y"ANDa$<>"n" GOTO3120
3130 IF a$="y" THEN RUN
3140 PRINT"{down*3}{space*10}okay. see ya later!{down*2}":END
5000 IFPOINT(x+dx,y)=87THENdx=-dx:RETURN
5010 kl=1:RETURN
stop tok64
(bastext 1.0)