Commodore VIC-20 User Manual page 146

Remember to use line numbers when you type these routines into the
computer. The numbers are not shown here in order to avoid
confusion when you enter them into your programs.
#1: SCALES
POKE 36878,15
FOR L= 250 TO 200 STEP -2
POKE36876;L
FORM = 1 TO 100
NEXTM
NEXTL
FOR L = 205 TO 250 STEP 2
POKE 36876.L
FOR M = 1 TO 100
NEXTM
NEXTL
POKE 36676,0
POKE 36878,0
#2: COMPUTER MANIA
POKE 36373,15
FOR L=1 TO 100
POKE 36a76TINT{RND(1)' 128) +
FORM = 1 TO 10
NEXTM
NEXTL
POKE 36876,0
POKE3687S.0
#3: EXPLOSION
POKE 36B77.220
FOR L = 15 TOO STEP -1
PQKE36878.L
FOR M = 1 TO 300
NEXTM
NEXTL
POKE 36877,0
POKE 36878,0
#4: BOMBS AWAY
POKE 36676,10
FORL = 230TO126STEP -1
POKE 36876.L
FOR M = 1 TO 20
NEXTM
NEXTL
POKE 36876,0
POKE 36877,200
FOR L= 15 TOO STEP -.05
POKE 36878,L
NEXT L
POKE36877H0
128
#5: RED ALERT
POKE 36878,15
FOR L = 1 TO 10
FORM = 180 TO 235 STEP 2
POKE36876,M
FOR N=1T0 10
NEXT N
NEXT M
POKE 36876,0
FOR M = 1 TO 100
NEXTM
NEXTL
POKE 36878,0
#6: LASER BEAM
POKE 36878,15
FORL = 1T0 30
FOR M = 250 TO 240 STEP - 1
POKE36876.M
NEXTM
FOR M= 240 TO 250
POKE 36876.M
NEXTM
POKE 36876,0
NEXTL
POKE 36878,0
#7:HIGH-LOWSIREN
POKE3687B.15
FOR L=1 TO 10
POKE 36875,200
FOR M - 1 TO 500
NEXTM
POKE 36875,0
POKE 36876,200
FOR M = 1 TO 500
NEXT M
POKE 36876,0
NEXT L
POKE 36878,0
<
<
1
(
(
(
(
<
(
I
i
(
C
i
i
'
136