10 REM     Demonstration of 8-way bouncing
100 GOSUB
1000 REM Position the balls and start bouncing them 
1001 REM ****************************************** 
1010 FOR
1020 WHILE
1030 FOR
1040 VARNAME
1050 SPRITE
1060 IF
1070 NEXT
1080 WEND
1090 RETURN
11 REM by Phil Lawson for Atari ST User (c) 1990
110 GOSUB
12 REM *****************************************
120 STOP
20 MODE
2000 REM change direction 
2001 REM **************** 
2020 VARNAME
2030 IF
2040 IF
2050 IF
2060 IF
2070 LOGIC
2080 RETURN
30 EXTENSION (Index #0) (Token 0x80)
500 REM Initialisation 
501 REM ************** 
510 DIM
520 RESTORE
540 RESTORE
550 RESTORE
560 RESTORE
599 RETURN
600 DATA
700 DATA
705 DATA
710 DATA
715 DATA
720 DATA
725 DATA
730 DATA
735 DATA
740 DATA
745 DATA
750 DATA
755 DATA
760 DATA
765 DATA
790 REM The sprite starting positions
791 REM *****************************
800 DATA
810 DATA
818 REM The initial directions of each sprite
819 REM *************************************
820 DATA