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