williams-et-al-1983-apple-ii-computer-graphics

144 APPLE II COMPUTER GRAPHICSPOKE 8192,126 : POKE 8193,1POKE 8192,124 : POKE 8193 ,3POKE 8192,12 : POKE 8193,7POKE 8192,112 : POKE 8193 ,15POKE 8192,96: POKE 8193 ,31POKE 8192,64: POKE 8193 ,63POKE 8192,: POKE 8193 ,127Listing 12-4 gives you a program that will do essentially what you did withthe series of POKEs.1 DIM A% (28) : REM 28 X-COORDINATES2 REM3 REM READ THE VALUES FOR4 REM THE 7 PAIRS OF FRAMES5 REM6 FOR I = TO 670 READ T%(I), H%(I)8 NEXT I9 REM100 HGR110 REM120 REM INITIALIZE THE TABLE130 REM OF ADDRESSES140 REM150 J = 160 FOR I 8192 TO 8231170 A% ( J) = I : J = J + 1180 NEXT19 REM20 REM PLOT THE LINE AT21 REM EACH X-COORDINATE22 REM230 FOR X = 1 TO 280240 Q% = INT ( X I 7)250 R% = X-(7 * Q%)260 C% = Q% + 1270 POKE A%(Q%) ,T%(R%) : POKEA%(C%) ,H%(R%)28 NEXT X29 END294 REM295 REM DATA TABLE296 REM30 DATA 126,1,124,3,120 ,7,112 ,15310 DATA 96,31,64,63,0 ,127Listing 12-4.