home *** CD-ROM | disk | FTP | other *** search
- 10 for m=54272 to 54296:poke m,0:next
- 20 poke 54295,249
- 30 poke 54296,31
- 32 poke 54293,0
- 33 poke 54294,091
- 34 poke 54296,31
- 40 print"tiefpass"
- 45 for a=1 to 2000:next a
- 50 poke 54296,47
- 60 print"bandpass"
- 70 poke54296,79
- 80 print "hochpass"
- 85 for a=1 to 2000:next a
- 100 for m=54272 to 54296:poke m,0:next
- 110 poke 54296,15
-