C64 Software  <  SCA: The C64 Software Collection / NEUTITEL.BAS",8:

  Run
0 :
10 POKE53280,A:POKE53265,11
20 IFA=0THENA= 2:LOAD"",8,1
30 IFA=2THENA= 3:LOAD"",8,1
40 IFA=3THENA= 4:LOAD"",8,1
50 IFA=4THENA=16:LOAD"",8,1
60 FORI=255TO0STEP−.25:POKE53280,I:NEXT
70 SYS49152
READY.