1 REM ##############################	
2 REM #        WOBBLER             #
3 REM #    by Andy Guillaume       # 	
5 REM #   NEW ATARI USER - SEP 96  #
6 REM ##############################
10 REM
45 REM Setup Pointers
50 NDL=45056:DLI=$061D:VBI=$0633
60 CLINE=$0600:TMR=$0601:RTME=$0602:CUR=$0603:MAX=$0604:SCT=$0605:DAT=$0670
65 REM Poke in DLI and VBI code
70 RESTORE 1010:FOR N=DLI TO DAT-%1:READ B:POKE N,B:NEXT N
75 REM Setup GR Mode 0
80 GRAPHICS %0:SCN=DPEEK(88):POKE 731,%1
85 REM Make new Display List
90 POKE NDL,112:POKE NDL+%1,112:POKE NDL+%2,240:PP=NDL+%3
100 FOR N=%0 TO 23
110 POKE PP,82+128:DPOKE PP+%1,SCN-%2:PP=PP+%3:SCN=SCN+40
120 NEXT N
130 POKE PP,65:DPOKE PP+%1,NDL
135 REM Initialise Variables
140 POKE CLINE,%0:POKE TMR,%1:POKE RTME,%1:POKE CUR,%0
150 POKE MAX,40
155 REM Poke in DATA table
160 RESTORE 2010:FOR N=DAT TO DAT+PEEK(MAX)-%1:READ B:POKE N,B:NEXT N
165 REM Start WOBBLING!!
170 DPOKE 546,VBI:DPOKE 512,DLI:POKE 54286,192:DPOKE 561,NDL
1000 REM DLI & VBI Code
1010 DATA 72,138,72,174,0,6,189,5,6,141,10,212,141,4,212,238,0,6,104,170
1020 DATA 104,64,72,138,72,169,0,141,0,6,206,1,6,208,42,173,2,6,141,1
1030 DATA 6,162,22,189,5,6,157,6,6,202,16,247,174,3,6,189,112,6,141,5
1040 DATA 6,238,3,6,173,3,6,205,4,6,208,5,169,0,141,3,6,104,170,104
1050 DATA 76,226,192