1 POKE 752,1:? " ":DIM A$(101):POKE 709,0:FOR I=1 TO 101:A$(I,I)=" ":NEXT I:A$(40,61)="-/--'......LEICIGODBEH"
2 SOUND 0,72,0,4:POKE 712,148:FOR K=1 TO 61:FOR J=0 TO 39:POKE 40479-J,ASC(A$(J+K,J+K))-32:NEXT J:NEXT K:GOTO 2