start tok64 d64-duTWBC
10 REM club 64 flash 1
20 REM m/c
50 DATA120,230,250,165,250,141,32,208,24,105,1,141,33,208,160,0,162,0,232,224
60 DATA160,208,251,200,192,1,208,244,240,227
70 FORi=49152TO49152+29:READd:POKEi,d:NEXT
80 INPUT"{clear}flash 1. flash-nummer 6-10 ";a
90 IFa<6ORa>10THEN80
100 POKE49152+a,1:SYS49152
stop tok64
(bastext 1.0)