5 POKE53280,0:POKE53281,0:PRINT"[147]ONE MOMENT PLEASE..."
10 FORI=1TO160:READA:POKE49151+I,A:NEXT
15 PRINTCHR$(14)CHR$(8)
20 PRINT"[147][194]ASIC-[204]ADER ZU [201][210][209]-[212][207][207][204] AKTIVIERT."
30 PRINT"[201]CH DEMONSTRIERE [201]HNEN MEINE"
35 PRINT"[198]AEHIGKEITEN..."
40 PRINT"DER [211]YNTAX LAUTET: SYS49152,ZEILEN,MULTI"
50 PRINT"[194]EDEUTUNG DER [208]ARAMETER:"
60 PRINT"[218]EILEN: GIBT AN WIEVIEL [210]ASTERZEILEN"
70 PRINT"ZUM 'OBEREN' [194]ILDSCHIRM GEHOEREN."
80 PRINT"[205]ULTI : ENTHAELT DEN [215]ERT DER [211]PEICHER-"
90 PRINT"STELLE 53270.(24=MULTICOLOR/200=[200]I[210]ES)"
95 FORI=1TO5000:NEXT
100 PRINT"[147]SYS49152,200,200"
110 SYS49152,200,200
120 FORI=1TO2000:NEXT
130 SYS49272:PRINT"[147]SYS49272-UND DIE [210]OUTINE IST ABGE-"
140 PRINT"SCHALTET!"
150 PRINT"MAN KANN ABER AUCH EINBLENDEN..."
160 PRINT"[211]IE BRAUCHEN NUR DEN [215]ERT IN #53247"
170 PRINT"ZU VERAENDERN..."
180 FORI=1TO3000:NEXT:PRINT"[147]":SYS49152,1,200
190 FORI=0TO255:POKE53247,I:NEXT:SYS49272
200 PRINT"[147]NA JA, MAN KANN AUCH ALLES UMDREHEN!"
201 :
202 :
203 :REM UMSCHALTEN
204 :
205 :
206 MULTI=200
210 POKE49225,31:POKE49230,59:POKE49248,23:POKE49253,27:POKE49235,MULTI
220 SYS49152,200,200
30000 :
30001 :
30002 :REM MASCHINENPROGRAMM
30003 :
30004 :
32000 DATA32,253,174,32,158,183,142,255,207,32,253,174,32,158,183,142,254,207
32001 DATA120,169,50,162,192,141,20,3,142,21,3,173,255,207,141,18,208,173,17
32002 DATA208,41,127,141,17,208,169,129,141,26,208,88,96,173,25,208,141,25,208
32003 DATA48,7,173,13,220,88,76,49,234,173,18,208,201,0,240,23,169,23,141,24
32004 DATA208,169,27,141,17,208,169,200,141,22,208,169,0,141,18,208,76,126,234
32005 DATA169,31,141,24,208,169,59,141,17,208,173,254,207,141,22,208,173,255
32006 DATA207,141,18,208,76,126,234,120,169,49,141,20,3,169,234,141,21,3,169
32007 DATA240,141,26,208,88,169,23,141,24,208,169,27,141,17,208,96,20,23,19,32
32008 DATA49,57,56,56,0,255,0,255