+* SUPERCOOLES SONDERPROGRAMM!
+*
+ ABS
+ ORG '1000
+*
+*
+*
+ LDA =-50
+ STA LCNT LOOP COUNTER
+ CRA
+ STA 0 ACTIVE PATTERN
+ LDA ='125252
+ IAB
+ LDA ='000770
+ STA MUS
+*
+L1S LDA =-'47777 INNER DELAY
+ STA CNT
+ LDA MUS
+L1 IRS CNT
+ JMP *-1
+ STA MUS
+*
+ LDA MUS
+ JST* DISP,1 CALL INDEXED TO TABLE,HUI!
+ STA MUS
+*
+ IRS LCNT
+ JMP L1S NOT READY TO CHANGE PATTERN
+*
+ LDA =-50 REINITIALIZE LOOP COUNTER
+ STA LCNT
+*
+ LDA 0
+ AOA
+ ANA =7
+ STA 0
+*
+ JMP L1S LOOP AGAIN INNER
+*
+MUS DEC 0
+LCNT DEC 0
+CNT DEC 0
+*
+DISP DAC P0
+ DAC P0
+ DAC P2
+ DAC P3
+ DAC P4
+ DAC P5
+ DAC P6
+ DAC P7
+*
+*
+P0 DAC **
+ LLR 1
+ JMP* P0
+P1 DAC **
+ LRR 1
+ JMP* P1
+P2 DAC **
+ LLR 2
+ JMP* P2
+P3 DAC **
+ LRR 2
+ JMP* P3
+P4 DAC **
+ CMA
+ JMP* P4
+P5 DAC **
+ IAB
+ JMP* P5
+P6 DAC **
+ ICA
+ JMP* P6
+P7 DAC **
+ ALR 1
+ JMP* P7
+*
+*
+* THAT'S IT!
+*
+ END