1 REM Y$PEEK  TO Y PEEK 3TAN 
   2 GOTO 7
   3 POKE A,D
   4 POKE B,C
   5 LET X=USR E
   6 RETURN
   7 LET A=16515
   8 LET B=16519
   9 LET E=16514
  10 REM zx81-hymne 11.03.2006
  11 REM WRITTEN BY                      JENS SOMMERFELD UND             MIKE PREUSS
  12 REM 
  20 REM clear ALL REGISTERS
  30 LET C=0
  40 FOR D=1 TO 13
  50 GOSUB 3
  60 NEXT D
  65 CLS
  70 PRINT "ZX81 - HYMNE"
  75 PRINT "############"
  80 PRINT ,,"WRITTEN BY MARTIN RAETZ"
  85 PRINT ,,"ADAPTED FOR ZX81 AND ZON-X"
  90 PRINT ,,"11.03.2006 BY JENS SOMMERFELD","           AND MIKE PEUSS"
  94 PRINT 
  95 PRINT 
  96 PRINT "sTART..."
  97 GOTO 97+(INKEY$ ="S")
  98 CLS
  99 PRINT "ENJOY..."
 100 REM hymne
 105 LET T=0
 110 DIM B(12)
 120 LET B(1)=252
 130 LET B(2)=225
 140 LET B(3)=200
 150 LET B(4)=189
 160 LET B(5)=168
 170 LET B(6)=150
 180 LET B(7)=134
 190 LET B(8)=126
 200 LET B(9)=112
 210 LET B(10)=100
 220 LET B(11)=141
 230 LET B(12)=1
 250 REM notenstring
 260 LET A$="CCCC6C6C6C5C4C5C6C6C5C5C5C3C4C5C6CCC3C3C3C4C5C4C3C3C4C5C6C5C6CBC6CBC8C1C1C1C2C3C4CCCCC5C5C5C5C4C5CCCCC5C5C5C6C7C8C1C2C3C4C6CCCCCCCCC5C4C3C3CCCCCCC3C4C5C666CBBBC666C555C666CCCCCCC1C2C3C444C666CBBBC666C5C5CCCCCCC5C6CBC888C111C6C55555C444CCCCCCCCC"
 300 REM soundinit
 310 LET D=7
 320 LET C=62
 330 GOSUB 3
 340 LET D=8
 350 LET C=15
 360 GOSUB 3
 400 REM player
 405 FAST
 410 FOR Z=1 TO LEN (A$)
 420 LET T$=A$(Z TO Z)
 430 LET T=VAL (T$)
 440 IF T$="A" THEN LET T=10
 450 IF T$="B" THEN LET T=11
 460 IF T$="C" THEN LET T=12
 465 LET D=0
 470 LET C=B(T)
 480 GOSUB 3
 482 REM tempo
 483 FOR K=1 TO 5
 484 NEXT K
 490 LET D=13
 500 LET C=0
 510 GOSUB 3
 520 LET D=8
 600 NEXT Z
 605 SLOW
 980 LET C=0
 990 GOTO 10
 999 STOP
1000 SAVE "HYMNE"
1010 RUN