home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / c64cross / c64ker.ini < prev    next >
Text File  |  2020-01-01  |  530b  |  18 lines
  1. 1 rem create kermit.ini
  2. 2 rem ray moody 01/17/88
  3. 10 open 15,8,15,"i"
  4. 20 open 2,8,2,"kermit.ini,s,w":gosub 200
  5. 50 read a:if a <> -1 then print#2,chr$(a);:goto 50
  6. 70 close 2:gosub 200:close 15
  7. 80 end
  8. 200 input#15,e1$,e2$,e3$,e4$
  9. 210 if e1$ <> "00" then print e1$","e2$","e3$","e4$
  10. 220 if e1$ > "20" then stop
  11. 230 return
  12. 300 data 25,  0,  1,  1,  0,  0,  2,  0
  13. 310 data  1,  0,  1,  0,  1,  1,  1,  0
  14. 320 data  0, 60,  1,  1,  1, 38, 38,  0
  15. 330 data  0,  0,  0, 13, 13, 93, 93, 10
  16. 340 data 10, 35, 35, 12, 15,  0,  1,  6
  17. 350 data -1
  18.