home *** CD-ROM | disk | FTP | other *** search
- 0 rem splat! boot program a
- 1 rem by john william harris
- 2 poke 44,12:clr:poke 3072,0:poke53281,0:poke53280,0
- 3 a$=chr$(34):dv=peek(186):ifdv<8thendv=8
- 4 print"[144][147]load"a$"snd 2049.o"a$","dv",1"
- 5 print"new"
- 6 print"load"a$"splat boot-b"a$","dv
- 7 print"run"
- 8 poke 198,5:for a=631 to 635:poke a,13:next:print"";:end
-