100 REM Load shape table into memory
110 REM
120 FOR A = 8192 TO 8231
130 READ X
140 POKE A,X
150 NEXT A
160 DATA 1,0,4,0 : REM Table index
170 REM Data for fish
180 DATA 78,9,28,28,63,56,63,191,59,23,30,30,30,30,30,30,36,36,36
190 DATA 172,21,21,21,21,21,21,173,41,45,45,40,5,40,40,0
200 POKE,0: POKE 233,32: REM Tell computer where table is stored
210 REM
220 REM
300 REM Make fish 'swim' across screen
310 REM
320 HGR2
330 SCALE= 1: ROT= 0
340 FOR X = 15 TO 250
350 XDRAW 1 AT X,100: REM Draw fish
360 XDRAW 1 AT X,100: REM Erase fish
380 NEXT X