10 REM (C) DAZ '90
20 REM ** RASTER BARS EXAMPLE **
30 REM SET LN TO LINE NUMBER (50-241)
31 REM SET LE TO LENGTH OF COLOUR DATA
32 REM
35 LN=25:LE=73: A=A+1
42 REM ===============================
43 REM ## READ TIMING POSITION VALS ##
44 REM ===============================
45 FOR A=0 TO 7: READ TM(A): NEXT A
50 REM ================================
51 REM ## POKE INITIALIZATION VALUES ##
52 REM ================================
60 POKE 52234, LN
70 POKE 52265, TM (LN AND7)
80 POKE 52281, ((LN AND7)+4)AND7
90 POKE 52288, LE
91 REM =======================
92 REM ## CALL MACHINE CODE ##
93 REM =======================
100 SYS 52224
101 REM ========================
102 REM ## MESSAGE & KEY TEST ##
103 REM ========================
105 GOTO 120
107 REM ==========================
108 REM ## TIMING POSITION DATA ##
109 REM ==========================
110 DATA 15,14,14,7,7,15,15,15
120 FOR LN=30 TO 230  STEP 10
130 POKE 52234,LN
140 POKE 52265, TM (LN AND7)
150 POKE 52281, ((LN AND7)+4)AND7
160 POKE 52288, LE
165 SYS52224
166 NEXT
170 GETA$:IF A$<>"" THEN END
180 FOR LN=230 TO 30 STEP-10
190 POKE 52234,LN
200 POKE 52265, TM (LN AND7)
210 POKE 52281, ((LN AND7)+4)AND7
220 POKE 52288, LE
230 SYS52224
240 NEXT
245 GETA$:IF A$<>"" THEN END
250 GOTO 120
260 IF LN=230 OR LN=0 THEN  RETURN
270 END