home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 226 / 226.d81 / b.holmes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  706b  |  20 lines
  1. 0 rem holmes boot
  2. 4 dv=peek(186):ifdv<8thendv=8
  3. 5 ifx=0thenx=1:load"unpacker",dv,1
  4. 6 ifx=1thenx=2:load"holmes.title.shp",dv,1
  5. 7 ifx=2thenx=3:load"hi-res text.o",dv,1
  6. 10 poke249,224:poke250,204:                 rem screen/color
  7. 20 poke251,0:poke252,64:                    rem shp buffer
  8. 30 poke253,0:poke254,0:                     rem   x-pos,y-pos
  9. 35 poke53281,0: rem  border to white
  10. 50 sys51456:    rem  unpack normal shp
  11. 60 sys51459:    rem  show screen
  12. 70 f$="search holmes":rem  file to load & run
  13. 75 p$=chr$(34)+"press any key"+chr$(34):   t$="sys50759,"+p$+",14*8,24*8"
  14. 80 print"[147]loadf$,dv"
  15. 81 print""t$;
  16. 82 print":poke198,0:wait198,1:sys51459:run"
  17. 83 poke631,13:poke632,13:poke198,2:end
  18. 10000 d=peek(186):open1,d,15,"i0":close1:n$="b.holmes"
  19. 10001 open1,d,15,"s0:"+n$:close1:saven$,d:end
  20.