home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 May / 1993-05.d64 / direase (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  45 lines
  1. 0 rem copyright 1993 - compute publications intl ltd - all rights reserved
  2. 1 poke53280,6:poke53281,6:print"[147]":goto10:rem by randy clemmons
  3. 2 s=10  :rem * delete routine 2-8 *
  4. 3 print"[147]":fori=s to s+60 step10
  5. 4 ifi>340then next:print"goto7":goto6
  6. 5 printi:printchr$(20):nexti:print"s="s+60"[157]:goto3"
  7. 6 poke198,10:fork=1to10:poke630+k,13:nextk:print"":end
  8. 7 print"[147]":form=1to8:printm:nextm:print"print chr$(147):list"
  9. 8 poke198,9:fork=1to9:poke630+k,13:nextk:print"":end
  10. 10 gosub130:input"[147]create basic loader y/n";c$:ifc$="y"thengosub110:goto 30
  11. 20 print"sys";s:print"to view "t$" files":end
  12. 30 print"[147]":fori=stos+47step6
  13. 40 ifi>fthennext:print"goto 80":goto70
  14. 50 printi;"data ";:forj=0to5:r$=str$(peek(i+j)):printright$(r$,len(r$)-1);",";
  15. 60 nextj:printchr$(20):nexti:print"s="s+48"[157]:f="f"[157]:goto 30"
  16. 70 poke198,10:fork=1to10:poke630+k,13:nextk:print"":end
  17. 80 sa=(peek(679)*256)+peek(680):ea=sa+101
  18. 90 print"[147]"sa-1"fori="sa"to"ea":readda:pokei,da:nexti:end"
  19. 100 print"run 2":poke198,2:poke631,13:poke632,13:print"":end
  20. 110 rem **   save starting address   **
  21. 120 tv=s:hb=int(tv/256):lb=int(tv-(hb*256)):poke679,hb:poke680,lb:return
  22. 130 print"[147]enter starting address no.   828"
  23. 140 input"[145]";s
  24. 150 print"poking data to memory ..."
  25. 160 rem * directory ml data *
  26. 170 for i= s to s+101:readda:pokei,da:nexti:f=s+101
  27. 180 data 169,8,170,160,0,32,186,255,169
  28. 190 data 1,162,154,160,3,32,189,255,32
  29. 200 data 192,255,162,8,32,198,255,32
  30. 210 data 228,255,32,228,255,32,225,255
  31. 220 data 240,49,32,228,255,32,228,255
  32. 230 data 165,144,208,39,32,228,255,141
  33. 240 data 160,3,32,228,255,174,160,3,32
  34. 250 data 205,189,169,32,32,210,255
  35. 260 data 32,228,255,240,6,32,210,255,76
  36. 270 data 126,3,169,13,32,210,255,76,91
  37. 280 data 3,32,204,255,169,8,32,195,255
  38. 290 data 96,36,48,58,42,61,83,0,0
  39. 300 rem ** relocation data **
  40. 310 data 94,11,13,100,50,51,100,56,57,66,75,76,31,83,84
  41. 320 rem ** relocation routine **
  42. 330 fori=1 to 5:read da:tv=s+da:hb=int(tv/256):lb=int(tv-(hb*256))
  43. 340 readlo:poke(s+lo),lb:readhi:poke(s+hi),hb:nexti:return
  44. 0 
  45.