1 PRINT"[147]":A=1:POKE53280,0:POKE53281,0
25 POKE646,A:A=A+1:IFA=16THENA=1
30 PRINT"***   *  **   ***  ***
35 [151]646,A:A[178]A[170]1:[139]A[178]16[167]A[178]1
40 [153]"*  *CLOSE * *  * *    *CLOSE  *
45 POKE646,A:A=A+1:IFA=16THENA=1
50 PRINT"*   * * *    *    *   *[160]
55 [151]646,A:A[178]A[170]1:[139]A[178]16[167]A[178]1
60 [153]"*   * * *    *  CLOSE *   * ORLEN ORLEN PEEK PEEK ORLEN ORLENRIGHT$";
65 [151]646,A:A[178]A[170]1:[139]A[178]16[167]A[178]1
70 [153]"*   * *  **  *    *   * PEEK  PEEK  PEEK PEEK PEEK  PEEK PEEK";
75 [151]646,A:A[178]A[170]1:[139]A[178]16[167]A[178]1
80 [153]"*   * *    * *    *   * -LEN -LEN PEEK PEEK -LEN -LEN(null)";
85 [151]646,A:A[178]A[170]1:[139]A[178]16[167]A[178]1
90 [153]"*  *  * *  * *    *   * PEEK  PEEK  PEEK PEEK PEEK  PEEK PEEK";
95 [151]646,A:A[178]A[170]1:[139]A[178]16[167]A[178]1
98 [153]"***CLOSECLOSE *  **   ***  ***  PEEK  /LEN LOGPOSCOS /LEN PEEK PEEK";
99 [151]646,A:A[178]A[170]1:[139]A[178]16[167]A[178]1
100 [153]"   TOANDPOSNEWFREUSRTAB( G E N E R A T O R TAB(USRFREWAITNEWPOSANDTO"
104 [153]"          FORBY SATAN KLAUS / OOO"
105 [151]646,12
110 [153]"DIESES PROGRAMM SORGT FUER DAS RICHTIGE
111 PRINT"LICHT AUF IHRER DISCO. TREFFEN SIE IHRE"
112 PRINT"WAHL UND LOESCHEN SIE BITTE ALLE"
113 PRINT"WEITEREN LICHTER IM RAUM. DANKE!"
115 POKE646,7
120 PRINT" 1 BOHLEN - BEAT (MODERN TALKING)"
130 PRINT" 2 BIEG - BEAT (GLEICHSCHRITT MARSCH)"
150 PRINT" 3 BUMMS - BEAT (SCOOTER)"
160 GETB$:IFB$<>""THEN220
220 IFB$="1"THEN250
221 IFB$="2"THEN300
222 IFB$="3"THEN350
225 GOTO30
250 REM BOHLEN
251 POKE53280,0:POKE53281,0::::::::::::
252 POKE53280,9:POKE53281,9::::::::::::
253 POKE53280,2:POKE53281,2::::::::::::
254 POKE53280,8:POKE53281,8::::::::::::
255 POKE53280,10:POKE53281,1:::::::::::
256 POKE53280,8:POKE53281,8::::::::::::
257 POKE53280,2:POKE53281,2::::::::::::
258 POKE53280,9:POKE53281,9::::::::::::
259 POKE53280,0:POKE53281,0::::::::::::
260 GOTO252
300 REM BIEG
301 POKE53280,0:POKE53281,0::
302 POKE53280,0:POKE53281,0::
303 POKE53280,0:POKE53281,0::
304 POKE53280,0:POKE53281,0::
305 POKE53280,1:POKE53281,1::
306 POKE53280,0:POKE53281,0::
307 POKE53280,0:POKE53281,0::
308 POKE53280,0:POKE53281,0::
309 POKE53280,0:POKE53281,0::
310 GOTO301
350 REM SCOOTER
360 POKE53280,0:POKE53281,0
370 POKE53280,1:POKE53281,1
380 POKE53280,0:POKE53281,0
390 POKE53280,1:POKE53281,1
400 POKE53280,0:POKE53281,0
410 FORI=1TO250:NEXTI:GOTO360