home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / c64cross / c64ker.sec < prev    next >
Text File  |  1992-09-28  |  2KB  |  48 lines
  1. 1 rem create c128 autoboot sector
  2. 2 rem ray moody          01/14/88
  3. 10 open 15,8,15,"i"
  4. 20 open 2,8,2,"#":gosub 200
  5. 30 print#15,"b-a:0,1,0":gosub 200
  6. 40 print#15, "b-p:2,0":gosub 200
  7. 50 read a:if a <> -1 then print#2,chr$(a);:goto 50
  8. 60 print#15, "u2:2,0,1,0":gosub 200
  9. 70 close 2:close 15
  10. 80 end
  11. 200 input#15,e1$,e2$,e3$,e4$
  12. 210 if e1$ <> "00" then print e1$","e2$","e3$","e4$
  13. 220 if e1$ > "20" then stop
  14. 230 return
  15. 300 data 67, 66, 77,  0,  0,  0,  0, 75
  16. 310 data 69, 82, 77, 73, 84, 32, 86, 69
  17. 320 data 82, 83, 73, 79, 78, 32, 50, 46
  18. 330 data 50,  0,  0,165,186, 32,177,255
  19. 340 data169,111, 32,147,255,162,  0,189
  20. 350 data120, 11, 32,168,255,232,224,  5
  21. 360 data144,245, 32,174,255,169,  6,162
  22. 370 data125,160, 11, 32,189,255,166,186
  23. 380 data160,  0, 32,186,255,152,162,  0
  24. 390 data160, 28, 32,213,255,176, 37,120
  25. 400 data162, 15, 32,107,255, 72,162,  0
  26. 410 data 32,107,255,141,  0,255,189,  0
  27. 420 data128,157,  0,206,189,131, 11,157
  28. 430 data  0,128,232,208,241,104,141,  0
  29. 440 data255, 76, 77,255,170,108,  0,  3
  30. 450 data 85, 48, 62, 77, 49, 75, 69, 82
  31. 460 data 77, 73, 84,  9,128,  9,128,195
  32. 470 data194,205, 56, 48,160,  0,185, 23
  33. 480 data128,153,  0,207,200,208,247, 76
  34. 490 data  0,207, 32,132,255, 32,135,255
  35. 500 data 32,138,255, 32,129,255,160,  0
  36. 510 data185,  0,206,153,  0,128,200,208
  37. 520 data247,169,  0,133,251,169, 28,133
  38. 530 data252,169,  1,133,253,169,  8,133
  39. 540 data254,162,132,177,251,145,253,200
  40. 550 data208,249,230,252,230,254,202,208
  41. 560 data242,169, 91,141, 38,  3,169,207
  42. 570 data141, 39,  3,169, 78,141, 36,  3
  43. 580 data169,207,141, 37,  3,108,  0,160
  44. 590 data132,  2,172, 93,207,185, 94,207
  45. 600 data238, 93,207,164,  2, 24, 96,  0
  46. 610 data 83, 89, 83, 50, 48, 54, 52, 13
  47. 620 data -1
  48.