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

148 APPLE II COMPUTER GRAPHICSprovided by a scoreboard in Hi-Res; the digits keep changing in a predictablemanner, and you can use that fact to shorten your code. Enter and runthe following program (you may omit the REM statements if you wish).1 REM PARTIAL MOD .2 REM3 HGR4 REM5 REM POKE EIGHT6 REM7 POKE 8192,6 : POKE 9216,66:POKE 124,66: POKE 11264,68 POKE 12288,66: POKE 13312 ,66:POKE 14336,6: POKE 1536,9 VTAB (24) : PRINT "PRESS A KEY 11 •GET R$1 REM11 REM POKE NINE12 REM13 POKE 8192,6 : POKE 9216,66:POKE 124,66: POKE 11264,614 POKE 12288,64: POKE 13312 ,64:POKE 14336,6: POKE 1536,15 VTAB (24) : PRINT "PRESS A KEY"GET R$16 REM17 REM POKE ZERO18 REM19 POKE 8192,6: POKE 9216,66:POKE 124,66: POKE 11264,662 POKE 12288,66: POKE 13312,66:POKE 14336,6: POKE 1536,21 VTAB (24) : PRINT "PRESS A KEY" :GET R$22 GOTO 7Listing 13-1.