home *** CD-ROM | disk | FTP | other *** search
- 1 rem startprogramm
- 2 open1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close1
- 3 ifa=0thena=1:poke53280,6:poke53281,6:print"[147]"chr$(14);chr$(8):load"m-a2",8,1
- 4 ifa=1thena=2:load"m-a1",8,1
- 5 print"poke43,1:poke44,64:poke16384,0:new"
- 6 print"load"chr$(34)"m-@"chr$(34)",8"
- 7 print"run"
- 8 poke631,19:poke632,13:poke633,13:poke634,13:poke198,4:end
-