home *** CD-ROM | disk | FTP | other *** search
/ Scene World 6 / Scene_World_06_2003-02-15_POL__PSW_de_Side_B.d64 / b.trail (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  850b  |  30 lines

  1. 0 poke53280,6:poke53281,6
  2. 1 ifxthen5
  3. 2 print"[147][208]lease wait while loading..."
  4. 3 dv=peek(186):ifdv<8thenpoke186,8:goto3
  5. 5 ifx=0thenx=1:load"copymem.o",dv,1
  6. 6 ifx=1thenx=2:load"bload.o",dv,1
  7. 7 bl=828:hgr=51459:cm=14200:
  8. 8 rem sysbl,16384,"trail west.pic":
  9. 9 sys57812"trail west.pic",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  10. 10 poke249,224:poke250,204
  11. 20 poke251,0:poke252,64
  12. 30 poke253,0:poke254,0:print"[147]"
  13. 35 poke53281,0
  14. 36 sys cm,24576-8192,57344,8000
  15. 37 sys cm,32576-8192,52224,1000
  16. 38 sys cm,33576-8192,55296,1000
  17. 50 poke53281,peek(34576-8192)
  18. 60 poke53280,6:poke56576,0:poke53272,56:poke53265,peek(53265)or32
  19. 61 poke53270,peek(53270)or16
  20. 65 ford=1to 3000:next
  21. 70 f$="trail west"
  22. 80 a$="loadf$,dv:"+chr$(0)
  23. 83 fori=1tolen(a$):poke511+i,asc(mid$(a$,i)) :next
  24. 84 poke781,255:poke782,1
  25. 85 poke631,19:poke632,asc("r"):poke633,asc("u"):poke634,asc("n")
  26. 86 poke635,asc(":"):poke636,13:poke198,6
  27. 87 sys42118
  28. 9999 end
  29. 10000 d=peek(186):n$="b.trail":open15,d,15,"s0:"+n$:close15:saven$,d:end
  30.