[net.micro.cbm] Uploading Bug; What Is It?

wkk5231@acf4.UUCP (Wesley Kaplow) (01/12/85)

**********
Note: this note is not really from wkk5231@acf4.  It is from
...cmcl2!alaya!alan (alaya!alan@cmcl2, or "Alan Shaw").  
If you reply by mail, please address your reply accordingly.
**********
What is wrong with the following program?  I wrote it to upload seq files from
disk to our VAX.  I log in, enter vi, and then run the program.  It works just
fine for short files, but when I try it on a long one, a chunk of text from
the middle of the file (from the 6366th byte on, to be precise) gets lost.
Or perhaps it's not the program that's at fault?
Any suggestions will be appreciated.


 10 nn$="":print"enter filename: ";
 20 geta$:ifa$=""then20
 30 printa$;:if(a$=chr$(20))and(len(nn$)>0)thennn$=left$(nn$,len(nn$)-1):goto20
 35 ifa$=chr$(20)then20
 40 ifa$=chr$(13)then100
 50 nn$=nn$+a$:goto20
 100 open9,8,9,nn$+",s,r"
 105 open15,8,15:input#15,a$,b$,c$,d$:ifa$<>"00"thenprinta$,b$,c$;d$:close15:end
 110 open2,2,255,chr$(6)+chr$(0)
 120 get#2,b$
 130 print#2,chr$(17);chr$(27);:a$="a":a=-1:goto150:rem the "a" is append in vi
 140 get#9,a$:a$=left$(a$+chr$(0),1):su=st
 150 f=fre(0):gosub5000:print#2,a$;:a=a+1:printa,int(a/256)
 155 print"{cursor-up}";
 160 get#2,b$:ifsu=64thenclose2:close9:end
 170 goto140
 5000 rem pet to ascii
 5010 z=asc(a$):ifz<65then return
 5020 ifz>90then5040
 5030 z=z+32
 5040 ifz<219then5060
 5050 z=z-96
 5060 z=zand127
 5070 a$=chr$(z):return