#Т > BLib.BBCFile 1.01 12Feb1992 2Т Read and write BASIC data using fast file IO : (<Т Note! These routines are actually *slower* than PRINT# 2:Т and INPUT# on all filing systems other than NFS 3.xx <: F: P5Т PROCBBC_WrStr(out%,str$) - write string to file Z,Т On entry: out% - handle to output file d&Т str$ - string to write n6Т ------------------------------------------------ x7щРBBC_WrStr(O%,A$):Й L%:L%=╘A$:data%?0=0:data%?1=L% ┌1Г L%:Ц A%=2 ╦ L%+1:data%?A%=≈аA$,L%-A%+2,1):М ▄Рgbpb(2,O%,data%,L%+2,0):А √: ═: ╙6Т PROCBBC_WrInt(out%,int%) - write integer to file Є,Т On entry: out% - handle to output file Ў'Т int% - integer to write х6Т ------------------------------------------------ рщРBBC_WrInt(O%,I%) эJdata%!4=I%:data%?3=data%?5:data%?2=data%?6:data%?1=data%?7:data%?0=&40 ФРgbpb(2,O%,data%,5,0):А П: З: 4Т PROCBBC_WrReal(out%,real) - write real to file ,Т On entry: out% - handle to output file *Т real - real value to write "7Т ------------------------------------------------- ,щРBBC_WrReal(O%,A) 6 Г ё ▄ @Я#O%,A:А Jм T3?data%=&FF:|(data%+1)=A:Рgbpb(2,O%,data%,6,0):А ^: h: r,Т PROCBBC_Rd(in%) - read value from file |+Т On entry: in% - handle to input file ├CТ On exit: Reads the next item and returns int, real or string ░CТ ------------------------------------------------------------- "щєBBC_Rd(I%):Й L%,A$,A:A%= #I% єГ A%=0:L%= #I%:Г L%=0:="" ўLГ A%=0:Рgbpb(4,I%,data%,L%,0):L%=L%-1:УA$=A$+Ґdata%?L%:L%=L%-1:ЩL%<0:=A$ ╦bГ A%=&40 └ A%=1:Рgbpb(4,I%,data%,4,0):data%?4=data%?2:data%?5=data%?1:data%?6=data%?0:=data%!3 б Г ё ▄ ло#I%=▐#I%-1:Х#I%,A:=A жм Ю!Рgbpb(4,I%,data%,5,0):=|data% Ъ