S$="Let RB=0; Restart: Let RA=1; Pause; Loop: Let RA=RA+4; Let X=RA; Let RB=RB+1; If RB=8 then Jump G; H: If X>384 then Jump Restart; Pause; Jump Loop; G: Let RB=0; Jump H;"
T$=Space$(2166) : For F=Start(8) To Start(8)+2166 : Poke Varptr(T$)+F-Start(8),Peek(F) : Next F
Channel 0 To Screen Offset 2
Music 1
Screen 1 : Double Buffer
Wait Vbl
No Mask : Make Mask(1) : Make Mask(2)
Bob 1,10,40,1
Bob 2,100,40,2
Bob 3,195,40,2
Bob 4,280,40,1
Amal 0,S$
Wait Vbl
Amal On
Wait Vbl
Screen 2
For F=1 To 31
Colour F,(F+1*200)+3000
Next F
MAINLOOP:
Gosub OBJECTS
P=Asc(Mid$(T$,CH,1))
SC=Amreg(0)
N=Amreg(1)
If N=7 Then Gosub NCHAR
Wait Vbl
If Mouse Key=1 Then Goto DIE
Goto MAINLOOP
OBJECTS:
If Vumeter(0)>10 Then A1=A1+1 : Bob 1,10,40,A1 : If A1=2 Then A1=0
If Vumeter(1)>10 Then A2=A2+1 : Bob 2,100,40,A2 : If A2=2 Then A2=0
If Vumeter(2)>10 Then A3=A3+1 : Bob 3,195,40,A3 : If A3=2 Then A3=0
If Vumeter(3)>10 Then A4=A4+1 : Bob 4,280,40,A4 : If A4=2 Then A4=0