10 REM EDDIES STOS BYTE BENDER
100 REM SET UP TABLE 
1000 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1010 REM MOVE FROM B TO A 
1020 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
1030 VARNAME
1040 VARNAME
1050 FOR
1060 POKE
1070 VARNAME
1080 VARNAME
1090 NEXT
110 REM WORD VALUES EACH HOLDS SCREEN OFFSET 
1100 RETURN
120 DIM
130 FOR
131 VARNAME
140 VARNAME
150 VARNAME
160 NEXT
170 REM SET SCREEN Z AXIS
180 VARNAME
190 FOR
20 REM ~~~~~~~~~~~~~~~~~~~~~~~
200 VARNAME
2000 REM ~~~~~~~~~~~~~~~~~~~~~~~~ 
2010 REM DRAW CHECK PATTERN 
2020 REM ~~~~~~~~~~~~~~~~~~~~~~~~ 
2030 VARNAME
2040 FOR
2050 POKE
2060 POKE
2070 VARNAME
2080 NEXT
2090 RETURN
210 VARNAME
220 VARNAME
230 NEXT
240 REM COMPLETE TABLE 
250 FOR
270 VARNAME
280 NEXT
290 REM ~~~~~~~~~~~~~~~~~~~~ 
30 MODE
300 REM TEST BENDER +SAVE TO BANK 1 80 BYTES LONG
310 REM ~~~~~~~~~~~~~~~~~~~~ 
320 VARNAME
321 DOKE
330 VARNAME
340 FOR
350 POKE
355 VARNAME
360 NEXT
370 NEXT
380 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
390 REM THE ACTUAL SCROLL ROUTINE
40 HIDE
400 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
410 FOR
420 FOR
430 VARNAME
440 GOSUB
450 NEXT
460 NEXT
50 CURS
60 KEY
70 COLOUR
80 COLOUR
90 REM ~~~~~~~~~~~~~~~~~~~~~~~~~