1 rem create kermit.ini 2 rem ray moody 01/17/88 10 open 15,8,15,"i" 20 open 2,8,2,"kermit.ini,s,w":gosub 200 50 read a:if a <> -1 then print#2,chr$(a);:goto 50 70 close 2:gosub 200: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 25, 0, 1, 1, 0, 0, 2, 0 310 data 1, 0, 1, 0, 1, 1, 1, 0 320 data 0, 60, 1, 1, 1, 38, 38, 0 330 data 0, 0, 0, 13, 13, 93, 93, 10 340 data 10, 35, 35, 12, 15, 0, 1, 6 350 data -1