1 REM WWV-WAHL
2 PRINT"[147]([193])NLEITUNG ODER ([211])PIEL ?"
3 GETA$:IFA$=""THEN3
4 IFA$="A"THEN100
5 IFA$="S"THEN120
6 GOTO2
100 POKE828,0
101 PRINTCHR$(147)CHR$(17)
102 PRINT"L[207]"CHR$(34);"WWV-A*";CHR$(34);",8
103 [153][199](17)[199](17)[199](17)[199](17)"RUN"
104 [151]631,13:[151]632,13:[151]198,2
105 [153][199](19);:[128]
120 [151]828,0
121 [153][199](147)[199](17)
122 [153]"L(null)"[199](34);"WWV (REMIX)";[199](34);",8
123 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)"RUN"
124 POKE631,13:POKE632,13:POKE198,2
125 PRINTCHR$(19);:END