home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 August / Ahoy_Magazine_87-08_1987_Double_L_Side_B.d64 / loader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  935b  |  33 lines
  1. 90 poke198,0:poke808,234:poke775,200
  2. 100 ifi=0theni=1:load"ddlogo",8,1
  3. 105 poke53280,1
  4. 110 poke55,0:poke56,92:clr
  5. 120 poke53265,59
  6. 130 poke53272,120
  7. 140 poke56576,peek(56576)and254
  8. 150 gosub1030:ford=1to4000:next
  9. 155 poke55,0:poke56,160
  10. 160 poke53265,27
  11. 170 poke53272,21
  12. 180 poke56576,peek(56576)or1
  13. 190 print"[147]":poke53281,1:poke53280,1
  14. 200 print"load";chr$(34);"fw9";chr$(34);",8,1"
  15. 210 print"run":print"[145][145][145][145][145][145][145][145][145]"
  16. 220 poke631,13:poke632,13:poke198,2:end
  17. 1030 s=54272:fori=0to24:pokes+i,.:next:i=1
  18. 1036 readh,l,dl:ifh=-1then1043
  19. 1039 pokes+24,15:pokes+5,9:pokes+6,0:pokes+1,h:pokes,l:pokes+4,33
  20. 1040 ford=1todl:next
  21. 1042 pokes+4,64:goto1036
  22. 1043 pokes+24,.:pokes,.:pokes+1,.:return
  23. 1047 data 4,48,250,21,31,250,25,30,335
  24. 1048 data 21,31,100,22,96,190,25,30,230
  25. 1049 data3,35,90,3,35,90,3,134,120,3,244,120
  26. 1050 data 4,48,250,21,31,250,25,30,335
  27. 1051 data 21,31,100,22,96,190,25,30,230
  28. 1052 data3,35,90,3,35,90,3,134,120,3,244,120,4,48,250
  29. 1070 data 42,62,230,42,62,230,33,135,200,37,162,230,33,135,230,33,135,230
  30. 1080 data 37,162,230,42,62,230,33,135,230,33,135,230,37,162,230,33,135,200
  31. 1081 data 6,71,300,8,97,1400
  32. 2000 data-1,-1,-1
  33.