start bastext 1025
start tok64 d64-EsRThy
10 SCREEN0:PRINT"{clear}":FORx=0TO39:COPYx,24,160,4:COPYx,0,160,4:NEXT
20 FORy=0TO24:COPY0,y,160,4:COPY39,y,160,4:NEXT
30 REM set sound
40 VOLUME#:VOLUME15:ADSR 1,0,5,5,0:ADSR 2,0,3,9,0:ADSR 3,0,4,0,7
50 REM scatter letters over screen
60 FORx=1TO38:FORy=1TO23
70 IF RND(0) >.8 THEN COPY x,y,RND(0)*25+1,RND(0)*15+1
80 NEXT:NEXT
95 REM start of main loop
100 dx=1:dy=1:x=1:y=1:COPYx,y,81,1
110 nx=dx+x:ny=dy+y
120 PLACE x,y TO nx,ny MULTI # 32 THEN 200
130 x=nx:y=ny
140 WAVE#1,1:PITCH 1,y*300+3000:WAVE1,1,0,5:FORi=0TO20:NEXT
150 GOTO110
200 REM handle crash into a wall
210 IF nx<1 OR nx>38 THEN dx=-dx:GOSUB300:GOTO110
220 IF ny<1 OR ny>23 THEN dy=-dy:GOSUB300:GOTO110
230 REM not a wall
240 WAVE#2,2:PITCH 2,POINT(nx,ny)*800:WAVE2,2,0,70
250 PLACE x,y TO nx,ny:x=nx:y=ny:GOTO110
300 REM hit wall, so make sound
310 WAVE# 3,4:PITCH 3,y*256+x*128:WAVE 3,4,0,5:RETURN
stop tok64
(bastext 1.0)