home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / b.frodo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  469b  |  18 lines
  1. 1 clr
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 15 q$=chr$(34)
  4. 20 poke65535,1:rem music ok
  5. 40 q=57:poke44,q:pokeq*256,0
  6. 100 bl=4096+54:b0=4096+177
  7. 103 sysbl,"f.frodo",dv,224*256
  8. 104 sysbl,"frodo.tbs",dv,232*256
  9. 106 sysbl,"sid.obj.64",dv,192*256
  10. 110 poke53265,27:poke56576,199:poke53272,22:poke53270,200:poke646,peek(53281)
  11. 119 forx=0to10:poke781,x:sys59903:next
  12. 120 print"l[207]"q$"frodo"q$","dv""
  13. 130 forx=1to4:poke630+x,asc(mid$(chr$(13)+"r[213]"+chr$(13),x)):next:poke198,4
  14. 299 end
  15. 59999 end
  16. 60000 dv=peek(186):ifdv<8thenstop
  17. 60001 open15,dv,15,"s0:b.frodo":close15:save"0:b.frodo",dv
  18.