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