home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
c64cross.tar.gz
/
c64cross.tar
/
c64ker.ini
< prev
next >
Wrap
Text File
|
1992-09-29
|
530b
|
18 lines
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