home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 May / Ahoy_Magazine_87-05_1987_Double_L_Side_A.d64 / Moondog (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  32 lines
  1. 10 rem    moondog boot--jchilty--8/86
  2. 11 poke53281,0:poke53280,0:print"[147]loading moondog...."
  3. 12 forx=49154to49320:reada:pokex,a:next
  4. 13 poke147,0:sys57812"moontitle",8,1:sys62631:sys49154
  5. 14 forx=54272to54295:pokex,0:next:poke54296,15
  6. 16 a=15:d=107:poke54277,a:poke54284,a:poke54291,a:poke54278,d:poke54285,d
  7. 17 poke54292,d:poke54286,30:poke54287,60:poke54276,33:poke54283,23
  8. 18 poke54290,23:forf1=40to80step1:poke54273,f1
  9. 19 forf2=60to31step-5:poke54280,f2:nextf2:nextf1
  10. 20 poke54276,32:poke54283,32:poke54290,32:fort=0to1000:next
  11. 21 forx=54272to54295:pokex,0:next:poke54296,15
  12. 22 poke54284,160:poke54285,252:poke54280,80:poke54279,40:poke54283,129
  13. 23 fort=0to12000:next:poke54283,128
  14. 24 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4
  15. 25 poke53270,peek(53270)and239:poke53281,0:poke646,0
  16. 26 printchr$(147):print:print
  17. 27 print"load"chr$(34)"moondog"chr$(34)",8":print:print:print:print
  18. 28 print"run":print"loading modules....[144]":printchr$(19):poke198,2
  19. 29 poke631,13:poke632,13
  20. 30 end
  21. 100 data 173,17,208,41,239,9,32,141,17,208,173,22,208,41,223,9
  22. 101 data 16,141,22,208,173,24,208,41,240,9,8,141,24,208,76,43
  23. 102 data 192,173,17,208,41,239,141,17,208,162,127,160,64,134,252,132
  24. 103 data 251,162,4,160,0,134,254,132,253,162,131,160,39,32,127,192
  25. 104 data 162,131,160,40,134,252,132,251,162,216,160,0,134,254,132,253
  26. 105 data 162,135,160,15,32,127,192,173,16,135,141,33,208,162,96,160
  27. 106 data 0,134,252,132,251,162,32,160,0,134,254,132,253,162,127,160
  28. 107 data 63,32,127,192,173,17,208,9,16,141,17,208,96,142,1,192
  29. 108 data 140,0,192,160,0,177,251,145,253,165,252,205,1,192,208,8
  30. 109 data 165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253
  31. 110 data 208,227,230,254,76,135,192
  32.