Listing of file='TCFORMAT' on disk='vmedia/701-2110C.wvd.zip'
# Sector 16, program filename = 'TCFORMAT' 0010 REM TCFORMAT - SUBROUTINES TO READ AND WRITE TC FILE FORMAT (4/18/78) 0020 DIM X$(4)64,X1$(4)62,X2$(1)1,Q$1 : SELECT #2310 8000 PRINT HEX(030D0A0D0A);"--- SUBROUTINES '130, '131, AND '132 LOADED ---" : PRINT " SAVE UNDER DESIRED USER NAME" : PRINT : LOAD DC T#1,"TCCLEAR"8000,8000 9000 DEFFN'130(X3,X4$,X5) : Q$="X" : ON X3GOTO 9002,9007 : RETURN 9002 INIT(00)X1$() : DATA LOAD DC OPEN T#2,X4$ : DATA LOAD DC #2,X1$() : X7=VAL(STR(X1$(1),2)) : X8=3 : Q$=" " : RETURN 9007 IF X5>=0THEN 9008 : RETURN 9008 ON X5+1GOTO 9010 : DATA SAVE DC OPEN T#2,X5,X4$ : GOTO 9011 9010 SCRATCH T#2,X4$ : DATA SAVE DC OPEN T#2,X4$,X4$ 9011 X8=3 : INIT(00)X1$() : Q$=" " : RETURN 9020 DEFFN'131 : Q$="X" : IF X3=1THEN 9022 : RETURN 9022 MAT COPY X1$()<X8,1>TO X2$() : L=VAL(X2$(1)) : MAT COPY X1$()<X8+1,L>TO X$()<1,L> : X8=X8+L+1 : IF X8<>X7THEN 9028 : IF STR(X1$(1),1,1)<>HEX(F0)THEN 9027 : Q$="E" : RETURN 9027 DATA LOAD DC #2,X1$() : X7=VAL(STR(X1$(1),2)) : X8=3 9028 Q$=" " : RETURN 9030 DEFFN'132(L,X6) : Q$="X" : IF X3=2THEN 9032 : RETURN 9032 IF L=0THEN 9038 : BIN(X2$(1))=L : IF L+X8<249THEN 9035 : BIN(STR(X1$(1),2,1))=X8 : DATA SAVE DC #2,X1$() : X8=3 9035 MAT COPY X$()<1,L>TO X1$()<X8+1,L> : MAT COPY X2$()<1,1>TO X1$()<X8,1> : X8=X8+L+1 9038 ON X6GOTO 9039 : Q$=" " : RETURN 9039 STR(X1$(1),1,1)=HEX(F0) : BIN(STR(X1$(1),2,1))=X8 : DATA SAVE DC #2,X1$() : DATA SAVE DC #2,END : Q$=" " : RETURN