Commodore VIC-20 - Page 262

248 The VIC 20 User Guide
random length of time, the ball will explode. The important thing here is to
make the picture and the sound work together; the sound should enhance
the picture.
1000 PRINT "!']": TI •• "000080":OI-(RND<8)1113>+1
1083 POKE 36878113
1010 FOR T-38400 TO 38443
1020 POKE T
I
6:NEXT
1030 FOR T-7680 TO 7701
1833 FOR Y-S TO 10:NEXT
li3S POKE T-1132:POKE T
I
81:HEXT
1840 IF OI<VAL(TI$> THEN 01-999
1041 IF 01<>999 THEN OOTO 1047
1842 POKE 368771129
1843 FOR X-0 TO 20
1044 POKE T-1142
1043 FOR U-0 TO 9:NEXT
1046 POKE T-11170:NEXT
1047 IF 01-999 THEN POKE 368781 0: PRINT"!,]II :ooTO UI47
1948 POKE 368761243: POKE 3687618
19se FOR T-7701 TO 7680 STEP -1
10SS FOR Y-0 TO 10:NEXT
1060 POKE T+1132:POKE TI81:NEXT
1063 POKE 368761240: POKE 3687618
UI70 OOTO 1030