home *** CD-ROM | disk | FTP | other *** search
- 10 if a=0 then a=1:load"sprite 1.tron",8,1
- 20 if a=1 then a=2:load"sprite 2.tron",8,1
- 30 print"[147]p[207]44,40:p[207]10240,0:new"
- 40 print"load"chr$(34)"code.tron"chr$(34)",8,1"
- 50 print"load"chr$(34)"basic.tron"chr$(34)",8"
- 60 print"run"
- 70 print""
- 80 poke198,5
- 90 for q=0 to 4:poke 631+q,13:next
-