Listing of file='CIOT010' on disk='vmedia/701-2358C.wvd.zip'
# Sector 51, program filename = 'CIOT010' 0010 REM CIOT010+open file,(4/07/78), STANDARD TC FORMAT DISK READ 0100 GOTO 9900 : ON AGOTO 110,130,4000,4080 0110 COM Y,Y1,Y6,Y2,Y9,Y1$(10)8 0130 COM Y$(4)62,Y3,Y4,Y5 4000 AND (STR(A2$(1),1,1),FE) : MAT COPY Y$()<Y3,1>TO A2$()<4,1> : Y4=VAL(STR(A2$(2),2)) : MAT COPY Y$()<Y3+1,Y4>TO O$()<1,Y4> : Y3=Y3+Y4+1 : IF Y3<>Y5THEN 100 : IF STR(Y$(1),1,1)=HEX(F0)THEN 4120 4080 DATA LOAD DC #1,Y$() : Y5=VAL(STR(Y$(1),2)) : Y3=3 : RETURN 4120 STOP